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




start_0:



movd    "10101000101010001010100010101000",0xd0c0,0
movd    "10101111n",0xcfc0,0
no_opi:
sett    30
no_opi_1:
wait    tf_sign,im_sign,ans_sign
case    tf_sign,test_im

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