; original File = DELTA.HEX

    processor 16F84A
    #include <P16F84A.INC>
    __config _CP_OFF & _PWRTE_OFF & _WDT_OFF & _RC_OSC ; 0x3FFB
;   __idlocs 0x53, 0x4E, 0x30, 0x31

;   EEPROM-Data
    Org 0x2100
    DE 0x01, 0x47, 0x61, 0x04, 0x05, 0x03, 0x00, 0x00   ;  .Ga.....
    DE 0x00, 0x00, 0x01, 0x21, 0x31, 0x04, 0x06, 0x03   ;  ...!1...
    DE 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00   ;  ........
    DE 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00   ;  ........
    DE 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00   ;  ........
    DE 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00   ;  ........
    DE 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00   ;  ........
    DE 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00   ;  ........

; RAM-Variable
LRAM_0x0C equ 0x0C
LRAM_0x0D equ 0x0D
LRAM_0x0E equ 0x0E
LRAM_0x0F equ 0x0F
LRAM_0x10 equ 0x10
LRAM_0x12 equ 0x12
LRAM_0x13 equ 0x13
LRAM_0x14 equ 0x14
LRAM_0x16 equ 0x16
LRAM_0x17 equ 0x17
LRAM_0x18 equ 0x18
LRAM_0x19 equ 0x19
LRAM_0x1E equ 0x1E
LRAM_0x1F equ 0x1F
LRAM_0x20 equ 0x20
LRAM_0x21 equ 0x21
LRAM_0x22 equ 0x22
LRAM_0x23 equ 0x23
LRAM_0x24 equ 0x24
LRAM_0x25 equ 0x25
LRAM_0x26 equ 0x26
LRAM_0x27 equ 0x27
LRAM_0x28 equ 0x28
LRAM_0x29 equ 0x29
LRAM_0x2A equ 0x2A
LRAM_0x2B equ 0x2B
LRAM_0x2C equ 0x2C
LRAM_0x2D equ 0x2D

; Program

    Org 0x0000

;   Reset-Vector
    MOVLW 0x17           ;   b'00010111'  d'023'
    DB 0x65              ; !! Unknown Command
    MOVLW 0x00           ;   b'00000000'  d'000'
    DB 0x66              ; !! Unknown Command
;   Interrupt-Vector
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF PORTB          ; !!Bank!! PORTB - TRISB
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x21
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x22
    MOVLW 0x14           ;   b'00010100'  d'020'
    MOVWF LRAM_0x1F
    CALL LADR_0x0248
    CALL LADR_0x0076
LADR_0x000E
    BTFSS PORTA,2        ; !!Bank!! PORTA - TRISA
    GOTO LADR_0x0011
    GOTO LADR_0x000E
LADR_0x0011
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x27
    MOVLW 0x10           ;   b'00010000'  d'016'
    MOVWF LRAM_0x28
    CALL LADR_0x03EE
    CALL LADR_0x03EE
LADR_0x0017
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x1F
    CALL LADR_0x033C
    BSF PORTB,3          ; !!Bank!! PORTB - TRISB
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x2D
    CALL LADR_0x037A
    CALL LADR_0x03A5
    CALL LADR_0x03F7
    MOVLW 0x52           ;   b'01010010'  d'082'  "R"
    MOVWF LRAM_0x10
    MOVLW 0x52           ;   b'01010010'  d'082'  "R"
    MOVWF LRAM_0x1E
    CALL LADR_0x02C9
    CALL LADR_0x0076
LADR_0x0026
    BTFSS PORTA,4        ; !!Bank!! PORTA - TRISA
    GOTO LADR_0x003C
    BTFSS PORTA,0        ; !!Bank!! PORTA - TRISA
    GOTO LADR_0x0056
    BTFSS PORTA,1        ; !!Bank!! PORTA - TRISA
    GOTO LADR_0x004E
    BTFSS PORTA,2        ; !!Bank!! PORTA - TRISA
    GOTO LADR_0x002F
    GOTO LADR_0x0026
LADR_0x002F
    MOVLW 0x0A           ;   b'00001010'  d'010'
    MOVWF LRAM_0x1F
    CALL LADR_0x033C
    MOVLW 0x54           ;   b'01010100'  d'084'  "T"
    MOVWF LRAM_0x1E
    CALL LADR_0x02C9
    BTFSS PORTA,0        ; !!Bank!! PORTA - TRISA
    GOTO LADR_0x006C
    BTFSS PORTA,1        ; !!Bank!! PORTA - TRISA
    GOTO LADR_0x0064
    BTFSS PORTA,2        ; !!Bank!! PORTA - TRISA
    GOTO LADR_0x002F
    CALL LADR_0x0017
LADR_0x003C
    MOVLW 0x54           ;   b'01010100'  d'084'  "T"
    MOVWF LRAM_0x1E
    MOVLW 0x53           ;   b'01010011'  d'083'  "S"
    MOVWF LRAM_0x10
    MOVLW 0x0A           ;   b'00001010'  d'010'
    MOVWF LRAM_0x1F
    CALL LADR_0x033C
    MOVLW 0x01           ;   b'00000001'  d'001'
    MOVWF LRAM_0x2D
    CALL LADR_0x037A
    CALL LADR_0x03A5
    CALL LADR_0x0248
    CALL LADR_0x02C9
    CALL LADR_0x0076
    CALL LADR_0x004B
LADR_0x004B
    BTFSS PORTA,2        ; !!Bank!! PORTA - TRISA
    GOTO LADR_0x0017
    GOTO LADR_0x004B
LADR_0x004E
    CALL LADR_0x0106
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x2D
    CALL LADR_0x01D0
    CALL LADR_0x02C9
    BTFSS PORTA,1        ; !!Bank!! PORTA - TRISA
    GOTO LADR_0x004E
    GOTO LADR_0x005D
