16f876 und Parsic

Hallo

ich habe mit parsic schon mit dem 16c84 erfolge gehapptdieser pic reicht mit aber nicht.
Somit die frage, hat jemand schon erfahrungen mit dem pic 16f876 und dem programm Parsic http://www.parsic.de/ gemacht. Es läuft nähmlich gar nichts mit diesem pic, obwohl er von diesem programm unterstützt wird.

erfahrungen an andere 16f87x könnten auch weiter helfen.

es geht um speziell dieses Programm in Parsic nur für den 16f876 (Dateianhang)

mit Parsic erstellter Programmcode

Code:

PROCESSOR 16F84 INCLUDE P16F84.INC RADIX DEC __IDLOCS H'0000' __CONFIG _CP_OFF & _PWRTE_ON & _WDT_ON & _XT_OSC ; Diverses ZERO EQU Z ; ZERO-Flag CARRY EQU C ; CARRY-Flag ; Variable SYS_WSAV = 12 ; located in Bank 0, 1 SYS_SSAV = 13 ; located in Bank 0, 1 TR1 = 14 ; located in Bank 0, 1 TR1_HI = 15 ; located in Bank 0, 1 S4 = 16 ; located in Bank 0, 1 ZV1 = 17 ; located in Bank 0, 1 ZV1_HI = 18 ; located in Bank 0, 1 ZV1_FD = 19 ; located in Bank 0, 1 SYS_TMP1 = 20 ; located in Bank 0, 1 S0 = 21 ; located in Bank 0, 1 S3 = 22 ; located in Bank 0, 1 S1 = 23 ; located in Bank 0, 1 S2 = 24 ; located in Bank 0, 1 ZV2 = 25 ; located in Bank 0, 1 ZV2_FD = 26 ; located in Bank 0, 1 RAM = 27 ; located in Bank 0, 1 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 ROM-Bank MOVWF PCLATH GOTO SYS_INIT ;**************************************** ;Interrupt-Adress ;**************************************** MOVWF SYS_WSAV ; Register sichern SWAPF STATUS,W CLRF STATUS ; BANK0 MOVWF SYS_SSAV INCFSZ TR1,F GOTO SYS_INT_LABEL_0 INCF TR1_HI,F SYS_INT_LABEL_0 BCF INTCON,T0IF ; Interrupt quitieren EXITINT SWAPF SYS_SSAV,W ; Register zurück MOVWF STATUS SWAPF SYS_WSAV,F SWAPF SYS_WSAV,W RETFIE ; RETurn From Interrupt and Enable GIE ;**************************************** ; Subroutines ;**************************************** ;**************************************** ; Tables ;**************************************** ;**************************************** ;Initialisierung ;**************************************** SYS_INIT MOVLW B'00100000' MOVWF INTCON ; Ausgangs-Pegel setzen, bevor die Richtung gesetzt wird BCF STATUS,RP0 ; 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'00000000' MOVWF TRISB ; init var CLRF SYS_WSAV CLRF SYS_SSAV CLRF TR1 CLRF TR1_HI CLRF S4 CLRF ZV1 CLRF ZV1_HI CLRF ZV1_FD CLRF SYS_TMP1 CLRF S0 CLRF S3 CLRF S1 CLRF S2 CLRF ZV2 CLRF ZV2_FD BCF STATUS,RP0 ; Bank 0 CLRF TMR0 BCF INTCON,T0IF BSF INTCON,GIE ; Interrupt freigeben ;********************************** ;******* Haupt-Programm *********** ;********************************** MAIN CLRWDT ;*************************************************** ; Timer -> TR1 ;*************************************************** MOVLW 0 ; Test auf >= SUBWF TR1_HI,W ;F-W -> W BTFSS STATUS,CARRY GOTO LABEL_TR1_ENDE MOVLW 195 SUBWF TR1,W ;F-W -> W BTFSS STATUS,CARRY GOTO LABEL_TR1_ENDE LABEL_TR1_RESET CLRF TR1 ; reset time CLRF TR1_HI ; reset time LABEL_TR1_SET ; toggel output BTFSC S4,0 GOTO LABEL_TR1_CLR BSF S4,0 GOTO LABEL_TR1_ENDE LABEL_TR1_CLR BCF S4,0 LABEL_TR1_ENDE ;*************************************************** ; Zähler -> ZV1 ;*************************************************** BTFSS S4,1 ; Reset ? GOTO LABEL_ZV1_COUNT CLRF ZV1 CLRF ZV1_HI GOTO LABEL_ZV1_SETOUT LABEL_ZV1_COUNT ; Test auf positive Flanke BTFSS S4,0 GOTO LABEL_ZV1_SETFD BTFSC ZV1_FD,0 GOTO LABEL_ZV1_SETFD BSF ZV1_FD,0 BTFSC S4,2 ; Vorwärts oder Rückwärts ? GOTO LABEL_ZV1_BACKWARD INCFSZ ZV1,F GOTO LABEL_ZV1_SETOUT INCF ZV1_HI,F GOTO LABEL_ZV1_SETOUT LABEL_ZV1_BACKWARD DECF ZV1,F INCFSZ ZV1,W GOTO LABEL_ZV1_SETOUT DECF ZV1_HI,F LABEL_ZV1_SETOUT LABEL_ZV1_SETFD ; Test auf negative Flanke BTFSC S4,0 GOTO LABEL_ZV1_EXIT BCF ZV1_FD,0 LABEL_ZV1_EXIT ;*************************************************** ; Schmitt-Trigger 8-Bit -> ST1 ;*************************************************** BTFSC S4,1 ; Ausgang gesetzt ? GOTO LABEL_ST1_MH ; dann mit Hysterese ? MOVLW 8 GOTO LABEL_ST1_TEST LABEL_ST1_MH MOVLW 8 LABEL_ST1_TEST SUBWF ZV1,W BTFSS STATUS,CARRY GOTO LABEL_ST1_RESET BSF S4,1 ; if greater or equal GOTO LABEL_ST1_ENDE LABEL_ST1_RESET BCF S4,1 ; if less LABEL_ST1_ENDE ;*************************************************** ; Unterprogramm PRG1 aufrufen ;*************************************************** MOVFW ZV1 CALL PRG1 MOVWF S0 ;*************************************************** ; Multiplexer -> MX1 ;*************************************************** CLRF SYS_TMP1 MOVFW ZV2 BTFSS STATUS,ZERO GOTO LABEL_MX1_CHECKCONTROL1 MOVFW S0 MOVWF S3 GOTO LABEL_MX1_END LABEL_MX1_CHECKCONTROL1 INCF SYS_TMP1,F MOVFW ZV2 SUBWF SYS_TMP1,W BTFSS STATUS,ZERO GOTO LABEL_MX1_CHECKCONTROL2 MOVFW S1 MOVWF S3 GOTO LABEL_MX1_END LABEL_MX1_CHECKCONTROL2 INCF SYS_TMP1,F MOVFW ZV2 SUBWF SYS_TMP1,W BTFSS STATUS,ZERO GOTO LABEL_MX1_CHECKCONTROL3 MOVFW S2 MOVWF S3 GOTO LABEL_MX1_END LABEL_MX1_CHECKCONTROL3 LABEL_MX1_END ;*************************************************** ; Unterprogramm PRG2 aufrufen ;*************************************************** MOVFW ZV1 CALL PRG2 MOVWF S1 ;*************************************************** ; GND ;*************************************************** BCF S4,2 ; immer Low ;*************************************************** ; UND - Gatter -> UG1 ;*************************************************** LABEL_UG1_1 BTFSS S4,3 GOTO LABEL_UG1_FALSE LABEL_UG1_2 BTFSS S4,4 GOTO LABEL_UG1_FALSE LABEL_UG1_TRUE BSF S4,5 GOTO LABEL_UG1_ENDE LABEL_UG1_FALSE BCF S4,5 LABEL_UG1_ENDE ;*************************************************** ; Unterprogramm PRG3 aufrufen ;*************************************************** MOVFW ZV1 CALL PRG3 MOVWF S2 ;*************************************************** ; Verteiler -> BV1 ;*************************************************** BTFSC S3,0 GOTO LABEL_BV1_0 BCF STATUS,RP0 ; Bank 0 BCF PORTB,0 GOTO LABEL_BV1_0_END LABEL_BV1_0 BCF STATUS,RP0 ; Bank 0 BSF PORTB,0 LABEL_BV1_0_END ;********************************************** BTFSC S3,1 GOTO LABEL_BV1_1 BCF PORTB,1 GOTO LABEL_BV1_1_END LABEL_BV1_1 BSF PORTB,1 LABEL_BV1_1_END ;********************************************** BTFSC S3,2 GOTO LABEL_BV1_2 BCF PORTB,2 GOTO LABEL_BV1_2_END LABEL_BV1_2 BSF PORTB,2 LABEL_BV1_2_END ;********************************************** BTFSC S3,3 GOTO LABEL_BV1_3 BCF PORTB,3 GOTO LABEL_BV1_3_END LABEL_BV1_3 BSF PORTB,3 LABEL_BV1_3_END ;********************************************** BTFSC S3,4 GOTO LABEL_BV1_4 BCF PORTB,4 GOTO LABEL_BV1_4_END LABEL_BV1_4 BSF PORTB,4 LABEL_BV1_4_END ;********************************************** BTFSC S3,5 GOTO LABEL_BV1_5 BCF PORTB,5 GOTO LABEL_BV1_5_END LABEL_BV1_5 BSF PORTB,5 LABEL_BV1_5_END ;********************************************** BTFSC S3,6 GOTO LABEL_BV1_6 BCF PORTB,6 GOTO LABEL_BV1_6_END LABEL_BV1_6 BSF PORTB,6 LABEL_BV1_6_END ;********************************************** BTFSC S3,7 GOTO LABEL_BV1_7 BCF PORTB,7 GOTO LABEL_BV1_7_END LABEL_BV1_7 BSF PORTB,7 LABEL_BV1_7_END ;********************************************** ;*************************************************** ; Zähler -> ZV2 ;*************************************************** BTFSS S4,5 ; Reset ? GOTO LABEL_ZV2_COUNT CLRF ZV2 GOTO LABEL_ZV2_SETOUT LABEL_ZV2_COUNT ; Test auf positive Flanke BCF STATUS,RP0 ; Bank 0 BTFSS PORTA,0 GOTO LABEL_ZV2_SETFD BTFSC ZV2_FD,0 GOTO LABEL_ZV2_SETFD BSF ZV2_FD,0 BTFSC S4,6 ; Vorwärts oder Rückwärts ? GOTO LABEL_ZV2_BACKWARD INCF ZV2,F GOTO LABEL_ZV2_SETOUT LABEL_ZV2_BACKWARD DECF ZV2,F LABEL_ZV2_SETOUT ; Output Q0 BTFSS ZV2,0 GOTO LABEL_ZV2_SETOUT0 BSF S4,3 GOTO LABEL_ZV2_SETOUT0_END LABEL_ZV2_SETOUT0 BCF S4,3 LABEL_ZV2_SETOUT0_END ; Output Q1 BTFSS ZV2,1 GOTO LABEL_ZV2_SETOUT1 BSF S4,4 GOTO LABEL_ZV2_SETOUT1_END LABEL_ZV2_SETOUT1 BCF S4,4 LABEL_ZV2_SETOUT1_END LABEL_ZV2_SETFD ; Test auf negative Flanke BCF STATUS,RP0 ; Bank 0 BTFSC PORTA,0 GOTO LABEL_ZV2_EXIT BCF ZV2_FD,0 LABEL_ZV2_EXIT ;*************************************************** ; GND ;*************************************************** BCF S4,6 ; immer Low ;**************************************** GOTO MAIN ORG 1010 ;*************************************************** ;Table -> PRG1 ;*************************************************** PRG1 MOVWF SYS_TMP1 MOVLW HIGH PRG1_WERTE MOVWF PCLATH MOVFW SYS_TMP1 ADDWF PCL,F PRG1_WERTE RETLW 1 RETLW 2 RETLW 4 RETLW 8 RETLW 16 RETLW 32 RETLW 64 RETLW 128 RETLW 128 ORG 996 ;*************************************************** ;Table -> PRG2 ;*************************************************** PRG2 MOVWF SYS_TMP1 MOVLW HIGH PRG2_WERTE MOVWF PCLATH MOVFW SYS_TMP1 ADDWF PCL,F PRG2_WERTE RETLW 129 RETLW 66 RETLW 36 RETLW 24 RETLW 36 RETLW 66 RETLW 129 RETLW 129 RETLW 129 ORG 982 ;*************************************************** ;Table -> PRG3 ;*************************************************** PRG3 MOVWF SYS_TMP1 MOVLW HIGH PRG3_WERTE MOVWF PCLATH MOVFW SYS_TMP1 ADDWF PCL,F PRG3_WERTE RETLW 255 RETLW 127 RETLW 191 RETLW 223 RETLW 239 RETLW 247 RETLW 251 RETLW 253 RETLW 254 END

vielen dank