setbaud H,1,9600,8,n,1
setp    0x7f02,0x01
mode_reco

setrts  on
sett    10
wait    tf_sign



movd    "^L G-D-C  V0.9c (Modul 0) *GDC09c.DW0* by J. Hoerhager AOPE/l/n",s4,0

out     s4,0,c4
wrs     s4,0,100

error_main:
setp    0x7f02,0x01     
mode_reco

main_1:
sett    50

main:
setl    8,1
setrts  on
wait    rx_sign,ans_sign,tf_sign
case    ans_sign,test_rx_sign
loop_out_b:
setl    8,2
readb   s0,0,1
jz      get_from_mess








wrs     s0,0,220
jnz     error_write_out
call    copy_to_buffer
wrchar  ^J
jmp     loop_out_b

get_from_mess:
jmp     main_1

error_write_out:
movd    "ERROR on printing data to serialport 0/n",s4,0
writeb  s4,0,0
sendsig ans_sign,c0
setc    0,10
wait_again:
sett    10
wait    tf_sign,ans_sign

test1_tf_sign:
case    tf_sign,wait_again
sett    10
decc    0
jnz     wait_again
wrs     s0,0,220
jnz     error_write_out
call    copy_to_buffer
wrchar  ^J
jmp     main_1

test_rx_sign:
case    rx_sign,test_tf_sign
rds     s4,0
out     s4,0,c4
jmp     main_1

test_tf_sign:
case    tf_sign,main
jmp     loop_out_b






copy_to_buffer:
compd   "copy buffer1",s0,0
jnz     store_buffer
movd    "end_copy1/n",s0,0
call    write_hist
movd    "COPY BUFFER 1!/n",s0,0
wrs     s0,0,220
wrchar  ^J

copy_loop:
readb   s0,0,4
wrs     s0,0,220
wrchar  ^J
compd   "end_copy1/n",s0,0
jz      copy_end
call    write_hist
jmp     copy_loop

copy_end:
ret


store_buffer:
write_hist:
writeb  s0,0,4
jz      wr_hist1
readb   s4,0,4
jmp     write_hist
wr_hist1:
ret
zzz:

end