LADR_0x0056
    CALL LADR_0x00AC
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x2D
    CALL LADR_0x015C
    CALL LADR_0x02C9
    BTFSS PORTA,0        ; !!Bank!! PORTA - TRISA
    GOTO LADR_0x0056
LADR_0x005D
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x2C
    GOTO LADR_0x0060
LADR_0x0060
    CALL LADR_0x0306
    GOTO LADR_0x0017
LADR_0x0062
    CALL LADR_0x0306
    GOTO LADR_0x002F
LADR_0x0064
    CALL LADR_0x0138
    MOVF LRAM_0x0F,W
    MOVWF LRAM_0x0D
    CALL LADR_0x01D0
    CALL LADR_0x02C9
    BTFSS PORTA,1        ; !!Bank!! PORTA - TRISA
    GOTO LADR_0x0064
    GOTO LADR_0x0073
LADR_0x006C
    CALL LADR_0x00DF
    MOVF LRAM_0x0E,W
    MOVWF LRAM_0x0C
    CALL LADR_0x015C
    CALL LADR_0x02C9
    BTFSS PORTA,0        ; !!Bank!! PORTA - TRISA
    GOTO LADR_0x006C
LADR_0x0073
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x2C
    GOTO LADR_0x0062
LADR_0x0076
    BCF PORTB,2          ; !!Bank!! PORTB - TRISB
    MOVLW 0xC0           ;   b'11000000'  d'192'
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    BSF PORTB,2          ; !!Bank!! PORTB - TRISB
    MOVLW 0x3C           ;   b'00111100'  d'060'  "<"
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    MOVLW 0x52           ;   b'01010010'  d'082'  "R"
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    MOVLW 0x54           ;   b'01010100'  d'084'  "T"
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    MOVLW 0x43           ;   b'01000011'  d'067'  "C"
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    MOVLW 0x20           ;   b'00100000'  d'032'  " "
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    MOVLW 0x4E           ;   b'01001110'  d'078'  "N"
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    MOVLW 0x4D           ;   b'01001101'  d'077'  "M"
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    MOVLW 0x54           ;   b'01010100'  d'084'  "T"
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    MOVLW 0x2D           ;   b'00101101'  d'045'  "-"
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    MOVLW 0x34           ;   b'00110100'  d'052'  "4"
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    MOVLW 0x35           ;   b'00110101'  d'053'  "5"
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    MOVLW 0x30           ;   b'00110000'  d'048'  "0"
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    MOVLW 0x20           ;   b'00100000'  d'032'  " "
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    MOVLW 0x42           ;   b'01000010'  d'066'  "B"
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    MOVLW 0x47           ;   b'01000111'  d'071'  "G"
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    MOVLW 0x3E           ;   b'00111110'  d'062'  ">"
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    RETURN
LADR_0x00AC
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x0D
    MOVLW 0x04           ;   b'00000100'  d'004'
    SUBWF LRAM_0x2C,W
    BTFSC STATUS,Z
    GOTO LADR_0x00B4
    INCF LRAM_0x2C,F
    CALL LADR_0x03EE
LADR_0x00B4
    CALL LADR_0x03F7
    MOVLW 0x01           ;   b'00000001'  d'001'
    SUBWF LRAM_0x2B,W
    BTFSC STATUS,Z
    GOTO LADR_0x00BA
    GOTO LADR_0x00CD
LADR_0x00BA
    MOVLW 0x51           ;   b'01010001'  d'081'  "Q"
    SUBWF LRAM_0x2A,W
    BTFSC STATUS,Z
    GOTO LADR_0x00BF
    GOTO LADR_0x00CD
LADR_0x00BF
    MOVLW 0x31           ;   b'00110001'  d'049'  "1"
    SUBWF LRAM_0x29,W
    BTFSC STATUS,Z
    GOTO LADR_0x00C4
    GOTO LADR_0x00CD
LADR_0x00C4
    MOVLW 0x31           ;   b'00110001'  d'049'  "1"
    MOVWF LRAM_0x29
    MOVLW 0x51           ;   b'01010001'  d'081'  "Q"
    MOVWF LRAM_0x2A
    MOVLW 0x01           ;   b'00000001'  d'001'
    MOVWF LRAM_0x2B
    MOVLW 0x01           ;   b'00000001'  d'001'
    MOVWF LRAM_0x0C
    GOTO LADR_0x00DE
LADR_0x00CD
    INCF LRAM_0x29,F
    MOVLW 0x80           ;   b'10000000'  d'128'
    SUBWF LRAM_0x29,W
    BTFSC STATUS,Z
    GOTO LADR_0x00D3
    GOTO LADR_0x00DE
LADR_0x00D3
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x29
    MOVLW 0xFF           ;   b'11111111'  d'255'
    SUBWF LRAM_0x2A,W
    BTFSC STATUS,Z
    GOTO LADR_0x00DB
    INCF LRAM_0x2A,F
    GOTO LADR_0x00DE
LADR_0x00DB
    INCF LRAM_0x2B,F
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x2A
LADR_0x00DE
    RETURN
LADR_0x00DF
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x0F
    MOVLW 0x04           ;   b'00000100'  d'004'
    SUBWF LRAM_0x2C,W
    BTFSC STATUS,Z
    GOTO LADR_0x00E8
    INCF LRAM_0x2C,F
    CALL LADR_0x03EE
    GOTO LADR_0x00E9
LADR_0x00E8
    CALL LADR_0x03F7
LADR_0x00E9
    MOVLW 0x25           ;   b'00100101'  d'037'  "%"
    SUBWF LRAM_0x2A,W
    BTFSC STATUS,Z
    GOTO LADR_0x00EE
    GOTO LADR_0x00FC
LADR_0x00EE
    MOVLW 0x61           ;   b'01100001'  d'097'  "a"
    SUBWF LRAM_0x29,W
    BTFSC STATUS,Z
    GOTO LADR_0x00F3
    GOTO LADR_0x00FC
