; Source created with Parsic Version 3.x ; at : 2009.04.04. 21:56:14 ; Project File : C:\DOCUME~1\Martin\Asztal\eredm.PIC ; Project Version : 1.0.5 ; Created : 2001.07.24. 15:00:00 ; Last change : 2009.04.04. 21:56:06 PROCESSOR 16F628A INCLUDE P16F628A.INC RADIX DEC __IDLOCS H'0100' __CONFIG _CP_OFF & _PWRTE_ON & _WDT_ON & _BODEN_ON & _XT_OSC & _LVP_OFF & _MCLRE_ON ; 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 S3 = 35 ; located in Bank 0 S0 = 36 ; located in Bank 0 S2 = 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 ZV2 = 43 ; located in Bank 0 ZV2_FD = 44 ; located in Bank 0 ZV3 = 45 ; located in Bank 0 ZV3_FD = 46 ; located in Bank 0 ZV4 = 47 ; located in Bank 0 ZV4_FD = 48 ; located in Bank 0 ZV5 = 49 ; located in Bank 0 ZV5_FD = 50 ; located in Bank 0 S4 = 51 ; located in Bank 0 OS4_FD = 52 ; located in Bank 0 OS5_FD = 53 ; located in Bank 0 OS6_FD = 54 ; located in Bank 0 RAM = 55 ; 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 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 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 INCF TR1_HI,F SYS_INT_LABEL_0 EXITINT 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 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVFW SYS_TMP2 MOVWF PCLATH BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 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'01111111' MOVWF PORTB MOVLW 143 BSF STATUS,RP0 ; Bank 1 BCF STATUS,RP1 ; Bank 1 MOVWF OPTION_REG ; Richtung setzen MOVLW B'10000111' MOVWF TRISA MOVLW B'10000000' MOVWF TRISB BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; 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 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 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVLW LOW BIN_TO_7SEG MOVWF SYS_TMP1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVLW HIGH BIN_TO_7SEG MOVWF SYS_TMP2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVFW S0 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 ADDWF SYS_TMP1,F BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC STATUS,CARRY INCF SYS_TMP2,F CALL SYSTABJMP BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVWF S1 BSF INTCON,GIE ;*************************************************** ; 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 8 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 SUBWF TR1,W ;F-W -> W LABEL_TR1_CHECK BTFSS STATUS,CARRY GOTO LABEL_TR1_ENDE LABEL_TR1_RESET MOVLW 0 ; Test auf >= BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 SUBWF TR1_HI,F ;F-W -> F MOVLW 8 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 SUBWF TR1,F ;F-W -> F BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS STATUS,CARRY DECF TR1_HI,F LABEL_TR1_SET ; toggel output BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S3,0 GOTO LABEL_TR1_CLR BSF S3,0 GOTO LABEL_TR1_ENDE LABEL_TR1_CLR BCF S3,0 LABEL_TR1_ENDE ;*************************************************** ; Multiplexer -> MX1 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 CLRF SYS_TMP1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVFW ZV1 BTFSS STATUS,ZERO GOTO LABEL_MX1_CHECKCONTROL1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVFW ZV2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVWF S0 GOTO LABEL_MX1_END LABEL_MX1_CHECKCONTROL1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 INCF SYS_TMP1,F BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVFW ZV1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 SUBWF SYS_TMP1,W BTFSS STATUS,ZERO GOTO LABEL_MX1_CHECKCONTROL2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVFW ZV3 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVWF S0 GOTO LABEL_MX1_END LABEL_MX1_CHECKCONTROL2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 INCF SYS_TMP1,F BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVFW ZV1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 SUBWF SYS_TMP1,W BTFSS STATUS,ZERO GOTO LABEL_MX1_CHECKCONTROL3 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVFW ZV4 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVWF S0 GOTO LABEL_MX1_END LABEL_MX1_CHECKCONTROL3 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 INCF SYS_TMP1,F BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVFW ZV1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 SUBWF SYS_TMP1,W BTFSS STATUS,ZERO GOTO LABEL_MX1_CHECKCONTROL4 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVFW ZV5 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVWF S0 GOTO LABEL_MX1_END LABEL_MX1_CHECKCONTROL4 LABEL_MX1_END ;*************************************************** ; UND - Gatter -> UG12 ;*************************************************** LABEL_UG12_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S2,0 GOTO LABEL_UG12_FALSE LABEL_UG12_2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S2,1 GOTO LABEL_UG12_FALSE LABEL_UG12_3 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S2,4 GOTO LABEL_UG12_FALSE LABEL_UG12_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF PORTA,3 GOTO LABEL_UG12_ENDE LABEL_UG12_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF PORTA,3 LABEL_UG12_ENDE ;*************************************************** ; UND - Gatter -> UG13 ;*************************************************** LABEL_UG13_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S2,0 GOTO LABEL_UG13_FALSE LABEL_UG13_2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S2,1 GOTO LABEL_UG13_FALSE LABEL_UG13_3 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S2,4 GOTO LABEL_UG13_FALSE LABEL_UG13_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF PORTA,4 GOTO LABEL_UG13_ENDE LABEL_UG13_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF PORTA,4 LABEL_UG13_ENDE ;*************************************************** ; UND - Gatter -> UG14 ;*************************************************** LABEL_UG14_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S2,0 GOTO LABEL_UG14_FALSE LABEL_UG14_2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S2,1 GOTO LABEL_UG14_FALSE LABEL_UG14_3 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S2,4 GOTO LABEL_UG14_FALSE LABEL_UG14_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF PORTA,5 GOTO LABEL_UG14_ENDE LABEL_UG14_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF PORTA,5 LABEL_UG14_ENDE ;*************************************************** ; One Shot -> OS1 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S3,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 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S2,5 GOTO LABEL_OS1_2 LABEL_OS1_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S2,5 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S3,0 GOTO LABEL_OS1_2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF OS1_FD,0 LABEL_OS1_2 ;*************************************************** ; One Shot -> OS2 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S2,5 GOTO LABEL_OS2_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC OS2_FD,0 GOTO LABEL_OS2_1 BSF OS2_FD,0 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S2,6 GOTO LABEL_OS2_2 LABEL_OS2_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S2,6 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S2,5 GOTO LABEL_OS2_2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF OS2_FD,0 LABEL_OS2_2 ;*************************************************** ; One Shot -> OS3 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S2,6 GOTO LABEL_OS3_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC OS3_FD,0 GOTO LABEL_OS3_1 BSF OS3_FD,0 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S2,7 GOTO LABEL_OS3_2 LABEL_OS3_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S2,7 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S2,6 GOTO LABEL_OS3_2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF OS3_FD,0 LABEL_OS3_2 ;*************************************************** ; RS-FLIP-FLOP -> RS1 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S2,5 GOTO LABEL_RS1_RESET BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S2,7 GOTO LABEL_RS1_ENDE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S2,4 ; Ausgang setzen GOTO LABEL_RS1_ENDE LABEL_RS1_RESET BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S2,4 ; Ausgang zurücksetzen LABEL_RS1_ENDE ;*************************************************** ; UND - Gatter -> UG15 ;*************************************************** LABEL_UG15_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S2,0 GOTO LABEL_UG15_FALSE LABEL_UG15_2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S2,1 GOTO LABEL_UG15_FALSE LABEL_UG15_3 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S2,4 GOTO LABEL_UG15_FALSE LABEL_UG15_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF PORTA,6 GOTO LABEL_UG15_ENDE LABEL_UG15_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF PORTA,6 LABEL_UG15_ENDE ;*************************************************** ; Zähler -> ZV1 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S2,2 ; Reset ? GOTO LABEL_ZV1_COUNT BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 CLRF ZV1 GOTO LABEL_ZV1_SETOUT LABEL_ZV1_COUNT ; Test auf negative Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S2,5 GOTO LABEL_ZV1_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS ZV1_FD,0 GOTO LABEL_ZV1_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF ZV1_FD,0 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S2,3 ; Vorwärts oder Rückwärts ? GOTO LABEL_ZV1_BACKWARD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 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 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S2,0 GOTO LABEL_ZV1_SETOUT0_END LABEL_ZV1_SETOUT0 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S2,0 LABEL_ZV1_SETOUT0_END ; Output Q1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS ZV1,1 GOTO LABEL_ZV1_SETOUT1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S2,1 GOTO LABEL_ZV1_SETOUT1_END LABEL_ZV1_SETOUT1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S2,1 LABEL_ZV1_SETOUT1_END ; Output Q2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS ZV1,2 GOTO LABEL_ZV1_SETOUT2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S2,2 GOTO LABEL_ZV1_SETOUT2_END LABEL_ZV1_SETOUT2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S2,2 LABEL_ZV1_SETOUT2_END LABEL_ZV1_SETFD ; Test auf positive Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S2,5 GOTO LABEL_ZV1_EXIT BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 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 STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF PORTB,0 GOTO LABEL_BV1_0_END LABEL_BV1_0 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF PORTB,0 LABEL_BV1_0_END ;********************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S1,1 GOTO LABEL_BV1_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF PORTB,1 GOTO LABEL_BV1_1_END LABEL_BV1_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF PORTB,1 LABEL_BV1_1_END ;********************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S1,2 GOTO LABEL_BV1_2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF PORTB,2 GOTO LABEL_BV1_2_END LABEL_BV1_2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF PORTB,2 LABEL_BV1_2_END ;********************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S1,3 GOTO LABEL_BV1_3 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF PORTB,3 GOTO LABEL_BV1_3_END LABEL_BV1_3 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF PORTB,3 LABEL_BV1_3_END ;********************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S1,4 GOTO LABEL_BV1_4 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF PORTB,4 GOTO LABEL_BV1_4_END LABEL_BV1_4 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF PORTB,4 LABEL_BV1_4_END ;********************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S1,5 GOTO LABEL_BV1_5 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF PORTB,5 GOTO LABEL_BV1_5_END LABEL_BV1_5 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF PORTB,5 LABEL_BV1_5_END ;********************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S1,6 GOTO LABEL_BV1_6 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF PORTB,6 GOTO LABEL_BV1_6_END LABEL_BV1_6 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF PORTB,6 LABEL_BV1_6_END ;********************************************** ;*************************************************** ; GND ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S2,3 ; immer Low ;*************************************************** ; Zähler -> ZV2 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S3,3 ; Reset ? GOTO LABEL_ZV2_COUNT BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 CLRF ZV2 GOTO LABEL_ZV2_SETOUT LABEL_ZV2_COUNT ; Test auf positive Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S3,5 GOTO LABEL_ZV2_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC ZV2_FD,0 GOTO LABEL_ZV2_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF ZV2_FD,0 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S4,4 ; 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 LABEL_ZV2_SETFD ; Test auf negative Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S3,5 GOTO LABEL_ZV2_EXIT BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF ZV2_FD,0 LABEL_ZV2_EXIT ;*************************************************** ; Zähler -> ZV3 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S3,1 ; Reset ? GOTO LABEL_ZV3_COUNT BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 CLRF ZV3 GOTO LABEL_ZV3_SETOUT LABEL_ZV3_COUNT ; Test auf positive Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S3,3 GOTO LABEL_ZV3_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC ZV3_FD,0 GOTO LABEL_ZV3_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF ZV3_FD,0 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S4,4 ; Vorwärts oder Rückwärts ? GOTO LABEL_ZV3_BACKWARD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 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 S3,3 GOTO LABEL_ZV3_EXIT BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF ZV3_FD,0 LABEL_ZV3_EXIT ;*************************************************** ; Zähler -> ZV4 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S4,1 ; Reset ? GOTO LABEL_ZV4_COUNT BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 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,3 GOTO LABEL_ZV4_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC ZV4_FD,0 GOTO LABEL_ZV4_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF ZV4_FD,0 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S4,4 ; Vorwärts oder Rückwärts ? GOTO LABEL_ZV4_BACKWARD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 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,3 GOTO LABEL_ZV4_EXIT BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF ZV4_FD,0 LABEL_ZV4_EXIT ;*************************************************** ; Zähler -> ZV5 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S3,7 ; Reset ? GOTO LABEL_ZV5_COUNT BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 CLRF ZV5 GOTO LABEL_ZV5_SETOUT LABEL_ZV5_COUNT ; Test auf positive Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S4,1 GOTO LABEL_ZV5_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC ZV5_FD,0 GOTO LABEL_ZV5_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF ZV5_FD,0 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S4,4 ; Vorwärts oder Rückwärts ? GOTO LABEL_ZV5_BACKWARD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 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 LABEL_ZV5_SETFD ; Test auf negative Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S4,1 GOTO LABEL_ZV5_EXIT BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF ZV5_FD,0 LABEL_ZV5_EXIT ;*************************************************** ; Vergleich -> IF1 ;*************************************************** MOVLW 10 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 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 S3,4 GOTO LABEL_IF1_EXIT LABEL_IF1_FALSE BCF S3,4 LABEL_IF1_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 S3,2 GOTO LABEL_IF2_EXIT LABEL_IF2_FALSE BCF S3,2 LABEL_IF2_EXIT ;*************************************************** ; Vergleich -> IF3 ;*************************************************** MOVLW 9 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 SUBWF ZV4,W ; F - W -> W LABEL_IF3_CHECK BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS STATUS,ZERO ; Test auf -> = GOTO LABEL_IF3_FALSE LABEL_IF3_TRUE BSF S4,2 GOTO LABEL_IF3_EXIT LABEL_IF3_FALSE BCF S4,2 LABEL_IF3_EXIT ;*************************************************** ; Vergleich -> IF4 ;*************************************************** MOVLW 10 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 SUBWF ZV5,W ; F - W -> W LABEL_IF4_CHECK BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS STATUS,ZERO ; Test auf -> = GOTO LABEL_IF4_FALSE LABEL_IF4_TRUE BSF S4,0 GOTO LABEL_IF4_EXIT LABEL_IF4_FALSE BCF S4,0 LABEL_IF4_EXIT ;*************************************************** ; ODER - Gatter -> LG5 ;*************************************************** LABEL_LG5_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S3,2 GOTO LABEL_LG5_TRUE LABEL_LG5_2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S3,4 GOTO LABEL_LG5_TRUE LABEL_LG5_3 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S3,6 GOTO LABEL_LG5_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 LABEL_LG5_FALSE BCF S3,3 GOTO LABEL_LG5_ENDE LABEL_LG5_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S3,3 LABEL_LG5_ENDE ;*************************************************** ; ODER - Gatter -> LG6 ;*************************************************** LABEL_LG6_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S4,2 GOTO LABEL_LG6_TRUE LABEL_LG6_2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S3,7 GOTO LABEL_LG6_TRUE LABEL_LG6_3 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S3,6 GOTO LABEL_LG6_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 LABEL_LG6_FALSE BCF S4,1 GOTO LABEL_LG6_ENDE LABEL_LG6_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S4,1 LABEL_LG6_ENDE ;*************************************************** ; ODER - Gatter -> LG7 ;*************************************************** LABEL_LG7_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S3,2 GOTO LABEL_LG7_TRUE LABEL_LG7_2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S3,6 GOTO LABEL_LG7_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 LABEL_LG7_FALSE BCF S3,1 GOTO LABEL_LG7_ENDE LABEL_LG7_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S3,1 LABEL_LG7_ENDE ;*************************************************** ; ODER - Gatter -> LG8 ;*************************************************** LABEL_LG8_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S3,6 GOTO LABEL_LG8_TRUE LABEL_LG8_2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S4,0 GOTO LABEL_LG8_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 LABEL_LG8_FALSE BCF S3,7 GOTO LABEL_LG8_ENDE LABEL_LG8_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S3,7 LABEL_LG8_ENDE ;*************************************************** ; GND ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S4,4 ; immer Low ;*************************************************** ; One Shot -> OS4 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC PORTA,0 GOTO LABEL_OS4_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC OS4_FD,0 GOTO LABEL_OS4_1 BSF OS4_FD,0 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S3,5 GOTO LABEL_OS4_2 LABEL_OS4_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S3,5 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS PORTA,0 GOTO LABEL_OS4_2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF OS4_FD,0 LABEL_OS4_2 ;*************************************************** ; One Shot -> OS5 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC PORTA,1 GOTO LABEL_OS5_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC OS5_FD,0 GOTO LABEL_OS5_1 BSF OS5_FD,0 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S3,6 GOTO LABEL_OS5_2 LABEL_OS5_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S3,6 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS PORTA,1 GOTO LABEL_OS5_2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF OS5_FD,0 LABEL_OS5_2 ;*************************************************** ; One Shot -> OS6 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC PORTA,2 GOTO LABEL_OS6_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC OS6_FD,0 GOTO LABEL_OS6_1 BSF OS6_FD,0 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S4,3 GOTO LABEL_OS6_2 LABEL_OS6_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S4,3 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS PORTA,2 GOTO LABEL_OS6_2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF OS6_FD,0 LABEL_OS6_2 ;**************************************** 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