; Source created with Parsic Version 3.x ; at : 2008.09.01. 22:12:23 ; Project File : C:\PROGRA~1\Parsic\PORT_RS.PIC ; Project Version : 1.0.2 ; Created : 2008.09.01. 22:07:00 ; Last change : 2008.09.01. 22:12:19 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 UD1_FD = 32 ; located in Bank 0 S1 = 33 ; located in Bank 0 S0 = 34 ; located in Bank 0 TR1 = 35 ; located in Bank 0 TR1_HI = 36 ; located in Bank 0 UA1RSFLAG = 37 ; located in Bank 0 UA1OUTBUF = 38 ; located in Bank 0 UA1OUTBUF1 = 39 ; located in Bank 0 UA1OUTBUF2 = 40 ; located in Bank 0 UA1OUTBUF3 = 41 ; located in Bank 0 RAM = 42 ; 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 TR1,F GOTO SYS_INT_LABEL_0 INCF TR1_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'11111111' MOVWF TRISA MOVLW B'11111011' 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 25 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 ;*************************************************** MOVLW 0 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC PORTA,0 ; IN0 IORLW 1 BTFSC PORTA,1 ; IN1 IORLW 2 BTFSC PORTB,0 ; IN2 IORLW 4 BTFSC PORTB,3 ; IN3 IORLW 8 BTFSC PORTB,4 ; IN4 IORLW 16 BTFSC PORTB,5 ; IN5 IORLW 32 BTFSC PORTB,6 ; IN6 IORLW 64 BTFSC PORTB,7 ; IN7 IORLW 128 MOVWF S0 ; OUT ;*************************************************** ; UDATA -> UD1 ;*************************************************** BTFSC S1,1 ; active GOTO LABEL_UD1_1 ; yes ; test positive edge BTFSS S1,0 GOTO LABEL_UD1_SETFD BTFSC UD1_FD,0 GOTO LABEL_UD1_SETFD BSF UD1_FD,0 BCF UA1RSFLAG,2 ; set not ready BSF S1,1 ; active MOVLW LOW UA1OUTBUF+2 ; set pointer (ADRESS) MOVWF UA1OUTBUF MOVLW H'AA' ; init checksum MOVWF UA1OUTBUF+3 MOVLW 2 ; 2 bytes MOVWF UA1OUTBUF+1 BCF INTCON,GIE ; disable interrupts BTFSC INTCON,GIE ; disabled ? GOTO $-2 ; no MOVFW S0 MOVWF UA1OUTBUF+2 ADDWF UA1OUTBUF+3,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 S1,1 ; not active LABEL_UD1_2 LABEL_UD1_SETFD ; test negative edge BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S1,0 GOTO LABEL_UD1_EXIT BCF UD1_FD,0 LABEL_UD1_EXIT ;*************************************************** ; 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 39 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 39 SUBWF TR1,F ;F-W -> F BTFSS STATUS,CARRY DECF TR1_HI,F LABEL_TR1_SET ; toggel output BTFSC S1,0 GOTO LABEL_TR1_CLR BSF S1,0 GOTO LABEL_TR1_ENDE LABEL_TR1_CLR BCF S1,0 LABEL_TR1_ENDE ;**************************************** GOTO MAIN END