;i2ckeyb.src
;interface clavier PC 102 touches pour bus I2C
;CPU "80C32"
;M.Benoit le 16-10-1996
 
 
;
; Equate list from CPU file
;
;
P0:      EQU 080H
SP:      EQU 081H
DPL:     EQU 082H
DPH:     EQU 083H
PCON:    EQU 087H
TCON:    EQU 088H
TMOD:    EQU 089H
TL0:     EQU 08AH
TL1:     EQU 08BH
TH0:     EQU 08CH
TH1:     EQU 08DH
P1:      EQU 090H
SCON:    EQU 098H
SBUF:    EQU 099H
P2:      EQU 0A0H
IE:      EQU 0A8H
P3:      EQU 0B0H
IP:      EQU 0B8H
T2CON:   EQU 0C8H
RCAP2L:  EQU 0CAH
RCAP2H:  EQU 0CBH
TL2:     EQU 0CCH
TH2:     EQU 0CDH
PSW:     EQU 0D0H
ACC:     EQU 0E0H
B:       EQU 0F0H
P0.0:    EQU 080H
P0.1:    EQU 081H
P0.2:    EQU 082H
P0.3:    EQU 083H
P0.4:    EQU 084H
P0.5:    EQU 085H
P0.6:    EQU 086H
P0.7:    EQU 087H
IT0:     EQU 088H
IE0:     EQU 089H
IT1:     EQU 08AH
IE1:     EQU 08BH
TR0:     EQU 08CH
TF0:     EQU 08DH
TR1:     EQU 08EH
TF1:     EQU 08FH
P1.0:    EQU 090H
P1.1:    EQU 091H
P1.2:    EQU 092H
P1.3:    EQU 093H
P1.4:    EQU 094H
P1.5:    EQU 095H
P1.6:    EQU 096H
P1.7:    EQU 097H
RI:      EQU 098H
TI:      EQU 099H
RB8:     EQU 09AH
TB8:     EQU 09BH
REN:     EQU 09CH
SM2:     EQU 09DH
SM1:     EQU 09EH
SM0:     EQU 09FH
P2.0:    EQU 0A0H
P2.1:    EQU 0A1H
P2.2:    EQU 0A2H
P2.3:    EQU 0A3H
P2.4:    EQU 0A4H
P2.5:    EQU 0A5H
P2.6:    EQU 0A6H
P2.7:    EQU 0A7H
EX0:     EQU 0A8H
ET0:     EQU 0A9H
EX1:     EQU 0AAH
ET1:     EQU 0ABH
ES:      EQU 0ACH
ET2:     EQU 0ADH
EA:      EQU 0AFH
P3.0:    EQU 0B0H
P3.1:    EQU 0B1H
P3.2:    EQU 0B2H
P3.3:    EQU 0B3H
P3.4:    EQU 0B4H
P3.5:    EQU 0B5H
P3.6:    EQU 0B6H
P3.7:    EQU 0B7H
PX0:     EQU 0B8H
PT0:     EQU 0B9H
PX1:     EQU 0BAH
PT1:     EQU 0BBH
PS:      EQU 0BCH
PT2:     EQU 0BDH
T2CP:    EQU 0C8H
T2C:     EQU 0C9H
TR2:     EQU 0CAH
EXEN2:   EQU 0CBH
TLCK:    EQU 0CCH
RCLK:    EQU 0CDH
EXF2:    EQU 0CEH
TF2:     EQU 0CFH
P:       EQU 0D0H
OV:      EQU 0D2H
RS0:     EQU 0D3H
RS1:     EQU 0D4H
F0:      EQU 0D5H
AC:      EQU 0D6H
CY:      EQU 0D7H
ACC.0:   EQU 0E0H
ACC.1:   EQU 0E1H
ACC.2:   EQU 0E2H
ACC.3:   EQU 0E3H
ACC.4:   EQU 0E4H
ACC.5:   EQU 0E5H
ACC.6:   EQU 0E6H
ACC.7:   EQU 0E7H
B.0:     EQU 0F0H
B.1:     EQU 0F1H
B.2:     EQU 0F2H
B.3:     EQU 0F3H
B.4:     EQU 0F4H
B.5:     EQU 0F5H
B.6:     EQU 0F6H
B.7:     EQU 0F7H
 
