; Source created with Parsic Version 3.x ; at : 2009.12.21. 9:53:58 ; Project File : C:\Documents and Settings\All Users\Asztal\közlámp.PIC ; Project Version : 1.0.0 ; Created : 2009.12.17. 20:18:00 ; Last change : 2009.12.17. 22:09:00 PROCESSOR 16F628A INCLUDE P16F628A.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 ZV1 = 32 ; located in Bank 0 ZV1_FD = 33 ; located in Bank 0 S4 = 34 ; located in Bank 0 S0 = 35 ; located in Bank 0 S1 = 36 ; located in Bank 0 TR1 = 37 ; located in Bank 0 TR1_HI = 38 ; located in Bank 0 ZV2 = 39 ; located in Bank 0 ZV2_FD = 40 ; located in Bank 0 S5 = 41 ; located in Bank 0 S6 = 42 ; located in Bank 0 S2 = 43 ; located in Bank 0 S3 = 44 ; located in Bank 0 S7 = 45 ; located in Bank 0 OS1_FD = 46 ; located in Bank 0 ZV3 = 47 ; located in Bank 0 ZV3_FD = 48 ; located in Bank 0 OS2_FD = 49 ; located in Bank 0 OS3_FD = 50 ; located in Bank 0 OS4_FD = 51 ; located in Bank 0 OS5_FD = 52 ; located in Bank 0 RAM = 53 ; located in Bank 0 SYS_TMP1 = 112 ; located in Bank 0, 1, 2, 3 SYS_TMP2 = 113 ; located in Bank 0, 1, 2, 3 SYS_WSAV = 114 ; located in Bank 0, 1, 2, 3 SYS_SSAV = 115 ; located in Bank 0, 1, 2, 3 SYS_FSAV = 116 ; 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 MOVFW FSR MOVWF SYS_FSAV BTFSS INTCON,T0IF ; TMR0 ? GOTO NOTMR0INT 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 NOTMR0INT EXITINT MOVFW SYS_FSAV MOVWF FSR 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 15 BSF STATUS,RP0 ; Bank 1 MOVWF OPTION_REG ; Richtung setzen MOVLW B'11111100' MOVWF TRISA MOVLW B'00000000' MOVWF TRISB BCF STATUS,RP0 ; Bank 0 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'00010000' BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVWF S6 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 CLRF TMR0 BCF INTCON,T0IF BSF INTCON,GIE ; Interrupt freigeben ;********************************** ;******* Haupt-Programm *********** ;********************************** MAIN ;*************************************************** ; Zähler -> ZV1 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S4,4 ; Reset ? GOTO LABEL_ZV1_COUNT CLRF ZV1 GOTO LABEL_ZV1_SETOUT LABEL_ZV1_COUNT ; Test auf positive Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S7,4 GOTO LABEL_ZV1_SETFD BTFSC ZV1_FD,0 GOTO LABEL_ZV1_SETFD BSF ZV1_FD,0 BTFSC S5,4 ; Vorwärts oder Rückwärts ? GOTO LABEL_ZV1_BACKWARD INCF ZV1,F GOTO LABEL_ZV1_SETOUT LABEL_ZV1_BACKWARD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 DECF ZV1,F LABEL_ZV1_SETOUT ; Output Q0 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS ZV1,0 GOTO LABEL_ZV1_SETOUT0 BSF S4,5 GOTO LABEL_ZV1_SETOUT0_END LABEL_ZV1_SETOUT0 BCF S4,5 LABEL_ZV1_SETOUT0_END ; Output Q1 BTFSS ZV1,1 GOTO LABEL_ZV1_SETOUT1 BSF S4,6 GOTO LABEL_ZV1_SETOUT1_END LABEL_ZV1_SETOUT1 BCF S4,6 LABEL_ZV1_SETOUT1_END ; Output Q2 BTFSS ZV1,2 GOTO LABEL_ZV1_SETOUT2 BSF S4,4 GOTO LABEL_ZV1_SETOUT2_END LABEL_ZV1_SETOUT2 BCF S4,4 LABEL_ZV1_SETOUT2_END LABEL_ZV1_SETFD ; Test auf negative Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S7,4 GOTO LABEL_ZV1_EXIT BCF ZV1_FD,0 LABEL_ZV1_EXIT ;*************************************************** ; Call subroutine TAB ;*************************************************** MOVLW LOW TAB MOVWF SYS_TMP1 MOVLW HIGH TAB MOVWF SYS_TMP2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVFW ZV1 ADDWF SYS_TMP1,F BTFSC STATUS,CARRY INCF SYS_TMP2,F CALL SYSTABJMP BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVWF S0 BSF INTCON,GIE ;*************************************************** ; Verteiler -> BV1 ;*************************************************** BTFSC S0,0 GOTO LABEL_BV1_0 BCF PORTB,0 GOTO LABEL_BV1_0_END LABEL_BV1_0 BSF PORTB,0 LABEL_BV1_0_END ;********************************************** BTFSC S0,1 GOTO LABEL_BV1_1 BCF PORTB,1 GOTO LABEL_BV1_1_END LABEL_BV1_1 BSF PORTB,1 LABEL_BV1_1_END ;********************************************** BTFSC S0,2 GOTO LABEL_BV1_2 BCF PORTB,2 GOTO LABEL_BV1_2_END LABEL_BV1_2 BSF PORTB,2 LABEL_BV1_2_END ;********************************************** ;*************************************************** ; Verteiler -> BV2 ;*************************************************** BTFSC S1,0 GOTO LABEL_BV2_0 BCF PORTB,3 GOTO LABEL_BV2_0_END LABEL_BV2_0 BSF PORTB,3 LABEL_BV2_0_END ;********************************************** BTFSC S1,1 GOTO LABEL_BV2_1 BCF S4,0 GOTO LABEL_BV2_1_END LABEL_BV2_1 BSF S4,0 LABEL_BV2_1_END ;********************************************** BTFSC S1,2 GOTO LABEL_BV2_2 BCF S4,1 GOTO LABEL_BV2_2_END LABEL_BV2_2 BSF S4,1 LABEL_BV2_2_END ;********************************************** ;*************************************************** ; Call subroutine TAB1 ;*************************************************** MOVLW LOW TAB1 MOVWF SYS_TMP1 MOVLW HIGH TAB1 MOVWF SYS_TMP2 MOVFW ZV1 ADDWF SYS_TMP1,F BTFSC STATUS,CARRY INCF SYS_TMP2,F CALL SYSTABJMP BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVWF S1 BSF INTCON,GIE ;*************************************************** ; UND - Gatter -> LG1 ;*************************************************** LABEL_LG1_1 BTFSS S4,1 GOTO LABEL_LG1_FALSE LABEL_LG1_2 BTFSS S4,3 GOTO LABEL_LG1_FALSE LABEL_LG1_TRUE BSF S4,2 GOTO LABEL_LG1_ENDE LABEL_LG1_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S4,2 LABEL_LG1_ENDE ;*************************************************** ; ODER - Gatter -> LG2 ;*************************************************** LABEL_LG2_1 BTFSC S4,0 GOTO LABEL_LG2_TRUE LABEL_LG2_2 BTFSC S4,2 GOTO LABEL_LG2_TRUE LABEL_LG2_FALSE BCF PORTB,4 GOTO LABEL_LG2_ENDE LABEL_LG2_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF PORTB,4 LABEL_LG2_ENDE ;*************************************************** ; Timer -> TR1 ;*************************************************** MOVLW 3 ; Test auf >= SUBWF TR1_HI,W ;F-W -> W BTFSS STATUS,ZERO GOTO LABEL_TR1_CHECK MOVLW 209 SUBWF TR1,W ;F-W -> W LABEL_TR1_CHECK BTFSS STATUS,CARRY GOTO LABEL_TR1_ENDE LABEL_TR1_RESET MOVLW 3 ; Test auf >= SUBWF TR1_HI,F ;F-W -> F MOVLW 209 SUBWF TR1,F ;F-W -> F BTFSS STATUS,CARRY DECF TR1_HI,F LABEL_TR1_SET ; toggel output BTFSC S4,3 GOTO LABEL_TR1_CLR BSF S4,3 GOTO LABEL_TR1_ENDE LABEL_TR1_CLR BCF S4,3 LABEL_TR1_ENDE ;*************************************************** ; Zähler -> ZV2 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S5,2 ; Reset ? GOTO LABEL_ZV2_COUNT CLRF ZV2 GOTO LABEL_ZV2_SETOUT LABEL_ZV2_COUNT ; Test auf positive Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S7,2 GOTO LABEL_ZV2_SETFD BTFSC ZV2_FD,0 GOTO LABEL_ZV2_SETFD BSF ZV2_FD,0 BTFSC S5,4 ; Vorwärts oder Rückwärts ? GOTO LABEL_ZV2_BACKWARD 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 S5,3 GOTO LABEL_ZV2_SETOUT0_END LABEL_ZV2_SETOUT0 BCF S5,3 LABEL_ZV2_SETOUT0_END ; Output Q1 BTFSS ZV2,1 GOTO LABEL_ZV2_SETOUT1 BSF S6,7 GOTO LABEL_ZV2_SETOUT1_END LABEL_ZV2_SETOUT1 BCF S6,7 LABEL_ZV2_SETOUT1_END ; Output Q2 BTFSS ZV2,2 GOTO LABEL_ZV2_SETOUT2 BSF S5,2 GOTO LABEL_ZV2_SETOUT2_END LABEL_ZV2_SETOUT2 BCF S5,2 LABEL_ZV2_SETOUT2_END LABEL_ZV2_SETFD ; Test auf negative Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S7,2 GOTO LABEL_ZV2_EXIT BCF ZV2_FD,0 LABEL_ZV2_EXIT ;*************************************************** ; Call subroutine TAB2 ;*************************************************** MOVLW LOW TAB2 MOVWF SYS_TMP1 MOVLW HIGH TAB2 MOVWF SYS_TMP2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVFW ZV2 ADDWF SYS_TMP1,F BTFSC STATUS,CARRY INCF SYS_TMP2,F CALL SYSTABJMP BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVWF S2 BSF INTCON,GIE ;*************************************************** ; Verteiler -> BV3 ;*************************************************** BTFSC S2,0 GOTO LABEL_BV3_0 BCF PORTB,5 GOTO LABEL_BV3_0_END LABEL_BV3_0 BSF PORTB,5 LABEL_BV3_0_END ;********************************************** BTFSC S2,1 GOTO LABEL_BV3_1 BCF PORTB,6 GOTO LABEL_BV3_1_END LABEL_BV3_1 BSF PORTB,6 LABEL_BV3_1_END ;********************************************** BTFSC S2,2 GOTO LABEL_BV3_2 BCF PORTB,7 GOTO LABEL_BV3_2_END LABEL_BV3_2 BSF PORTB,7 LABEL_BV3_2_END ;********************************************** ;*************************************************** ; Verteiler -> BV4 ;*************************************************** BTFSC S3,0 GOTO LABEL_BV4_0 BCF PORTA,0 GOTO LABEL_BV4_0_END LABEL_BV4_0 BSF PORTA,0 LABEL_BV4_0_END ;********************************************** BTFSC S3,1 GOTO LABEL_BV4_1 BCF S4,7 GOTO LABEL_BV4_1_END LABEL_BV4_1 BSF S4,7 LABEL_BV4_1_END ;********************************************** BTFSC S3,2 GOTO LABEL_BV4_2 BCF S5,0 GOTO LABEL_BV4_2_END LABEL_BV4_2 BSF S5,0 LABEL_BV4_2_END ;********************************************** ;*************************************************** ; Call subroutine TAB3 ;*************************************************** MOVLW LOW TAB3 MOVWF SYS_TMP1 MOVLW HIGH TAB3 MOVWF SYS_TMP2 MOVFW ZV2 ADDWF SYS_TMP1,F BTFSC STATUS,CARRY INCF SYS_TMP2,F CALL SYSTABJMP BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVWF S3 BSF INTCON,GIE ;*************************************************** ; UND - Gatter -> LG3 ;*************************************************** LABEL_LG3_1 BTFSS S5,0 GOTO LABEL_LG3_FALSE LABEL_LG3_2 BTFSS S4,3 GOTO LABEL_LG3_FALSE LABEL_LG3_TRUE BSF S5,1 GOTO LABEL_LG3_ENDE LABEL_LG3_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S5,1 LABEL_LG3_ENDE ;*************************************************** ; ODER - Gatter -> LG4 ;*************************************************** LABEL_LG4_1 BTFSC S4,7 GOTO LABEL_LG4_TRUE LABEL_LG4_2 BTFSC S5,1 GOTO LABEL_LG4_TRUE LABEL_LG4_FALSE BCF PORTA,1 GOTO LABEL_LG4_ENDE LABEL_LG4_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF PORTA,1 LABEL_LG4_ENDE ;*************************************************** ; GND ;*************************************************** BCF S5,4 ; immer Low ;*************************************************** ; RS-FLIP-FLOP -> RS1 ;*************************************************** BTFSC S4,4 GOTO LABEL_RS1_RESET BTFSS S6,1 GOTO LABEL_RS1_ENDE BSF S5,7 ; Ausgang setzen GOTO LABEL_RS1_ENDE LABEL_RS1_RESET BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S5,7 ; Ausgang zurücksetzen LABEL_RS1_ENDE ;*************************************************** ; RS-FLIP-FLOP -> RS2 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S5,2 GOTO LABEL_RS2_RESET BTFSS S6,6 GOTO LABEL_RS2_ENDE BSF S5,5 ; Ausgang setzen GOTO LABEL_RS2_ENDE LABEL_RS2_RESET BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S5,5 ; Ausgang zurücksetzen LABEL_RS2_ENDE ;*************************************************** ; UND - Gatter -> LG5 ;*************************************************** LABEL_LG5_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S5,7 GOTO LABEL_LG5_FALSE LABEL_LG5_2 BTFSS S6,0 GOTO LABEL_LG5_FALSE LABEL_LG5_TRUE BSF S7,5 GOTO LABEL_LG5_ENDE LABEL_LG5_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S7,5 LABEL_LG5_ENDE ;*************************************************** ; UND - Gatter -> LG6 ;*************************************************** LABEL_LG6_1 BTFSS S6,0 GOTO LABEL_LG6_FALSE LABEL_LG6_2 BTFSS S5,5 GOTO LABEL_LG6_FALSE LABEL_LG6_TRUE BSF S5,6 GOTO LABEL_LG6_ENDE LABEL_LG6_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S5,6 LABEL_LG6_ENDE ;*************************************************** ; ODER - Gatter -> LG7 ;*************************************************** LABEL_LG7_1 BTFSC S6,3 GOTO LABEL_LG7_TRUE LABEL_LG7_2 BTFSC S6,2 GOTO LABEL_LG7_TRUE LABEL_LG7_FALSE BCF S6,1 GOTO LABEL_LG7_ENDE LABEL_LG7_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S6,1 LABEL_LG7_ENDE ;*************************************************** ; One Shot -> OS1 ;*************************************************** BTFSS S6,4 GOTO LABEL_OS1_1 BTFSC OS1_FD,0 GOTO LABEL_OS1_1 BSF OS1_FD,0 BSF S6,3 GOTO LABEL_OS1_2 LABEL_OS1_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S6,3 BTFSC S6,4 GOTO LABEL_OS1_2 BCF OS1_FD,0 LABEL_OS1_2 ;*************************************************** ; VCC ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S6,4 ; immer High ;*************************************************** ; UND - Gatter -> LG8 ;*************************************************** LABEL_LG8_1 BTFSS S4,5 GOTO LABEL_LG8_FALSE LABEL_LG8_2 BTFSS S4,6 GOTO LABEL_LG8_FALSE LABEL_LG8_TRUE BSF S6,5 GOTO LABEL_LG8_ENDE LABEL_LG8_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S6,5 LABEL_LG8_ENDE ;*************************************************** ; UND - Gatter -> LG9 ;*************************************************** LABEL_LG9_1 BTFSS S5,3 GOTO LABEL_LG9_FALSE LABEL_LG9_2 BTFSS S6,7 GOTO LABEL_LG9_FALSE LABEL_LG9_TRUE BSF S7,0 GOTO LABEL_LG9_ENDE LABEL_LG9_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S7,0 LABEL_LG9_ENDE ;*************************************************** ; Zähler -> ZV3 ;*************************************************** BTFSS S6,0 ; Reset ? GOTO LABEL_ZV3_COUNT CLRF ZV3 GOTO LABEL_ZV3_SETOUT LABEL_ZV3_COUNT ; Test auf positive Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S4,3 GOTO LABEL_ZV3_SETFD BTFSC ZV3_FD,0 GOTO LABEL_ZV3_SETFD BSF ZV3_FD,0 BTFSC S7,1 ; Vorwärts oder Rückwärts ? GOTO LABEL_ZV3_BACKWARD INCF ZV3,F GOTO LABEL_ZV3_SETOUT LABEL_ZV3_BACKWARD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 DECF ZV3,F LABEL_ZV3_SETOUT LABEL_ZV3_SETFD ; Test auf negative Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S4,3 GOTO LABEL_ZV3_EXIT BCF ZV3_FD,0 LABEL_ZV3_EXIT ;*************************************************** ; GND ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S7,1 ; immer Low ;*************************************************** ; Vergleich -> IF1 ;*************************************************** MOVLW 30 SUBWF ZV3,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 S6,0 GOTO LABEL_IF1_EXIT LABEL_IF1_FALSE BCF S6,0 LABEL_IF1_EXIT ;*************************************************** ; ODER - Gatter -> LG10 ;*************************************************** LABEL_LG10_1 BTFSC S5,6 GOTO LABEL_LG10_TRUE LABEL_LG10_2 BTFSC S7,3 GOTO LABEL_LG10_TRUE LABEL_LG10_FALSE BCF S7,2 GOTO LABEL_LG10_ENDE LABEL_LG10_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S7,2 LABEL_LG10_ENDE ;*************************************************** ; One Shot -> OS2 ;*************************************************** BTFSS S6,5 GOTO LABEL_OS2_1 BTFSC OS2_FD,0 GOTO LABEL_OS2_1 BSF OS2_FD,0 BSF S6,6 GOTO LABEL_OS2_2 LABEL_OS2_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S6,6 BTFSC S6,5 GOTO LABEL_OS2_2 BCF OS2_FD,0 LABEL_OS2_2 ;*************************************************** ; One Shot -> OS3 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S5,5 GOTO LABEL_OS3_1 BTFSC OS3_FD,0 GOTO LABEL_OS3_1 BSF OS3_FD,0 BSF S7,3 GOTO LABEL_OS3_2 LABEL_OS3_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S7,3 BTFSC S5,5 GOTO LABEL_OS3_2 BCF OS3_FD,0 LABEL_OS3_2 ;*************************************************** ; One Shot -> OS4 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S7,0 GOTO LABEL_OS4_1 BTFSC OS4_FD,0 GOTO LABEL_OS4_1 BSF OS4_FD,0 BSF S6,2 GOTO LABEL_OS4_2 LABEL_OS4_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S6,2 BTFSC S7,0 GOTO LABEL_OS4_2 BCF OS4_FD,0 LABEL_OS4_2 ;*************************************************** ; ODER - Gatter -> LG11 ;*************************************************** LABEL_LG11_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S7,5 GOTO LABEL_LG11_TRUE LABEL_LG11_2 BTFSC S7,6 GOTO LABEL_LG11_TRUE LABEL_LG11_FALSE BCF S7,4 GOTO LABEL_LG11_ENDE LABEL_LG11_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S7,4 LABEL_LG11_ENDE ;*************************************************** ; One Shot -> OS5 ;*************************************************** BTFSS S5,7 GOTO LABEL_OS5_1 BTFSC OS5_FD,0 GOTO LABEL_OS5_1 BSF OS5_FD,0 BSF S7,6 GOTO LABEL_OS5_2 LABEL_OS5_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S7,6 BTFSC S5,7 GOTO LABEL_OS5_2 BCF OS5_FD,0 LABEL_OS5_2 ;**************************************** GOTO MAIN ;*************************************************** ; Table -> TAB ;*************************************************** TAB RETLW 1 ; // INDEX 0 RETLW 3 ; // INDEX 1 RETLW 4 ; // INDEX 2 RETLW 2 ; // INDEX 3 RETLW 1 ; // INDEX 4 RETLW 3 ; // INDEX 5 RETLW 4 ; // INDEX 6 RETLW 2 ; // INDEX 7 ;*************************************************** ; Table -> TAB1 ;*************************************************** TAB1 RETLW 1 ; // INDEX 0 RETLW 1 ; // INDEX 1 RETLW 2 ; // INDEX 2 RETLW 4 ; // INDEX 3 RETLW 4 ; // INDEX 4 RETLW 5 ; // INDEX 5 RETLW 6 ; // INDEX 6 RETLW 7 ; // INDEX 7 ;*************************************************** ; Table -> TAB2 ;*************************************************** TAB2 RETLW 1 ; // INDEX 0 RETLW 3 ; // INDEX 1 RETLW 4 ; // INDEX 2 RETLW 2 ; // INDEX 3 RETLW 1 ; // INDEX 4 RETLW 3 ; // INDEX 5 RETLW 4 ; // INDEX 6 RETLW 2 ; // INDEX 7 ;*************************************************** ; Table -> TAB3 ;*************************************************** TAB3 RETLW 1 ; // INDEX 0 RETLW 1 ; // INDEX 1 RETLW 2 ; // INDEX 2 RETLW 4 ; // INDEX 3 RETLW 4 ; // INDEX 4 RETLW 5 ; // INDEX 5 RETLW 6 ; // INDEX 6 RETLW 7 ; // INDEX 7 END