.mmregs
	.global	_Start
	.global _DAout
	;.global _delayb
	
	.text
_Start:
	stm	  1000h,ar1  ;define the address 1000h

;start palse  00h=0v 	
	st		0ffh,*ar1
	portw	*ar1,800bh 
	nop

startdelay: 
	stm 	8000h,ar2

loopstart:
	banz 	loopstart,*ar2-
	nop
	ret
	nop
	
_DAout:

loop:	
;positive pulse  +5v  
	st		00ffh,*ar1
	portw	*ar1,800bh 
	nop   
delay: 
	mvdm 	0x1002,ar4
	nop
loop1:
   	nop
	nop					; set break point here, motor in low speed
	banz 	loop1,*ar4-
	nop
	nop

;reverse pulse  0v
	st		0000h,*ar1
	portw	*ar1,800bh 
	nop    
delayb: 
	mvdm 	0x1004,ar5
	nop
loopb1:
	nop
	nop					; set break point here, motor in high speed
	banz 	loopb1,*ar5-
	nop
	nop
	ret
    nop
    nop
    .end