LADR_0x00F3
    MOVLW 0x61           ;   b'01100001'  d'097'  "a"
    MOVWF LRAM_0x29
    MOVLW 0x25           ;   b'00100101'  d'037'  "%"
    MOVWF LRAM_0x2A
    MOVLW 0x01           ;   b'00000001'  d'001'
    MOVWF LRAM_0x2B
    MOVLW 0x01           ;   b'00000001'  d'001'
    MOVWF LRAM_0x0E
    GOTO LADR_0x0105
LADR_0x00FC
    INCF LRAM_0x29,F
    MOVLW 0x80           ;   b'10000000'  d'128'
    SUBWF LRAM_0x29,W
    BTFSC STATUS,Z
    GOTO LADR_0x0102
    GOTO LADR_0x0105
LADR_0x0102
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x29
    INCF LRAM_0x2A,F
LADR_0x0105
    RETURN
LADR_0x0106
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x0C
    MOVLW 0x04           ;   b'00000100'  d'004'
    SUBWF LRAM_0x2C,W
    BTFSC STATUS,Z
    GOTO LADR_0x010F
    INCF LRAM_0x2C,F
    CALL LADR_0x03EE
    GOTO LADR_0x0110
LADR_0x010F
    CALL LADR_0x03F7
LADR_0x0110
    MOVLW 0x01           ;   b'00000001'  d'001'
    SUBWF LRAM_0x2B,W
    BTFSC STATUS,Z
    GOTO LADR_0x0115
    GOTO LADR_0x0128
LADR_0x0115
    MOVLW 0x45           ;   b'01000101'  d'069'  "E"
    SUBWF LRAM_0x2A,W
    BTFSC STATUS,Z
    GOTO LADR_0x011A
    GOTO LADR_0x0128
LADR_0x011A
    MOVLW 0x71           ;   b'01110001'  d'113'  "q"
    SUBWF LRAM_0x29,W
    BTFSC STATUS,Z
    GOTO LADR_0x011F
    GOTO LADR_0x0128
LADR_0x011F
    MOVLW 0x71           ;   b'01110001'  d'113'  "q"
    MOVWF LRAM_0x29
    MOVLW 0x45           ;   b'01000101'  d'069'  "E"
    MOVWF LRAM_0x2A
    MOVLW 0x01           ;   b'00000001'  d'001'
    MOVWF LRAM_0x2B
    MOVLW 0x01           ;   b'00000001'  d'001'
    MOVWF LRAM_0x0D
    GOTO LADR_0x0137
LADR_0x0128
    DECF LRAM_0x29,F
    BTFSC LRAM_0x29,7
    GOTO LADR_0x012C
    GOTO LADR_0x0137
LADR_0x012C
    MOVLW 0x7F           ;   b'01111111'  d'127'  ""
    MOVWF LRAM_0x29
    DECF LRAM_0x2A,F
    MOVLW 0x00           ;   b'00000000'  d'000'
    SUBWF LRAM_0x2A,W
    BTFSC STATUS,Z
    GOTO LADR_0x0134
    GOTO LADR_0x0137
LADR_0x0134
    DECF LRAM_0x2B,F
    MOVF LRAM_0x7F,W
    MOVWF LRAM_0x2A
LADR_0x0137
    RETURN
LADR_0x0138
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x0E
    MOVLW 0x04           ;   b'00000100'  d'004'
    SUBWF LRAM_0x2C,W
    BTFSC STATUS,Z
    GOTO LADR_0x0140
    INCF LRAM_0x2C,F
    CALL LADR_0x03EE
LADR_0x0140
    CALL LADR_0x03F7
    MOVLW 0x19           ;   b'00011001'  d'025'
    SUBWF LRAM_0x2A,W
    BTFSC STATUS,Z
    GOTO LADR_0x0146
    GOTO LADR_0x0154
LADR_0x0146
    MOVLW 0x21           ;   b'00100001'  d'033'  "!"
    SUBWF LRAM_0x29,W
    BTFSC STATUS,Z
    GOTO LADR_0x014B
    GOTO LADR_0x0154
LADR_0x014B
    MOVLW 0x21           ;   b'00100001'  d'033'  "!"
    MOVWF LRAM_0x29
    MOVLW 0x19           ;   b'00011001'  d'025'
    MOVWF LRAM_0x2A
    MOVLW 0x01           ;   b'00000001'  d'001'
    MOVWF LRAM_0x2B
    MOVLW 0x01           ;   b'00000001'  d'001'
    MOVWF LRAM_0x0F
    GOTO LADR_0x015B
LADR_0x0154
    DECF LRAM_0x29,F
    BTFSC LRAM_0x29,7
    GOTO LADR_0x0158
    GOTO LADR_0x015B
LADR_0x0158
    MOVLW 0x7F           ;   b'01111111'  d'127'  ""
    MOVWF LRAM_0x29
    DECF LRAM_0x2A,F
LADR_0x015B
    RETURN
LADR_0x015C
    MOVLW 0x01           ;   b'00000001'  d'001'
    SUBWF LRAM_0x0C,W
    BTFSS STATUS,Z
    GOTO LADR_0x016F
    MOVLW 0x04           ;   b'00000100'  d'004'
    MOVWF LRAM_0x12
    MOVLW 0x07           ;   b'00000111'  d'007'
    MOVWF LRAM_0x13
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x14
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x16
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x17
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x18
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x19
    RETURN
LADR_0x016F
    MOVLW 0x00           ;   b'00000000'  d'000'
    SUBWF LRAM_0x17,W
    BTFSS STATUS,Z
    GOTO LADR_0x0176
    MOVLW 0x01           ;   b'00000001'  d'001'
    MOVWF LRAM_0x17
    GOTO LADR_0x0195
LADR_0x0176
    MOVLW 0x01           ;   b'00000001'  d'001'
    SUBWF LRAM_0x17,W
    BTFSS STATUS,Z
    GOTO LADR_0x017D
    MOVLW 0x02           ;   b'00000010'  d'002'
    MOVWF LRAM_0x17
    GOTO LADR_0x01A0
