; Source created with Parsic Version 3.x ; at : 2010.01.06. 19:43:25 ; Project File : C:\DOCUME~1\ALLUSE~1\ASZTAL\45pvissz.PIC ; Project Version : 1.0.0 ; Created : 2010.01.06. 18:40:00 ; Last change : 2010.01.06. 19:43:20 PROCESSOR 16F628A INCLUDE P16F628A.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 ZV1_FD = 33 ; located in Bank 0 TR1 = 34 ; located in Bank 0 TR1_HI = 35 ; located in Bank 0 S6 = 36 ; located in Bank 0 OS1_FD = 37 ; located in Bank 0 S0 = 38 ; located in Bank 0 ZV2 = 39 ; located in Bank 0 ZV2_FD = 40 ; located in Bank 0 S1 = 41 ; located in Bank 0 S2 = 42 ; located in Bank 0 S3 = 43 ; located in Bank 0 S4 = 44 ; located in Bank 0 S5 = 45 ; located in Bank 0 TR2 = 46 ; located in Bank 0 TR2_HI = 47 ; located in Bank 0 S7 = 48 ; located in Bank 0 OS2_FD = 49 ; located in Bank 0 MF1 = 50 ; located in Bank 0 MF1_HI = 51 ; located in Bank 0 MF1_FD = 52 ; located in Bank 0 MF2 = 53 ; located in Bank 0 MF2_HI = 54 ; located in Bank 0 MF2_FD = 55 ; located in Bank 0 OS3_FD = 56 ; located in Bank 0 RAM = 57 ; 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_TMP1 = 114 ; located in Bank 0, 1, 2, 3 SYS_TMP2 = 115 ; located in Bank 0, 1, 2, 3 SYS_TMP3 = 116 ; located in Bank 0, 1, 2, 3 SYS_TMP4 = 117 ; located in Bank 0, 1, 2, 3 SYS_FSAV = 118 ; 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 INCFSZ TR2,F GOTO SYS_INT_LABEL_1 INCF TR2_HI,F SYS_INT_LABEL_1 INCFSZ MF1,F GOTO SYS_INT_LABEL_2 INCF MF1_HI,F SYS_INT_LABEL_2 INCFSZ MF2,F GOTO SYS_INT_LABEL_3 INCF MF2_HI,F SYS_INT_LABEL_3 NOTMR0INT EXITINT MOVFW SYS_FSAV MOVWF FSR SWAPF SYS_SSAV,W ; Register zurück MOVWF STATUS SWAPF SYS_WSAV,F SWAPF SYS_WSAV,W RETFIE ;**************************************** ; Multiplication 8 - Bit ;**************************************** SYSMUL8 CLRF SYS_TMP3 MOVLW 8 MOVWF SYS_TMP4 SYSMUL8_1 MOVFW SYS_TMP1 RRF SYS_TMP2,F BTFSC STATUS,CARRY ADDWF SYS_TMP3,F RLF SYS_TMP1,F DECFSZ SYS_TMP4,F GOTO SYSMUL8_1 RETURN ;**************************************** ; Division 8 - Bit ;**************************************** SYSDIV8 MOVF SYS_TMP2,F BTFSC STATUS,ZERO GOTO SYSDIV8_ERROR CLRF SYS_TMP3 ; Ergebnis löschen MOVLW 1 MOVWF SYS_TMP4 SYSDIV8_0 BTFSC SYS_TMP2,7 ; OP2 linksbündig GOTO SYSDIV8_1 INCF SYS_TMP4,F BCF STATUS,CARRY RLF SYS_TMP2,F GOTO SYSDIV8_0 SYSDIV8_1 MOVFW SYS_TMP2 ; vergleichen SUBWF SYS_TMP1,F ; F-W -> W BTFSC STATUS,CARRY GOTO SYSDIV8_2 ADDWF SYS_TMP1,F ; F+W -> F BCF STATUS,CARRY SYSDIV8_2 RLF SYS_TMP3,F RRF SYS_TMP2,F DECFSZ SYS_TMP4,F GOTO SYSDIV8_1 RETURN SYSDIV8_ERROR MOVLW 255 MOVWF SYS_TMP3 RETURN ;**************************************** ; Subroutines ;**************************************** ;**************************************** ; Direct jump into a table ;**************************************** SYSTABJMP BCF INTCON,GIE BTFSC INTCON,GIE GOTO SYSTABJMP MOVFW SYS_TMP2 MOVWF PCLATH MOVFW SYS_TMP1 MOVWF PCL ;**************************************** ;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 143 BSF STATUS,RP0 ; Bank 1 MOVWF OPTION_REG ; Richtung setzen MOVLW B'00100000' MOVWF TRISA MOVLW B'00000000' 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 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 CLRF TMR0 BCF INTCON,T0IF BSF INTCON,GIE ; Interrupt freigeben ;********************************** ;******* Haupt-Programm *********** ;********************************** MAIN ;*************************************************** ; Zähler -> ZV1 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S6,4 ; 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 S6,5 GOTO LABEL_ZV1_SETFD BTFSC ZV1_FD,0 GOTO LABEL_ZV1_SETFD BSF ZV1_FD,0 BTFSC S6,0 ; 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 S6,5 GOTO LABEL_ZV1_EXIT BCF ZV1_FD,0 LABEL_ZV1_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 8 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 8 SUBWF TR1,F ;F-W -> F BTFSS STATUS,CARRY DECF TR1_HI,F LABEL_TR1_SET ; toggel output BTFSC S6,2 GOTO LABEL_TR1_CLR BSF S6,2 GOTO LABEL_TR1_ENDE LABEL_TR1_CLR BCF S6,2 LABEL_TR1_ENDE ;*************************************************** ; GND ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S6,0 ; immer Low ;*************************************************** ; UND - Gatter -> LG1 ;*************************************************** LABEL_LG1_1 BTFSS S6,3 GOTO LABEL_LG1_FALSE LABEL_LG1_2 BTFSS S6,2 GOTO LABEL_LG1_FALSE LABEL_LG1_TRUE BSF S6,1 GOTO LABEL_LG1_ENDE LABEL_LG1_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S6,1 LABEL_LG1_ENDE ;*************************************************** ; RS-FLIP-FLOP -> RS1 ;*************************************************** BTFSC S6,4 GOTO LABEL_RS1_RESET BTFSS S6,6 GOTO LABEL_RS1_ENDE BSF S6,3 ; Ausgang setzen GOTO LABEL_RS1_ENDE LABEL_RS1_RESET BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S6,3 ; Ausgang zurücksetzen LABEL_RS1_ENDE ;*************************************************** ; One Shot -> OS1 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS PORTA,5 GOTO LABEL_OS1_1 BTFSC OS1_FD,0 GOTO LABEL_OS1_1 BSF OS1_FD,0 BSF S6,6 GOTO LABEL_OS1_2 LABEL_OS1_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S6,6 BTFSC PORTA,5 GOTO LABEL_OS1_2 BCF OS1_FD,0 LABEL_OS1_2 ;*************************************************** ;AF1 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVFW ZV1 SUBLW 45 ; L - W -> W MOVWF S0 LABEL_AF1_EXIT ;*************************************************** ; Zähler -> ZV2 ;*************************************************** BTFSS S7,5 ; 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 S6,1 GOTO LABEL_ZV2_SETFD BTFSC ZV2_FD,0 GOTO LABEL_ZV2_SETFD BSF ZV2_FD,0 BTFSC S6,0 ; 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 S6,1 GOTO LABEL_ZV2_EXIT BCF ZV2_FD,0 LABEL_ZV2_EXIT ;*************************************************** ; Vergleich -> IF1 ;*************************************************** MOVLW 60 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 SUBWF ZV2,W ; F - W -> W LABEL_IF1_CHECK BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS STATUS,ZERO ; Test auf -> = GOTO LABEL_IF1_FALSE LABEL_IF1_TRUE BSF S6,5 GOTO LABEL_IF1_EXIT LABEL_IF1_FALSE BCF S6,5 LABEL_IF1_EXIT ;*************************************************** ; Vergleich -> IF2 ;*************************************************** MOVLW 45 SUBWF ZV1,W ; F - W -> W LABEL_IF2_CHECK BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS STATUS,ZERO ; Test auf -> = GOTO LABEL_IF2_FALSE LABEL_IF2_TRUE BSF S6,4 GOTO LABEL_IF2_EXIT LABEL_IF2_FALSE BCF S6,4 LABEL_IF2_EXIT ;*************************************************** ;AF2 ;*************************************************** MOVFW S0 MOVWF SYS_TMP1 MOVLW 10 MOVWF SYS_TMP2 CALL SYSDIV8 MOVFW SYS_TMP3 MOVWF S1 LABEL_AF2_EXIT ;*************************************************** ;AF3 ;*************************************************** MOVFW S1 MOVWF SYS_TMP1 MOVLW 10 MOVWF SYS_TMP2 CALL SYSMUL8 MOVFW SYS_TMP3 MOVWF S2 LABEL_AF3_EXIT ;*************************************************** ;AF4 ;*************************************************** MOVFW S2 SUBWF S0,W ; F - W -> W MOVWF S3 LABEL_AF4_EXIT ;*************************************************** ; Call subroutine RBPORT ;*************************************************** MOVLW LOW RBPORT MOVWF SYS_TMP1 MOVLW HIGH RBPORT MOVWF SYS_TMP2 MOVFW S1 ADDWF SYS_TMP1,F BTFSC STATUS,CARRY INCF SYS_TMP2,F CALL SYSTABJMP BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVWF S4 BSF INTCON,GIE ;*************************************************** ; Verteiler -> BV1 ;*************************************************** BTFSC S4,0 GOTO LABEL_BV1_0 BCF PORTB,0 GOTO LABEL_BV1_0_END LABEL_BV1_0 BSF PORTB,0 LABEL_BV1_0_END ;********************************************** BTFSC S4,1 GOTO LABEL_BV1_1 BCF PORTB,1 GOTO LABEL_BV1_1_END LABEL_BV1_1 BSF PORTB,1 LABEL_BV1_1_END ;********************************************** BTFSC S4,2 GOTO LABEL_BV1_2 BCF PORTB,2 GOTO LABEL_BV1_2_END LABEL_BV1_2 BSF PORTB,2 LABEL_BV1_2_END ;********************************************** BTFSC S4,3 GOTO LABEL_BV1_3 BCF PORTB,3 GOTO LABEL_BV1_3_END LABEL_BV1_3 BSF PORTB,3 LABEL_BV1_3_END ;********************************************** BTFSC S4,4 GOTO LABEL_BV1_4 BCF PORTB,4 GOTO LABEL_BV1_4_END LABEL_BV1_4 BSF PORTB,4 LABEL_BV1_4_END ;********************************************** BTFSC S4,5 GOTO LABEL_BV1_5 BCF PORTB,5 GOTO LABEL_BV1_5_END LABEL_BV1_5 BSF PORTB,5 LABEL_BV1_5_END ;********************************************** BTFSC S4,6 GOTO LABEL_BV1_6 BCF PORTB,6 GOTO LABEL_BV1_6_END LABEL_BV1_6 BSF PORTB,6 LABEL_BV1_6_END ;********************************************** ;*************************************************** ; Call subroutine RAPORT ;*************************************************** MOVLW LOW RAPORT MOVWF SYS_TMP1 MOVLW HIGH RAPORT MOVWF SYS_TMP2 MOVFW S3 ADDWF SYS_TMP1,F BTFSC STATUS,CARRY INCF SYS_TMP2,F CALL SYSTABJMP BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVWF S5 BSF INTCON,GIE ;*************************************************** ; Verteiler -> BV2 ;*************************************************** BTFSC S5,0 GOTO LABEL_BV2_0 BCF PORTA,0 GOTO LABEL_BV2_0_END LABEL_BV2_0 BSF PORTA,0 LABEL_BV2_0_END ;********************************************** BTFSC S5,1 GOTO LABEL_BV2_1 BCF PORTA,1 GOTO LABEL_BV2_1_END LABEL_BV2_1 BSF PORTA,1 LABEL_BV2_1_END ;********************************************** BTFSC S5,2 GOTO LABEL_BV2_2 BCF PORTA,2 GOTO LABEL_BV2_2_END LABEL_BV2_2 BSF PORTA,2 LABEL_BV2_2_END ;********************************************** BTFSC S5,3 GOTO LABEL_BV2_3 BCF PORTA,3 GOTO LABEL_BV2_3_END LABEL_BV2_3 BSF PORTA,3 LABEL_BV2_3_END ;********************************************** BTFSC S5,4 GOTO LABEL_BV2_4 BCF PORTA,4 GOTO LABEL_BV2_4_END LABEL_BV2_4 BSF PORTA,4 LABEL_BV2_4_END ;********************************************** BTFSC S5,5 GOTO LABEL_BV2_5 BCF PORTA,6 GOTO LABEL_BV2_5_END LABEL_BV2_5 BSF PORTA,6 LABEL_BV2_5_END ;********************************************** BTFSC S5,6 GOTO LABEL_BV2_6 BCF PORTA,7 GOTO LABEL_BV2_6_END LABEL_BV2_6 BSF PORTA,7 LABEL_BV2_6_END ;********************************************** ;*************************************************** ; UND - Gatter -> LG2 ;*************************************************** LABEL_LG2_1 BTFSS S7,4 GOTO LABEL_LG2_FALSE LABEL_LG2_2 BTFSS S6,7 GOTO LABEL_LG2_FALSE LABEL_LG2_TRUE BSF PORTB,7 GOTO LABEL_LG2_ENDE LABEL_LG2_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF PORTB,7 LABEL_LG2_ENDE ;*************************************************** ; Timer -> TR2 ;*************************************************** MOVLW 0 ; Test auf >= SUBWF TR2_HI,W ;F-W -> W BTFSS STATUS,ZERO GOTO LABEL_TR2_CHECK MOVLW 8 SUBWF TR2,W ;F-W -> W LABEL_TR2_CHECK BTFSS STATUS,CARRY GOTO LABEL_TR2_ENDE LABEL_TR2_RESET MOVLW 0 ; Test auf >= SUBWF TR2_HI,F ;F-W -> F MOVLW 8 SUBWF TR2,F ;F-W -> F BTFSS STATUS,CARRY DECF TR2_HI,F LABEL_TR2_SET ; toggel output BTFSC S6,7 GOTO LABEL_TR2_CLR BSF S6,7 GOTO LABEL_TR2_ENDE LABEL_TR2_CLR BCF S6,7 LABEL_TR2_ENDE ;*************************************************** ; One Shot -> OS2 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S6,3 GOTO LABEL_OS2_1 BTFSC OS2_FD,0 GOTO LABEL_OS2_1 BSF OS2_FD,0 BSF S7,0 GOTO LABEL_OS2_2 LABEL_OS2_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S7,0 BTFSS S6,3 GOTO LABEL_OS2_2 BCF OS2_FD,0 LABEL_OS2_2 ;*************************************************** ; Mono-Flop -> MF1 ;*************************************************** ; Läuft der Impuls ? BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC MF1_FD,1 GOTO LABEL_MF1_CHKTIME ; Test auf positive Flanke BTFSC MF1_FD,0 GOTO LABEL_MF1_SETFD BTFSS S7,0 GOTO LABEL_MF1_SETFD LABEL_MF1_RESET CLRF MF1 CLRF MF1_HI BSF MF1_FD,1 BSF S7,1 LABEL_MF1_CHKTIME MOVLW 244 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 SUBWF MF1_HI,W BTFSS STATUS,ZERO GOTO LABEL_MF1_CHECK MOVLW 36 SUBWF MF1,W LABEL_MF1_CHECK BTFSS STATUS,CARRY GOTO LABEL_MF1_SETFD LABEL_MF1_TO BCF MF1_FD,1 BCF S7,1 LABEL_MF1_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S7,0 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 ;*************************************************** ; ODER - Gatter -> LG3 ;*************************************************** LABEL_LG3_1 BTFSC S7,1 GOTO LABEL_LG3_TRUE LABEL_LG3_2 BTFSC S7,2 GOTO LABEL_LG3_TRUE LABEL_LG3_FALSE BCF S7,4 GOTO LABEL_LG3_ENDE LABEL_LG3_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S7,4 LABEL_LG3_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 S7,3 GOTO LABEL_MF2_SETFD LABEL_MF2_RESET CLRF MF2 CLRF MF2_HI BSF MF2_FD,1 BSF S7,2 LABEL_MF2_CHKTIME MOVLW 244 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 SUBWF MF2_HI,W BTFSS STATUS,ZERO GOTO LABEL_MF2_CHECK MOVLW 36 SUBWF MF2,W LABEL_MF2_CHECK BTFSS STATUS,CARRY GOTO LABEL_MF2_SETFD LABEL_MF2_TO BCF MF2_FD,1 BCF S7,2 LABEL_MF2_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S7,3 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 ;*************************************************** ; One Shot -> OS3 ;*************************************************** BTFSC S7,1 GOTO LABEL_OS3_1 BTFSC OS3_FD,0 GOTO LABEL_OS3_1 BSF OS3_FD,0 BSF S7,3 GOTO LABEL_OS3_2 LABEL_OS3_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S7,3 BTFSS S7,1 GOTO LABEL_OS3_2 BCF OS3_FD,0 LABEL_OS3_2 ;*************************************************** ; ODER - Gatter -> LG4 ;*************************************************** LABEL_LG4_1 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S6,4 GOTO LABEL_LG4_TRUE LABEL_LG4_2 BTFSC S6,5 GOTO LABEL_LG4_TRUE LABEL_LG4_FALSE BCF S7,5 GOTO LABEL_LG4_ENDE LABEL_LG4_TRUE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF S7,5 LABEL_LG4_ENDE ;**************************************** GOTO MAIN ;*************************************************** ; Table -> RBPORT ;*************************************************** RBPORT RETLW 63 ; // INDEX 0 RETLW 6 ; // INDEX 1 RETLW 91 ; // INDEX 2 RETLW 79 ; // INDEX 3 RETLW 102 ; // INDEX 4 RETLW 109 ; // INDEX 5 RETLW 125 ; // INDEX 6 RETLW 7 ; // INDEX 7 RETLW 127 ; // INDEX 8 RETLW 111 ; // INDEX 9 RETLW 63 ; // INDEX 10 ;*************************************************** ; Table -> RAPORT ;*************************************************** RAPORT RETLW 63 ; // INDEX 0 RETLW 6 ; // INDEX 1 RETLW 91 ; // INDEX 2 RETLW 79 ; // INDEX 3 RETLW 102 ; // INDEX 4 RETLW 109 ; // INDEX 5 RETLW 125 ; // INDEX 6 RETLW 7 ; // INDEX 7 RETLW 127 ; // INDEX 8 RETLW 111 ; // INDEX 9 RETLW 63 ; // INDEX 10 END