;
;
;
         ORG     00000H
;
         AJMP   L0024        ;0000 01 24   .$
;
;
         ORG    00003H
;
         AJMP   L00B0        ;0003 01 B0   ..
;
;
         ORG    0000BH
;
         RETI                ;000B 32   2
;
;
         ORG 00013H
;
         RETI                ;0013 32   2
;
;
         ORG    0001BH
;
         RETI                ;001B 32   2
;
;
         ORG    00023H
;
         RETI                ;0023 32   2
;
;
L0024:   MOV    PCON,#080H   ;0024 75 87 80  u..
         MOV    SP,#035H     ;0027 75 81 35  u.5
         MOV    P2,#000H     ;002A 75 A0 00  u..
         CLR    005H         ;002D C2 05   ..
         CLR    006H         ;002F C2 06   ..
         SETB   008H         ;0031 D2 08   ..
         CLR    007H         ;0033 C2 07   ..
         ACALL  L021F        ;0035 51 1F   Q.
         CLR    P3.5         ;0037 C2 B5   ..
         ACALL  L0138        ;0039 31 38   18
         SETB   P3.5         ;003B D2 B5   ..
         ACALL  L0138        ;003D 31 38   18
         MOV    DPTR,#0F001H ;003F 90 F0 01  ...
         MOV    A,#080H      ;0042 74 80   t.
         MOVX   @DPTR,A      ;0044 F0   .
         MOV    DPTR,#01FFFH ;0045 90 1F FF  ...
         CLR    A            ;0048 E4   .
         MOVC   A,@A+DPTR    ;0049 93   .
         ANL    A,#0FEH      ;004A 54 FE   T.
         RR     A            ;004C 03   .
         MOV    DPTR,#0F000H ;004D 90 F0 00  ...
         MOVX   @DPTR,A      ;0050 F0   .
         INC    DPL          ;0051 05 82   ..
         MOV    A,#0A0H      ;0053 74 A0   t.
         MOVX   @DPTR,A      ;0055 F0   .
         DEC    DPL          ;0056 15 82   ..
         MOV    A,#01CH      ;0058 74 1C   t.
         MOVX   @DPTR,A      ;005A F0   .
         ACALL  L0138        ;005B 31 38   18
         INC    DPL          ;005D 05 82   ..
         MOV    A,#0C9H      ;005F 74 C9   t.
         MOVX   @DPTR,A      ;0061 F0   .
         ACALL  L0138        ;0062 31 38   18
         ACALL  L0138        ;0064 31 38   18
         SETB   EX0          ;0066 D2 A8   ..
         SETB   EA           ;0068 D2 AF   ..
;
L006A:   ACALL  L015D        ;006A 31 5D   1]
         JNC    L0085        ;006C 50 17   P.
         JNB    005H,L007D   ;006E 30 05 0C  0..
         MOV    A,#0FEH      ;0071 74 FE   t.
         CLR    EA           ;0073 C2 AF   ..
         ACALL  L01A9        ;0075 31 A9   1.
         SETB   EA           ;0077 D2 AF   ..
         CLR    005H         ;0079 C2 05   ..
         AJMP   L006A        ;007B 01 6A   .j
