#INCLUDE list p=16f877a __CONFIG _CP_OFF & _WDT_OFF & _HS_OSC & _LVP_OFF errorlevel -302 ;-------B0 B1 B2 B3----------- ;-------B4 B5 B6 B7----------- ;-------D0 D1 D2 D3----------- ;-------D4 D5 D6 D7----------- cblock 0x20 Delay1 Delay2 Delay3 TimeDelay EndCount Counter ;----------SZINTEK-------- B1LI ;B PORT 1-2-3-4 D1LI ;B PORT 4-5-6-7 ;------------------------- B2LI D2LI ;------------------------- B3LI D3LI ;------------------------- B4LI D4LI ;------------------------- KESLTET ;FENYERO Time Temp d1 d2 endc org 0 goto Start Output ;---------ANIMÁCIÓ KÉSLELTETÉS--------------- movfw KESLTET andlw b'00000011' ;0-1-2 BIT VARIÁLÁSA. movwf Time incf Time,1 bcf STATUS,C rlf Time,1 bcf STATUS,C rlf Time,1 bcf STATUS,C rlf Time,1 bcf STATUS,C rlf Time,1 Output2 ; --- ELSŐ SZINT --- clrf PORTC ; SZINTEKET VEZÉRLŐ PORT TÖRLÉSE movfw B1LI ; MINTÁT TARTALMAZÓ TÖMB( 0-1-2-3 )BIT movwf PORTB ; KI A B PORTRA MOVFW D1LI ; MINTÁT TARTALMAZÓ TÖMB( 0-1-2-3 )BIT MOVWF PORTD ; KI A D PORTRA BSF PORTC,0 ; ELSŐ SZINT VEZÉRLŐ LÁB BEKAPCSOLÁSA CALL Delay ; --- MÁSODIK SZINT --- clrf PORTC ; SZINTEKET VEZÉRLŐ PORT TÖRLÉSE movfw B2LI ; B PORT 4-5-6-7 BIT INTÁJA movwf PORTB ; KI A B PORTRA MOVFW D2LI ; D PORT 4-5-6-7 BIT MINTA MOVWF PORTD ; KI A D PORTRA BSF PORTC,1 ; MÁSODIK SZINT VEZÉRLŐ LÁB BEKAPCSOLÁSA CALL Delay clrf PORTC movfw B3LI movwf PORTB MOVFW D3LI MOVWF PORTD BSF PORTC,2 CALL Delay clrf PORTC movfw B4LI movwf PORTB MOVFW D4LI MOVWF PORTD BSF PORTC,3 CALL Delay decfsz Time goto Output2 return Delay ;4993 cycles movlw 0xE6 movwf d1 movlw 0x04 movwf d2 Delay_0 decfsz d1, f goto $+2 decfsz d2, f goto Delay_0 ;3 cycles goto $+1 nop ;4 cycles (including call) return ;----------------------------------------- Start: bsf STATUS,5 movlw 0X00 movwf TRISC movwf TRISB MOVWF TRISD bCf STATUS,5 MOVLW D'6' MOVWF ADCON1 MOVLW 0X00 MOVWF PORTC MOVWF PORTD MOVWF PORTB bcf EndCount,0 clrf Counter Loop pagesel KEP_0 CALL KEP_0 pagesel KEP_0 CALL KEP_0 pagesel KEP_0 CALL KEP_0 pagesel KEP_0 CALL KEP_0 pagesel KEP_1 CALL KEP_1 pagesel KEP_1 CALL KEP_1 pagesel KEP_3 CALL KEP_3 pagesel KEP_3 CALL KEP_3 pagesel KEP_4 CALL KEP_4 pagesel KEP_4 CALL KEP_4 pagesel KEP_5 CALL KEP_5 pagesel KEP_5 CALL KEP_5 pagesel KEP_5 CALL KEP_6 pagesel KEP_6 CALL KEP_6 pagesel KEP_7 CALL KEP_7 pagesel KEP_7 CALL KEP_7 pagesel KEP_7 CALL KEP_7 pagesel KEP_8 CALL KEP_8 pagesel KEP_8 CALL KEP_8 pagesel KEP_8 CALL KEP_8 pagesel KEP_9 CALL KEP_9 pagesel KEP_9 CALL KEP_9 pagesel KEP_10 CALL KEP_10 pagesel KEP_10 CALL KEP_10 pagesel KEP_10 CALL KEP_10 pagesel KEP_11 CALL KEP_11 pagesel KEP_11 CALL KEP_11 pagesel KEP_12 CALL KEP_12 pagesel KEP_12 CALL KEP_12 pagesel KEP_12 CALL KEP_12 pagesel KEP_14 CALL KEP_14 pagesel KEP_14 CALL KEP_14 pagesel KEP_14 CALL KEP_14 pagesel KEP_14 CALL KEP_14 pagesel KEP_14 CALL KEP_14 pagesel KEP_14 CALL KEP_14 pagesel KEP_15 CALL KEP_15 pagesel KEP_15 CALL KEP_15 pagesel KEP_15 CALL KEP_15 pagesel KEP_15 CALL KEP_15 pagesel KEP_15 CALL KEP_15 pagesel KEP_15 CALL KEP_15 pagesel KEP_15 CALL KEP_15 pagesel KEP_16 CALL KEP_16 pagesel KEP_16 CALL KEP_16 ;; pagesel loop goto Loop org 0x800 KEP_0 pagesel Output MOVLW B'11111111' MOVWF B1LI MOVLW B'11111111' MOVWF D1LI MOVLW B'11111111' MOVWF B2LI movlw b'11111111' MOVWF D2LI MOVLW B'11111111' MOVWF B3LI MOVLW B'11111111' MOVWF D3LI MOVLW B'11111111' MOVWF B4LI MOVLW B'11111111' MOVWF D4LI CALL Output CLRF B1LI CLRF D1LI CLRF B2LI CLRF D2LI CLRF B3LI CLRF D3LI CLRF B4LI CLRF D4LI CALL Output RETURN KEP_1 pagesel Output CLRF D4LI MOVLW B'11111111' MOVWF B1LI call Output CLRF B1LI MOVLW B'11111111' MOVWF D1LI call Output CLRF D1LI MOVLW B'11111111' MOVWF B2LI call Output CLRF B2LI MOVLW B'11111111' MOVWF D2LI call Output CLRF D2LI MOVLW B'11111111' MOVWF B3LI call Output CLRF B3LI MOVLW B'11111111' MOVWF D3LI call Output CLRF D3LI MOVLW B'11111111' MOVWF B4LI call Output CLRF B4LI MOVLW B'11111111' MOVWF D4LI call Output RETURN KEP_3 pagesel Output CLRF D4LI MOVLW B'00001111' MOVWF B1LI MOVLW B'00001000' CALL Output CLRF B1LI MOVLW B'00001111' MOVWF B2LI CALL Output CLRF B2LI MOVLW B'00001111' MOVWF B3LI call Output CLRF B3LI MOVLW B'00001111' MOVWF B4LI CALL Output CLRF B4LI MOVLW B'11110000' MOVWF B4LI CALL Output CLRF B4LI MOVLW B'00001111' MOVWF D4LI CALL Output MOVLW B'11110000' MOVWF D4LI CALL Output CLRF D4LI MOVLW B'11110000' MOVWF D3LI CALL Output CLRF D3LI MOVLW B'11110000' MOVWF D2LI CALL Output CLRF D2LI MOVLW B'11110000' MOVWF D1LI CALL Output CLRF D1LI MOVLW B'00001111' MOVWF D1LI CALL Output CLRF D1LI MOVLW B'11110000' MOVWF B1LI CALL Output RETURN KEP_4 pagesel Output CLRF B1LI MOVLW B'00110000' MOVWF D1LI MOVLW B'01100000' MOVWF D2LI MOVLW B'11000000' MOVWF D3LI MOVLW B'10001000' MOVWF D4LI CALL Output MOVLW B'01100000' MOVWF D1LI MOVLW B'11000000' MOVWF D2LI MOVLW B'10001000' MOVWF D3LI MOVLW B'00001000' MOVWF D4LI MOVLW B'10000000' MOVWF B4LI CALL Output MOVLW B'11000000' MOVWF D1LI MOVLW B'10001000' MOVWF D2LI MOVLW B'00001000' MOVWF D3LI MOVLW B'10000000' MOVWF B3LI MOVLW B'10001000' MOVWF B4LI CLRF D4LI CALL Output MOVLW B'10001000' MOVWF D1LI MOVLW B'00001000' MOVWF D2LI MOVLW B'10000000' MOVWF B2LI MOVLW B'10001000' MOVWF B3LI CLRF D3LI MOVLW B'00001100' MOVWF B4LI CALL Output MOVLW B'00001000' MOVWF D1LI MOVLW B'10000000' MOVWF B1LI CLRF D2LI MOVLW B'10001000' MOVWF B2LI MOVLW B'00001100' MOVWF B3LI MOVLW B'00000110' MOVWF B4LI CALL Output MOVLW B'10001000' MOVWF B1LI CLRF D1LI MOVLW B'00001100' MOVWF B2LI MOVLW B'00000110' MOVWF B3LI MOVLW B'00000011' MOVWF B4LI CALL Output MOVLW B'00001100' MOVWF B1LI MOVLW B'00000110' MOVWF B2LI MOVLW B'00000011' MOVWF B3LI MOVLW B'00010001' MOVWF B4LI CALL Output MOVLW B'00000110' MOVWF B1LI MOVLW B'00000011' MOVWF B2LI MOVLW B'00010001' MOVWF B3LI MOVLW B'00010000' MOVWF B4LI MOVLW B'00000001' MOVWF D4LI CALL Output MOVLW B'00000011' MOVWF B1LI MOVLW B'00010001' MOVWF B2LI MOVLW B'00010000' MOVWF B3LI MOVLW B'00000001' MOVWF D3LI CLRF B4LI MOVLW B'00010001' MOVWF D4LI CALL Output MOVLW B'00010001' MOVWF B1LI MOVLW B'00010000' MOVWF B2LI MOVLW B'00000001' MOVWF D2LI CLRF B3LI MOVLW B'00010001' MOVWF D3LI MOVLW B'00110000' MOVWF D4LI CALL Output MOVLW B'00010000' MOVWF B1LI MOVLW B'00000001' MOVWF D1LI CLRF B2LI MOVLW B'00010001' MOVWF D2LI MOVLW B'00110000' MOVWF D3LI MOVLW B'01100000' MOVWF D4LI CALL Output CLRF B1LI MOVLW B'00010001' MOVWF D1LI MOVLW B'00110000' MOVWF D2LI MOVLW B'01100000' MOVWF D3LI MOVLW B'11000000' MOVWF D4LI CALL Output RETURN KEP_5 pagesel Output ;--------------1 MOVLW B'00011111' MOVWF B1LI MOVWF B2LI MOVWF B3LI MOVWF B4LI MOVLW B'00010001' MOVWF D1LI MOVWF D2LI MOVWF D3LI MOVWF D4LI CALL Output ;------------------2 MOVLW B'11110010' MOVWF B1LI MOVWF B2LI MOVWF B3LI MOVWF B4LI MOVLW B'00100010' MOVWF D1LI MOVWF D2LI MOVWF D3LI MOVWF D4LI CALL Output ;---------------------3 MOVLW B'01000100' MOVWF B1LI MOVWF B2LI MOVWF B3LI MOVWF B4LI MOVLW B'01001111' MOVWF D1LI MOVWF D2LI MOVWF D3LI MOVWF D4LI CALL Output ;-----------------4 MOVLW B'10001000' MOVWF B1LI MOVWF B2LI MOVWF B3LI MOVWF B4LI MOVLW B'11111000' MOVWF D1LI MOVWF D2LI MOVWF D3LI MOVWF D4LI CALL Output MOVLW B'01000100' MOVWF B1LI MOVWF B2LI MOVWF B3LI MOVWF B4LI MOVLW B'01001111' MOVWF D1LI MOVWF D2LI MOVWF D3LI MOVWF D4LI CALL Output MOVLW B'11110010' MOVWF B1LI MOVWF B2LI MOVWF B3LI MOVWF B4LI MOVLW B'00100010' MOVWF D1LI MOVWF D2LI MOVWF D3LI MOVWF D4LI CALL Output RETURN KEP_6 pagesel Output CLRF B4LI MOVLW B'00010001' MOVWF D4LI CLRF B3LI MOVLW B'00110000' MOVWF D3LI CLRF B2LI MOVLW B'01100000' MOVWF D2LI CLRF B1LI MOVLW B'11000000' MOVWF D1LI CALL Output MOVLW B'00010000' MOVWF B4LI MOVLW B'00000001' MOVWF D4LI CLRF B3LI MOVLW B'00010001' MOVWF D3LI CLRF B2LI MOVLW B'00110000' MOVWF D2LI CLRF B1LI MOVLW B'01100000' MOVWF D1LI CALL Output MOVLW B'00010001' MOVWF B4LI CLRF D4LI MOVLW B'00010000' MOVWF B3LI MOVLW B'00000001' MOVWF D3LI CLRF B2LI MOVLW B'00010001' MOVWF D2LI CLRF B1LI MOVLW B'00110000' MOVWF D1LI CALL Output MOVLW B'00000011' MOVWF B4LI CLRF D4LI MOVLW B'00010001' MOVWF B3LI CLRF D3LI MOVLW B'00010000' MOVWF B2LI MOVLW B'00000001' MOVWF D2LI CLRF B1LI MOVLW B'00010001' MOVWF D1LI CALL Output MOVLW B'00000110' MOVWF B4LI CLRF D4LI MOVLW B'00000011' MOVWF B3LI CLRF D3LI MOVLW B'00010001' MOVWF B2LI CLRF D2LI MOVLW B'00010000' MOVWF B1LI MOVLW B'00000001' MOVWF D1LI CALL Output MOVLW B'00001100' MOVWF B4LI CLRF D4LI MOVLW B'00000110' MOVWF B3LI CLRF D3LI MOVLW B'00000011' MOVWF B2LI CLRF D2LI MOVLW B'00010001' MOVWF B1LI CLRF D1LI CALL Output MOVLW B'10001000' MOVWF B4LI CLRF D4LI MOVLW B'00001100' MOVWF B3LI CLRF D3LI MOVLW B'00000110' MOVWF B2LI CLRF D2LI MOVLW B'00000011' MOVWF B1LI CLRF D1LI CALL Output MOVLW B'10000000' MOVWF B4LI MOVLW B'00001000' MOVWF D4LI MOVLW B'10001000' CLRF D3LI MOVLW B'00001100' MOVWF B2LI CLRF D2LI MOVLW B'00000110' MOVWF B1LI CLRF D1LI CALL Output CLRF B4LI MOVLW B'10001000' MOVWF D4LI MOVLW B'10000000' MOVWF B3LI MOVLW B'00001000' MOVWF D3LI MOVLW B'10001000' MOVWF B2LI CLRF D2LI MOVLW B'00001100' MOVWF B1LI CLRF D1LI CALL Output CLRF B4LI MOVLW B'11000000' MOVWF D4LI CLRF B3LI MOVLW B'10001000' MOVWF D3LI MOVLW B'10000000' MOVWF B2LI MOVLW B'00001000' MOVWF D2LI MOVLW B'10001000' MOVWF B1LI CLRF D1LI CALL Output CLRF B4LI MOVLW B'01100000' MOVWF D4LI CLRF B3LI MOVLW B'11000000' MOVWF D3LI CLRF B2LI MOVLW B'10001000' MOVWF D2LI MOVLW B'10000000' MOVWF B1LI MOVLW B'00001000' MOVWF D1LI CALL Output RETURN KEP_7 pagesel Output MOVLW B'10011111' MOVWF B4LI MOVLW B'11111001' MOVWF D4LI MOVLW B'00001001' MOVWF B3LI MOVLW B'10010000' MOVWF D3LI MOVLW B'00001001' MOVWF B2LI MOVLW B'10010000' MOVWF D2LI MOVLW B'10011111' MOVWF B1LI MOVLW B'11111001' MOVWF D1LI CALL Output MOVLW B'10011111' MOVWF B4LI MOVLW B'11111001' MOVWF D4LI MOVLW B'00010100' MOVWF B3LI MOVLW B'00101000' MOVWF D3LI MOVLW B'00010100' MOVWF B2LI MOVLW B'00101000' MOVWF D2LI MOVLW B'10011111' MOVWF B1LI MOVLW B'11111001' MOVWF D1LI CALL Output MOVLW B'10011111' MOVWF B4LI MOVLW B'11111001' MOVWF D4LI MOVLW B'10000010' MOVWF B3LI MOVLW B'01000001' MOVWF D3LI MOVLW B'10000010' MOVWF B2LI MOVLW B'01000001' MOVWF D2LI MOVLW B'10011111' MOVWF B1LI MOVLW B'11111001' MOVWF D1LI CALL Output RETURN KEP_8 pagesel Output MOVLW B'10011111' MOVWF B4LI MOVLW B'11111001' MOVWF D4LI MOVLW B'00001001' MOVWF B3LI MOVLW B'10010000' MOVWF D3LI MOVLW B'00001001' MOVWF B2LI MOVLW B'10010000' MOVWF D2LI MOVLW B'10011111' MOVWF B1LI MOVLW B'11111001' MOVWF D1LI CALL Output MOVLW B'10011001' MOVWF B4LI MOVLW B'10011111' MOVWF D4LI MOVLW B'00001111' MOVWF B3LI MOVLW B'10010000' MOVWF D3LI MOVLW B'00001001' MOVWF B2LI MOVLW B'11110000' MOVWF D2LI MOVLW B'11111001' MOVWF B1LI MOVLW B'10011001' MOVWF D1LI CALL Output MOVLW B'11111001' MOVWF B4LI MOVLW B'10011001' MOVWF D4LI MOVLW B'00001001' MOVWF B3LI MOVLW B'11110000' MOVWF D3LI MOVLW B'00001111' MOVWF B2LI MOVLW B'10010000' MOVWF D2LI MOVLW B'10011001' MOVWF B1LI MOVLW B'10011111' MOVWF D1LI CALL Output RETURN KEP_9 pagesel Output MOVLW B'00101111' MOVWF B4LI MOVLW B'11110010' MOVWF D4LI MOVLW B'10001001' MOVWF B3LI MOVLW B'10011000' MOVWF D3LI MOVLW B'00011001' MOVWF B2LI MOVLW B'10010001' MOVWF D2LI MOVLW B'01001111' MOVWF B1LI MOVLW B'11110100' MOVWF D1LI CALL Output MOVLW B'01001111' MOVWF B4LI MOVLW B'11110100' MOVWF D4LI MOVLW B'00011001' MOVWF B3LI MOVLW B'10010001' MOVWF D3LI MOVLW B'10001001' MOVWF B2LI MOVLW B'10011000' MOVWF D2LI MOVLW B'00101111' MOVWF B1LI MOVLW B'11110010' MOVWF D1LI CALL Output MOVLW B'10011111' MOVWF B4LI MOVLW B'11111001' MOVWF D4LI MOVLW B'00001001' MOVWF B3LI MOVLW B'10010000' MOVWF D3LI MOVLW B'00001001' MOVWF B2LI MOVLW B'10010000' MOVWF D2LI MOVLW B'10011111' MOVWF B1LI MOVLW B'11111001' MOVWF D1LI CALL Output RETURN KEP_10 pagesel Output ;------1 MOVLW B'10001000' MOVWF B4LI MOVLW B'10001000' MOVWF D4LI MOVLW B'10001000' MOVWF B3LI MOVLW B'10001000' MOVWF D3LI MOVLW B'10001000' MOVWF B2LI MOVLW B'10001000' MOVWF D2LI MOVLW B'10001000' MOVWF B1LI MOVLW B'10001000' MOVWF D1LI CALL Output ;-----------2 MOVLW B'01000100' MOVWF B4LI MOVLW B'01000100' MOVWF D4LI MOVLW B'01000100' MOVWF B3LI MOVLW B'01000100' MOVWF D3LI MOVLW B'01000100' MOVWF B2LI MOVLW B'01000100' MOVWF D2LI MOVLW B'01000100' MOVWF B1LI MOVLW B'01000100' MOVWF D1LI CALL Output ;-------3 MOVLW B'00100010' MOVWF B4LI MOVLW B'00100010' MOVWF D4LI MOVLW B'00100010' MOVWF B3LI MOVLW B'00100010' MOVWF D3LI MOVLW B'00100010' MOVWF B2LI MOVLW B'00100010' MOVWF D2LI MOVLW B'00100010' MOVWF B1LI MOVLW B'00100010' MOVWF D1LI CALL Output ;--------------4 MOVLW B'00010001' MOVWF B4LI MOVLW B'00010001' MOVWF D4LI MOVLW B'00010001' MOVWF B3LI MOVLW B'00010001' MOVWF D3LI MOVLW B'00010001' MOVWF B2LI MOVLW B'00010001' MOVWF D2LI MOVLW B'00010001' MOVWF B1LI MOVLW B'00010001' MOVWF D1LI CALL Output MOVLW B'00100010' MOVWF B4LI MOVLW B'00100010' MOVWF D4LI MOVLW B'00100010' MOVWF B3LI MOVLW B'00100010' MOVWF D3LI MOVLW B'00100010' MOVWF B2LI MOVLW B'00100010' MOVWF D2LI MOVLW B'00100010' MOVWF B1LI MOVLW B'00100010' MOVWF D1LI CALL Output MOVLW B'01000100' MOVWF B4LI MOVLW B'01000100' MOVWF D4LI MOVLW B'01000100' MOVWF B3LI MOVLW B'01000100' MOVWF D3LI MOVLW B'01000100' MOVWF B2LI MOVLW B'01000100' MOVWF D2LI MOVLW B'01000100' MOVWF B1LI MOVLW B'01000100' MOVWF D1LI CALL Output RETURN KEP_11 pagesel Output MOVLW 0X00 MOVWF B4LI MOVLW 0X80 MOVWF D4LI MOVLW 0X00 MOVWF B3LI MOVLW 0X80 MOVWF D3LI MOVLW 0X00 MOVWF B2LI MOVLW 0X80 MOVWF D2LI MOVLW 0X00 MOVWF B1LI MOVLW 0X80 MOVWF D1LI CALL Output MOVLW 0X00 MOVWF B4LI MOVLW 0X88 MOVWF D4LI MOVLW 0X00 MOVWF B3LI MOVLW 0X88 MOVWF D3LI MOVLW 0X00 MOVWF B2LI MOVLW 0X88 MOVWF D2LI MOVLW 0X00 MOVWF B1LI MOVLW 0X88 MOVWF D1LI CALL Output MOVLW 0X80 MOVWF B4LI MOVLW 0X88 MOVWF D4LI MOVLW 0X80 MOVWF B3LI MOVLW 0X88 MOVWF D3LI MOVLW 0X80 MOVWF B2LI MOVLW 0X88 MOVWF D2LI MOVLW 0X80 MOVWF B1LI MOVLW 0X88 MOVWF D1LI CALL Output MOVLW 0X88 MOVWF B4LI MOVLW 0X88 MOVWF D4LI MOVLW 0X88 MOVWF B3LI MOVLW 0X88 MOVWF D3LI MOVLW 0X88 MOVWF B2LI MOVLW 0X88 MOVWF D2LI MOVLW 0X88 MOVWF B1LI MOVLW 0X88 MOVWF D1LI CALL Output MOVLW 0X8C MOVWF B4LI MOVLW 0X88 MOVWF D4LI MOVLW 0X8C MOVWF B3LI MOVLW 0X88 MOVWF D3LI MOVLW 0X8C MOVWF B2LI MOVLW 0X88 MOVWF D2LI MOVLW 0X8C MOVWF B1LI MOVLW 0X88 MOVWF D1LI CALL Output MOVLW 0X8E MOVWF B4LI MOVLW 0X88 MOVWF D4LI MOVLW 0X8E MOVWF B3LI MOVLW 0X88 MOVWF D3LI MOVLW 0X8E MOVWF B2LI MOVLW 0X88 MOVWF D2LI MOVLW 0X8E MOVWF B1LI MOVLW 0X88 MOVWF D1LI CALL Output MOVLW 0X8F MOVWF B4LI MOVLW 0X88 MOVWF D4LI MOVLW 0X8F MOVWF B3LI MOVLW 0X88 MOVWF D3LI MOVLW 0X8F MOVWF B2LI MOVLW 0X88 MOVWF D2LI MOVLW 0X8F MOVWF B1LI MOVLW 0X88 MOVWF D1LI CALL Output MOVLW 0X9F MOVWF B4LI MOVLW 0X88 MOVWF D4LI MOVLW 0X9F MOVWF B3LI MOVLW 0X88 MOVWF D3LI MOVLW 0X9F MOVWF B2LI MOVLW 0X88 MOVWF D2LI MOVLW 0X9F MOVWF B1LI MOVLW 0X88 MOVWF D1LI CALL Output MOVLW 0X9F MOVWF B4LI MOVLW 0X89 MOVWF D4LI MOVLW 0X9F MOVWF B3LI MOVLW 0X89 MOVWF D3LI MOVLW 0X9F MOVWF B2LI MOVLW 0X89 MOVWF D2LI MOVLW 0X9F MOVWF B1LI MOVLW 0X89 MOVWF D1LI CALL Output MOVLW 0X9F MOVWF B4LI MOVLW 0X99 MOVWF D4LI MOVLW 0X9F MOVWF B3LI MOVLW 0X99 MOVWF D3LI MOVLW 0X9F MOVWF B2LI MOVLW 0X99 MOVWF D2LI MOVLW 0X9F MOVWF B1LI MOVLW 0X99 MOVWF D1LI CALL Output MOVLW 0X9F MOVWF B4LI MOVLW 0XB9 MOVWF D4LI MOVLW 0X9F MOVWF B3LI MOVLW 0XB9 MOVWF D3LI MOVLW 0X9F MOVWF B2LI MOVLW 0XB9 MOVWF D2LI MOVLW 0X9F MOVWF B1LI MOVLW 0XB9 MOVWF D1LI CALL Output MOVLW 0X9F MOVWF B4LI MOVLW 0XF9 MOVWF D4LI MOVLW 0X9F MOVWF B3LI MOVLW 0XF9 MOVWF D3LI MOVLW 0X9F MOVWF B2LI MOVLW 0XF9 MOVWF D2LI MOVLW 0X9F MOVWF B1LI MOVLW 0XF9 MOVWF D1LI CALL Output ;----------- MOVLW 0X9F MOVWF B4LI MOVLW 0XFD MOVWF D4LI MOVLW 0X9F MOVWF B3LI MOVLW 0XFD MOVWF D3LI MOVLW 0X9F MOVWF B2LI MOVLW 0XFD MOVWF D2LI MOVLW 0X9F MOVWF B1LI MOVLW 0XFD MOVWF D1LI CALL Output MOVLW 0XDF MOVWF B4LI MOVLW 0XFD MOVWF D4LI MOVLW 0XDF MOVWF B3LI MOVLW 0XFD MOVWF D3LI MOVLW 0XDF MOVWF B2LI MOVLW 0XFD MOVWF D2LI MOVLW 0XDF MOVWF B1LI MOVLW 0XFD MOVWF D1LI CALL Output MOVLW 0XFF MOVWF B4LI MOVLW 0XFD MOVWF D4LI MOVLW 0XFF MOVWF B3LI MOVLW 0XFD MOVWF D3LI MOVLW 0XFF MOVWF B2LI MOVLW 0XFD MOVWF D2LI MOVLW 0XFF MOVWF B1LI MOVLW 0XFD MOVWF D1LI CALL Output MOVLW 0XFF MOVWF B4LI MOVLW 0XFF MOVWF D4LI MOVLW 0XFF MOVWF B3LI MOVLW 0XFF MOVWF D3LI MOVLW 0XFF MOVWF B2LI MOVLW 0XFF MOVWF D2LI MOVLW 0XFF MOVWF B1LI MOVLW 0XFF MOVWF D1LI CALL Output ;------- MOVLW 0XFF MOVWF B4LI MOVLW 0X7F MOVWF D4LI MOVLW 0XFF MOVWF B3LI MOVLW 0X7F MOVWF D3LI MOVLW 0XFF MOVWF B2LI MOVLW 0X7F MOVWF D2LI MOVLW 0XFF MOVWF B1LI MOVLW 0X7F MOVWF D1LI CALL Output MOVLW 0XFF MOVWF B4LI MOVLW 0X77 MOVWF D4LI MOVLW 0XFF MOVWF B3LI MOVLW 0X77 MOVWF D3LI MOVLW 0XFF MOVWF B2LI MOVLW 0X77 MOVWF D2LI MOVLW 0XFF MOVWF B1LI MOVLW 0X77 MOVWF D1LI CALL Output MOVLW 0X7F MOVWF B4LI MOVLW 0X77 MOVWF D4LI MOVLW 0X7F MOVWF B3LI MOVLW 0X77 MOVWF D3LI MOVLW 0X7F MOVWF B2LI MOVLW 0X77 MOVWF D2LI MOVLW 0X7F MOVWF B1LI MOVLW 0X77 MOVWF D1LI CALL Output MOVLW 0X77 MOVWF B4LI MOVLW 0X77 MOVWF D4LI MOVLW 0X77 MOVWF B3LI MOVLW 0X77 MOVWF D3LI MOVLW 0X77 MOVWF B2LI MOVLW 0X77 MOVWF D2LI MOVLW 0X77 MOVWF B1LI MOVLW 0X77 MOVWF D1LI CALL Output MOVLW 0X73 MOVWF B4LI MOVLW 0X77 MOVWF D4LI MOVLW 0X73 MOVWF B3LI MOVLW 0X77 MOVWF D3LI MOVLW 0X73 MOVWF B2LI MOVLW 0X77 MOVWF D2LI MOVLW 0X73 MOVWF B1LI MOVLW 0X77 MOVWF D1LI CALL Output MOVLW 0X71 MOVWF B4LI MOVLW 0X77 MOVWF D4LI MOVLW 0X71 MOVWF B3LI MOVLW 0X77 MOVWF D3LI MOVLW 0X71 MOVWF B2LI MOVLW 0X77 MOVWF D2LI MOVLW 0X71 MOVWF B1LI MOVLW 0X77 MOVWF D1LI CALL Output MOVLW 0X70 MOVWF B4LI MOVLW 0X77 MOVWF D4LI MOVLW 0X70 MOVWF B3LI MOVLW 0X77 MOVWF D3LI MOVLW 0X70 MOVWF B2LI MOVLW 0X77 MOVWF D2LI MOVLW 0X70 MOVWF B1LI MOVLW 0X77 MOVWF D1LI CALL Output MOVLW 0X60 MOVWF B4LI MOVLW 0X77 MOVWF D4LI MOVLW 0X60 MOVWF B3LI MOVLW 0X77 MOVWF D3LI MOVLW 0X60 MOVWF B2LI MOVLW 0X77 MOVWF D2LI MOVLW 0X60 MOVWF B1LI MOVLW 0X77 MOVWF D1LI CALL Output MOVLW 0X60 MOVWF B4LI MOVLW 0X76 MOVWF D4LI MOVLW 0X60 MOVWF B3LI MOVLW 0X76 MOVWF D3LI MOVLW 0X60 MOVWF B2LI MOVLW 0X76 MOVWF D2LI MOVLW 0X60 MOVWF B1LI MOVLW 0X76 MOVWF D1LI CALL Output MOVLW 0X60 MOVWF B4LI MOVLW 0X66 MOVWF D4LI MOVLW 0X60 MOVWF B3LI MOVLW 0X66 MOVWF D3LI MOVLW 0X60 MOVWF B2LI MOVLW 0X66 MOVWF D2LI MOVLW 0X60 MOVWF B1LI MOVLW 0X66 MOVWF D1LI CALL Output MOVLW 0X60 MOVWF B4LI MOVLW 0X46 MOVWF D4LI MOVLW 0X60 MOVWF B3LI MOVLW 0X46 MOVWF D3LI MOVLW 0X60 MOVWF B2LI MOVLW 0X46 MOVWF D2LI MOVLW 0X60 MOVWF B1LI MOVLW 0X46 MOVWF D1LI CALL Output MOVLW 0X60 MOVWF B4LI MOVLW 0X06 MOVWF D4LI MOVLW 0X60 MOVWF B3LI MOVLW 0X06 MOVWF D3LI MOVLW 0X60 MOVWF B2LI MOVLW 0X06 MOVWF D2LI MOVLW 0X60 MOVWF B1LI MOVLW 0X06 MOVWF D1LI CALL Output MOVLW 0X60 MOVWF B4LI MOVLW 0X02 MOVWF D4LI MOVLW 0X60 MOVWF B3LI MOVLW 0X02 MOVWF D3LI MOVLW 0X60 MOVWF B2LI MOVLW 0X02 MOVWF D2LI MOVLW 0X60 MOVWF B1LI MOVLW 0X02 MOVWF D1LI CALL Output MOVLW 0X20 MOVWF B4LI MOVLW 0X02 MOVWF D4LI MOVLW 0X20 MOVWF B3LI MOVLW 0X02 MOVWF D3LI MOVLW 0X20 MOVWF B2LI MOVLW 0X02 MOVWF D2LI MOVLW 0X20 MOVWF B1LI MOVLW 0X02 MOVWF D1LI CALL Output MOVLW 0X00 MOVWF B4LI MOVLW 0X02 MOVWF D4LI MOVLW 0X00 MOVWF B3LI MOVLW 0X02 MOVWF D3LI MOVLW 0X00 MOVWF B2LI MOVLW 0X02 MOVWF D2LI MOVLW 0X00 MOVWF B1LI MOVLW 0X02 MOVWF D1LI CALL Output CLRF B4LI CLRF D4LI CLRF B3LI CLRF D3LI CLRF B2LI CLRF D2LI CLRF B1LI CLRF D1LI CALL Output ;---------------------- RETURN KEP_12 pagesel Output CLRF B4LI ;-------- ;-------- MOVLW 0XF0 MOVWF D4LI CLRF B3LI ;-------- ;-------- MOVLW 0X40 MOVWF D3LI CLRF B2LI ;-------- ;-------- MOVLW 0X20 MOVWF D2LI CLRF B1LI ;-------- ;-------- MOVLW 0XF0 MOVWF D1LI CALL Output CLRF B4LI ;-------- ;-------- MOVLW 0XFF MOVWF D4LI CLRF B3LI ;-------- ;-------- MOVLW 0X44 MOVWF D3LI CLRF B2LI ;-------- ;-------- MOVLW 0X22 MOVWF D2LI CLRF B1LI ;-------- ;-------- MOVLW 0XFF MOVWF D1LI CALL Output MOVLW 0XF0 MOVWF B4LI MOVLW 0XFF MOVWF D4LI MOVLW 0X40 MOVWF B3LI MOVLW 0X44 MOVWF D3LI MOVLW 0X20 MOVWF B2LI MOVLW 0X22 MOVWF D2LI MOVLW 0XF0 MOVWF B1LI MOVLW 0XFF MOVWF D1LI CALL Output MOVLW 0XFF MOVWF B4LI MOVLW 0XFF MOVWF D4LI MOVLW 0X44 MOVWF B3LI MOVLW 0X44 MOVWF D3LI MOVLW 0X22 MOVWF B2LI MOVLW 0X22 MOVWF D2LI MOVLW 0XFF MOVWF B1LI MOVLW 0XFF MOVWF D1LI CALL Output MOVLW 0XFF MOVWF B4LI MOVLW 0X0F MOVWF D4LI MOVLW 0X44 MOVWF B3LI MOVLW 0X04 MOVWF D3LI MOVLW 0X22 MOVWF B2LI MOVLW 0X02 MOVWF D2LI MOVLW 0XFF MOVWF B1LI MOVLW 0X0F MOVWF D1LI CALL Output MOVLW 0XFF MOVWF B4LI CLRF D4LI ;-------- ;-------- MOVLW 0X44 MOVWF B3LI CLRF D3LI ;-------- ;-------- MOVLW 0X22 MOVWF B2LI CLRF D2LI ;-------- ;-------- MOVLW 0XFF MOVWF B1LI CLRF D1LI ;-------- ;-------- CALL Output MOVLW 0X0F MOVWF B4LI CLRF D4LI ;-------- ;-------- MOVLW 0X04 MOVWF B3LI CLRF D3LI ;-------- ;-------- MOVLW 0X02 MOVWF B2LI CLRF D2LI ;-------- ;-------- MOVLW 0X0F MOVWF B1LI CLRF D1LI ;-------- ;-------- CALL Output CLRF B4LI ;-------- ;-------- CLRF D4LI ;-------- ;-------- CLRF B3LI ;-------- ;-------- CLRF D3LI ;-------- ;-------- CLRF B2LI ;-------- ;-------- CLRF D2LI ;-------- ;-------- CLRF B1LI ;-------- ;-------- CLRF D1LI ;-------- ;-------- CALL Output RETURN KEP_13 pagesel Output MOVLW 0X08 MOVWF B4LI CLRF D4LI ;-------- ;-------- MOVLW 0X08 MOVWF B3LI CLRF D3LI ;-------- ;-------- MOVLW 0X08 MOVWF B2LI CLRF D2LI ;-------- ;-------- MOVLW 0X08 MOVWF B1LI CLRF D1LI ;-------- ;-------- CALL Output MOVLW 0X8C MOVWF B4LI CLRF D4LI ;-------- ;-------- MOVLW 0X8C MOVWF B3LI CLRF D3LI ;-------- ;-------- MOVLW 0X8C MOVWF B2LI CLRF D2LI ;-------- ;-------- MOVLW 0X8C MOVWF B1LI CLRF D1LI ;-------- ;-------- CALL Output MOVLW 0XCE MOVWF B4LI MOVLW 0X08 MOVWF D4LI MOVLW 0XCE MOVWF B3LI MOVLW 0X08 MOVWF D3LI MOVLW 0XCE MOVWF B2LI MOVLW 0X08 MOVWF D2LI MOVLW 0XCE MOVWF B1LI MOVLW 0X08 MOVWF D1LI CALL Output MOVLW 0XEF MOVWF B4LI MOVLW 0X8C MOVWF D4LI MOVLW 0XEF MOVWF B3LI MOVLW 0X8C MOVWF D3LI MOVLW 0XEF MOVWF B2LI MOVLW 0X8C MOVWF D2LI MOVLW 0XEF MOVWF B1LI MOVLW 0X8C MOVWF D1LI CALL Output MOVLW 0XFF MOVWF B4LI MOVLW 0XCE MOVWF D4LI MOVLW 0XFF MOVWF B3LI MOVLW 0XCE MOVWF D3LI MOVLW 0XFF MOVWF B2LI MOVLW 0XCE MOVWF D2LI MOVLW 0XFF MOVWF B1LI MOVLW 0XCE MOVWF D1LI CALL Output MOVLW 0XFF MOVWF B4LI MOVLW 0XEF MOVWF D4LI MOVLW 0XFF MOVWF B3LI MOVLW 0XEF MOVWF D3LI MOVLW 0XFF MOVWF B2LI MOVLW 0XEF MOVWF D2LI MOVLW 0XFF MOVWF B1LI MOVLW 0XEF MOVWF D1LI CALL Output MOVLW 0XFF MOVWF B4LI MOVLW 0XFF MOVWF D4LI MOVLW 0XFF MOVWF B3LI MOVLW 0XFF MOVWF D3LI MOVLW 0XFF MOVWF B2LI MOVLW 0XFF MOVWF D2LI MOVLW 0XFF MOVWF B1LI MOVLW 0XFF MOVWF D1LI CALL Output MOVLW 0XF7 MOVWF B4LI MOVLW 0XFF MOVWF D4LI MOVLW 0XF7 MOVWF B3LI MOVLW 0XFF MOVWF D3LI MOVLW 0XF7 MOVWF B2LI MOVLW 0XFF MOVWF D2LI MOVLW 0XF7 MOVWF B1LI MOVLW 0XFF MOVWF D1LI CALL Output MOVLW 0X73 MOVWF B4LI MOVLW 0XFF MOVWF D4LI MOVLW 0X73 MOVWF B3LI MOVLW 0XFF MOVWF D3LI MOVLW 0X73 MOVWF B2LI MOVLW 0XFF MOVWF D2LI MOVLW 0X73 MOVWF B1LI MOVLW 0XFF MOVWF D1LI CALL Output MOVLW 0X31 MOVWF B4LI MOVLW 0XF7 MOVWF D4LI MOVLW 0X31 MOVWF B3LI MOVLW 0XF7 MOVWF D3LI MOVLW 0X31 MOVWF B2LI MOVLW 0XF7 MOVWF D2LI MOVLW 0X31 MOVWF B1LI MOVLW 0XF7 MOVWF D1LI CALL Output MOVLW 0X10 MOVWF B4LI MOVLW 0X73 MOVWF D4LI MOVLW 0X10 MOVWF B3LI MOVLW 0X73 MOVWF D3LI MOVLW 0X10 MOVWF B2LI MOVLW 0X73 MOVWF D2LI MOVLW 0X10 MOVWF B1LI MOVLW 0X73 MOVWF D1LI CALL Output CLRF B4LI ;-------- ;-------- MOVLW 0X31 MOVWF D4LI CLRF B3LI ;-------- ;-------- MOVLW 0X31 MOVWF D3LI CLRF B2LI ;-------- ;-------- MOVLW 0X31 MOVWF D2LI CLRF B1LI ;-------- ;-------- MOVLW 0X31 MOVWF D1LI CALL Output CLRF B4LI ;-------- ;-------- MOVLW 0X10 MOVWF D4LI CLRF B3LI ;-------- ;-------- MOVLW 0X10 MOVWF D3LI CLRF B2LI ;-------- ;-------- MOVLW 0X10 MOVWF D2LI CLRF B1LI ;-------- ;-------- MOVLW 0X10 MOVWF D1LI CALL Output CLRF B4LI ;-------- ;-------- CLRF D4LI ;-------- ;-------- CLRF B3LI ;-------- ;-------- CLRF D3LI ;-------- ;-------- CLRF B2LI ;-------- ;-------- CLRF D2LI ;-------- ;-------- CLRF B1LI ;-------- ;-------- CLRF D1LI ;-------- ;-------- CALL Output RETURN KEP_14 pagesel Output MOVLW 0X14 MOVWF B4LI MOVLW 0X28 MOVWF D4LI MOVLW 0X82 MOVWF B3LI MOVLW 0X41 MOVWF D3LI MOVLW 0X09 MOVWF B2LI MOVLW 0X90 MOVWF D2LI MOVLW 0X14 MOVWF B1LI MOVLW 0X28 MOVWF D1LI CALL Output MOVLW 0X82 MOVWF B4LI MOVLW 0X41 MOVWF D4LI MOVLW 0X09 MOVWF B3LI MOVLW 0X90 MOVWF D3LI MOVLW 0X14 MOVWF B2LI MOVLW 0X28 MOVWF D2LI MOVLW 0X82 MOVWF B1LI MOVLW 0X41 MOVWF D1LI CALL Output MOVLW 0X09 MOVWF B4LI MOVLW 0X90 MOVWF D4LI MOVLW 0X14 MOVWF B3LI MOVLW 0X28 MOVWF D3LI MOVLW 0X82 MOVWF B2LI MOVLW 0X41 MOVWF D2LI MOVLW 0X09 MOVWF B1LI MOVLW 0X90 MOVWF D1LI CALL Output RETURN KEP_15 pagesel Output MOVLW 0X99 MOVWF B4LI MOVLW 0X99 MOVWF D4LI MOVLW 0X99 MOVWF B3LI MOVLW 0X99 MOVWF D3LI MOVLW 0X99 MOVWF B2LI MOVLW 0X99 MOVWF D2LI MOVLW 0X99 MOVWF B1LI MOVLW 0X99 MOVWF D1LI CALL Output MOVLW 0X9C MOVWF B4LI MOVLW 0X39 MOVWF D4LI MOVLW 0X9C MOVWF B3LI MOVLW 0X39 MOVWF D3LI MOVLW 0X9C MOVWF B2LI MOVLW 0X39 MOVWF D2LI MOVLW 0X9C MOVWF B1LI MOVLW 0X39 MOVWF D1LI CALL Output MOVLW 0X8E MOVWF B4LI MOVLW 0X71 MOVWF D4LI MOVLW 0X8E MOVWF B3LI MOVLW 0X71 MOVWF D3LI MOVLW 0X8E MOVWF B2LI MOVLW 0X71 MOVWF D2LI MOVLW 0X8E MOVWF B1LI MOVLW 0X71 MOVWF D1LI CALL Output MOVLW 0X0F MOVWF B4LI MOVLW 0XF0 MOVWF D4LI MOVLW 0X0F MOVWF B3LI MOVLW 0XF0 MOVWF D3LI MOVLW 0X0F MOVWF B2LI MOVLW 0XF0 MOVWF D2LI MOVLW 0X0F MOVWF B1LI MOVLW 0XF0 MOVWF D1LI CALL Output RETURN ;-------------------------------------------------------------- org 0x1000 KEP_16 pagesel Output CALL Output RETURN end