; ; Disassembled by: ; DASMx object code disassembler ; (c) Copyright 1996-2003 Conquest Consultants ; Version 1.40 (Oct 18 2003) ; ; File: C:02082716.bin ; ; Size: 2048 bytes ; Checksum: D5A3 ; CRC-32: D9873165 ; ; Date: Fri Sep 27 04:17:00 2024 ; ; CPU: Intel 8048 (MCS-48 family) ; ; ; org 00000H ; 0000 : 04 09 " " jmp L0009 ; 0002 : 00 " " nop 0003 : 64 00 "d " jmp L0300 ; 0005 : 00 " " nop 0006 : 00 " " nop 0007 : E4 31 " 1" jmp L0731 ; 0009 L0009: 0009 : 99 03 " " anl p1,#003H 000B : 75 "u" ent0 clk 000C : BA 20 " " mov r2,#020H 000E L000E: 000E : EA 0E " " djnz r2,L000E 0010 : 99 00 " " anl p1,#000H 0012 : 27 "'" clr a 0013 : B8 3F " ?" mov r0,#03FH 0015 L0015: 0015 : A0 " " mov @r0,a 0016 : E8 15 " " djnz r0,L0015 0018 : 9A FC " " anl p2,#0FCH 001A : B8 FF " " mov r0,#0FFH 001C L001C: 001C : 90 " " movx @r0,a 001D : E8 1C " " djnz r0,L001C 001F : 90 " " movx @r0,a 0020 : B8 2B " +" mov r0,#02BH 0022 : B0 00 " " mov @r0,#000H 0024 : 23 AD "# " mov a,#0ADH 0026 : B8 C3 " " mov r0,#0C3H 0028 : 90 " " movx @r0,a 0029 : B8 C4 " " mov r0,#0C4H 002B : 90 " " movx @r0,a 002C : 23 CD "# " mov a,#0CDH 002E : B8 CA " " mov r0,#0CAH 0030 : 90 " " movx @r0,a 0031 : B8 CB " " mov r0,#0CBH 0033 : 90 " " movx @r0,a 0034 : B8 29 " )" mov r0,#029H 0036 : B0 01 " " mov @r0,#001H 0038 : B8 2A " *" mov r0,#02AH 003A : B0 FF " " mov @r0,#0FFH 003C : 23 26 "#&" mov a,#026H 003E : B8 3C " <" mov r0,#03CH 0040 : A0 " " mov @r0,a 0041 : 23 4E "#N" mov a,#04EH 0043 : 14 E2 " " call L00E2 0045 : F4 00 " " call L0700 0047 : 23 C8 "# " mov a,#0C8H 0049 : 62 "b" mov t,a 004A : 55 "U" strt t 004B : 25 "%" en tcnti 004C L004C: 004C : 05 " " en i 004D : 14 68 " h" call L0068 004F : 34 0B "4 " call L010B 0051 : 54 19 "T " call L0219 0053 L0053: 0053 : 15 " " dis i 0054 : 42 "B" mov a,t 0055 : 37 "7" cpl a 0056 : 53 FC "S " anl a,#0FCH 0058 : C6 4C " L" jz L004C 005A : B9 CC " " mov r1,#0CCH 005C : 81 " " movx a,@r1 005D : C6 4C " L" jz L004C 005F : BB CA " " mov r3,#0CAH 0061 : 54 D0 "T " call L02D0 0063 : 05 " " en i 0064 : B4 24 " $" call L0524 0066 : 04 53 " S" jmp L0053 ; 0068 L0068: 0068 : B8 20 " " mov r0,#020H 006A : F0 " " mov a,@r0 006B : 17 " " inc a 006C : 53 07 "S " anl a,#007H 006E : A0 " " mov @r0,a 006F : AA " " mov r2,a 0070 : E7 " " rl a 0071 : A8 " " mov r0,a 0072 : 23 F7 "# " mov a,#0F7H 0074 : 3A ":" outl p2,a 0075 : 90 " " movx @r0,a 0076 : FA " " mov a,r2 0077 : 14 CD " " call L00CD 0079 : A9 " " mov r1,a 007A L007A: 007A : 46 7A "Fz" jnt1 L007A 007C : 80 " " movx a,@r0 007D : AA " " mov r2,a 007E : 18 " " inc r0 007F : 90 " " movx @r0,a 0080 : 00 " " nop 0081 : 00 " " nop 0082 : 00 " " nop 0083 : 00 " " nop 0084 : 00 " " nop 0085 L0085: 0085 : 46 85 "F " jnt1 L0085 0087 : 80 " " movx a,@r0 0088 : AB " " mov r3,a 0089 : 23 FC "# " mov a,#0FCH 008B : 3A ":" outl p2,a 008C : F9 " " mov a,r1 008D : B8 2B " +" mov r0,#02BH 008F : A0 " " mov @r0,a 0090 : 03 10 " " add a,#010H 0092 : A8 " " mov r0,a 0093 : 81 " " movx a,@r1 0094 : 72 A3 "r " jb3 L00A3 0096 : 97 " " clr c 0097 : 23 20 "# " mov a,#020H 0099 : 6B "k" add a,r3 009A : F6 B0 " " jc L00B0 009C : 23 DF "# " mov a,#0DFH 009E : 6B "k" add a,r3 009F : E6 B0 " " jnc L00B0 00A1 : 04 BF " " jmp L00BF ; 00A3 L00A3: 00A3 : 97 " " clr c 00A4 : 23 20 "# " mov a,#020H 00A6 : 6A "j" add a,r2 00A7 : F6 BB " " jc L00BB 00A9 : 23 DF "# " mov a,#0DFH 00AB : 6A "j" add a,r2 00AC : E6 BB " " jnc L00BB 00AE : 04 B4 " " jmp L00B4 ; 00B0 L00B0: 00B0 : 81 " " movx a,@r1 00B1 : 43 08 "C " orl a,#008H 00B3 : 91 " " movx @r1,a 00B4 L00B4: 00B4 : 80 " " movx a,@r0 00B5 : 37 "7" cpl a 00B6 : 17 " " inc a 00B7 : 6A "j" add a,r2 00B8 : AF " " mov r7,a 00B9 : 04 C6 " " jmp L00C6 ; 00BB L00BB: 00BB : 81 " " movx a,@r1 00BC : 53 F7 "S " anl a,#0F7H 00BE : 91 " " movx @r1,a 00BF L00BF: 00BF : 18 " " inc r0 00C0 : 80 " " movx a,@r0 00C1 : C8 " " dec r0 00C2 : 37 "7" cpl a 00C3 : 17 " " inc a 00C4 : 6B "k" add a,r3 00C5 : AF " " mov r7,a 00C6 L00C6: 00C6 : FA " " mov a,r2 00C7 : 90 " " movx @r0,a 00C8 : 18 " " inc r0 00C9 : FB " " mov a,r3 00CA : 90 " " movx @r0,a 00CB : FF " " mov a,r7 00CC : 83 " " ret ; 00CD L00CD: 00CD : AA " " mov r2,a 00CE : BB 12 " " mov r3,#012H 00D0 : 23 00 "# " mov a,#000H 00D2 : 1A " " inc r2 00D3 : 04 D6 " " jmp L00D6 ; 00D5 L00D5: 00D5 : 6B "k" add a,r3 00D6 L00D6: 00D6 : EA D5 " " djnz r2,L00D5 00D8 : 83 " " ret ; 00D9 L00D9: 00D9 : B9 3C " <" mov r1,#03CH 00DB : 41 "A" orl a,@r1 00DC : 04 E1 " " jmp L00E1 ; 00DE L00DE: 00DE : B9 3C " <" mov r1,#03CH 00E0 : 51 "Q" anl a,@r1 00E1 L00E1: 00E1 : A1 " " mov @r1,a 00E2 L00E2: 00E2 : 8A FF " " orl p2,#0FFH 00E4 : 9A FB " " anl p2,#0FBH 00E6 : B9 01 " " mov r1,#001H 00E8 : 91 " " movx @r1,a 00E9 : 23 FC "# " mov a,#0FCH 00EB : 3A ":" outl p2,a 00EC : 83 " " ret ; 00ED L00ED: 00ED : 53 07 "S " anl a,#007H 00EF : E7 " " rl a 00F0 : 03 D2 " " add a,#0D2H 00F2 : AA " " mov r2,a 00F3 : E3 " " movp3 a,@a 00F4 : 2A "*" xch a,r2 00F5 : 17 " " inc a 00F6 : E3 " " movp3 a,@a 00F7 : 8A FF " " orl p2,#0FFH 00F9 : 9A FD " " anl p2,#0FDH 00FB : B8 05 " " mov r0,#005H 00FD : 90 " " movx @r0,a 00FE : C8 " " dec r0 00FF L00FF: 00FF : FA " " mov a,r2 0100 : 90 " " movx @r0,a 0101 : B8 00 " " mov r0,#000H 0103 : 23 C0 "# " mov a,#0C0H 0105 : 90 " " movx @r0,a 0106 : 8A FF " " orl p2,#0FFH 0108 : 9A FC " " anl p2,#0FCH 010A : 83 " " ret ; 010B L010B: 010B : 85 " " clr f0 010C : AF " " mov r7,a 010D : B8 2B " +" mov r0,#02BH 010F : F0 " " mov a,@r0 0110 : A8 " " mov r0,a 0111 : 80 " " movx a,@r0 0112 : 32 48 "2H" jb1 L0148 0114 : FF " " mov a,r7 0115 : C6 A1 " " jz L01A1 0117 : BE FF " " mov r6,#0FFH 0119 : FF " " mov a,r7 011A : F2 1E " " jb7 L011E 011C : BE 00 " " mov r6,#000H 011E L011E: 011E : 18 " " inc r0 011F : 80 " " movx a,@r0 0120 : 6F "o" add a,r7 0121 : AC " " mov r4,a 0122 : 90 " " movx @r0,a 0123 : 18 " " inc r0 0124 : 80 " " movx a,@r0 0125 : 7E "~" addc a,r6 0126 L0126: 0126 : 90 " " movx @r0,a 0127 : AA " " mov r2,a 0128 : 18 " " inc r0 0129 : F2 3F " ?" jb7 L013F 012B : 97 " " clr c 012C : A7 " " cpl c 012D : 80 " " movx a,@r0 012E : 37 "7" cpl a 012F : 7C "|" addc a,r4 0130 : 18 " " inc r0 0131 : 80 " " movx a,@r0 0132 : 37 "7" cpl a 0133 : 7A "z" addc a,r2 0134 : F2 52 " R" jb7 L0152 0136 L0136: 0136 : C8 " " dec r0 0137 : C8 " " dec r0 0138 : 95 " " cpl f0 0139 : 27 "'" clr a 013A : 90 " " movx @r0,a 013B : C8 " " dec r0 013C : 90 " " movx @r0,a 013D : 24 52 "$R" jmp L0152 ; 013F L013F: 013F : 80 " " movx a,@r0 0140 : 6C "l" add a,r4 0141 : 18 " " inc r0 0142 : 80 " " movx a,@r0 0143 : 7A "z" addc a,r2 0144 : F2 36 " 6" jb7 L0136 0146 : 24 52 "$R" jmp L0152 ; 0148 L0148: 0148 : 12 52 " R" jb0 L0152 014A : 37 "7" cpl a 014B : 52 52 "RR" jb2 L0152 014D : 95 " " cpl f0 014E : 37 "7" cpl a 014F : 53 FB "S " anl a,#0FBH 0151 : 90 " " movx @r0,a 0152 L0152: 0152 : FF " " mov a,r7 0153 : C6 92 " " jz L0192 0155 : B8 2B " +" mov r0,#02BH 0157 : F0 " " mov a,@r0 0158 : 03 0B " " add a,#00BH 015A : A8 " " mov r0,a 015B : 80 " " movx a,@r0 015C : AD " " mov r5,a 015D : C8 " " dec r0 015E : 80 " " movx a,@r0 015F : AC " " mov r4,a 0160 : FF " " mov a,r7 0161 : F2 67 " g" jb7 L0167 0163 : BE 00 " " mov r6,#000H 0165 : 24 6D "$m" jmp L016D ; 0167 L0167: 0167 : BE FF " " mov r6,#0FFH 0169 : FF " " mov a,r7 016A : 37 "7" cpl a 016B : 17 " " inc a 016C : AF " " mov r7,a 016D L016D: 016D : 03 F8 " " add a,#0F8H 016F : F2 73 " s" jb7 L0173 0171 : BF 07 " " mov r7,#007H 0173 L0173: 0173 : C8 " " dec r0 0174 : C8 " " dec r0 0175 : C8 " " dec r0 0176 : 15 " " dis i 0177 L0177: 0177 : 80 " " movx a,@r0 0178 : 97 " " clr c 0179 : DE " " xrl a,r6 017A : 7C "|" addc a,r4 017B : DE " " xrl a,r6 017C : 90 " " movx @r0,a 017D : 18 " " inc r0 017E : 80 " " movx a,@r0 017F : DE " " xrl a,r6 0180 : 7D "}" addc a,r5 0181 : DE " " xrl a,r6 0182 : 90 " " movx @r0,a 0183 : 18 " " inc r0 0184 : 80 " " movx a,@r0 0185 : DE " " xrl a,r6 0186 : 13 00 " " addc a,#000H 0188 : DE " " xrl a,r6 0189 : 90 " " movx @r0,a 018A : F6 A2 " " jc L01A2 018C : C8 " " dec r0 018D : C8 " " dec r0 018E : EF 77 " w" djnz r7,L0177 0190 : 34 B3 "4 " call L01B3 0192 L0192: 0192 : 95 " " cpl f0 0193 : B6 A0 " " jf0 L01A0 0195 : B8 20 " " mov r0,#020H 0197 : F0 " " mov a,@r0 0198 : AA " " mov r2,a 0199 : B8 21 " !" mov r0,#021H 019B : B9 22 " "" mov r1,#022H 019D : 15 " " dis i 019E : 34 D8 "4 " call L01D8 01A0 L01A0: 01A0 : 05 " " en i 01A1 L01A1: 01A1 : 83 " " ret ; 01A2 L01A2: 01A2 : FE " " mov a,r6 01A3 : 37 "7" cpl a 01A4 : 90 " " movx @r0,a 01A5 : C8 " " dec r0 01A6 : 90 " " movx @r0,a 01A7 : C8 " " dec r0 01A8 : 90 " " movx @r0,a 01A9 : 34 B3 "4 " call L01B3 01AB : 24 92 "$ " jmp L0192 ; 01AD : F2 B0 " " jb7 L01B0 01AF : 83 " " ret ; 01B0 L01B0: 01B0 : 37 "7" cpl a 01B1 : 17 " " inc a 01B2 : 83 " " ret ; 01B3 L01B3: 01B3 : B8 2B " +" mov r0,#02BH 01B5 : F0 " " mov a,@r0 01B6 : 03 08 " " add a,#008H 01B8 : A8 " " mov r0,a 01B9 : 03 06 " " add a,#006H 01BB : A9 " " mov r1,a 01BC : 97 " " clr c 01BD : 54 0A "T " call L020A 01BF : E6 CD " " jnc L01CD 01C1 : 23 00 "# " mov a,#000H 01C3 L01C3: 01C3 : C8 " " dec r0 01C4 : 90 " " movx @r0,a 01C5 : 18 " " inc r0 01C6 : 81 " " movx a,@r1 01C7 : 90 " " movx @r0,a 01C8 : 18 " " inc r0 01C9 : 19 " " inc r1 01CA : 81 " " movx a,@r1 01CB : 90 " " movx @r0,a 01CC L01CC: 01CC : 83 " " ret ; 01CD L01CD: 01CD : C9 " " dec r1 01CE : C9 " " dec r1 01CF : A7 " " cpl c 01D0 : 54 0A "T " call L020A 01D2 : F6 CC " " jc L01CC 01D4 : 23 FF "# " mov a,#0FFH 01D6 : 24 C3 "$ " jmp L01C3 ; 01D8 L01D8: 01D8 : F1 " " mov a,@r1 01D9 : 37 "7" cpl a 01DA : 17 " " inc a 01DB : 6A "j" add a,r2 01DC : 53 07 "S " anl a,#007H 01DE : 17 " " inc a 01DF : AA " " mov r2,a 01E0 : B9 C2 " " mov r1,#0C2H 01E2 : 81 " " movx a,@r1 01E3 : C6 F0 " " jz L01F0 01E5 : 23 01 "# " mov a,#001H 01E7 : 14 D9 " " call L00D9 01E9 : 23 80 "# " mov a,#080H 01EB L01EB: 01EB : E7 " " rl a 01EC : EA EB " " djnz r2,L01EB 01EE : 40 "@" orl a,@r0 01EF : A0 " " mov @r0,a 01F0 L01F0: 01F0 : 83 " " ret ; 01F1 L01F1: 01F1 : A5 " " clr f1 01F2 : F0 " " mov a,@r0 01F3 : 96 F6 " " jnz L01F6 01F5 : 83 " " ret ; 01F6 L01F6: 01F6 : 12 FC " " jb0 L01FC 01F8 : 77 "w" rr a 01F9 : 11 " " inc @r1 01FA : 24 F6 "$ " jmp L01F6 ; 01FC L01FC: 01FC : 53 FE "S " anl a,#0FEH 01FE : 77 "w" rr a 01FF : A0 " " mov @r0,a 0200 : F1 " " mov a,@r1 0201 : 17 " " inc a 0202 : 53 07 "S " anl a,#007H 0204 : A1 " " mov @r1,a 0205 : 07 " " dec a 0206 : 53 07 "S " anl a,#007H 0208 : B5 " " cpl f1 0209 : 83 " " ret ; 020A L020A: 020A : 80 " " movx a,@r0 020B : 37 "7" cpl a 020C : AA " " mov r2,a 020D : 81 " " movx a,@r1 020E : 7A "z" addc a,r2 020F : 18 " " inc r0 0210 : 19 " " inc r1 0211 : 80 " " movx a,@r0 0212 : 37 "7" cpl a 0213 : AA " " mov r2,a 0214 : 81 " " movx a,@r1 0215 : 7A "z" addc a,r2 0216 : C8 " " dec r0 0217 : C9 " " dec r1 0218 : 83 " " ret ; 0219 L0219: 0219 : 85 " " clr f0 021A : B8 28 " (" mov r0,#028H 021C : F0 " " mov a,@r0 021D : 17 " " inc a 021E : 53 03 "S " anl a,#003H 0220 : A0 " " mov @r0,a 0221 : AA " " mov r2,a 0222 : 03 BD " " add a,#0BDH 0224 : A8 " " mov r0,a 0225 : 80 " " movx a,@r0 0226 : AB " " mov r3,a 0227 : FA " " mov a,r2 0228 : E7 " " rl a 0229 : 03 A0 " " add a,#0A0H 022B : A8 " " mov r0,a 022C : 80 " " movx a,@r0 022D : AD " " mov r5,a 022E : FA " " mov a,r2 022F : E7 " " rl a 0230 L0230: 0230 : E7 " " rl a 0231 : 03 90 " " add a,#090H 0233 : 07 " " dec a 0234 : A9 " " mov r1,a 0235 : BC 08 " " mov r4,#008H 0237 : BF 04 " " mov r7,#004H 0239 L0239: 0239 : 19 " " inc r1 023A : FC " " mov a,r4 023B : E7 " " rl a 023C : AC " " mov r4,a 023D : 81 " " movx a,@r1 023E : AE " " mov r6,a 023F : FB " " mov a,r3 0240 : 77 "w" rr a 0241 : AB " " mov r3,a 0242 : DE " " xrl a,r6 0243 : 53 08 "S " anl a,#008H 0245 : 96 4A " J" jnz L024A 0247 : EF 39 " 9" djnz r7,L0239 0249 : 83 " " ret ; 024A L024A: 024A : FE " " mov a,r6 024B : D3 08 " " xrl a,#008H 024D : AE " " mov r6,a 024E : 92 52 " R" jb4 L0252 0250 : 44 59 "DY" jmp L0259 ; 0252 L0252: 0252 : 72 56 "rV" jb3 L0256 0254 : 44 61 "Da" jmp L0261 ; 0256 L0256: 0256 : D3 04 " " xrl a,#004H 0258 : AE " " mov r6,a 0259 L0259: 0259 : B2 5D " ]" jb5 L025D 025B : 44 61 "Da" jmp L0261 ; 025D L025D: 025D : FD " " mov a,r5 025E : DC " " xrl a,r4 025F : AD " " mov r5,a 0260 : FE " " mov a,r6 0261 L0261: 0261 : F2 67 " g" jb7 L0267 0263 : D2 6D " m" jb6 L026D 0265 : 44 98 "D " jmp L0298 ; 0267 L0267: 0267 : D2 71 " q" jb6 L0271 0269 : 72 98 "r " jb3 L0298 026B : 44 71 "Dq" jmp L0271 ; 026D L026D: 026D : 72 71 "rq" jb3 L0271 026F : 44 98 "D " jmp L0298 ; 0271 L0271: 0271 : 95 " " cpl f0 0272 : F8 " " mov a,r0 0273 : B8 C6 " " mov r0,#0C6H 0275 : 90 " " movx @r0,a 0276 : F9 " " mov a,r1 0277 : 18 " " inc r0 0278 : 90 " " movx @r0,a 0279 : 37 "7" cpl a 027A : 03 90 " " add a,#090H 027C : 37 "7" cpl a 027D : AA " " mov r2,a 027E : 72 86 "r " jb3 L0286 0280 : B8 23 " #" mov r0,#023H 0282 : B9 24 " $" mov r1,#024H 0284 : 44 8A "D " jmp L028A ; 0286 L0286: 0286 : B8 25 " %" mov r0,#025H 0288 : B9 26 " &" mov r1,#026H 028A L028A: 028A : 15 " " dis i 028B : FA " " mov a,r2 028C : 53 07 "S " anl a,#007H 028E : AA " " mov r2,a 028F : 34 D8 "4 " call L01D8 0291 : B8 C7 " " mov r0,#0C7H 0293 : 80 " " movx a,@r0 0294 : A9 " " mov r1,a 0295 : C8 " " dec r0 0296 : 80 " " movx a,@r0 0297 : A8 " " mov r0,a 0298 L0298: 0298 : FE " " mov a,r6 0299 : 91 " " movx @r1,a 029A : FD " " mov a,r5 029B : 90 " " movx @r0,a 029C : 05 " " en i 029D : EF 39 " 9" djnz r7,L0239 029F : 83 " " ret ; 02A0 L02A0: 02A0 : FE " " mov a,r6 02A1 : 77 "w" rr a 02A2 : 77 "w" rr a 02A3 : 53 03 "S " anl a,#003H 02A5 : 37 "7" cpl a 02A6 : 17 " " inc a 02A7 : 03 35 " 5" add a,#035H 02A9 : A8 " " mov r0,a 02AA : 83 " " ret ; 02AB L02AB: 02AB : FE " " mov a,r6 02AC : 53 03 "S " anl a,#003H 02AE : AC " " mov r4,a 02AF : 1C " " inc r4 02B0 : 23 88 "# " mov a,#088H 02B2 L02B2: 02B2 : E7 " " rl a 02B3 : EC B2 " " djnz r4,L02B2 02B5 : AC " " mov r4,a 02B6 : 83 " " ret ; 02B7 L02B7: 02B7 : FE " " mov a,r6 02B8 : 77 "w" rr a 02B9 : 53 06 "S " anl a,#006H 02BB : 03 A0 " " add a,#0A0H 02BD : AB " " mov r3,a 02BE : 83 " " ret ; 02BF L02BF: 02BF : FE " " mov a,r6 02C0 : 03 90 " " add a,#090H 02C2 : AD " " mov r5,a 02C3 : 83 " " ret ; 02C4 L02C4: 02C4 : FB " " mov a,r3 02C5 : A8 " " mov r0,a 02C6 : 80 " " movx a,@r0 02C7 : A8 " " mov r0,a 02C8 : FA " " mov a,r2 02C9 : 90 " " movx @r0,a 02CA : 54 DD "T " call L02DD 02CC : 81 " " movx a,@r1 02CD : 17 " " inc a 02CE : 91 " " movx @r1,a 02CF : 83 " " ret ; 02D0 L02D0: 02D0 : FB " " mov a,r3 02D1 : A8 " " mov r0,a 02D2 : 80 " " movx a,@r0 02D3 : A8 " " mov r0,a 02D4 : 80 " " movx a,@r0 02D5 : AA " " mov r2,a 02D6 : 54 DD "T " call L02DD 02D8 : 81 " " movx a,@r1 02D9 : 07 " " dec a 02DA : 91 " " movx @r1,a 02DB : FA " " mov a,r2 02DC : 83 " " ret ; 02DD L02DD: 02DD : F8 " " mov a,r0 02DE : D3 BC " " xrl a,#0BCH 02E0 : 96 E6 " " jnz L02E6 02E2 : B8 AD " " mov r0,#0ADH 02E4 : 44 F0 "D " jmp L02F0 ; 02E6 L02E6: 02E6 : F8 " " mov a,r0 02E7 : D3 FF " " xrl a,#0FFH 02E9 : 96 EF " " jnz L02EF 02EB : B8 CD " " mov r0,#0CDH 02ED : 44 F0 "D " jmp L02F0 ; 02EF L02EF: 02EF : 18 " " inc r0 02F0 L02F0: 02F0 : FB " " mov a,r3 02F1 : 28 "(" xch a,r0 02F2 : 90 " " movx @r0,a 02F3 : 83 " " ret ; 02F4 L02F4: 02F4 : D5 " " sel rb1 02F5 : B8 3A " :" mov r0,#03AH 02F7 : A0 " " mov @r0,a 02F8 : B8 39 " 9" mov r0,#039H 02FA : 0A " " in a,p2 02FB : 43 F0 "C " orl a,#0F0H 02FD : A0 " " mov @r0,a 02FE : 83 " " ret ; 02FF : 00 " " nop 0300 L0300: 0300 : 54 F4 "T " call L02F4 0302 : 23 FC "# " mov a,#0FCH 0304 : 3A ":" outl p2,a 0305 : 23 FB "# " mov a,#0FBH 0307 : 3A ":" outl p2,a 0308 : B8 01 " " mov r0,#001H 030A : 80 " " movx a,@r0 030B : 32 13 "2 " jb1 L0313 030D : 12 11 " " jb0 L0311 030F : 64 69 "di" jmp L0369 0311 L0311: 0311 : 64 17 "d " jmp L0317 ; 0313 L0313: 0313 : B4 00 " " call L0500 0315 : 64 69 "di" jmp L0369 ; 0317 L0317: 0317 : 8A FF " " orl p2,#0FFH 0319 : 9A FC " " anl p2,#0FCH 031B : B8 2C " ," mov r0,#02CH 031D : F0 " " mov a,@r0 031E : C6 24 " $" jz L0324 0320 : 74 71 "tq" call L0371 0322 : 64 69 "di" jmp L0369 ; 0324 L0324: 0324 : B9 C5 " " mov r1,#0C5H 0326 : 81 " " movx a,@r1 0327 : 96 53 " S" jnz L0353 0329 : B8 23 " #" mov r0,#023H 032B : B9 24 " $" mov r1,#024H 032D : 34 F1 "4 " call L01F1 032F : 76 49 "vI" jf1 L0349 0331 : B8 25 " %" mov r0,#025H 0333 : B9 26 " &" mov r1,#026H 0335 : 34 F1 "4 " call L01F1 0337 : 76 47 "vG" jf1 L0347 0339 : B8 21 " !" mov r0,#021H 033B : B9 22 " "" mov r1,#022H 033D : 34 F1 "4 " call L01F1 033F : 76 4E "vN" jf1 L034E 0341 : 23 FE "# " mov a,#0FEH 0343 : 14 DE " " call L00DE 0345 : 64 69 "di" jmp L0369 ; 0347 L0347: 0347 : 43 08 "C " orl a,#008H 0349 L0349: 0349 : AE " " mov r6,a 034A : BA 14 " " mov r2,#014H 034C : 64 63 "dc" jmp L0363 ; 034E L034E: 034E : AE " " mov r6,a 034F : BA 39 " 9" mov r2,#039H 0351 : 64 63 "dc" jmp L0363 ; 0353 L0353: 0353 : BB C3 " " mov r3,#0C3H 0355 : B9 C5 " " mov r1,#0C5H 0357 : 54 D0 "T " call L02D0 0359 : 47 "G" swap a 035A : 53 0F "S " anl a,#00FH 035C : 03 FA " " add a,#0FAH 035E : E3 " " movp3 a,@a 035F : 2A "*" xch a,r2 0360 : 53 0F "S " anl a,#00FH 0362 : AE " " mov r6,a 0363 L0363: 0363 : 94 00 " " call L0400 0365 : 74 71 "tq" call L0371 0367 : 64 69 "di" jmp L0369 ; 0369 L0369: 0369 : B8 39 " 9" mov r0,#039H 036B : F0 " " mov a,@r0 036C : 3A ":" outl p2,a 036D : B8 3A " :" mov r0,#03AH 036F : F0 " " mov a,@r0 0370 : 93 " " retr ; 0371 L0371: 0371 : B8 2C " ," mov r0,#02CH 0373 : F0 " " mov a,@r0 0374 : A8 " " mov r0,a 0375 : 80 " " movx a,@r0 0376 : 53 7F "S " anl a,#07FH 0378 : B9 3B " ;" mov r1,#03BH 037A : 41 "A" orl a,@r1 037B : 8A FF " " orl p2,#0FFH 037D : 9A FB " " anl p2,#0FBH 037F : B9 00 " " mov r1,#000H 0381 : 91 " " movx @r1,a 0382 : F8 " " mov a,r0 0383 : D3 AC " " xrl a,#0ACH 0385 : C6 8C " " jz L038C 0387 : B8 2C " ," mov r0,#02CH 0389 : 10 " " inc @r0 038A : 64 90 "d " jmp L0390 ; 038C L038C: 038C : 27 "'" clr a 038D : B8 2C " ," mov r0,#02CH 038F : A0 " " mov @r0,a 0390 L0390: 0390 : 8A FF " " orl p2,#0FFH 0392 : 9A FC " " anl p2,#0FCH 0394 : 83 " " ret ; 0395 L0395: 0395 : FA " " mov a,r2 0396 : 47 "G" swap a 0397 : 53 0F "S " anl a,#00FH 0399 : 03 31 " 1" add a,#031H 039B : A8 " " mov r0,a 039C : FA " " mov a,r2 039D : 53 0F "S " anl a,#00FH 039F : A0 " " mov @r0,a 03A0 : 83 " " ret ; 03A1 L03A1: 03A1 : 23 FB "# " mov a,#0FBH 03A3 : 3A ":" outl p2,a 03A4 : B8 01 " " mov r0,#001H 03A6 : 80 " " movx a,@r0 03A7 : 32 AD "2 " jb1 L03AD 03A9 : 23 FC "# " mov a,#0FCH 03AB : 3A ":" outl p2,a 03AC : 83 " " ret 03AD L03AD: 03AD : A4 00 " " jmp L0500 ; 03AF : 00 " " nop 03B0 : 00 " " nop 03B1 : 00 " " nop 03B2 : 00 " " nop 03B3 : 00 " " nop 03B4 : 00 " " nop 03B5 : 00 " " nop 03B6 : 00 " " nop 03B7 : 00 " " nop 03B8 : 00 " " nop 03B9 : 00 " " nop 03BA : 00 " " nop 03BB : 00 " " nop 03BC : 00 " " nop 03BD : 00 " " nop 03BE : 00 " " nop 03BF : 00 " " nop 03C0 : 00 " " nop 03C1 : 00 " " nop 03C2 : 00 " " nop 03C3 : 00 " " nop 03C4 : 00 " " nop 03C5 : 00 " " nop 03C6 : 00 " " nop 03C7 : 00 " " nop 03C8 : 00 " " nop 03C9 : 00 " " nop 03CA : 00 " " nop 03CB : 0E " " movd a,p6 03CC : 80 " " movx a,@r0 03CD : 0E " " movd a,p6 03CE : 00 " " nop 03CF : 1A " " inc r2 03D0 : 00 " " nop 03D1 : 3A ":" outl p2,a 03D2 : 17 " " inc a 03D3 : 44 30 "D0" jmp L0230 ; 03D5 : 40 "@" orl a,@r0 ; 03D6 : C0 " " db 0C0H ; 03D7 : 40 "@" orl a,@r0 03D8 : 0C " " movd a,p4 03D9 : 40 "@" orl a,@r0 03DA : 80 " " movx a,@r0 03DB : 41 "A" orl a,@r1 03DC : 18 " " inc r0 03DD : 40 "@" orl a,@r0 03DE : 60 "`" add a,@r0 03DF : 40 "@" orl a,@r0 03E0 : 0C " " movd a,p4 03E1 : 40 "@" orl a,@r0 03E2 : 03 00 " " add a,#000H 03E4 : 00 " " nop 03E5 : 02 " " outl bus,a 03E6 : 00 " " nop 03E7 : 90 " " movx @r0,a ; 03E8 : 01 " " db 001H ; 03E9 : 00 " " nop 03EA : 00 " " nop 03EB : 80 " " movx a,@r0 ; 03EC : E2 " " db 0E2H ; 03ED : 05 " " en i 03EE : FF " " mov a,r7 ; 03EF : 87 " " db 087H ; 03F0 : 00 " " nop 03F1 : 78 "x" addc a,r0 03F2 : 30 "0" xchd a,@r0 ; 03F3 : 01 " " db 001H ; 03F4 : FF " " mov a,r7 03F5 : 02 " " outl bus,a 03F6 : FF " " mov a,r7 03F7 : 04 FF " " jmp L00FF ; 03F9 : 08 " " ins a,bus 03FA : FF " " mov a,r7 03FB : 00 " " nop 03FC : 24 26 "$&" jmp L0126 ; 03FE : 20 " " xch a,@r0 03FF : 28 "(" xch a,r0 0400 L0400: 0400 : FA " " mov a,r2 0401 : B2 4F " O" jb5 L044F 0403 : 53 10 "S " anl a,#010H 0405 : 43 40 "C@" orl a,#040H 0407 : 4E "N" orl a,r6 0408 : B8 AB " " mov r0,#0ABH 040A : 90 " " movx @r0,a 040B : 23 90 "# " mov a,#090H 040D : 6E "n" add a,r6 040E : A9 " " mov r1,a 040F : 81 " " movx a,@r1 0410 : AB " " mov r3,a 0411 : 92 15 " " jb4 L0415 0413 : 77 "w" rr a 0414 : DB " " xrl a,r3 0415 L0415: 0415 : 53 04 "S " anl a,#004H 0417 : AF " " mov r7,a 0418 : FB " " mov a,r3 0419 : 53 08 "S " anl a,#008H 041B : 4F "O" orl a,r7 041C : AF " " mov r7,a 041D : 54 B7 "T " call L02B7 041F : 54 AB "T " call L02AB 0421 : FB " " mov a,r3 0422 : A8 " " mov r0,a 0423 : 80 " " movx a,@r0 0424 : 53 F0 "S " anl a,#0F0H 0426 : 5C "\" anl a,r4 0427 : C6 43 " C" jz L0443 0429 : 18 " " inc r0 042A : 80 " " movx a,@r0 042B : 37 "7" cpl a 042C : 5C "\" anl a,r4 042D : 96 35 " 5" jnz L0435 042F : FF " " mov a,r7 0430 : 43 01 "C " orl a,#001H 0432 : AF " " mov r7,a 0433 : 84 43 " C" jmp L0443 ; 0435 L0435: 0435 : 53 0F "S " anl a,#00FH 0437 : C6 3F " ?" jz L043F 0439 : FF " " mov a,r7 043A : 43 02 "C " orl a,#002H 043C : AF " " mov r7,a 043D : 84 43 " C" jmp L0443 ; 043F L043F: 043F : FF " " mov a,r7 0440 : 43 03 "C " orl a,#003H 0442 : AF " " mov r7,a 0443 L0443: 0443 : B8 AC " " mov r0,#0ACH 0445 : FF " " mov a,r7 0446 : 43 60 "C`" orl a,#060H 0448 : 90 " " movx @r0,a 0449 : B8 2C " ," mov r0,#02CH 044B : 23 AB "# " mov a,#0ABH 044D : A0 " " mov @r0,a 044E : 83 " " ret ; 044F L044F: 044F : 72 B1 "r " jb3 L04B1 0451 : 37 "7" cpl a 0452 : 52 98 "R " jb2 L0498 0454 : 32 5A "2Z" jb1 L045A 0456 : BC 04 " " mov r4,#004H 0458 : 84 5C " \" jmp L045C ; 045A L045A: 045A : BC 08 " " mov r4,#008H 045C L045C: 045C : BD 04 " " mov r5,#004H 045E : B9 9F " " mov r1,#09FH 0460 : B8 A9 " " mov r0,#0A9H 0462 L0462: 0462 : FA " " mov a,r2 0463 : E7 " " rl a 0464 : AA " " mov r2,a 0465 : 27 "'" clr a 0466 : 90 " " movx @r0,a 0467 : BB 04 " " mov r3,#004H 0469 L0469: 0469 : 80 " " movx a,@r0 046A : E7 " " rl a 046B : 90 " " movx @r0,a 046C : 81 " " movx a,@r1 046D : 5C "\" anl a,r4 046E : C6 74 " t" jz L0474 0470 : 80 " " movx a,@r0 0471 : 43 01 "C " orl a,#001H 0473 : 90 " " movx @r0,a 0474 L0474: 0474 : C9 " " dec r1 0475 : EB 69 " i" djnz r3,L0469 0477 : FA " " mov a,r2 0478 : 53 10 "S " anl a,#010H 047A : AF " " mov r7,a 047B : 80 " " movx a,@r0 047C : 4F "O" orl a,r7 047D : 90 " " movx @r0,a 047E : 18 " " inc r0 047F : ED 62 " b" djnz r5,L0462 0481 : FA " " mov a,r2 0482 : 47 "G" swap a 0483 : AA " " mov r2,a 0484 L0484: 0484 : B8 AC " " mov r0,#0ACH 0486 : 80 " " movx a,@r0 0487 : 43 60 "C`" orl a,#060H 0489 : 90 " " movx @r0,a 048A : B8 A8 " " mov r0,#0A8H 048C : FA " " mov a,r2 048D : 53 10 "S " anl a,#010H 048F : 43 40 "C@" orl a,#040H 0491 : 4E "N" orl a,r6 0492 : 90 " " movx @r0,a 0493 : B8 2C " ," mov r0,#02CH 0495 : B0 A8 " " mov @r0,#0A8H 0497 : 83 " " ret ; 0498 L0498: 0498 : BB 04 " " mov r3,#004H 049A : B9 A6 " " mov r1,#0A6H 049C : B8 A9 " " mov r0,#0A9H 049E L049E: 049E : FA " " mov a,r2 049F : E7 " " rl a 04A0 : 81 " " movx a,@r1 04A1 : 47 "G" swap a 04A2 : 53 0F "S " anl a,#00FH 04A4 : AF " " mov r7,a 04A5 : FA " " mov a,r2 04A6 : 53 10 "S " anl a,#010H 04A8 : 4F "O" orl a,r7 04A9 : 90 " " movx @r0,a 04AA : 18 " " inc r0 04AB : C9 " " dec r1 04AC : C9 " " dec r1 04AD : EB 9E " " djnz r3,L049E 04AF : 84 84 " " jmp L0484 ; 04B1 L04B1: 04B1 : FA " " mov a,r2 04B2 : AF " " mov r7,a 04B3 : FE " " mov a,r6 04B4 : 14 CD " " call L00CD 04B6 : 03 09 " " add a,#009H 04B8 : A9 " " mov r1,a 04B9 : FF " " mov a,r7 04BA : AA " " mov r2,a 04BB : B8 A9 " " mov r0,#0A9H 04BD : 81 " " movx a,@r1 04BE : 47 "G" swap a 04BF : 53 0F "S " anl a,#00FH 04C1 : D3 08 " " xrl a,#008H 04C3 : 43 10 "C " orl a,#010H 04C5 : 90 " " movx @r0,a 04C6 : 18 " " inc r0 04C7 : 81 " " movx a,@r1 04C8 : 53 0F "S " anl a,#00FH 04CA : 90 " " movx @r0,a 04CB : 18 " " inc r0 04CC : C9 " " dec r1 04CD : 81 " " movx a,@r1 04CE : 47 "G" swap a 04CF : 53 0F "S " anl a,#00FH 04D1 : 90 " " movx @r0,a 04D2 : 18 " " inc r0 04D3 : 81 " " movx a,@r1 04D4 : 53 0F "S " anl a,#00FH 04D6 : AF " " mov r7,a 04D7 : F9 " " mov a,r1 04D8 : 03 F8 " " add a,#0F8H 04DA : A9 " " mov r1,a 04DB : 81 " " movx a,@r1 04DC : D3 01 " " xrl a,#001H 04DE : 96 E4 " " jnz L04E4 04E0 : FF " " mov a,r7 04E1 : 43 10 "C " orl a,#010H 04E3 : AF " " mov r7,a 04E4 L04E4: 04E4 : FF " " mov a,r7 04E5 : 90 " " movx @r0,a 04E6 : 84 84 " " jmp L0484 ; 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 : 00 " " nop 0500 L0500: 0500 : 53 38 "S8" anl a,#038H 0502 : C6 0D " " jz L050D 0504 : 23 10 "# " mov a,#010H 0506 : 14 D9 " " call L00D9 0508 : 23 EF "# " mov a,#0EFH 050A : 14 DE " " call L00DE 050C : 83 " " ret ; 050D L050D: 050D : B8 00 " " mov r0,#000H 050F : 80 " " movx a,@r0 0510 : 53 7F "S " anl a,#07FH 0512 : AA " " mov r2,a 0513 : 23 FC "# " mov a,#0FCH 0515 : 3A ":" outl p2,a 0516 : B9 CC " " mov r1,#0CCH 0518 : 81 " " movx a,@r1 0519 : D3 24 " $" xrl a,#024H 051B : C6 F3 " " jz L05F3 051D : BB CB " " mov r3,#0CBH 051F : 15 " " dis i 0520 : 54 C4 "T " call L02C4 0522 : 05 " " en i 0523 : 83 " " ret ; 0524 L0524: 0524 : 53 70 "Sp" anl a,#070H 0526 : C6 2A " *" jz L052A 0528 : A4 39 " 9" jmp L0539 ; 052A L052A: 052A : BB 07 " " mov r3,#007H 052C : 27 "'" clr a 052D : B8 32 " 2" mov r0,#032H 052F L052F: 052F : A0 " " mov @r0,a 0530 : 18 " " inc r0 0531 : EB 2F " /" djnz r3,L052F 0533 : B8 C8 " " mov r0,#0C8H 0535 : 90 " " movx @r0,a 0536 : 74 95 "t " call L0395 0538 : 83 " " ret ; 0539 L0539: 0539 : B8 31 " 1" mov r0,#031H 053B : F0 " " mov a,@r0 053C : 03 3F " ?" add a,#03FH 053E : B3 " " jmpp @a ;INFO: indirect jump ; 053F : 4E "N" orl a,r6 0540 : 71 "q" addc a,@r1 0541 : 83 " " ret ; 0542 : 87 8B " " db 087H, 08BH ; 0544 : 8F " " orld p7,a 0545 : 93 " " retr ; 0546 : 97 " " clr c 0547 : F4 F3 " " call L07F3 ; 0549 : F3 F3 F3 F3 " " db 0F3H, 0F3H, 0F3H, 0F3H 054D : F3 " " db 0F3H ; 054E : FA " " mov a,r2 054F : D3 11 " " xrl a,#011H 0551 : C6 5C " \" jz L055C 0553 : D3 03 " " xrl a,#003H 0555 : C6 5E " ^" jz L055E 0557 : D3 01 " " xrl a,#001H 0559 : C6 6B " k" jz L056B 055B : 83 " " ret ; 055C L055C: 055C : F4 00 " " call L0700 055E L055E: 055E : B8 C2 " " mov r0,#0C2H 0560 : 27 "'" clr a 0561 : 90 " " movx @r0,a 0562 : B8 21 " !" mov r0,#021H 0564 : BA 06 " " mov r2,#006H 0566 L0566: 0566 : A0 " " mov @r0,a 0567 : 18 " " inc r0 0568 : EA 66 " f" djnz r2,L0566 056A : 83 " " ret ; 056B L056B: 056B : B8 C2 " " mov r0,#0C2H 056D : 23 01 "# " mov a,#001H 056F : 90 " " movx @r0,a 0570 : 83 " " ret ; 0571 : B9 C5 " " mov r1,#0C5H 0573 : 81 " " movx a,@r1 0574 : D3 10 " " xrl a,#010H 0576 : C6 F3 " " jz L05F3 0578 : BB C4 " " mov r3,#0C4H 057A : 15 " " dis i 057B : 54 C4 "T " call L02C4 057D : 05 " " en i 057E : 23 01 "# " mov a,#001H 0580 : 14 D9 " " call L00D9 0582 : 83 " " ret ; 0583 : BF 0F " " mov r7,#00FH 0585 : A4 9B " " jmp L059B ; 0587 : BF 0D " " mov r7,#00DH 0589 : A4 9B " " jmp L059B ; 058B : BF 09 " " mov r7,#009H 058D : A4 9B " " jmp L059B ; 058F : BF 0B " " mov r7,#00BH 0591 : A4 9B " " jmp L059B ; 0593 : BF 04 " " mov r7,#004H 0595 : A4 9B " " jmp L059B ; 0597 : BF 06 " " mov r7,#006H 0599 : A4 9B " " jmp L059B ; 059B L059B: 059B : FA " " mov a,r2 059C : 53 70 "Sp" anl a,#070H 059E : D3 60 " `" xrl a,#060H 05A0 : C6 AF " " jz L05AF 05A2 : FA " " mov a,r2 05A3 : 03 B0 " " add a,#0B0H 05A5 : F6 AC " " jc L05AC 05A7 : B8 C8 " " mov r0,#0C8H 05A9 : 23 01 "# " mov a,#001H 05AB : 90 " " movx @r0,a 05AC L05AC: 05AC : 74 95 "t " call L0395 05AE : 83 " " ret ; 05AF L05AF: 05AF : FA " " mov a,r2 05B0 : 53 07 "S " anl a,#007H 05B2 : 14 CD " " call L00CD 05B4 : AC " " mov r4,a 05B5 : B9 36 " 6" mov r1,#036H 05B7 : F1 " " mov a,@r1 05B8 : 37 "7" cpl a 05B9 : 52 BF "R " jb2 L05BF 05BB : FC " " mov a,r4 05BC : A8 " " mov r0,a 05BD : F4 25 " %" call L0725 05BF L05BF: 05BF : F1 " " mov a,@r1 05C0 : 53 03 "S " anl a,#003H 05C2 : C6 C8 " " jz L05C8 05C4 : 2C "," xch a,r4 05C5 : A8 " " mov r0,a 05C6 : 2C "," xch a,r4 05C7 : 90 " " movx @r0,a 05C8 L05C8: 05C8 : B8 C8 " " mov r0,#0C8H 05CA : 80 " " movx a,@r0 05CB : C6 F3 " " jz L05F3 05CD : BB 80 " " mov r3,#080H 05CF : B9 31 " 1" mov r1,#031H 05D1 : F1 " " mov a,@r1 05D2 : 03 FB " " add a,#0FBH 05D4 : F2 D8 " " jb7 L05D8 05D6 : BB 00 " " mov r3,#000H 05D8 L05D8: 05D8 : FF " " mov a,r7 05D9 : 6C "l" add a,r4 05DA : A8 " " mov r0,a 05DB : 19 " " inc r1 05DC : F1 " " mov a,@r1 05DD : 47 "G" swap a 05DE : 19 " " inc r1 05DF : 41 "A" orl a,@r1 05E0 : DB " " xrl a,r3 05E1 : 90 " " movx @r0,a 05E2 : C8 " " dec r0 05E3 : 19 " " inc r1 05E4 : F1 " " mov a,@r1 05E5 : 47 "G" swap a 05E6 : 19 " " inc r1 05E7 : 41 "A" orl a,@r1 05E8 : 90 " " movx @r0,a 05E9 : B9 31 " 1" mov r1,#031H 05EB : F1 " " mov a,@r1 05EC : D3 04 " " xrl a,#004H 05EE : 96 F3 " " jnz L05F3 05F0 : C8 " " dec r0 05F1 : 27 "'" clr a 05F2 : 90 " " movx @r0,a 05F3 L05F3: 05F3 : 83 " " ret 05F4 : C4 00 " " jmp L0600 ; 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 : 74 95 "t " call L0395 0602 : FA " " mov a,r2 0603 : 37 "7" cpl a 0604 : 53 70 "Sp" anl a,#070H 0606 : C6 09 " " jz L0609 0608 : 83 " " ret ; 0609 L0609: 0609 : BE FF " " mov r6,#0FFH 060B L060B: 060B : 1E " " inc r6 060C : FE " " mov a,r6 060D : 92 22 " "" jb4 L0622 060F : 54 A0 "T " call L02A0 0611 : F0 " " mov a,@r0 0612 : C6 1C " " jz L061C 0614 : 54 AB "T " call L02AB 0616 : F0 " " mov a,@r0 0617 : 5C "\" anl a,r4 0618 : C6 0B " " jz L060B 061A : C4 23 " #" jmp L0623 ; 061C L061C: 061C : FE " " mov a,r6 061D : 03 03 " " add a,#003H 061F : AE " " mov r6,a 0620 : C4 0B " " jmp L060B 0622 L0622: 0622 : 83 " " ret ; 0623 L0623: 0623 : A5 " " clr f1 0624 : B5 " " cpl f1 0625 : 54 BF "T " call L02BF 0627 : A9 " " mov r1,a 0628 : 54 B7 "T " call L02B7 062A : 81 " " movx a,@r1 062B : AF " " mov r7,a 062C : B9 37 " 7" mov r1,#037H 062E : F1 " " mov a,@r1 062F : 72 33 "r3" jb3 L0633 0631 : C4 3D " =" jmp L063D ; 0633 L0633: 0633 : 47 "G" swap a 0634 : 77 "w" rr a 0635 : 53 20 "S " anl a,#020H 0637 : 2F "/" xch a,r7 0638 : 53 DF "S " anl a,#0DFH 063A : 4F "O" orl a,r7 063B : AF " " mov r7,a 063C : F1 " " mov a,@r1 063D L063D: 063D : 32 41 "2A" jb1 L0641 063F : C4 49 " I" jmp L0649 ; 0641 L0641: 0641 : 47 "G" swap a 0642 : 53 10 "S " anl a,#010H 0644 : 2F "/" xch a,r7 0645 : 53 EF "S " anl a,#0EFH 0647 : 4F "O" orl a,r7 0648 : AF " " mov r7,a 0649 L0649: 0649 : B9 38 " 8" mov r1,#038H 064B : F1 " " mov a,@r1 064C : 72 50 "rP" jb3 L0650 064E : C4 5E " ^" jmp L065E ; 0650 L0650: 0650 : B9 36 " 6" mov r1,#036H 0652 : F1 " " mov a,@r1 0653 : 47 "G" swap a 0654 : 53 C0 "S " anl a,#0C0H 0656 : 2F "/" xch a,r7 0657 : 53 3F "S?" anl a,#03FH 0659 : 4F "O" orl a,r7 065A : AF " " mov r7,a 065B : B9 38 " 8" mov r1,#038H 065D : F1 " " mov a,@r1 065E L065E: 065E : 32 62 "2b" jb1 L0662 0660 : C4 71 " q" jmp L0671 ; 0662 L0662: 0662 : E7 " " rl a 0663 : E7 " " rl a 0664 : DF " " xrl a,r7 0665 : 53 04 "S " anl a,#004H 0667 : C6 6E " n" jz L066E 0669 : FF " " mov a,r7 066A : D3 04 " " xrl a,#004H 066C : AF " " mov r7,a 066D : B5 " " cpl f1 066E L066E: 066E : B9 38 " 8" mov r1,#038H 0670 : F1 " " mov a,@r1 0671 L0671: 0671 : 52 75 "Ru" jb2 L0675 0673 : C4 CB " " jmp L06CB ; 0675 L0675: 0675 : B9 36 " 6" mov r1,#036H 0677 : F1 " " mov a,@r1 0678 : 53 03 "S " anl a,#003H 067A : C6 86 " " jz L0686 067C : D3 01 " " xrl a,#001H 067E : C6 91 " " jz L0691 0680 : D3 03 " " xrl a,#003H 0682 : C6 9C " " jz L069C 0684 : C4 AB " " jmp L06AB ; 0686 L0686: 0686 : 23 F0 "# " mov a,#0F0H 0688 : D4 C2 " " call L06C2 068A : 1B " " inc r3 068B : 23 FF "# " mov a,#0FFH 068D : D4 BA " " call L06BA 068F : C4 DA " " jmp L06DA ; 0691 L0691: 0691 : 23 F0 "# " mov a,#0F0H 0693 : D4 BA " " call L06BA 0695 : 1B " " inc r3 0696 : 23 FF "# " mov a,#0FFH 0698 : D4 BA " " call L06BA 069A : C4 DA " " jmp L06DA ; 069C L069C: 069C : 23 F0 "# " mov a,#0F0H 069E : D4 BA " " call L06BA 06A0 : 1B " " inc r3 06A1 : 23 0F "# " mov a,#00FH 06A3 : D4 C2 " " call L06C2 06A5 : 23 F0 "# " mov a,#0F0H 06A7 : D4 BA " " call L06BA 06A9 : C4 DA " " jmp L06DA ; 06AB L06AB: 06AB : 23 F0 "# " mov a,#0F0H 06AD : D4 BA " " call L06BA 06AF : 1B " " inc r3 06B0 : 23 F0 "# " mov a,#0F0H 06B2 : D4 C2 " " call L06C2 06B4 : 23 0F "# " mov a,#00FH 06B6 : D4 BA " " call L06BA 06B8 : C4 DA " " jmp L06DA ; 06BA L06BA: 06BA : 5C "\" anl a,r4 06BB : AA " " mov r2,a 06BC : FB " " mov a,r3 06BD : A9 " " mov r1,a 06BE : 81 " " movx a,@r1 06BF : 4A "J" orl a,r2 06C0 : 91 " " movx @r1,a 06C1 : 83 " " ret ; 06C2 L06C2: 06C2 : 5C "\" anl a,r4 06C3 : 37 "7" cpl a 06C4 : AA " " mov r2,a 06C5 : FB " " mov a,r3 06C6 : A9 " " mov r1,a 06C7 : 81 " " movx a,@r1 06C8 : 5A "Z" anl a,r2 06C9 : 91 " " movx @r1,a 06CA : 83 " " ret ; 06CB L06CB: 06CB : 76 DA "v " jf1 L06DA 06CD : FF " " mov a,r7 06CE : 37 "7" cpl a 06CF : 92 DA " " jb4 L06DA 06D1 : FB " " mov a,r3 06D2 : A9 " " mov r1,a 06D3 : FC " " mov a,r4 06D4 : 53 F0 "S " anl a,#0F0H 06D6 : AA " " mov r2,a 06D7 : 81 " " movx a,@r1 06D8 : DA " " xrl a,r2 06D9 : 91 " " movx @r1,a 06DA L06DA: 06DA : FD " " mov a,r5 06DB : A9 " " mov r1,a 06DC : FF " " mov a,r7 06DD : 91 " " movx @r1,a 06DE : C4 0B " " jmp L060B ; 06E0 : 00 " " nop 06E1 : 00 " " nop 06E2 : 00 " " nop 06E3 : 00 " " nop 06E4 : 00 " " nop 06E5 : 00 " " nop 06E6 : 00 " " nop 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 : BE 08 " " mov r6,#008H 0702 L0702: 0702 : 14 68 " h" call L0068 0704 : B8 2B " +" mov r0,#02BH 0706 : F0 " " mov a,@r0 0707 : A8 " " mov r0,a 0708 : F4 25 " %" call L0725 070A : EE 02 " " djnz r6,L0702 070C : 23 F2 "# " mov a,#0F2H 070E : E3 " " movp3 a,@a 070F : B8 90 " " mov r0,#090H 0711 : BA 10 " " mov r2,#010H 0713 L0713: 0713 : 90 " " movx @r0,a 0714 : 18 " " inc r0 0715 : EA 13 " " djnz r2,L0713 0717 : BB F3 " " mov r3,#0F3H 0719 : B8 A0 " " mov r0,#0A0H 071B : BA 08 " " mov r2,#008H 071D L071D: 071D : FB " " mov a,r3 071E : E3 " " movp3 a,@a 071F : 90 " " movx @r0,a 0720 : 18 " " inc r0 0721 : 1B " " inc r3 0722 : EA 1D " " djnz r2,L071D 0724 : 83 " " ret ; 0725 L0725: 0725 : BD E2 " " mov r5,#0E2H 0727 : BA 10 " " mov r2,#010H 0729 L0729: 0729 : FD " " mov a,r5 072A : E3 " " movp3 a,@a 072B : 90 " " movx @r0,a 072C : 18 " " inc r0 072D : 1D " " inc r5 072E : EA 29 " )" djnz r2,L0729 0730 : 83 " " ret ; 0731 L0731: 0731 : 54 F4 "T " call L02F4 0733 : 23 FC "# " mov a,#0FCH 0735 : 3A ":" outl p2,a 0736 : 23 C7 "# " mov a,#0C7H 0738 : 62 "b" mov t,a 0739 : 55 "U" strt t 073A : B8 27 " '" mov r0,#027H 073C : F0 " " mov a,@r0 073D : 17 " " inc a 073E : 53 03 "S " anl a,#003H 0740 : A0 " " mov @r0,a 0741 : E7 " " rl a 0742 : 03 A0 " " add a,#0A0H 0744 : A8 " " mov r0,a 0745 : 80 " " movx a,@r0 0746 : AA " " mov r2,a 0747 : 18 " " inc r0 0748 : B9 2A " *" mov r1,#02AH 074A : F1 " " mov a,@r1 074B : 12 53 " S" jb0 L0753 074D : 80 " " movx a,@r0 074E : 43 0F "C " orl a,#00FH 0750 : 5A "Z" anl a,r2 0751 : AA " " mov r2,a 0752 : F1 " " mov a,@r1 0753 L0753: 0753 : 72 5B "r[" jb3 L075B 0755 : 80 " " movx a,@r0 0756 : 47 "G" swap a 0757 : 43 0F "C " orl a,#00FH 0759 : 5A "Z" anl a,r2 075A : AA " " mov r2,a 075B L075B: 075B : B9 04 " " mov r1,#004H 075D : B8 BD " " mov r0,#0BDH 075F : 23 01 "# " mov a,#001H 0761 L0761: 0761 : 99 00 " " anl p1,#000H 0763 : 39 "9" outl p1,a 0764 : 0A " " in a,p2 0765 : 37 "7" cpl a 0766 : 90 " " movx @r0,a 0767 : 09 " " in a,p1 0768 : 18 " " inc r0 0769 : 53 0F "S " anl a,#00FH 076B : E7 " " rl a 076C : E9 61 " a" djnz r1,L0761 076E : 99 00 " " anl p1,#000H 0770 : FA " " mov a,r2 0771 : 39 "9" outl p1,a 0772 : B9 29 " )" mov r1,#029H 0774 : F1 " " mov a,@r1 0775 : 07 " " dec a 0776 : A1 " " mov @r1,a 0777 : 96 B5 " " jnz L07B5 0779 : B1 0C " " mov @r1,#00CH 077B : 19 " " inc r1 077C : 11 " " inc @r1 077D : F1 " " mov a,@r1 077E : 53 3F "S?" anl a,#03FH 0780 : 96 B5 " " jnz L07B5 0782 : 8A FF " " orl p2,#0FFH 0784 : 23 03 "# " mov a,#003H 0786 : 39 "9" outl p1,a 0787 : 80 " " movx a,@r0 0788 : 2A "*" xch a,r2 0789 : 39 "9" outl p1,a 078A : 9A FC " " anl p2,#0FCH 078C : B8 C9 " " mov r0,#0C9H 078E : 80 " " movx a,@r0 078F : DA " " xrl a,r2 0790 : C6 B5 " " jz L07B5 0792 : FA " " mov a,r2 0793 : 90 " " movx @r0,a 0794 : 14 ED " " call L00ED 0796 : 23 40 "#@" mov a,#040H 0798 : 14 E2 " " call L00E2 079A : B8 C9 " " mov r0,#0C9H 079C : 80 " " movx a,@r0 079D : 47 "G" swap a 079E : E7 " " rl a 079F : 53 06 "S " anl a,#006H 07A1 : 03 CA " " add a,#0CAH 07A3 : AA " " mov r2,a 07A4 : E3 " " movp3 a,@a 07A5 : B9 3B " ;" mov r1,#03BH 07A7 : A1 " " mov @r1,a 07A8 : FA " " mov a,r2 07A9 : 17 " " inc a 07AA : E3 " " movp3 a,@a 07AB : AB " " mov r3,a 07AC : 80 " " movx a,@r0 07AD : 53 C0 "S " anl a,#0C0H 07AF : 4B "K" orl a,r3 07B0 : 14 E2 " " call L00E2 07B2 : 27 "'" clr a 07B3 : 14 D9 " " call L00D9 07B5 L07B5: 07B5 : 74 A1 "t " call L03A1 07B7 : BA 10 " " mov r2,#010H 07B9 : BB 11 " " mov r3,#011H 07BB : BC 12 " " mov r4,#012H 07BD : B8 00 " " mov r0,#000H 07BF : BD 08 " " mov r5,#008H 07C1 L07C1: 07C1 : 80 " " movx a,@r0 07C2 : D3 02 " " xrl a,#002H 07C4 : 53 02 "S " anl a,#002H 07C6 : 96 F7 " " jnz L07F7 07C8 : 18 " " inc r0 07C9 : 80 " " movx a,@r0 07CA : C6 D5 " " jz L07D5 07CC : 07 " " dec a 07CD : 90 " " movx @r0,a 07CE : F8 " " mov a,r0 07CF : 6B "k" add a,r3 07D0 L07D0: 07D0 : A8 " " mov r0,a 07D1 : ED C1 " " djnz r5,L07C1 07D3 : 64 69 "di" jmp L0369 ; 07D5 L07D5: 07D5 : 07 " " dec a 07D6 : 90 " " movx @r0,a 07D7 : 18 " " inc r0 07D8 : 80 " " movx a,@r0 07D9 : C6 E1 " " jz L07E1 07DB : 07 " " dec a 07DC : 90 " " movx @r0,a 07DD : F8 " " mov a,r0 07DE : 6A "j" add a,r2 07DF : E4 D0 " " jmp L07D0 ; 07E1 L07E1: 07E1 : F8 " " mov a,r0 07E2 : 03 04 " " add a,#004H 07E4 : A9 " " mov r1,a 07E5 : 81 " " movx a,@r1 07E6 : 90 " " movx @r0,a 07E7 : C9 " " dec r1 07E8 : C8 " " dec r0 07E9 : 81 " " movx a,@r1 07EA : 90 " " movx @r0,a 07EB : F9 " " mov a,r1 07EC : 03 FB " " add a,#0FBH 07EE : A9 " " mov r1,a 07EF : 81 " " movx a,@r1 07F0 : 43 04 "C " orl a,#004H 07F2 : 91 " " movx @r1,a 07F3 L07F3: 07F3 : F8 " " mov a,r0 07F4 : 6B "k" add a,r3 07F5 : E4 D0 " " jmp L07D0 ; 07F7 L07F7: 07F7 : F8 " " mov a,r0 07F8 : 6C "l" add a,r4 07F9 : E4 D0 " " jmp L07D0 ; 07FB : FF " " mov a,r7 07FC : FF " " mov a,r7 07FD : FF " " mov a,r7 07FE : FF " " mov a,r7 07FF : FF " " mov a,r7 ;-------------------------------------------------------------- Symbol table ============ Value Type Name ----- ---- ---- 0009 Code L0009 000E Code L000E 0015 Code L0015 001C Code L001C 004C Code L004C 0053 Code L0053 0068 Code L0068 007A Code L007A 0085 Code L0085 00A3 Code L00A3 00B0 Code L00B0 00B4 Code L00B4 00BB Code L00BB 00BF Code L00BF 00C6 Code L00C6 00CD Code L00CD 00D5 Code L00D5 00D6 Code L00D6 00D9 Code L00D9 00DE Code L00DE 00E1 Code L00E1 00E2 Code L00E2 00ED Code L00ED 00FF Code L00FF 010B Code L010B 011E Code L011E 0126 Code L0126 0136 Code L0136 013F Code L013F 0148 Code L0148 0152 Code L0152 0167 Code L0167 016D Code L016D 0173 Code L0173 0177 Code L0177 0192 Code L0192 01A0 Code L01A0 01A1 Code L01A1 01A2 Code L01A2 01B0 Code L01B0 01B3 Code L01B3 01C3 Code L01C3 01CC Code L01CC 01CD Code L01CD 01D8 Code L01D8 01EB Code L01EB 01F0 Code L01F0 01F1 Code L01F1 01F6 Code L01F6 01FC Code L01FC 020A Code L020A 0219 Code L0219 0230 Code L0230 0239 Code L0239 024A Code L024A 0252 Code L0252 0256 Code L0256 0259 Code L0259 025D Code L025D 0261 Code L0261 0267 Code L0267 026D Code L026D 0271 Code L0271 0286 Code L0286 028A Code L028A 0298 Code L0298 02A0 Code L02A0 02AB Code L02AB 02B2 Code L02B2 02B7 Code L02B7 02BF Code L02BF 02C4 Code L02C4 02D0 Code L02D0 02DD Code L02DD 02E6 Code L02E6 02EF Code L02EF 02F0 Code L02F0 02F4 Code L02F4 0300 Code L0300 0311 Code L0311 0313 Code L0313 0317 Code L0317 0324 Code L0324 0347 Code L0347 0349 Code L0349 034E Code L034E 0353 Code L0353 0363 Code L0363 0369 Code L0369 0371 Code L0371 038C Code L038C 0390 Code L0390 0395 Code L0395 03A1 Code L03A1 03AD Code L03AD 0400 Code L0400 0415 Code L0415 0435 Code L0435 043F Code L043F 0443 Code L0443 044F Code L044F 045A Code L045A 045C Code L045C 0462 Code L0462 0469 Code L0469 0474 Code L0474 0484 Code L0484 0498 Code L0498 049E Code L049E 04B1 Code L04B1 04E4 Code L04E4 0500 Code L0500 050D Code L050D 0524 Code L0524 052A Code L052A 052F Code L052F 0539 Code L0539 055C Code L055C 055E Code L055E 0566 Code L0566 056B Code L056B 059B Code L059B 05AC Code L05AC 05AF Code L05AF 05BF Code L05BF 05C8 Code L05C8 05D8 Code L05D8 05F3 Code L05F3 0600 Code L0600 0609 Code L0609 060B Code L060B 061C Code L061C 0622 Code L0622 0623 Code L0623 0633 Code L0633 063D Code L063D 0641 Code L0641 0649 Code L0649 0650 Code L0650 065E Code L065E 0662 Code L0662 066E Code L066E 0671 Code L0671 0675 Code L0675 0686 Code L0686 0691 Code L0691 069C Code L069C 06AB Code L06AB 06BA Code L06BA 06C2 Code L06C2 06CB Code L06CB 06DA Code L06DA 0700 Code L0700 0702 Code L0702 0713 Code L0713 071D Code L071D 0725 Code L0725 0729 Code L0729 0731 Code L0731 0753 Code L0753 075B Code L075B 0761 Code L0761 07B5 Code L07B5 07C1 Code L07C1 07D0 Code L07D0 07D5 Code L07D5 07E1 Code L07E1 07F3 Code L07F3 07F7 Code L07F7 Number of symbols: 169 ;--------------------------------------------------------------