;
;
L007D:   ACALL  L021E        ;007D 51 1E   Q.
         JZ     L006A        ;007F 60 E9   `.
         ACALL  L023B        ;0081 51 3B   Q;
         AJMP   L006A        ;0083 01 6A   .j
;
;
L0085:   JNB    006H,L009A   ;0085 30 06 12  0..
         MOV    A,#0EDH      ;0088 74 ED   t.
         ACALL  L01A9        ;008A 31 A9   1.
;
L008C:   ACALL  L015D        ;008C 31 5D   1]
         JNC    L008C        ;008E 50 FC   P.
         MOV    A,030H       ;0090 E5 30   .0
         ACALL  L01A9        ;0092 31 A9   1.
;
L0094:   ACALL  L015D        ;0094 31 5D   1]
         CLR    006H         ;0096 C2 06   ..
         JNC    L0094        ;0098 50 FA   P.
;
L009A:   JNB    008H,L00A7   ;009A 30 08 0A  0..
         MOV    A,#0FFH      ;009D 74 FF   t.
         ACALL  L01A9        ;009F 31 A9   1.
;
L00A1:   ACALL  L015D        ;00A1 31 5D   1]
         JNC    L00A1        ;00A3 50 FC   P.
         CLR    008H         ;00A5 C2 08   ..
;
L00A7:   JNB    007H,L00AE   ;00A7 30 07 04  0..
         ACALL  L021F        ;00AA 51 1F   Q.
         CLR    007H         ;00AC C2 07   ..
;
L00AE:   AJMP   L006A        ;00AE 01 6A   .j
;
;
L00B0:   PUSH   ACC          ;00B0 C0 E0   ..
         PUSH   000H         ;00B2 C0 00   ..
         PUSH   001H         ;00B4 C0 01   ..
         PUSH   002H         ;00B6 C0 02   ..
         PUSH   003H         ;00B8 C0 03   ..
         PUSH   004H         ;00BA C0 04   ..
         PUSH   005H         ;00BC C0 05   ..
         PUSH   006H         ;00BE C0 06   ..
         PUSH   007H         ;00C0 C0 07   ..
         PUSH   DPL          ;00C2 C0 82   ..
         PUSH   DPH          ;00C4 C0 83   ..
         PUSH   PSW          ;00C6 C0 D0   ..
         SETB   005H         ;00C8 D2 05   ..
         CLR    P1.1         ;00CA C2 91   ..
         MOV    DPTR,#0F001H ;00CC 90 F0 01  ...
;
L00CF:   MOVX   A,@DPTR      ;00CF E0   .
         JB     ACC.7,L00CF  ;00D0 20 E7 FC   ..
         JB     ACC.2,L00DB  ;00D3 20 E2 05   ..
         DEC    DPL          ;00D6 15 82   ..
         MOVX   A,@DPTR      ;00D8 E0   .
         SJMP   L00EB        ;00D9 80 10   ..
;
L00DB:   DEC    DPL          ;00DB 15 82   ..
         MOVX   A,@DPTR      ;00DD E0   .
         INC    DPL          ;00DE 05 82   ..
         JZ     L00EB        ;00E0 60 09   `.
         JB     ACC.0,L00E9  ;00E2 20 E0 04   ..
         ACALL  L0104        ;00E5 31 04   1.
         SJMP   L00EB        ;00E7 80 02   ..
;
L00E9:   ACALL  L0121        ;00E9 31 21   1!
;
L00EB:   POP    PSW          ;00EB D0 D0   ..
         POP    DPH          ;00ED D0 83   ..
         POP    DPL          ;00EF D0 82   ..
         POP    007H         ;00F1 D0 07   ..
         POP    006H         ;00F3 D0 06   ..
         POP    005H         ;00F5 D0 05   ..
         POP    004H         ;00F7 D0 04   ..
         POP    003H         ;00F9 D0 03   ..
         POP    002H         ;00FB D0 02   ..
         POP    001H         ;00FD D0 01   ..
         POP    000H         ;00FF D0 00   ..
         POP    ACC          ;0101 D0 E0   ..
         RETI                ;0103 32   2
;
;
L0104:   MOVX   A,@DPTR      ;0104 E0   .
         JB     ACC.5,L011A  ;0105 20 E5 12   ..
         JB     ACC.2,L0120  ;0108 20 E2 15   ..
         JB     ACC.4,L0120  ;010B 20 E4 12   ..
         JB     ACC.7,L0104  ;010E 20 E7 F3   ..
         DEC    DPL          ;0111 15 82   ..
         MOVX   A,@DPTR      ;0113 E0   .
         INC    DPL          ;0114 05 82   ..
         ACALL  L014A        ;0116 31 4A   1J
         SJMP   L0104        ;0118 80 EA   ..
;
L011A:   DEC    DPL          ;011A 15 82   ..
         MOVX   A,@DPTR      ;011C E0   .
         INC    DPL          ;011D 05 82   ..
         RET                 ;011F 22   "