LADR_0x017D
    MOVLW 0x02           ;   b'00000010'  d'002'
    SUBWF LRAM_0x17,W
    BTFSS STATUS,Z
    GOTO LADR_0x0184
    MOVLW 0x03           ;   b'00000011'  d'003'
    MOVWF LRAM_0x17
    GOTO LADR_0x01AB
LADR_0x0184
    MOVLW 0x03           ;   b'00000011'  d'003'
    SUBWF LRAM_0x17,W
    BTFSS STATUS,Z
    GOTO LADR_0x018F
    MOVLW 0x05           ;   b'00000101'  d'005'
    MOVWF LRAM_0x17
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x18
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x19
    RETURN
LADR_0x018F
    MOVLW 0x05           ;   b'00000101'  d'005'
    SUBWF LRAM_0x17,W
    BTFSS STATUS,Z
    GOTO LADR_0x019A
    MOVLW 0x06           ;   b'00000110'  d'006'
    MOVWF LRAM_0x17
LADR_0x0195
    MOVLW 0x02           ;   b'00000010'  d'002'
    MOVWF LRAM_0x18
    MOVLW 0x05           ;   b'00000101'  d'005'
    MOVWF LRAM_0x19
    RETURN
LADR_0x019A
    MOVLW 0x06           ;   b'00000110'  d'006'
    SUBWF LRAM_0x17,W
    BTFSS STATUS,Z
    GOTO LADR_0x01A5
    MOVLW 0x07           ;   b'00000111'  d'007'
    MOVWF LRAM_0x17
LADR_0x01A0
    MOVLW 0x05           ;   b'00000101'  d'005'
    MOVWF LRAM_0x18
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x19
    RETURN
LADR_0x01A5
    MOVLW 0x07           ;   b'00000111'  d'007'
    SUBWF LRAM_0x17,W
    BTFSS STATUS,Z
    GOTO LADR_0x01B0
    MOVLW 0x08           ;   b'00001000'  d'008'
    MOVWF LRAM_0x17
LADR_0x01AB
    MOVLW 0x07           ;   b'00000111'  d'007'
    MOVWF LRAM_0x18
    MOVLW 0x05           ;   b'00000101'  d'005'
    MOVWF LRAM_0x19
    RETURN
LADR_0x01B0
    MOVLW 0x08           ;   b'00001000'  d'008'
    SUBWF LRAM_0x17,W
    BTFSS STATUS,Z
    GOTO LADR_0x01CF
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x17
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x18
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x19
    INCF LRAM_0x16,F
    MOVLW 0x0A           ;   b'00001010'  d'010'
    SUBWF LRAM_0x16,W
    BTFSS STATUS,Z
    GOTO LADR_0x01CF
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x16
    INCF LRAM_0x14,F
    MOVLW 0x0A           ;   b'00001010'  d'010'
    SUBWF LRAM_0x14,W
    BTFSS STATUS,Z
    GOTO LADR_0x01CF
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x14
    INCF LRAM_0x13,F
    MOVLW 0x07           ;   b'00000111'  d'007'
    SUBWF LRAM_0x13,W
    BTFSS STATUS,Z
    GOTO LADR_0x01CF
    MOVLW 0x06           ;   b'00000110'  d'006'
    MOVWF LRAM_0x13
LADR_0x01CF
    RETURN
LADR_0x01D0
    MOVLW 0x01           ;   b'00000001'  d'001'
    SUBWF LRAM_0x0D,W
    BTFSS STATUS,Z
    GOTO LADR_0x01E3
    MOVLW 0x04           ;   b'00000100'  d'004'
    MOVWF LRAM_0x12
    MOVLW 0x05           ;   b'00000101'  d'005'
    MOVWF LRAM_0x13
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x14
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x16
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x17
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x18
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x19
    RETURN
LADR_0x01E3
    MOVLW 0x08           ;   b'00001000'  d'008'
    SUBWF LRAM_0x17,W
    BTFSS STATUS,Z
    GOTO LADR_0x01EA
    MOVLW 0x07           ;   b'00000111'  d'007'
    MOVWF LRAM_0x17
    GOTO LADR_0x020D
LADR_0x01EA
    MOVLW 0x07           ;   b'00000111'  d'007'
    SUBWF LRAM_0x17,W
    BTFSS STATUS,Z
    GOTO LADR_0x01F1
    MOVLW 0x06           ;   b'00000110'  d'006'
    MOVWF LRAM_0x17
    GOTO LADR_0x0218
LADR_0x01F1
    MOVLW 0x06           ;   b'00000110'  d'006'
    SUBWF LRAM_0x17,W
    BTFSS STATUS,Z
    GOTO LADR_0x01FC
    MOVLW 0x05           ;   b'00000101'  d'005'
    MOVWF LRAM_0x17
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x18
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x19
    RETURN
LADR_0x01FC
    MOVLW 0x05           ;   b'00000101'  d'005'
    SUBWF LRAM_0x17,W
    BTFSS STATUS,Z
    GOTO LADR_0x0207
    MOVLW 0x03           ;   b'00000011'  d'003'
    MOVWF LRAM_0x17
    MOVLW 0x07           ;   b'00000111'  d'007'
    MOVWF LRAM_0x18
    MOVLW 0x05           ;   b'00000101'  d'005'
    MOVWF LRAM_0x19
    RETURN
LADR_0x0207
    MOVLW 0x03           ;   b'00000011'  d'003'
    SUBWF LRAM_0x17,W
    BTFSS STATUS,Z
    GOTO LADR_0x0212
    MOVLW 0x02           ;   b'00000010'  d'002'
    MOVWF LRAM_0x17
LADR_0x020D
    MOVLW 0x05           ;   b'00000101'  d'005'
    MOVWF LRAM_0x18
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x19
    RETURN
