; Source created with Parsic Version 3.x ; at : 5.6.2009 ã. 15:11:58 ; Project File : C:\Program Files\Parsic\NwA.pic ; Project Version : 1.0.64 ; Created : 14.3.1999 ã. 21:14:00 ; Last change : 5.6.2009 ã. 15:08:46 PROCESSOR 16F877 INCLUDE P16F877.INC RADIX DEC __IDLOCS H'0100' __CONFIG _CP_OFF & _PWRTE_ON & _WDT_ON & _BODEN_ON & _HS_OSC & _LVP_OFF & _CPD_OFF & _DEBUG_OFF ; Diverses ZERO EQU Z ; ZERO-Flag CARRY EQU C ; CARRY-Flag ; Variable S0 = 32 ; located in Bank 0 MF1 = 33 ; located in Bank 0 MF1_HI = 34 ; located in Bank 0 MF1_FD = 35 ; located in Bank 0 MF2 = 36 ; located in Bank 0 MF2_HI = 37 ; located in Bank 0 MF2_FD = 38 ; located in Bank 0 RAM = 39 ; located in Bank 0 SYS_WSAV = 115 ; located in Bank 0, 1, 2, 3 SYS_SSAV = 116 ; located in Bank 0, 1, 2, 3 SYS_PSAV = 117 ; 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 PCLATH MOVWF SYS_PSAV CLRF PCLATH 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 INCFSZ MF2,F GOTO SYS_INT_LABEL_1 INCF MF2_HI,F SYS_INT_LABEL_1 EXITINT MOVFW SYS_PSAV MOVWF PCLATH 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 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'11111100' MOVWF TRISB MOVLW B'11111111' MOVWF TRISC MOVLW B'11111111' 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 ;*************************************************** ; ODER - Gatter -> LG1 ;*************************************************** LABEL_LG1_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S0,2 GOTO LABEL_LG1_TRUE LABEL_LG1_2 BTFSC PORTB,1 GOTO LABEL_LG1_TRUE LABEL_LG1_FALSE BCF PORTB,0 GOTO LABEL_LG1_ENDE LABEL_LG1_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF PORTB,0 LABEL_LG1_ENDE ;*************************************************** ; UND - Gatter -> LG2 ;*************************************************** LABEL_LG2_1 BTFSS S0,3 GOTO LABEL_LG2_FALSE LABEL_LG2_2 BTFSS S0,4 GOTO LABEL_LG2_FALSE LABEL_LG2_TRUE BSF S0,0 GOTO LABEL_LG2_ENDE LABEL_LG2_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S0,0 LABEL_LG2_ENDE ;*************************************************** ; Mono-Flop -> MF1 ;*************************************************** ; Läuft der Impuls ? BTFSC MF1_FD,1 GOTO LABEL_MF1_CHKTIME ; Test auf positive Flanke BTFSC MF1_FD,0 GOTO LABEL_MF1_SETFD BTFSS S0,1 GOTO LABEL_MF1_SETFD LABEL_MF1_RESET CLRF MF1 CLRF MF1_HI BSF MF1_FD,1 BSF S0,2 LABEL_MF1_CHKTIME MOVLW 0 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 SUBWF MF1_HI,W BTFSS STATUS,ZERO GOTO LABEL_MF1_CHECK MOVLW 195 SUBWF MF1,W LABEL_MF1_CHECK BTFSS STATUS,CARRY GOTO LABEL_MF1_SETFD LABEL_MF1_TO BCF MF1_FD,1 BCF S0,2 LABEL_MF1_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S0,1 GOTO LABEL_MF1_CLR BSF MF1_FD,0 GOTO LABEL_MF1_ENDE LABEL_MF1_CLR BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF MF1_FD,0 LABEL_MF1_ENDE ;*************************************************** ; Mono-Flop -> MF2 ;*************************************************** ; Läuft der Impuls ? BTFSC MF2_FD,1 GOTO LABEL_MF2_CHKTIME ; Test auf positive Flanke BTFSC MF2_FD,0 GOTO LABEL_MF2_SETFD BTFSS S0,0 GOTO LABEL_MF2_SETFD LABEL_MF2_RESET CLRF MF2 CLRF MF2_HI BSF MF2_FD,1 BSF PORTB,1 LABEL_MF2_CHKTIME MOVLW 0 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 SUBWF MF2_HI,W BTFSS STATUS,ZERO GOTO LABEL_MF2_CHECK MOVLW 195 SUBWF MF2,W LABEL_MF2_CHECK BTFSS STATUS,CARRY GOTO LABEL_MF2_SETFD LABEL_MF2_TO BCF MF2_FD,1 BCF PORTB,1 LABEL_MF2_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S0,0 GOTO LABEL_MF2_CLR BSF MF2_FD,0 GOTO LABEL_MF2_ENDE LABEL_MF2_CLR BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF MF2_FD,0 LABEL_MF2_ENDE ;*************************************************** ; RS-FLIP-FLOP -> RS1 ;*************************************************** BTFSC PORTB,5 GOTO LABEL_RS1_RESET BTFSS PORTB,2 GOTO LABEL_RS1_ENDE BSF S0,1 ; Ausgang setzen GOTO LABEL_RS1_ENDE LABEL_RS1_RESET BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S0,1 ; Ausgang zurücksetzen LABEL_RS1_ENDE ;*************************************************** ; RS-FLIP-FLOP -> RS2 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC PORTB,5 GOTO LABEL_RS2_RESET BTFSS PORTB,3 GOTO LABEL_RS2_ENDE BSF S0,3 ; Ausgang setzen GOTO LABEL_RS2_ENDE LABEL_RS2_RESET BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S0,3 ; Ausgang zurücksetzen LABEL_RS2_ENDE ;*************************************************** ; RS-FLIP-FLOP -> RS3 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC PORTB,5 GOTO LABEL_RS3_RESET BTFSS PORTB,4 GOTO LABEL_RS3_ENDE BSF S0,4 ; Ausgang setzen GOTO LABEL_RS3_ENDE LABEL_RS3_RESET BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S0,4 ; Ausgang zurücksetzen LABEL_RS3_ENDE ;**************************************** GOTO MAIN END