;"asmveri.inc"
;required reg
;WWW1
;CHECK
WAIT41				
	MOVLW	D'12'
	MOVWF	WWW1		
;				
W41	DECFSZ	WWW1		
;				
	GOTO	W41		
;				
;				
	RETURN
;
;
WAIT963				
	MOVLW	D'191'
	MOVWF	WWW1		
;				
W963
	NOP
	NOP
	DECFSZ	WWW1		
;				
	GOTO	W963		
;			
	NOP
	NOP
	NOP	
;				
	RETURN			
		
WAIT995				
	MOVLW	D'247'
	MOVWF	WWW1		
;				
W995
	NOP
	DECFSZ	WWW1		
;				
	GOTO	W995		
;				
	NOP
	NOP
;				
	RETURN			




;
;
LIGHT
	BTFSS	CHECK,7
	GOTO	LIGHT0
	GOTO	LIGHT1

LIGHT0
	NOP
	BTFSS	CHECK,6
	GOTO	LIGHT00
	GOTO	LIGHT01

LIGHT1			
	BTFSS	CHECK,6
	GOTO	LIGHT10
	GOTO	LIGHT11
;
LIGHT00
	NOP
	BTFSS	CHECK,5
	GOTO	LIGHT000
	GOTO	LIGHT001

LIGHT01
	BTFSS	CHECK,5
	GOTO	LIGHT010
	GOTO	LIGHT011

LIGHT10
	NOP
	BTFSS	CHECK,5
	GOTO	LIGHT100
	GOTO	LIGHT101

LIGHT11
	BTFSS	CHECK,5
	GOTO	LIGHT110
	GOTO	LIGHT111
;
LIGHT000
	NOP
	BTFSS	CHECK,4
	GOTO	LIGHT0000
	GOTO	LIGHT0001

LIGHT001
	BTFSS	CHECK,4
	GOTO	LIGHT0010
	GOTO	LIGHT0011

LIGHT010
	NOP
	BTFSS	CHECK,4
	GOTO	LIGHT0100
	GOTO	LIGHT0101

LIGHT011
	BTFSS	CHECK,4
	GOTO	LIGHT0110
	GOTO	LIGHT0111

LIGHT100
	NOP
	BTFSS	CHECK,4
	GOTO	LIGHT1000
	GOTO	LIGHT1001

LIGHT101
	BTFSS	CHECK,4
	GOTO	LIGHT1010
	GOTO	LIGHT1011

LIGHT110
	NOP
	BTFSS	CHECK,4
	GOTO	LIGHT1100
	GOTO	LIGHT1101

LIGHT111
	BTFSS	CHECK,4
	GOTO	LIGHT1110
	GOTO	LIGHT1111
;
LIGHT1110
	NOP
LIGHT1111
	CALL	LNINE
	GOTO	LEND

LIGHT1100
	NOP
LIGHT1101
	CALL	LEIGHT
	GOTO	LEND

LIGHT1010
	NOP
LIGHT1011
	CALL	LSEVEN
	GOTO	LEND

LIGHT1001
	CALL	LSIX
	GOTO	LEND

LIGHT1000
	NOP
	CALL	LFIVE
	GOTO	LEND

LIGHT0111
	CALL	LFOUR
	GOTO	LEND

LIGHT0110
	NOP
	CALL	LTHREE
	GOTO	LEND

LIGHT0100
	NOP
LIGHT0101
	CALL	LTWO
	GOTO	LEND

LIGHT0010
	NOP
LIGHT0011
	CALL	LONE
	GOTO	LEND

LIGHT0000
	NOP
LIGHT0001
	CALL	LZERO
	GOTO	LEND
;
LEND
	RETURN


LZERO
	MOVLW	SA1&SB1&SC1&SD1&SE1&SF1
	MOVWF	PORTA
	MOVLW	SA2&SB2&SC2&SD2&SE2&SF2
	MOVWF	PORTC
	RETURN

LONE
	MOVLW	SB1&SC1
	MOVWF	PORTA
	MOVLW	SB2&SC2
	MOVWF	PORTC
	RETURN

LTWO
	MOVLW	SA1&SB1&SD1&SE1&SG1
	MOVWF	PORTA
	MOVLW	SA2&SB2&SD2&SE2&SG2
	MOVWF	PORTC
	RETURN

LTHREE
	MOVLW	SA1&SB1&SC1&SD1&SG1
	MOVWF	PORTA
	MOVLW	SA2&SB2&SC2&SD2&SG2
	MOVWF	PORTC
	RETURN

LFOUR
	MOVLW	SB1&SC1&SF1&SG1
	MOVWF	PORTA
	MOVLW	SB2&SC2&SF2&SG2
	MOVWF	PORTC
	RETURN

LFIVE
	MOVLW	SA1&SC1&SD1&SF1&SG1
	MOVWF	PORTA
	MOVLW	SA2&SC2&SD2&SF2&SG2
	MOVWF	PORTC
	RETURN

LSIX
	MOVLW	SA1&SC1&SD1&SE1&SF1&SG1
	MOVWF	PORTA
	MOVLW	SA2&SC2&SD2&SE2&SF2&SG2
	MOVWF	PORTC
	RETURN

LSEVEN
	MOVLW	SA1&SB1&SC1&SF1
	MOVWF	PORTA
	MOVLW	SA2&SB2&SC2&SF2
	MOVWF	PORTC
	RETURN

LEIGHT
	MOVLW	SA1&SB1&SC1&SD1&SE1&SF1&SG1
	MOVWF	PORTA
	MOVLW	SA2&SB2&SC2&SD2&SE2&SF2&SG2
	MOVWF	PORTC
	RETURN

LNINE
	MOVLW	SA1&SB1&SC1&SD1&SF1&SG1
	MOVWF	PORTA
	MOVLW	SA2&SB2&SC2&SD2&SF2&SG2
	MOVWF	PORTC
	RETURN

LOFF
	MOVLW	B'11111111'
	MOVWF	PORTA
	MOVLW	B'11111111'
	MOVWF	PORTC
	RETURN