.title "iostrb"
        .mmregs
        .def loop_pro
        .def _c_int00
		.ref reset_pro
D_PMST  .usect 	"pmst",1
K_IPTR  .set 	000100000b<<7
K_TEMP  .set 	111111b
K_SUM   .set 	0

spsa0	.set 	38h
spsd0	.set 	39h
spsa1	.set 	48h
spsd1	.set 	49h
data0	.set 	0ffh
datar   .set 	19h		;00+***tongdao+**xinhao+*qiehuan=00***000(00***001qiehuan)
data 	.set 	0ffh
data1 	.usect 	"var",1
        .sect "prog"

_c_int00:
 		LDM		PMST,A
		AND 	#K_TEMP,A
 		OR 		#K_IPTR,A
		STL		A,AR6
		MVDM	AR6,PMST
		rsbx xf
		rsbx sxm
		stm #0000h,	spsa0
		stm #0000h,	spsd0
		stm #0001h,	spsa0
		stm #0000h,	spsd0
		stm #000eh,	spsa0
		stm #2a0ah,	spsd0
		nop
		nop
		stm #0000h,	spsa1
		stm #0000h,	spsd1
		stm #0001h,	spsa1
		stm #0000h,	spsd1
		stm #000eh,	spsa1
		stm #2a08h,	spsd1
		nop
		nop
		nop
		stm #data1,AR1
		st data,*AR1
		PORTW *AR1,6000h
		nop
		nop
		st datar,*AR1
		PORTW *AR1,6000h
loop_pro:
		ld 	#00008000h, b
		st 	#15,BRC
		RPTB end-1
loop1:
		stlm b,data1						
		ld 	#data0,	A
		AND data1,A
		BC N1,ANEQ
N0:
		stm #2a00h,spsd0
		nop
		nop
		stm #2a02h,spsd0
		nop
		nop
		B NEXT1
N1:		
		stm #2a20h,spsd0
		nop
		nop
		stm #2a22h,spsd0
		nop
		nop
NEXT1:
		SFTA b,-1,b
		NOP
		NOP		
end:
		stm #2a00h,spsd1
		nop
		nop
		stm #2a08h,spsd1
		nop
		nop
		stm #2a28h,spsd1
		nop
		nop
		stm #2a08h,spsd1
		nop
		nop
		b loop_pro
		.end