adds2000_117084-002_P8049AH
; Size: 2048 bytes
; Checksum: A6AD
; CRC-32: 907DCBD3
;
; Date: Sat Mar 05 18:38:52 2022
;
; CPU: Intel 8048 (MCS-48 family)
;
;
;
org 00000H
;
0000 : 24 07 "$ " jmp L0107
;
0002 : 00 " " nop
0003 : A4 00 " " jmp L0500
;
0005 L0005:
0005 : 00 " " nop
0006 : 00 " " nop
0007 : D5 " " sel rb1
0008 : AF " " mov r7,a
0009 : 23 CF "# " mov a,#0CFH
000B : 62 "b" mov t,a
000C : FA " " mov a,r2
000D : C6 11 " " jz L0011
000F : 07 " " dec a
0010 : AA " " mov r2,a
0011 L0011:
0011 : ED 1E " " djnz r5,L001E
0013 : B8 2B " +" mov r0,#02BH
0015 : F0 " " mov a,@r0
0016 : D3 AA " " xrl a,#0AAH
0018 : C6 1C " " jz L001C
001A : 24 01 "$ " jmp L0101
;
001C L001C:
001C : B0 00 " " mov @r0,#000H
001E L001E:
001E : FF " " mov a,r7
001F : C5 " " sel rb0
0020 : 93 " " retr
;
0021 L0021:
0021 : 9A 7F " " anl p2,#07FH
0023 : 00 " " nop
0024 : BA 04 " " mov r2,#004H
0026 L0026:
0026 : EA 26 " &" djnz r2,L0026
0028 : 8A 80 " " orl p2,#080H
002A : 83 " " ret
;
002B L002B:
002B : 8A 80 " " orl p2,#080H
002D : 12 33 " 3" jb0 L0033
002F : 9A BF " " anl p2,#0BFH
0031 : 04 37 " 7" jmp L0037
;
0033 L0033:
0033 : 8A 40 " @" orl p2,#040H
0035 : 00 " " nop
0036 : 00 " " nop
0037 L0037:
0037 : 86 3F " ?" jni L003F
0039 : 00 " " nop
003A : 00 " " nop
003B L003B:
003B : 9A 7F " " anl p2,#07FH
003D : 00 " " nop
003E : 83 " " ret
;
003F L003F:
003F : B5 " " cpl f1
0040 : 04 3B " ;" jmp L003B
0042 : 83 " " ret
;
0043 L0043:
0043 : BA 00 " " mov r2,#000H
0045 : B9 08 " " mov r1,#008H
0047 L0047:
0047 : 12 4A " J" jb0 L004A
0049 : 1A " " inc r2
004A L004A:
004A : 77 "w" rr a
004B : E9 47 " G" djnz r1,L0047
004D : FA " " mov a,r2
004E : 12 54 " T" jb0 L0054
0050 : BB 03 " " mov r3,#003H
0052 : 04 56 " V" jmp L0056
;
0054 L0054:
0054 : BB 02 " " mov r3,#002H
0056 L0056:
0056 : 83 " " ret
;
0057 L0057:
0057 : AA " " mov r2,a
0058 : 0A " " in a,p2
0059 : D2 62 " b" jb6 L0062
005B : FA " " mov a,r2
005C : 15 " " dis i
005D : B9 26 " &" mov r1,#026H
005F : A1 " " mov @r1,a
0060 : 05 " " en i
0061 : 83 " " ret
;
0062 L0062:
0062 : FD " " mov a,r5
0063 : F2 76 " v" jb7 L0076
0065 : B9 20 " " mov r1,#020H
0067 : F1 " " mov a,@r1
0068 : D3 7C " |" xrl a,#07CH
006A : 96 71 " q" jnz L0071
006C : FD " " mov a,r5
006D : 43 80 "C " orl a,#080H
006F : AD " " mov r5,a
0070 : 83 " " ret
;
0071 L0071:
0071 : F1 " " mov a,@r1
0072 : 11 " " inc @r1
0073 : A9 " " mov r1,a
0074 : FA " " mov a,r2
0075 : A1 " " mov @r1,a
0076 L0076:
0076 : 83 " " ret
;
0077 L0077:
0077 : B9 20 " " mov r1,#020H
0079 : F1 " " mov a,@r1
007A : 07 " " dec a
007B : A1 " " mov @r1,a
007C : BA 2F " /" mov r2,#02FH
007E : B9 4E " N" mov r1,#04EH
0080 L0080:
0080 : F1 " " mov a,@r1
0081 : C9 " " dec r1
0082 : A1 " " mov @r1,a
0083 : 19 " " inc r1
0084 : 19 " " inc r1
0085 : EA 80 " " djnz r2,L0080
0087 : B9 7C " |" mov r1,#07CH
0089 : B1 00 " " mov @r1,#000H
008B : FD " " mov a,r5
008C : 53 7F "S " anl a,#07FH
008E : AD " " mov r5,a
008F : 83 " " ret
;
0090 L0090:
0090 : B8 2B " +" mov r0,#02BH
0092 : B0 AA " " mov @r0,#0AAH
0094 : 89 FF " " orl p1,#0FFH
0096 : 8A 1F " " orl p2,#01FH
0098 : BA 00 " " mov r2,#000H
009A : BB 08 " " mov r3,#008H
009C : B8 29 " )" mov r0,#029H
009E : B0 FE " " mov @r0,#0FEH
00A0 L00A0:
00A0 : F0 " " mov a,@r0
00A1 : 39 "9" outl p1,a
00A2 : 94 84 " " call L0484
00A4 : B8 29 " )" mov r0,#029H
00A6 : F0 " " mov a,@r0
00A7 : E7 " " rl a
00A8 : A0 " " mov @r0,a
00A9 : 1A " " inc r2
00AA : EB A0 " " djnz r3,L00A0
00AC : 89 FF " " orl p1,#0FFH
00AE : B0 1E " " mov @r0,#01EH
00B0 : BB 05 " " mov r3,#005H
00B2 L00B2:
00B2 : 0A " " in a,p2
00B3 : 53 E0 "S " anl a,#0E0H
00B5 : 40 "@" orl a,@r0
00B6 : B8 2A " *" mov r0,#02AH
00B8 : 40 "@" orl a,@r0
00B9 : 3A ":" outl p2,a
00BA : 94 84 " " call L0484
00BC : B8 29 " )" mov r0,#029H
00BE : F0 " " mov a,@r0
00BF : 97 " " clr c
00C0 : A7 " " cpl c
00C1 : F7 " " rlc a
00C2 : 53 1F "S " anl a,#01FH
00C4 : A0 " " mov @r0,a
00C5 : 1A " " inc r2
00C6 : EB B2 " " djnz r3,L00B2
00C8 : 8A 1F " " orl p2,#01FH
00CA : BA 0D " " mov r2,#00DH
00CC : BE 00 " " mov r6,#000H
00CE : 56 D2 "V " jt1 L00D2
00D0 : 94 9D " " call L049D
00D2 L00D2:
00D2 : 83 " " ret
;
00D3 L00D3:
00D3 : 27 "'" clr a
00D4 : A8 " " mov r0,a
00D5 : A9 " " mov r1,a
00D6 : AA " " mov r2,a
00D7 L00D7:
00D7 : F8 " " mov a,r0
00D8 : A3 " " movp a,@a
00D9 : 6A "j" add a,r2
00DA : AA " " mov r2,a
00DB : 18 " " inc r0
00DC : E9 D7 " " djnz r1,L00D7
00DE : 24 F1 "$ " jmp L01F1
;
00E0 : 00 " " nop
00E1 : 00 " " nop
00E2 : 00 " " nop
00E3 : 00 " " nop
00E4 : 00 " " nop
00E5 : 00 " " nop
00E6 : 00 " " nop
00E7 : 00 " " nop
00E8 : 00 " " nop
00E9 : 00 " " nop
00EA : 00 " " nop
00EB : 00 " " nop
00EC : 00 " " nop
00ED : 00 " " nop
00EE : 00 " " nop
00EF : 00 " " nop
00F0 : 00 " " nop
00F1 : 00 " " nop
00F2 : 00 " " nop
00F3 : 00 " " nop
00F4 : 00 " " nop
00F5 : 00 " " nop
00F6 : 00 " " nop
00F7 : 00 " " nop
00F8 : 00 " " nop
00F9 : 00 " " nop
00FA : 00 " " nop
00FB : 00 " " nop
00FC : 00 " " nop
00FD : 00 " " nop
00FE : 00 " " nop
00FF L00FF:
00FF : 00 " " nop
0100 L0100:
0100 : 93 " " retr
;
0101 L0101:
0101 : 15 " " dis i
0102 : 35 "5" dis tcnti
0103 : 27 "'" clr a
0104 : D7 " " mov psw,a
0105 : 34 00 "4 " call L0100
0107 L0107:
0107 : 35 "5" dis tcnti
0108 : 15 " " dis i
0109 : 8A 7F " " orl p2,#07FH
010B : 85 " " clr f0
010C : B9 7B " {" mov r1,#07BH
010E : B8 02 " " mov r0,#002H
0110 L0110:
0110 : 23 55 "#U" mov a,#055H
0112 : A0 " " mov @r0,a
0113 : F0 " " mov a,@r0
0114 : D3 55 " U" xrl a,#055H
0116 : C6 1B " " jz L011B
0118 : 95 " " cpl f0
0119 : 24 36 "$6" jmp L0136
;
011B L011B:
011B : A0 " " mov @r0,a
011C : 18 " " inc r0
011D : E9 10 " " djnz r1,L0110
011F : FD " " mov a,r5
0120 : 43 40 "C@" orl a,#040H
0122 : AD " " mov r5,a
0123 : 14 90 " " call L0090
0125 : B8 30 " 0" mov r0,#030H
0127 L0127:
0127 : F0 " " mov a,@r0
0128 : F2 35 " 5" jb7 L0135
012A : 18 " " inc r0
012B : 18 " " inc r0
012C : F8 " " mov a,r0
012D : D3 46 " F" xrl a,#046H
012F : 96 27 " '" jnz L0127
0131 L0131:
0131 : 14 D3 " " call L00D3
0133 : C6 36 " 6" jz L0136
0135 L0135:
0135 : 95 " " cpl f0
0136 L0136:
0136 : B9 7B " {" mov r1,#07BH
0138 : B8 02 " " mov r0,#002H
013A L013A:
013A : B0 00 " " mov @r0,#000H
013C : 18 " " inc r0
013D : E9 3A " :" djnz r1,L013A
013F : B8 27 " '" mov r0,#027H
0141 : B0 02 " " mov @r0,#002H
0143 : B6 47 " G" jf0 L0147
0145 : 24 49 "$I" jmp L0149
;
0147 L0147:
0147 : B0 00 " " mov @r0,#000H
0149 L0149:
0149 : 74 D2 "t " call L03D2
014B : 99 DF " " anl p1,#0DFH
014D : B9 20 " " mov r1,#020H
014F : B1 4D " M" mov @r1,#04DH
0151 : 0A " " in a,p2
0152 L0152:
0152 : D2 5F " _" jb6 L015F
0154 : 9A 7F " " anl p2,#07FH
0156 : B9 2A " *" mov r1,#02AH
0158 : B1 00 " " mov @r1,#000H
015A : BD 40 " @" mov r5,#040H
015C : 05 " " en i
015D : 24 70 "$p" jmp L0170
;
015F L015F:
015F : 74 D2 "t " call L03D2
0161 : BD 40 " @" mov r5,#040H
0163 : 23 FD "# " mov a,#0FDH
0165 : B6 69 " i" jf0 L0169
0167 : 23 AA "# " mov a,#0AAH
0169 L0169:
0169 : 14 57 " W" call L0057
016B : 55 "U" strt t
016C : 25 "%" en tcnti
016D : 85 " " clr f0
016E : B4 A0 " " call L05A0
0170 L0170:
0170 : 14 90 " " call L0090
0172 : 34 83 "4 " call L0183
0174 : B4 C2 " " call L05C2
0176 : 54 00 "T " call L0200
0178 : 94 40 " @" call L0440
017A : 0A " " in a,p2
017B L017B:
017B : D2 7F " " jb6 L017F
017D : 24 70 "$p" jmp L0170
;
017F L017F:
017F : 36 70 "6p" jt0 L0170
0181 : C4 53 " S" jmp L0653
;
0183 L0183:
0183 : B9 27 " '" mov r1,#027H
0185 : F1 " " mov a,@r1
0186 : 53 DF "S " anl a,#0DFH
0188 : A1 " " mov @r1,a
0189 : B8 30 " 0" mov r0,#030H
018B L018B:
018B : 94 36 " 6" call L0436
018D : B4 C2 " " call L05C2
018F : 94 3B " ;" call L043B
0191 : F0 " " mov a,@r0
0192 : F2 96 " " jb7 L0196
0194 : 24 E9 "$ " jmp L01E9
;
0196 L0196:
0196 : 92 9C " " jb4 L019C
0198 : B2 CA " " jb5 L01CA
019A : 24 D1 "$ " jmp L01D1
;
019C L019C:
019C : 53 EF "S " anl a,#0EFH
019E : A0 " " mov @r0,a
019F : 53 07 "S " anl a,#007H
01A1 : D3 06 " " xrl a,#006H
01A3 : 96 AA " " jnz L01AA
01A5 : F0 " " mov a,@r0
01A6 : 43 20 "C " orl a,#020H
01A8 : 24 E8 "$ " jmp L01E8
;
01AA L01AA:
01AA : 10 " " inc @r0
01AB : F0 " " mov a,@r0
01AC : 53 07 "S " anl a,#007H
01AE : D3 04 " " xrl a,#004H
01B0 : 96 E9 " " jnz L01E9
01B2 : 0A " " in a,p2
01B3 : D2 E9 " " jb6 L01E9
01B5 : 18 " " inc r0
01B6 : F0 " " mov a,@r0
01B7 : 94 5D " ]" call L045D
01B9 : F9 " " mov a,r1
01BA : 96 BE " " jnz L01BE
01BC : 24 C2 "$ " jmp L01C2
;
01BE L01BE:
01BE : D3 01 " " xrl a,#001H
01C0 : 96 EA " " jnz L01EA
01C2 L01C2:
01C2 : B9 27 " '" mov r1,#027H
01C4 : F1 " " mov a,@r1
01C5 : 53 FE "S " anl a,#0FEH
01C7 : A1 " " mov @r1,a
01C8 : 24 EA "$ " jmp L01EA
;
01CA L01CA:
01CA : 53 07 "S " anl a,#007H
01CC : 96 E2 " " jnz L01E2
01CE : F0 " " mov a,@r0
01CF : 72 D7 "r " jb3 L01D7
01D1 L01D1:
01D1 : 27 "'" clr a
01D2 : A0 " " mov @r0,a
01D3 : 18 " " inc r0
01D4 : A0 " " mov @r0,a
01D5 : 24 EA "$ " jmp L01EA
;
01D7 L01D7:
01D7 : B9 27 " '" mov r1,#027H
01D9 : F1 " " mov a,@r1
01DA : 43 20 "C " orl a,#020H
01DC : A1 " " mov @r1,a
01DD : F0 " " mov a,@r0
01DE : 43 40 "C@" orl a,#040H
01E0 : 24 E8 "$ " jmp L01E8
;
01E2 L01E2:
01E2 : F0 " " mov a,@r0
01E3 : 53 7F "S " anl a,#07FH
01E5 : 07 " " dec a
01E6 : 43 80 "C " orl a,#080H
01E8 L01E8:
01E8 : A0 " " mov @r0,a
01E9 L01E9:
01E9 : 18 " " inc r0
01EA L01EA:
01EA : 18 " " inc r0
01EB : F8 " " mov a,r0
01EC : D3 46 " F" xrl a,#046H
01EE : 96 8B " " jnz L018B
01F0 : 83 " " ret
;
01F1 L01F1:
01F1 : F8 " " mov a,r0
01F2 : A3 " " movp a,@a
01F3 : 6A "j" add a,r2
01F4 : AA " " mov r2,a
01F5 : 18 " " inc r0
01F6 : E9 F1 " " djnz r1,L01F1
01F8 : 44 F2 "D " jmp L02F2
;
01FA : 00 " " nop
01FB : 00 " " nop
01FC : 00 " " nop
01FD : 00 " " nop
01FE : 00 " " nop
01FF : 00 " " nop
0200 L0200:
0200 : 85 " " clr f0
0201 : B8 4D " M" mov r0,#04DH
0203 : F0 " " mov a,@r0
0204 : C6 11 " " jz L0211
0206 : 95 " " cpl f0
0207 : 94 00 " " call L0400
0209 : B6 11 " " jf0 L0211
020B L020B:
020B : 14 77 " w" call L0077
020D : B4 C2 " " call L05C2
020F : 44 00 "D " jmp L0200
;
0211 L0211:
0211 : 85 " " clr f0
0212 : B8 30 " 0" mov r0,#030H
0214 L0214:
0214 : 0A " " in a,p2
0215 : D2 1E " " jb6 L021E
0217 L0217:
0217 : B9 26 " &" mov r1,#026H
0219 : F1 " " mov a,@r1
021A : C6 1E " " jz L021E
021C : 44 17 "D " jmp L0217
;
021E L021E:
021E : F0 " " mov a,@r0
021F : F2 2F " /" jb7 L022F
0221 L0221:
0221 : 18 " " inc r0
0222 L0222:
0222 : 18 " " inc r0
0223 : 94 36 " 6" call L0436
0225 : B4 C2 " " call L05C2
0227 : 94 3B " ;" call L043B
0229 : F8 " " mov a,r0
022A : D3 46 " F" xrl a,#046H
022C : 96 14 " " jnz L0214
022E : 83 " " ret
;
022F L022F:
022F : B9 20 " " mov r1,#020H
0231 : F1 " " mov a,@r1
0232 : B9 2D " -" mov r1,#02DH
0234 : A1 " " mov @r1,a
0235 : F0 " " mov a,@r0
0236 : B2 3A " :" jb5 L023A
0238 : 44 21 "D!" jmp L0221
;
023A L023A:
023A : 72 8A "r " jb3 L028A
023C : 0A " " in a,p2
023D : D2 55 " U" jb6 L0255
023F : B9 27 " '" mov r1,#027H
0241 : F1 " " mov a,@r1
0242 : B2 21 " !" jb5 L0221
0244 : 18 " " inc r0
0245 : F0 " " mov a,@r0
0246 L0246:
0246 : 94 5D " ]" call L045D
0248 : F9 " " mov a,r1
0249 : C6 54 " T" jz L0254
024B : D3 01 " " xrl a,#001H
024D : C6 54 " T" jz L0254
024F : B9 27 " '" mov r1,#027H
0251 : F1 " " mov a,@r1
0252 : 12 22 " "" jb0 L0222
0254 L0254:
0254 : C8 " " dec r0
0255 L0255:
0255 : F4 63 " c" call L0763
0257 : F6 21 " !" jc L0221
0259 : 18 " " inc r0
025A : 94 36 " 6" call L0436
025C : 0A " " in a,p2
025D : D2 69 " i" jb6 L0269
025F : F0 " " mov a,@r0
0260 : 03 69 " i" add a,#069H
0262 : E3 " " movp3 a,@a
0263 : F2 82 " " jb7 L0282
0265 : B9 24 " $" mov r1,#024H
0267 : B1 28 " (" mov @r1,#028H
0269 L0269:
0269 : F0 " " mov a,@r0
026A : 94 73 " s" call L0473
026C : 94 3B " ;" call L043B
026E : FD " " mov a,r5
026F : F2 DE " " jb7 L02DE
0271 : B9 21 " !" mov r1,#021H
0273 : F1 " " mov a,@r1
0274 : B9 1A " " mov r1,#01AH
0276 : A1 " " mov @r1,a
0277 : F0 " " mov a,@r0
0278 : B9 23 " #" mov r1,#023H
027A : A1 " " mov @r1,a
027B : C8 " " dec r0
027C : F0 " " mov a,@r0
027D : 43 08 "C " orl a,#008H
027F : A0 " " mov @r0,a
0280 : 44 21 "D!" jmp L0221
;
0282 L0282:
0282 : B9 27 " '" mov r1,#027H
0284 : F1 " " mov a,@r1
0285 : 53 FE "S " anl a,#0FEH
0287 : A1 " " mov @r1,a
0288 : 44 69 "Di" jmp L0269
;
028A L028A:
028A : D2 8E " " jb6 L028E
028C : 44 21 "D!" jmp L0221
;
028E L028E:
028E : 18 " " inc r0
028F : 94 36 " 6" call L0436
0291 : F0 " " mov a,@r0
0292 : AE " " mov r6,a
0293 : 0A " " in a,p2
0294 : D2 BB " " jb6 L02BB
0296 : FE " " mov a,r6
0297 : 94 5D " ]" call L045D
0299 : F9 " " mov a,r1
029A : C6 C3 " " jz L02C3
029C : D3 01 " " xrl a,#001H
029E : C6 B1 " " jz L02B1
02A0 : F9 " " mov a,r1
02A1 : D3 02 " " xrl a,#002H
02A3 : 96 AC " " jnz L02AC
02A5 : B8 23 " #" mov r0,#023H
02A7 : F0 " " mov a,@r0
02A8 : D3 4B " K" xrl a,#04BH
02AA : C6 B1 " " jz L02B1
02AC L02AC:
02AC : B8 27 " '" mov r0,#027H
02AE : F0 " " mov a,@r0
02AF : 12 B7 " " jb0 L02B7
02B1 L02B1:
02B1 : 23 ED "# " mov a,#0EDH
02B3 : 69 "i" add a,r1
02B4 : A3 " " movp a,@a
02B5 : 44 C1 "D " jmp L02C1
;
02B7 L02B7:
02B7 : 94 3B " ;" call L043B
02B9 : 44 22 "D"" jmp L0222
;
02BB L02BB:
02BB : 23 F0 "# " mov a,#0F0H
02BD : 14 57 " W" call L0057
02BF : FE " " mov a,r6
02C0 : E3 " " movp3 a,@a
02C1 L02C1:
02C1 : 14 57 " W" call L0057
02C3 L02C3:
02C3 : 94 3B " ;" call L043B
02C5 : FD " " mov a,r5
02C6 : F2 DE " " jb7 L02DE
02C8 : F0 " " mov a,@r0
02C9 : B9 23 " #" mov r1,#023H
02CB : D1 " " xrl a,@r1
02CC : 96 D6 " " jnz L02D6
02CE : B1 00 " " mov @r1,#000H
02D0 : B9 27 " '" mov r1,#027H
02D2 : F1 " " mov a,@r1
02D3 : 53 FE "S " anl a,#0FEH
02D5 : A1 " " mov @r1,a
02D6 L02D6:
02D6 : 94 3B " ;" call L043B
02D8 : 27 "'" clr a
02D9 : A0 " " mov @r0,a
02DA : C8 " " dec r0
02DB : A0 " " mov @r0,a
02DC : 44 21 "D!" jmp L0221
;
02DE L02DE:
02DE : B9 2D " -" mov r1,#02DH
02E0 : F1 " " mov a,@r1
02E1 : B9 20 " " mov r1,#020H
02E3 : A1 " " mov @r1,a
02E4 : A9 " " mov r1,a
02E5 L02E5:
02E5 : B1 00 " " mov @r1,#000H
02E7 : F9 " " mov a,r1
02E8 : 19 " " inc r1
02E9 : D3 7C " |" xrl a,#07CH
02EB : 96 E5 " " jnz L02E5
02ED : 83 " " ret
02EE : 64 65 "de" jmp L0365
;
02F0 : 66 "f" db 066H
;
02F1 : 67 "g" rrc a
02F2 L02F2:
02F2 : F8 " " mov a,r0
02F3 : A3 " " movp a,@a
02F4 : 6A "j" add a,r2
02F5 : AA " " mov r2,a
02F6 : 18 " " inc r0
02F7 : E9 F2 " " djnz r1,L02F2
02F9 : 64 E7 "d " jmp L03E7
;
02FB : 00 " " nop
02FC : 00 " " nop
02FD : 00 " " nop
02FE : 00 " " nop
02FF : 00 " " nop
0300 : 0C " " movd a,p4
0301 : 26 24 "&$" jnt0 L0324
0303 : 1B " " inc r3
0304 : 6C "l" add a,r4
;
0305 : A6 " " db 0A6H
;
0306 L0306:
0306 : 5C "\" anl a,r4
0307 : 21 "!" xch a,@r1
0308 L0308:
0308 : 03 25 " %" add a,#025H
030A : 2D "-" xch a,r5
030B : 23 75 "#u" mov a,#075H
030D L030D:
030D : A5 " " clr f1
030E : 95 " " cpl f0
030F : 2A "*" xch a,r2
;
0310 : 0B " " db 00BH
;
0311 : 2E "." xch a,r6
0312 : 2C "," xch a,r4
0313 : 2B "+" xch a,r3
0314 : 7D "}" addc a,r5
0315 L0315:
0315 : A7 " " cpl c
0316 : 96 32 " 2" jnz L0332
0318 L0318:
0318 : 02 " " outl bus,a
0319 : 36 35 "65" jt0 L0335
031B : 34 7B "4{" call L017B
031D : A4 9B " " jmp L059B
;
031F : 31 "1" xchd a,@r1
0320 : 0A " " in a,p2
0321 : 3D "=" movd p5,a
0322 : 3C "<" movd p4,a
;
0323 : 33 "3" db 033H
;
0324 L0324:
0324 : 5A "Z" anl a,r2
0325 : 5D "]" anl a,r5
0326 : 29 ")" xch a,r1
0327 : 3A ":" outl p2,a
;
0328 : 01 " " db 001H
;
0329 L0329:
0329 : 3E ">" movd p6,a
032A : 43 3B "C;" orl a,#03BH
032C : 6B "k" add a,r3
032D : 69 "i" add a,r1
032E : FF " " mov a,r7
032F : 41 "A" orl a,@r1
0330 : 09 " " in a,p1
0331 : 46 44 "FD" jnt1 L0344
0333 : 42 "B" mov a,t
;
0334 : 73 "s" db 073H
;
0335 L0335:
0335 : 72 70 "rp" jb3 L0370
0337 : 49 "I" orl a,r1
0338 : 07 " " dec a
0339 : 45 "E" strt cnt
033A : 4D "M" orl a,r5
033B : 4B "K" orl a,r3
033C : 74 7A "tz" call L037A
033E : 71 "q" addc a,@r1
033F : 4A "J" orl a,r2
0340 : 84 9A " " jmp L049A
;
0342 : 7C "|" addc a,r4
0343 : 11 " " inc @r1
0344 L0344:
0344 : 5B "[" anl a,r3
0345 : 55 "U" strt t
0346 : 0F " " movd a,p7
0347 : 93 " " retr
;
0348 : 05 " " en i
0349 : 76 0D "v " jf1 L030D
034B : 94 FF " " call L04FF
034D : 0E " " movd a,p6
034E : 10 " " inc @r0
034F : 12 06 " " jb0 L0306
0351 : 16 15 " " jtf L0315
0353 : 58 "X" anl a,r0
0354 : 0C " " movd a,p4
;
0355 : 66 "f" db 066H
;
0356 : 90 " " movx @r0,a
0357 L0357:
0357 : 1A " " inc r2
0358 : 04 1E " " jmp L001E
;
035A : 1D " " inc r5
035B : 1C " " inc r4
035C : FF " " mov a,r7
035D : FF " " mov a,r7
035E : 91 " " movx @r1,a
;
035F : 22 """ db 022H
;
0360 : 08 " " ins a,bus
0361 : 4E "N" orl a,r6
0362 : 54 4C "TL" call L024C
0364 : 6A "j" add a,r2
0365 L0365:
0365 : 78 "x" addc a,r0
0366 : 52 59 "RY" jb2 L0359
0368 : 14 26 " &" call L0026
;
036A : 33 "3" db 033H
;
036B : 45 "E" strt cnt
036C : 53 07 "S " anl a,#007H
036E : 0A " " in a,p2
;
036F : 01 " " db 001H
;
0370 L0370:
0370 : 43 28 "C(" orl a,#028H
0372 : 34 52 "4R" call L0152
0374 : 44 0B "D " jmp L020B
;
0376 : 15 " " dis i
0377 : 62 "b" mov t,a
0378 : 56 29 "V)" jt1 L0329
037A L037A:
037A : 35 "5" dis tcnti
037B : 54 46 "TF" call L0246
037D : 0E " " movd a,p6
;
037E : 06 63 " c" db 006H, 063H
;
0380 : 42 "B" mov a,t
0381 : 2A "*" xch a,r2
0382 : 36 59 "6Y" jt0 L0359
0384 : 47 "G" swap a
0385 : 0F " " movd a,p7
0386 : 1A " " inc r2
0387 : 0C " " movd a,p4
0388 : 4E "N" orl a,r6
0389 : 2B "+" xch a,r3
038A : 37 "7" cpl a
038B : 55 "U" strt t
038C : 48 "H" orl a,r0
038D : 0D " " movd a,p5
038E : 5C "\" anl a,r4
038F : 20 " " xch a,@r0
0390 : 4D "M" orl a,r5
0391 : 3A ":" outl p2,a
;
0392 : 38 "8" db 038H
;
0393 : 49 "I" orl a,r1
0394 : 4A "J" orl a,r2
0395 : 10 " " inc @r0
0396 : 14 FF " " call L00FF
0398 : 2C "," xch a,r4
0399 : 3C "<" movd p4,a
039A : 39 "9" outl p1,a
039B : 4F "O" orl a,r7
039C : 4B "K" orl a,r3
039D : 11 " " inc @r1
039E : 16 18 " " jtf L0318
03A0 : 2E "." xch a,r6
03A1 : 3E ">" movd p6,a
03A2 : 30 "0" xchd a,@r0
03A3 : 50 "P" anl a,@r0
03A4 : 4C "L" orl a,r4
03A5 : 12 17 " " jb0 L0317
03A7 : 19 " " inc r1
03A8 : 2F "/" xch a,r7
03A9 : 9D " " anld p5,a
03AA : 9E " " anld p6,a
03AB : 9F " " anld p7,a
03AC : A1 " " mov @r1,a
03AD : 5D "]" anl a,r5
03AE : 3D "=" movd p5,a
03AF : 40 "@" orl a,@r0
;
03B0 : A2 " " db 0A2H
;
03B1 : 23 1B "# " mov a,#01BH
03B3 : 09 " " in a,p1
03B4 : 02 " " outl bus,a
03B5 : FF " " mov a,r7
03B6 : 60 "`" add a,@r0
03B7 : 5E "^" anl a,r6
03B8 : 85 " " clr f0
03B9 : 24 31 "$1" jmp L0131
;
03BB : 51 "Q" anl a,@r1
03BC : 83 " " ret
;
03BD : 26 08 "& " jnt0 L0308
03BF : 5F "_" anl a,r7
03C0 : 5A "Z" anl a,r2
03C1 : 25 "%" en tcnti
03C2 : 32 57 "2W" jb1 L0357
03C4 : 41 "A" orl a,@r1
03C5 : FF " " mov a,r7
03C6 : FF " " mov a,r7
03C7 : 61 "a" add a,@r1
03C8 : 58 "X" anl a,r0
03C9 : 3F "?" movd p7,a
03CA : 2D "-" xch a,r5
03CB : 5B "[" anl a,r3
;
03CC : 3B ";" db 03BH
;
03CD : 13 1C " " addc a,#01CH
03CF : 27 "'" clr a
03D0 : 85 " " clr f0
03D1 : 84 B8 " " jmp L04B8
;
03D3 : 06 " " db 006H
;
03D4 L03D4:
03D4 : B9 36 " 6" mov r1,#036H
03D6 L03D6:
03D6 : BA C8 " " mov r2,#0C8H
03D8 L03D8:
03D8 : EA D8 " " djnz r2,L03D8
03DA : E9 D6 " " djnz r1,L03D6
03DC : E8 D4 " " djnz r0,L03D4
03DE : 9A EF " " anl p2,#0EFH
03E0 : B9 03 " " mov r1,#003H
03E2 L03E2:
03E2 : E9 E2 " " djnz r1,L03E2
03E4 : 8A 10 " " orl p2,#010H
03E6 : 83 " " ret
;
03E7 L03E7:
03E7 : F8 " " mov a,r0
03E8 : A3 " " movp a,@a
03E9 : 6A "j" add a,r2
03EA : AA " " mov r2,a
03EB : 18 " " inc r0
03EC : E9 E7 " " djnz r1,L03E7
03EE : 84 DD " " jmp L04DD
;
03F0 : 00 " " nop
03F1 : 00 " " nop
03F2 : 00 " " nop
03F3 : 00 " " nop
03F4 : 00 " " nop
03F5 : 00 " " nop
03F6 : 00 " " nop
03F7 : 00 " " nop
03F8 : 00 " " nop
03F9 : 00 " " nop
03FA : 00 " " nop
03FB : 00 " " nop
03FC : 00 " " nop
03FD : 00 " " nop
03FE : 00 " " nop
03FF : 00 " " nop
0400 L0400:
0400 : AE " " mov r6,a
0401 : 14 43 " C" call L0043
0403 : FE " " mov a,r6
0404 : 86 08 " " jni L0408
0406 : 36 09 "6 " jt0 L0409
0408 L0408:
0408 : 83 " " ret
;
0409 L0409:
0409 : 35 "5" dis tcnti
040A : A5 " " clr f1
040B : 9A BF " " anl p2,#0BFH
040D : 9A 7F " " anl p2,#07FH
040F : B9 01 " " mov r1,#001H
0411 L0411:
0411 : E9 11 " " djnz r1,L0411
0413 : BA 02 " " mov r2,#002H
0415 : B9 08 " " mov r1,#008H
0417 L0417:
0417 : 14 2B " +" call L002B
0419 : 76 26 "v&" jf1 L0426
041B : 77 "w" rr a
041C : E9 17 " " djnz r1,L0417
041E : FB " " mov a,r3
041F L041F:
041F : 14 2B " +" call L002B
0421 : A5 " " clr f1
0422 : 00 " " nop
0423 : 77 "w" rr a
0424 : EA 1F " " djnz r2,L041F
0426 L0426:
0426 : FE " " mov a,r6
0427 : 8A C0 " " orl p2,#0C0H
0429 : 25 "%" en tcnti
042A : 76 08 "v " jf1 L0408
042C : D3 FE " " xrl a,#0FEH
042E : C6 34 " 4" jz L0434
0430 : FE " " mov a,r6
0431 : B9 25 " %" mov r1,#025H
0433 : A1 " " mov @r1,a
0434 L0434:
0434 : 85 " " clr f0
0435 : 83 " " ret
;
0436 L0436:
0436 : B9 28 " (" mov r1,#028H
0438 : F8 " " mov a,r0
0439 : A1 " " mov @r1,a
043A : 83 " " ret
;
043B L043B:
043B : B9 28 " (" mov r1,#028H
043D : F1 " " mov a,@r1
043E : A8 " " mov r0,a
043F : 83 " " ret
;
0440 L0440:
0440 : B8 23 " #" mov r0,#023H
0442 : F0 " " mov a,@r0
0443 : C6 5C " \" jz L045C
0445 : 0A " " in a,p2
0446 : D2 49 " I" jb6 L0449
0448 : 83 " " ret
;
0449 L0449:
0449 : B9 1A " " mov r1,#01AH
044B : F1 " " mov a,@r1
044C : 96 5C " \" jnz L045C
044E : B8 22 " "" mov r0,#022H
0450 : F0 " " mov a,@r0
0451 : A1 " " mov @r1,a
0452 : 18 " " inc r0
0453 : B9 4D " M" mov r1,#04DH
0455 : F1 " " mov a,@r1
0456 : 96 5C " \" jnz L045C
0458 : F0 " " mov a,@r0
0459 : E3 " " movp3 a,@a
045A : 14 57 " W" call L0057
045C L045C:
045C : 83 " " ret
;
045D L045D:
045D : 03 69 " i" add a,#069H
045F : E3 " " movp3 a,@a
0460 : 53 7F "S " anl a,#07FH
0462 : AF " " mov r7,a
0463 : B9 04 " " mov r1,#004H
0465 L0465:
0465 : 23 6E "#n" mov a,#06EH
0467 : 69 "i" add a,r1
0468 : A3 " " movp a,@a
0469 : DF " " xrl a,r7
046A : C6 6E " n" jz L046E
046C : E9 65 " e" djnz r1,L0465
046E L046E:
046E : 83 " " ret
;
046F : 1B " " inc r3
0470 : 02 " " outl bus,a
0471 : 04 05 " " jmp L0005
;
0473 L0473:
0473 : AE " " mov r6,a
0474 : 0A " " in a,p2
0475 : D2 7F " " jb6 L047F
0477 : FE " " mov a,r6
0478 : 03 69 " i" add a,#069H
047A : E3 " " movp3 a,@a
047B : 53 7F "S " anl a,#07FH
047D : 84 81 " " jmp L0481
;
047F L047F:
047F : FE " " mov a,r6
0480 : E3 " " movp3 a,@a
0481 L0481:
0481 : 14 57 " W" call L0057
0483 : 83 " " ret
;
0484 L0484:
0484 : 08 " " ins a,bus
0485 : 37 "7" cpl a
0486 : C6 92 " " jz L0492
0488 : BC 08 " " mov r4,#008H
048A : BE 00 " " mov r6,#000H
048C L048C:
048C : 12 93 " " jb0 L0493
048E L048E:
048E : 77 "w" rr a
048F : 1E " " inc r6
0490 : EC 8C " " djnz r4,L048C
0492 L0492:
0492 : 83 " " ret
;
0493 L0493:
0493 : B8 28 " (" mov r0,#028H
0495 : A0 " " mov @r0,a
0496 : 94 9D " " call L049D
0498 : B8 28 " (" mov r0,#028H
049A L049A:
049A : F0 " " mov a,@r0
049B : 84 8E " " jmp L048E
;
049D L049D:
049D : FA " " mov a,r2
049E : E7 " " rl a
049F : E7 " " rl a
04A0 : E7 " " rl a
04A1 : 4E "N" orl a,r6
04A2 : 96 A6 " " jnz L04A6
04A4 : 23 54 "#T" mov a,#054H
04A6 L04A6:
04A6 : A9 " " mov r1,a
04A7 : B8 2C " ," mov r0,#02CH
04A9 : A0 " " mov @r0,a
04AA : B8 30 " 0" mov r0,#030H
04AC L04AC:
04AC : F0 " " mov a,@r0
04AD : F2 D2 " " jb7 L04D2
04AF : 18 " " inc r0
04B0 L04B0:
04B0 : 18 " " inc r0
04B1 : F8 " " mov a,r0
04B2 : D3 46 " F" xrl a,#046H
04B4 : 96 AC " " jnz L04AC
04B6 : B4 C2 " " call L05C2
04B8 L04B8:
04B8 : B8 30 " 0" mov r0,#030H
04BA L04BA:
04BA : FD " " mov a,r5
04BB : 37 "7" cpl a
04BC : D2 D1 " " jb6 L04D1
04BE : F0 " " mov a,@r0
04BF : F2 CA " " jb7 L04CA
04C1 : 23 90 "# " mov a,#090H
04C3 : A0 " " mov @r0,a
04C4 : 18 " " inc r0
04C5 : B9 2C " ," mov r1,#02CH
04C7 : F1 " " mov a,@r1
04C8 : A0 " " mov @r0,a
04C9 : 83 " " ret
;
04CA L04CA:
04CA : 18 " " inc r0
04CB : 18 " " inc r0
04CC : F8 " " mov a,r0
04CD : D3 46 " F" xrl a,#046H
04CF : 96 BA " " jnz L04BA
04D1 L04D1:
04D1 : 83 " " ret
;
04D2 L04D2:
04D2 : 18 " " inc r0
04D3 : F0 " " mov a,@r0
04D4 : D9 " " xrl a,r1
04D5 : 96 B0 " " jnz L04B0
04D7 : C8 " " dec r0
04D8 : F0 " " mov a,@r0
04D9 : 43 10 "C " orl a,#010H
04DB : A0 " " mov @r0,a
04DC : 83 " " ret
;
04DD L04DD:
04DD : F8 " " mov a,r0
04DE : A3 " " movp a,@a
04DF : 6A "j" add a,r2
04E0 : AA " " mov r2,a
04E1 : 18 " " inc r0
04E2 : E9 DD " " djnz r1,L04DD
04E4 : A4 DD " " jmp L05DD
;
04E6 : 00 " " nop
04E7 : 00 " " nop
04E8 : 00 " " nop
04E9 : 00 " " nop
04EA : 00 " " nop
04EB : 00 " " nop
04EC : 00 " " nop
04ED : 00 " " nop
04EE : 00 " " nop
04EF : 00 " " nop
04F0 : 00 " " nop
04F1 : 00 " " nop
04F2 : 00 " " nop
04F3 : 00 " " nop
04F4 : 00 " " nop
04F5 : 00 " " nop
04F6 : 00 " " nop
04F7 : 00 " " nop
04F8 : 00 " " nop
04F9 : 00 " " nop
04FA : 00 " " nop
04FB : 00 " " nop
04FC : 00 " " nop
04FD : 00 " " nop
04FE : 00 " " nop
04FF L04FF:
04FF : 00 " " nop
0500 L0500:
0500 : 86 00 " " jni L0500
0502 : D5 " " sel rb1
0503 : AF " " mov r7,a
0504 : BC 03 " " mov r4,#003H
0506 L0506:
0506 : 86 0D " " jni L050D
0508 : EC 06 " " djnz r4,L0506
050A : 97 " " clr c
050B : A4 0F " " jmp L050F
;
050D L050D:
050D : 97 " " clr c
050E : A7 " " cpl c
050F L050F:
050F : B8 2A " *" mov r0,#02AH
0511 : FE " " mov a,r6
0512 : F7 " " rlc a
0513 : AE " " mov r6,a
0514 : 53 0F "S " anl a,#00FH
0516 : D3 0C " " xrl a,#00CH
0518 : 96 20 " " jnz L0520
051A : B0 00 " " mov @r0,#000H
051C : 9A DF " " anl p2,#0DFH
051E : A4 28 " (" jmp L0528
;
0520 L0520:
0520 : D3 01 " " xrl a,#001H
0522 : 96 28 " (" jnz L0528
0524 : B0 20 " " mov @r0,#020H
0526 : 8A 20 " " orl p2,#020H
0528 L0528:
0528 : B8 26 " &" mov r0,#026H
052A : F0 " " mov a,@r0
052B : C6 31 " 1" jz L0531
052D : B4 7C " |" call L057C
052F : B0 00 " " mov @r0,#000H
0531 L0531:
0531 : B8 23 " #" mov r0,#023H
0533 : F0 " " mov a,@r0
0534 : C6 53 " S" jz L0553
0536 : B9 24 " $" mov r1,#024H
0538 : F1 " " mov a,@r1
0539 : C6 3F " ?" jz L053F
053B : 07 " " dec a
053C : A1 " " mov @r1,a
053D : A4 62 " b" jmp L0562
;
053F L053F:
053F : F0 " " mov a,@r0
0540 : 03 69 " i" add a,#069H
0542 : E3 " " movp3 a,@a
0543 : F2 62 " b" jb7 L0562
0545 : B1 03 " " mov @r1,#003H
0547 : 53 7F "S " anl a,#07FH
0549 : B4 7C " |" call L057C
054B : B9 27 " '" mov r1,#027H
054D : F1 " " mov a,@r1
054E : 43 01 "C " orl a,#001H
0550 : A1 " " mov @r1,a
0551 : A4 62 " b" jmp L0562
;
0553 L0553:
0553 : B9 27 " '" mov r1,#027H
0555 : F1 " " mov a,@r1
0556 : 32 5A "2Z" jb1 L055A
0558 : A4 6A " j" jmp L056A
;
055A L055A:
055A : FE " " mov a,r6
055B : 67 "g" rrc a
055C : E6 6A " j" jnc L056A
055E : 23 FE "# " mov a,#0FEH
0560 : B4 7C " |" call L057C
0562 L0562:
0562 : B8 27 " '" mov r0,#027H
0564 : F0 " " mov a,@r0
0565 : 53 FD "S " anl a,#0FDH
0567 : A0 " " mov @r0,a
0568 L0568:
0568 : 86 68 " h" jni L0568
056A L056A:
056A : CD " " dec r5
056B : FD " " mov a,r5
056C : 96 79 " y" jnz L0579
056E : B8 2B " +" mov r0,#02BH
0570 : F0 " " mov a,@r0
0571 : D3 AA " " xrl a,#0AAH
0573 : C6 77 " w" jz L0577
0575 : 24 01 "$ " jmp L0101
;
0577 L0577:
0577 : B0 00 " " mov @r0,#000H
0579 L0579:
0579 : FF " " mov a,r7
057A : C5 " " sel rb0
057B : 93 " " retr
;
057C L057C:
057C : BB 23 " #" mov r3,#023H
057E L057E:
057E : EB 7E " ~" djnz r3,L057E
0580 : BB 08 " " mov r3,#008H
0582 L0582:
0582 : 8A 80 " " orl p2,#080H
0584 : BA 02 " " mov r2,#002H
0586 L0586:
0586 : EA 86 " " djnz r2,L0586
0588 : 67 "g" rrc a
0589 : F6 93 " " jc L0593
058B : 9A 7F " " anl p2,#07FH
058D : BA 16 " " mov r2,#016H
058F L058F:
058F : EA 8F " " djnz r2,L058F
0591 : A4 99 " " jmp L0599
;
0593 L0593:
0593 : BA 16 " " mov r2,#016H
0595 L0595:
0595 : EA 95 " " djnz r2,L0595
0597 : 9A 7F " " anl p2,#07FH
0599 L0599:
0599 : BA 31 " 1" mov r2,#031H
059B L059B:
059B : EA 9B " " djnz r2,L059B
059D : EB 82 " " djnz r3,L0582
059F : 83 " " ret
;
05A0 L05A0:
05A0 : B8 21 " !" mov r0,#021H
05A2 : B0 7D " }" mov @r0,#07DH
05A4 : 18 " " inc r0
05A5 : B0 16 " " mov @r0,#016H
05A7 : 83 " " ret
;
05A8 L05A8:
05A8 : 23 FA "# " mov a,#0FAH
05AA L05AA:
05AA : AC " " mov r4,a
05AB L05AB:
05AB : FC " " mov a,r4
05AC : 85 " " clr f0
05AD : 95 " " cpl f0
05AE L05AE:
05AE : 94 00 " " call L0400
05B0 : B6 AB " " jf0 L05AB
05B2 : 83 " " ret
;
05B3 L05B3:
05B3 : B8 4D " M" mov r0,#04DH
05B5 L05B5:
05B5 : 27 "'" clr a
05B6 : A0 " " mov @r0,a
05B7 : 18 " " inc r0
05B8 : 23 7C "#|" mov a,#07CH
05BA : D8 " " xrl a,r0
05BB : 96 B5 " " jnz L05B5
05BD : B8 20 " " mov r0,#020H
05BF : B0 4C " L" mov @r0,#04CH
05C1 : 83 " " ret
;
05C2 L05C2:
05C2 : 0A " " in a,p2
05C3 : 37 "7" cpl a
05C4 : D2 CD " " jb6 L05CD
05C6 : B9 1A " " mov r1,#01AH
05C8 : F1 " " mov a,@r1
05C9 : 96 CD " " jnz L05CD
05CB : 94 40 " @" call L0440
05CD L05CD:
05CD : 83 " " ret
;
05CE L05CE:
05CE : 23 FE "# " mov a,#0FEH
05D0 : B4 AA " " call L05AA
05D2 : C4 D7 " " jmp L06D7
;
05D4 L05D4:
05D4 : FE " " mov a,r6
05D5 : F2 CE " " jb7 L05CE
05D7 : F4 29 " )" call L0729
05D9 : B4 A8 " " call L05A8
05DB : C4 D3 " " jmp L06D3
;
05DD L05DD:
05DD : F8 " " mov a,r0
05DE : A3 " " movp a,@a
05DF : 6A "j" add a,r2
05E0 : AA " " mov r2,a
05E1 : 18 " " inc r0
05E2 : E9 DD " " djnz r1,L05DD
05E4 : C4 DE " " jmp L06DE
;
05E6 : 00 " " nop
05E7 : 00 " " nop
05E8 : 00 " " nop
05E9 : 00 " " nop
05EA : 00 " " nop
05EB : 00 " " nop
05EC : 00 " " nop
05ED : 00 " " nop
05EE : 00 " " nop
05EF : 00 " " nop
05F0 : 00 " " nop
05F1 : 00 " " nop
05F2 : 00 " " nop
05F3 : 00 " " nop
05F4 : 00 " " nop
05F5 : 00 " " nop
05F6 : 00 " " nop
05F7 : 00 " " nop
05F8 : 00 " " nop
05F9 : 00 " " nop
05FA : 00 " " nop
05FB : 00 " " nop
05FC : 00 " " nop
05FD : 00 " " nop
05FE : 00 " " nop
05FF : 00 " " nop
0600 L0600:
0600 : B8 2B " +" mov r0,#02BH
0602 : B0 AA " " mov @r0,#0AAH
0604 : 36 00 "6 " jt0 L0600
0606 : 35 "5" dis tcnti
0607 L0607:
0607 : 8A 80 " " orl p2,#080H
0609 : 86 07 " " jni L0607
060B : 00 " " nop
060C : A5 " " clr f1
060D : 26 10 "& " jnt0 L0610
060F : B5 " " cpl f1
0610 L0610:
0610 : BC 08 " " mov r4,#008H
0612 L0612:
0612 : 97 " " clr c
0613 : 14 21 " !" call L0021
0615 : 26 18 "& " jnt0 L0618
0617 : A7 " " cpl c
0618 L0618:
0618 : 67 "g" rrc a
0619 : EC 12 " " djnz r4,L0612
061B : AE " " mov r6,a
061C : 14 21 " !" call L0021
061E : 85 " " clr f0
061F : 36 23 "6#" jt0 L0623
0621 : C4 24 " $" jmp L0624
;
0623 L0623:
0623 : 95 " " cpl f0
0624 L0624:
0624 : 00 " " nop
0625 : 00 " " nop
0626 : 00 " " nop
0627 : 14 21 " !" call L0021
0629 : 36 2F "6/" jt0 L062F
062B : A5 " " clr f1
062C : B5 " " cpl f1
062D : C4 24 " $" jmp L0624
;
062F L062F:
062F : 9A BF " " anl p2,#0BFH
0631 : 14 21 " !" call L0021
0633 : 8A 40 " @" orl p2,#040H
0635 : 25 "%" en tcnti
0636 : 76 4C "vL" jf1 L064C
0638 : FE " " mov a,r6
0639 : 97 " " clr c
063A : B9 08 " " mov r1,#008H
063C L063C:
063C : 12 3F " ?" jb0 L063F
063E : A7 " " cpl c
063F L063F:
063F : 77 "w" rr a
0640 : E9 3C " <" djnz r1,L063C
0642 : F6 48 " H" jc L0648
0644 : B6 4A " J" jf0 L064A
0646 : C4 4C " L" jmp L064C
;
0648 L0648:
0648 : B6 4C " L" jf0 L064C
064A L064A:
064A : 85 " " clr f0
064B : 83 " " ret
;
064C L064C:
064C : 23 FE "# " mov a,#0FEH
064E : B4 AA " " call L05AA
0650 : 85 " " clr f0
0651 : 95 " " cpl f0
0652 : 83 " " ret
;
0653 L0653:
0653 : D4 00 " " call L0600
0655 : B6 D7 " " jf0 L06D7
0657 : FE " " mov a,r6
0658 : 97 " " clr c
0659 : 03 13 " " add a,#013H
065B : F6 5F " _" jc L065F
065D : E4 00 " " jmp L0700
;
065F L065F:
065F : 03 62 " b" add a,#062H
0661 : B3 " " jmpp @a ;INFO: indirect jump
;
0662 : 75 "u" ent0 clk
0663 : 7D "}" addc a,r5
0664 : 83 " " ret
0665 : 83 " " ret
0666 : 83 " " ret
0667 : 83 " " ret
;
0668 : 87 " " db 087H
;
0669 : 9C " " anld p4,a
066A : A4 AE " " jmp L05AE
066C : 83 " " ret
066D : 83 " " ret
066E : 83 " " ret
066F : 83 " " ret
0670 : 83 " " ret
0671 : 83 " " ret
0672 : 83 " " ret
;
0673 : B8 BF " " mov r0,#0BFH
0675 : B8 1C " " mov r0,#01CH
0677 : B0 20 " " mov @r0,#020H
0679 : B4 A8 " " call L05A8
067B : C4 53 " S" jmp L0653
;
067D : 23 EE "# " mov a,#0EEH
067F : B4 AA " " call L05AA
0681 : C4 D3 " " jmp L06D3
;
0683 : B4 A8 " " call L05A8
0685 : C4 D7 " " jmp L06D7
;
0687 : B8 1C " " mov r0,#01CH
0689 : B0 02 " " mov @r0,#002H
068B : B4 A8 " " call L05A8
068D : C4 53 " S" jmp L0653
;
068F L068F:
068F : B4 B3 " " call L05B3
0691 : B4 A8 " " call L05A8
0693 : B8 23 " #" mov r0,#023H
0695 : B0 00 " " mov @r0,#000H
0697 : B8 1C " " mov r0,#01CH
0699 : B0 00 " " mov @r0,#000H
069B : 83 " " ret
;
069C : D4 8F " " call L068F
069E : FD " " mov a,r5
069F : 43 40 "C@" orl a,#040H
06A1 : AD " " mov r5,a
06A2 : 24 70 "$p" jmp L0170
;
06A4 : B4 A0 " " call L05A0
06A6 : D4 8F " " call L068F
06A8 : FD " " mov a,r5
06A9 : 53 BF "S " anl a,#0BFH
06AB : AD " " mov r5,a
06AC : 24 70 "$p" jmp L0170
;
06AE : B4 A0 " " call L05A0
06B0 : D4 8F " " call L068F
06B2 : FD " " mov a,r5
06B3 : 43 40 "C@" orl a,#040H
06B5 : AD " " mov r5,a
06B6 : 24 70 "$p" jmp L0170
;
06B8 : B8 25 " %" mov r0,#025H
06BA : F0 " " mov a,@r0
06BB : B4 AA " " call L05AA
06BD : C4 D3 " " jmp L06D3
;
06BF : B4 B3 " " call L05B3
06C1 : B4 A8 " " call L05A8
06C3 : BA 64 " d" mov r2,#064H
06C5 L06C5:
06C5 : B9 21 " !" mov r1,#021H
06C7 L06C7:
06C7 : 36 CB "6 " jt0 L06CB
06C9 : C4 53 " S" jmp L0653
;
06CB L06CB:
06CB : 86 C7 " " jni L06C7
06CD : E9 C7 " " djnz r1,L06C7
06CF : EA C5 " " djnz r2,L06C5
06D1 : 24 07 "$ " jmp L0107
;
06D3 L06D3:
06D3 : B8 1C " " mov r0,#01CH
06D5 : B0 00 " " mov @r0,#000H
06D7 L06D7:
06D7 : FD " " mov a,r5
06D8 : D2 DC " " jb6 L06DC
06DA : C4 53 " S" jmp L0653
06DC L06DC:
06DC : 24 70 "$p" jmp L0170
;
06DE L06DE:
06DE : F8 " " mov a,r0
06DF : A3 " " movp a,@a
06E0 : 6A "j" add a,r2
06E1 : AA " " mov r2,a
06E2 : 18 " " inc r0
06E3 : E9 DE " " djnz r1,L06DE
06E5 : E4 EC " " jmp L07EC
;
06E7 : 00 " " nop
06E8 : 00 " " nop
06E9 : 00 " " nop
06EA : 00 " " nop
06EB : 00 " " nop
06EC : 00 " " nop
06ED : 00 " " nop
06EE : 00 " " nop
06EF : 00 " " nop
06F0 : 00 " " nop
06F1 : 00 " " nop
06F2 : 00 " " nop
06F3 : 00 " " nop
06F4 : 00 " " nop
06F5 : 00 " " nop
06F6 : 00 " " nop
06F7 : 00 " " nop
06F8 : 00 " " nop
06F9 : 00 " " nop
06FA : 00 " " nop
06FB : 00 " " nop
06FC : 00 " " nop
06FD : 00 " " nop
06FE : 00 " " nop
06FF : 00 " " nop
0700 L0700:
0700 : B8 1C " " mov r0,#01CH
0702 : F0 " " mov a,@r0
0703 : C6 25 " %" jz L0725
0705 : 32 27 "2'" jb1 L0727
0707 : FE " " mov a,r6
0708 : 53 F8 "S " anl a,#0F8H
070A : 96 25 " %" jnz L0725
070C : B8 2A " *" mov r0,#02AH
070E : FE " " mov a,r6
070F : 52 17 "R " jb2 L0717
0711 : B0 00 " " mov @r0,#000H
0713 : 9A DF " " anl p2,#0DFH
0715 : E4 1B " " jmp L071B
;
0717 L0717:
0717 : 8A 20 " " orl p2,#020H
0719 : B0 20 " " mov @r0,#020H
071B L071B:
071B : B4 A8 " " call L05A8
071D : B8 1C " " mov r0,#01CH
071F : F0 " " mov a,@r0
0720 : 53 DF "S " anl a,#0DFH
0722 : A0 " " mov @r0,a
0723 : C4 D3 " " jmp L06D3
0725 L0725:
0725 : A4 CE " " jmp L05CE
0727 L0727:
0727 : A4 D4 " " jmp L05D4
;
0729 L0729:
0729 : AA " " mov r2,a
072A : 53 1F "S " anl a,#01FH
072C : 03 43 " C" add a,#043H
072E : A3 " " movp a,@a
072F : B8 22 " "" mov r0,#022H
0731 : A0 " " mov @r0,a
0732 : FA " " mov a,r2
0733 : E7 " " rl a
0734 : E7 " " rl a
0735 : E7 " " rl a
0736 L0736:
0736 : 53 03 "S " anl a,#003H
0738 : 03 3F " ?" add a,#03FH
073A : A3 " " movp a,@a
073B : B8 21 " !" mov r0,#021H
073D : A0 " " mov @r0,a
073E : 83 " " ret
;
073F : 3F "?" movd p7,a
0740 : 7B "{" addc a,r3
0741 : BA FA " " mov r2,#0FAH
0743 : 08 " " ins a,bus
0744 : 09 " " in a,p1
0745 : 0A " " in a,p2
;
0746 : 0B " " db 00BH
;
0747 : 0C " " movd a,p4
0748 : 0E " " movd a,p6
0749 : 0F " " movd a,p7
074A : 10 " " inc @r0
074B : 11 " " inc @r1
074C : 13 15 " " addc a,#015H
074E : 17 " " inc a
074F : 19 " " inc r1
0750 : 1B " " inc r3
0751 : 1D " " inc r5
0752 : 1F " " inc r7
0753 : 21 "!" xch a,@r1
0754 : 25 "%" en tcnti
0755 : 2A "*" xch a,r2
0756 : 2E "." xch a,r6
0757 : 32 36 "26" jb1 L0736
0759 : 3A ":" outl p2,a
075A : 3E ">" movd p6,a
075B : 43 4B "CK" orl a,#04BH
075D : 53 5C "S\" anl a,#05CH
075F : 64 6D "dm" jmp L036D
;
0761 : 77 "w" rr a
0762 : 7D "}" addc a,r5
0763 L0763:
0763 : 94 36 " 6" call L0436
0765 : B8 30 " 0" mov r0,#030H
0767 L0767:
0767 : F0 " " mov a,@r0
0768 : F2 75 " u" jb7 L0775
076A : 18 " " inc r0
076B L076B:
076B : 18 " " inc r0
076C : F8 " " mov a,r0
076D : D3 44 " D" xrl a,#044H
076F : 96 67 " g" jnz L0767
0771 L0771:
0771 : 94 3B " ;" call L043B
0773 : 97 " " clr c
0774 : 83 " " ret
;
0775 L0775:
0775 : 18 " " inc r0
0776 : F0 " " mov a,@r0
0777 : 53 F8 "S " anl a,#0F8H
0779 : D3 68 " h" xrl a,#068H
077B : C6 71 " q" jz L0771
077D : F8 " " mov a,r0
077E : A9 " " mov r1,a
077F : 19 " " inc r1
0780 L0780:
0780 : F1 " " mov a,@r1
0781 : F2 8C " " jb7 L078C
0783 : 19 " " inc r1
0784 L0784:
0784 : 19 " " inc r1
0785 : F9 " " mov a,r1
0786 : D3 46 " F" xrl a,#046H
0788 : 96 80 " " jnz L0780
078A : E4 6B " k" jmp L076B
;
078C L078C:
078C : F0 " " mov a,@r0
078D : AC " " mov r4,a
078E : 19 " " inc r1
078F : F1 " " mov a,@r1
0790 : D3 68 " h" xrl a,#068H
0792 : C6 71 " q" jz L0771
0794 : F1 " " mov a,@r1
0795 : D0 " " xrl a,@r0
0796 : 53 F8 "S " anl a,#0F8H
0798 : C6 A2 " " jz L07A2
079A : F1 " " mov a,@r1
079B : D0 " " xrl a,@r0
079C : 53 07 "S " anl a,#007H
079E : C6 BD " " jz L07BD
07A0 : E4 84 " " jmp L0784
;
07A2 L07A2:
07A2 : F1 " " mov a,@r1
07A3 : AA " " mov r2,a
07A4 : B9 30 " 0" mov r1,#030H
07A6 L07A6:
07A6 : F9 " " mov a,r1
07A7 : D3 46 " F" xrl a,#046H
07A9 : C6 6B " k" jz L076B
07AB : F1 " " mov a,@r1
07AC : F2 B2 " " jb7 L07B2
07AE : 19 " " inc r1
07AF L07AF:
07AF : 19 " " inc r1
07B0 : E4 A6 " " jmp L07A6
;
07B2 L07B2:
07B2 : 19 " " inc r1
07B3 : F1 " " mov a,@r1
07B4 : DA " " xrl a,r2
07B5 : C6 AF " " jz L07AF
07B7 : 53 07 "S " anl a,#007H
07B9 : C6 E0 " " jz L07E0
07BB : E4 AF " " jmp L07AF
;
07BD L07BD:
07BD : F1 " " mov a,@r1
07BE : AA " " mov r2,a
07BF : B9 30 " 0" mov r1,#030H
07C1 L07C1:
07C1 : F9 " " mov a,r1
07C2 : D3 46 " F" xrl a,#046H
07C4 : C6 6B " k" jz L076B
07C6 : F1 " " mov a,@r1
07C7 : F2 CD " " jb7 L07CD
07C9 : 19 " " inc r1
07CA L07CA:
07CA : 19 " " inc r1
07CB : E4 C1 " " jmp L07C1
;
07CD L07CD:
07CD : 19 " " inc r1
07CE : F1 " " mov a,@r1
07CF : DA " " xrl a,r2
07D0 : C6 CA " " jz L07CA
07D2 : 53 F8 "S " anl a,#0F8H
07D4 : C6 E0 " " jz L07E0
07D6 : F1 " " mov a,@r1
07D7 : DC " " xrl a,r4
07D8 : C6 CA " " jz L07CA
07DA : 53 F8 "S " anl a,#0F8H
07DC : C6 E0 " " jz L07E0
07DE : E4 CA " " jmp L07CA
;
07E0 L07E0:
07E0 : B9 23 " #" mov r1,#023H
07E2 : B1 00 " " mov @r1,#000H
07E4 : 94 3B " ;" call L043B
07E6 : 97 " " clr c
07E7 : A7 " " cpl c
07E8 : 83 " " ret
;
07E9 : 00 " " nop
07EA : 00 " " nop
07EB : 00 " " nop
07EC L07EC:
07EC : B9 E9 " " mov r1,#0E9H
07EE L07EE:
07EE : F8 " " mov a,r0
07EF : A3 " " movp a,@a
07F0 : 6A "j" add a,r2
07F1 : AA " " mov r2,a
07F2 : 18 " " inc r0
07F3 : E9 EE " " djnz r1,L07EE
07F5 : FA " " mov a,r2
07F6 : 03 30 " 0" add a,#030H
07F8 : 00 " " nop
07F9 : 83 " " ret
;
07FA : 00 " " nop
07FB : 00 " " nop
07FC : 00 " " nop
07FD : 00 " " nop
07FE : 00 " " nop
;
07FF : ED " " db 0EDH
;--------------------------------------------------------------
Symbol table
============
Value Type Name
----- ---- ----
0005 Code L0005
0011 Code L0011
001C Code L001C
001E Code L001E
0021 Code L0021
0026 Code L0026
002B Code L002B
0033 Code L0033
0037 Code L0037
003B Code L003B
003F Code L003F
0043 Code L0043
0047 Code L0047
004A Code L004A
0054 Code L0054
0056 Code L0056
0057 Code L0057
0062 Code L0062
0071 Code L0071
0076 Code L0076
0077 Code L0077
0080 Code L0080
0090 Code L0090
00A0 Code L00A0
00B2 Code L00B2
00D2 Code L00D2
00D3 Code L00D3
00D7 Code L00D7
00FF Code L00FF
0100 Code L0100
0101 Code L0101
0107 Code L0107
0110 Code L0110
011B Code L011B
0127 Code L0127
0131 Code L0131
0135 Code L0135
0136 Code L0136
013A Code L013A
0147 Code L0147
0149 Code L0149
0152 Code L0152
015F Code L015F
0169 Code L0169
0170 Code L0170
017B Code L017B
017F Code L017F
0183 Code L0183
018B Code L018B
0196 Code L0196
019C Code L019C
01AA Code L01AA
01BE Code L01BE
01C2 Code L01C2
01CA Code L01CA
01D1 Code L01D1
01D7 Code L01D7
01E2 Code L01E2
01E8 Code L01E8
01E9 Code L01E9
01EA Code L01EA
01F1 Code L01F1
0200 Code L0200
020B Code L020B
0211 Code L0211
0214 Code L0214
0217 Code L0217
021E Code L021E
0221 Code L0221
0222 Code L0222
022F Code L022F
023A Code L023A
0246 Code L0246
024C Code L024C
0254 Code L0254
0255 Code L0255
0269 Code L0269
0282 Code L0282
028A Code L028A
028E Code L028E
02AC Code L02AC
02B1 Code L02B1
02B7 Code L02B7
02BB Code L02BB
02C1 Code L02C1
02C3 Code L02C3
02D6 Code L02D6
02DE Code L02DE
02E5 Code L02E5
02F2 Code L02F2
0306 Code L0306
0308 Code L0308
030D Code L030D
0315 Code L0315
0317 Code L0317
0318 Code L0318
0324 Code L0324
0329 Code L0329
0332 Code L0332
0335 Code L0335
0344 Code L0344
0357 Code L0357
0359 Code L0359
0365 Code L0365
036D Code L036D
0370 Code L0370
037A Code L037A
03D2 Code L03D2
03D4 Code L03D4
03D6 Code L03D6
03D8 Code L03D8
03E2 Code L03E2
03E7 Code L03E7
0400 Code L0400
0408 Code L0408
0409 Code L0409
0411 Code L0411
0417 Code L0417
041F Code L041F
0426 Code L0426
0434 Code L0434
0436 Code L0436
043B Code L043B
0440 Code L0440
0449 Code L0449
045C Code L045C
045D Code L045D
0465 Code L0465
046E Code L046E
0473 Code L0473
047F Code L047F
0481 Code L0481
0484 Code L0484
048C Code L048C
048E Code L048E
0492 Code L0492
0493 Code L0493
049A Code L049A
049D Code L049D
04A6 Code L04A6
04AC Code L04AC
04B0 Code L04B0
04B8 Code L04B8
04BA Code L04BA
04CA Code L04CA
04D1 Code L04D1
04D2 Code L04D2
04DD Code L04DD
04FF Code L04FF
0500 Code L0500
0506 Code L0506
050D Code L050D
050F Code L050F
0520 Code L0520
0528 Code L0528
0531 Code L0531
053F Code L053F
0553 Code L0553
055A Code L055A
0562 Code L0562
0568 Code L0568
056A Code L056A
0577 Code L0577
0579 Code L0579
057C Code L057C
057E Code L057E
0582 Code L0582
0586 Code L0586
058F Code L058F
0593 Code L0593
0595 Code L0595
0599 Code L0599
059B Code L059B
05A0 Code L05A0
05A8 Code L05A8
05AA Code L05AA
05AB Code L05AB
05AE Code L05AE
05B3 Code L05B3
05B5 Code L05B5
05C2 Code L05C2
05CD Code L05CD
05CE Code L05CE
05D4 Code L05D4
05DD Code L05DD
0600 Code L0600
0607 Code L0607
0610 Code L0610
0612 Code L0612
0618 Code L0618
0623 Code L0623
0624 Code L0624
062F Code L062F
063C Code L063C
063F Code L063F
0648 Code L0648
064A Code L064A
064C Code L064C
0653 Code L0653
065F Code L065F
068F Code L068F
06C5 Code L06C5
06C7 Code L06C7
06CB Code L06CB
06D3 Code L06D3
06D7 Code L06D7
06DC Code L06DC
06DE Code L06DE
0700 Code L0700
0717 Code L0717
071B Code L071B
0725 Code L0725
0727 Code L0727
0729 Code L0729
0736 Code L0736
0763 Code L0763
0767 Code L0767
076B Code L076B
0771 Code L0771
0775 Code L0775
0780 Code L0780
0784 Code L0784
078C Code L078C
07A2 Code L07A2
07A6 Code L07A6
07AF Code L07AF
07B2 Code L07B2
07BD Code L07BD
07C1 Code L07C1
07CA Code L07CA
07CD Code L07CD
07E0 Code L07E0
07EC Code L07EC
07EE Code L07EE
Number of symbols: 234
;--------------------------------------------------------------