LIST p=16f84a ; processor defs. include ; constants __CONFIG _CP_ON & _PWRTE_OFF & _WDT_OFF & _XT_OSC CBLOCK 0x0C ;RAM starts at H'0C' variable_0C variable_0D variable_0E variable_0F variable_10 variable_11 variable_12 variable_13 variable_14 variable_15 variable_16 variable_17 variable_18 variable_19 variable_1A variable_1B variable_1C variable_1D variable_1E variable_1F variable_20 variable_21 variable_22 variable_23 variable_24 variable_25 variable_26 variable_27 variable_28 variable_29 variable_2A variable_2B variable_2C variable_2D variable_2E ENDC ORG 0000h GOTO Start ORG 0004h GOTO lbl_1 GOTO lbl_2 lbl_96 CLRF PCLATH MOVWF PCL Start MOVLW H'FF' MOVWF variable_0E MOVLW H'FF' MOVWF variable_0F CALL lbl_3 MOVLW H'0A' CALL lbl_4 BCF variable_11 , 4 CALL lbl_5 MOVLW H'03' CALL lbl_6 MOVLW H'32' CALL lbl_7 MOVLW H'03' CALL lbl_6 MOVLW H'32' CALL lbl_7 MOVLW H'03' CALL lbl_6 MOVLW H'32' CALL lbl_7 MOVLW H'32' CALL lbl_8 MOVLW H'28' CALL lbl_8 CALL lbl_9 CALL lbl_10 CALL lbl_11 BSF variable_0F , 6 CALL lbl_12 BSF variable_0F , 5 CALL lbl_13 BSF variable_0F , 7 CALL lbl_14 BCF variable_0E , 2 CALL lbl_15 BCF variable_0C , 1 CALL lbl_16 MOVLW H'60' MOVWF variable_22 MOVLW H'CE' MOVWF variable_23 MOVLW H'30' CALL lbl_17 CLRF variable_20 CALL lbl_18 MOVLW H'01' MOVWF variable_21 CALL lbl_19 MOVF variable_22,W MOVWF variable_1A MOVLW H'02' MOVWF variable_21 CALL lbl_19 MOVF variable_22,W MOVWF variable_18 MOVLW H'03' MOVWF variable_21 CALL lbl_19 MOVF variable_22,W MOVWF variable_1B MOVF variable_18,W SUBLW H'6C' BTFSS STATUS , C GOTO lbl_20 MOVLW H'04' MOVWF variable_21 CALL lbl_19 MOVF variable_22,W MOVWF variable_1D MOVLW H'05' MOVWF variable_21 CALL lbl_19 MOVF variable_22,W MOVWF variable_1C MOVLW H'06' MOVWF variable_21 CALL lbl_19 MOVF variable_22,W MOVWF variable_14 MOVLW H'07' MOVWF variable_21 CALL lbl_19 MOVF variable_22,W MOVWF variable_15 GOTO lbl_21 lbl_20 MOVLW H'0B' MOVWF variable_1C MOVLW H'46' MOVWF variable_1D lbl_21 CALL lbl_22 CALL lbl_23 MOVLW H'02' CALL lbl_4 MOVLW H'60' MOVWF variable_22 MOVLW H'CE' MOVWF variable_23 MOVLW H'00' CALL lbl_17 lbl_31 BTFSS PORTB , 6 GOTO lbl_24 MOVLW H'60' MOVWF variable_22 MOVLW H'CE' MOVWF variable_23 MOVLW H'10' CALL lbl_17 CLRF variable_1F CALL lbl_25 CALL lbl_26 BCF variable_0C , 1 MOVLW H'60' MOVWF variable_22 MOVLW H'CE' MOVWF variable_23 MOVLW H'00' CALL lbl_17 CALL lbl_23 lbl_24 BTFSS variable_0C , 1 CALL lbl_27 BTFSS PORTB , 5 GOTO lbl_28 BSF variable_10 , 2 CALL lbl_29 lbl_28 BTFSS PORTB , 7 GOTO lbl_30 BCF variable_10 , 2 CALL lbl_29 lbl_30 GOTO lbl_31 lbl_32 GOTO lbl_32 lbl_25 MOVF variable_1F,W SUBLW H'03' BTFSC STATUS , Z GOTO lbl_33 BTFSS PORTB , 6 GOTO lbl_34 INCF variable_1F,f MOVLW H'01' CALL lbl_35 lbl_34 MOVF variable_1F,W SUBLW H'01' BTFSC STATUS , Z CALL lbl_36 MOVF variable_1F,W SUBLW H'02' BTFSC STATUS , Z CALL lbl_26 GOTO lbl_25 lbl_33 GOTO lbl_16 lbl_36 CALL lbl_22 BSF variable_10 , 2 CALL lbl_29 CALL lbl_37 MOVLW 'S' ;s CALL lbl_38 MOVLW 'e' ;e CALL lbl_38 MOVLW 't' ;t CALL lbl_38 MOVLW ' ' ; CALL lbl_38 MOVLW 'F' ;F CALL lbl_38 MOVLW 'r' ;r CALL lbl_38 MOVLW 'q' ;q CALL lbl_38 MOVLW ' ' ; CALL lbl_38 BTFSS PORTB , 7 GOTO lbl_39 INCF variable_20,f MOVLW H'05' SUBWF variable_1D,W MOVWF variable_1D MOVF variable_1D,W ADDLW H'05' MOVWF variable_1E MOVLW H'05' SUBWF variable_1E,W BTFSC STATUS , C GOTO lbl_40 MOVLW H'01' SUBWF variable_1C,W MOVWF variable_1C lbl_40 MOVLW H'05' SUBWF variable_1E,W BTFSC STATUS , C GOTO lbl_39 MOVLW H'64' ADDWF variable_1D,f lbl_39 BTFSS PORTB , 5 GOTO lbl_41 INCF variable_20,f MOVLW H'05' ADDWF variable_1D,f MOVF variable_1D,W SUBLW H'5F' BTFSC STATUS , C GOTO lbl_41 INCF variable_1C,f CLRF variable_1D lbl_41 MOVF variable_1C,W SUBLW H'16' BTFSS STATUS , Z GOTO lbl_42 MOVF variable_1D,W SUBLW H'05' BTFSS STATUS , Z GOTO lbl_42 MOVLW H'01' MOVWF variable_1C CLRF variable_1D lbl_42 MOVLW H'01' SUBWF variable_1C,W BTFSC STATUS , C GOTO lbl_43 MOVLW H'16' MOVWF variable_1C CLRF variable_1D lbl_43 MOVF variable_1C,W ADDLW H'56' MOVWF variable_18 MOVF variable_18,W SUBLW H'63' BTFSC STATUS , C GOTO lbl_44 MOVLW H'01' MOVWF variable_1A GOTO lbl_45 lbl_44 CLRF variable_1A lbl_45 MOVF variable_1D,W SUBLW H'5F' BTFSS STATUS , C CLRF variable_1D CALL lbl_46 MOVF variable_1D,W MOVWF variable_1B MOVLW H'0A' SUBWF variable_20,W BTFSS STATUS , C GOTO lbl_47 MOVLW H'01' CALL lbl_48 MOVLW H'0B' MOVWF variable_20 GOTO lbl_49 lbl_47 MOVLW H'01' CALL lbl_35 lbl_49 RETURN lbl_26 MOVLW H'01' MOVWF variable_21 MOVF variable_1A,W CALL lbl_50 MOVLW H'02' MOVWF variable_21 MOVF variable_18,W CALL lbl_50 MOVLW H'03' MOVWF variable_21 MOVF variable_1B,W CALL lbl_50 MOVLW H'04' MOVWF variable_21 MOVF variable_1D,W CALL lbl_50 MOVLW H'05' MOVWF variable_21 MOVF variable_1C,W CALL lbl_50 MOVLW H'06' MOVWF variable_21 MOVF variable_14,W CALL lbl_50 MOVLW H'07' MOVWF variable_21 MOVF variable_15,W CALL lbl_50 CALL lbl_46 CALL lbl_22 MOVLW H'05' CALL lbl_4 MOVLW H'03' MOVWF variable_1F RETURN lbl_46 MOVF variable_1D,W MOVWF variable_2A MOVLW H'0A' MOVWF variable_2B CALL lbl_51 MOVF variable_2C,W MOVWF variable_21 MOVF variable_21,W MOVWF variable_19 MOVF variable_18,W MOVWF variable_12 MOVF variable_13,W MOVWF variable_22 MOVF variable_12,W MOVWF variable_23 MOVF variable_17,W MOVWF variable_24 MOVLW H'0A' CALL lbl_52 MOVF variable_22,W MOVWF variable_13 MOVF variable_23,W MOVWF variable_12 MOVF variable_24,W MOVWF variable_17 CLRF variable_14 CLRF variable_15 MOVF variable_12,W ADDWF variable_19,W MOVWF variable_14 MOVF variable_13,W BTFSC STATUS , C ADDLW H'01' ADDWF variable_17,W MOVWF variable_15 MOVF variable_17,W MOVWF variable_22 MOVF variable_15,W MOVWF variable_23 MOVF variable_14,W MOVWF variable_24 MOVLW H'02' CALL lbl_52 MOVF variable_22,W MOVWF variable_17 MOVF variable_23,W MOVWF variable_15 MOVF variable_24,W MOVWF variable_14 RETURN lbl_52 MOVWF variable_25 MOVF variable_23,W MOVWF variable_22 MOVF variable_24,W MOVWF variable_23 CLRF variable_24 MOVF variable_22,W MOVWF variable_26 MOVF variable_23,W MOVWF variable_27 MOVLW H'08' MOVWF variable_28 lbl_54 RRF variable_25,f BTFSC STATUS , C GOTO lbl_53 DECFSZ variable_28,f GOTO lbl_54 CLRF variable_22 CLRF variable_23 RETLW H'00' lbl_53 BCF STATUS , C GOTO lbl_55 lbl_56 RRF variable_25,f BTFSS STATUS , C GOTO lbl_55 MOVF variable_27,W ADDWF variable_23,f MOVF variable_26,W BTFSC STATUS , C INCFSZ variable_26,W ADDWF variable_22,f lbl_55 RRF variable_22,f RRF variable_23,f RRF variable_24,f DECFSZ variable_28,f GOTO lbl_56 RETLW H'00' RETURN lbl_27 MOVLW H'60' MOVWF variable_22 CALL lbl_57 MOVF variable_23,W MOVWF variable_21 BTFSS variable_21 , 6 GOTO lbl_58 MOVLW H'60' MOVWF variable_22 MOVLW H'CE' MOVWF variable_23 MOVLW H'24' CALL lbl_17 CALL lbl_22 BSF variable_0C , 1 CALL lbl_37 MOVLW H'20' ; CALL lbl_38 MOVLW H'20' ; CALL lbl_38 MOVLW H'01' CALL lbl_4 lbl_58 RETURN lbl_23 CALL lbl_37 MOVLW 'U' ;U CALL lbl_38 MOVLW 'N' ;N CALL lbl_38 MOVLW 'L' ;L CALL lbl_38 MOVLW 'O' ;O CALL lbl_38 MOVLW 'C' ;C CALL lbl_38 MOVLW 'K' ;K CALL lbl_38 MOVLW H'01' GOTO lbl_4 lbl_22 BTFSC PORTB , 5 GOTO lbl_59 BTFSS PORTB , 7 CLRF variable_20 lbl_59 MOVF variable_1B,W SUBLW H'55' BTFSC STATUS , Z GOTO lbl_60 MOVF variable_1B,W SUBLW H'5F' BTFSC STATUS , Z GOTO lbl_60 MOVF variable_1B,W SUBLW H'4B' BTFSC STATUS , Z GOTO lbl_60 MOVF variable_1B,W SUBLW H'41' BTFSC STATUS , Z GOTO lbl_60 MOVF variable_1B,W SUBLW H'37' BTFSC STATUS , Z GOTO lbl_60 MOVF variable_1B,W SUBLW H'2D' BTFSC STATUS , Z GOTO lbl_60 MOVF variable_1B,W SUBLW H'23' BTFSC STATUS , Z GOTO lbl_60 MOVF variable_1B,W SUBLW H'19' BTFSC STATUS , Z GOTO lbl_60 MOVF variable_1B,W SUBLW H'0F' BTFSC STATUS , Z GOTO lbl_60 MOVF variable_1B,W SUBLW H'05' BTFSS STATUS , Z GOTO lbl_61 lbl_60 MOVF variable_14,W ADDLW H'01' MOVWF variable_16 GOTO lbl_62 lbl_61 MOVF variable_14,W MOVWF variable_16 lbl_62 CALL lbl_63 MOVLW H'04' MOVWF variable_22 MOVF variable_1A,W MOVWF variable_23 MOVLW H'20' CALL lbl_64 MOVLW H'04' MOVWF variable_22 MOVF variable_18,W MOVWF variable_23 MOVLW H'30' CALL lbl_65 MOVLW H'2E' ;. CALL lbl_38 MOVLW H'04' MOVWF variable_22 MOVF variable_1B,W MOVWF variable_23 MOVLW H'30' CALL lbl_65 MOVLW H'60' MOVWF variable_22 MOVF variable_15,W MOVWF variable_23 MOVF variable_16,W CALL lbl_17 MOVLW H'01' GOTO lbl_4 lbl_18 CALL lbl_37 MOVLW 'H' ;H CALL lbl_38 MOVLW 'J' ;J CALL lbl_38 MOVLW 'H' ;H CALL lbl_38 MOVLW ' ' ; CALL lbl_38 MOVLW 'S' ;S CALL lbl_38 MOVLW 'o' ;o CALL lbl_38 MOVLW 'f' ;f CALL lbl_38 MOVLW 't' ;t CALL lbl_38 MOVLW ' ' ; CALL lbl_38 MOVLW '&' ;& CALL lbl_38 MOVLW ' ' ; CALL lbl_38 MOVLW 'R' ;R CALL lbl_38 MOVLW 'D' ;D CALL lbl_38 MOVLW 'V' ;V CALL lbl_38 MOVLW 'V' ;V CALL lbl_38 MOVLW ' ' ; CALL lbl_38 MOVLW H'01' CALL lbl_66 GOTO lbl_16 lbl_17 MOVWF variable_24 MOVF variable_22,W CALL lbl_67 MOVF variable_23,W CALL lbl_68 CALL lbl_69 MOVF variable_24,W CALL lbl_68 CALL lbl_69 GOTO lbl_10 lbl_57 MOVWF variable_23 MOVF variable_22,W CALL lbl_70 CALL lbl_71 MOVF variable_24,W MOVWF variable_23 GOTO lbl_72 lbl_67 MOVWF variable_25 CALL lbl_73 BCF STATUS , C RLF variable_25,W CALL lbl_68 GOTO lbl_69 lbl_70 MOVWF variable_24 CALL lbl_73 BCF STATUS , C RLF variable_24,W ADDLW H'01' CALL lbl_68 GOTO lbl_69 lbl_71 MOVWF variable_24 MOVLW H'08' MOVWF variable_25 lbl_75 BCF STATUS , C RLF variable_24,f CALL lbl_74 BCF variable_24 , 0 BTFSC variable_0C , 2 BSF variable_24 , 0 DECFSZ variable_25,f GOTO lbl_75 RETURN lbl_68 MOVWF variable_26 MOVLW H'08' MOVWF variable_27 lbl_77 BCF variable_0C , 2 BTFSC variable_26 , 7 BSF variable_0C , 2 CALL lbl_76 BCF STATUS , C RLF variable_26,f DECFSZ variable_27,f GOTO lbl_77 RETURN lbl_72 CALL lbl_78 GOTO lbl_10 lbl_78 BCF variable_0C , 2 GOTO lbl_76 lbl_69 CALL lbl_11 BSF variable_0E , 1 CALL lbl_79 CALL lbl_11 BSF variable_0E , 0 CALL lbl_80 CALL lbl_11 lbl_81 BTFSS PORTA , 0 GOTO lbl_81 CALL lbl_11 BCF variable_0E , 0 CALL lbl_80 GOTO lbl_11 lbl_74 CALL lbl_11 BSF variable_0E , 1 CALL lbl_79 CALL lbl_11 BSF variable_0E , 0 CALL lbl_80 CALL lbl_11 lbl_82 BTFSS PORTA , 0 GOTO lbl_82 CALL lbl_11 BCF variable_0C , 2 BTFSC PORTA , 1 BSF variable_0C , 2 CALL lbl_11 BCF variable_0E , 0 CALL lbl_80 GOTO lbl_11 lbl_76 CALL lbl_11 BCF variable_0E , 1 BTFSC variable_0C , 2 BSF variable_0E , 1 CALL lbl_79 CALL lbl_11 BSF variable_0E , 0 CALL lbl_80 CALL lbl_11 lbl_83 BTFSS PORTA , 0 GOTO lbl_83 CALL lbl_11 BCF variable_0E , 0 CALL lbl_80 GOTO lbl_11 lbl_10 CALL lbl_11 BCF variable_0E , 1 CALL lbl_79 CALL lbl_11 BCF variable_0E , 0 CALL lbl_80 CALL lbl_11 BSF variable_0E , 0 CALL lbl_80 CALL lbl_11 BSF variable_0E , 1 CALL lbl_79 GOTO lbl_11 lbl_73 CALL lbl_11 BSF variable_0E , 1 CALL lbl_79 CALL lbl_11 BSF variable_0E , 0 CALL lbl_80 CALL lbl_11 BCF variable_0E , 1 CALL lbl_79 CALL lbl_11 BCF variable_0E , 0 CALL lbl_80 GOTO lbl_11 lbl_11 MOVLW H'0C' GOTO lbl_84 lbl_9 BCF variable_10 , 0 CALL lbl_85 BCF variable_0E , 0 CALL lbl_80 BCF variable_10 , 1 CALL lbl_86 BCF variable_0E , 1 GOTO lbl_79 lbl_63 MOVLW H'A8' GOTO lbl_8 lbl_37 MOVLW H'80' GOTO lbl_8 lbl_16 MOVLW H'08' CALL lbl_8 MOVLW H'01' CALL lbl_8 MOVLW H'C8' CALL lbl_7 MOVLW H'02' CALL lbl_8 MOVLW H'C8' CALL lbl_7 MOVLW H'06' CALL lbl_8 MOVLW H'0C' CALL lbl_8 MOVLW H'C8' GOTO lbl_7 lbl_2 MOVF variable_0D,W MOVWF variable_2A lbl_38 MOVWF variable_2A BSF variable_11 , 4 CALL lbl_5 SWAPF variable_2A,W ANDLW H'0F' CALL lbl_6 MOVF variable_2A,W GOTO lbl_6 lbl_8 MOVWF variable_22 BCF variable_11 , 4 CALL lbl_5 SWAPF variable_22,W ANDLW H'0F' CALL lbl_6 MOVLW H'82' CALL lbl_7 MOVF variable_22,W CALL lbl_6 MOVLW H'82' GOTO lbl_7 lbl_6 MOVWF variable_2B BSF variable_10 , 3 CALL lbl_87 MOVF variable_2B,W CALL lbl_88 BCF variable_10 , 3 CALL lbl_87 MOVLW H'FA' GOTO lbl_84 lbl_3 MOVLW H'00' CALL lbl_88 BCF variable_11 , 4 CALL lbl_5 BCF variable_10 , 3 CALL lbl_87 MOVLW H'00' CALL lbl_89 BCF variable_0F , 4 CALL lbl_90 BCF variable_0E , 3 GOTO lbl_91 lbl_64 MOVWF variable_24 MOVF variable_23,W MOVWF variable_27 MOVLW H'0A' MOVWF variable_28 CALL lbl_92 MOVF variable_29,W MOVWF variable_25 MOVF variable_25,W MOVWF variable_23 MOVF variable_22,W MOVWF variable_27 MOVF variable_23,W MOVWF variable_28 MOVF variable_24,W CALL lbl_93 MOVF variable_29,W MOVWF variable_24 RETURN lbl_65 MOVWF variable_24 MOVF variable_23,W MOVWF variable_27 MOVLW H'64' MOVWF variable_28 CALL lbl_92 MOVF variable_29,W MOVWF variable_25 MOVF variable_25,W MOVWF variable_23 MOVF variable_22,W MOVWF variable_27 MOVF variable_23,W MOVWF variable_2A MOVLW H'0A' MOVWF variable_2B CALL lbl_51 MOVF variable_2C,W MOVWF variable_29 MOVF variable_29,W MOVWF variable_28 MOVF variable_24,W CALL lbl_93 MOVF variable_29,W MOVWF variable_24 MOVF variable_23,W MOVWF variable_27 MOVLW H'0A' MOVWF variable_28 CALL lbl_92 MOVF variable_29,W MOVWF variable_26 MOVF variable_26,W MOVWF variable_23 MOVF variable_22,W MOVWF variable_27 MOVF variable_23,W MOVWF variable_28 MOVF variable_24,W CALL lbl_93 MOVF variable_29,W MOVWF variable_24 RETURN lbl_93 MOVWF variable_29 MOVF variable_28,f BTFSS STATUS , Z GOTO lbl_94 MOVF variable_29,f BTFSC STATUS , Z GOTO lbl_95 MOVF variable_29,W MOVWF variable_0D INCF variable_27,W CALL lbl_96 lbl_95 GOTO lbl_97 lbl_94 MOVLW H'0A' SUBWF variable_28,W BTFSC STATUS , C GOTO lbl_98 MOVF variable_28,W ADDLW H'30' MOVWF variable_0D INCF variable_27,W CALL lbl_96 GOTO lbl_99 lbl_98 MOVLW H'0A' SUBWF variable_28,W ADDLW H'41' MOVWF variable_0D INCF variable_27,W CALL lbl_96 lbl_99 MOVLW H'30' MOVWF variable_29 lbl_97 RETURN lbl_66 MOVWF variable_21 MOVF variable_21,W MOVWF variable_23 MOVLW H'64' MOVWF variable_24 MOVLW H'C8' GOTO lbl_100 lbl_35 MOVWF variable_21 MOVF variable_21,W MOVWF variable_23 MOVLW H'64' MOVWF variable_24 MOVLW H'0A' GOTO lbl_100 lbl_4 MOVWF variable_22 MOVF variable_22,W MOVWF variable_23 MOVLW H'64' MOVWF variable_24 MOVLW H'01' GOTO lbl_100 lbl_48 MOVWF variable_21 MOVF variable_21,W MOVWF variable_23 MOVLW H'0A' MOVWF variable_24 MOVLW H'01' GOTO lbl_100 lbl_100 MOVWF variable_25 MOVLW H'FF' MOVWF variable_26 lbl_104 MOVF variable_24,W MOVWF variable_28 lbl_103 MOVF variable_23,W MOVWF variable_27 lbl_102 MOVLW H'17' lbl_101 ADDWF variable_26,W BTFSC STATUS , C GOTO lbl_101 DECFSZ variable_27,f GOTO lbl_102 DECFSZ variable_28,f GOTO lbl_103 DECFSZ variable_25,f GOTO lbl_104 RETURN lbl_7 MOVWF variable_23 MOVF variable_23,W MOVWF variable_24 lbl_106 MOVF variable_24,f BTFSC STATUS , Z GOTO lbl_105 MOVLW H'0A' CALL lbl_84 DECF variable_24,f GOTO lbl_106 lbl_105 RETURN lbl_84 MOVWF variable_2C MOVLW H'F4' MOVWF variable_2D MOVLW H'FC' MOVWF variable_2E MOVF variable_2C,W ADDWF variable_2D,W BTFSS STATUS , C RETLW H'00' lbl_107 ADDWF variable_2E,W BTFSC STATUS , C GOTO lbl_107 RETURN lbl_50 MOVWF variable_22 MOVF variable_21,W MOVWF EEADR MOVF variable_22,W MOVWF EEDATA BSF STATUS , RP0 ;switch to bank 1 BSF EECON1 , WREN MOVLW H'55' MOVWF EECON2 MOVLW H'AA' MOVWF EECON2 BSF EECON1 , WR lbl_108 BTFSC EECON1 , WR GOTO lbl_108 BCF EECON1 , WREN BCF STATUS , RP0 ;switch to bank 0 RETURN lbl_19 MOVWF variable_22 MOVF variable_21,W MOVWF EEADR BSF STATUS , RP0 ;switch to bank 1 BSF EECON1 , RD BCF STATUS , RP0 ;switch to bank 0 MOVF EEDATA,W MOVWF variable_22 RETURN lbl_5 GOTO lbl_109 lbl_87 GOTO lbl_110 lbl_29 GOTO lbl_110 lbl_86 GOTO lbl_110 lbl_85 GOTO lbl_110 lbl_88 MOVWF variable_2C MOVF variable_2C,W ANDLW H'0F' MOVWF variable_2D MOVF variable_11,W ANDLW H'F0' IORWF variable_2D,W MOVWF variable_11 GOTO lbl_109 lbl_109 MOVF variable_11,W MOVWF PORTB RETURN lbl_110 MOVF variable_10,W MOVWF PORTA RETURN lbl_89 MOVWF variable_12 MOVF variable_12,W ANDLW H'0F' MOVWF variable_13 MOVF variable_0F,W ANDLW H'F0' IORWF variable_13,W MOVWF variable_0F GOTO lbl_111 lbl_14 GOTO lbl_111 lbl_12 GOTO lbl_111 lbl_13 GOTO lbl_111 lbl_90 GOTO lbl_111 lbl_91 GOTO lbl_112 lbl_15 GOTO lbl_112 lbl_79 GOTO lbl_112 lbl_80 GOTO lbl_112 lbl_111 MOVF variable_0F,W TRIS 6 ;TRISB RETURN lbl_112 MOVF variable_0E,W TRIS 5 ;TRISA RETURN lbl_92 MOVF variable_28,f BTFSC STATUS , Z GOTO lbl_113 lbl_114 MOVF variable_28,W SUBWF variable_27,W BTFSS STATUS , C GOTO lbl_113 MOVF variable_28,W SUBWF variable_27,W MOVWF variable_27 GOTO lbl_114 lbl_113 MOVF variable_27,W MOVWF variable_29 RETURN lbl_51 CLRF variable_2D MOVF variable_2B,f BTFSC STATUS , Z GOTO lbl_115 lbl_116 MOVF variable_2B,W SUBWF variable_2A,W BTFSS STATUS , C GOTO lbl_115 MOVF variable_2B,W SUBWF variable_2A,W MOVWF variable_2A INCF variable_2D,f GOTO lbl_116 lbl_115 MOVF variable_2D,W MOVWF variable_2C RETURN lbl_1 MOVLW H'04' MOVWF variable_0D RETURN END