; Source created with Parsic Version 3.x ; at : 2008.11.14. 8:38:18 ; Project File : C:\Pic programok\knight ryder-.pic ; Project Version : 1.0.9 ; Created : 2008.05.11. 9:16:00 ; Last change : 2008.11.14. 8:38:07 PROCESSOR 16F628 INCLUDE P16F628.INC RADIX DEC __IDLOCS H'0100' __CONFIG _CP_OFF & _PWRTE_ON & _WDT_OFF & _BODEN_ON & _INTRC_OSC_NOCLKOUT & _LVP_OFF & _MCLRE_OFF ; Diverses ZERO EQU Z ; ZERO-Flag CARRY EQU C ; CARRY-Flag ; Variable S1 = 32 ; located in Bank 0 OS1_FD = 33 ; located in Bank 0 ZV1 = 34 ; located in Bank 0 ZV1_FD = 35 ; located in Bank 0 S2 = 36 ; located in Bank 0 TR1 = 37 ; located in Bank 0 TR1_HI = 38 ; located in Bank 0 S3 = 39 ; located in Bank 0 S4 = 40 ; located in Bank 0 ZV2 = 41 ; located in Bank 0 ZV2_FD = 42 ; located in Bank 0 S0 = 43 ; located in Bank 0 RAM = 44 ; located in Bank 0 SYS_WSAV = 112 ; located in Bank 0, 1, 2, 3 SYS_SSAV = 113 ; located in Bank 0, 1, 2, 3 SYS_TMP1 = 114 ; located in Bank 0, 1, 2, 3 SYS_TMP2 = 115 ; 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 GOTO SYS_INIT NOP NOP ;**************************************** ;Interrupt-Adress ;**************************************** MOVWF SYS_WSAV ; save register SWAPF STATUS,W CLRF STATUS ; bank 0 MOVWF SYS_SSAV BCF INTCON,T0IF ; Interrupt quitieren BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 INCFSZ TR1,F GOTO SYS_INT_LABEL_0 BSF STATUS,RP0 ; Bank 1 INCF TR1_HI,F SYS_INT_LABEL_0 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 EXITINT SWAPF SYS_SSAV,W ; Register zurück MOVWF STATUS SWAPF SYS_WSAV,F SWAPF SYS_WSAV,W RETURN ;**************************************** ; 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 143 BSF STATUS,RP0 ; Bank 1 MOVWF OPTION_REG ; Richtung setzen MOVLW B'00110000' MOVWF TRISA MOVLW B'00000100' MOVWF TRISB MOVLW 7 ; Comparators off MOVWF CMCON ; 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 32 MOVWF FSR CR3 CLRF INDF INCF FSR,F MOVLW H'50' SUBWF FSR,W BTFSS STATUS,ZERO GOTO CR3 MOVLW B'00001000' BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVWF S4 BSF STATUS,RP0 ; Bank 1 CLRF TMR0 BCF INTCON,T0IF BSF INTCON,GIE ; Interrupt freigeben ;********************************** ;******* Haupt-Programm *********** ;********************************** MAIN ;*************************************************** ; One Shot -> OS1 ;*************************************************** BTFSC S1,0 GOTO LABEL_OS1_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC OS1_FD,0 GOTO LABEL_OS1_1 BSF OS1_FD,0 BSF S1,1 GOTO LABEL_OS1_2 LABEL_OS1_1 BCF S1,1 BTFSS S1,0 GOTO LABEL_OS1_2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF OS1_FD,0 LABEL_OS1_2 ;*************************************************** ; Zähler -> ZV1 ;*************************************************** BTFSS S1,2 ; Reset ? GOTO LABEL_ZV1_COUNT CLRF ZV1 GOTO LABEL_ZV1_SETOUT LABEL_ZV1_COUNT ; Test auf positive Flanke BTFSS S1,1 GOTO LABEL_ZV1_SETFD BTFSC ZV1_FD,0 GOTO LABEL_ZV1_SETFD BSF ZV1_FD,0 BTFSC S1,3 ; Vorwärts oder Rückwärts ? GOTO LABEL_ZV1_BACKWARD INCF ZV1,F GOTO LABEL_ZV1_SETOUT LABEL_ZV1_BACKWARD DECF ZV1,F LABEL_ZV1_SETOUT LABEL_ZV1_SETFD ; Test auf negative Flanke BTFSC S1,1 GOTO LABEL_ZV1_EXIT BCF ZV1_FD,0 LABEL_ZV1_EXIT ;*************************************************** ; Schmitt-Trigger 8-Bit -> ST1 ;*************************************************** BTFSC S1,2 ; Ausgang gesetzt ? GOTO LABEL_ST1_MH ; dann mit Hysterese ? MOVLW 7 GOTO LABEL_ST1_TEST LABEL_ST1_MH MOVLW 7 LABEL_ST1_TEST SUBWF ZV1,W BTFSS STATUS,CARRY GOTO LABEL_ST1_RESET BSF S1,2 ; if greater or equal GOTO LABEL_ST1_ENDE LABEL_ST1_RESET BCF S1,2 ; if less LABEL_ST1_ENDE ;*************************************************** ; Verteiler -> BV1 ;*************************************************** BTFSC S0,0 GOTO LABEL_BV1_0 BCF S1,4 GOTO LABEL_BV1_0_END LABEL_BV1_0 BSF S1,4 LABEL_BV1_0_END ;********************************************** BTFSC S0,1 GOTO LABEL_BV1_1 BCF S1,5 GOTO LABEL_BV1_1_END LABEL_BV1_1 BSF S1,5 LABEL_BV1_1_END ;********************************************** BTFSC S0,2 GOTO LABEL_BV1_2 BCF S1,6 GOTO LABEL_BV1_2_END LABEL_BV1_2 BSF S1,6 LABEL_BV1_2_END ;********************************************** BTFSC S0,3 GOTO LABEL_BV1_3 BCF S1,7 GOTO LABEL_BV1_3_END LABEL_BV1_3 BSF S1,7 LABEL_BV1_3_END ;********************************************** BTFSC S0,4 GOTO LABEL_BV1_4 BCF S2,0 GOTO LABEL_BV1_4_END LABEL_BV1_4 BSF S2,0 LABEL_BV1_4_END ;********************************************** BTFSC S0,5 GOTO LABEL_BV1_5 BCF S2,1 GOTO LABEL_BV1_5_END LABEL_BV1_5 BSF S2,1 LABEL_BV1_5_END ;********************************************** BTFSC S0,6 GOTO LABEL_BV1_6 BCF S2,2 GOTO LABEL_BV1_6_END LABEL_BV1_6 BSF S2,2 LABEL_BV1_6_END ;********************************************** ;*************************************************** ; GND ;*************************************************** BCF S1,3 ; immer Low ;*************************************************** ; Timer -> TR1 ;*************************************************** MOVLW 0 ; 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 195 BSF STATUS,RP0 ; Bank 1 SUBWF TR1,W ;F-W -> W LABEL_TR1_CHECK BTFSS STATUS,CARRY GOTO LABEL_TR1_ENDE LABEL_TR1_RESET MOVLW 0 ; Test auf >= SUBWF TR1_HI,F ;F-W -> F MOVLW 195 SUBWF TR1,F ;F-W -> F BTFSS STATUS,CARRY DECF TR1_HI,F LABEL_TR1_SET ; toggel output BTFSC S2,3 GOTO LABEL_TR1_CLR BSF S2,3 GOTO LABEL_TR1_ENDE LABEL_TR1_CLR BCF S2,3 LABEL_TR1_ENDE ;*************************************************** ; UND - Gatter -> LG1 ;*************************************************** LABEL_LG1_1 BTFSS S1,4 GOTO LABEL_LG1_FALSE LABEL_LG1_2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S4,4 GOTO LABEL_LG1_FALSE LABEL_LG1_TRUE BSF S2,5 GOTO LABEL_LG1_ENDE LABEL_LG1_FALSE BCF S2,5 LABEL_LG1_ENDE ;*************************************************** ; UND - Gatter -> LG2 ;*************************************************** LABEL_LG2_1 BTFSS S1,5 GOTO LABEL_LG2_FALSE LABEL_LG2_2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S4,4 GOTO LABEL_LG2_FALSE LABEL_LG2_TRUE BSF S2,7 GOTO LABEL_LG2_ENDE LABEL_LG2_FALSE BCF S2,7 LABEL_LG2_ENDE ;*************************************************** ; UND - Gatter -> LG3 ;*************************************************** LABEL_LG3_1 BTFSS S1,6 GOTO LABEL_LG3_FALSE LABEL_LG3_2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S4,4 GOTO LABEL_LG3_FALSE LABEL_LG3_TRUE BSF STATUS,RP1 ; Bank 2 BSF S3,0 GOTO LABEL_LG3_ENDE LABEL_LG3_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S3,0 LABEL_LG3_ENDE ;*************************************************** ; UND - Gatter -> LG4 ;*************************************************** LABEL_LG4_1 BTFSS S1,7 GOTO LABEL_LG4_FALSE LABEL_LG4_2 BSF STATUS,RP1 ; Bank 2 BTFSS S4,4 GOTO LABEL_LG4_FALSE LABEL_LG4_TRUE BSF S3,1 GOTO LABEL_LG4_ENDE LABEL_LG4_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S3,1 LABEL_LG4_ENDE ;*************************************************** ; UND - Gatter -> LG5 ;*************************************************** LABEL_LG5_1 BTFSS S2,0 GOTO LABEL_LG5_FALSE LABEL_LG5_2 BSF STATUS,RP1 ; Bank 2 BTFSS S4,4 GOTO LABEL_LG5_FALSE LABEL_LG5_TRUE BSF S3,2 GOTO LABEL_LG5_ENDE LABEL_LG5_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S3,2 LABEL_LG5_ENDE ;*************************************************** ; UND - Gatter -> LG6 ;*************************************************** LABEL_LG6_1 BTFSS S2,1 GOTO LABEL_LG6_FALSE LABEL_LG6_2 BSF STATUS,RP1 ; Bank 2 BTFSS S4,4 GOTO LABEL_LG6_FALSE LABEL_LG6_TRUE BSF S3,3 GOTO LABEL_LG6_ENDE LABEL_LG6_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S3,3 LABEL_LG6_ENDE ;*************************************************** ; UND - Gatter -> LG7 ;*************************************************** LABEL_LG7_1 BTFSS S2,2 GOTO LABEL_LG7_FALSE LABEL_LG7_2 BSF STATUS,RP1 ; Bank 2 BTFSS S4,4 GOTO LABEL_LG7_FALSE LABEL_LG7_TRUE BSF S3,4 GOTO LABEL_LG7_ENDE LABEL_LG7_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S3,4 LABEL_LG7_ENDE ;*************************************************** ; UND - Gatter -> LG8 ;*************************************************** LABEL_LG8_1 BTFSS S1,4 GOTO LABEL_LG8_FALSE LABEL_LG8_2 BSF STATUS,RP1 ; Bank 2 BTFSS S4,3 GOTO LABEL_LG8_FALSE LABEL_LG8_TRUE BSF S3,5 GOTO LABEL_LG8_ENDE LABEL_LG8_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S3,5 LABEL_LG8_ENDE ;*************************************************** ; UND - Gatter -> LG9 ;*************************************************** LABEL_LG9_1 BTFSS S1,5 GOTO LABEL_LG9_FALSE LABEL_LG9_2 BSF STATUS,RP1 ; Bank 2 BTFSS S4,3 GOTO LABEL_LG9_FALSE LABEL_LG9_TRUE BSF S3,6 GOTO LABEL_LG9_ENDE LABEL_LG9_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S3,6 LABEL_LG9_ENDE ;*************************************************** ; UND - Gatter -> LG10 ;*************************************************** LABEL_LG10_1 BTFSS S1,6 GOTO LABEL_LG10_FALSE LABEL_LG10_2 BSF STATUS,RP1 ; Bank 2 BTFSS S4,3 GOTO LABEL_LG10_FALSE LABEL_LG10_TRUE BSF S3,7 GOTO LABEL_LG10_ENDE LABEL_LG10_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S3,7 LABEL_LG10_ENDE ;*************************************************** ; UND - Gatter -> LG11 ;*************************************************** LABEL_LG11_1 BTFSS S1,7 GOTO LABEL_LG11_FALSE LABEL_LG11_2 BSF STATUS,RP1 ; Bank 2 BTFSS S4,3 GOTO LABEL_LG11_FALSE LABEL_LG11_TRUE BSF S4,0 GOTO LABEL_LG11_ENDE LABEL_LG11_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S4,0 LABEL_LG11_ENDE ;*************************************************** ; UND - Gatter -> LG12 ;*************************************************** LABEL_LG12_1 BTFSS S2,0 GOTO LABEL_LG12_FALSE LABEL_LG12_2 BSF STATUS,RP1 ; Bank 2 BTFSS S4,3 GOTO LABEL_LG12_FALSE LABEL_LG12_TRUE BSF S4,1 GOTO LABEL_LG12_ENDE LABEL_LG12_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S4,1 LABEL_LG12_ENDE ;*************************************************** ; UND - Gatter -> LG13 ;*************************************************** LABEL_LG13_1 BTFSS S2,1 GOTO LABEL_LG13_FALSE LABEL_LG13_2 BSF STATUS,RP1 ; Bank 2 BTFSS S4,3 GOTO LABEL_LG13_FALSE LABEL_LG13_TRUE BSF S4,2 GOTO LABEL_LG13_ENDE LABEL_LG13_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S4,2 LABEL_LG13_ENDE ;*************************************************** ; UND - Gatter -> LG14 ;*************************************************** LABEL_LG14_1 BTFSS S2,2 GOTO LABEL_LG14_FALSE LABEL_LG14_2 BSF STATUS,RP1 ; Bank 2 BTFSS S4,3 GOTO LABEL_LG14_FALSE LABEL_LG14_TRUE BSF S2,6 GOTO LABEL_LG14_ENDE LABEL_LG14_FALSE BCF S2,6 LABEL_LG14_ENDE ;*************************************************** ; ODER - Gatter -> LG15 ;*************************************************** LABEL_LG15_1 BTFSC S2,5 GOTO LABEL_LG15_TRUE LABEL_LG15_2 BTFSC S2,6 GOTO LABEL_LG15_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 LABEL_LG15_FALSE BCF PORTB,0 GOTO LABEL_LG15_ENDE LABEL_LG15_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF PORTB,0 LABEL_LG15_ENDE ;*************************************************** ; ODER - Gatter -> LG16 ;*************************************************** LABEL_LG16_1 BTFSC S2,7 GOTO LABEL_LG16_TRUE LABEL_LG16_2 BSF STATUS,RP1 ; Bank 2 BTFSC S4,2 GOTO LABEL_LG16_TRUE BSF STATUS,RP0 ; Bank 1 BCF STATUS,RP1 ; Bank 1 LABEL_LG16_FALSE BCF PORTB,1 GOTO LABEL_LG16_ENDE LABEL_LG16_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF PORTB,1 LABEL_LG16_ENDE ;*************************************************** ; ODER - Gatter -> LG17 ;*************************************************** LABEL_LG17_1 BSF STATUS,RP1 ; Bank 2 BTFSC S3,0 GOTO LABEL_LG17_TRUE LABEL_LG17_2 BTFSC S4,1 GOTO LABEL_LG17_TRUE LABEL_LG17_FALSE BCF S2,4 GOTO LABEL_LG17_ENDE LABEL_LG17_TRUE BSF S2,4 LABEL_LG17_ENDE ;*************************************************** ; ODER - Gatter -> LG18 ;*************************************************** LABEL_LG18_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S3,1 GOTO LABEL_LG18_TRUE LABEL_LG18_2 BSF STATUS,RP1 ; Bank 2 BTFSC S4,0 GOTO LABEL_LG18_TRUE BSF STATUS,RP0 ; Bank 1 BCF STATUS,RP1 ; Bank 1 LABEL_LG18_FALSE BCF PORTB,3 GOTO LABEL_LG18_ENDE LABEL_LG18_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF PORTB,3 LABEL_LG18_ENDE ;*************************************************** ; ODER - Gatter -> LG19 ;*************************************************** LABEL_LG19_1 BSF STATUS,RP1 ; Bank 2 BTFSC S3,2 GOTO LABEL_LG19_TRUE LABEL_LG19_2 BTFSC S3,7 GOTO LABEL_LG19_TRUE BSF STATUS,RP0 ; Bank 1 BCF STATUS,RP1 ; Bank 1 LABEL_LG19_FALSE BCF PORTB,4 GOTO LABEL_LG19_ENDE LABEL_LG19_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF PORTB,4 LABEL_LG19_ENDE ;*************************************************** ; ODER - Gatter -> LG20 ;*************************************************** LABEL_LG20_1 BSF STATUS,RP1 ; Bank 2 BTFSC S3,3 GOTO LABEL_LG20_TRUE LABEL_LG20_2 BTFSC S3,6 GOTO LABEL_LG20_TRUE BSF STATUS,RP0 ; Bank 1 BCF STATUS,RP1 ; Bank 1 LABEL_LG20_FALSE BCF PORTB,5 GOTO LABEL_LG20_ENDE LABEL_LG20_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF PORTB,5 LABEL_LG20_ENDE ;*************************************************** ; ODER - Gatter -> LG21 ;*************************************************** LABEL_LG21_1 BSF STATUS,RP1 ; Bank 2 BTFSC S3,4 GOTO LABEL_LG21_TRUE LABEL_LG21_2 BTFSC S3,5 GOTO LABEL_LG21_TRUE BSF STATUS,RP0 ; Bank 1 BCF STATUS,RP1 ; Bank 1 LABEL_LG21_FALSE BCF PORTB,6 GOTO LABEL_LG21_ENDE LABEL_LG21_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF PORTB,6 LABEL_LG21_ENDE ;*************************************************** ; UND - Gatter -> LG22 ;*************************************************** LABEL_LG22_1 BSF STATUS,RP1 ; Bank 2 BTFSS S4,4 GOTO LABEL_LG22_FALSE LABEL_LG22_TRUE BCF S4,3 GOTO LABEL_LG22_ENDE LABEL_LG22_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S4,3 LABEL_LG22_ENDE ;*************************************************** ; Zähler -> ZV2 ;*************************************************** BSF STATUS,RP1 ; Bank 2 BTFSS S4,5 ; Reset ? GOTO LABEL_ZV2_COUNT CLRF ZV2 GOTO LABEL_ZV2_SETOUT LABEL_ZV2_COUNT ; Test auf positive Flanke BTFSS S1,2 GOTO LABEL_ZV2_SETFD BTFSC ZV2_FD,0 GOTO LABEL_ZV2_SETFD BSF ZV2_FD,0 BTFSC S1,3 ; Vorwärts oder Rückwärts ? GOTO LABEL_ZV2_BACKWARD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 INCF ZV2,F GOTO LABEL_ZV2_SETOUT LABEL_ZV2_BACKWARD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 DECF ZV2,F LABEL_ZV2_SETOUT ; Output Q0 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS ZV2,0 GOTO LABEL_ZV2_SETOUT0 BSF STATUS,RP1 ; Bank 2 BSF S4,4 GOTO LABEL_ZV2_SETOUT0_END LABEL_ZV2_SETOUT0 BSF STATUS,RP1 ; Bank 2 BCF S4,4 LABEL_ZV2_SETOUT0_END LABEL_ZV2_SETFD ; Test auf negative Flanke BTFSC S1,2 GOTO LABEL_ZV2_EXIT BCF ZV2_FD,0 LABEL_ZV2_EXIT ;*************************************************** ; Schmitt-Trigger 8-Bit -> ST2 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S4,5 ; Ausgang gesetzt ? GOTO LABEL_ST2_MH ; dann mit Hysterese ? MOVLW 2 GOTO LABEL_ST2_TEST LABEL_ST2_MH MOVLW 2 LABEL_ST2_TEST BSF STATUS,RP1 ; Bank 2 SUBWF ZV2,W BTFSS STATUS,CARRY GOTO LABEL_ST2_RESET BSF S4,5 ; if greater or equal GOTO LABEL_ST2_ENDE LABEL_ST2_RESET BCF S4,5 ; if less LABEL_ST2_ENDE ;*************************************************** ; Call subroutine TAB ;*************************************************** MOVLW LOW TAB MOVWF SYS_TMP1 MOVLW HIGH TAB MOVWF SYS_TMP2 MOVFW ZV1 ADDWF SYS_TMP1,F BTFSC STATUS,CARRY INCF SYS_TMP2,F CALL SYSTABJMP MOVWF S0 BSF INTCON,GIE ;*************************************************** ; ODER - Gatter -> LG23 ;*************************************************** LABEL_LG23_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S3,5 GOTO LABEL_LG23_TRUE LABEL_LG23_2 BSF STATUS,RP1 ; Bank 2 BTFSC S3,4 GOTO LABEL_LG23_TRUE BSF STATUS,RP0 ; Bank 1 BCF STATUS,RP1 ; Bank 1 LABEL_LG23_FALSE BCF PORTB,7 GOTO LABEL_LG23_ENDE LABEL_LG23_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF PORTB,7 LABEL_LG23_ENDE ;*************************************************** ; ODER - Gatter -> LG24 ;*************************************************** LABEL_LG24_1 BSF STATUS,RP1 ; Bank 2 BTFSC S3,6 GOTO LABEL_LG24_TRUE LABEL_LG24_2 BTFSC S3,3 GOTO LABEL_LG24_TRUE BSF STATUS,RP0 ; Bank 1 BCF STATUS,RP1 ; Bank 1 LABEL_LG24_FALSE BCF PORTA,6 GOTO LABEL_LG24_ENDE LABEL_LG24_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF PORTA,6 LABEL_LG24_ENDE ;*************************************************** ; ODER - Gatter -> LG25 ;*************************************************** LABEL_LG25_1 BSF STATUS,RP1 ; Bank 2 BTFSC S3,2 GOTO LABEL_LG25_TRUE LABEL_LG25_2 BTFSC S3,7 GOTO LABEL_LG25_TRUE BSF STATUS,RP0 ; Bank 1 BCF STATUS,RP1 ; Bank 1 LABEL_LG25_FALSE BCF PORTA,7 GOTO LABEL_LG25_ENDE LABEL_LG25_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF PORTA,7 LABEL_LG25_ENDE ;*************************************************** ; ODER - Gatter -> LG26 ;*************************************************** LABEL_LG26_1 BSF STATUS,RP1 ; Bank 2 BTFSC S3,1 GOTO LABEL_LG26_TRUE LABEL_LG26_2 BTFSC S4,0 GOTO LABEL_LG26_TRUE BSF STATUS,RP0 ; Bank 1 BCF STATUS,RP1 ; Bank 1 LABEL_LG26_FALSE BCF PORTA,0 GOTO LABEL_LG26_ENDE LABEL_LG26_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF PORTA,0 LABEL_LG26_ENDE ;*************************************************** ; ODER - Gatter -> LG27 ;*************************************************** LABEL_LG27_1 BSF STATUS,RP1 ; Bank 2 BTFSC S4,1 GOTO LABEL_LG27_TRUE LABEL_LG27_2 BTFSC S3,0 GOTO LABEL_LG27_TRUE BSF STATUS,RP0 ; Bank 1 BCF STATUS,RP1 ; Bank 1 LABEL_LG27_FALSE BCF PORTA,1 GOTO LABEL_LG27_ENDE LABEL_LG27_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF PORTA,1 LABEL_LG27_ENDE ;*************************************************** ; ODER - Gatter -> LG28 ;*************************************************** LABEL_LG28_1 BSF STATUS,RP1 ; Bank 2 BTFSC S4,2 GOTO LABEL_LG28_TRUE LABEL_LG28_2 BTFSC S2,7 GOTO LABEL_LG28_TRUE BSF STATUS,RP0 ; Bank 1 BCF STATUS,RP1 ; Bank 1 LABEL_LG28_FALSE BCF PORTA,2 GOTO LABEL_LG28_ENDE LABEL_LG28_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF PORTA,2 LABEL_LG28_ENDE ;*************************************************** ; ODER - Gatter -> LG29 ;*************************************************** LABEL_LG29_1 BTFSC S2,6 GOTO LABEL_LG29_TRUE LABEL_LG29_2 BTFSC S2,5 GOTO LABEL_LG29_TRUE BSF STATUS,RP0 ; Bank 1 LABEL_LG29_FALSE BCF PORTA,3 GOTO LABEL_LG29_ENDE LABEL_LG29_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF PORTA,3 LABEL_LG29_ENDE ;*************************************************** ; UND - Gatter -> LG30 ;*************************************************** LABEL_LG30_1 BSF STATUS,RP0 ; Bank 1 BTFSS PORTA,2 GOTO LABEL_LG30_FALSE LABEL_LG30_2 BTFSS S2,3 GOTO LABEL_LG30_FALSE LABEL_LG30_TRUE BSF S1,0 GOTO LABEL_LG30_ENDE LABEL_LG30_FALSE BCF S1,0 LABEL_LG30_ENDE ;**************************************** GOTO MAIN ;*************************************************** ; Table -> TAB ;*************************************************** TAB RETLW 1 ; // INDEX 0 RETLW 0 ; // INDEX 0 RETLW 2 ; // INDEX 1 RETLW 0 ; // INDEX 1 RETLW 4 ; // INDEX 2 RETLW 0 ; // INDEX 2 RETLW 8 ; // INDEX 3 RETLW 0 ; // INDEX 3 RETLW 16 ; // INDEX 4 RETLW 0 ; // INDEX 4 RETLW 32 ; // INDEX 5 RETLW 0 ; // INDEX 5 RETLW 64 ; // INDEX 6 RETLW 0 ; // INDEX 6 RETLW 128 ; // INDEX 7 RETLW 0 ; // INDEX 7 RETLW 0 ; // INDEX 8 RETLW 1 ; // INDEX 8 RETLW 0 ; // INDEX 9 RETLW 2 ; // INDEX 9 RETLW 0 ; // INDEX 10 RETLW 4 ; // INDEX 10 RETLW 0 ; // INDEX 11 RETLW 8 ; // INDEX 11 RETLW 12 ; // INDEX 12 RETLW 0 ; // INDEX 12 RETLW 13 ; // INDEX 13 RETLW 0 ; // INDEX 13 RETLW 14 ; // INDEX 14 RETLW 0 ; // INDEX 14 RETLW 15 ; // INDEX 15 RETLW 0 ; // INDEX 15 END