;
;
L0120:   RET                 ;0120 22   "
;
;
L0121:   MOVX   A,@DPTR      ;0121 E0   .
         MOVX   A,@DPTR      ;0122 E0   .
         JB     ACC.7,L0121  ;0123 20 E7 FB   ..
         JB     ACC.3,L0132  ;0126 20 E3 09   ..
         ACALL  L0141        ;0129 31 41   1A
         DEC    DPL          ;012B 15 82   ..
         MOVX   @DPTR,A      ;012D F0   .
         INC    DPL          ;012E 05 82   ..
         SJMP   L0121        ;0130 80 EF   ..
;
L0132:   DEC    DPL          ;0132 15 82   ..
         MOVX   @DPTR,A      ;0134 F0   .
         INC    DPL          ;0135 05 82   ..
         RET                 ;0137 22   "
;
;
L0138:   MOV    R0,#080H     ;0138 78 80   x.
;
L013A:   MOV    R1,#0FFH     ;013A 79 FF   y.
;
L013C:   DJNZ   R1,L013C     ;013C D9 FE   ..
         DJNZ   R0,L013A     ;013E D8 FA   ..
         RET                 ;0140 22   "
;
;
L0141:   JB     009H,L0148   ;0141 20 09 04   ..
         ACALL  L0265        ;0144 51 65   Qe
         SJMP   L0149        ;0146 80 01   ..
;
L0148:   CLR    A            ;0148 E4   .
;
L0149:   RET                 ;0149 22   "
;
;
L014A:   CJNE   A,#080H,L0150;014A B4 80 03  ...
         SETB   007H         ;014D D2 07   ..
         RET                 ;014F 22   "
;
;
L0150:   CJNE   A,#090H,L0156;0150 B4 90 03  ...
         SETB   008H         ;0153 D2 08   ..
         RET                 ;0155 22   "
;
;
L0156:   ANL    A,#007H      ;0156 54 07   T.
         MOV    030H,A       ;0158 F5 30   .0
         SETB   006H         ;015A D2 06   ..
         RET                 ;015C 22   "
;
;
L015D:   MOV    R7,#064H     ;015D 7F 64   .d
         CLR    005H         ;015F C2 05   ..
         SETB   P1.1         ;0161 D2 91   ..
;
L0163:   JNB    P1.0,L016A   ;0163 30 90 04  0..
         DJNZ   R7,L0163     ;0166 DF FB   ..
         AJMP   L01A7        ;0168 21 A7   !.
;
;
L016A:   ACALL  L01EF        ;016A 31 EF   1.
         JB     002H,L01A3   ;016C 20 02 34   .4
         MOV    R0,#008H     ;016F 78 08   x.
;
L0171:   ACALL  L01EF        ;0171 31 EF   1.
         JB     002H,L01A3   ;0173 20 02 2D   .-
         RRC    A            ;0176 13   .
         DJNZ   R0,L0171     ;0177 D8 F8   ..
         ACALL  L01EF        ;0179 31 EF   1.
         JB     002H,L01A3   ;017B 20 02 25   .%
         MOV    003H,C       ;017E 92 03   ..
         ACALL  L01EF        ;0180 31 EF   1.
         JB     002H,L01A3   ;0182 20 02 1E   ..
         CLR    P1.1         ;0185 C2 91   ..
         MOV    R0,#008H     ;0187 78 08   x.
         SETB   000H         ;0189 D2 00   ..
;
L018B:   RRC    A            ;018B 13   .
         JNC    L0190        ;018C 50 02   P.
         CPL    000H         ;018E B2 00   ..
;
L0190:   DJNZ   R0,L018B     ;0190 D8 F9   ..
         RRC    A            ;0192 13   .
         MOV    C,003H       ;0193 A2 03   ..
         JC     L019C        ;0195 40 05   @.
         JB     000H,L01A3   ;0197 20 00 09   ..
         AJMP   L019F        ;019A 21 9F   !.
;
;
L019C:   JNB    000H,L01A3   ;019C 30 00 04  0..
;
L019F:   CLR    004H         ;019F C2 04   ..
         AJMP   L01A5        ;01A1 21 A5   !.
;
;
L01A3:   SETB   004H         ;01A3 D2 04   ..
;
L01A5:   SETB   C            ;01A5 D3   .
         RET                 ;01A6 22   "
