setbaud 1,9600,8,n,1    
mode_reco
movd    "LGNOTR 1<1 LG-Notruf Modul 1 V1.0 ready!/n",s1,0
out     s1,0,c4
sett    20
wait    tf_sign



main:
setl    9,1
setrts  off
sett    10
wait    tf_sign,ans_sign
case    tf_sign,test_buffer
readb   s1,0,1
jz      main

jmp     test_buffer1

test_buffer:
clear   ans_sign
readb   s1,0,1
jz      main
test_buffer1:
compd   "START",s1,0
jz      notruf_start

compd   "STOP",s1,0
jz      main
wrs     s1,0,100
wrchar  ^J
jmp     test_buffer



notruf_start:
main_on:
setl    9,2
setrts  on
sett    10
wait    tf_sign,ans_sign
case    tf_sign,test_buffer_on
movd    "^G^G^G/n",s1,0
wrs     s1,0,3
readb   s1,0,1
jz      main_on

jmp     test_buffer1_on

test_buffer_on:
clear   ans_sign
readb   s1,0,1
jz      main_on
test_buffer1_on:
compd   "STOP",s1,0
jz      main

compd   "START",s1,0
jz      main_on
wrs     s1,0,100
wrchar  ^J
jmp     test_buffer_on



zzz_end:

end