; Source created with Parsic Version 3.x ; at : 2008.07.04. 20:07:17 ; Project File : C:\PROGRA~1\Parsic\Projekt\egyéb\RS_vevo.PIC ; Project Version : 1.0.3 ; Created : 2008.07.04. 19:49:00 ; Last change : 2008.07.04. 20:07: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_OFF ; Diverses ZERO EQU Z ; ZERO-Flag CARRY EQU C ; CARRY-Flag ; Variable UD1_FD = 32 ; located in Bank 0 S0 = 33 ; located in Bank 0 UA1RSFLAG = 34 ; located in Bank 0 ADAT = 35 ; located in Bank 0 ADAT_HI = 36 ; located in Bank 0 MF1 = 37 ; located in Bank 0 MF1_HI = 38 ; located in Bank 0 UA1OUTBUF = 39 ; located in Bank 0 UA1OUTBUF1 = 40 ; located in Bank 0 UA1OUTBUF2 = 41 ; located in Bank 0 UA1OUTBUF3 = 42 ; located in Bank 0 UA1OUTBUF4 = 43 ; located in Bank 0 RAM = 44 ; 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 ;*************************************************** ; UART -> UA1 ;*************************************************** ;--------------------------------------------------------- UA1CHKTX BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS PIR1,TXIF ; send byte ? GOTO UA1ENDINT ; no MOVFW UA1OUTBUF+1 ; all transmitted ? BTFSC STATUS,ZERO GOTO UA1TXINT1 ERRORLEVEL -312 BANKISEL UA1OUTBUF ; FILE INDIREKT ERRORLEVEL +312 MOVFW UA1OUTBUF ; pointer INCF UA1OUTBUF,F ; pointer+1 MOVWF FSR MOVFW INDF ; data MOVWF TXREG ; Transmit Register DECF UA1OUTBUF+1,F ; length-1 GOTO EXITINT ; that's all UA1TXINT1 BSF STATUS,RP0 ; Bank 1 BCF STATUS,RP1 ; Bank 1 BTFSS TXSTA,TRMT ; last byte transmitted ? GOTO EXITINT ; no BCF TXSTA,TXEN ; transmitter off BCF STATUS,RP0 ; Bank 0 BSF UA1RSFLAG,2 ; ready GOTO EXITINT UA1ENDINT 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'00000100' MOVWF PORTB MOVLW 15 BSF STATUS,RP0 ; Bank 1 MOVWF OPTION_REG ; Richtung setzen MOVLW B'11000000' MOVWF TRISA MOVLW B'00000010' 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 ;***************************************** ; initalisize UA1 ;***************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVLW B'10010000' ; serial enable,8-bit,continous-enable MOVWF RCSTA BSF STATUS,RP0 ; Bank 1 MOVLW 103 MOVWF SPBRG ; BAUDRATE GENERATOR MOVLW B'00000100' ; 8-BIt,TRANSMIT DISABLED,ASYNCHRON,BRGH=1=HIGH SPEED MOVWF TXSTA BSF PIE1,TXIE ; enable INTERRUPT for transmit BSF INTCON,PEIE ; PERIPHERIE INT ENABLE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 CLRF TMR0 BCF INTCON,T0IF BSF INTCON,GIE ; Interrupt freigeben ;********************************** ;******* Haupt-Programm *********** ;********************************** MAIN ;*************************************************** ; Verteiler -> BV1 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC ADAT,0 GOTO LABEL_BV1_0 BCF PORTA,0 GOTO LABEL_BV1_0_END LABEL_BV1_0 BSF PORTA,0 LABEL_BV1_0_END ;********************************************** BTFSC ADAT,1 GOTO LABEL_BV1_1 BCF PORTA,1 GOTO LABEL_BV1_1_END LABEL_BV1_1 BSF PORTA,1 LABEL_BV1_1_END ;********************************************** BTFSC ADAT,2 GOTO LABEL_BV1_2 BCF PORTA,2 GOTO LABEL_BV1_2_END LABEL_BV1_2 BSF PORTA,2 LABEL_BV1_2_END ;********************************************** BTFSC ADAT,3 GOTO LABEL_BV1_3 BCF PORTA,3 GOTO LABEL_BV1_3_END LABEL_BV1_3 BSF PORTA,3 LABEL_BV1_3_END ;********************************************** BTFSC ADAT,4 GOTO LABEL_BV1_4 BCF PORTA,4 GOTO LABEL_BV1_4_END LABEL_BV1_4 BSF PORTA,4 LABEL_BV1_4_END ;********************************************** BTFSC ADAT,5 GOTO LABEL_BV1_5 BCF PORTA,5 GOTO LABEL_BV1_5_END LABEL_BV1_5 BSF PORTA,5 LABEL_BV1_5_END ;********************************************** BTFSC ADAT,6 GOTO LABEL_BV1_6 BCF PORTB,0 GOTO LABEL_BV1_6_END LABEL_BV1_6 BSF PORTB,0 LABEL_BV1_6_END ;********************************************** BTFSC ADAT,7 GOTO LABEL_BV1_7 BCF PORTB,3 GOTO LABEL_BV1_7_END LABEL_BV1_7 BSF PORTB,3 LABEL_BV1_7_END ;********************************************** BTFSC ADAT_HI,0 GOTO LABEL_BV1_8 BCF PORTB,4 GOTO LABEL_BV1_8_END LABEL_BV1_8 BSF PORTB,4 LABEL_BV1_8_END ;********************************************** BTFSC ADAT_HI,1 GOTO LABEL_BV1_9 BCF PORTB,5 GOTO LABEL_BV1_9_END LABEL_BV1_9 BSF PORTB,5 LABEL_BV1_9_END ;********************************************** BTFSC ADAT_HI,2 GOTO LABEL_BV1_10 BCF PORTB,6 GOTO LABEL_BV1_10_END LABEL_BV1_10 BSF PORTB,6 LABEL_BV1_10_END ;********************************************** BTFSC ADAT_HI,3 GOTO LABEL_BV1_11 BCF PORTB,7 GOTO LABEL_BV1_11_END LABEL_BV1_11 BSF PORTB,7 LABEL_BV1_11_END ;********************************************** ;*************************************************** ; UDATA -> UD1 ;*************************************************** BTFSC S0,1 ; active GOTO LABEL_UD1_1 ; yes ; test positive edge BTFSS S0,0 GOTO LABEL_UD1_SETFD BTFSC UD1_FD,0 GOTO LABEL_UD1_SETFD BSF UD1_FD,0 BCF UA1RSFLAG,2 ; set not ready BSF S0,1 ; active MOVLW LOW UA1OUTBUF+2 ; set pointer (ADRESS) MOVWF UA1OUTBUF MOVLW H'AA' ; init checksum MOVWF UA1OUTBUF+4 MOVLW 3 ; 3 bytes MOVWF UA1OUTBUF+1 BCF INTCON,GIE ; disable interrupts BTFSC INTCON,GIE ; disabled ? GOTO $-2 ; no MOVFW ADAT MOVWF UA1OUTBUF+2 ADDWF UA1OUTBUF+4,F MOVFW ADAT_HI MOVWF UA1OUTBUF+3 ADDWF UA1OUTBUF+4,F BSF STATUS,RP0 ; Bank 1 BSF TXSTA,TXEN BSF INTCON,GIE ; enable interrupts LABEL_UD1_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS UA1RSFLAG,2 ; transmit ready ? GOTO LABEL_UD1_2 ; no BCF S0,1 ; not active LABEL_UD1_2 LABEL_UD1_SETFD ; test negative edge BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S0,0 GOTO LABEL_UD1_EXIT BCF UD1_FD,0 LABEL_UD1_EXIT ;*************************************************** ; Anzug-Verzögerung -> MF1 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S0,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 78 SUBWF MF1,W BTFSS STATUS,CARRY GOTO LABEL_MF1_EXIT BSF S0,0 LABEL_MF1_EXIT ;**************************************** GOTO MAIN END