setbaud 1,1200,8,n,1  ;Modul Default
mode_reco
;
setc    0,1          ;error conter for to-send
movd    "AFS-TABS     ",s0,0
movd    "0<0",s0,8
movd    " Transmitter V 1.0 READY for WORK/l/n",s0,11
out     s0,0,c4         ;to sv-mon
sett    200
reset_0:
movd    "0<0 /n",s0,8
setl    8,1     ;modul ready
wait    rx_sign,tf_sign ;,ans_sign ;warte auf anforederung or timeout
;
; auforderung:
; set channl is busy
;
setl    8,2
case    rx_sign,timeout
rds     s0,11           ;get data
jz      reset_0         ;
;
; test intern commands
;
sett   200
setc   0,1
out	s0,0,c4
jmp	reset_0
;
compd   "R/n",s0,11
jnz     test_old
buffrd  s0,11
buffst                   ;get reco from buffer and send back
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,10
wrs     s0,11,255
jnz     write_error
compd	"E/n",s0,11
jz	reset_0
out	s0,0,c4
jmp     reset_0
;
; test bdi commands
;
test_for_bdi:
opi_cmd:
wait_4:
out     s0,10,c3        ;send to opi
jnz     wait_4
wrs     s0,11,255
jnz     write_error
jmp     reset_0
;
;**********************************************************
;
; on timeout write "channel_timeout" to sv-mon
; alle 60 sec
;
timeout:
case    ans_sign,skip_next
jmp     send_tabs
skip_next:
sett    20
jmp     send_tabs



decc    0
jnz     reset_0
setc    0,3             ;timeout run at 20sec
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
;
;**********************************************************
; send tabs
; sending to VAX for Alcatel

send_tabs:
sett    10
;
buffrd  s0,11
buffst                   ;get reco from buffer and send back
compd   "E/n",s0,11
jz      reset_0
sendsig ans_sign,c0     ;start again
;
out     s0,0,c4
wrs     s0,11,255
jnz     write_error
wrchar  ^J
jmp     reset_0
;
zzz:
;
end