setbaud 1,9600,8,n,1
setl    9,2
setrts  off
wrchar  xoff
setp    0x7f02,0x01
mode_reco

setrts  off
wrchar  xoff
sett    50
wait    tf_sign
movd    " 4200AHL V2.3 (4200ah23.DW1) by J. Hoerhager AOPE/n",s5,0
out     s5,0,c4

setrts  on
sett    20
wait    tf_sign

error_main:
setp    0x7f02,0x01
mode_reco
wrchar  xon

main:
sett    100
sendsig ans_sign,c3           

main_1:
setl    9,1

wait    rx_sign,cntl_sign,tf_sign
case	cntl_sign,test_rx_sign
compc	14,255
jz	overrun
jmp     main_1
overrun:
movd    "ERROR Buffer overrun on input CHANNEL 1/n",s5,100
writeb  s5,100,4
jmp	error_main
test_rx_sign:
case	rx_sign,test_tf_sign




setl    9,2
rds     s1,0
jz      main_1
compc	15,0
jz	read_okay
movd    "ERROR          on input from CHANNEL 1/n",s5,100
movc    15,s5,106
writeb  s5,100,4
compc	15,128		
jz	read_okay
jmp	error_main



test_tf_sign:
case	tf_sign,main
jmp     main

read_okay:
writeb  s1,0,2       
jnz     wait_write
sendsig ans_sign,c3
jmp     main

wait_write:
wrchar  xoff
wait1_write:
movd    "ERROR input_b is full/n",s5,0
writeb  s5,0,4
sett    50
wait    tf_sign
writeb  s1,0,2       
jnz     wait1_write
wrchar  xon
sendsig ans_sign,c3
jmp     main

zzz:

end