; Source created with Parsic Version 3.x ; at : 2008.09.06. 21:02:48 ; Project File : C:\PROGRA~1\Parsic\Examples\HE\RS_TR.PIC ; Project Version : 1.0.1 ; Created : 2008.09.06. 20:37:00 ; Last change : 2008.09.06. 21:02:44 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 ZV1 = 32 ; located in Bank 0 EE1_FD = 33 ; located in Bank 0 ZV2 = 34 ; located in Bank 0 EE2_FD = 35 ; located in Bank 0 UD1_FD = 36 ; located in Bank 0 S1 = 37 ; located in Bank 0 S0 = 38 ; located in Bank 0 OS1_FD = 39 ; located in Bank 0 OS2_FD = 40 ; located in Bank 0 ZV1_FD = 41 ; located in Bank 0 ZV2_FD = 42 ; located in Bank 0 UA1RSFLAG = 43 ; located in Bank 0 OS3_FD = 44 ; located in Bank 0 OS4_FD = 45 ; located in Bank 0 UA1OUTBUF = 46 ; located in Bank 0 UA1OUTBUF1 = 47 ; located in Bank 0 UA1OUTBUF2 = 48 ; located in Bank 0 UA1OUTBUF3 = 49 ; located in Bank 0 UA1OUTBUF4 = 50 ; located in Bank 0 RAM = 51 ; located in Bank 0 SYS_TMP1 = 112 ; located in Bank 0, 1, 2, 3 SYS_WSAV = 113 ; located in Bank 0, 1, 2, 3 SYS_SSAV = 114 ; located in Bank 0, 1, 2, 3 SYS_FSAV = 115 ; 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 ;*************************************************** ; 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 ;**************************************** EEINT_WRITE MOVFW INDF 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 BCF STATUS,IRP ; vars - located in Bank 0 MOVLW 1 MOVWF SYS_TMP1 MOVLW LOW ZV1 MOVWF FSR CALL EEINT_WRITE RETURN ;*************************************************** ; EE-Modul -> EE1 ;*************************************************** READ_EE1 MOVLW 0 BSF STATUS,RP0 ; Bank 1 BCF STATUS,RP1 ; Bank 1 MOVWF EEADR BCF STATUS,IRP ; vars - located in Bank 0 MOVLW 1 MOVWF SYS_TMP1 MOVLW LOW ZV1 MOVWF FSR CALL EEINT_READ RETURN ;*************************************************** ;*************************************************** ; EE-Modul -> EE2 ;*************************************************** WRITE_EE2 MOVLW 1 BSF STATUS,RP0 ; Bank 1 BCF STATUS,RP1 ; Bank 1 MOVWF EEADR BCF STATUS,IRP ; vars - located in Bank 0 MOVLW 1 MOVWF SYS_TMP1 MOVLW LOW ZV2 MOVWF FSR CALL EEINT_WRITE RETURN ;*************************************************** ; EE-Modul -> EE2 ;*************************************************** READ_EE2 MOVLW 1 BSF STATUS,RP0 ; Bank 1 BCF STATUS,RP1 ; Bank 1 MOVWF EEADR BCF STATUS,IRP ; vars - located in Bank 0 MOVLW 1 MOVWF SYS_TMP1 MOVLW LOW ZV2 MOVWF FSR CALL EEINT_READ RETURN ;*************************************************** ;**************************************** ;Initialisierung ;**************************************** SYS_INIT MOVLW B'00000000' 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 CALL READ_EE1 ; read vars from internal EE CALL READ_EE2 ; read vars from internal EE ;***************************************** ; 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 ;********************************** ;******* 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,1 GOTO LABEL_OS1_2 LABEL_OS1_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S0,1 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 S0,3 GOTO LABEL_OS2_2 LABEL_OS2_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S0,3 BTFSS PORTA,1 GOTO LABEL_OS2_2 BCF OS2_FD,0 LABEL_OS2_2 ;*************************************************** ; Zähler -> ZV1 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S0,0 ; 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,1 GOTO LABEL_ZV1_SETFD BTFSC ZV1_FD,0 GOTO LABEL_ZV1_SETFD BSF ZV1_FD,0 BTFSC S0,4 ; 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 LABEL_ZV1_SETFD ; Test auf negative Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S0,1 GOTO LABEL_ZV1_EXIT BCF ZV1_FD,0 LABEL_ZV1_EXIT ;*************************************************** ; Zähler -> ZV2 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S0,2 ; Reset ? GOTO LABEL_ZV2_COUNT CLRF ZV2 GOTO LABEL_ZV2_SETOUT LABEL_ZV2_COUNT ; Test auf positive Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S0,3 GOTO LABEL_ZV2_SETFD BTFSC ZV2_FD,0 GOTO LABEL_ZV2_SETFD BSF ZV2_FD,0 BTFSC S0,4 ; Vorwärts oder Rückwärts ? GOTO LABEL_ZV2_BACKWARD INCF ZV2,F GOTO LABEL_ZV2_SETOUT LABEL_ZV2_BACKWARD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 DECF ZV2,F LABEL_ZV2_SETOUT LABEL_ZV2_SETFD ; Test auf negative Flanke BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S0,3 GOTO LABEL_ZV2_EXIT BCF ZV2_FD,0 LABEL_ZV2_EXIT ;*************************************************** ; Schmitt-Trigger 8-Bit -> ST1 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S0,0 ; Ausgang gesetzt ? GOTO LABEL_ST1_MH ; dann mit Hysterese ? MOVLW 16 GOTO LABEL_ST1_TEST LABEL_ST1_MH MOVLW 16 LABEL_ST1_TEST SUBWF ZV1,W BTFSS STATUS,CARRY GOTO LABEL_ST1_RESET BSF S0,0 ; if greater or equal GOTO LABEL_ST1_ENDE LABEL_ST1_RESET BCF S0,0 ; if less LABEL_ST1_ENDE ;*************************************************** ; Schmitt-Trigger 8-Bit -> ST2 ;*************************************************** BTFSC S0,2 ; Ausgang gesetzt ? GOTO LABEL_ST2_MH ; dann mit Hysterese ? MOVLW 16 GOTO LABEL_ST2_TEST LABEL_ST2_MH MOVLW 16 LABEL_ST2_TEST SUBWF ZV2,W BTFSS STATUS,CARRY GOTO LABEL_ST2_RESET BSF S0,2 ; if greater or equal GOTO LABEL_ST2_ENDE LABEL_ST2_RESET BCF S0,2 ; if less LABEL_ST2_ENDE ;*************************************************** ; GND ;*************************************************** BCF S0,4 ; immer Low ;*************************************************** ; EE-Modul -> EE1 ;*************************************************** ; Test of falling edge BTFSC S0,1 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 S0,1 GOTO LABEL_EE1_EXIT BSF EE1_FD,0 LABEL_EE1_EXIT ;*************************************************** ; EE-Modul -> EE2 ;*************************************************** ; Test of falling edge BTFSC S0,3 GOTO LABEL_EE2_SETFD BTFSS EE2_FD,0 GOTO LABEL_EE2_SETFD BCF EE2_FD,0 CALL WRITE_EE2 LABEL_EE2_SETFD ; test input BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S0,3 GOTO LABEL_EE2_EXIT BSF EE2_FD,0 LABEL_EE2_EXIT ;*************************************************** ; UDATA -> UD1 ;*************************************************** BTFSC S1,0 ; active GOTO LABEL_UD1_1 ; yes ; test positive edge BTFSS S0,7 GOTO LABEL_UD1_SETFD BTFSC UD1_FD,0 GOTO LABEL_UD1_SETFD BSF UD1_FD,0 BCF UA1RSFLAG,2 ; set not ready BSF S1,0 ; 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 ZV1 MOVWF UA1OUTBUF+2 ADDWF UA1OUTBUF+4,F MOVFW ZV2 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 S1,0 ; not active LABEL_UD1_2 LABEL_UD1_SETFD ; test negative edge BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S0,7 GOTO LABEL_UD1_EXIT BCF UD1_FD,0 LABEL_UD1_EXIT ;*************************************************** ; ODER - Gatter -> LG1 ;*************************************************** LABEL_LG1_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S0,5 GOTO LABEL_LG1_TRUE LABEL_LG1_2 BTFSC S0,6 GOTO LABEL_LG1_TRUE LABEL_LG1_FALSE BCF S0,7 GOTO LABEL_LG1_ENDE LABEL_LG1_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S0,7 LABEL_LG1_ENDE ;*************************************************** ; One Shot -> OS3 ;*************************************************** BTFSC S0,1 GOTO LABEL_OS3_1 BTFSC OS3_FD,0 GOTO LABEL_OS3_1 BSF OS3_FD,0 BSF S0,5 GOTO LABEL_OS3_2 LABEL_OS3_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S0,5 BTFSS S0,1 GOTO LABEL_OS3_2 BCF OS3_FD,0 LABEL_OS3_2 ;*************************************************** ; One Shot -> OS4 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S0,3 GOTO LABEL_OS4_1 BTFSC OS4_FD,0 GOTO LABEL_OS4_1 BSF OS4_FD,0 BSF S0,6 GOTO LABEL_OS4_2 LABEL_OS4_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S0,6 BTFSS S0,3 GOTO LABEL_OS4_2 BCF OS4_FD,0 LABEL_OS4_2 ;**************************************** 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