setbaud 1,9600,8,n,1
mode_reco
setrts	off





movd    "10101000101010001010100010101000",0xd080,0
movd    "10101000n",0xcf80,0
movd	" Alcatel Notification Server *** SPP-Treiber V1.0     ***/n",s8,100
out	s8,100,c4
movd	" * SPPV10.dw1 *  BY HOERHAGER JOSEF AOPE           09//99/n",s8,100
out	s8,100,c4
movd	" Modul 1 Ready for working !/l/n",s8,100
out	s8,100,c4
movd	"2100000/n",s8,240
out	s8,240,c4
setc	1,2
setc	2,12
error_main:
mode_reco
jmp	main
setc	0,5		
sett	50




main:
setrts	on

sett	50
wait	tf_sign,rx_sign,im_sign
case	tf_sign,test_rx










decc    2
jz	test_alarm1
sett	50

jmp	main

test_alarm1:
movd    "minute-tick/n",s8,0
out     s8,0,c4
setc	2,12	
sett	50
decc	1
jnz	main



setc	1,5
movd	"RX220Efff1910000 P~~~~~~~~~~~~~~~~Schnittstellenfehler SPP-Treiber/n",s8,0


writeb	s8,0,0		
sendsig   ans_sign,c0		
out	s8,0,c4
jmp	main




test_rx:
case	rx_sign,test_im
setrts  off
rds	s2,0
jz	main			

out	s2,0,c4

compd	"UEBERWACHUNGSTELEGRAMM/n",s2,0
jz	ueberwach
compd	"ALARM",s2,0
jz	zust_1
jmp	main



zust_1:
do_alarm:

movd    "RX220Efff1900000 P~~~~~~~~~~~~~~~~Brandalarm     12345678901234                             /n",s8,0


call	format_text
writeb	s8,0,0		
sendsig   ans_sign,c0		
out	s8,0,c4



























jmp     main



ueberwach:
setc	1,2
jmp     main


test_im:
case	im_sign,main
in	s8,4
movd	"MX20",s8,0
writeb	s8,0,0		
sendsig   ans_sign,c0		
movd	"M",s8,4
anss	s8,0
jmp	main




modul_status:
jmp	main




opto_input:
movd	"M2",s2,0
writeb	s2,0,0		
sendsig   ans_sign,c0		
movd	"M",s2,2
wrs	s2,2,20
out	s2,0,c4
jmp	main




format_text:
movd	"/n",s2,200  
setc	13,0		
setc    10,80
setc    11,49
setc	12,15



fill_element:
movd	" ",s8,c11
incc	11
movd	" ",s8,c11
incc	11
movs	s2,36,s8,c11,9
incc	11
incc	11
incc	11
incc	11
incc	11
incc	11
incc	11
incc	11
incc	11
movd	" ",s8,c11
incc	11
movd	" ",s8,c11
incc	11
movd	" ",s8,c11
incc	11
movd	" ",s8,c11
incc	11






loop_n:
compd	"/n",s2,c10
jnz	trans_n
incc	10
movd	"/n",s2,c10
test_n_next:
decc	12
jnz	loop_n
jmp     step_2

trans_n:
compd	" ",s2,c10
jnz	trans_n1
compc	13,1
jnz	trans_n1el
incc	10
jmp	loop_n
trans_n1el:
setc	13,1
jmp	trans_n11

trans_n1:
setc	13,0
trans_n11:
movs	s2,c10,s8,c11,1
incc	11
incc	10
jmp	test_n_next

step_2:



setc    13,0          
setc	12,56


loop_m:
compd	"/n",s2,c10
jnz	trans_m
movd	"/n",s8,c11
ret
test_m_next:
decc	12
jnz	loop_m
movd	"/n",s8,c11
ret
ret

trans_m:
compd	" ",s2,c10
jnz	trans_m1
compc	13,1
jnz	trans_m1el
incc	10
jmp	loop_m
trans_m1el:
setc	13,1
jmp	trans_m11

trans_m1:
setc	13,0
trans_m11:
movs	s2,c10,s8,c11,1
incc	11
incc	10
jmp	test_m_next



ZZZ:

end