D250mU	EQU 5
D250mH	EQU 56		
D250mL	EQU 254		
D15mH 	EQU 17		
D15mL	EQU 250		
LCD_DATA	EQU PORTT		
LCD_CTRL	EQU PORTB		
RS	EQU mPORTB_BIT5	
RW	EQU mPORTB_BIT6	
EN	EQU mPORTB_BIT7	
DR250mU	DS.B 1
DR250mH	DS.B 1			
DR250mL	DS.B 1
DR15mH	DS.B 1			
DR15mL	DS.B 1
  	LDS   #RAMEnd+1	
  	LDAA  #$FF
	STAA  DDRT		
	STAA	DDRB		
	JSR	LDELAY	
	LDAA	#$38		
	JSR	COMNWRT	
	JSR	LDELAY	
	LDAA	#$0E     	
	JSR	COMNWRT	
	JSR	DELAY	
	LDAA	#$01     	
	JSR	COMNWRT	
	JSR	DELAY	
	LDAA	#$06     	
	JSR	COMNWRT	
	JSR	DELAY	
	LDAA	#$84     	
	JSR	COMNWRT	
	JSR	DELAY	
	LDAA	#'N'     	
	JSR	DATAWRT	
	JSR	DELAY	
	LDAA	#'O'     	
	JSR	DATAWRT  	
AGAIN:
	BRA	AGAIN	
COMNWRT:            		
	STAA	LCD_DATA		
	BCLR	LCD_CTRL,RS 	
	BCLR	LCD_CTRL,RW 	
	BSET	LCD_CTRL,EN 	
	NOP				
	BCLR	LCD_CTRL,EN 	
	RTS
DATAWRT:               		
	STAA	LCD_DATA 		
	BSET	LCD_CTRL,RS	
	BCLR	LCD_CTRL,RW	
	BSET	LCD_CTRL,EN	
	NOP				
	BCLR	LCD_CTRL,EN	
	RTS
DELAY: 	LDAA	#D15mH 		
 	STAA	DR15mH 		
D2:	LDAA	#D15mL		
	STAA	DR15mL		
D1: 	DEC 	DR15mL	
     	BNE	D1
	DEC 	DR15mH		
	BNE	D2
    	RTS
LDELAY:	LDAA	#D250mU	
  	STAA	DR250mU		
DL3:  	LDAA	#D250mH		
 	STAA	DR250mH		
DL2:	LDAA	#D250mL		
	STAA	DR250mL		
DL1: 	DEC 	DR250mL	
     	BNE	DL1
	DEC 	DR250mH
	BNE	DL2
	DEC DR250mU
	BNE DL3
    	RTS