LADR_0x0212
    MOVLW 0x02           ;   b'00000010'  d'002'
    SUBWF LRAM_0x17,W
    BTFSS STATUS,Z
    GOTO LADR_0x021D
    MOVLW 0x01           ;   b'00000001'  d'001'
    MOVWF LRAM_0x17
LADR_0x0218
    MOVLW 0x02           ;   b'00000010'  d'002'
    MOVWF LRAM_0x18
    MOVLW 0x05           ;   b'00000101'  d'005'
    MOVWF LRAM_0x19
    RETURN
LADR_0x021D
    MOVLW 0x01           ;   b'00000001'  d'001'
    SUBWF LRAM_0x17,W
    BTFSS STATUS,Z
    GOTO LADR_0x0228
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x17
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x18
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF LRAM_0x19
    RETURN
LADR_0x0228
    MOVLW 0x00           ;   b'00000000'  d'000'
    SUBWF LRAM_0x17,W
    BTFSS STATUS,Z
    GOTO LADR_0x0247
    MOVLW 0x08           ;   b'00001000'  d'008'
    MOVWF LRAM_0x17
    MOVLW 0x07           ;   b'00000111'  d'007'
    MOVWF LRAM_0x18
    MOVLW 0x05           ;   b'00000101'  d'005'
    MOVWF LRAM_0x19
    DECF LRAM_0x16,F
    MOVLW 0xFF           ;   b'11111111'  d'255'
    SUBWF LRAM_0x16,W
    BTFSS STATUS,Z
    GOTO LADR_0x0247
    MOVLW 0x09           ;   b'00001001'  d'009'
    MOVWF LRAM_0x16
    DECF LRAM_0x14,F
    MOVLW 0xFF           ;   b'11111111'  d'255'
    SUBWF LRAM_0x14,W
    BTFSS STATUS,Z
    GOTO LADR_0x0247
    MOVLW 0x09           ;   b'00001001'  d'009'
    MOVWF LRAM_0x14
    DECF LRAM_0x13,F
    MOVLW 0xFF           ;   b'11111111'  d'255'
    SUBWF LRAM_0x13,W
    BTFSS STATUS,Z
    GOTO LADR_0x0247
    MOVLW 0x05           ;   b'00000101'  d'005'
    MOVWF LRAM_0x13
LADR_0x0247
    RETURN
LADR_0x0248
    MOVLW 0x00           ;   b'00000000'  d'000'
    MOVWF PORTB          ; !!Bank!! PORTB - TRISB
    MOVLW 0x00           ;   b'00000000'  d'000'
    DB 0x66              ; !! Unknown Command
    CALL LADR_0x03F7
    BCF PORTB,2          ; !!Bank!! PORTB - TRISB
    CALL LADR_0x03F7
    MOVLW 0x30           ;   b'00110000'  d'048'  "0"
    MOVWF PORTB          ; !!Bank!! PORTB - TRISB
    NOP
    BSF PORTA,3          ; !!Bank!! PORTA - TRISA
    CALL LADR_0x03F7
    CALL LADR_0x03F7
    BCF PORTA,3          ; !!Bank!! PORTA - TRISA
    BCF PORTB,2          ; !!Bank!! PORTB - TRISB
    NOP
    MOVLW 0x20           ;   b'00100000'  d'032'  " "
    MOVWF PORTB          ; !!Bank!! PORTB - TRISB
    NOP
    BSF PORTA,3          ; !!Bank!! PORTA - TRISA
    CALL LADR_0x03F7
    BCF PORTA,3          ; !!Bank!! PORTA - TRISA
    NOP
    BCF PORTB,2          ; !!Bank!! PORTB - TRISB
    NOP
    MOVLW 0x28           ;   b'00101000'  d'040'  "("
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    NOP
    BCF PORTB,2          ; !!Bank!! PORTB - TRISB
    NOP
    MOVLW 0x08           ;   b'00001000'  d'008'
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    NOP
    BCF PORTB,2          ; !!Bank!! PORTB - TRISB
    NOP
    MOVLW 0x06           ;   b'00000110'  d'006'
    MOVWF LRAM_0x25
    NOP
    CALL LADR_0x0285
    NOP
    BCF PORTB,2          ; !!Bank!! PORTB - TRISB
    NOP
    MOVLW 0x0C           ;   b'00001100'  d'012'
    MOVWF LRAM_0x25
    NOP
    CALL LADR_0x0285
    NOP
    BCF PORTB,1          ; !!Bank!! PORTB - TRISB
    NOP
    BCF PORTB,2          ; !!Bank!! PORTB - TRISB
    NOP
    MOVLW 0x82           ;   b'10000010'  d'130'
    MOVWF LRAM_0x25
    NOP
    CALL LADR_0x0285
    NOP
    BSF PORTB,2          ; !!Bank!! PORTB - TRISB
    NOP
    RETURN
LADR_0x0285
    BTFSS PORTB,2        ; !!Bank!! PORTB - TRISB
    BCF LRAM_0x26,0
    BTFSC PORTB,2        ; !!Bank!! PORTB - TRISB
    BSF LRAM_0x26,0
    BCF PORTB,2          ; !!Bank!! PORTB - TRISB
    NOP
    BSF PORTB,1          ; !!Bank!! PORTB - TRISB
    NOP
    MOVLW 0xF0           ;   b'11110000'  d'240'
    DB 0x66              ; !! Unknown Command
    NOP
