setbaud 1,1200,8,n,1  
mode_reco

setc    0,1          
movd    "EDV-RQ          ",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    rx_sign,tf_sign 




setl    8,2
case    rx_sign,timeout
rds     s0,11           
jz      reset_0



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:
opi_cmd:
movd    "ERR_CMD/n",s0,11
wrs     s0,11,255
jnz     write_error
jmp     reset_0






timeout:
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



end