Entry:LDS   #RAMEnd+1       
	BSET	DDRB,%11111111 
	MOVB	#$80,ATD0CTL2  
	JSR	DELAY20uS	
	MOVB	#$08,ATD0CTL3
	MOVB	#$E3,ATD0CTL4
H1 	MOVB	#$82,ATD0CTL5	
H2	BRCLR ATD0STAT0,mATD0STAT0_SCF,H2
	LDAA	ATD0DR0L		 
	STAA	PORTB		 	 
	JSR   TDELAY		 
DELAY20uS:	
	LDAB #40
D1	DECB
	BNE D1
	RTS
TDELAY: 
	LDD #$0000		
D2	DECB
	BNE D2
	DECA
	BNE D2
	RTS