;
;
L01A7:   CLR    C            ;01A7 C3   .
         RET                 ;01A8 22   "
;
;
L01A9:   CLR    P1.1         ;01A9 C2 91   ..
         MOV    R0,#008H     ;01AB 78 08   x.
         SETB   001H         ;01AD D2 01   ..
;
L01AF:   RRC    A            ;01AF 13   .
         JNC    L01B4        ;01B0 50 02   P.
         CPL    001H         ;01B2 B2 01   ..
;
L01B4:   DJNZ   R0,L01AF     ;01B4 D8 F9   ..
         RRC    A            ;01B6 13   .
         MOV    R7,#0FFH     ;01B7 7F FF   ..
;
L01B9:   DJNZ   R7,L01B9     ;01B9 DF FE   ..
         CLR    P1.0         ;01BB C2 90   ..
         SETB   P1.1         ;01BD D2 91   ..
         MOV    R6,#00AH     ;01BF 7E 0A   ~.
;
L01C1:   MOV    R7,#0FFH     ;01C1 7F FF   ..
;
L01C3:   JNB    P1.1,L01CF   ;01C3 30 91 09  0..
         DJNZ   R7,L01C3     ;01C6 DF FB   ..
         DJNZ   R6,L01C1     ;01C8 DE F7   ..
;
L01CA:   SETB   P1.0         ;01CA D2 90   ..
         SETB   P1.1         ;01CC D2 91   ..
         RET                 ;01CE 22   "
;
;
L01CF:   MOV    R0,#008H     ;01CF 78 08   x.
;
L01D1:   RRC    A            ;01D1 13   .
         ACALL  L0207        ;01D2 51 07   Q.
         JB     002H,L01CA   ;01D4 20 02 F3   ..
         DJNZ   R0,L01D1     ;01D7 D8 F8   ..
         MOV    C,001H       ;01D9 A2 01   ..
         ACALL  L0207        ;01DB 51 07   Q.
         JB     002H,L01CA   ;01DD 20 02 EA   ..
         SETB   C            ;01E0 D3   .
         ACALL  L0207        ;01E1 51 07   Q.
         JB     002H,L01CA   ;01E3 20 02 E4   ..
         SETB   P1.0         ;01E6 D2 90   ..
         CLR    P1.1         ;01E8 C2 91   ..
         MOV    R7,#0FFH     ;01EA 7F FF   ..
;
L01EC:   DJNZ   R7,L01EC     ;01EC DF FE   ..
         RET                 ;01EE 22   "
;
;
L01EF:   MOV    R7,#00FH     ;01EF 7F 0F   ..
;
L01F1:   JNB    P1.1,L01F9   ;01F1 30 91 05  0..
         DJNZ   R7,L01F1     ;01F4 DF FB   ..
;
L01F6:   SETB   002H         ;01F6 D2 02   ..
         RET                 ;01F8 22   "
;
;
L01F9:   MOV    C,P1.0       ;01F9 A2 90   ..
         MOV    R7,#00FH     ;01FB 7F 0F   ..
;
L01FD:   JB     P1.1,L0204   ;01FD 20 91 04   ..
         DJNZ   R7,L01FD     ;0200 DF FB   ..
         SJMP   L01F6        ;0202 80 F2   ..
;
L0204:   CLR    002H         ;0204 C2 02   ..
         RET                 ;0206 22   "
;
;
L0207:   MOV    R7,#00FH     ;0207 7F 0F   ..
;
L0209:   JB     P1.1,L0210   ;0209 20 91 04   ..
         DJNZ   R7,L0209     ;020C DF FB   ..
         AJMP   L01F6        ;020E 21 F6   !.
;
;
L0210:   MOV    P1.0,C       ;0210 92 90   ..
         MOV    R7,#00FH     ;0212 7F 0F   ..
;
L0214:   JNB    P1.1,L021B   ;0214 30 91 04  0..
         DJNZ   R7,L0214     ;0217 DF FB   ..
         AJMP   L01F6        ;0219 21 F6   !.
;
;
L021B:   CLR    002H         ;021B C2 02   ..
         RET                 ;021D 22   "
