; Source created with Parsic Version 3.x ; at : 2009.01.01. 18:16:25 ; Project File : c:\PROGRA~1\PARSIC\PA_SZIN.PIC ; Project Version : 1.0.22 ; Created : 2008.12.27. 21:28:00 ; Last change : 2009.01.01. 18:15:00 PROCESSOR 16F876 INCLUDE P16F876.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 ZV1 = 32 ; located in Bank 0 EE1_FD = 33 ; located in Bank 0 ZV1_FD = 34 ; located in Bank 0 S7 = 35 ; located in Bank 0 OS1_FD = 36 ; located in Bank 0 OS2_FD = 37 ; located in Bank 0 OS3_FD = 38 ; located in Bank 0 S8 = 39 ; located in Bank 0 TR1 = 40 ; located in Bank 0 TR1_HI = 41 ; located in Bank 0 ZV2 = 42 ; located in Bank 0 ZV2_FD = 43 ; located in Bank 0 S9 = 44 ; located in Bank 0 OS4_FD = 45 ; located in Bank 0 S10 = 46 ; located in Bank 0 OS5_FD = 47 ; located in Bank 0 OS6_FD = 48 ; located in Bank 0 S11 = 49 ; located in Bank 0 MF1 = 50 ; located in Bank 0 MF1_HI = 51 ; located in Bank 0 S0 = 52 ; located in Bank 0 S2 = 53 ; located in Bank 0 S3 = 54 ; located in Bank 0 OS7_FD = 55 ; located in Bank 0 ZV3 = 56 ; located in Bank 0 ZV3_FD = 57 ; located in Bank 0 S4 = 58 ; located in Bank 0 S5 = 59 ; located in Bank 0 S1 = 60 ; located in Bank 0 S6 = 61 ; located in Bank 0 S13 = 62 ; located in Bank 0 S12 = 63 ; located in Bank 0 ZV4 = 64 ; located in Bank 0 ZV4_FD = 65 ; located in Bank 0 ZV5 = 66 ; located in Bank 0 ZV5_FD = 67 ; located in Bank 0 RAM = 68 ; located in Bank 0 SYS_TMP1 = 114 ; located in Bank 0, 1, 2, 3 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_TMP2 = 118 ; located in Bank 0, 1, 2, 3 SYS_TMP3 = 119 ; located in Bank 0, 1, 2, 3 SYS_TMP4 = 120 ; located in Bank 0, 1, 2, 3 SYS_FSAV = 121 ; 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 FSR MOVWF SYS_FSAV MOVFW PCLATH MOVWF SYS_PSAV CLRF PCLATH 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 INCFSZ MF1,F GOTO SYS_INT_LABEL_1 INCF MF1_HI,F SYS_INT_LABEL_1 NOTMR0INT EXITINT MOVFW SYS_PSAV MOVWF PCLATH MOVFW SYS_FSAV MOVWF FSR SWAPF SYS_SSAV,W ; Register zurück MOVWF STATUS SWAPF SYS_WSAV,F SWAPF SYS_WSAV,W RETFIE ;**************************************** ; Multiplication 8 - Bit ;**************************************** SYSMUL8 CLRF SYS_TMP3 MOVLW 8 MOVWF SYS_TMP4 SYSMUL8_1 MOVFW SYS_TMP1 RRF SYS_TMP2,F BTFSC STATUS,CARRY ADDWF SYS_TMP3,F RLF SYS_TMP1,F DECFSZ SYS_TMP4,F GOTO SYSMUL8_1 RETURN ;**************************************** ; Division 8 - Bit ;**************************************** SYSDIV8 MOVF SYS_TMP2,F BTFSC STATUS,ZERO GOTO SYSDIV8_ERROR CLRF SYS_TMP3 ; Ergebnis löschen MOVLW 1 MOVWF SYS_TMP4 SYSDIV8_0 BTFSC SYS_TMP2,7 ; OP2 linksbündig GOTO SYSDIV8_1 INCF SYS_TMP4,F BCF STATUS,CARRY RLF SYS_TMP2,F GOTO SYSDIV8_0 SYSDIV8_1 MOVFW SYS_TMP2 ; vergleichen SUBWF SYS_TMP1,F ; F-W -> W BTFSC STATUS,CARRY GOTO SYSDIV8_2 ADDWF SYS_TMP1,F ; F+W -> F BCF STATUS,CARRY SYSDIV8_2 RLF SYS_TMP3,F RRF SYS_TMP2,F DECFSZ SYS_TMP4,F GOTO SYSDIV8_1 RETURN SYSDIV8_ERROR MOVLW 255 MOVWF SYS_TMP3 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 EEINT_WRITE MOVFW INDF EEINT_WRITE_0 BCF STATUS,RP0 ; Bank 2 BSF STATUS,RP1 ; Bank 2 MOVWF EEDATA BSF STATUS,RP0 ; Bank 3 BSF EECON1,WREN EEINT_DISINT BCF INTCON,GIE BTFSC INTCON,GIE GOTO EEINT_DISINT MOVLW H'55' MOVWF EECON2 MOVLW H'AA' MOVWF EECON2 BSF EECON1,WR ; start write BSF INTCON,GIE EEINT_WRITE_1 BTFSC EECON1,WR ; ready ? GOTO EEINT_WRITE_1 ; no BCF EECON1,WREN BCF STATUS,RP0 ; Bank 2 INCF EEADR,F INCF FSR,F DECFSZ SYS_TMP1,F GOTO EEINT_WRITE RETURN ;*************************************************** EEINT_READ BSF STATUS,RP0 ; Bank 3 BSF STATUS,RP1 ; Bank 3 BSF EECON1,RD BCF STATUS,RP0 ; Bank 2 MOVFW EEDATA MOVWF INDF INCF EEADR,F INCF FSR,F DECFSZ SYS_TMP1,F GOTO EEINT_READ RETURN ;*************************************************** ; EE-Modul -> EE1 ;*************************************************** WRITE_EE1 BSF STATUS,RP0 ; Bank 3 BSF STATUS,RP1 ; Bank 3 BCF EECON1,EEPGD BCF STATUS,RP0 ; Bank 2 CLRF EEADRH MOVLW 0 MOVWF EEADR BCF STATUS,IRP ; vars - located in Bank 0 MOVLW 1 MOVWF SYS_TMP1 MOVLW LOW ZV1 MOVWF FSR CALL EEINT_WRITE RETURN ;*************************************************** ; EE-Modul -> EE1 ;*************************************************** READ_EE1 MOVLW 0 BCF STATUS,RP0 ; Bank 2 BSF STATUS,RP1 ; Bank 2 MOVWF EEADR CLRF EEADRH BSF STATUS,RP0 ; Bank 3 BCF EECON1,EEPGD BCF STATUS,IRP ; vars - located in Bank 0 MOVLW 1 MOVWF SYS_TMP1 MOVLW LOW ZV1 MOVWF FSR CALL EEINT_READ RETURN ;*************************************************** ;**************************************** ;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 15 BSF STATUS,RP0 ; Bank 1 MOVWF OPTION_REG MOVLW 6 ; all Digital MOVWF ADCON1 ; Richtung setzen MOVLW B'11111111' MOVWF TRISA MOVLW B'00000000' MOVWF TRISB MOVLW B'11110000' MOVWF TRISC ; 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 MOVLW B'00101000' BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVWF S10 CALL READ_EE1 ; read vars from internal EE 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 S7,0 ; 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 S11,7 GOTO LABEL_ZV1_SETFD BTFSC ZV1_FD,0 GOTO LABEL_ZV1_SETFD BSF ZV1_FD,0 BTFSC S8,2 ; 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 LABEL_ZV1_SETFD ; Test auf negative Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S11,7 GOTO LABEL_ZV1_EXIT BCF ZV1_FD,0 LABEL_ZV1_EXIT ;*************************************************** ; Schmitt-Trigger 8-Bit -> ST1 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S7,0 ; Ausgang gesetzt ? GOTO LABEL_ST1_MH ; dann mit Hysterese ? MOVLW 20 GOTO LABEL_ST1_TEST LABEL_ST1_MH MOVLW 20 LABEL_ST1_TEST SUBWF ZV1,W BTFSS STATUS,CARRY GOTO LABEL_ST1_RESET BSF S7,0 ; if greater or equal GOTO LABEL_ST1_ENDE LABEL_ST1_RESET BCF S7,0 ; if less LABEL_ST1_ENDE ;*************************************************** ; One Shot -> OS1 ;*************************************************** BTFSC PORTA,0 GOTO LABEL_OS1_1 BTFSC OS1_FD,0 GOTO LABEL_OS1_1 BSF OS1_FD,0 BSF S7,1 GOTO LABEL_OS1_2 LABEL_OS1_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S7,1 BTFSS PORTA,0 GOTO LABEL_OS1_2 BCF OS1_FD,0 LABEL_OS1_2 ;*************************************************** ; UND - Gatter -> LG1 ;*************************************************** LABEL_LG1_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S7,1 GOTO LABEL_LG1_FALSE LABEL_LG1_2 BTFSS S7,2 GOTO LABEL_LG1_FALSE LABEL_LG1_TRUE BSF S7,3 GOTO LABEL_LG1_ENDE LABEL_LG1_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S7,3 LABEL_LG1_ENDE ;*************************************************** ; UND - Gatter -> LG2 ;*************************************************** LABEL_LG2_1 BTFSC PORTA,1 GOTO LABEL_LG2_FALSE LABEL_LG2_TRUE BSF S7,2 GOTO LABEL_LG2_ENDE LABEL_LG2_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S7,2 LABEL_LG2_ENDE ;*************************************************** ; UND - Gatter -> LG3 ;*************************************************** LABEL_LG3_1 BTFSS S7,1 GOTO LABEL_LG3_FALSE LABEL_LG3_2 BTFSS S7,6 GOTO LABEL_LG3_FALSE LABEL_LG3_TRUE BSF S7,4 GOTO LABEL_LG3_ENDE LABEL_LG3_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S7,4 LABEL_LG3_ENDE ;*************************************************** ; ODER - Gatter -> LG4 ;*************************************************** LABEL_LG4_1 BTFSC S7,3 GOTO LABEL_LG4_TRUE LABEL_LG4_2 BTFSC S7,5 GOTO LABEL_LG4_TRUE LABEL_LG4_FALSE BCF S7,7 GOTO LABEL_LG4_ENDE LABEL_LG4_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S7,7 LABEL_LG4_ENDE ;*************************************************** ; One Shot -> OS2 ;*************************************************** BTFSC S7,4 GOTO LABEL_OS2_1 BTFSC OS2_FD,0 GOTO LABEL_OS2_1 BSF OS2_FD,0 BSF S7,5 GOTO LABEL_OS2_2 LABEL_OS2_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S7,5 BTFSS S7,4 GOTO LABEL_OS2_2 BCF OS2_FD,0 LABEL_OS2_2 ;*************************************************** ; One Shot -> OS3 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S7,2 GOTO LABEL_OS3_1 BTFSC OS3_FD,0 GOTO LABEL_OS3_1 BSF OS3_FD,0 BSF S7,6 GOTO LABEL_OS3_2 LABEL_OS3_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S7,6 BTFSS S7,2 GOTO LABEL_OS3_2 BCF OS3_FD,0 LABEL_OS3_2 ;*************************************************** ; UND - Gatter -> LG5 ;*************************************************** LABEL_LG5_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S8,2 GOTO LABEL_LG5_FALSE LABEL_LG5_2 BTFSS S8,4 GOTO LABEL_LG5_FALSE LABEL_LG5_TRUE BSF S8,0 GOTO LABEL_LG5_ENDE LABEL_LG5_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S8,0 LABEL_LG5_ENDE ;*************************************************** ; UND - Gatter -> LG6 ;*************************************************** LABEL_LG6_1 BTFSS S8,4 GOTO LABEL_LG6_FALSE LABEL_LG6_2 BTFSC S8,2 GOTO LABEL_LG6_FALSE LABEL_LG6_TRUE BSF S8,3 GOTO LABEL_LG6_ENDE LABEL_LG6_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S8,3 LABEL_LG6_ENDE ;*************************************************** ; RS-FLIP-FLOP -> RS1 ;*************************************************** BTFSC S8,1 GOTO LABEL_RS1_RESET BTFSS S8,3 GOTO LABEL_RS1_ENDE BSF S8,2 ; Ausgang setzen GOTO LABEL_RS1_ENDE LABEL_RS1_RESET BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S8,2 ; Ausgang zurücksetzen LABEL_RS1_ENDE ;*************************************************** ; ODER - Gatter -> LG7 ;*************************************************** LABEL_LG7_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S10,2 GOTO LABEL_LG7_TRUE LABEL_LG7_2 BTFSC S8,0 GOTO LABEL_LG7_TRUE LABEL_LG7_FALSE BCF S8,1 GOTO LABEL_LG7_ENDE LABEL_LG7_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S8,1 LABEL_LG7_ENDE ;*************************************************** ; UND - Gatter -> LG8 ;*************************************************** LABEL_LG8_1 BTFSC PORTA,2 GOTO LABEL_LG8_FALSE LABEL_LG8_TRUE BSF S8,5 GOTO LABEL_LG8_ENDE LABEL_LG8_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S8,5 LABEL_LG8_ENDE ;*************************************************** ; Timer -> TR1 ;*************************************************** MOVLW 0 ; Test auf >= SUBWF TR1_HI,W ;F-W -> W BTFSS STATUS,ZERO GOTO LABEL_TR1_CHECK MOVLW 195 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 S8,6 GOTO LABEL_TR1_CLR BSF S8,6 GOTO LABEL_TR1_ENDE LABEL_TR1_CLR BCF S8,6 LABEL_TR1_ENDE ;*************************************************** ; UND - Gatter -> LG9 ;*************************************************** LABEL_LG9_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S8,5 GOTO LABEL_LG9_FALSE LABEL_LG9_2 BTFSS S8,6 GOTO LABEL_LG9_FALSE LABEL_LG9_TRUE BSF S8,7 GOTO LABEL_LG9_ENDE LABEL_LG9_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S8,7 LABEL_LG9_ENDE ;*************************************************** ; Zähler -> ZV2 ;*************************************************** BTFSS S9,5 ; 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 S8,7 GOTO LABEL_ZV2_SETFD BTFSC ZV2_FD,0 GOTO LABEL_ZV2_SETFD BSF ZV2_FD,0 BTFSC S9,3 ; 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 LABEL_ZV2_SETFD ; Test auf negative Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S8,7 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 S9,2 ; Ausgang gesetzt ? GOTO LABEL_ST2_MH ; dann mit Hysterese ? MOVLW 30 GOTO LABEL_ST2_TEST LABEL_ST2_MH MOVLW 30 LABEL_ST2_TEST SUBWF ZV2,W BTFSS STATUS,CARRY GOTO LABEL_ST2_RESET BSF S9,2 ; if greater or equal GOTO LABEL_ST2_ENDE LABEL_ST2_RESET BCF S9,2 ; if less LABEL_ST2_ENDE ;*************************************************** ; UND - Gatter -> LG10 ;*************************************************** LABEL_LG10_1 BTFSS S9,4 GOTO LABEL_LG10_FALSE LABEL_LG10_2 BTFSS S9,2 GOTO LABEL_LG10_FALSE LABEL_LG10_TRUE BSF S9,1 GOTO LABEL_LG10_ENDE LABEL_LG10_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S9,1 LABEL_LG10_ENDE ;*************************************************** ; UND - Gatter -> LG11 ;*************************************************** LABEL_LG11_1 BTFSS S9,2 GOTO LABEL_LG11_FALSE LABEL_LG11_2 BTFSC S9,4 GOTO LABEL_LG11_FALSE LABEL_LG11_TRUE BSF S9,0 GOTO LABEL_LG11_ENDE LABEL_LG11_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S9,0 LABEL_LG11_ENDE ;*************************************************** ; RS-FLIP-FLOP -> RS2 ;*************************************************** BTFSC S12,4 GOTO LABEL_RS2_RESET BTFSS S9,0 GOTO LABEL_RS2_ENDE BSF S9,4 ; Ausgang setzen GOTO LABEL_RS2_ENDE LABEL_RS2_RESET BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S9,4 ; Ausgang zurücksetzen LABEL_RS2_ENDE ;*************************************************** ; GND ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S9,3 ; immer Low ;*************************************************** ; ODER - Gatter -> LG12 ;*************************************************** LABEL_LG12_1 BTFSC S9,6 GOTO LABEL_LG12_TRUE LABEL_LG12_2 BTFSC S9,2 GOTO LABEL_LG12_TRUE LABEL_LG12_FALSE BCF S9,5 GOTO LABEL_LG12_ENDE LABEL_LG12_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S9,5 LABEL_LG12_ENDE ;*************************************************** ; One Shot -> OS4 ;*************************************************** BTFSC S8,5 GOTO LABEL_OS4_1 BTFSC OS4_FD,0 GOTO LABEL_OS4_1 BSF OS4_FD,0 BSF S9,6 GOTO LABEL_OS4_2 LABEL_OS4_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S9,6 BTFSS S8,5 GOTO LABEL_OS4_2 BCF OS4_FD,0 LABEL_OS4_2 ;*************************************************** ; UND - Gatter -> LG13 ;*************************************************** LABEL_LG13_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S9,4 GOTO LABEL_LG13_FALSE LABEL_LG13_2 BTFSS S8,6 GOTO LABEL_LG13_FALSE LABEL_LG13_TRUE BSF S9,7 GOTO LABEL_LG13_ENDE LABEL_LG13_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S9,7 LABEL_LG13_ENDE ;*************************************************** ; One Shot -> OS5 ;*************************************************** BTFSS S8,5 GOTO LABEL_OS5_1 BTFSC OS5_FD,0 GOTO LABEL_OS5_1 BSF OS5_FD,0 BSF S10,0 GOTO LABEL_OS5_2 LABEL_OS5_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S10,0 BTFSC S8,5 GOTO LABEL_OS5_2 BCF OS5_FD,0 LABEL_OS5_2 ;*************************************************** ; UND - Gatter -> LG14 ;*************************************************** LABEL_LG14_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S9,4 GOTO LABEL_LG14_FALSE LABEL_LG14_2 BTFSS S10,0 GOTO LABEL_LG14_FALSE LABEL_LG14_TRUE BSF S8,4 GOTO LABEL_LG14_ENDE LABEL_LG14_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S8,4 LABEL_LG14_ENDE ;*************************************************** ; One Shot -> OS6 ;*************************************************** BTFSC S9,4 GOTO LABEL_OS6_1 BTFSC OS6_FD,0 GOTO LABEL_OS6_1 BSF OS6_FD,0 BSF S10,1 GOTO LABEL_OS6_2 LABEL_OS6_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S10,1 BTFSS S9,4 GOTO LABEL_OS6_2 BCF OS6_FD,0 LABEL_OS6_2 ;*************************************************** ; UND - Gatter -> LG15 ;*************************************************** LABEL_LG15_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S10,4 GOTO LABEL_LG15_FALSE LABEL_LG15_2 BTFSS S7,7 GOTO LABEL_LG15_FALSE LABEL_LG15_3 BTFSS S10,5 GOTO LABEL_LG15_FALSE LABEL_LG15_4 BTFSS S9,4 GOTO LABEL_LG15_FALSE LABEL_LG15_TRUE BSF S11,7 GOTO LABEL_LG15_ENDE LABEL_LG15_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S11,7 LABEL_LG15_ENDE ;*************************************************** ; VCC ;*************************************************** BSF S10,3 ; immer High ;*************************************************** ; Anzug-Verzögerung -> MF1 ;*************************************************** BTFSC S10,3 ; Eingang auf High ? GOTO LABEL_MF1_CHKTIME ; Ja ; RESET CLRF MF1 CLRF MF1_HI BCF S10,4 GOTO LABEL_MF1_EXIT ; raus LABEL_MF1_CHKTIME BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S10,4 ; Ausgang schon auf High ? GOTO LABEL_MF1_EXIT ; Ja MOVLW 12 SUBWF MF1_HI,W BTFSS STATUS,CARRY GOTO LABEL_MF1_EXIT MOVLW 53 SUBWF MF1,W BTFSS STATUS,CARRY GOTO LABEL_MF1_EXIT BSF S10,4 LABEL_MF1_EXIT ;*************************************************** ; Vergleich -> IF1 ;*************************************************** MOVLW 0 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 SUBWF ZV1,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 S10,6 GOTO LABEL_IF1_EXIT LABEL_IF1_FALSE BCF S10,6 LABEL_IF1_EXIT ;*************************************************** ; UND - Gatter -> LG16 ;*************************************************** LABEL_LG16_1 BTFSS S10,6 GOTO LABEL_LG16_FALSE LABEL_LG16_2 BTFSS S8,2 GOTO LABEL_LG16_FALSE LABEL_LG16_TRUE BCF S10,5 GOTO LABEL_LG16_ENDE LABEL_LG16_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S10,5 LABEL_LG16_ENDE ;*************************************************** ; Call subroutine TAB_7_SEG ;*************************************************** MOVLW LOW TAB_7_SEG MOVWF SYS_TMP1 MOVLW HIGH TAB_7_SEG MOVWF SYS_TMP2 MOVFW S1 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 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 ;********************************************** BTFSC S0,3 GOTO LABEL_BV1_3 BCF PORTB,3 GOTO LABEL_BV1_3_END LABEL_BV1_3 BSF PORTB,3 LABEL_BV1_3_END ;********************************************** BTFSC S0,4 GOTO LABEL_BV1_4 BCF PORTB,4 GOTO LABEL_BV1_4_END LABEL_BV1_4 BSF PORTB,4 LABEL_BV1_4_END ;********************************************** BTFSC S0,5 GOTO LABEL_BV1_5 BCF PORTB,5 GOTO LABEL_BV1_5_END LABEL_BV1_5 BSF PORTB,5 LABEL_BV1_5_END ;********************************************** BTFSC S0,6 GOTO LABEL_BV1_6 BCF PORTB,6 GOTO LABEL_BV1_6_END LABEL_BV1_6 BSF PORTB,6 LABEL_BV1_6_END ;********************************************** ;*************************************************** ;AF1 ;*************************************************** MOVFW S1 MOVWF SYS_TMP1 MOVLW 10 MOVWF SYS_TMP2 MOVLW HIGH SYSMUL8 MOVWF PCLATH CALL SYSMUL8 MOVLW HIGH LABEL_AF1 MOVWF PCLATH LABEL_AF1 MOVFW SYS_TMP3 MOVWF S2 LABEL_AF1_EXIT ;*************************************************** ;AF2 ;*************************************************** MOVFW S2 MOVWF SYS_TMP1 MOVLW 100 MOVWF SYS_TMP2 MOVLW HIGH SYSDIV8 MOVWF PCLATH CALL SYSDIV8 MOVLW HIGH LABEL_AF2 MOVWF PCLATH LABEL_AF2 MOVFW SYS_TMP3 MOVWF S3 LABEL_AF2_EXIT ;*************************************************** ; Vergleich -> IF2 ;*************************************************** MOVLW 1 SUBWF S3,W ; F - W -> W LABEL_IF2_CHECK BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS STATUS,CARRY ; Test auf -> >= GOTO LABEL_IF2_FALSE LABEL_IF2_TRUE BSF S10,7 GOTO LABEL_IF2_EXIT LABEL_IF2_FALSE BCF S10,7 LABEL_IF2_EXIT ;*************************************************** ; UND - Gatter -> LG17 ;*************************************************** LABEL_LG17_1 BTFSS S10,7 GOTO LABEL_LG17_FALSE LABEL_LG17_TRUE BSF PORTC,0 GOTO LABEL_LG17_ENDE LABEL_LG17_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF PORTC,0 LABEL_LG17_ENDE ;*************************************************** ; UND - Gatter -> LG18 ;*************************************************** LABEL_LG18_1 BTFSS S10,7 GOTO LABEL_LG18_FALSE LABEL_LG18_TRUE BSF PORTC,1 GOTO LABEL_LG18_ENDE LABEL_LG18_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF PORTC,1 LABEL_LG18_ENDE ;*************************************************** ; One Shot -> OS7 ;*************************************************** BTFSC PORTA,3 GOTO LABEL_OS7_1 BTFSC OS7_FD,0 GOTO LABEL_OS7_1 BSF OS7_FD,0 BSF S11,6 GOTO LABEL_OS7_2 LABEL_OS7_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S11,6 BTFSS PORTA,3 GOTO LABEL_OS7_2 BCF OS7_FD,0 LABEL_OS7_2 ;*************************************************** ; RS-FLIP-FLOP -> RS3 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S11,3 GOTO LABEL_RS3_RESET BTFSS S11,0 GOTO LABEL_RS3_ENDE BSF S11,1 ; Ausgang setzen GOTO LABEL_RS3_ENDE LABEL_RS3_RESET BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S11,1 ; Ausgang zurücksetzen LABEL_RS3_ENDE ;*************************************************** ; UND - Gatter -> LG19 ;*************************************************** LABEL_LG19_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S8,6 GOTO LABEL_LG19_FALSE LABEL_LG19_2 BTFSS S11,1 GOTO LABEL_LG19_FALSE LABEL_LG19_TRUE BSF S11,2 GOTO LABEL_LG19_ENDE LABEL_LG19_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S11,2 LABEL_LG19_ENDE ;*************************************************** ; Zähler -> ZV3 ;*************************************************** BTFSS S11,3 ; 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 S11,2 GOTO LABEL_ZV3_SETFD BTFSC ZV3_FD,0 GOTO LABEL_ZV3_SETFD BSF ZV3_FD,0 BTFSC S11,4 ; 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 S11,2 GOTO LABEL_ZV3_EXIT BCF ZV3_FD,0 LABEL_ZV3_EXIT ;*************************************************** ; Schmitt-Trigger 8-Bit -> ST3 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S11,3 ; Ausgang gesetzt ? GOTO LABEL_ST3_MH ; dann mit Hysterese ? MOVFW S4 GOTO LABEL_ST3_TEST LABEL_ST3_MH MOVLW 0 ; Hysterese SUBWF S4,W LABEL_ST3_TEST SUBWF ZV3,W BTFSS STATUS,CARRY GOTO LABEL_ST3_RESET BSF S11,3 ; if greater or equal GOTO LABEL_ST3_ENDE LABEL_ST3_RESET BCF S11,3 ; if less LABEL_ST3_ENDE ;*************************************************** ;AF3 ;*************************************************** MOVFW ZV1 MOVWF SYS_TMP1 MOVLW 10 MOVWF SYS_TMP2 MOVLW HIGH SYSMUL8 MOVWF PCLATH CALL SYSMUL8 MOVLW HIGH LABEL_AF3 MOVWF PCLATH LABEL_AF3 MOVFW SYS_TMP3 MOVWF S4 LABEL_AF3_EXIT ;*************************************************** ; GND ;*************************************************** BCF S11,4 ; immer Low ;*************************************************** ; UND - Gatter -> LG20 ;*************************************************** LABEL_LG20_1 BTFSS S11,1 GOTO LABEL_LG20_FALSE LABEL_LG20_TRUE BSF PORTC,3 GOTO LABEL_LG20_ENDE LABEL_LG20_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF PORTC,3 LABEL_LG20_ENDE ;*************************************************** ;AF4 ;*************************************************** MOVFW ZV3 MOVWF SYS_TMP1 MOVLW 10 MOVWF SYS_TMP2 MOVLW HIGH SYSDIV8 MOVWF PCLATH CALL SYSDIV8 MOVLW HIGH LABEL_AF4 MOVWF PCLATH LABEL_AF4 MOVFW SYS_TMP3 MOVWF S5 LABEL_AF4_EXIT ;*************************************************** ; Multiplexer -> MX1 ;*************************************************** CLRF SYS_TMP1 MOVFW S6 BTFSS STATUS,ZERO GOTO LABEL_MX1_CHECKCONTROL1 MOVFW S5 MOVWF S1 GOTO LABEL_MX1_END LABEL_MX1_CHECKCONTROL1 INCF SYS_TMP1,F MOVFW S6 SUBWF SYS_TMP1,W BTFSS STATUS,ZERO GOTO LABEL_MX1_CHECKCONTROL2 MOVFW ZV1 MOVWF S1 GOTO LABEL_MX1_END LABEL_MX1_CHECKCONTROL2 LABEL_MX1_END ;*************************************************** ; Verteiler -> BV2 ;*************************************************** MOVLW 0 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S11,5 ; IN0 IORLW 1 MOVWF S6 ; OUT ;*************************************************** ; UND - Gatter -> LG21 ;*************************************************** LABEL_LG21_1 BTFSC S9,4 GOTO LABEL_LG21_FALSE LABEL_LG21_2 BTFSS S11,6 GOTO LABEL_LG21_FALSE LABEL_LG21_TRUE BSF S11,0 GOTO LABEL_LG21_ENDE LABEL_LG21_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S11,0 LABEL_LG21_ENDE ;*************************************************** ; EE-Modul -> EE1 ;*************************************************** ; Test of falling edge BTFSC S11,7 GOTO LABEL_EE1_SETFD BTFSS EE1_FD,0 GOTO LABEL_EE1_SETFD BCF EE1_FD,0 MOVLW HIGH WRITE_EE1 MOVWF PCLATH CALL WRITE_EE1 MOVLW HIGH LABEL_EE1_SETFD MOVWF PCLATH LABEL_EE1_SETFD ; test input BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S11,7 GOTO LABEL_EE1_EXIT BSF EE1_FD,0 LABEL_EE1_EXIT ;*************************************************** ; UND - Gatter -> LG22 ;*************************************************** LABEL_LG22_1 BTFSS S8,2 GOTO LABEL_LG22_FALSE LABEL_LG22_TRUE BSF S13,2 GOTO LABEL_LG22_ENDE LABEL_LG22_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S13,2 LABEL_LG22_ENDE ;*************************************************** ; UND - Gatter -> LG23 ;*************************************************** LABEL_LG23_1 BTFSS S9,4 GOTO LABEL_LG23_FALSE LABEL_LG23_2 BTFSS S8,6 GOTO LABEL_LG23_FALSE LABEL_LG23_TRUE BSF S12,2 GOTO LABEL_LG23_ENDE LABEL_LG23_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S12,2 LABEL_LG23_ENDE ;*************************************************** ; Zähler -> ZV4 ;*************************************************** BTFSS S12,3 ; Reset ? GOTO LABEL_ZV4_COUNT CLRF ZV4 GOTO LABEL_ZV4_SETOUT LABEL_ZV4_COUNT ; Test auf positive Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S12,2 GOTO LABEL_ZV4_SETFD BTFSC ZV4_FD,0 GOTO LABEL_ZV4_SETFD BSF ZV4_FD,0 BTFSC S12,1 ; Vorwärts oder Rückwärts ? GOTO LABEL_ZV4_BACKWARD INCF ZV4,F GOTO LABEL_ZV4_SETOUT LABEL_ZV4_BACKWARD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 DECF ZV4,F LABEL_ZV4_SETOUT LABEL_ZV4_SETFD ; Test auf negative Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S12,2 GOTO LABEL_ZV4_EXIT BCF ZV4_FD,0 LABEL_ZV4_EXIT ;*************************************************** ; Schmitt-Trigger 8-Bit -> ST4 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S12,0 ; Ausgang gesetzt ? GOTO LABEL_ST4_MH ; dann mit Hysterese ? MOVLW 250 GOTO LABEL_ST4_TEST LABEL_ST4_MH MOVLW 250 LABEL_ST4_TEST SUBWF ZV4,W BTFSS STATUS,CARRY GOTO LABEL_ST4_RESET BSF S12,0 ; if greater or equal GOTO LABEL_ST4_ENDE LABEL_ST4_RESET BCF S12,0 ; if less LABEL_ST4_ENDE ;*************************************************** ; GND ;*************************************************** BCF S12,1 ; immer Low ;*************************************************** ; ODER - Gatter -> LG24 ;*************************************************** LABEL_LG24_1 BTFSC S12,0 GOTO LABEL_LG24_TRUE LABEL_LG24_2 BTFSC S11,7 GOTO LABEL_LG24_TRUE LABEL_LG24_3 BTFSC S8,4 GOTO LABEL_LG24_TRUE LABEL_LG24_FALSE BCF S12,3 GOTO LABEL_LG24_ENDE LABEL_LG24_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S12,3 LABEL_LG24_ENDE ;*************************************************** ; ODER - Gatter -> LG25 ;*************************************************** LABEL_LG25_1 BTFSC S12,0 GOTO LABEL_LG25_TRUE LABEL_LG25_2 BTFSC S10,1 GOTO LABEL_LG25_TRUE LABEL_LG25_FALSE BCF S10,2 GOTO LABEL_LG25_ENDE LABEL_LG25_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S10,2 LABEL_LG25_ENDE ;*************************************************** ; ODER - Gatter -> LG26 ;*************************************************** LABEL_LG26_1 BTFSC S12,0 GOTO LABEL_LG26_TRUE LABEL_LG26_2 BTFSC S9,1 GOTO LABEL_LG26_TRUE LABEL_LG26_FALSE BCF S12,4 GOTO LABEL_LG26_ENDE LABEL_LG26_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S12,4 LABEL_LG26_ENDE ;*************************************************** ; Zähler -> ZV5 ;*************************************************** BTFSS S12,5 ; Reset ? GOTO LABEL_ZV5_COUNT CLRF ZV5 GOTO LABEL_ZV5_SETOUT LABEL_ZV5_COUNT ; Test auf positive Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S8,6 GOTO LABEL_ZV5_SETFD BTFSC ZV5_FD,0 GOTO LABEL_ZV5_SETFD BSF ZV5_FD,0 BTFSC S12,5 ; Vorwärts oder Rückwärts ? GOTO LABEL_ZV5_BACKWARD INCF ZV5,F GOTO LABEL_ZV5_SETOUT LABEL_ZV5_BACKWARD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 DECF ZV5,F LABEL_ZV5_SETOUT ; Output Q0 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS ZV5,0 GOTO LABEL_ZV5_SETOUT0 BSF S12,6 GOTO LABEL_ZV5_SETOUT0_END LABEL_ZV5_SETOUT0 BCF S12,6 LABEL_ZV5_SETOUT0_END ; Output Q1 BTFSS ZV5,1 GOTO LABEL_ZV5_SETOUT1 BSF S12,7 GOTO LABEL_ZV5_SETOUT1_END LABEL_ZV5_SETOUT1 BCF S12,7 LABEL_ZV5_SETOUT1_END LABEL_ZV5_SETFD ; Test auf negative Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S8,6 GOTO LABEL_ZV5_EXIT BCF ZV5_FD,0 LABEL_ZV5_EXIT ;*************************************************** ; GND ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S12,5 ; immer Low ;*************************************************** ; ODER - Gatter -> LG27 ;*************************************************** LABEL_LG27_1 BTFSC S13,2 GOTO LABEL_LG27_TRUE LABEL_LG27_2 BTFSC S13,0 GOTO LABEL_LG27_TRUE LABEL_LG27_FALSE BCF PORTC,2 GOTO LABEL_LG27_ENDE LABEL_LG27_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF PORTC,2 LABEL_LG27_ENDE ;*************************************************** ; ODER - Gatter -> LG28 ;*************************************************** LABEL_LG28_1 BTFSC S13,1 GOTO LABEL_LG28_TRUE LABEL_LG28_2 BTFSC S9,7 GOTO LABEL_LG28_TRUE LABEL_LG28_FALSE BCF PORTB,7 GOTO LABEL_LG28_ENDE LABEL_LG28_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF PORTB,7 LABEL_LG28_ENDE ;*************************************************** ; UND - Gatter -> LG29 ;*************************************************** LABEL_LG29_1 BTFSS S11,1 GOTO LABEL_LG29_FALSE LABEL_LG29_2 BTFSS S12,6 GOTO LABEL_LG29_FALSE LABEL_LG29_TRUE BSF S13,0 GOTO LABEL_LG29_ENDE LABEL_LG29_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S13,0 LABEL_LG29_ENDE ;*************************************************** ; UND - Gatter -> LG30 ;*************************************************** LABEL_LG30_1 BTFSS S11,1 GOTO LABEL_LG30_FALSE LABEL_LG30_2 BTFSC S12,6 GOTO LABEL_LG30_FALSE LABEL_LG30_TRUE BSF S13,1 GOTO LABEL_LG30_ENDE LABEL_LG30_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S13,1 LABEL_LG30_ENDE ;*************************************************** ; ODER - Gatter -> LG31 ;*************************************************** LABEL_LG31_1 BTFSC S9,4 GOTO LABEL_LG31_TRUE LABEL_LG31_2 BTFSS S10,4 GOTO LABEL_LG31_TRUE LABEL_LG31_FALSE BCF S11,5 GOTO LABEL_LG31_ENDE LABEL_LG31_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S11,5 LABEL_LG31_ENDE ;**************************************** GOTO MAIN ;*************************************************** ; Table -> TAB_7_SEG ;*************************************************** TAB_7_SEG RETLW 63 ; // INDEX 0 RETLW 6 ; // INDEX 1 RETLW 91 ; // INDEX 2 RETLW 79 ; // INDEX 3 RETLW 102 ; // INDEX 4 RETLW 109 ; // INDEX 5 RETLW 125 ; // INDEX 6 RETLW 7 ; // INDEX 7 RETLW 127 ; // INDEX 8 RETLW 111 ; // INDEX 9 RETLW 63 ; // INDEX 10 RETLW 6 ; // INDEX 11 RETLW 91 ; // INDEX 12 RETLW 79 ; // INDEX 13 RETLW 102 ; // INDEX 14 RETLW 109 ; // INDEX 15 RETLW 125 ; // INDEX 16 RETLW 7 ; // INDEX 17 RETLW 127 ; // INDEX 18 RETLW 111 ; // INDEX 19 RETLW 63 ; // INDEX 20 ORG H'2100' DE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 END