; Source created with Parsic Version 3.x ; at : 2008.07.27. 19:14:46 ; Project File : C:\PROGRA~1\PARSIC\HA01_P.PIC ; Project Version : 1.0.9 ; Created : 2008.07.27. 16:58:57 ; Last change : 2008.07.27. 19:14:44 PROCESSOR 16F628 INCLUDE P16F628.INC RADIX DEC __IDLOCS H'0100' __CONFIG _CP_OFF & _PWRTE_ON & _WDT_ON & _BODEN_ON & _XT_OSC & _LVP_OFF & _MCLRE_OFF ; Diverses ZERO EQU Z ; ZERO-Flag CARRY EQU C ; CARRY-Flag ; Variable ZV3 = 32 ; located in Bank 0 EE1_FD = 33 ; located in Bank 0 ZV2 = 34 ; located in Bank 0 EE2_FD = 35 ; located in Bank 0 TR1 = 36 ; located in Bank 0 TR1_HI = 37 ; located in Bank 0 S2 = 38 ; located in Bank 0 ZV1 = 39 ; located in Bank 0 ZV1_FD = 40 ; located in Bank 0 S3 = 41 ; located in Bank 0 ZV2_FD = 42 ; located in Bank 0 ZV3_FD = 43 ; located in Bank 0 ZV4 = 44 ; located in Bank 0 ZV4_FD = 45 ; located in Bank 0 S6 = 46 ; located in Bank 0 ZV5 = 47 ; located in Bank 0 ZV5_FD = 48 ; located in Bank 0 S4 = 49 ; located in Bank 0 S5 = 50 ; located in Bank 0 ZV6 = 51 ; located in Bank 0 ZV6_FD = 52 ; located in Bank 0 OS1_FD = 53 ; located in Bank 0 OS2_FD = 54 ; located in Bank 0 OS3_FD = 55 ; located in Bank 0 OS4_FD = 56 ; located in Bank 0 OS5_FD = 57 ; located in Bank 0 OS6_FD = 58 ; located in Bank 0 S1 = 59 ; located in Bank 0 S0 = 60 ; located in Bank 0 RAM = 61 ; located in Bank 0 SYS_TMP1 = 112 ; located in Bank 0, 1, 2, 3 SYS_WSAV = 113 ; located in Bank 0, 1, 2, 3 SYS_SSAV = 114 ; located in Bank 0, 1, 2, 3 SYS_FSAV = 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 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 ;**************************************** EEINT_WRITE MOVFW INDF EEINT_WRITE_0 BSF STATUS,RP0 ; Bank 1 BCF STATUS,RP1 ; Bank 1 MOVWF EEDATA 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 CLRWDT BTFSC EECON1,WR ; ready ? GOTO EEINT_WRITE_1 ; no BCF EECON1,WREN INCF EEADR,F INCF FSR,F DECFSZ SYS_TMP1,F GOTO EEINT_WRITE RETURN ;*************************************************** EEINT_READ BSF STATUS,RP0 ; Bank 1 BCF STATUS,RP1 ; Bank 1 BSF EECON1,RD MOVFW EEDATA MOVWF INDF INCF EEADR,F INCF FSR,F DECFSZ SYS_TMP1,F GOTO EEINT_READ RETURN ;*************************************************** ; EE-Modul -> EE1 ;*************************************************** WRITE_EE1 MOVLW 0 BSF STATUS,RP0 ; Bank 1 BCF STATUS,RP1 ; Bank 1 MOVWF EEADR BCF STATUS,IRP ; vars - located in Bank 0 MOVLW 1 MOVWF SYS_TMP1 MOVLW LOW ZV3 MOVWF FSR CALL EEINT_WRITE RETURN ;*************************************************** ; EE-Modul -> EE1 ;*************************************************** READ_EE1 MOVLW 0 BSF STATUS,RP0 ; Bank 1 BCF STATUS,RP1 ; Bank 1 MOVWF EEADR BCF STATUS,IRP ; vars - located in Bank 0 MOVLW 1 MOVWF SYS_TMP1 MOVLW LOW ZV3 MOVWF FSR CALL EEINT_READ RETURN ;*************************************************** ;*************************************************** ; EE-Modul -> EE2 ;*************************************************** WRITE_EE2 MOVLW 1 BSF STATUS,RP0 ; Bank 1 BCF STATUS,RP1 ; Bank 1 MOVWF EEADR BCF STATUS,IRP ; vars - located in Bank 0 MOVLW 1 MOVWF SYS_TMP1 MOVLW LOW ZV2 MOVWF FSR CALL EEINT_WRITE RETURN ;*************************************************** ; EE-Modul -> EE2 ;*************************************************** READ_EE2 MOVLW 1 BSF STATUS,RP0 ; Bank 1 BCF STATUS,RP1 ; Bank 1 MOVWF EEADR BCF STATUS,IRP ; vars - located in Bank 0 MOVLW 1 MOVWF SYS_TMP1 MOVLW LOW ZV2 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'00001000' MOVWF PORTB MOVLW 15 BSF STATUS,RP0 ; Bank 1 MOVWF OPTION_REG ; Richtung setzen MOVLW B'11111111' MOVWF TRISA MOVLW B'11000110' 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 CALL READ_EE1 ; read vars from internal EE CALL READ_EE2 ; 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 CLRWDT ;*************************************************** ; 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 156 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 156 SUBWF TR1,F ;F-W -> F BTFSS STATUS,CARRY DECF TR1_HI,F LABEL_TR1_SET ; toggel output BTFSC S2,0 GOTO LABEL_TR1_CLR BSF S2,0 GOTO LABEL_TR1_ENDE LABEL_TR1_CLR BCF S2,0 LABEL_TR1_ENDE ;*************************************************** ; Zähler -> ZV1 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S2,1 ; 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 S3,5 GOTO LABEL_ZV1_SETFD BTFSC ZV1_FD,0 GOTO LABEL_ZV1_SETFD BSF ZV1_FD,0 BTFSC S2,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 S3,5 GOTO LABEL_ZV1_EXIT BCF ZV1_FD,0 LABEL_ZV1_EXIT ;*************************************************** ; RS-FLIP-FLOP -> RS1 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S2,3 GOTO LABEL_RS1_RESET BTFSS S3,1 GOTO LABEL_RS1_ENDE BSF S3,3 ; Ausgang setzen GOTO LABEL_RS1_ENDE LABEL_RS1_RESET BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S3,3 ; Ausgang zurücksetzen LABEL_RS1_ENDE ;*************************************************** ; Zähler -> ZV2 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S2,7 ; 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 S3,7 GOTO LABEL_ZV2_SETFD BTFSC ZV2_FD,0 GOTO LABEL_ZV2_SETFD BSF ZV2_FD,0 BTFSC S6,1 ; 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 S3,7 GOTO LABEL_ZV2_EXIT BCF ZV2_FD,0 LABEL_ZV2_EXIT ;*************************************************** ; Zähler -> ZV3 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S5,7 ; 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,0 GOTO LABEL_ZV3_SETFD BTFSC ZV3_FD,0 GOTO LABEL_ZV3_SETFD BSF ZV3_FD,0 BTFSC S6,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,0 GOTO LABEL_ZV3_EXIT BCF ZV3_FD,0 LABEL_ZV3_EXIT ;*************************************************** ; Schmitt-Trigger 8-Bit -> ST1 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S2,1 ; Ausgang gesetzt ? GOTO LABEL_ST1_MH ; dann mit Hysterese ? MOVFW S0 GOTO LABEL_ST1_TEST LABEL_ST1_MH MOVLW 0 ; Hysterese SUBWF S0,W LABEL_ST1_TEST SUBWF ZV1,W BTFSS STATUS,CARRY GOTO LABEL_ST1_RESET BSF S2,1 ; if greater or equal GOTO LABEL_ST1_ENDE LABEL_ST1_RESET BCF S2,1 ; if less LABEL_ST1_ENDE ;*************************************************** ; GND ;*************************************************** BCF S2,2 ; immer Low ;*************************************************** ; ODER - Gatter -> LG1 ;*************************************************** LABEL_LG1_1 BTFSC S2,1 GOTO LABEL_LG1_TRUE LABEL_LG1_2 BTFSC S3,0 GOTO LABEL_LG1_TRUE LABEL_LG1_FALSE BCF S2,3 GOTO LABEL_LG1_ENDE LABEL_LG1_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S2,3 LABEL_LG1_ENDE ;*************************************************** ; Zähler -> ZV4 ;*************************************************** BTFSS S2,4 ; 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 S2,5 GOTO LABEL_ZV4_SETFD BTFSC ZV4_FD,0 GOTO LABEL_ZV4_SETFD BSF ZV4_FD,0 BTFSC S2,2 ; 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 S2,5 GOTO LABEL_ZV4_EXIT BCF ZV4_FD,0 LABEL_ZV4_EXIT ;*************************************************** ; Schmitt-Trigger 8-Bit -> ST2 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S2,4 ; Ausgang gesetzt ? GOTO LABEL_ST2_MH ; dann mit Hysterese ? MOVLW 10 GOTO LABEL_ST2_TEST LABEL_ST2_MH MOVLW 10 LABEL_ST2_TEST SUBWF ZV4,W BTFSS STATUS,CARRY GOTO LABEL_ST2_RESET BSF S2,4 ; if greater or equal GOTO LABEL_ST2_ENDE LABEL_ST2_RESET BCF S2,4 ; if less LABEL_ST2_ENDE ;*************************************************** ; RS-FLIP-FLOP -> RS2 ;*************************************************** BTFSC S2,2 GOTO LABEL_RS2_RESET BTFSS S2,4 GOTO LABEL_RS2_ENDE BSF S2,6 ; Ausgang setzen GOTO LABEL_RS2_ENDE LABEL_RS2_RESET BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S2,6 ; Ausgang zurücksetzen LABEL_RS2_ENDE ;*************************************************** ; UND - Gatter -> LG2 ;*************************************************** LABEL_LG2_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S2,0 GOTO LABEL_LG2_FALSE LABEL_LG2_2 BTFSC S2,6 GOTO LABEL_LG2_FALSE LABEL_LG2_TRUE BSF S2,5 GOTO LABEL_LG2_ENDE LABEL_LG2_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S2,5 LABEL_LG2_ENDE ;*************************************************** ; ODER - Gatter -> LG3 ;*************************************************** LABEL_LG3_1 BTFSC S2,4 GOTO LABEL_LG3_TRUE LABEL_LG3_2 BTFSC S3,2 GOTO LABEL_LG3_TRUE LABEL_LG3_FALSE BCF S3,1 GOTO LABEL_LG3_ENDE LABEL_LG3_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S3,1 LABEL_LG3_ENDE ;*************************************************** ; UND - Gatter -> LG4 ;*************************************************** LABEL_LG4_1 BTFSS S3,3 GOTO LABEL_LG4_FALSE LABEL_LG4_2 BTFSC S3,4 GOTO LABEL_LG4_FALSE LABEL_LG4_TRUE BSF S6,6 GOTO LABEL_LG4_ENDE LABEL_LG4_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S6,6 LABEL_LG4_ENDE ;*************************************************** ; UND - Gatter -> LG5 ;*************************************************** LABEL_LG5_1 BTFSS S2,0 GOTO LABEL_LG5_FALSE LABEL_LG5_2 BTFSS S3,3 GOTO LABEL_LG5_FALSE LABEL_LG5_TRUE BSF S3,5 GOTO LABEL_LG5_ENDE LABEL_LG5_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S3,5 LABEL_LG5_ENDE ;*************************************************** ; Zähler -> ZV5 ;*************************************************** BTFSS S3,2 ; 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 S3,6 GOTO LABEL_ZV5_SETFD BTFSC ZV5_FD,0 GOTO LABEL_ZV5_SETFD BSF ZV5_FD,0 BTFSC S2,2 ; 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 LABEL_ZV5_SETFD ; Test auf negative Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S3,6 GOTO LABEL_ZV5_EXIT BCF ZV5_FD,0 LABEL_ZV5_EXIT ;*************************************************** ; Schmitt-Trigger 8-Bit -> ST3 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S3,2 ; Ausgang gesetzt ? GOTO LABEL_ST3_MH ; dann mit Hysterese ? MOVFW S1 GOTO LABEL_ST3_TEST LABEL_ST3_MH MOVLW 0 ; Hysterese SUBWF S1,W LABEL_ST3_TEST SUBWF ZV5,W BTFSS STATUS,CARRY GOTO LABEL_ST3_RESET BSF S3,2 ; if greater or equal GOTO LABEL_ST3_ENDE LABEL_ST3_RESET BCF S3,2 ; if less LABEL_ST3_ENDE ;*************************************************** ; UND - Gatter -> LG6 ;*************************************************** LABEL_LG6_1 BTFSC S3,3 GOTO LABEL_LG6_FALSE LABEL_LG6_2 BTFSS S2,0 GOTO LABEL_LG6_FALSE LABEL_LG6_3 BTFSS S2,6 GOTO LABEL_LG6_FALSE LABEL_LG6_TRUE BSF S3,6 GOTO LABEL_LG6_ENDE LABEL_LG6_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S3,6 LABEL_LG6_ENDE ;*************************************************** ; Schmitt-Trigger 8-Bit -> ST4 ;*************************************************** BTFSC S2,7 ; Ausgang gesetzt ? GOTO LABEL_ST4_MH ; dann mit Hysterese ? MOVLW 200 GOTO LABEL_ST4_TEST LABEL_ST4_MH MOVLW 200 LABEL_ST4_TEST SUBWF ZV3,W BTFSS STATUS,CARRY GOTO LABEL_ST4_RESET BSF S2,7 ; if greater or equal GOTO LABEL_ST4_ENDE LABEL_ST4_RESET BCF S2,7 ; if less LABEL_ST4_ENDE ;*************************************************** ; UND - Gatter -> LG7 ;*************************************************** LABEL_LG7_1 BTFSS S4,1 GOTO LABEL_LG7_FALSE LABEL_LG7_2 BTFSS S3,4 GOTO LABEL_LG7_FALSE LABEL_LG7_3 BTFSS S4,2 GOTO LABEL_LG7_FALSE LABEL_LG7_TRUE BSF S3,7 GOTO LABEL_LG7_ENDE LABEL_LG7_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S3,7 LABEL_LG7_ENDE ;*************************************************** ; UND - Gatter -> LG8 ;*************************************************** LABEL_LG8_1 BTFSS S3,4 GOTO LABEL_LG8_FALSE LABEL_LG8_2 BTFSS S4,1 GOTO LABEL_LG8_FALSE LABEL_LG8_3 BTFSC S4,2 GOTO LABEL_LG8_FALSE LABEL_LG8_TRUE BSF S4,0 GOTO LABEL_LG8_ENDE LABEL_LG8_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S4,0 LABEL_LG8_ENDE ;*************************************************** ; RS-FLIP-FLOP -> RS3 ;*************************************************** BTFSC S4,6 GOTO LABEL_RS3_RESET BTFSS S4,7 GOTO LABEL_RS3_ENDE BSF S3,4 ; Ausgang setzen GOTO LABEL_RS3_ENDE LABEL_RS3_RESET BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S3,4 ; Ausgang zurücksetzen LABEL_RS3_ENDE ;*************************************************** ; RS-FLIP-FLOP -> RS4 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S4,3 GOTO LABEL_RS4_RESET BTFSS S4,4 GOTO LABEL_RS4_ENDE BSF S4,2 ; Ausgang setzen GOTO LABEL_RS4_ENDE LABEL_RS4_RESET BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S4,2 ; Ausgang zurücksetzen LABEL_RS4_ENDE ;*************************************************** ; UND - Gatter -> LG9 ;*************************************************** LABEL_LG9_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S5,0 GOTO LABEL_LG9_FALSE LABEL_LG9_2 BTFSC S3,4 GOTO LABEL_LG9_FALSE LABEL_LG9_TRUE BSF S4,7 GOTO LABEL_LG9_ENDE LABEL_LG9_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S4,7 LABEL_LG9_ENDE ;*************************************************** ; UND - Gatter -> LG10 ;*************************************************** LABEL_LG10_1 BTFSS S3,4 GOTO LABEL_LG10_FALSE LABEL_LG10_2 BTFSS S5,0 GOTO LABEL_LG10_FALSE LABEL_LG10_TRUE BSF S4,6 GOTO LABEL_LG10_ENDE LABEL_LG10_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S4,6 LABEL_LG10_ENDE ;*************************************************** ; UND - Gatter -> LG11 ;*************************************************** LABEL_LG11_1 BTFSS S4,2 GOTO LABEL_LG11_FALSE LABEL_LG11_2 BTFSS S4,5 GOTO LABEL_LG11_FALSE LABEL_LG11_TRUE BSF S4,3 GOTO LABEL_LG11_ENDE LABEL_LG11_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S4,3 LABEL_LG11_ENDE ;*************************************************** ; UND - Gatter -> LG12 ;*************************************************** LABEL_LG12_1 BTFSS S4,5 GOTO LABEL_LG12_FALSE LABEL_LG12_2 BTFSC S4,2 GOTO LABEL_LG12_FALSE LABEL_LG12_TRUE BSF S4,4 GOTO LABEL_LG12_ENDE LABEL_LG12_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S4,4 LABEL_LG12_ENDE ;*************************************************** ; UND - Gatter -> LG13 ;*************************************************** LABEL_LG13_1 BTFSS S5,3 GOTO LABEL_LG13_FALSE LABEL_LG13_2 BTFSS S2,0 GOTO LABEL_LG13_FALSE LABEL_LG13_TRUE BSF S5,5 GOTO LABEL_LG13_ENDE LABEL_LG13_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S5,5 LABEL_LG13_ENDE ;*************************************************** ; Zähler -> ZV6 ;*************************************************** BTFSS S5,2 ; Reset ? GOTO LABEL_ZV6_COUNT CLRF ZV6 GOTO LABEL_ZV6_SETOUT LABEL_ZV6_COUNT ; Test auf positive Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S5,5 GOTO LABEL_ZV6_SETFD BTFSC ZV6_FD,0 GOTO LABEL_ZV6_SETFD BSF ZV6_FD,0 BTFSC S2,2 ; Vorwärts oder Rückwärts ? GOTO LABEL_ZV6_BACKWARD INCF ZV6,F GOTO LABEL_ZV6_SETOUT LABEL_ZV6_BACKWARD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 DECF ZV6,F LABEL_ZV6_SETOUT LABEL_ZV6_SETFD ; Test auf negative Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S5,5 GOTO LABEL_ZV6_EXIT BCF ZV6_FD,0 LABEL_ZV6_EXIT ;*************************************************** ; ODER - Gatter -> LG14 ;*************************************************** LABEL_LG14_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S5,1 GOTO LABEL_LG14_TRUE LABEL_LG14_2 BTFSC S5,4 GOTO LABEL_LG14_TRUE LABEL_LG14_FALSE BCF S5,2 GOTO LABEL_LG14_ENDE LABEL_LG14_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S5,2 LABEL_LG14_ENDE ;*************************************************** ; Schmitt-Trigger 8-Bit -> ST5 ;*************************************************** BTFSC S5,1 ; Ausgang gesetzt ? GOTO LABEL_ST5_MH ; dann mit Hysterese ? MOVLW 100 GOTO LABEL_ST5_TEST LABEL_ST5_MH MOVLW 100 LABEL_ST5_TEST SUBWF ZV6,W BTFSS STATUS,CARRY GOTO LABEL_ST5_RESET BSF S5,1 ; if greater or equal GOTO LABEL_ST5_ENDE LABEL_ST5_RESET BCF S5,1 ; if less LABEL_ST5_ENDE ;*************************************************** ; UND - Gatter -> LG15 ;*************************************************** LABEL_LG15_1 BTFSC PORTA,1 GOTO LABEL_LG15_FALSE LABEL_LG15_TRUE BSF S5,3 GOTO LABEL_LG15_ENDE LABEL_LG15_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S5,3 LABEL_LG15_ENDE ;*************************************************** ; One Shot -> OS1 ;*************************************************** BTFSC S5,3 GOTO LABEL_OS1_1 BTFSC OS1_FD,0 GOTO LABEL_OS1_1 BSF OS1_FD,0 BSF S5,4 GOTO LABEL_OS1_2 LABEL_OS1_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S5,4 BTFSS S5,3 GOTO LABEL_OS1_2 BCF OS1_FD,0 LABEL_OS1_2 ;*************************************************** ; One Shot -> OS2 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S5,1 GOTO LABEL_OS2_1 BTFSC OS2_FD,0 GOTO LABEL_OS2_1 BSF OS2_FD,0 BSF S5,0 GOTO LABEL_OS2_2 LABEL_OS2_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S5,0 BTFSC S5,1 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,6 GOTO LABEL_OS3_1 BTFSC OS3_FD,0 GOTO LABEL_OS3_1 BSF OS3_FD,0 BSF S4,5 GOTO LABEL_OS3_2 LABEL_OS3_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S4,5 BTFSC S5,6 GOTO LABEL_OS3_2 BCF OS3_FD,0 LABEL_OS3_2 ;*************************************************** ; UND - Gatter -> LG16 ;*************************************************** LABEL_LG16_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S3,4 GOTO LABEL_LG16_FALSE LABEL_LG16_2 BTFSS S5,3 GOTO LABEL_LG16_FALSE LABEL_LG16_TRUE BSF S5,6 GOTO LABEL_LG16_ENDE LABEL_LG16_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S5,6 LABEL_LG16_ENDE ;*************************************************** ; UND - Gatter -> LG17 ;*************************************************** LABEL_LG17_1 BTFSS S6,7 GOTO LABEL_LG17_FALSE LABEL_LG17_TRUE BCF PORTB,3 GOTO LABEL_LG17_ENDE LABEL_LG17_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF PORTB,3 LABEL_LG17_ENDE ;*************************************************** ; Schmitt-Trigger 8-Bit -> ST6 ;*************************************************** BTFSC S5,7 ; Ausgang gesetzt ? GOTO LABEL_ST6_MH ; dann mit Hysterese ? MOVLW 200 GOTO LABEL_ST6_TEST LABEL_ST6_MH MOVLW 200 LABEL_ST6_TEST SUBWF ZV3,W BTFSS STATUS,CARRY GOTO LABEL_ST6_RESET BSF S5,7 ; if greater or equal GOTO LABEL_ST6_ENDE LABEL_ST6_RESET BCF S5,7 ; if less LABEL_ST6_ENDE ;*************************************************** ; UND - Gatter -> LG18 ;*************************************************** LABEL_LG18_1 BTFSC PORTA,3 GOTO LABEL_LG18_FALSE LABEL_LG18_TRUE BSF S6,0 GOTO LABEL_LG18_ENDE LABEL_LG18_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S6,0 LABEL_LG18_ENDE ;*************************************************** ; UND - Gatter -> LG19 ;*************************************************** LABEL_LG19_1 BTFSC PORTA,2 GOTO LABEL_LG19_FALSE LABEL_LG19_TRUE BSF S6,1 GOTO LABEL_LG19_ENDE LABEL_LG19_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S6,1 LABEL_LG19_ENDE ;*************************************************** ; One Shot -> OS4 ;*************************************************** BTFSS S6,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 S6,0 GOTO LABEL_OS4_2 BCF OS4_FD,0 LABEL_OS4_2 ;*************************************************** ; One Shot -> OS5 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S6,1 GOTO LABEL_OS5_1 BTFSC OS5_FD,0 GOTO LABEL_OS5_1 BSF OS5_FD,0 BSF S6,3 GOTO LABEL_OS5_2 LABEL_OS5_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S6,3 BTFSC S6,1 GOTO LABEL_OS5_2 BCF OS5_FD,0 LABEL_OS5_2 ;*************************************************** ; ODER - Gatter -> LG20 ;*************************************************** LABEL_LG20_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S6,2 GOTO LABEL_LG20_TRUE LABEL_LG20_2 BTFSC S6,3 GOTO LABEL_LG20_TRUE LABEL_LG20_FALSE BCF S4,1 GOTO LABEL_LG20_ENDE LABEL_LG20_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S4,1 LABEL_LG20_ENDE ;*************************************************** ; EE-Modul -> EE1 ;*************************************************** ; Test of falling edge BTFSC S4,0 GOTO LABEL_EE1_SETFD BTFSS EE1_FD,0 GOTO LABEL_EE1_SETFD BCF EE1_FD,0 CALL WRITE_EE1 LABEL_EE1_SETFD ; test input BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S4,0 GOTO LABEL_EE1_EXIT BSF EE1_FD,0 LABEL_EE1_EXIT ;*************************************************** ; EE-Modul -> EE2 ;*************************************************** ; Test of falling edge BTFSC S3,7 GOTO LABEL_EE2_SETFD BTFSS EE2_FD,0 GOTO LABEL_EE2_SETFD BCF EE2_FD,0 CALL WRITE_EE2 LABEL_EE2_SETFD ; test input BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S3,7 GOTO LABEL_EE2_EXIT BSF EE2_FD,0 LABEL_EE2_EXIT ;*************************************************** ; UND - Gatter -> LG21 ;*************************************************** LABEL_LG21_1 BTFSS S6,5 GOTO LABEL_LG21_FALSE LABEL_LG21_2 BTFSS S6,6 GOTO LABEL_LG21_FALSE LABEL_LG21_TRUE BSF S3,0 GOTO LABEL_LG21_ENDE LABEL_LG21_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S3,0 LABEL_LG21_ENDE ;*************************************************** ; UND - Gatter -> LG22 ;*************************************************** LABEL_LG22_1 BTFSS S6,6 GOTO LABEL_LG22_FALSE LABEL_LG22_TRUE BSF PORTB,4 GOTO LABEL_LG22_ENDE LABEL_LG22_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF PORTB,4 LABEL_LG22_ENDE ;*************************************************** ; UND - Gatter -> LG23 ;*************************************************** LABEL_LG23_1 BTFSS S3,3 GOTO LABEL_LG23_FALSE LABEL_LG23_TRUE BSF PORTB,5 GOTO LABEL_LG23_ENDE LABEL_LG23_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF PORTB,5 LABEL_LG23_ENDE ;*************************************************** ; One Shot -> OS6 ;*************************************************** BTFSS S6,4 GOTO LABEL_OS6_1 BTFSC OS6_FD,0 GOTO LABEL_OS6_1 BSF OS6_FD,0 BSF S6,5 GOTO LABEL_OS6_2 LABEL_OS6_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S6,5 BTFSC S6,4 GOTO LABEL_OS6_2 BCF OS6_FD,0 LABEL_OS6_2 ;*************************************************** ; UND - Gatter -> LG24 ;*************************************************** LABEL_LG24_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC PORTA,0 GOTO LABEL_LG24_FALSE LABEL_LG24_TRUE BSF S6,4 GOTO LABEL_LG24_ENDE LABEL_LG24_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S6,4 LABEL_LG24_ENDE ;*************************************************** ; UND - Gatter -> LG25 ;*************************************************** LABEL_LG25_1 BTFSS S2,0 GOTO LABEL_LG25_FALSE LABEL_LG25_2 BTFSS S3,4 GOTO LABEL_LG25_FALSE LABEL_LG25_TRUE BSF PORTB,0 GOTO LABEL_LG25_ENDE LABEL_LG25_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF PORTB,0 LABEL_LG25_ENDE ;*************************************************** ; UND - Gatter -> LG26 ;*************************************************** LABEL_LG26_1 BTFSS S4,2 GOTO LABEL_LG26_FALSE LABEL_LG26_2 BTFSS S3,4 GOTO LABEL_LG26_FALSE LABEL_LG26_TRUE BSF S6,7 GOTO LABEL_LG26_ENDE LABEL_LG26_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S6,7 LABEL_LG26_ENDE ;*************************************************** ;AF1 ;*************************************************** MOVFW ZV2 ADDLW 2 MOVWF S1 LABEL_AF1_EXIT ;*************************************************** ;AF2 ;*************************************************** MOVFW ZV3 ADDLW 2 MOVWF S0 LABEL_AF2_EXIT ;**************************************** GOTO MAIN 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 END