LADR_0x0290
    BSF PORTA,3          ; !!Bank!! PORTA - TRISA
    NOP
    MOVF PORTB,W         ; !!Bank!! PORTB - TRISB
    MOVWF LRAM_0x23
    NOP
    BCF PORTA,3          ; !!Bank!! PORTA - TRISA
    NOP
    NOP
    BSF PORTA,3          ; !!Bank!! PORTA - TRISA
    NOP
    NOP
    BCF PORTA,3          ; !!Bank!! PORTA - TRISA
    BTFSC LRAM_0x23,7
    GOTO LADR_0x0290
    NOP
    BTFSS LRAM_0x26,0
    BCF PORTB,2          ; !!Bank!! PORTB - TRISB
    BTFSC LRAM_0x26,0
    BSF PORTB,2          ; !!Bank!! PORTB - TRISB
    NOP
    BCF PORTB,1          ; !!Bank!! PORTB - TRISB
    NOP
    MOVLW 0x00           ;   b'00000000'  d'000'
    DB 0x66              ; !! Unknown Command
    NOP
    MOVF LRAM_0x25,W
    MOVWF LRAM_0x24
    NOP
    MOVLW 0x0F           ;   b'00001111'  d'015'
    ANDWF PORTB,F        ; !!Bank!! PORTB - TRISB
    NOP
    MOVLW 0xF0           ;   b'11110000'  d'240'
    ANDWF LRAM_0x25,F
    NOP
    MOVF LRAM_0x25,W
    IORWF PORTB,F        ; !!Bank!! PORTB - TRISB
    NOP
    BSF PORTA,3          ; !!Bank!! PORTA - TRISA
    NOP
    BCF PORTA,3          ; !!Bank!! PORTA - TRISA
    NOP
    SWAPF LRAM_0x24,F
    NOP
    MOVLW 0x0F           ;   b'00001111'  d'015'
    ANDWF PORTB,F        ; !!Bank!! PORTB - TRISB
    NOP
    MOVLW 0xF0           ;   b'11110000'  d'240'
    ANDWF LRAM_0x24,F
    NOP
    MOVF LRAM_0x24,W
    IORWF PORTB,F        ; !!Bank!! PORTB - TRISB
    NOP
    BSF PORTA,3          ; !!Bank!! PORTA - TRISA
    NOP
    BCF PORTA,3          ; !!Bank!! PORTA - TRISA
    NOP
    RETURN
LADR_0x02C9
    BCF PORTB,2          ; !!Bank!! PORTB - TRISB
    MOVLW 0x80           ;   b'10000000'  d'128'
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    BSF PORTB,2          ; !!Bank!! PORTB - TRISB
    MOVF LRAM_0x10,W
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    MOVLW 0x20           ;   b'00100000'  d'032'  " "
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    MOVF LRAM_0x12,W
    ADDLW 0x30           ;   b'00110000'  d'048'  "0"
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    MOVF LRAM_0x13,W
    ADDLW 0x30           ;   b'00110000'  d'048'  "0"
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    MOVF LRAM_0x14,W
    ADDLW 0x30           ;   b'00110000'  d'048'  "0"
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    MOVLW 0x2E           ;   b'00101110'  d'046'  "."
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    MOVF LRAM_0x16,W
    ADDLW 0x30           ;   b'00110000'  d'048'  "0"
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    MOVF LRAM_0x17,W
    ADDLW 0x30           ;   b'00110000'  d'048'  "0"
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    MOVF LRAM_0x18,W
    ADDLW 0x30           ;   b'00110000'  d'048'  "0"
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    MOVF LRAM_0x19,W
    ADDLW 0x30           ;   b'00110000'  d'048'  "0"
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    MOVLW 0x4D           ;   b'01001101'  d'077'  "M"
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    MOVLW 0x68           ;   b'01101000'  d'104'  "h"
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    MOVLW 0x7A           ;   b'01111010'  d'122'  "z"
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    MOVLW 0x20           ;   b'00100000'  d'032'  " "
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    MOVF LRAM_0x1E,W
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    MOVLW 0x78           ;   b'01111000'  d'120'  "x"
    MOVWF LRAM_0x25
    CALL LADR_0x0285
    RETURN
LADR_0x0306
    MOVF LRAM_0x1F,W
    MOVWF EEADR          ; !!Bank!! EEADR - EECON2
    MOVF LRAM_0x2B,W
    MOVWF EEDATA         ; !!Bank!! EEDATA - EECON1
    CALL LADR_0x0330
    INCF EEADR,F         ; !!Bank!! EEADR - EECON2
    MOVF LRAM_0x2A,W
    MOVWF EEDATA         ; !!Bank!! EEDATA - EECON1
    CALL LADR_0x0330
    INCF EEADR,F         ; !!Bank!! EEADR - EECON2
    MOVF LRAM_0x29,W
    MOVWF EEDATA         ; !!Bank!! EEDATA - EECON1
    CALL LADR_0x0330
    INCF EEADR,F         ; !!Bank!! EEADR - EECON2
    MOVF LRAM_0x12,W
    MOVWF EEDATA         ; !!Bank!! EEDATA - EECON1
    CALL LADR_0x0330
    INCF EEADR,F         ; !!Bank!! EEADR - EECON2
    MOVF LRAM_0x13,W
    MOVWF EEDATA         ; !!Bank!! EEDATA - EECON1
    CALL LADR_0x0330
    INCF EEADR,F         ; !!Bank!! EEADR - EECON2
    MOVF LRAM_0x14,W
    MOVWF EEDATA         ; !!Bank!! EEDATA - EECON1
    CALL LADR_0x0330
    INCF EEADR,F         ; !!Bank!! EEADR - EECON2
    MOVF LRAM_0x16,W
    MOVWF EEDATA         ; !!Bank!! EEDATA - EECON1
    CALL LADR_0x0330
    INCF EEADR,F         ; !!Bank!! EEADR - EECON2
    MOVF LRAM_0x17,W
    MOVWF EEDATA         ; !!Bank!! EEDATA - EECON1
    CALL LADR_0x0330
    INCF EEADR,F         ; !!Bank!! EEADR - EECON2
    MOVF LRAM_0x18,W
    MOVWF EEDATA         ; !!Bank!! EEDATA - EECON1
    CALL LADR_0x0330
    INCF EEADR,F         ; !!Bank!! EEADR - EECON2
    MOVF LRAM_0x19,W
    MOVWF EEDATA         ; !!Bank!! EEDATA - EECON1
    CALL LADR_0x0330
    RETURN
