setbaud 1,2400,8,n,1    ;Modul Default
mode_opi
movd    "AFS-COM 3<3 Buffer output raedy V 1.0/l/n",s12,0
out     s12,0,c4
setl    11,1



start_0:



no_opi:
sett    10
no_opi_1:
wait    tf_sign,im_sign
case    im_sign,test_buffer
in      s12,10
jnz     no_opi
compd   "SH",s12,11
jnz     no_opi_err

ansd    "3OK/n"
jmp     no_opi

no_opi_err:
out     s12,0,c4
movd    "ERR_CMD/n",s12,11
out     s12,0,c4
anss    s12,10
jmp     no_opi

test_buffer:
readb   s12,0,0       ;send printout to printer
jz      no_opi
out     s12,0,c5
sett    1
jmp     no_opi_1


zzz_end:

end