; Source created with Parsic Version 3.x ; at : 2008.03.25. 22:14:16 ; Project File : C:\PROGRA~1\Parsic\5M_3S.PIC ; Project Version : 1.0.3 ; Created : 2008.03.25. 21:05:48 ; Last change : 2008.03.25. 21:34:42 PROCESSOR 16F628 INCLUDE P16F628.INC RADIX DEC __IDLOCS H'0100' __CONFIG _CP_OFF & _PWRTE_ON & _WDT_OFF & _BODEN_ON & _XT_OSC & _LVP_OFF & _MCLRE_OFF ; Diverses ZERO EQU Z ; ZERO-Flag CARRY EQU C ; CARRY-Flag ; Variable ZV2 = 32 ; located in Bank 0 ZV2_HI = 33 ; located in Bank 0 EE1_FD = 34 ; located in Bank 0 TR1 = 35 ; located in Bank 0 TR1_HI = 36 ; located in Bank 0 S2 = 37 ; located in Bank 0 ZV1 = 38 ; located in Bank 0 ZV1_HI = 39 ; located in Bank 0 ZV1_FD = 40 ; located in Bank 0 ZV2_FD = 41 ; located in Bank 0 OS1_FD = 42 ; located in Bank 0 OS2_FD = 43 ; located in Bank 0 S1 = 44 ; located in Bank 0 S1_HI = 45 ; located in Bank 0 S0 = 46 ; located in Bank 0 S0_HI = 47 ; located in Bank 0 OS3_FD = 48 ; located in Bank 0 S3 = 49 ; located in Bank 0 RAM = 50 ; located in Bank 0 SYS_TMP1 = 112 ; located in Bank 0, 1, 2, 3 SYS_TMP2 = 113 ; located in Bank 0, 1, 2, 3 SYS_WSAV = 114 ; located in Bank 0, 1, 2, 3 SYS_SSAV = 115 ; located in Bank 0, 1, 2, 3 SYS_FSAV = 116 ; located in Bank 0, 1, 2, 3 ERRORLEVEL -302 ; disable warning (Bankswitching) ERRORLEVEL -306 ; disable warning (Pageswitching) ;**************************************** ;Programmanfang ;**************************************** ORG 0 CLRF STATUS ; switch to RAM-Bank 0 GOTO SYS_INIT NOP NOP ;**************************************** ;Interrupt-Adress ;**************************************** MOVWF SYS_WSAV ; save register SWAPF STATUS,W CLRF STATUS ; bank 0 MOVWF SYS_SSAV MOVFW FSR MOVWF SYS_FSAV BTFSS INTCON,T0IF ; TMR0 ? GOTO NOTMR0INT BCF INTCON,T0IF ; Interrupt quitieren BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 INCFSZ TR1,F GOTO SYS_INT_LABEL_0 INCF TR1_HI,F SYS_INT_LABEL_0 NOTMR0INT EXITINT MOVFW SYS_FSAV MOVWF FSR SWAPF SYS_SSAV,W ; Register zurück MOVWF STATUS SWAPF SYS_WSAV,F SWAPF SYS_WSAV,W RETFIE ;**************************************** ; Subroutines ;**************************************** EEINT_WRITE MOVFW INDF ADDWF SYS_TMP2,F 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 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 INCF EEADR,F CLRF SYS_TMP2 BCF STATUS,IRP ; vars - located in Bank 0 MOVLW 2 MOVWF SYS_TMP1 MOVLW LOW ZV2 MOVWF FSR CALL EEINT_WRITE MOVLW 0 ; write checksum BSF STATUS,RP0 ; Bank 1 BCF STATUS,RP1 ; Bank 1 MOVWF EEADR INCF SYS_TMP1,F MOVLW LOW SYS_TMP2 MOVWF FSR MOVFW INDF CALL EEINT_WRITE_0 RETURN ;*************************************************** ; EE-Modul -> EE1 ;*************************************************** READ_EE1 MOVLW 0 BSF STATUS,RP0 ; Bank 1 BCF STATUS,RP1 ; Bank 1 MOVWF EEADR INCF EEADR,F ; test checksum CLRF SYS_TMP2 MOVLW 2 MOVWF SYS_TMP1 READ_EE1_0 BSF EECON1,RD MOVFW EEDATA ADDWF SYS_TMP2,F INCF EEADR,F DECFSZ SYS_TMP1,F GOTO READ_EE1_0 MOVLW 0 MOVWF EEADR BSF EECON1,RD MOVFW EEDATA SUBWF SYS_TMP2,W BTFSS STATUS,ZERO RETURN ; Checksum error INCF EEADR,F BCF STATUS,IRP ; vars - located in Bank 0 MOVLW 2 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'00000000' MOVWF PORTB MOVLW 15 BSF STATUS,RP0 ; Bank 1 MOVWF OPTION_REG ; Richtung setzen MOVLW B'11111111' MOVWF TRISA MOVLW B'11111110' 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 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 CLRF TMR0 BCF INTCON,T0IF BSF INTCON,GIE ; Interrupt freigeben ;********************************** ;******* Haupt-Programm *********** ;********************************** MAIN ;*************************************************** ; Timer -> TR1 ;*************************************************** MOVLW 7 ; 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 161 SUBWF TR1,W ;F-W -> W LABEL_TR1_CHECK BTFSS STATUS,CARRY GOTO LABEL_TR1_ENDE LABEL_TR1_RESET MOVLW 7 ; Test auf >= SUBWF TR1_HI,F ;F-W -> F MOVLW 161 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,4 ; Reset ? GOTO LABEL_ZV1_COUNT CLRF ZV1 CLRF ZV1_HI GOTO LABEL_ZV1_SETOUT LABEL_ZV1_COUNT ; Test auf positive Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S2,0 GOTO LABEL_ZV1_SETFD BTFSC ZV1_FD,0 GOTO LABEL_ZV1_SETFD BSF ZV1_FD,0 BTFSC S2,1 ; Vorwärts oder Rückwärts ? GOTO LABEL_ZV1_BACKWARD INCFSZ ZV1,F GOTO LABEL_ZV1_SETOUT INCF ZV1_HI,F GOTO LABEL_ZV1_SETOUT LABEL_ZV1_BACKWARD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 DECF ZV1,F INCFSZ ZV1,W GOTO LABEL_ZV1_SETOUT DECF ZV1_HI,F LABEL_ZV1_SETOUT LABEL_ZV1_SETFD ; Test auf negative Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S2,0 GOTO LABEL_ZV1_EXIT BCF ZV1_FD,0 LABEL_ZV1_EXIT ;*************************************************** ; GND ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S2,1 ; immer Low ;*************************************************** ; Zähler -> ZV2 ;*************************************************** BTFSS S2,5 ; Reset ? GOTO LABEL_ZV2_COUNT CLRF ZV2 CLRF ZV2_HI GOTO LABEL_ZV2_SETOUT LABEL_ZV2_COUNT ; Test auf positive Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S3,0 GOTO LABEL_ZV2_SETFD BTFSC ZV2_FD,0 GOTO LABEL_ZV2_SETFD BSF ZV2_FD,0 BTFSC S2,6 ; Vorwärts oder Rückwärts ? GOTO LABEL_ZV2_BACKWARD INCFSZ ZV2,F GOTO LABEL_ZV2_SETOUT INCF ZV2_HI,F GOTO LABEL_ZV2_SETOUT LABEL_ZV2_BACKWARD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 DECF ZV2,F INCFSZ ZV2,W GOTO LABEL_ZV2_SETOUT DECF ZV2_HI,F LABEL_ZV2_SETOUT LABEL_ZV2_SETFD ; Test auf negative Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S3,0 GOTO LABEL_ZV2_EXIT BCF ZV2_FD,0 LABEL_ZV2_EXIT ;*************************************************** ; One Shot -> OS1 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC PORTA,0 GOTO LABEL_OS1_1 BTFSC OS1_FD,0 GOTO LABEL_OS1_1 BSF OS1_FD,0 BSF S2,3 GOTO LABEL_OS1_2 LABEL_OS1_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S2,3 BTFSS PORTA,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 PORTA,1 GOTO LABEL_OS2_1 BTFSC OS2_FD,0 GOTO LABEL_OS2_1 BSF OS2_FD,0 BSF S2,6 GOTO LABEL_OS2_2 LABEL_OS2_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S2,6 BTFSS PORTA,1 GOTO LABEL_OS2_2 BCF OS2_FD,0 LABEL_OS2_2 ;*************************************************** ; Vergleich -> IF1 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVFW S0_HI SUBWF ZV1_HI,W ; F - W -> W BTFSS STATUS,ZERO ; Wenn ZERO gesetzt LOW-Byte testen GOTO LABEL_IF1_CHECK MOVFW S0 SUBWF ZV1,W ; F - W -> W LABEL_IF1_CHECK BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS STATUS,CARRY ; Test auf -> >= GOTO LABEL_IF1_FALSE LABEL_IF1_TRUE BSF S2,2 GOTO LABEL_IF1_EXIT LABEL_IF1_FALSE BCF S2,2 LABEL_IF1_EXIT ;*************************************************** ; Vergleich -> IF2 ;*************************************************** MOVFW S1_HI SUBWF ZV1_HI,W ; F - W -> W BTFSS STATUS,ZERO ; Wenn ZERO gesetzt LOW-Byte testen GOTO LABEL_IF2_CHECK MOVFW S1 SUBWF ZV1,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 S2,7 GOTO LABEL_IF2_EXIT LABEL_IF2_FALSE BCF S2,7 LABEL_IF2_EXIT ;*************************************************** ;AF1 ;*************************************************** MOVFW S0_HI ADDLW HIGH 3 MOVWF S1_HI MOVFW S0 ADDLW LOW 3 MOVWF S1 BTFSC STATUS,CARRY INCF S1_HI,F LABEL_AF1_EXIT ;*************************************************** ; UND - Gatter -> LG1 ;*************************************************** LABEL_LG1_1 BTFSS S2,2 GOTO LABEL_LG1_FALSE LABEL_LG1_2 BTFSS S2,0 GOTO LABEL_LG1_FALSE LABEL_LG1_TRUE BSF PORTB,0 GOTO LABEL_LG1_ENDE LABEL_LG1_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF PORTB,0 LABEL_LG1_ENDE ;*************************************************** ;AF2 ;*************************************************** MOVFW ZV2_HI ADDLW HIGH 120 MOVWF S0_HI MOVFW ZV2 ADDLW LOW 120 MOVWF S0 BTFSC STATUS,CARRY INCF S0_HI,F LABEL_AF2_EXIT ;*************************************************** ; One Shot -> OS3 ;*************************************************** BTFSS S2,7 GOTO LABEL_OS3_1 BTFSC OS3_FD,0 GOTO LABEL_OS3_1 BSF OS3_FD,0 BSF S2,4 GOTO LABEL_OS3_2 LABEL_OS3_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S2,4 BTFSC S2,7 GOTO LABEL_OS3_2 BCF OS3_FD,0 LABEL_OS3_2 ;*************************************************** ; ODER - Gatter -> LG2 ;*************************************************** LABEL_LG2_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S2,3 GOTO LABEL_LG2_TRUE LABEL_LG2_2 BTFSC S2,6 GOTO LABEL_LG2_TRUE LABEL_LG2_FALSE BCF S3,0 GOTO LABEL_LG2_ENDE LABEL_LG2_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S3,0 LABEL_LG2_ENDE ;*************************************************** ; Schmitt-Trigger 16-Bit -> ST1 ;*************************************************** MOVLW LOW 300 MOVWF SYS_TMP1 MOVLW HIGH 300 MOVWF SYS_TMP2 BTFSS S2,5 ; Ausgang gesetzt ? GOTO LABEL_ST1_TEST ; without Hysterese MOVLW HIGH 0 SUBWF SYS_TMP2,F MOVLW LOW 0 SUBWF SYS_TMP1,F BTFSS STATUS,CARRY DECF SYS_TMP2,F LABEL_ST1_TEST MOVFW SYS_TMP2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 SUBWF ZV2_HI,W BTFSS STATUS,ZERO GOTO LABEL_ST1_TEST2 MOVFW SYS_TMP1 SUBWF ZV2,W LABEL_ST1_TEST2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS STATUS,CARRY GOTO LABEL_ST1_RESET LABEL_ST1_SET BSF S2,5 ; if greater or equal GOTO LABEL_ST1_ENDE LABEL_ST1_RESET BCF S2,5 ; if less LABEL_ST1_ENDE ;*************************************************** ; EE-Modul -> EE1 ;*************************************************** ; Test of falling edge BTFSC S3,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 S3,0 GOTO LABEL_EE1_EXIT BSF EE1_FD,0 LABEL_EE1_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