;
;
L021E:   RET                 ;021E 22   "
;
;
L021F:   PUSH   DPL          ;021F C0 82   ..
         PUSH   DPH          ;0221 C0 83   ..
         MOV    DPTR,#02000H ;0223 90 20 00  . .
         MOV    032H,DPL     ;0226 85 82 32  ..2
         MOV    031H,DPH     ;0229 85 83 31  ..1
         MOV    034H,DPL     ;022C 85 82 34  ..4
         MOV    033H,DPH     ;022F 85 83 33  ..3
         SETB   009H         ;0232 D2 09   ..
         CLR    00AH         ;0234 C2 0A   ..
         POP    DPH          ;0236 D0 83   ..
         POP    DPL          ;0238 D0 82   ..
         RET                 ;023A 22   "
;
;
L023B:   PUSH   DPL          ;023B C0 82   ..
         PUSH   DPH          ;023D C0 83   ..
         JNB    00AH,L0245   ;023F 30 0A 03  0..
         SETB   C            ;0242 D3   .
         SJMP   L0260        ;0243 80 1B   ..
;
L0245:   MOV    DPL,032H     ;0245 85 32 82  .2.
         MOV    DPH,031H     ;0248 85 31 83  .1.
         MOVX   @DPTR,A      ;024B F0   .
         CLR    009H         ;024C C2 09   ..
         INC    DPTR         ;024E A3   .
         LCALL  L028F        ;024F 12 02 8F  ...
         MOV    032H,DPL     ;0252 85 82 32  ..2
         MOV    031H,DPH     ;0255 85 83 31  ..1
         LCALL  L02A1        ;0258 12 02 A1  ...
         JC     L025F        ;025B 40 02   @.
         SETB   00AH         ;025D D2 0A   ..
;
L025F:   CLR    C            ;025F C3   .
;
L0260:   POP    DPH          ;0260 D0 83   ..
         POP    DPL          ;0262 D0 82   ..
         RET                 ;0264 22   "
;
;
L0265:   PUSH   DPL          ;0265 C0 82   ..
         PUSH   DPH          ;0267 C0 83   ..
         JNB    009H,L026F   ;0269 30 09 03  0..
         SETB   C            ;026C D3   .
         SJMP   L028A        ;026D 80 1B   ..
;
L026F:   MOV    DPL,034H     ;026F 85 34 82  .4.
         MOV    DPH,033H     ;0272 85 33 83  .3.
         MOVX   A,@DPTR      ;0275 E0   .
         CLR    00AH         ;0276 C2 0A   ..
         INC    DPTR         ;0278 A3   .
         LCALL  L028F        ;0279 12 02 8F  ...
         MOV    034H,DPL     ;027C 85 82 34  ..4
         MOV    033H,DPH     ;027F 85 83 33  ..3
         LCALL  L02A1        ;0282 12 02 A1  ...
         JC     L0289        ;0285 40 02   @.
         SETB   009H         ;0287 D2 09   ..
;
L0289:   CLR    C            ;0289 C3   .
;
L028A:   POP    DPH          ;028A D0 83   ..
         POP    DPL          ;028C D0 82   ..
         RET                 ;028E 22   "
;
;
L028F:   PUSH   ACC          ;028F C0 E0   ..
         MOV    A,DPH        ;0291 E5 83   ..
         CJNE   A,#028H,L029E;0293 B4 28 08  .(.
         MOV    A,DPL        ;0296 E5 82   ..
         CJNE   A,#000H,L029E;0298 B4 00 03  ...
         MOV    DPTR,#02000H ;029B 90 20 00  . .
;
L029E:   POP    ACC          ;029E D0 E0   ..
         RET                 ;02A0 22   "
;
;
L02A1:   PUSH   ACC          ;02A1 C0 E0   ..
         MOV    A,032H       ;02A3 E5 32   .2
         CJNE   A,034H,L02B0 ;02A5 B5 34 08  .4.
         MOV    A,031H       ;02A8 E5 31   .1
         CJNE   A,033H,L02B0 ;02AA B5 33 03  .3.
         CLR    C            ;02AD C3   .
         SJMP   L02B1        ;02AE 80 01   ..
;
L02B0:   SETB   C            ;02B0 D3   .
;
L02B1:   POP    ACC          ;02B1 D0 E0   ..
         RET                 ;02B3 22   "
