; Source created with Parsic Version 3.x ; at : 2017.04.12. 15:38:05 ; Project File : C:\Users\D8A8A~1.CSA\AppData\Local\Temp\HS_drot-2.PIC ; Project Version : 1.0.12 ; Created : 2001.07.24. 15:00:00 ; Last change : 2017.04.10. 14:40:00 PROCESSOR 16F877 INCLUDE P16F877.INC RADIX DEC __IDLOCS H'0100' __CONFIG _CP_OFF & _PWRTE_ON & _WDT_ON & _BODEN_ON & _XT_OSC & _LVP_OFF & _CPD_OFF & _DEBUG_OFF ; Diverses ZERO EQU Z ; ZERO-Flag CARRY EQU C ; CARRY-Flag ; Variable S1 = 32 ; located in Bank 0 TR1 = 33 ; located in Bank 0 TR1_HI = 34 ; located in Bank 0 S4 = 35 ; located in Bank 0 S0 = 36 ; located in Bank 0 S3 = 37 ; located in Bank 0 OS1_FD = 38 ; located in Bank 0 OS2_FD = 39 ; located in Bank 0 OS3_FD = 40 ; located in Bank 0 ZV1 = 41 ; located in Bank 0 ZV1_FD = 42 ; located in Bank 0 OS4_FD = 43 ; located in Bank 0 ZV2 = 44 ; located in Bank 0 ZV2_FD = 45 ; located in Bank 0 OS5_FD = 46 ; located in Bank 0 ZV3 = 47 ; located in Bank 0 ZV3_FD = 48 ; located in Bank 0 S2 = 49 ; located in Bank 0 ZV4 = 50 ; located in Bank 0 ZV4_FD = 51 ; located in Bank 0 S5 = 52 ; located in Bank 0 OS6_FD = 53 ; located in Bank 0 RAM = 54 ; located in Bank 0 SYS_TMP1 = 114 ; located in Bank 0, 1, 2, 3 SYS_TMP2 = 115 ; located in Bank 0, 1, 2, 3 SYS_WSAV = 116 ; located in Bank 0, 1, 2, 3 SYS_SSAV = 117 ; located in Bank 0, 1, 2, 3 SYS_PSAV = 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 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 ;**************************************** ; 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 143 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'11111111' MOVWF TRISC MOVLW B'00001111' 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 CLRWDT ;*************************************************** ; Call subroutine BIN_TO_7SEG ;*************************************************** MOVLW LOW BIN_TO_7SEG MOVWF SYS_TMP1 MOVLW HIGH BIN_TO_7SEG MOVWF SYS_TMP2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVFW S0 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 ;*************************************************** ; Timer -> TR1 ;*************************************************** MOVLW 0 ; Test auf >= SUBWF TR1_HI,W ;F-W -> W BTFSS STATUS,ZERO GOTO LABEL_TR1_CHECK MOVLW 8 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 8 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 ;*************************************************** ; Multiplexer -> MX1 ;*************************************************** CLRF SYS_TMP1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVFW ZV1 BTFSS STATUS,ZERO GOTO LABEL_MX1_CHECKCONTROL1 MOVFW ZV3 MOVWF S0 GOTO LABEL_MX1_END LABEL_MX1_CHECKCONTROL1 INCF SYS_TMP1,F BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVFW ZV1 SUBWF SYS_TMP1,W BTFSS STATUS,ZERO GOTO LABEL_MX1_CHECKCONTROL2 MOVFW ZV2 MOVWF S0 GOTO LABEL_MX1_END LABEL_MX1_CHECKCONTROL2 LABEL_MX1_END ;*************************************************** ; UND - Gatter -> UG12 ;*************************************************** LABEL_UG12_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S3,0 GOTO LABEL_UG12_FALSE LABEL_UG12_2 BTFSC S3,1 GOTO LABEL_UG12_FALSE LABEL_UG12_3 BTFSS S3,4 GOTO LABEL_UG12_FALSE LABEL_UG12_TRUE BSF PORTD,4 GOTO LABEL_UG12_ENDE LABEL_UG12_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF PORTD,4 LABEL_UG12_ENDE ;*************************************************** ; UND - Gatter -> UG13 ;*************************************************** LABEL_UG13_1 BTFSS S3,0 GOTO LABEL_UG13_FALSE LABEL_UG13_2 BTFSC S3,1 GOTO LABEL_UG13_FALSE LABEL_UG13_3 BTFSS S3,4 GOTO LABEL_UG13_FALSE LABEL_UG13_TRUE BSF PORTD,5 GOTO LABEL_UG13_ENDE LABEL_UG13_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF PORTD,5 LABEL_UG13_ENDE ;*************************************************** ; UND - Gatter -> UG14 ;*************************************************** LABEL_UG14_1 BTFSC S3,0 GOTO LABEL_UG14_FALSE LABEL_UG14_2 BTFSS S3,1 GOTO LABEL_UG14_FALSE LABEL_UG14_3 BTFSS S3,4 GOTO LABEL_UG14_FALSE LABEL_UG14_TRUE BSF PORTD,6 GOTO LABEL_UG14_ENDE LABEL_UG14_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF PORTD,6 LABEL_UG14_ENDE ;*************************************************** ; One Shot -> OS1 ;*************************************************** BTFSS S4,0 GOTO LABEL_OS1_1 BTFSC OS1_FD,0 GOTO LABEL_OS1_1 BSF OS1_FD,0 BSF S3,5 GOTO LABEL_OS1_2 LABEL_OS1_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S3,5 BTFSC S4,0 GOTO LABEL_OS1_2 BCF OS1_FD,0 LABEL_OS1_2 ;*************************************************** ; One Shot -> OS2 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S3,5 GOTO LABEL_OS2_1 BTFSC OS2_FD,0 GOTO LABEL_OS2_1 BSF OS2_FD,0 BSF S3,6 GOTO LABEL_OS2_2 LABEL_OS2_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S3,6 BTFSS S3,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 BTFSC S3,6 GOTO LABEL_OS3_1 BTFSC OS3_FD,0 GOTO LABEL_OS3_1 BSF OS3_FD,0 BSF S3,7 GOTO LABEL_OS3_2 LABEL_OS3_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S3,7 BTFSS S3,6 GOTO LABEL_OS3_2 BCF OS3_FD,0 LABEL_OS3_2 ;*************************************************** ; RS-FLIP-FLOP -> RS1 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S3,5 GOTO LABEL_RS1_RESET BTFSS S3,7 GOTO LABEL_RS1_ENDE BSF S3,4 ; Ausgang setzen GOTO LABEL_RS1_ENDE LABEL_RS1_RESET BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S3,4 ; Ausgang zurücksetzen LABEL_RS1_ENDE ;*************************************************** ; UND - Gatter -> UG15 ;*************************************************** LABEL_UG15_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S3,0 GOTO LABEL_UG15_FALSE LABEL_UG15_2 BTFSS S3,1 GOTO LABEL_UG15_FALSE LABEL_UG15_3 BTFSS S3,4 GOTO LABEL_UG15_FALSE LABEL_UG15_TRUE BSF PORTD,7 GOTO LABEL_UG15_ENDE LABEL_UG15_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF PORTD,7 LABEL_UG15_ENDE ;*************************************************** ; Zähler -> ZV1 ;*************************************************** BTFSS S3,2 ; Reset ? GOTO LABEL_ZV1_COUNT CLRF ZV1 GOTO LABEL_ZV1_SETOUT LABEL_ZV1_COUNT ; Test auf negative Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S3,5 GOTO LABEL_ZV1_SETFD BTFSS ZV1_FD,0 GOTO LABEL_ZV1_SETFD BCF ZV1_FD,0 BTFSC S3,3 ; 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 S3,0 GOTO LABEL_ZV1_SETOUT0_END LABEL_ZV1_SETOUT0 BCF S3,0 LABEL_ZV1_SETOUT0_END ; Output Q1 BTFSS ZV1,1 GOTO LABEL_ZV1_SETOUT1 BSF S3,1 GOTO LABEL_ZV1_SETOUT1_END LABEL_ZV1_SETOUT1 BCF S3,1 LABEL_ZV1_SETOUT1_END ; Output Q2 BTFSS ZV1,2 GOTO LABEL_ZV1_SETOUT2 BSF S3,2 GOTO LABEL_ZV1_SETOUT2_END LABEL_ZV1_SETOUT2 BCF S3,2 LABEL_ZV1_SETOUT2_END LABEL_ZV1_SETFD ; Test auf positive Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S3,5 GOTO LABEL_ZV1_EXIT BSF ZV1_FD,0 LABEL_ZV1_EXIT ;*************************************************** ; Verteiler -> BV1 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S1,0 GOTO LABEL_BV1_0 BCF PORTB,6 GOTO LABEL_BV1_0_END LABEL_BV1_0 BSF PORTB,6 LABEL_BV1_0_END ;********************************************** BTFSC S1,1 GOTO LABEL_BV1_1 BCF PORTB,7 GOTO LABEL_BV1_1_END LABEL_BV1_1 BSF PORTB,7 LABEL_BV1_1_END ;********************************************** BTFSC S1,2 GOTO LABEL_BV1_2 BCF PORTB,5 GOTO LABEL_BV1_2_END LABEL_BV1_2 BSF PORTB,5 LABEL_BV1_2_END ;********************************************** BTFSC S1,3 GOTO LABEL_BV1_3 BCF PORTB,2 GOTO LABEL_BV1_3_END LABEL_BV1_3 BSF PORTB,2 LABEL_BV1_3_END ;********************************************** BTFSC S1,4 GOTO LABEL_BV1_4 BCF PORTB,1 GOTO LABEL_BV1_4_END LABEL_BV1_4 BSF PORTB,1 LABEL_BV1_4_END ;********************************************** BTFSC S1,5 GOTO LABEL_BV1_5 BCF PORTB,4 GOTO LABEL_BV1_5_END LABEL_BV1_5 BSF PORTB,4 LABEL_BV1_5_END ;********************************************** BTFSC S1,6 GOTO LABEL_BV1_6 BCF PORTB,3 GOTO LABEL_BV1_6_END LABEL_BV1_6 BSF PORTB,3 LABEL_BV1_6_END ;********************************************** BTFSC S1,7 GOTO LABEL_BV1_7 BCF PORTB,0 GOTO LABEL_BV1_7_END LABEL_BV1_7 BSF PORTB,0 LABEL_BV1_7_END ;********************************************** ;*************************************************** ; GND ;*************************************************** BCF S3,3 ; immer Low ;*************************************************** ; Vergleich -> IF1 ;*************************************************** MOVLW 10 SUBWF ZV2,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 ;*************************************************** ; One Shot -> OS4 ;*************************************************** BTFSC PORTD,3 GOTO LABEL_OS4_1 BTFSC OS4_FD,0 GOTO LABEL_OS4_1 BSF OS4_FD,0 BSF S4,2 GOTO LABEL_OS4_2 LABEL_OS4_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S4,2 BTFSS PORTD,3 GOTO LABEL_OS4_2 BCF OS4_FD,0 LABEL_OS4_2 ;*************************************************** ; Zähler -> ZV2 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S4,1 ; 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 S4,2 GOTO LABEL_ZV2_SETFD BTFSC ZV2_FD,0 GOTO LABEL_ZV2_SETFD BSF ZV2_FD,0 BTFSC S4,5 ; 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 S4,2 GOTO LABEL_ZV2_EXIT BCF ZV2_FD,0 LABEL_ZV2_EXIT ;*************************************************** ; Vergleich -> IF2 ;*************************************************** MOVLW 10 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 SUBWF ZV3,W ; F - 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,3 GOTO LABEL_IF2_EXIT LABEL_IF2_FALSE BCF S4,3 LABEL_IF2_EXIT ;*************************************************** ; One Shot -> OS5 ;*************************************************** BTFSC PORTD,2 GOTO LABEL_OS5_1 BTFSC OS5_FD,0 GOTO LABEL_OS5_1 BSF OS5_FD,0 BSF S4,4 GOTO LABEL_OS5_2 LABEL_OS5_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S4,4 BTFSS PORTD,2 GOTO LABEL_OS5_2 BCF OS5_FD,0 LABEL_OS5_2 ;*************************************************** ; Zähler -> ZV3 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S4,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 S4,4 GOTO LABEL_ZV3_SETFD BTFSC ZV3_FD,0 GOTO LABEL_ZV3_SETFD BSF ZV3_FD,0 BTFSC S4,5 ; 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,4 GOTO LABEL_ZV3_EXIT BCF ZV3_FD,0 LABEL_ZV3_EXIT ;*************************************************** ; GND ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S4,5 ; immer Low ;*************************************************** ;AF1 ;*************************************************** MOVFW ZV3 ADDWF S2,W MOVWF S3 LABEL_AF1_EXIT ;*************************************************** ;AF2 ;*************************************************** MOVFW ZV2 MOVWF SYS_TMP1 MOVLW 10 MOVWF SYS_TMP2 MOVLW HIGH SYSMUL8 MOVWF PCLATH CALL SYSMUL8 MOVLW HIGH LABEL_AF2 MOVWF PCLATH LABEL_AF2 MOVFW SYS_TMP3 MOVWF S2 LABEL_AF2_EXIT ;*************************************************** ; Zähler -> ZV4 ;*************************************************** BTFSS S4,7 ; 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 S4,6 GOTO LABEL_ZV4_SETFD BTFSC ZV4_FD,0 GOTO LABEL_ZV4_SETFD BSF ZV4_FD,0 BTFSC S5,0 ; 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 S4,6 GOTO LABEL_ZV4_EXIT BCF ZV4_FD,0 LABEL_ZV4_EXIT ;*************************************************** ; GND ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S5,0 ; immer Low ;*************************************************** ; One Shot -> OS6 ;*************************************************** BTFSC PORTC,3 GOTO LABEL_OS6_1 BTFSC OS6_FD,0 GOTO LABEL_OS6_1 BSF OS6_FD,0 BSF S4,6 GOTO LABEL_OS6_2 LABEL_OS6_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S4,6 BTFSS PORTC,3 GOTO LABEL_OS6_2 BCF OS6_FD,0 LABEL_OS6_2 ;*************************************************** ; Vergleich -> IF3 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVFW ZV4 SUBWF S3,W ; F - W -> W LABEL_IF3_CHECK BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC STATUS,CARRY ; Test auf -> < GOTO LABEL_IF3_FALSE LABEL_IF3_TRUE BSF S4,7 GOTO LABEL_IF3_EXIT LABEL_IF3_FALSE BCF S4,7 LABEL_IF3_EXIT ;**************************************** GOTO MAIN ;*************************************************** ; Table -> BIN_TO_7SEG ;*************************************************** BIN_TO_7SEG 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 END