; Source created with Parsic Version 3.x ; at : 2008.12.30. 18:40:15 ; Project File : C:\PROGRA~1\PARSIC\HE\Be_PL01.PIC ; Project Version : 1.0.2 ; Created : 2008.12.30. 18:24:02 ; Last change : 2008.12.30. 18:40:15 PROCESSOR 16F628 INCLUDE P16F628.INC RADIX DEC __IDLOCS H'0100' __CONFIG _CP_OFF & _PWRTE_ON & _WDT_OFF & _BODEN_ON & _XT_OSC & _LVP_OFF & _MCLRE_ON ; Diverses ZERO EQU Z ; ZERO-Flag CARRY EQU C ; CARRY-Flag ; Variable S0 = 32 ; located in Bank 0 OS1_FD = 33 ; located in Bank 0 MF1 = 34 ; located in Bank 0 MF1_HI = 35 ; located in Bank 0 ZV1 = 36 ; located in Bank 0 ZV1_FD = 37 ; located in Bank 0 RAM = 38 ; located in Bank 0 SYS_WSAV = 112 ; located in Bank 0, 1, 2, 3 SYS_SSAV = 113 ; located in Bank 0, 1, 2, 3 SYS_FSAV = 114 ; 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 MF1,F GOTO SYS_INT_LABEL_0 INCF MF1_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 ;**************************************** ;**************************************** ;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'01111100' 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 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 CLRF TMR0 BCF INTCON,T0IF BSF INTCON,GIE ; Interrupt freigeben ;********************************** ;******* Haupt-Programm *********** ;********************************** MAIN ;*************************************************** ; 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 S0,5 GOTO LABEL_OS1_2 LABEL_OS1_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S0,5 BTFSS PORTA,0 GOTO LABEL_OS1_2 BCF OS1_FD,0 LABEL_OS1_2 ;*************************************************** ; Anzug-Verzögerung -> MF1 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS PORTA,1 ; Eingang auf Low ? GOTO LABEL_MF1_CHKTIME ; Ja ; RESET CLRF MF1 CLRF MF1_HI BCF S0,0 GOTO LABEL_MF1_EXIT ; raus LABEL_MF1_CHKTIME BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S0,0 ; Ausgang schon auf High ? GOTO LABEL_MF1_EXIT ; Ja MOVLW 0 SUBWF MF1_HI,W BTFSS STATUS,CARRY GOTO LABEL_MF1_EXIT MOVLW 195 SUBWF MF1,W BTFSS STATUS,CARRY GOTO LABEL_MF1_EXIT BSF S0,0 LABEL_MF1_EXIT ;*************************************************** ; Zähler -> ZV1 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S0,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 S0,0 GOTO LABEL_ZV1_SETFD BTFSC ZV1_FD,0 GOTO LABEL_ZV1_SETFD BSF ZV1_FD,0 BTFSC S0,1 ; 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 PORTB,0 GOTO LABEL_ZV1_SETOUT0_END LABEL_ZV1_SETOUT0 BCF PORTB,0 LABEL_ZV1_SETOUT0_END ; Output Q1 BTFSS ZV1,1 GOTO LABEL_ZV1_SETOUT1 BSF PORTB,1 GOTO LABEL_ZV1_SETOUT1_END LABEL_ZV1_SETOUT1 BCF PORTB,1 LABEL_ZV1_SETOUT1_END LABEL_ZV1_SETFD ; Test auf negative Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S0,0 GOTO LABEL_ZV1_EXIT BCF ZV1_FD,0 LABEL_ZV1_EXIT ;*************************************************** ; GND ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S0,1 ; immer Low ;*************************************************** ; RS-FLIP-FLOP -> RS1 ;*************************************************** BTFSC S0,2 GOTO LABEL_RS1_RESET BTFSS S0,3 GOTO LABEL_RS1_ENDE BSF S0,4 ; Ausgang setzen GOTO LABEL_RS1_ENDE LABEL_RS1_RESET BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S0,4 ; Ausgang zurücksetzen LABEL_RS1_ENDE ;*************************************************** ; UND - Gatter -> LG1 ;*************************************************** LABEL_LG1_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S0,4 GOTO LABEL_LG1_FALSE LABEL_LG1_2 BTFSS S0,5 GOTO LABEL_LG1_FALSE LABEL_LG1_TRUE BSF S0,2 GOTO LABEL_LG1_ENDE LABEL_LG1_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S0,2 LABEL_LG1_ENDE ;*************************************************** ; UND - Gatter -> LG2 ;*************************************************** LABEL_LG2_1 BTFSS S0,5 GOTO LABEL_LG2_FALSE LABEL_LG2_2 BTFSC S0,4 GOTO LABEL_LG2_FALSE LABEL_LG2_TRUE BSF S0,3 GOTO LABEL_LG2_ENDE LABEL_LG2_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S0,3 LABEL_LG2_ENDE ;*************************************************** ; UND - Gatter -> LG3 ;*************************************************** LABEL_LG3_1 BTFSS S0,4 GOTO LABEL_LG3_FALSE LABEL_LG3_TRUE BSF PORTB,7 GOTO LABEL_LG3_ENDE LABEL_LG3_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF PORTB,7 LABEL_LG3_ENDE ;**************************************** GOTO MAIN END