LADR_0x0330
    BSF STATUS,RP0       ; !!Bank Register-Bank(0/1)-Select
    BSF EEDATA,2         ; !!Bank!! EEDATA - EECON1
    MOVLW 0x55           ;   b'01010101'  d'085'  "U"
    MOVWF EEADR          ; !!Bank!! EEADR - EECON2
    MOVLW 0xAA           ;   b'10101010'  d'170'
    MOVWF EEADR          ; !!Bank!! EEADR - EECON2
    BSF EEDATA,1         ; !!Bank!! EEDATA - EECON1
LADR_0x0337
    BTFSS EEDATA,4       ; !!Bank!! EEDATA - EECON1
    GOTO LADR_0x0337
    BCF EEDATA,4         ; !!Bank!! EEDATA - EECON1
    BCF STATUS,RP0       ; !!Bank Register-Bank(0/1)-Select
    RETURN
LADR_0x033C
    MOVF LRAM_0x1F,W
    MOVWF EEADR          ; !!Bank!! EEADR - EECON2
    BSF STATUS,RP0       ; !!Bank Register-Bank(0/1)-Select
    BSF EEDATA,0         ; !!Bank!! EEDATA - EECON1
    BCF STATUS,RP0       ; !!Bank Register-Bank(0/1)-Select
    MOVF EEDATA,W        ; !!Bank!! EEDATA - EECON1
    MOVWF LRAM_0x2B
    INCF EEADR,F         ; !!Bank!! EEADR - EECON2
    BSF STATUS,RP0       ; !!Bank Register-Bank(0/1)-Select
    BSF EEDATA,0         ; !!Bank!! EEDATA - EECON1
    BCF STATUS,RP0       ; !!Bank Register-Bank(0/1)-Select
    MOVF EEDATA,W        ; !!Bank!! EEDATA - EECON1
    MOVWF LRAM_0x2A
    INCF EEADR,F         ; !!Bank!! EEADR - EECON2
    BSF STATUS,RP0       ; !!Bank Register-Bank(0/1)-Select
    BSF EEDATA,0         ; !!Bank!! EEDATA - EECON1
    BCF STATUS,RP0       ; !!Bank Register-Bank(0/1)-Select
    MOVF EEDATA,W        ; !!Bank!! EEDATA - EECON1
    MOVWF LRAM_0x29
    INCF EEADR,F         ; !!Bank!! EEADR - EECON2
    BSF STATUS,RP0       ; !!Bank Register-Bank(0/1)-Select
    BSF EEDATA,0         ; !!Bank!! EEDATA - EECON1
    BCF STATUS,RP0       ; !!Bank Register-Bank(0/1)-Select
    MOVF EEDATA,W        ; !!Bank!! EEDATA - EECON1
    MOVWF LRAM_0x12
    INCF EEADR,F         ; !!Bank!! EEADR - EECON2
    BSF STATUS,RP0       ; !!Bank Register-Bank(0/1)-Select
    BSF EEDATA,0         ; !!Bank!! EEDATA - EECON1
    BCF STATUS,RP0       ; !!Bank Register-Bank(0/1)-Select
    MOVF EEDATA,W        ; !!Bank!! EEDATA - EECON1
    MOVWF LRAM_0x13
    INCF EEADR,F         ; !!Bank!! EEADR - EECON2
    BSF STATUS,RP0       ; !!Bank Register-Bank(0/1)-Select
    BSF EEDATA,0         ; !!Bank!! EEDATA - EECON1
    BCF STATUS,RP0       ; !!Bank Register-Bank(0/1)-Select
    MOVF EEDATA,W        ; !!Bank!! EEDATA - EECON1
    MOVWF LRAM_0x14
    INCF EEADR,F         ; !!Bank!! EEADR - EECON2
    BSF STATUS,RP0       ; !!Bank Register-Bank(0/1)-Select
    BSF EEDATA,0         ; !!Bank!! EEDATA - EECON1
    BCF STATUS,RP0       ; !!Bank Register-Bank(0/1)-Select
    MOVF EEDATA,W        ; !!Bank!! EEDATA - EECON1
    MOVWF LRAM_0x16
    INCF EEADR,F         ; !!Bank!! EEADR - EECON2
    BSF STATUS,RP0       ; !!Bank Register-Bank(0/1)-Select
    BSF EEDATA,0         ; !!Bank!! EEDATA - EECON1
    BCF STATUS,RP0       ; !!Bank Register-Bank(0/1)-Select
    MOVF EEDATA,W        ; !!Bank!! EEDATA - EECON1
    MOVWF LRAM_0x17
    INCF EEADR,F         ; !!Bank!! EEADR - EECON2
    BSF STATUS,RP0       ; !!Bank Register-Bank(0/1)-Select
    BSF EEDATA,0         ; !!Bank!! EEDATA - EECON1
    BCF STATUS,RP0       ; !!Bank Register-Bank(0/1)-Select
    MOVF EEDATA,W        ; !!Bank!! EEDATA - EECON1
    MOVWF LRAM_0x18
    INCF EEADR,F         ; !!Bank!! EEADR - EECON2
    BSF STATUS,RP0       ; !!Bank Register-Bank(0/1)-Select
    BSF EEDATA,0         ; !!Bank!! EEDATA - EECON1
    BCF STATUS,RP0       ; !!Bank Register-Bank(0/1)-Select
    MOVF EEDATA,W        ; !!Bank!! EEDATA - EECON1
    MOVWF LRAM_0x19
    RETURN
LADR_0x037A
    BCF PORTB,2          ; !!Bank!! PORTB - TRISB
    NOP
    BSF PORTB,1          ; !!Bank!! PORTB - TRISB
    NOP
    BCF PORTB,1          ; !!Bank!! PORTB - TRISB
    NOP
    MOVLW 0x06           ;   b'00000110'  d'006'
    MOVWF LRAM_0x20
    MOVF LRAM_0x28,W
    MOVWF LRAM_0x23
