setbaud 1,1200,8,n,1  
mode_reco

setc    0,1          
movd    "EDVAHL          ",s0,0
movd    "0<0",s0,8
movd    " READY for WORK with EDV/l/n",s0,11
out     s0,0,c4         
sett    200
reset_0:
movd    "0<0 /n",s0,8
setl    8,1                     
wait    im_sign,rx_sign,tf_sign,ans_sign         




setl    8,2



case    im_sign,test_for_rx
in      s0,11
ansd    "M0 ok!/n"
jmp     do_input

test_for_rx:
case    rx_sign,timeout
rds     s0,11                   
jz      reset_0



do_input:
sett   200
setc   0,1

compd   "R/n",s0,11
jnz     test_old
buffrd  s0,11
buffst                   
wrs     s0,11,255
jnz     write_error
compd	"E/n",s0,11
jz	reset_0
out	s0,0,c4
jmp	reset_0

test_old:
compd   "O/n",s0,11
jnz     test_for_bdi

buffold s0,11
wrs     s0,11,255
jnz     write_error
compd	"E/n",s0,11
jz	reset_0
out	s0,0,c4
jmp     reset_0

test_for_bdi:
writeb  s0,11,2
sendsig ans_sign,c3
jmp     reset_0






timeout:
case    tf_sign,test_ans_sign
sett    200
decc    0
jnz     reset_0
setc    0,3             
movd    " CHANNEL_TIMEOUT/n",s0,11
out     s0,0,c4
jmp     reset_0

write_error:
movd    " TIMEOUT ERROR ON WRITE TO CHANNEL_0 (xoff)/n",s0,11
out     s0,0,c4
jmp     reset_0



test_ans_sign:
case    ans_sign,reset_0
readb   s0,11,3
jz      reset_0
out     s0,0,c4
wrs     s0,11,80
jmp     reset_0


zzz:

end