; 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 ;--------------------------------------------------------------