;
         INC    R5           ;02B4 0D   .
         INC    R2           ;02B5 0A   .
         ORL    A,R1         ;02B6 49   I
         XRL    A,R6         ;02B7 6E   n
         MOV    A,#065H      ;02B8 74 65   te
         ORL    C,066H       ;02BA 72 66   rf
         AJMP   L0363        ;02BC 61 63   ac
;
         XRL    A,020H       ;02BE 65 20   e
         ORL    06CH,#061H   ;02C0 43 6C 61  Cla
         MOV    @R0,#069H    ;02C3 76 69   vi
         XRL    A,072H       ;02C5 65 72   er
         JB     070H,L0339   ;02C7 20 70 6F   po
         MOV    072H,#020H   ;02CA 75 72 20  ur
         ORL    075H,A       ;02CD 42 75   Bu
         JMP    @A+DPTR      ;02CF 73   s
;
         JB     049H,L0305   ;02D0 20 49 32   I2
         ORL    020H,#028H   ;02D3 43 20 28  C (
         ORL    029H,#020H   ;02D6 43 29 20  C)
         ORL    A,R5         ;02D9 4D   M
         XRL    A,R7         ;02DA 6F   o
         ORL    C,069H       ;02DB 72 69   ri
         XRL    A,R6         ;02DD 6E   n
         JB     050H,L0342   ;02DE 20 50 61   Pa
         JMP    @A+DPTR      ;02E1 73   s
;
         XRL    061H,#06CH   ;02E2 63 61 6C  cal
         JB     031H,L0321   ;02E5 20 31 39   19
         ADDC   A,R1         ;02E8 39   9
         ADDC   A,020H       ;02E9 35 20   5
         ANL    065H,A       ;02EB 52 65   Re
         MOV    @R0,#020H    ;02ED 76 20   v
         ADDC   A,R2         ;02EF 3A   :
         JB     031H,L0321   ;02F0 20 31 2E   1.
         JNB    030H,L02F6   ;02F3 30 30 00  00.
;
         ORG    01FFFH
;
         DFB    080H         ;1FFF 80   .