LADR_0x0384
    BTFSS LRAM_0x23,7
    BCF PORTB,2          ; !!Bank!! PORTB - TRISB
    BTFSC LRAM_0x23,7
    BSF PORTB,2          ; !!Bank!! PORTB - TRISB
    BSF PORTB,1          ; !!Bank!! PORTB - TRISB
    NOP
    BCF PORTB,1          ; !!Bank!! PORTB - TRISB
    NOP
    RLF LRAM_0x23,F
    DECFSZ LRAM_0x20,F
    GOTO LADR_0x0384
    MOVLW 0x08           ;   b'00001000'  d'008'
    MOVWF LRAM_0x20
    MOVF LRAM_0x27,W
    MOVWF LRAM_0x23
LADR_0x0393
    BTFSS LRAM_0x23,7
    BCF PORTB,2          ; !!Bank!! PORTB - TRISB
    BTFSC LRAM_0x23,7
    BSF PORTB,2          ; !!Bank!! PORTB - TRISB
    BSF PORTB,1          ; !!Bank!! PORTB - TRISB
    NOP
    BCF PORTB,1          ; !!Bank!! PORTB - TRISB
    NOP
    RLF LRAM_0x23,F
    DECFSZ LRAM_0x20,F
    GOTO LADR_0x0393
    NOP
    NOP
    BSF PORTB,2          ; !!Bank!! PORTB - TRISB
    NOP
    CALL LADR_0x03D7
    CALL LADR_0x03DE
    RETURN
LADR_0x03A5
    MOVLW 0x03           ;   b'00000011'  d'003'
    MOVWF LRAM_0x20
    MOVF LRAM_0x2B,W
    MOVWF LRAM_0x23
LADR_0x03A9
    BTFSS LRAM_0x23,2
    BCF PORTB,2          ; !!Bank!! PORTB - TRISB
    BTFSC LRAM_0x23,2
    BSF PORTB,2          ; !!Bank!! PORTB - TRISB
    BSF PORTB,1          ; !!Bank!! PORTB - TRISB
    NOP
    BCF PORTB,1          ; !!Bank!! PORTB - TRISB
    NOP
    RLF LRAM_0x23,F
    DECFSZ LRAM_0x20,F
    GOTO LADR_0x03A9
    MOVLW 0x08           ;   b'00001000'  d'008'
    MOVWF LRAM_0x20
    MOVF LRAM_0x2A,W
    MOVWF LRAM_0x23
LADR_0x03B8
    BTFSS LRAM_0x23,7
    BCF PORTB,2          ; !!Bank!! PORTB - TRISB
    BTFSC LRAM_0x23,7
    BSF PORTB,2          ; !!Bank!! PORTB - TRISB
    BSF PORTB,1          ; !!Bank!! PORTB - TRISB
    NOP
    BCF PORTB,1          ; !!Bank!! PORTB - TRISB
    NOP
    RLF LRAM_0x23,F
    DECFSZ LRAM_0x20,F
    GOTO LADR_0x03B8
    MOVLW 0x07           ;   b'00000111'  d'007'
    MOVWF LRAM_0x20
    MOVF LRAM_0x29,W
    MOVWF LRAM_0x23
LADR_0x03C7
    BTFSS LRAM_0x23,6
    BCF PORTB,2          ; !!Bank!! PORTB - TRISB
    BTFSC LRAM_0x23,6
    BSF PORTB,2          ; !!Bank!! PORTB - TRISB
    BSF PORTB,1          ; !!Bank!! PORTB - TRISB
    NOP
    BCF PORTB,1          ; !!Bank!! PORTB - TRISB
    NOP
    RLF LRAM_0x23,F
    DECFSZ LRAM_0x20,F
    GOTO LADR_0x03C7
    BCF PORTB,2          ; !!Bank!! PORTB - TRISB
    CALL LADR_0x03D7
    CALL LADR_0x03DB
    CALL LADR_0x03DE
    RETURN
LADR_0x03D7
    BSF PORTB,1          ; !!Bank!! PORTB - TRISB
    NOP
    BCF PORTB,1          ; !!Bank!! PORTB - TRISB
    RETURN
LADR_0x03DB
    NOP
    BCF PORTB,2          ; !!Bank!! PORTB - TRISB
    RETURN
LADR_0x03DE
    NOP
    MOVLW 0x01           ;   b'00000001'  d'001'
    SUBWF LRAM_0x2D,W
    BTFSC STATUS,Z
    GOTO LADR_0x03E7
    BSF PORTB,0          ; !!Bank!! PORTB - TRISB
    NOP
    BCF PORTB,0          ; !!Bank!! PORTB - TRISB
    GOTO LADR_0x03EA
LADR_0x03E7
    BSF PORTB,3          ; !!Bank!! PORTB - TRISB
    NOP
    BCF PORTB,3          ; !!Bank!! PORTB - TRISB
LADR_0x03EA
    NOP
    BCF PORTB,2          ; !!Bank!! PORTB - TRISB
    NOP
    RETURN
LADR_0x03EE
    MOVLW 0xFF           ;   b'11111111'  d'255'
    MOVWF LRAM_0x22
LADR_0x03F0
    MOVLW 0xFF           ;   b'11111111'  d'255'
    MOVWF LRAM_0x21
LADR_0x03F2
    DECFSZ LRAM_0x21,F
    GOTO LADR_0x03F2
    DECFSZ LRAM_0x22,F
    GOTO LADR_0x03F0
    RETURN
LADR_0x03F7
    MOVLW 0x14           ;   b'00010100'  d'020'
    MOVWF LRAM_0x22
LADR_0x03F9
    MOVLW 0x3C           ;   b'00111100'  d'060'  "<"
    MOVWF LRAM_0x21
LADR_0x03FB
    DECFSZ LRAM_0x21,F
    GOTO LADR_0x03FB
    DECFSZ LRAM_0x22,F
    GOTO LADR_0x03F9
    RETURN

    End