"code complete"
--------------------



DEFINE OSC 4

DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 3
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 2


ASM
ORG 0X0C
CONT RES 2

BSF STATUS,5
movlw 00000b
MOVWF TRISA
MOVLW 00000000B
MOVWF TRISB
BCF STATUS,5

BSF PORTA,0
CALL DELAY
BCF PORTA,0
CALL DELAY

DELAY

D1 DECFSZ CONT,1
GOTO D1
D2 DECFSZ CONT+1,1
GOTO D2
RETURN
END

ENDASM

IF (PORTA.0 = 1) THEN LIGHT
IF (PORTA.0 = 0) THEN NO_LIGHT


LIGHT:
LCDOUT $FE,1,"LIGHT"

NO_LIGHT:
LCDOUT $FE,1,"NO_LIGHT"