;
; Cross-references to LABEL Addresses
;
;
; L0024  =  0000
; L006A  =  007B  007F  0083  00AE
; L007D  =  006E
; L0085  =  006C
; L008C  =  008E
; L0094  =  0098
; L009A  =  0085
; L00A1  =  00A3
; L00A7  =  009A
; L00AE  =  00A7
; L00B0  =  0003
; L00CF  =  00D0
; L00DB  =  00D3
; L00E9  =  00E2
; L00EB  =  00D9  00E0  00E7
; L0104  =  00E5  010E  0118
; L011A  =  0105
; L0120  =  0108  010B
; L0121  =  00E9  0123  0130
; L0132  =  0126
; L0138  =  0039  003D  005B  0062  0064
; L013A  =  013E
; L013C  =  013C
; L0141  =  0129
; L0148  =  0141
; L0149  =  0146
; L014A  =  0116
; L0150  =  014A
; L0156  =  0150
; L015D  =  006A  008C  0094  00A1
; L0163  =  0166
; L016A  =  0163
; L0171  =  0177
; L018B  =  0190
; L0190  =  018C
; L019C  =  0195
; L019F  =  019A
; L01A3  =  016C  0173  017B  0182  0197  019C
; L01A5  =  01A1
; L01A7  =  0168
; L01A9  =  0075  008A  0092  009F
; L01AF  =  01B4
; L01B4  =  01B0
; L01B9  =  01B9
; L01C1  =  01C8
; L01C3  =  01C6
; L01CA  =  01D4  01DD  01E3
; L01CF  =  01C3
; L01D1  =  01D7
; L01EC  =  01EC
; L01EF  =  016A  0171  0179  0180
; L01F1  =  01F4
; L01F6  =  0202  020E  0219
; L01F9  =  01F1
; L01FD  =  0200
; L0204  =  01FD
; L0207  =  01D2  01DB  01E1
; L0209  =  020C
; L0210  =  0209
; L0214  =  0217
; L021B  =  0214
; L021E  =  007D
; L021F  =  0035  00AA
; L023B  =  0081
; L0245  =  023F
; L025F  =  025B
; L0260  =  0243
; L0265  =  0144
; L026F  =  0269
; L0289  =  0285
; L028A  =  026D
; L028F  =  024F  0279
; L029E  =  0293  0298
; L02A1  =  0258  0282
; L02B0  =  02A5  02AA
; L02B1  =  02AE
; L02F6  =  02F3
; L0305  =  02D0
; L0321  =  02E5  02F0
; L0339  =  02C7
; L0342  =  02DE
; L0363  =  02BC
;
; Cross-references to Data Memory
;
;
;  0000  =  00B2  00FF
;  0001  =  00B4  00FD
;  0002  =  00B6  00FB
;  0003  =  00B8  00F9
;  0004  =  00BA  00F7
;  0005  =  00BC  00F5
;  0006  =  00BE  00F3
;  0007  =  00C0  00F1
;  0020  =  02BE  02D3  02E9
;  0029  =  02D6
;  0030  =  0090  0158
;  0031  =  0229  0248  0255  02A8
;  0032  =  0226  0245  0252  02A3
;  0033  =  022F  0272  027F  02AA
;  0034  =  022C  026F  027C  02A5
;  0061  =  02E2
;  0065  =  02EB
;  006C  =  02C0
;  0072  =  02C5  02CA
;  0075  =  02CD
;  0081  =  0027
;  0082  =  0051  0056  005D  00C2  00D6  00DB  00DE  00EF  0111  0114
;           011A  011D  012B  012E  0132  0135  021F  0226  022C  0238
;           023B  0245  0252  0262  0265  026F  027C  028C  0296
;  0083  =  00C4  00ED  0221  0229  022F  0236  023D  0248  0255  0260
;           0267  0272  027F  028A  0291
;  0087  =  0024
;  00A0  =  002A
;  00D0  =  00C6  00EB
;  00E0  =  00B0  0101  028F  029E  02A1  02B1
;
; Cross-references to Bit Addressable Memory
;
;
;  0000  =  0189  018E  0197  019C
;  0001  =  01AD  01B2  01D9
;  0002  =  016C  0173  017B  0182  01D4  01DD  01E3  01F6  0204  021B
;
;  0003  =  017E  0193
;  0004  =  019F  01A3
;  0005  =  002D  006E  0079  00C8  015F
;  0006  =  002F  0085  0096  015A
;  0007  =  0033  00A7  00AC  014D
;  0008  =  0031  009A  00A5  0153
;  0009  =  0141  0232  024C  0269  0287
;  000A  =  0234  023F  025D  0276
;  0030  =  02F3
;  0031  =  02E5  02F0
;  0049  =  02D0
;  0050  =  02DE
;  0066  =  02BA
;  0069  =  02DB
;  0070  =  02C7
;  0090  =  0163  01BB  01CA  01E6  01F9  0210
;  0091  =  00CA  0161  0185  01A9  01BD  01C3  01CC  01E8  01F1  01FD
;           0209  0214
;  00A8  =  0066
;  00AF  =  0068  0073  0077
;  00B5  =  0037  003B
;  00E0  =  00E2
;  00E2  =  00D3  0108
;  00E3  =  0126
;  00E4  =  010B
;  00E5  =  0105
;  00E7  =  00D0  010E  0123
;
; Cross-references to Immediate values
;
;
;  0000  =  002A  0298
;  0007  =  0156
;  0008  =  016F  0187  01AB  01CF
;  000A  =  01BF
;  000F  =  01EF  01FB  0207  0212
;  001C  =  0058
;  0020  =  02CA  02D6  02ED
;  0028  =  0293  02D3
;  0035  =  0027
;  0061  =  02C0
;  0064  =  015D
;  0065  =  02B8
;  0069  =  02C3
;  006C  =  02E2
;  0080  =  0024  0042  0138  014A
;  0090  =  0150
;  00A0  =  0053
;  00C9  =  005F
;  00ED  =  0088
;  00FE  =  004A  0071
;  00FF  =  009D  013A  01B7  01C1  01EA
;  1FFF  =  0045
;  2000  =  0223  029B
;  F000  =  004D
;  F001  =  003F  00CC
;
;
 END
