.mmregs
	.global	_main
	.text
dm1:	ssbx	xf
    	call 	delay
    	rsbx	xf
	call 	delay
    	
   	        stm #01h,ar4
		portw ar4,00h
		call delay
		stm #02h,ar4
		portw ar4,00h
		call delay
		stm #04h,ar4
		portw ar4,00h
		call delay
		stm #10h,ar4
		portw ar4,00h
		call delay
		stm #20h,ar4
		portw ar4,00h
		call delay
		stm #40h,ar4
		portw ar4,00h
		call delay
		stm #80h,ar4
		portw ar4,00h
		call delay
		stm #07h,ar4
		portw ar4,00h
		call delay
		stm #0f0h,ar4
		portw ar4,00h
		b dm1


delay: 
	stm 	#1400h,ar6
loop1:              
	stm 	#0f9h,ar7
loop2:
	banz 	loop2,*ar7-
	banz 	loop1,*ar6-
	ret
	nop
	nop
	.word 0000h
	nop
_main:	;STM #0,CLKMD
clkcon: stm #2000h,sp
       stm  5000h,ar5
       STM #0x7FFF,SWWSR
       stm #00ffh,*ar5
       ;portw *ar5,00h
        nop
;;;;;flash clear chip Erase
_FLASH STM #0XD555,AR0
       STM #0XAAAA,AR1
	   nop
	   nop
	ST #00aaH,*AR0
	ST #0055H,*AR1
	st #0080h,*ar0
	ST #00aaH,*AR0
    ST #0055H,*AR1
	ST #0010H,*AR0
hhhh   call delay
yyyy    nop
    stm #0ffffh,ar5;;
    ST #00aaH,*AR0
	ST #0055H,*AR1
	st #00a0h,*ar0
	st #0000h,*ar5
	call xys
	stm #0fffeh,ar5;;
    ST #00aaH,*AR0
	ST #0055H,*AR1
	st #00a0h,*ar0
	st #0080h,*ar5
	call xys
	nop
	nop
    stm #8000h,ar5
   
    stm #dm,ar2;;xie nei rong
    stm #7,ar3;;;;xie zi shu
    call lpp;;;;xie
    
    stm #dm1,ar2;;;;xie nei rong
    stm #72,ar3;;;xie zi shu
    call lpp;;;;xie
    nop
    nop
    b dm1
lpp:ld *ar2+,0,a
     ld a,-8,b
     and #00ffh,b
;;;;;;;;;;;;;;;;;;;;
     ST #00aaH,*AR0
	 ST #0055H,*AR1
     st #00a0h,*ar0
     
     stl b,*ar5+
     call xys
;;;;;;;;;;;;;;;;;
     and #00ffh,a
     ST #00aaH,*AR0
	 ST #0055H,*AR1
     st #00a0h,*ar0
     
     stl a,*ar5+
     call xys
     banz lpp,*ar3-
     ret
     nop
     nop
dm 
  .word 08aah,7fffh,0f800h,0000h,0080h,0047h,0000h,0080h
 
xys: 
	stm 	20h,ar6
lop1:              
	stm 	0f9h,ar7
lop2:
	banz 	lop2,*ar7-
	banz 	lop1,*ar6-
	ret
    .end