setbaud 1,300,7,e,1
mode_reco
setrts	off

call	init_b0



movd	" Alcatel 4220 (DHS 2) SMDR-Buffer V1.1/n",s7,100
out	s7,100,c4
movd	" BY HOERHAGER JOSEF VTE /n",s7,100
out	s7,100,c4
movd	" Ready for working !/l/n",s7,100
out	s7,100,c4
error_main:
mode_reco
jmp	main




main:
movd	"                                                                                                                                    ",s7,0
main1:
sett	200
setl	9,1	
setrts	on	
wait	rx_sign,im_sign,cntl_sign
setl	9,2
case	cntl_sign,test_rx_sign
compc	14,255
jz	overrun
jmp	main1
overrun:
movd	"ERROR Buffer overrun on input CHANNEL 1/n",s7,100
writeb	s7,100,0
jmp	error_main
test_rx_sign:
case	rx_sign,test_im_sign



setrts	off
rds	s7,0      
jz	main1
compc	15,0
jz	read_okay
movd	"ERROR          on input CHANNEL 1/n",s7,100
movc	15,s7,106
writeb	s7,100,0
compc	15,128		
jz	read_okay
jmp	error_main
read_okay:

writeb	s7,0,0	









buffwr s7,0
buffst				



jmp main




test_im_sign:
case	im_sign,default_test
in	s6,100
out	s6,100,c4
movd	"1ERR_CMD/n",s6,100
out	s6,100,c4
anss	s6,100
jmp	main



default_test:
jmp	main






init_b0:
setp	0XD300,0x20	
setp	0XD301,0x00		

setp	0Xd302,0x40	
setp	0XD303,0x00		

setp	0Xd304,0x40	
setp	0XD305,0x00		

setp	0Xd306,0x20	
setp	0XD307,0x00		

setp	0Xd308,0x40	
setp	0XD309,0x00		

setp	0Xd30A,0x20	
setp	0XD30B,0x00		

setp	0Xd30C,0x40	
setp	0XD30D,0x00		

setp	0XD30E,0x00 	

ret

zzz:
end