; Source created with Parsic Version 3.x ; at : 2011.02.17. 15:05:10 ; Project File : C:\Jagodits\PIC\SAJATP~1\stora6.PIC ; Project Version : 1.0.1 ; Created : 2011.01.23. 11:57:00 ; Last change : 2011.02.17. 15:05:07 PROCESSOR 16F877 INCLUDE P16F877.INC RADIX DEC __IDLOCS H'0100' __CONFIG _CP_OFF & _PWRTE_ON & _WDT_OFF & _BODEN_ON & _XT_OSC & _LVP_OFF & _CPD_OFF & _DEBUG_OFF ; Diverses ZERO EQU Z ; ZERO-Flag CARRY EQU C ; CARRY-Flag ; Variable TR1 = 32 ; located in Bank 0 TR1_HI = 33 ; located in Bank 0 S4 = 34 ; located in Bank 0 ZR1 = 35 ; located in Bank 0 ZR1_FD = 36 ; located in Bank 0 S5 = 37 ; located in Bank 0 ZR2 = 38 ; located in Bank 0 ZR2_FD = 39 ; located in Bank 0 S0 = 40 ; located in Bank 0 ZR3 = 41 ; located in Bank 0 ZR3_FD = 42 ; located in Bank 0 ZR4 = 43 ; located in Bank 0 ZR4_FD = 44 ; located in Bank 0 ZR5 = 45 ; located in Bank 0 ZR5_FD = 46 ; located in Bank 0 S1 = 47 ; located in Bank 0 S2 = 48 ; located in Bank 0 S3 = 49 ; located in Bank 0 MF1 = 50 ; located in Bank 0 MF1_HI = 51 ; located in Bank 0 MF1_FD = 52 ; located in Bank 0 RAM = 53 ; located in Bank 0 SYS_WSAV = 115 ; located in Bank 0, 1, 2, 3 SYS_SSAV = 116 ; located in Bank 0, 1, 2, 3 SYS_PSAV = 117 ; located in Bank 0, 1, 2, 3 SYS_TMP1 = 118 ; located in Bank 0, 1, 2, 3 SYS_TMP2 = 119 ; located in Bank 0, 1, 2, 3 ERRORLEVEL -302 ; disable warning (Bankswitching) ERRORLEVEL -306 ; disable warning (Pageswitching) ;**************************************** ;Programmanfang ;**************************************** ORG 0 CLRF STATUS ; switch to RAM-Bank 0 MOVLW HIGH SYS_INIT ; set page MOVWF PCLATH GOTO SYS_INIT ;**************************************** ;Interrupt-Adress ;**************************************** MOVWF SYS_WSAV ; save register SWAPF STATUS,W CLRF STATUS ; bank 0 MOVWF SYS_SSAV MOVFW PCLATH MOVWF SYS_PSAV CLRF PCLATH BCF INTCON,T0IF ; Interrupt quitieren BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 INCFSZ TR1,F GOTO SYS_INT_LABEL_0 INCF TR1_HI,F SYS_INT_LABEL_0 INCFSZ MF1,F GOTO SYS_INT_LABEL_1 INCF MF1_HI,F SYS_INT_LABEL_1 EXITINT MOVFW SYS_PSAV MOVWF PCLATH SWAPF SYS_SSAV,W ; Register zurück MOVWF STATUS SWAPF SYS_WSAV,F SWAPF SYS_WSAV,W RETFIE ;**************************************** ; Subroutines ;**************************************** ;**************************************** ; Direct jump into a table ;**************************************** SYSTABJMP BCF INTCON,GIE BTFSC INTCON,GIE GOTO SYSTABJMP MOVFW SYS_TMP2 MOVWF PCLATH MOVFW SYS_TMP1 MOVWF PCL ;**************************************** ;Initialisierung ;**************************************** SYS_INIT MOVLW B'00100000' MOVWF INTCON ; Set output before direction BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVLW B'00000000' MOVWF PORTA MOVLW B'00000000' MOVWF PORTB MOVLW B'00000000' MOVWF PORTC MOVLW B'00000000' MOVWF PORTD MOVLW B'00000000' MOVWF PORTE MOVLW 15 BSF STATUS,RP0 ; Bank 1 MOVWF OPTION_REG MOVLW 6 ; all Digital MOVWF ADCON1 ; Richtung setzen MOVLW B'11110000' MOVWF TRISA MOVLW B'11100001' MOVWF TRISB MOVLW B'11110000' MOVWF TRISC MOVLW B'11111000' MOVWF TRISD MOVLW B'00000111' MOVWF TRISE ; init vars ; Clear RAM BCF STATUS,IRP MOVLW 32 MOVWF FSR CR1 CLRF INDF INCF FSR,F BTFSS FSR,7 GOTO CR1 BSF FSR,5 CR2 CLRF INDF INCF FSR,F MOVLW H'F0' SUBWF FSR,W BTFSS STATUS,ZERO GOTO CR2 BSF STATUS,IRP MOVLW 16 MOVWF FSR CR3 CLRF INDF INCF FSR,F MOVLW H'70' SUBWF FSR,W BTFSS STATUS,ZERO GOTO CR3 MOVLW 144 MOVWF FSR CR4 CLRF INDF INCF FSR,F MOVLW H'F0' SUBWF FSR,W BTFSS STATUS,ZERO GOTO CR4 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 CLRF TMR0 BCF INTCON,T0IF BSF INTCON,GIE ; Interrupt freigeben ;********************************** ;******* Haupt-Programm *********** ;********************************** MAIN ;*************************************************** ; Timer -> TR1 ;*************************************************** MOVLW 38 ; Test auf >= BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 SUBWF TR1_HI,W ;F-W -> W BTFSS STATUS,ZERO GOTO LABEL_TR1_CHECK MOVLW 38 SUBWF TR1,W ;F-W -> W LABEL_TR1_CHECK BTFSS STATUS,CARRY GOTO LABEL_TR1_ENDE LABEL_TR1_RESET MOVLW 38 ; Test auf >= SUBWF TR1_HI,F ;F-W -> F MOVLW 38 SUBWF TR1,F ;F-W -> F BTFSS STATUS,CARRY DECF TR1_HI,F LABEL_TR1_SET ; toggel output BTFSC S4,0 GOTO LABEL_TR1_CLR BSF S4,0 GOTO LABEL_TR1_ENDE LABEL_TR1_CLR BCF S4,0 LABEL_TR1_ENDE ;*************************************************** ; Vergleich -> IF1 ;*************************************************** MOVLW 10 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 SUBWF ZR1,W ; F - W -> W LABEL_IF1_CHECK BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS STATUS,ZERO ; Test auf -> = GOTO LABEL_IF1_FALSE LABEL_IF1_TRUE BSF S4,1 GOTO LABEL_IF1_EXIT LABEL_IF1_FALSE BCF S4,1 LABEL_IF1_EXIT ;*************************************************** ; Zähler -> ZR1 ;*************************************************** BTFSS S4,1 ; Reset ? GOTO LABEL_ZR1_COUNT CLRF ZR1 GOTO LABEL_ZR1_SETOUT LABEL_ZR1_COUNT ; Test auf positive Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC ZR1_FD,0 GOTO LABEL_ZR1_SETFD BTFSS S4,0 GOTO LABEL_ZR1_SETFD INCF ZR1,F LABEL_ZR1_SETOUT ; Output Q0 BTFSS ZR1,0 GOTO LABEL_ZR1_SETOUT0 BSF S5,0 GOTO LABEL_ZR1_SETOUT0_END LABEL_ZR1_SETOUT0 BCF S5,0 LABEL_ZR1_SETOUT0_END LABEL_ZR1_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S4,0 GOTO LABEL_ZR1_SETFD2 BSF ZR1_FD,0 GOTO LABEL_ZR1_END LABEL_ZR1_SETFD2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF ZR1_FD,0 LABEL_ZR1_END ;*************************************************** ; Zähler -> ZR2 ;*************************************************** BTFSS S4,2 ; Reset ? GOTO LABEL_ZR2_COUNT CLRF ZR2 GOTO LABEL_ZR2_SETOUT LABEL_ZR2_COUNT ; Test auf positive Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC ZR2_FD,0 GOTO LABEL_ZR2_SETFD BTFSS S4,1 GOTO LABEL_ZR2_SETFD INCF ZR2,F LABEL_ZR2_SETOUT ; Output Q0 BTFSS ZR2,0 GOTO LABEL_ZR2_SETOUT0 BSF S0,2 GOTO LABEL_ZR2_SETOUT0_END LABEL_ZR2_SETOUT0 BCF S0,2 LABEL_ZR2_SETOUT0_END LABEL_ZR2_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S4,1 GOTO LABEL_ZR2_SETFD2 BSF ZR2_FD,0 GOTO LABEL_ZR2_END LABEL_ZR2_SETFD2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF ZR2_FD,0 LABEL_ZR2_END ;*************************************************** ; Vergleich -> IF2 ;*************************************************** MOVFW ZR2 SUBLW 6 ; K - W -> W LABEL_IF2_CHECK BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS STATUS,ZERO ; Test auf -> = GOTO LABEL_IF2_FALSE LABEL_IF2_TRUE BSF S4,2 GOTO LABEL_IF2_EXIT LABEL_IF2_FALSE BCF S4,2 LABEL_IF2_EXIT ;*************************************************** ; Zähler -> ZR3 ;*************************************************** BTFSS S4,3 ; Reset ? GOTO LABEL_ZR3_COUNT CLRF ZR3 GOTO LABEL_ZR3_SETOUT LABEL_ZR3_COUNT ; Test auf positive Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC ZR3_FD,0 GOTO LABEL_ZR3_SETFD BTFSS S4,5 GOTO LABEL_ZR3_SETFD INCF ZR3,F LABEL_ZR3_SETOUT ; Output Q0 BTFSS ZR3,0 GOTO LABEL_ZR3_SETOUT0 BSF S0,3 GOTO LABEL_ZR3_SETOUT0_END LABEL_ZR3_SETOUT0 BCF S0,3 LABEL_ZR3_SETOUT0_END LABEL_ZR3_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S4,5 GOTO LABEL_ZR3_SETFD2 BSF ZR3_FD,0 GOTO LABEL_ZR3_END LABEL_ZR3_SETFD2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF ZR3_FD,0 LABEL_ZR3_END ;*************************************************** ; Zähler -> ZR4 ;*************************************************** BTFSS S4,4 ; Reset ? GOTO LABEL_ZR4_COUNT CLRF ZR4 GOTO LABEL_ZR4_SETOUT LABEL_ZR4_COUNT ; Test auf positive Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC ZR4_FD,0 GOTO LABEL_ZR4_SETFD BTFSS S4,3 GOTO LABEL_ZR4_SETFD INCF ZR4,F LABEL_ZR4_SETOUT LABEL_ZR4_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S4,3 GOTO LABEL_ZR4_SETFD2 BSF ZR4_FD,0 GOTO LABEL_ZR4_END LABEL_ZR4_SETFD2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF ZR4_FD,0 LABEL_ZR4_END ;*************************************************** ; Vergleich -> IF3 ;*************************************************** MOVFW ZR3 SUBLW 10 ; K - W -> W LABEL_IF3_CHECK BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS STATUS,ZERO ; Test auf -> = GOTO LABEL_IF3_FALSE LABEL_IF3_TRUE BSF S4,3 GOTO LABEL_IF3_EXIT LABEL_IF3_FALSE BCF S4,3 LABEL_IF3_EXIT ;*************************************************** ; Vergleich -> IF4 ;*************************************************** MOVFW ZR4 SUBLW 6 ; K - W -> W LABEL_IF4_CHECK BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS STATUS,ZERO ; Test auf -> = GOTO LABEL_IF4_FALSE LABEL_IF4_TRUE BSF S4,4 GOTO LABEL_IF4_EXIT LABEL_IF4_FALSE BCF S4,4 LABEL_IF4_EXIT ;*************************************************** ; Zähler -> ZR5 ;*************************************************** BTFSS S4,6 ; Reset ? GOTO LABEL_ZR5_COUNT CLRF ZR5 GOTO LABEL_ZR5_SETOUT LABEL_ZR5_COUNT ; Test auf positive Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC ZR5_FD,0 GOTO LABEL_ZR5_SETFD BTFSS S4,7 GOTO LABEL_ZR5_SETFD INCF ZR5,F LABEL_ZR5_SETOUT LABEL_ZR5_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S4,7 GOTO LABEL_ZR5_SETFD2 BSF ZR5_FD,0 GOTO LABEL_ZR5_END LABEL_ZR5_SETFD2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF ZR5_FD,0 LABEL_ZR5_END ;*************************************************** ; Vergleich -> IF5 ;*************************************************** MOVFW ZR5 SUBLW 24 ; K - W -> W LABEL_IF5_CHECK BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS STATUS,ZERO ; Test auf -> = GOTO LABEL_IF5_FALSE LABEL_IF5_TRUE BSF S4,6 GOTO LABEL_IF5_EXIT LABEL_IF5_FALSE BCF S4,6 LABEL_IF5_EXIT ;*************************************************** ; ODER - Gatter -> LG1 ;*************************************************** LABEL_LG1_1 BTFSC S4,2 GOTO LABEL_LG1_TRUE LABEL_LG1_2 BTFSC PORTB,7 GOTO LABEL_LG1_TRUE LABEL_LG1_FALSE BCF S4,5 GOTO LABEL_LG1_ENDE LABEL_LG1_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S4,5 LABEL_LG1_ENDE ;*************************************************** ; Call subroutine TAB1 ;*************************************************** MOVLW LOW TAB1 MOVWF SYS_TMP1 MOVLW HIGH TAB1 MOVWF SYS_TMP2 MOVFW ZR3 ADDWF SYS_TMP1,F BTFSC STATUS,CARRY INCF SYS_TMP2,F MOVLW HIGH SYSTABJMP ; set page MOVWF PCLATH CALL SYSTABJMP BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVWF S0 BSF INTCON,GIE BCF PCLATH,3 ; Page 0 BCF PCLATH,4 ; Page 0 ;*************************************************** ; Verteiler -> BV1 ;*************************************************** BTFSC S0,0 GOTO LABEL_BV1_0 BCF PORTA,0 GOTO LABEL_BV1_0_END LABEL_BV1_0 BSF PORTA,0 LABEL_BV1_0_END ;********************************************** BTFSC S0,1 GOTO LABEL_BV1_1 BCF PORTA,1 GOTO LABEL_BV1_1_END LABEL_BV1_1 BSF PORTA,1 LABEL_BV1_1_END ;********************************************** BTFSC S0,2 GOTO LABEL_BV1_2 BCF PORTA,2 GOTO LABEL_BV1_2_END LABEL_BV1_2 BSF PORTA,2 LABEL_BV1_2_END ;********************************************** BTFSC S0,3 GOTO LABEL_BV1_3 BCF PORTA,3 GOTO LABEL_BV1_3_END LABEL_BV1_3 BSF PORTA,3 LABEL_BV1_3_END ;********************************************** ;*************************************************** ; Call subroutine TAB2 ;*************************************************** MOVLW LOW TAB2 MOVWF SYS_TMP1 MOVLW HIGH TAB2 MOVWF SYS_TMP2 MOVFW ZR4 ADDWF SYS_TMP1,F BTFSC STATUS,CARRY INCF SYS_TMP2,F MOVLW HIGH SYSTABJMP ; set page MOVWF PCLATH CALL SYSTABJMP BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVWF S1 BSF INTCON,GIE BCF PCLATH,3 ; Page 0 BCF PCLATH,4 ; Page 0 ;*************************************************** ; Verteiler -> BV2 ;*************************************************** BTFSC S1,0 GOTO LABEL_BV2_0 BCF PORTB,1 GOTO LABEL_BV2_0_END LABEL_BV2_0 BSF PORTB,1 LABEL_BV2_0_END ;********************************************** BTFSC S1,1 GOTO LABEL_BV2_1 BCF PORTB,2 GOTO LABEL_BV2_1_END LABEL_BV2_1 BSF PORTB,2 LABEL_BV2_1_END ;********************************************** BTFSC S1,2 GOTO LABEL_BV2_2 BCF PORTB,3 GOTO LABEL_BV2_2_END LABEL_BV2_2 BSF PORTB,3 LABEL_BV2_2_END ;********************************************** BTFSC S1,3 GOTO LABEL_BV2_3 BCF PORTB,4 GOTO LABEL_BV2_3_END LABEL_BV2_3 BSF PORTB,4 LABEL_BV2_3_END ;********************************************** ;*************************************************** ; Call subroutine TAB3 ;*************************************************** MOVLW LOW TAB3 MOVWF SYS_TMP1 MOVLW HIGH TAB3 MOVWF SYS_TMP2 MOVFW ZR5 ADDWF SYS_TMP1,F BTFSC STATUS,CARRY INCF SYS_TMP2,F MOVLW HIGH SYSTABJMP ; set page MOVWF PCLATH CALL SYSTABJMP BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVWF S2 BSF INTCON,GIE BCF PCLATH,3 ; Page 0 BCF PCLATH,4 ; Page 0 ;*************************************************** ; Verteiler -> BV3 ;*************************************************** BTFSC S2,0 GOTO LABEL_BV3_0 BCF PORTC,0 GOTO LABEL_BV3_0_END LABEL_BV3_0 BSF PORTC,0 LABEL_BV3_0_END ;********************************************** BTFSC S2,1 GOTO LABEL_BV3_1 BCF PORTC,1 GOTO LABEL_BV3_1_END LABEL_BV3_1 BSF PORTC,1 LABEL_BV3_1_END ;********************************************** BTFSC S2,2 GOTO LABEL_BV3_2 BCF PORTC,2 GOTO LABEL_BV3_2_END LABEL_BV3_2 BSF PORTC,2 LABEL_BV3_2_END ;********************************************** BTFSC S2,3 GOTO LABEL_BV3_3 BCF PORTC,3 GOTO LABEL_BV3_3_END LABEL_BV3_3 BSF PORTC,3 LABEL_BV3_3_END ;********************************************** ;*************************************************** ; ODER - Gatter -> LG2 ;*************************************************** LABEL_LG2_1 BTFSC S4,4 GOTO LABEL_LG2_TRUE LABEL_LG2_2 BTFSC PORTB,6 GOTO LABEL_LG2_TRUE LABEL_LG2_FALSE BCF S4,7 GOTO LABEL_LG2_ENDE LABEL_LG2_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S4,7 LABEL_LG2_ENDE ;*************************************************** ; Verteiler -> BV4 ;*************************************************** BTFSC S3,0 GOTO LABEL_BV4_0 BCF PORTD,0 GOTO LABEL_BV4_0_END LABEL_BV4_0 BSF PORTD,0 LABEL_BV4_0_END ;********************************************** BTFSC S3,1 GOTO LABEL_BV4_1 BCF PORTD,1 GOTO LABEL_BV4_1_END LABEL_BV4_1 BSF PORTD,1 LABEL_BV4_1_END ;********************************************** ;*************************************************** ; Call subroutine TAB4 ;*************************************************** MOVLW LOW TAB4 MOVWF SYS_TMP1 MOVLW HIGH TAB4 MOVWF SYS_TMP2 MOVFW ZR5 ADDWF SYS_TMP1,F BTFSC STATUS,CARRY INCF SYS_TMP2,F MOVLW HIGH SYSTABJMP ; set page MOVWF PCLATH CALL SYSTABJMP BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVWF S3 BSF INTCON,GIE BCF PCLATH,3 ; Page 0 BCF PCLATH,4 ; Page 0 ;*************************************************** ; Mono-Flop -> MF1 ;*************************************************** ; Läuft der Impuls ? BTFSC MF1_FD,1 GOTO LABEL_MF1_CHKTIME ; Test auf positive Flanke BTFSC MF1_FD,0 GOTO LABEL_MF1_SETFD BTFSS S5,0 GOTO LABEL_MF1_SETFD LABEL_MF1_RESET CLRF MF1 CLRF MF1_HI BSF MF1_FD,1 BSF PORTD,2 LABEL_MF1_CHKTIME MOVLW 76 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 SUBWF MF1_HI,W BTFSS STATUS,ZERO GOTO LABEL_MF1_CHECK MOVLW 75 SUBWF MF1,W LABEL_MF1_CHECK BTFSS STATUS,CARRY GOTO LABEL_MF1_SETFD LABEL_MF1_TO BCF MF1_FD,1 BCF PORTD,2 LABEL_MF1_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S5,0 GOTO LABEL_MF1_CLR BSF MF1_FD,0 GOTO LABEL_MF1_ENDE LABEL_MF1_CLR BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF MF1_FD,0 LABEL_MF1_ENDE ;**************************************** GOTO MAIN ;*************************************************** ; Table -> TAB1 ;*************************************************** TAB1 RETLW 0 ; // INDEX 0 RETLW 1 ; // INDEX 1 RETLW 2 ; // INDEX 2 RETLW 3 ; // INDEX 3 RETLW 4 ; // INDEX 4 RETLW 5 ; // INDEX 5 RETLW 6 ; // INDEX 6 RETLW 7 ; // INDEX 7 RETLW 8 ; // INDEX 8 RETLW 9 ; // INDEX 9 RETLW 0 ; // INDEX 10 ;*************************************************** ; Table -> TAB2 ;*************************************************** TAB2 RETLW 0 ; // INDEX 0 RETLW 1 ; // INDEX 1 RETLW 2 ; // INDEX 2 RETLW 3 ; // INDEX 3 RETLW 4 ; // INDEX 4 RETLW 5 ; // INDEX 5 RETLW 6 ; // INDEX 6 ;*************************************************** ; Table -> TAB3 ;*************************************************** TAB3 RETLW 0 ; // INDEX 0 RETLW 1 ; // INDEX 1 RETLW 2 ; // INDEX 2 RETLW 3 ; // INDEX 3 RETLW 4 ; // INDEX 4 RETLW 5 ; // INDEX 5 RETLW 6 ; // INDEX 6 RETLW 7 ; // INDEX 7 RETLW 8 ; // INDEX 8 RETLW 9 ; // INDEX 9 RETLW 0 ; // INDEX 10 RETLW 1 ; // INDEX 11 RETLW 2 ; // INDEX 12 RETLW 3 ; // INDEX 13 RETLW 4 ; // INDEX 14 RETLW 5 ; // INDEX 15 RETLW 6 ; // INDEX 16 RETLW 7 ; // INDEX 17 RETLW 8 ; // INDEX 18 RETLW 9 ; // INDEX 19 RETLW 0 ; // INDEX 20 RETLW 1 ; // INDEX 21 RETLW 2 ; // INDEX 22 RETLW 3 ; // INDEX 23 RETLW 0 ; // INDEX 24 ;*************************************************** ; Table -> TAB4 ;*************************************************** TAB4 RETLW 0 ; // INDEX 0 RETLW 0 ; // INDEX 1 RETLW 0 ; // INDEX 2 RETLW 0 ; // INDEX 3 RETLW 0 ; // INDEX 4 RETLW 0 ; // INDEX 5 RETLW 0 ; // INDEX 6 RETLW 0 ; // INDEX 7 RETLW 0 ; // INDEX 8 RETLW 0 ; // INDEX 9 RETLW 1 ; // INDEX 10 RETLW 1 ; // INDEX 11 RETLW 1 ; // INDEX 12 RETLW 1 ; // INDEX 13 RETLW 1 ; // INDEX 14 RETLW 1 ; // INDEX 15 RETLW 1 ; // INDEX 16 RETLW 1 ; // INDEX 17 RETLW 1 ; // INDEX 18 RETLW 1 ; // INDEX 19 RETLW 2 ; // INDEX 20 RETLW 2 ; // INDEX 21 RETLW 2 ; // INDEX 22 RETLW 2 ; // INDEX 23 RETLW 0 ; // INDEX 24 END