; Source created with Parsic Version 3.x ; at : 2009.10.12. 6:27:38 ; Project File : C:\DOCUME~1\ALLUSE~1\Asztal\lcd.PIC ; Project Version : 1.0.4 ; Created : 2009.02.19. 20:03:00 ; Last change : 2009.10.12. 6:27:30 PROCESSOR 16F877 INCLUDE P16F877.INC RADIX DEC __IDLOCS H'0100' __CONFIG _CP_OFF & _PWRTE_ON & _WDT_OFF & _BODEN_ON & _XT_OSC & _LVP_OFF & _CPD_OFF & _DEBUG_OFF ; Diverses ZERO EQU Z ; ZERO-Flag CARRY EQU C ; CARRY-Flag ; Variable TR1 = 32 ; located in Bank 0 TR1_HI = 33 ; located in Bank 0 S3 = 34 ; located in Bank 0 ZV1 = 35 ; located in Bank 0 ZV1_FD = 36 ; located in Bank 0 S4 = 37 ; located in Bank 0 S2 = 38 ; located in Bank 0 S0 = 39 ; located in Bank 0 S1 = 40 ; located in Bank 0 S5 = 41 ; located in Bank 0 ZV2 = 42 ; located in Bank 0 ZV2_FD = 43 ; located in Bank 0 S6 = 44 ; located in Bank 0 S7 = 45 ; located in Bank 0 LT1_FD = 46 ; located in Bank 0 LT2_FD = 47 ; located in Bank 0 LT3_FD = 48 ; located in Bank 0 LT4_FD = 49 ; located in Bank 0 LT5_FD = 50 ; located in Bank 0 LT6_FD = 51 ; located in Bank 0 LT7_FD = 52 ; located in Bank 0 LT8_FD = 53 ; located in Bank 0 LT9_FD = 54 ; located in Bank 0 LT10_FD = 55 ; located in Bank 0 LT11_FD = 56 ; located in Bank 0 LT12_FD = 57 ; located in Bank 0 LT13_FD = 58 ; located in Bank 0 LT14_FD = 59 ; located in Bank 0 LT15_FD = 60 ; located in Bank 0 LT16_FD = 61 ; located in Bank 0 LT17_FD = 62 ; located in Bank 0 LT18_FD = 63 ; located in Bank 0 RAM = 64 ; located in Bank 0 SYS_WSAV = 114 ; located in Bank 0, 1, 2, 3 SYS_SSAV = 115 ; located in Bank 0, 1, 2, 3 SYS_PSAV = 116 ; located in Bank 0, 1, 2, 3 SYS_TMP1 = 117 ; located in Bank 0, 1, 2, 3 SYS_TMP2 = 118 ; located in Bank 0, 1, 2, 3 SYS_TMP3 = 119 ; located in Bank 0, 1, 2, 3 SYS_TMP4 = 120 ; located in Bank 0, 1, 2, 3 SYS_TMP5 = 121 ; located in Bank 0, 1, 2, 3 SYS_TMP6 = 122 ; located in Bank 0, 1, 2, 3 SYS_TMP9 = 123 ; located in Bank 0, 1, 2, 3 SYS_TMP10 = 124 ; located in Bank 0, 1, 2, 3 SYS_FSAV = 125 ; 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 MOVLW HIGH SYS_INIT ; set page MOVWF PCLATH GOTO SYS_INIT ;**************************************** ;Interrupt-Adress ;**************************************** MOVWF SYS_WSAV ; save register SWAPF STATUS,W CLRF STATUS ; bank 0 MOVWF SYS_SSAV MOVFW FSR MOVWF SYS_FSAV MOVFW PCLATH MOVWF SYS_PSAV CLRF PCLATH 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 EXITINT MOVFW SYS_PSAV MOVWF PCLATH MOVFW SYS_FSAV MOVWF FSR SWAPF SYS_SSAV,W ; Register zurück MOVWF STATUS SWAPF SYS_WSAV,F SWAPF SYS_WSAV,W RETFIE ;**************************************** ; 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 ;*************************************************** ; Subroutines for LB1 ;*************************************************** LCD_LB1_INIT BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF PORTB,4 ; ir-register LCD_LB1_L1 CALL LCD_LB1_OUT4 DECFSZ SYS_TMP1,F GOTO LCD_LB1_L1 MOVFW PORTB ANDLW H'F0' IORLW B'0011' ; Function Set MOVWF PORTB BSF PORTB,5 ; write GOTO $+1 BCF PORTB,5 BSF SYS_TMP1,5 ; wait LCD_LB1_L2 CALL LCD_LB1_OUT4 DECFSZ SYS_TMP1,F GOTO LCD_LB1_L2 BSF PORTB,5 ; write GOTO $+1 BCF PORTB,5 CALL LCD_LB1_OUT4 BSF PORTB,5 ; write GOTO $+1 BCF PORTB,5 CALL LCD_LB1_OUT4 BCF PORTB,0 ; 4-Bit Interface BSF PORTB,5 ; write GOTO $+1 BCF PORTB,5 CALL LCD_LB1_OUT4 MOVLW B'00101000' ; Function Set 4-Bit,2-Lines CALL LCD_LB1_OUT MOVLW B'00001100' ; Display on, Cursor off, Blink off CALL LCD_LB1_OUT MOVLW B'00000110' ; Entrymode set CALL LCD_LB1_OUT LCD_LB1_CLR BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF PORTB,4 ; ir-register MOVLW B'00000001' ; Display clear CALL LCD_LB1_OUT BSF SYS_TMP1,5 ; wait LCD_LB1_L3 CALL LCD_LB1_OUT4 DECFSZ SYS_TMP1,F GOTO LCD_LB1_L3 GOTO LCD_LB1_OUT4 ;*************************************************** LCD_LB1_GOTOXY BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF PORTB,4 ; ir-register MOVLW H'40' BTFSC SYS_TMP2,0 ; Ypos ADDWF SYS_TMP1,F BSF SYS_TMP1,7 ; select dd-ram GOTO LCD_LB1_OUT1 ;*************************************************** LCD_LB1_WRITESTR BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF PORTB,4 ; dd-ram LCD_LB1_WRITESTR1 CALL LCD_LB1_CHAROUT BSF INTCON,GIE ANDLW H'FF' ; last is zero BTFSC STATUS,ZERO RETURN MOVWF SYS_TMP1 MOVLW HIGH LCD_LB1_OUT1 ; set page MOVWF PCLATH CALL LCD_LB1_OUT1 INCFSZ SYS_TMP4,F ; next char GOTO LCD_LB1_WRITESTR1 INCF SYS_TMP5,F ; next page GOTO LCD_LB1_WRITESTR1 LCD_LB1_CHAROUT BCF INTCON,GIE MOVFW SYS_TMP5 MOVWF PCLATH MOVFW SYS_TMP4 MOVWF PCL ;*************************************************** LCD_LB1_DEZO10000 MOVLW LOW 10000 MOVWF SYS_TMP1 MOVLW HIGH 10000 MOVWF SYS_TMP2 CALL LCD_LB1_CONVERTDEZ MOVF SYS_TMP9,F BTFSS STATUS,ZERO GOTO LCD_LB1_DEZO1000 CALL LCD_LB1_CHECKNULL LCD_LB1_DEZO1000 MOVLW LOW 1000 MOVWF SYS_TMP1 MOVLW HIGH 1000 MOVWF SYS_TMP2 CALL LCD_LB1_CONVERTDEZ MOVF SYS_TMP9,F BTFSS STATUS,ZERO GOTO LCD_LB1_DEZO100 CALL LCD_LB1_CHECKNULL LCD_LB1_DEZO100 MOVLW LOW 100 MOVWF SYS_TMP1 CLRF SYS_TMP2 CALL LCD_LB1_CONVERTDEZ MOVF SYS_TMP9,F BTFSS STATUS,ZERO GOTO LCD_LB1_DEZO10 CALL LCD_LB1_CHECKNULL LCD_LB1_DEZO10 MOVLW LOW 10 MOVWF SYS_TMP1 CLRF SYS_TMP2 CALL LCD_LB1_CONVERTDEZ MOVF SYS_TMP9,F BTFSS STATUS,ZERO GOTO LCD_LB1_DEZO1 CALL LCD_LB1_CHECKNULL LCD_LB1_DEZO1 MOVLW 48 ADDWF SYS_TMP4,W GOTO LCD_LB1_WRITECHAR ;*************************************************** LCD_LB1_CONVERTDEZ MOVF SYS_TMP9,F BTFSS STATUS,ZERO DECF SYS_TMP9,F CLRF SYS_TMP6 LCD_LB1_CONVERTDEZ2 INCF SYS_TMP6,F MOVFW SYS_TMP1 SUBWF SYS_TMP4,F MOVFW SYS_TMP2 BTFSS STATUS,CARRY INCFSZ SYS_TMP2,W SUBWF SYS_TMP5,F BTFSC STATUS,CARRY GOTO LCD_LB1_CONVERTDEZ2 MOVFW SYS_TMP2 ADDWF SYS_TMP5,F MOVFW SYS_TMP1 ADDWF SYS_TMP4,F BTFSC STATUS,CARRY INCF SYS_TMP5,F DECF SYS_TMP6,W BTFSS STATUS,ZERO BSF SYS_TMP10,0 RETURN ;*************************************************** LCD_LB1_CONVERTHEX ANDLW 15 MOVWF SYS_TMP1 MOVLW 48 ADDWF SYS_TMP1,F MOVLW 58 SUBWF SYS_TMP1,W BTFSS STATUS,CARRY GOTO $+3 MOVLW 7 ADDWF SYS_TMP1,F MOVFW SYS_TMP1 ;*************************************************** LCD_LB1_WRITECHAR BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BSF PORTB,4 ; dd-ram ;*************************************************** LCD_LB1_OUT MOVWF SYS_TMP1 ; store LCD_LB1_OUT1 CLRF SYS_TMP3 ; LCDWriteStr (first nibble) LCD_LB1_OUT2 SWAPF SYS_TMP1,W ;high nibble LCD_LB1_OUT3 ANDLW H'0F' ; mask MOVWF SYS_TMP2 ; store BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVFW PORTB ; load port ANDLW H'F0' ; mask IORWF SYS_TMP2,W ; add cmd MOVWF PORTB ; out BSF PORTB,5 ; E high GOTO $+1 BCF PORTB,5 ; E low BTFSC SYS_TMP3,3 ; ready ? GOTO LCD_LB1_OUT4 ; yes BSF SYS_TMP3,3 ; second nibble MOVFW SYS_TMP1 GOTO LCD_LB1_OUT3 ; next nibble LCD_LB1_OUT4 LCD_LB1_OUTV DECFSZ SYS_TMP3,F GOTO LCD_LB1_OUTV RETURN ;*************************************************** LCD_LB1_CHECKNULL BTFSS STATUS,ZERO DECF SYS_TMP9,F MOVWF SYS_TMP1 BTFSS STATUS,ZERO BSF SYS_TMP10,0 MOVLW 48 BTFSC SYS_TMP10,0 ADDWF SYS_TMP1,f MOVLW 32 BTFSS SYS_TMP10,0 ADDWF SYS_TMP1,F MOVFW SYS_TMP1 GOTO LCD_LB1_WRITECHAR ; 00DD ;**************************************** ;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 B'00000000' MOVWF PORTC MOVLW B'00000000' MOVWF PORTD MOVLW B'00000000' MOVWF PORTE MOVLW 15 BSF STATUS,RP0 ; Bank 1 MOVWF OPTION_REG MOVLW 6 ; all Digital MOVWF ADCON1 ; Richtung setzen MOVLW B'11111111' MOVWF TRISA MOVLW B'11000000' MOVWF TRISB MOVLW B'11111111' MOVWF TRISC MOVLW B'11111111' MOVWF TRISD MOVLW B'00000111' MOVWF TRISE ; 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 16 MOVWF FSR CR3 CLRF INDF INCF FSR,F MOVLW H'70' SUBWF FSR,W BTFSS STATUS,ZERO GOTO CR3 MOVLW 144 MOVWF FSR CR4 CLRF INDF INCF FSR,F MOVLW H'F0' SUBWF FSR,W BTFSS STATUS,ZERO GOTO CR4 ;*************************************************** ; Init LCD -> LB1 ;*************************************************** CALL LCD_LB1_INIT BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 CLRF TMR0 BCF INTCON,T0IF BSF INTCON,GIE ; Interrupt freigeben ;********************************** ;******* Haupt-Programm *********** ;********************************** MAIN ;*************************************************** ; Timer -> TR1 ;*************************************************** MOVLW 7 ; 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 161 SUBWF TR1,W ;F-W -> W LABEL_TR1_CHECK BTFSS STATUS,CARRY GOTO LABEL_TR1_ENDE LABEL_TR1_RESET MOVLW 7 ; Test auf >= SUBWF TR1_HI,F ;F-W -> F MOVLW 161 SUBWF TR1,F ;F-W -> F BTFSS STATUS,CARRY DECF TR1_HI,F LABEL_TR1_SET ; toggel output BTFSC S3,0 GOTO LABEL_TR1_CLR BSF S3,0 GOTO LABEL_TR1_ENDE LABEL_TR1_CLR BCF S3,0 LABEL_TR1_ENDE ;*************************************************** ; Zähler -> ZV1 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S4,2 ; 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 S3,0 GOTO LABEL_ZV1_SETFD BTFSC ZV1_FD,0 GOTO LABEL_ZV1_SETFD BSF ZV1_FD,0 BTFSC S3,1 ; 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 S3,0 GOTO LABEL_ZV1_EXIT BCF ZV1_FD,0 LABEL_ZV1_EXIT ;*************************************************** ; Verteiler -> BV1 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S0,0 GOTO LABEL_BV1_0 BCF S3,2 GOTO LABEL_BV1_0_END LABEL_BV1_0 BSF S3,2 LABEL_BV1_0_END ;********************************************** BTFSC S0,1 GOTO LABEL_BV1_1 BCF S3,3 GOTO LABEL_BV1_1_END LABEL_BV1_1 BSF S3,3 LABEL_BV1_1_END ;********************************************** BTFSC S0,2 GOTO LABEL_BV1_2 BCF S3,4 GOTO LABEL_BV1_2_END LABEL_BV1_2 BSF S3,4 LABEL_BV1_2_END ;********************************************** BTFSC S0,3 GOTO LABEL_BV1_3 BCF S3,5 GOTO LABEL_BV1_3_END LABEL_BV1_3 BSF S3,5 LABEL_BV1_3_END ;********************************************** BTFSC S0,4 GOTO LABEL_BV1_4 BCF S3,6 GOTO LABEL_BV1_4_END LABEL_BV1_4 BSF S3,6 LABEL_BV1_4_END ;********************************************** BTFSC S0,5 GOTO LABEL_BV1_5 BCF S3,7 GOTO LABEL_BV1_5_END LABEL_BV1_5 BSF S3,7 LABEL_BV1_5_END ;********************************************** BTFSC S0,6 GOTO LABEL_BV1_6 BCF S4,0 GOTO LABEL_BV1_6_END LABEL_BV1_6 BSF S4,0 LABEL_BV1_6_END ;********************************************** BTFSC S0,7 GOTO LABEL_BV1_7 BCF S4,1 GOTO LABEL_BV1_7_END LABEL_BV1_7 BSF S4,1 LABEL_BV1_7_END ;********************************************** ;*************************************************** ; Call subroutine TAB ;*************************************************** MOVLW LOW TAB MOVWF SYS_TMP1 MOVLW HIGH TAB MOVWF SYS_TMP2 MOVFW ZV1 ADDWF SYS_TMP1,F BTFSC STATUS,CARRY INCF SYS_TMP2,F MOVLW HIGH SYSTABJMP ; set page MOVWF PCLATH CALL SYSTABJMP BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 MOVWF S2 BSF INTCON,GIE BCF PCLATH,3 ; Page 0 BCF PCLATH,4 ; Page 0 ;*************************************************** ; Vergleich -> IF1 ;*************************************************** MOVLW 9 SUBWF ZV1,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 S4,2 GOTO LABEL_IF1_EXIT LABEL_IF1_FALSE BCF S4,2 LABEL_IF1_EXIT ;*************************************************** ; Multiplexer -> MX1 ;*************************************************** CLRF SYS_TMP1 MOVFW ZV2 BTFSS STATUS,ZERO GOTO LABEL_MX1_CHECKCONTROL1 MOVFW S2 MOVWF S0 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 S2 MOVWF S1 GOTO LABEL_MX1_END LABEL_MX1_CHECKCONTROL2 LABEL_MX1_END ;*************************************************** ; Verteiler -> BV2 ;*************************************************** BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSC S1,0 GOTO LABEL_BV2_0 BCF S4,4 GOTO LABEL_BV2_0_END LABEL_BV2_0 BSF S4,4 LABEL_BV2_0_END ;********************************************** BTFSC S1,1 GOTO LABEL_BV2_1 BCF S4,5 GOTO LABEL_BV2_1_END LABEL_BV2_1 BSF S4,5 LABEL_BV2_1_END ;********************************************** BTFSC S1,2 GOTO LABEL_BV2_2 BCF S4,6 GOTO LABEL_BV2_2_END LABEL_BV2_2 BSF S4,6 LABEL_BV2_2_END ;********************************************** BTFSC S1,3 GOTO LABEL_BV2_3 BCF S4,7 GOTO LABEL_BV2_3_END LABEL_BV2_3 BSF S4,7 LABEL_BV2_3_END ;********************************************** BTFSC S1,4 GOTO LABEL_BV2_4 BCF S5,0 GOTO LABEL_BV2_4_END LABEL_BV2_4 BSF S5,0 LABEL_BV2_4_END ;********************************************** BTFSC S1,5 GOTO LABEL_BV2_5 BCF S5,1 GOTO LABEL_BV2_5_END LABEL_BV2_5 BSF S5,1 LABEL_BV2_5_END ;********************************************** BTFSC S1,6 GOTO LABEL_BV2_6 BCF S5,2 GOTO LABEL_BV2_6_END LABEL_BV2_6 BSF S5,2 LABEL_BV2_6_END ;********************************************** BTFSC S1,7 GOTO LABEL_BV2_7 BCF S5,3 GOTO LABEL_BV2_7_END LABEL_BV2_7 BSF S5,3 LABEL_BV2_7_END ;********************************************** ;*************************************************** ; Zähler -> ZV2 ;*************************************************** BTFSS S4,3 ; 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 S4,2 GOTO LABEL_ZV2_SETFD BTFSC ZV2_FD,0 GOTO LABEL_ZV2_SETFD BSF ZV2_FD,0 BTFSC S3,1 ; 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 S4,2 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 S4,3 ; Ausgang gesetzt ? GOTO LABEL_ST1_MH ; dann mit Hysterese ? MOVLW 2 GOTO LABEL_ST1_TEST LABEL_ST1_MH MOVLW 2 LABEL_ST1_TEST SUBWF ZV2,W BTFSS STATUS,CARRY GOTO LABEL_ST1_RESET BSF S4,3 ; if greater or equal GOTO LABEL_ST1_ENDE LABEL_ST1_RESET BCF S4,3 ; if less LABEL_ST1_ENDE ;*************************************************** ; UND - Gatter -> LG1 ;*************************************************** LABEL_LG1_1 BTFSS S3,2 GOTO LABEL_LG1_FALSE LABEL_LG1_2 BTFSS S3,0 GOTO LABEL_LG1_FALSE LABEL_LG1_TRUE BSF S5,4 GOTO LABEL_LG1_ENDE LABEL_LG1_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S5,4 LABEL_LG1_ENDE ;*************************************************** ; UND - Gatter -> LG2 ;*************************************************** LABEL_LG2_1 BTFSS S3,3 GOTO LABEL_LG2_FALSE LABEL_LG2_2 BTFSS S3,0 GOTO LABEL_LG2_FALSE LABEL_LG2_TRUE BSF S5,5 GOTO LABEL_LG2_ENDE LABEL_LG2_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S5,5 LABEL_LG2_ENDE ;*************************************************** ; UND - Gatter -> LG3 ;*************************************************** LABEL_LG3_1 BTFSS S3,4 GOTO LABEL_LG3_FALSE LABEL_LG3_2 BTFSS S3,0 GOTO LABEL_LG3_FALSE LABEL_LG3_TRUE BSF S5,6 GOTO LABEL_LG3_ENDE LABEL_LG3_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S5,6 LABEL_LG3_ENDE ;*************************************************** ; UND - Gatter -> LG4 ;*************************************************** LABEL_LG4_1 BTFSS S3,5 GOTO LABEL_LG4_FALSE LABEL_LG4_2 BTFSS S3,0 GOTO LABEL_LG4_FALSE LABEL_LG4_TRUE BSF S5,7 GOTO LABEL_LG4_ENDE LABEL_LG4_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S5,7 LABEL_LG4_ENDE ;*************************************************** ; UND - Gatter -> LG5 ;*************************************************** LABEL_LG5_1 BTFSS S3,6 GOTO LABEL_LG5_FALSE LABEL_LG5_2 BTFSS S3,0 GOTO LABEL_LG5_FALSE LABEL_LG5_TRUE BSF S6,0 GOTO LABEL_LG5_ENDE LABEL_LG5_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S6,0 LABEL_LG5_ENDE ;*************************************************** ; UND - Gatter -> LG6 ;*************************************************** LABEL_LG6_1 BTFSS S3,7 GOTO LABEL_LG6_FALSE LABEL_LG6_2 BTFSS S3,0 GOTO LABEL_LG6_FALSE LABEL_LG6_TRUE BSF S6,1 GOTO LABEL_LG6_ENDE LABEL_LG6_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S6,1 LABEL_LG6_ENDE ;*************************************************** ; UND - Gatter -> LG7 ;*************************************************** LABEL_LG7_1 BTFSS S4,0 GOTO LABEL_LG7_FALSE LABEL_LG7_2 BTFSS S3,0 GOTO LABEL_LG7_FALSE LABEL_LG7_TRUE BSF S6,2 GOTO LABEL_LG7_ENDE LABEL_LG7_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S6,2 LABEL_LG7_ENDE ;*************************************************** ; UND - Gatter -> LG8 ;*************************************************** LABEL_LG8_1 BTFSS S4,1 GOTO LABEL_LG8_FALSE LABEL_LG8_2 BTFSS S3,0 GOTO LABEL_LG8_FALSE LABEL_LG8_TRUE BSF S6,3 GOTO LABEL_LG8_ENDE LABEL_LG8_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S6,3 LABEL_LG8_ENDE ;*************************************************** ; UND - Gatter -> LG9 ;*************************************************** LABEL_LG9_1 BTFSS S4,4 GOTO LABEL_LG9_FALSE LABEL_LG9_2 BTFSS S3,0 GOTO LABEL_LG9_FALSE LABEL_LG9_TRUE BSF S6,4 GOTO LABEL_LG9_ENDE LABEL_LG9_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S6,4 LABEL_LG9_ENDE ;*************************************************** ; UND - Gatter -> LG10 ;*************************************************** LABEL_LG10_1 BTFSS S4,5 GOTO LABEL_LG10_FALSE LABEL_LG10_2 BTFSS S3,0 GOTO LABEL_LG10_FALSE LABEL_LG10_TRUE BSF S6,5 GOTO LABEL_LG10_ENDE LABEL_LG10_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S6,5 LABEL_LG10_ENDE ;*************************************************** ; UND - Gatter -> LG11 ;*************************************************** LABEL_LG11_1 BTFSS S4,6 GOTO LABEL_LG11_FALSE LABEL_LG11_2 BTFSS S3,0 GOTO LABEL_LG11_FALSE LABEL_LG11_TRUE BSF S6,6 GOTO LABEL_LG11_ENDE LABEL_LG11_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S6,6 LABEL_LG11_ENDE ;*************************************************** ; UND - Gatter -> LG12 ;*************************************************** LABEL_LG12_1 BTFSS S4,7 GOTO LABEL_LG12_FALSE LABEL_LG12_2 BTFSS S3,0 GOTO LABEL_LG12_FALSE LABEL_LG12_TRUE BSF S6,7 GOTO LABEL_LG12_ENDE LABEL_LG12_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S6,7 LABEL_LG12_ENDE ;*************************************************** ; UND - Gatter -> LG13 ;*************************************************** LABEL_LG13_1 BTFSS S5,0 GOTO LABEL_LG13_FALSE LABEL_LG13_2 BTFSS S3,0 GOTO LABEL_LG13_FALSE LABEL_LG13_TRUE BSF S7,0 GOTO LABEL_LG13_ENDE LABEL_LG13_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S7,0 LABEL_LG13_ENDE ;*************************************************** ; UND - Gatter -> LG14 ;*************************************************** LABEL_LG14_1 BTFSS S5,1 GOTO LABEL_LG14_FALSE LABEL_LG14_2 BTFSS S3,0 GOTO LABEL_LG14_FALSE LABEL_LG14_TRUE BSF S7,1 GOTO LABEL_LG14_ENDE LABEL_LG14_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S7,1 LABEL_LG14_ENDE ;*************************************************** ; UND - Gatter -> LG15 ;*************************************************** LABEL_LG15_1 BTFSS S5,2 GOTO LABEL_LG15_FALSE LABEL_LG15_2 BTFSS S3,0 GOTO LABEL_LG15_FALSE LABEL_LG15_TRUE BSF S7,2 GOTO LABEL_LG15_ENDE LABEL_LG15_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S7,2 LABEL_LG15_ENDE ;*************************************************** ; UND - Gatter -> LG16 ;*************************************************** LABEL_LG16_1 BTFSS S5,3 GOTO LABEL_LG16_FALSE LABEL_LG16_2 BTFSS S3,0 GOTO LABEL_LG16_FALSE LABEL_LG16_TRUE BSF S7,3 GOTO LABEL_LG16_ENDE LABEL_LG16_FALSE BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF S7,3 LABEL_LG16_ENDE ;*************************************************** ; LCD -> LT1 ;*************************************************** ; test of positiv edge BTFSC LT1_FD,0 GOTO LABEL_LT1_SETFD BTFSS S5,4 GOTO LABEL_LT1_SETFD MOVLW 22 MOVWF SYS_TMP1 MOVLW 0 MOVWF SYS_TMP2 MOVLW HIGH LCD_LB1_GOTOXY ; set page MOVWF PCLATH CALL LCD_LB1_GOTOXY MOVLW LOW TAB_LT1 MOVWF SYS_TMP4 MOVLW HIGH TAB_LT1 MOVWF SYS_TMP5 MOVLW HIGH LCD_LB1_WRITESTR ; set page MOVWF PCLATH CALL LCD_LB1_WRITESTR BCF PCLATH,3 ; Page 0 BCF PCLATH,4 ; Page 0 LABEL_LT1_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S5,4 GOTO LABEL_LT1_SETFD2 BSF LT1_FD,0 GOTO LABEL_LT1_END LABEL_LT1_SETFD2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF LT1_FD,0 LABEL_LT1_END ;*************************************************** ; LCD -> LT2 ;*************************************************** ; test of positiv edge BTFSC LT2_FD,0 GOTO LABEL_LT2_SETFD BTFSS S5,5 GOTO LABEL_LT2_SETFD MOVLW 21 MOVWF SYS_TMP1 MOVLW 0 MOVWF SYS_TMP2 MOVLW HIGH LCD_LB1_GOTOXY ; set page MOVWF PCLATH CALL LCD_LB1_GOTOXY MOVLW LOW TAB_LT2 MOVWF SYS_TMP4 MOVLW HIGH TAB_LT2 MOVWF SYS_TMP5 MOVLW HIGH LCD_LB1_WRITESTR ; set page MOVWF PCLATH CALL LCD_LB1_WRITESTR BCF PCLATH,3 ; Page 0 BCF PCLATH,4 ; Page 0 LABEL_LT2_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S5,5 GOTO LABEL_LT2_SETFD2 BSF LT2_FD,0 GOTO LABEL_LT2_END LABEL_LT2_SETFD2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF LT2_FD,0 LABEL_LT2_END ;*************************************************** ; LCD -> LT3 ;*************************************************** ; test of positiv edge BTFSC LT3_FD,0 GOTO LABEL_LT3_SETFD BTFSS S5,6 GOTO LABEL_LT3_SETFD MOVLW 20 MOVWF SYS_TMP1 MOVLW 0 MOVWF SYS_TMP2 MOVLW HIGH LCD_LB1_GOTOXY ; set page MOVWF PCLATH CALL LCD_LB1_GOTOXY MOVLW LOW TAB_LT3 MOVWF SYS_TMP4 MOVLW HIGH TAB_LT3 MOVWF SYS_TMP5 MOVLW HIGH LCD_LB1_WRITESTR ; set page MOVWF PCLATH CALL LCD_LB1_WRITESTR BCF PCLATH,3 ; Page 0 BCF PCLATH,4 ; Page 0 LABEL_LT3_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S5,6 GOTO LABEL_LT3_SETFD2 BSF LT3_FD,0 GOTO LABEL_LT3_END LABEL_LT3_SETFD2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF LT3_FD,0 LABEL_LT3_END ;*************************************************** ; LCD -> LT4 ;*************************************************** ; test of positiv edge BTFSC LT4_FD,0 GOTO LABEL_LT4_SETFD BTFSS S5,7 GOTO LABEL_LT4_SETFD MOVLW 19 MOVWF SYS_TMP1 MOVLW 0 MOVWF SYS_TMP2 MOVLW HIGH LCD_LB1_GOTOXY ; set page MOVWF PCLATH CALL LCD_LB1_GOTOXY MOVLW LOW TAB_LT4 MOVWF SYS_TMP4 MOVLW HIGH TAB_LT4 MOVWF SYS_TMP5 MOVLW HIGH LCD_LB1_WRITESTR ; set page MOVWF PCLATH CALL LCD_LB1_WRITESTR BCF PCLATH,3 ; Page 0 BCF PCLATH,4 ; Page 0 LABEL_LT4_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S5,7 GOTO LABEL_LT4_SETFD2 BSF LT4_FD,0 GOTO LABEL_LT4_END LABEL_LT4_SETFD2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF LT4_FD,0 LABEL_LT4_END ;*************************************************** ; LCD -> LT5 ;*************************************************** ; test of positiv edge BTFSC LT5_FD,0 GOTO LABEL_LT5_SETFD BTFSS S6,0 GOTO LABEL_LT5_SETFD MOVLW 18 MOVWF SYS_TMP1 MOVLW 0 MOVWF SYS_TMP2 MOVLW HIGH LCD_LB1_GOTOXY ; set page MOVWF PCLATH CALL LCD_LB1_GOTOXY MOVLW LOW TAB_LT5 MOVWF SYS_TMP4 MOVLW HIGH TAB_LT5 MOVWF SYS_TMP5 MOVLW HIGH LCD_LB1_WRITESTR ; set page MOVWF PCLATH CALL LCD_LB1_WRITESTR BCF PCLATH,3 ; Page 0 BCF PCLATH,4 ; Page 0 LABEL_LT5_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S6,0 GOTO LABEL_LT5_SETFD2 BSF LT5_FD,0 GOTO LABEL_LT5_END LABEL_LT5_SETFD2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF LT5_FD,0 LABEL_LT5_END ;*************************************************** ; LCD -> LT6 ;*************************************************** ; test of positiv edge BTFSC LT6_FD,0 GOTO LABEL_LT6_SETFD BTFSS S6,1 GOTO LABEL_LT6_SETFD MOVLW 17 MOVWF SYS_TMP1 MOVLW 0 MOVWF SYS_TMP2 MOVLW HIGH LCD_LB1_GOTOXY ; set page MOVWF PCLATH CALL LCD_LB1_GOTOXY MOVLW LOW TAB_LT6 MOVWF SYS_TMP4 MOVLW HIGH TAB_LT6 MOVWF SYS_TMP5 MOVLW HIGH LCD_LB1_WRITESTR ; set page MOVWF PCLATH CALL LCD_LB1_WRITESTR BCF PCLATH,3 ; Page 0 BCF PCLATH,4 ; Page 0 LABEL_LT6_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S6,1 GOTO LABEL_LT6_SETFD2 BSF LT6_FD,0 GOTO LABEL_LT6_END LABEL_LT6_SETFD2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF LT6_FD,0 LABEL_LT6_END ;*************************************************** ; LCD -> LT7 ;*************************************************** ; test of positiv edge BTFSC LT7_FD,0 GOTO LABEL_LT7_SETFD BTFSS S6,2 GOTO LABEL_LT7_SETFD MOVLW 16 MOVWF SYS_TMP1 MOVLW 0 MOVWF SYS_TMP2 MOVLW HIGH LCD_LB1_GOTOXY ; set page MOVWF PCLATH CALL LCD_LB1_GOTOXY MOVLW LOW TAB_LT7 MOVWF SYS_TMP4 MOVLW HIGH TAB_LT7 MOVWF SYS_TMP5 MOVLW HIGH LCD_LB1_WRITESTR ; set page MOVWF PCLATH CALL LCD_LB1_WRITESTR BCF PCLATH,3 ; Page 0 BCF PCLATH,4 ; Page 0 LABEL_LT7_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S6,2 GOTO LABEL_LT7_SETFD2 BSF LT7_FD,0 GOTO LABEL_LT7_END LABEL_LT7_SETFD2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF LT7_FD,0 LABEL_LT7_END ;*************************************************** ; LCD -> LT8 ;*************************************************** ; test of positiv edge BTFSC LT8_FD,0 GOTO LABEL_LT8_SETFD BTFSS S6,3 GOTO LABEL_LT8_SETFD MOVLW 15 MOVWF SYS_TMP1 MOVLW 0 MOVWF SYS_TMP2 MOVLW HIGH LCD_LB1_GOTOXY ; set page MOVWF PCLATH CALL LCD_LB1_GOTOXY MOVLW LOW TAB_LT8 MOVWF SYS_TMP4 MOVLW HIGH TAB_LT8 MOVWF SYS_TMP5 MOVLW HIGH LCD_LB1_WRITESTR ; set page MOVWF PCLATH CALL LCD_LB1_WRITESTR BCF PCLATH,3 ; Page 0 BCF PCLATH,4 ; Page 0 LABEL_LT8_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S6,3 GOTO LABEL_LT8_SETFD2 BSF LT8_FD,0 GOTO LABEL_LT8_END LABEL_LT8_SETFD2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF LT8_FD,0 LABEL_LT8_END ;*************************************************** ; LCD -> LT9 ;*************************************************** ; test of positiv edge BTFSC LT9_FD,0 GOTO LABEL_LT9_SETFD BTFSS S6,4 GOTO LABEL_LT9_SETFD MOVLW 14 MOVWF SYS_TMP1 MOVLW 0 MOVWF SYS_TMP2 MOVLW HIGH LCD_LB1_GOTOXY ; set page MOVWF PCLATH CALL LCD_LB1_GOTOXY MOVLW LOW TAB_LT9 MOVWF SYS_TMP4 MOVLW HIGH TAB_LT9 MOVWF SYS_TMP5 MOVLW HIGH LCD_LB1_WRITESTR ; set page MOVWF PCLATH CALL LCD_LB1_WRITESTR BCF PCLATH,3 ; Page 0 BCF PCLATH,4 ; Page 0 LABEL_LT9_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S6,4 GOTO LABEL_LT9_SETFD2 BSF LT9_FD,0 GOTO LABEL_LT9_END LABEL_LT9_SETFD2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF LT9_FD,0 LABEL_LT9_END ;*************************************************** ; LCD -> LT10 ;*************************************************** ; test of positiv edge BTFSC LT10_FD,0 GOTO LABEL_LT10_SETFD BTFSS S6,5 GOTO LABEL_LT10_SETFD MOVLW 13 MOVWF SYS_TMP1 MOVLW 0 MOVWF SYS_TMP2 MOVLW HIGH LCD_LB1_GOTOXY ; set page MOVWF PCLATH CALL LCD_LB1_GOTOXY MOVLW LOW TAB_LT10 MOVWF SYS_TMP4 MOVLW HIGH TAB_LT10 MOVWF SYS_TMP5 MOVLW HIGH LCD_LB1_WRITESTR ; set page MOVWF PCLATH CALL LCD_LB1_WRITESTR BCF PCLATH,3 ; Page 0 BCF PCLATH,4 ; Page 0 LABEL_LT10_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S6,5 GOTO LABEL_LT10_SETFD2 BSF LT10_FD,0 GOTO LABEL_LT10_END LABEL_LT10_SETFD2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF LT10_FD,0 LABEL_LT10_END ;*************************************************** ; LCD -> LT11 ;*************************************************** ; test of positiv edge BTFSC LT11_FD,0 GOTO LABEL_LT11_SETFD BTFSS S6,6 GOTO LABEL_LT11_SETFD MOVLW 12 MOVWF SYS_TMP1 MOVLW 0 MOVWF SYS_TMP2 MOVLW HIGH LCD_LB1_GOTOXY ; set page MOVWF PCLATH CALL LCD_LB1_GOTOXY MOVLW LOW TAB_LT11 MOVWF SYS_TMP4 MOVLW HIGH TAB_LT11 MOVWF SYS_TMP5 MOVLW HIGH LCD_LB1_WRITESTR ; set page MOVWF PCLATH CALL LCD_LB1_WRITESTR BCF PCLATH,3 ; Page 0 BCF PCLATH,4 ; Page 0 LABEL_LT11_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S6,6 GOTO LABEL_LT11_SETFD2 BSF LT11_FD,0 GOTO LABEL_LT11_END LABEL_LT11_SETFD2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF LT11_FD,0 LABEL_LT11_END ;*************************************************** ; LCD -> LT12 ;*************************************************** ; test of positiv edge BTFSC LT12_FD,0 GOTO LABEL_LT12_SETFD BTFSS S6,7 GOTO LABEL_LT12_SETFD MOVLW 11 MOVWF SYS_TMP1 MOVLW 0 MOVWF SYS_TMP2 MOVLW HIGH LCD_LB1_GOTOXY ; set page MOVWF PCLATH CALL LCD_LB1_GOTOXY MOVLW LOW TAB_LT12 MOVWF SYS_TMP4 MOVLW HIGH TAB_LT12 MOVWF SYS_TMP5 MOVLW HIGH LCD_LB1_WRITESTR ; set page MOVWF PCLATH CALL LCD_LB1_WRITESTR BCF PCLATH,3 ; Page 0 BCF PCLATH,4 ; Page 0 LABEL_LT12_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S6,7 GOTO LABEL_LT12_SETFD2 BSF LT12_FD,0 GOTO LABEL_LT12_END LABEL_LT12_SETFD2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF LT12_FD,0 LABEL_LT12_END ;*************************************************** ; LCD -> LT13 ;*************************************************** ; test of positiv edge BTFSC LT13_FD,0 GOTO LABEL_LT13_SETFD BTFSS S7,0 GOTO LABEL_LT13_SETFD MOVLW 10 MOVWF SYS_TMP1 MOVLW 0 MOVWF SYS_TMP2 MOVLW HIGH LCD_LB1_GOTOXY ; set page MOVWF PCLATH CALL LCD_LB1_GOTOXY MOVLW LOW TAB_LT13 MOVWF SYS_TMP4 MOVLW HIGH TAB_LT13 MOVWF SYS_TMP5 MOVLW HIGH LCD_LB1_WRITESTR ; set page MOVWF PCLATH CALL LCD_LB1_WRITESTR BCF PCLATH,3 ; Page 0 BCF PCLATH,4 ; Page 0 LABEL_LT13_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S7,0 GOTO LABEL_LT13_SETFD2 BSF LT13_FD,0 GOTO LABEL_LT13_END LABEL_LT13_SETFD2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF LT13_FD,0 LABEL_LT13_END ;*************************************************** ; LCD -> LT14 ;*************************************************** ; test of positiv edge BTFSC LT14_FD,0 GOTO LABEL_LT14_SETFD BTFSS S7,1 GOTO LABEL_LT14_SETFD MOVLW 9 MOVWF SYS_TMP1 MOVLW 0 MOVWF SYS_TMP2 MOVLW HIGH LCD_LB1_GOTOXY ; set page MOVWF PCLATH CALL LCD_LB1_GOTOXY MOVLW LOW TAB_LT14 MOVWF SYS_TMP4 MOVLW HIGH TAB_LT14 MOVWF SYS_TMP5 MOVLW HIGH LCD_LB1_WRITESTR ; set page MOVWF PCLATH CALL LCD_LB1_WRITESTR BCF PCLATH,3 ; Page 0 BCF PCLATH,4 ; Page 0 LABEL_LT14_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S7,1 GOTO LABEL_LT14_SETFD2 BSF LT14_FD,0 GOTO LABEL_LT14_END LABEL_LT14_SETFD2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF LT14_FD,0 LABEL_LT14_END ;*************************************************** ; LCD -> LT15 ;*************************************************** ; test of positiv edge BTFSC LT15_FD,0 GOTO LABEL_LT15_SETFD BTFSS S7,2 GOTO LABEL_LT15_SETFD MOVLW 8 MOVWF SYS_TMP1 MOVLW 0 MOVWF SYS_TMP2 MOVLW HIGH LCD_LB1_GOTOXY ; set page MOVWF PCLATH CALL LCD_LB1_GOTOXY MOVLW LOW TAB_LT15 MOVWF SYS_TMP4 MOVLW HIGH TAB_LT15 MOVWF SYS_TMP5 MOVLW HIGH LCD_LB1_WRITESTR ; set page MOVWF PCLATH CALL LCD_LB1_WRITESTR BCF PCLATH,3 ; Page 0 BCF PCLATH,4 ; Page 0 LABEL_LT15_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S7,2 GOTO LABEL_LT15_SETFD2 BSF LT15_FD,0 GOTO LABEL_LT15_END LABEL_LT15_SETFD2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF LT15_FD,0 LABEL_LT15_END ;*************************************************** ; LCD -> LT16 ;*************************************************** ; test of positiv edge BTFSC LT16_FD,0 GOTO LABEL_LT16_SETFD BTFSS S7,3 GOTO LABEL_LT16_SETFD MOVLW 7 MOVWF SYS_TMP1 MOVLW 0 MOVWF SYS_TMP2 MOVLW HIGH LCD_LB1_GOTOXY ; set page MOVWF PCLATH CALL LCD_LB1_GOTOXY MOVLW LOW TAB_LT16 MOVWF SYS_TMP4 MOVLW HIGH TAB_LT16 MOVWF SYS_TMP5 MOVLW HIGH LCD_LB1_WRITESTR ; set page MOVWF PCLATH CALL LCD_LB1_WRITESTR BCF PCLATH,3 ; Page 0 BCF PCLATH,4 ; Page 0 LABEL_LT16_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S7,3 GOTO LABEL_LT16_SETFD2 BSF LT16_FD,0 GOTO LABEL_LT16_END LABEL_LT16_SETFD2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF LT16_FD,0 LABEL_LT16_END ;*************************************************** ; LCD -> LT17 ;*************************************************** ; test of positiv edge BTFSC LT17_FD,0 GOTO LABEL_LT17_SETFD BTFSS S3,0 GOTO LABEL_LT17_SETFD MOVLW 0 MOVWF SYS_TMP1 MOVLW 1 MOVWF SYS_TMP2 MOVLW HIGH LCD_LB1_GOTOXY ; set page MOVWF PCLATH CALL LCD_LB1_GOTOXY MOVLW LOW TAB_LT17 MOVWF SYS_TMP4 MOVLW HIGH TAB_LT17 MOVWF SYS_TMP5 MOVLW HIGH LCD_LB1_WRITESTR ; set page MOVWF PCLATH CALL LCD_LB1_WRITESTR BCF PCLATH,3 ; Page 0 BCF PCLATH,4 ; Page 0 LABEL_LT17_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S3,0 GOTO LABEL_LT17_SETFD2 BSF LT17_FD,0 GOTO LABEL_LT17_END LABEL_LT17_SETFD2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF LT17_FD,0 LABEL_LT17_END ;*************************************************** ; LCD -> LT18 ;*************************************************** ; test of positiv edge BTFSC LT18_FD,0 GOTO LABEL_LT18_SETFD BTFSS S3,0 GOTO LABEL_LT18_SETFD MOVLW 0 MOVWF SYS_TMP1 MOVLW 0 MOVWF SYS_TMP2 MOVLW HIGH LCD_LB1_GOTOXY ; set page MOVWF PCLATH CALL LCD_LB1_GOTOXY MOVLW LOW TAB_LT18 MOVWF SYS_TMP4 MOVLW HIGH TAB_LT18 MOVWF SYS_TMP5 MOVLW HIGH LCD_LB1_WRITESTR ; set page MOVWF PCLATH CALL LCD_LB1_WRITESTR BCF PCLATH,3 ; Page 0 BCF PCLATH,4 ; Page 0 LABEL_LT18_SETFD BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BTFSS S3,0 GOTO LABEL_LT18_SETFD2 BSF LT18_FD,0 GOTO LABEL_LT18_END LABEL_LT18_SETFD2 BCF STATUS,RP0 ; Bank 0 BCF STATUS,RP1 ; Bank 0 BCF LT18_FD,0 LABEL_LT18_END ;**************************************** GOTO MAIN ;*************************************************** ; Table -> TAB ;*************************************************** TAB RETLW 0 ; // INDEX 0 RETLW 1 ; // INDEX 1 RETLW 2 ; // INDEX 2 RETLW 4 ; // INDEX 3 RETLW 8 ; // INDEX 4 RETLW 16 ; // INDEX 5 RETLW 32 ; // INDEX 6 RETLW 64 ; // INDEX 7 RETLW 128 ; // INDEX 8 RETLW 0 ; // INDEX 9 TAB_LT1 RETLW 107 ; k RETLW 0 ; end TAB_LT2 RETLW 107 ; k RETLW 97 ; a RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 0 ; end TAB_LT3 RETLW 107 ; k RETLW 97 ; a RETLW 113 ; q RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 0 ; end TAB_LT4 RETLW 107 ; k RETLW 97 ; a RETLW 113 ; q RETLW 107 ; k RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 0 ; end TAB_LT5 RETLW 107 ; k RETLW 97 ; a RETLW 113 ; q RETLW 107 ; k RETLW 107 ; k RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 0 ; end TAB_LT6 RETLW 107 ; k RETLW 97 ; a RETLW 113 ; q RETLW 107 ; k RETLW 107 ; k RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 0 ; end TAB_LT7 RETLW 107 ; k RETLW 97 ; a RETLW 113 ; q RETLW 107 ; k RETLW 107 ; k RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 0 ; end TAB_LT8 RETLW 107 ; k RETLW 97 ; a RETLW 113 ; q RETLW 107 ; k RETLW 107 ; k RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 0 ; end TAB_LT9 RETLW 107 ; k RETLW 97 ; a RETLW 113 ; q RETLW 107 ; k RETLW 107 ; k RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 0 ; end TAB_LT10 RETLW 107 ; k RETLW 97 ; a RETLW 113 ; q RETLW 107 ; k RETLW 107 ; k RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 0 ; end TAB_LT11 RETLW 107 ; k RETLW 97 ; a RETLW 113 ; q RETLW 107 ; k RETLW 107 ; k RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 0 ; end TAB_LT12 RETLW 46 ; . RETLW 97 ; a RETLW 113 ; q RETLW 107 ; k RETLW 107 ; k RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 0 ; end TAB_LT13 RETLW 46 ; . RETLW 46 ; . RETLW 113 ; q RETLW 107 ; k RETLW 107 ; k RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 0 ; end TAB_LT14 RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 107 ; k RETLW 107 ; k RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 0 ; end TAB_LT15 RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 107 ; k RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 0 ; end TAB_LT16 RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 46 ; . RETLW 0 ; end TAB_LT17 RETLW 108 ; l RETLW 99 ; c RETLW 100 ; d RETLW 45 ; - RETLW 116 ; t RETLW 101 ; e RETLW 115 ; s RETLW 122 ; z RETLW 116 ; t RETLW 101 ; e RETLW 114 ; r RETLW 32 ; RETLW 112 ; p RETLW 105 ; i RETLW 99 ; c RETLW 32 ; RETLW 49 ; 1 RETLW 54 ; 6 RETLW 102 ; f RETLW 54 ; 6 RETLW 50 ; 2 RETLW 56 ; 8 RETLW 0 ; end TAB_LT18 RETLW 50 ; 2 RETLW 48 ; 0 RETLW 48 ; 0 RETLW 57 ; 9 RETLW 32 ; RETLW 48 ; 0 RETLW 51 ; 3 RETLW 46 ; . RETLW 48 ; 0 RETLW 56 ; 8 RETLW 0 ; end END