setbaud 1,9600,8,n,1    ;Modul Default
mode_reco
movd    "00000",s14,240
movd    "AFS-PR  3<3 Buffer output raedy V 2.0/l/n",s3,0
out     s3,0,c4
setl    11,1



start_0:



no_opi:
sett    30
no_opi_1:
wait    tf_sign,im_sign,ans_sign
case    tf_sign,test_im

compd   "00000",s14,240
jz      non_error_led




setl    7,1


movd    " Observation ERROR code:      /n",s12,100
movs    s14,240,s12,124,5
out     s12,100,c4
out     s14,250,c4
decc    3
jnz     main_skip1

jmp     main_skip1
non_error_led:
setc    3,30




setl    7,0
setl    5,0

main_skip1:
sendsig ans_sign,c3
jmp     no_opi


test_im:
case    im_sign,test_buffer
in      s3,10
jnz     no_opi

no_opi_err:
compd   "rd",s3,10
jz      reading_b
out     s3,0,c4
movd    "ERR_CMD/n",s3,11
out     s3,0,c4
anss    s3,10
jmp     no_opi

test_buffer:
case    ans_sign,no_opi
readb   s3,0,3        ;send printout to 3
jz      no_opi
sendsig ans_sign,c3
wrs     s3,0,80
test_status:
buffst          ;space in buffer?
jnz     bdi_buff_wr
buffrd  s12,20
jmp     test_status
bdi_buff_wr:
buffwr  s3,0
movd    "/l/n",s3,0
wrs     s3,0,10
jmp     no_opi_1

reading_b:
setc    2,25
movd    "OK/n",s3,10
anss    s3,10

readloop:
buffrd  s3,0
out     s3,0,c4
compd   "E/n",s3,0
jz      no_opi_1
decc    2
jnz     readloop
jmp     no_opi_1


zzz_end:

end