; ; Disassembled by: ; DASMx object code disassembler ; (c) Copyright 1996-2003 Conquest Consultants ; Version 1.40 (Oct 18 2003) ; ; File: E:\topmax\79499.001 ; ; Size: 1024 bytes ; Checksum: 132E ; CRC-32: AAD1ED7B ; ; Date: Fri Jul 11 20:10:34 2025 ; ; CPU: Intel 8048 (MCS-48 family) ; ; ; org 00000H ; 0000 : 04 09 " " jmp L0009 ; 0002 : 00 " " nop 0003 : 64 E9 "d " jmp L03E9 ; 0005 : 00 " " nop 0006 : 00 " " nop 0007 : 64 00 "d " jmp L0300 ; 0009 L0009: 0009 : C5 " " sel rb0 000A : BF FF " " mov r7,#0FFH 000C : 9A 00 " " anl p2,#000H 000E : 8A 9F " " orl p2,#09FH 0010 : BE FF " " mov r6,#0FFH 0012 : 89 FF " " orl p1,#0FFH 0014 : B9 1A " " mov r1,#01AH 0016 : B1 FF " " mov @r1,#0FFH 0018 : 19 " " inc r1 0019 : B1 00 " " mov @r1,#000H 001B : B8 20 " " mov r0,#020H 001D : B0 22 " "" mov @r0,#022H 001F : 18 " " inc r0 0020 : B0 22 " "" mov @r0,#022H 0022 : B9 1D " " mov r1,#01DH 0024 : B1 FF " " mov @r1,#0FFH 0026 : 19 " " inc r1 0027 : B1 00 " " mov @r1,#000H 0029 : B8 29 " )" mov r0,#029H 002B : B0 2B " +" mov @r0,#02BH 002D : 18 " " inc r0 002E : B0 2B " +" mov @r0,#02BH 0030 : 9A E0 " " anl p2,#0E0H 0032 : 8A 0F " " orl p2,#00FH 0034 : 89 FF " " orl p1,#0FFH 0036 : 08 " " ins a,bus 0037 : 37 "7" cpl a 0038 : 53 C0 "S " anl a,#0C0H 003A : 47 "G" swap a 003B : 03 A4 " " add a,#0A4H 003D : 26 41 "&A" jnt0 L0041 003F : 03 01 " " add a,#001H 0041 L0041: 0041 : 46 45 "FE" jnt1 L0045 0043 : 03 02 " " add a,#002H 0045 L0045: 0045 : 53 AF "S " anl a,#0AFH 0047 : B8 39 " 9" mov r0,#039H 0049 : A0 " " mov @r0,a 004A : 27 "'" clr a 004B : AA " " mov r2,a 004C : AB " " mov r3,a 004D : AC " " mov r4,a 004E : B8 19 " " mov r0,#019H 0050 : B0 40 " @" mov @r0,#040H 0052 : B8 30 " 0" mov r0,#030H 0054 : B0 00 " " mov @r0,#000H 0056 : 18 " " inc r0 0057 : B0 00 " " mov @r0,#000H 0059 : B8 3A " :" mov r0,#03AH 005B : B0 00 " " mov @r0,#000H 005D : B8 34 " 4" mov r0,#034H 005F : B0 18 " " mov @r0,#018H 0061 : A5 " " clr f1 0062 : 65 "e" stop tcnt 0063 : 23 FC "# " mov a,#0FCH 0065 : 62 "b" mov t,a 0066 : 55 "U" strt t 0067 : 25 "%" en tcnti 0068 : 05 " " en i 0069 L0069: 0069 : BF EF " " mov r7,#0EFH 006B : BE FF " " mov r6,#0FFH 006D : 54 46 "TF" call L0246 006F L006F: 006F : B9 3C " <" mov r1,#03CH 0071 : 08 " " ins a,bus 0072 : A8 " " mov r0,a 0073 L0073: 0073 : 08 " " ins a,bus 0074 : D8 " " xrl a,r0 0075 : 96 6F " o" jnz L006F 0077 : E9 73 " s" djnz r1,L0073 0079 : F8 " " mov a,r0 007A : 37 "7" cpl a 007B : 53 3F "S?" anl a,#03FH 007D : 43 80 "C " orl a,#080H 007F : A8 " " mov r0,a 0080 : B9 39 " 9" mov r1,#039H 0082 : F1 " " mov a,@r1 0083 : D3 AC " " xrl a,#0ACH 0085 : 96 8A " " jnz L008A 0087 : F8 " " mov a,r0 0088 : 04 91 " " jmp L0091 ; 008A L008A: 008A : F1 " " mov a,@r1 008B : 03 58 " X" add a,#058H 008D : 54 72 "Tr" call L0272 008F : F9 " " mov a,r1 0090 : A8 " " mov r0,a 0091 L0091: 0091 : DA " " xrl a,r2 0092 : C6 99 " " jz L0099 0094 : F8 " " mov a,r0 0095 : AA " " mov r2,a 0096 : AB " " mov r3,a 0097 : 54 C5 "T " call L02C5 0099 L0099: 0099 : 27 "'" clr a 009A : 85 " " clr f0 009B : B8 35 " 5" mov r0,#035H 009D : A0 " " mov @r0,a 009E : 18 " " inc r0 009F : A0 " " mov @r0,a 00A0 : 18 " " inc r0 00A1 : A0 " " mov @r0,a 00A2 : 18 " " inc r0 00A3 : A0 " " mov @r0,a 00A4 : BF FF " " mov r7,#0FFH 00A6 : BE FE " " mov r6,#0FEH 00A8 : BB 00 " " mov r3,#000H 00AA L00AA: 00AA : 54 46 "TF" call L0246 00AC : B9 3C " <" mov r1,#03CH 00AE : 08 " " ins a,bus 00AF : A8 " " mov r0,a 00B0 L00B0: 00B0 : 08 " " ins a,bus 00B1 : D8 " " xrl a,r0 00B2 : 96 AA " " jnz L00AA 00B4 : E9 B0 " " djnz r1,L00B0 00B6 : F8 " " mov a,r0 00B7 : D3 FF " " xrl a,#0FFH 00B9 : 96 BD " " jnz L00BD 00BB : 24 10 "$ " jmp L0110 ; 00BD L00BD: 00BD : F8 " " mov a,r0 00BE : B8 38 " 8" mov r0,#038H 00C0 : A0 " " mov @r0,a 00C1 : B9 00 " " mov r1,#000H 00C3 : 12 C7 " " jb0 L00C7 00C5 : 14 F3 " " call L00F3 00C7 L00C7: 00C7 : F0 " " mov a,@r0 00C8 : 19 " " inc r1 00C9 : 32 CD "2 " jb1 L00CD 00CB : 14 F3 " " call L00F3 00CD L00CD: 00CD : F0 " " mov a,@r0 00CE : 19 " " inc r1 00CF : 52 D3 "R " jb2 L00D3 00D1 : 14 F3 " " call L00F3 00D3 L00D3: 00D3 : F0 " " mov a,@r0 00D4 : 19 " " inc r1 00D5 : 72 D9 "r " jb3 L00D9 00D7 : 14 F3 " " call L00F3 00D9 L00D9: 00D9 : F0 " " mov a,@r0 00DA : 19 " " inc r1 00DB : 92 DF " " jb4 L00DF 00DD : 14 F3 " " call L00F3 00DF L00DF: 00DF : F0 " " mov a,@r0 00E0 : 19 " " inc r1 00E1 : B2 E5 " " jb5 L00E5 00E3 : 14 F3 " " call L00F3 00E5 L00E5: 00E5 : F0 " " mov a,@r0 00E6 : 19 " " inc r1 00E7 : D2 EB " " jb6 L00EB 00E9 : 14 F3 " " call L00F3 00EB L00EB: 00EB : F0 " " mov a,@r0 00EC : 19 " " inc r1 00ED : F2 F1 " " jb7 L00F1 00EF : 14 F3 " " call L00F3 00F1 L00F1: 00F1 : 24 10 "$ " jmp L0110 ; 00F3 L00F3: 00F3 : B8 35 " 5" mov r0,#035H 00F5 : F0 " " mov a,@r0 00F6 : 32 F9 "2 " jb1 L00F9 00F8 : 10 " " inc @r0 00F9 L00F9: 00F9 : B8 37 " 7" mov r0,#037H 00FB : FB " " mov a,r3 00FC : A0 " " mov @r0,a 00FD : F9 " " mov a,r1 00FE : 2B "+" xch a,r3 00FF : 47 "G" swap a 0100 : 77 "w" rr a 0101 : 6B "k" add a,r3 0102 : 17 " " inc a 0103 : B8 36 " 6" mov r0,#036H 0105 : A0 " " mov @r0,a 0106 : DC " " xrl a,r4 0107 : 96 0A " " jnz L010A 0109 : 95 " " cpl f0 010A L010A: 010A : B8 37 " 7" mov r0,#037H 010C : F0 " " mov a,@r0 010D : AB " " mov r3,a 010E : 18 " " inc r0 010F : 83 " " ret ; 0110 L0110: 0110 : FE " " mov a,r6 0111 : 97 " " clr c 0112 : A7 " " cpl c 0113 : F7 " " rlc a 0114 : AE " " mov r6,a 0115 : FF " " mov a,r7 0116 : F7 " " rlc a 0117 : AF " " mov r7,a 0118 : D3 EF " " xrl a,#0EFH 011A : 96 1E " " jnz L011E 011C : 24 21 "$!" jmp L0121 ; 011E L011E: 011E : 1B " " inc r3 011F : 04 AA " " jmp L00AA ; 0121 L0121: 0121 : B8 35 " 5" mov r0,#035H 0123 : F0 " " mov a,@r0 0124 : C6 2A " *" jz L012A 0126 : 12 2E " ." jb0 L012E 0128 : B6 32 " 2" jf0 L0132 012A L012A: 012A : BC 00 " " mov r4,#000H 012C L012C: 012C : 24 51 "$Q" jmp L0151 ; 012E L012E: 012E : B6 32 " 2" jf0 L0132 0130 : 24 46 "$F" jmp L0146 ; 0132 L0132: 0132 : FD " " mov a,r5 0133 : 96 2C " ," jnz L012C 0135 : B8 3B " ;" mov r0,#03BH 0137 : F0 " " mov a,@r0 0138 : 96 2C " ," jnz L012C 013A : 54 30 "T0" call L0230 013C : FA " " mov a,r2 013D : 43 40 "C@" orl a,#040H 013F : AB " " mov r3,a 0140 : 54 C5 "T " call L02C5 0142 : BD 09 " " mov r5,#009H 0144 : 24 51 "$Q" jmp L0151 ; 0146 L0146: 0146 : 54 30 "T0" call L0230 0148 : B8 36 " 6" mov r0,#036H 014A : F0 " " mov a,@r0 014B : AC " " mov r4,a 014C : AB " " mov r3,a 014D : 54 C5 "T " call L02C5 014F : BD 4B " K" mov r5,#04BH 0151 L0151: 0151 : B8 1A " " mov r0,#01AH 0153 : F0 " " mov a,@r0 0154 : D3 FF " " xrl a,#0FFH 0156 : 96 73 " s" jnz L0173 0158 : B8 20 " " mov r0,#020H 015A : F0 " " mov a,@r0 015B : 18 " " inc r0 015C : D0 " " xrl a,@r0 015D : C6 73 " s" jz L0173 015F : 10 " " inc @r0 0160 : F0 " " mov a,@r0 0161 : D3 29 " )" xrl a,#029H 0163 : 96 67 " g" jnz L0167 0165 : B0 22 " "" mov @r0,#022H 0167 L0167: 0167 : F0 " " mov a,@r0 0168 : A8 " " mov r0,a 0169 : F0 " " mov a,@r0 016A : B8 1C " " mov r0,#01CH 016C : A0 " " mov @r0,a 016D : C8 " " dec r0 016E : B0 08 " " mov @r0,#008H 0170 : C8 " " dec r0 0171 : B0 00 " " mov @r0,#000H 0173 L0173: 0173 : B9 31 " 1" mov r1,#031H 0175 : F1 " " mov a,@r1 0176 : 96 8E " " jnz L018E 0178 : B9 3A " :" mov r1,#03AH 017A : F1 " " mov a,@r1 017B : 96 8E " " jnz L018E 017D : 85 " " clr f0 017E : 54 10 "T " call L0210 0180 : B6 8E " " jf0 L018E 0182 : A8 " " mov r0,a 0183 : B9 39 " 9" mov r1,#039H 0185 : F1 " " mov a,@r1 0186 : D3 AC " " xrl a,#0ACH 0188 : 96 90 " " jnz L0190 018A : 24 DB "$ " jmp L01DB 018C : 24 90 "$ " jmp L0190 018E L018E: 018E : 04 69 " i" jmp L0069 ; 0190 L0190: 0190 : F8 " " mov a,r0 0191 : A9 " " mov r1,a 0192 : F1 " " mov a,@r1 0193 : 12 8E " " jb0 L018E 0195 : F1 " " mov a,@r1 0196 : 32 A9 "2 " jb1 L01A9 0198 : F1 " " mov a,@r1 0199 : 52 B3 "R " jb2 L01B3 019B L019B: 019B : F1 " " mov a,@r1 019C : 72 A5 "r " jb3 L01A5 019E : 34 CE "4 " call L01CE 01A0 : F1 " " mov a,@r1 01A1 : 92 D3 " " jb4 L01D3 01A3 : 24 8E "$ " jmp L018E ; 01A5 L01A5: 01A5 : 34 C9 "4 " call L01C9 01A7 : 24 8E "$ " jmp L018E ; 01A9 L01A9: 01A9 : 23 0F "# " mov a,#00FH 01AB : 34 BD "4 " call L01BD 01AD : 23 03 "# " mov a,#003H 01AF : 34 C1 "4 " call L01C1 01B1 : 24 9B "$ " jmp L019B ; 01B3 L01B3: 01B3 : 23 0F "# " mov a,#00FH 01B5 : 34 BD "4 " call L01BD 01B7 : 23 07 "# " mov a,#007H 01B9 : 34 C1 "4 " call L01C1 01BB : 24 9B "$ " jmp L019B ; 01BD L01BD: 01BD : B8 33 " 3" mov r0,#033H 01BF : A0 " " mov @r0,a 01C0 : 83 " " ret ; 01C1 L01C1: 01C1 : B8 3A " :" mov r0,#03AH 01C3 : 53 0F "S " anl a,#00FH 01C5 : E7 " " rl a 01C6 : E7 " " rl a 01C7 : A0 " " mov @r0,a 01C8 : 83 " " ret ; 01C9 L01C9: 01C9 : B8 30 " 0" mov r0,#030H 01CB : B0 00 " " mov @r0,#000H 01CD : 83 " " ret ; 01CE L01CE: 01CE : B8 30 " 0" mov r0,#030H 01D0 : B0 FF " " mov @r0,#0FFH 01D2 : 83 " " ret ; 01D3 L01D3: 01D3 : B8 39 " 9" mov r0,#039H 01D5 : F0 " " mov a,@r0 01D6 : AB " " mov r3,a 01D7 : 54 C5 "T " call L02C5 01D9 : 24 8E "$ " jmp L018E ; 01DB L01DB: 01DB : F8 " " mov a,r0 01DC : A9 " " mov r1,a 01DD : F1 " " mov a,@r1 01DE : D3 00 " " xrl a,#000H 01E0 : 96 E4 " " jnz L01E4 01E2 : 34 C9 "4 " call L01C9 01E4 L01E4: 01E4 : F1 " " mov a,@r1 01E5 : D3 01 " " xrl a,#001H 01E7 : 96 EB " " jnz L01EB 01E9 : 34 CE "4 " call L01CE 01EB L01EB: 01EB : F1 " " mov a,@r1 01EC : D3 40 " @" xrl a,#040H 01EE : 96 F2 " " jnz L01F2 01F0 : 24 D3 "$ " jmp L01D3 ; 01F2 L01F2: 01F2 : F1 " " mov a,@r1 01F3 : 92 F9 " " jb4 L01F9 01F5 : 23 0F "# " mov a,#00FH 01F7 : 24 FB "$ " jmp L01FB ; 01F9 L01F9: 01F9 : 23 33 "#3" mov a,#033H 01FB L01FB: 01FB : 34 BD "4 " call L01BD 01FD : F1 " " mov a,@r1 01FE : 34 C1 "4 " call L01C1 0200 : 24 8E "$ " jmp L018E 0202 : 04 0D " " jmp L000D ; 0204 : 77 "w" rr a 0205 : 0E " " movd a,p6 0206 : 80 " " movx a,@r0 0207 : 0F " " movd a,p7 0208 : 1A " " inc r2 0209 : 0A " " in a,p2 020A : 13 08 " " addc a,#008H 020C : 07 " " dec a 020D : 08 " " ins a,bus ; 020E : E0 " " db 0E0H ; 020F : 04 B8 " " jmp L00B8 ; 0211 : 29 ")" xch a,r1 0212 : F0 " " mov a,@r0 0213 : 18 " " inc r0 0214 : D0 " " xrl a,@r0 0215 L0215: 0215 : C6 21 " !" jz L0221 0217 : 10 " " inc @r0 0218 : F0 " " mov a,@r0 0219 : D3 30 " 0" xrl a,#030H 021B : 96 1F " " jnz L021F 021D : B0 2B " +" mov @r0,#02BH 021F L021F: 021F : F0 " " mov a,@r0 0220 : 83 " " ret ; 0221 L0221: 0221 : 85 " " clr f0 0222 : 95 " " cpl f0 0223 : 83 " " ret ; 0224 : B8 2A " *" mov r0,#02AH 0226 : F0 " " mov a,@r0 0227 : 07 " " dec a 0228 : A0 " " mov @r0,a 0229 : D3 2A " *" xrl a,#02AH 022B : 96 2F " /" jnz L022F 022D : B0 2F " /" mov @r0,#02FH 022F L022F: 022F : 83 " " ret ; 0230 L0230: 0230 : B9 30 " 0" mov r1,#030H 0232 : F1 " " mov a,@r1 0233 : C6 45 " E" jz L0245 0235 : B9 31 " 1" mov r1,#031H 0237 : F1 " " mov a,@r1 0238 : 96 45 " E" jnz L0245 023A : B9 3A " :" mov r1,#03AH 023C : F1 " " mov a,@r1 023D : 96 45 " E" jnz L0245 023F : B1 02 " " mov @r1,#002H 0241 : B9 33 " 3" mov r1,#033H 0243 : B1 33 " 3" mov @r1,#033H 0245 L0245: 0245 : 83 " " ret ; 0246 L0246: 0246 : FE " " mov a,r6 0247 : 39 "9" outl p1,a 0248 : 8A 1F " " orl p2,#01FH 024A : FF " " mov a,r7 024B : D3 FE " " xrl a,#0FEH 024D : 96 52 " R" jnz L0252 024F : 9A FE " " anl p2,#0FEH 0251 : 83 " " ret ; 0252 L0252: 0252 : FF " " mov a,r7 0253 : D3 FD " " xrl a,#0FDH 0255 : 96 5A " Z" jnz L025A 0257 : 9A FD " " anl p2,#0FDH 0259 : 83 " " ret ; 025A L025A: 025A : FF " " mov a,r7 025B : D3 FB " " xrl a,#0FBH 025D : 96 62 " b" jnz L0262 025F : 9A FB " " anl p2,#0FBH 0261 : 83 " " ret ; 0262 L0262: 0262 : FF " " mov a,r7 0263 : D3 F7 " " xrl a,#0F7H 0265 : 96 6A " j" jnz L026A 0267 : 9A F7 " " anl p2,#0F7H 0269 : 83 " " ret ; 026A L026A: 026A : FF " " mov a,r7 026B : D3 EF " " xrl a,#0EFH 026D : 96 71 " q" jnz L0271 026F : 9A EF " " anl p2,#0EFH 0271 L0271: 0271 : 83 " " ret ; 0272 L0272: 0272 : F1 " " mov a,@r1 0273 : 03 5A " Z" add a,#05AH 0275 : B9 80 " " mov r1,#080H 0277 : F2 7B " {" jb7 L027B 0279 : 44 A0 "D " jmp L02A0 ; 027B L027B: 027B : F8 " " mov a,r0 027C : 12 88 " " jb0 L0288 027E L027E: 027E : F8 " " mov a,r0 027F : 72 8E "r " jb3 L028E 0281 L0281: 0281 : F8 " " mov a,r0 0282 : B2 94 " " jb5 L0294 0284 L0284: 0284 : F8 " " mov a,r0 0285 : 92 9A " " jb4 L029A 0287 L0287: 0287 : 83 " " ret ; 0288 L0288: 0288 : 23 01 "# " mov a,#001H 028A : 69 "i" add a,r1 028B : A9 " " mov r1,a 028C : 44 7E "D~" jmp L027E ; 028E L028E: 028E : 23 08 "# " mov a,#008H 0290 : 69 "i" add a,r1 0291 : A9 " " mov r1,a 0292 : 44 84 "D " jmp L0284 ; 0294 L0294: 0294 : 23 02 "# " mov a,#002H 0296 : 69 "i" add a,r1 0297 : A9 " " mov r1,a 0298 : 44 84 "D " jmp L0284 ; 029A L029A: 029A : 23 04 "# " mov a,#004H 029C : 69 "i" add a,r1 029D : A9 " " mov r1,a 029E : 44 87 "D " jmp L0287 ; 02A0 L02A0: 02A0 : F8 " " mov a,r0 02A1 : 12 AD " " jb0 L02AD 02A3 L02A3: 02A3 : F8 " " mov a,r0 02A4 : 32 B3 "2 " jb1 L02B3 02A6 : F8 " " mov a,r0 02A7 : 92 B9 " " jb4 L02B9 02A9 L02A9: 02A9 : F8 " " mov a,r0 02AA : B2 BF " " jb5 L02BF 02AC L02AC: 02AC : 83 " " ret ; 02AD L02AD: 02AD : 23 01 "# " mov a,#001H 02AF : 69 "i" add a,r1 02B0 : A9 " " mov r1,a 02B1 : 44 A3 "D " jmp L02A3 ; 02B3 L02B3: 02B3 : 23 08 "# " mov a,#008H 02B5 : 69 "i" add a,r1 02B6 : A9 " " mov r1,a 02B7 : 44 A9 "D " jmp L02A9 ; 02B9 L02B9: 02B9 : 23 02 "# " mov a,#002H 02BB : 69 "i" add a,r1 02BC : A9 " " mov r1,a 02BD : 44 A9 "D " jmp L02A9 ; 02BF L02BF: 02BF : 23 04 "# " mov a,#004H 02C1 : 69 "i" add a,r1 02C2 : A9 " " mov r1,a 02C3 : 44 AC "D " jmp L02AC ; 02C5 L02C5: 02C5 : B8 20 " " mov r0,#020H 02C7 : 10 " " inc @r0 02C8 : F0 " " mov a,@r0 02C9 : D3 29 " )" xrl a,#029H 02CB : 96 CF " " jnz L02CF 02CD : B0 22 " "" mov @r0,#022H 02CF L02CF: 02CF : F0 " " mov a,@r0 02D0 : 18 " " inc r0 02D1 : D0 " " xrl a,@r0 02D2 : C6 DA " " jz L02DA 02D4 : C8 " " dec r0 02D5 : F0 " " mov a,@r0 02D6 : A8 " " mov r0,a 02D7 : FB " " mov a,r3 02D8 : A0 " " mov @r0,a 02D9 L02D9: 02D9 : 83 " " ret ; 02DA L02DA: 02DA : C8 " " dec r0 02DB : F0 " " mov a,@r0 02DC : 07 " " dec a 02DD : A0 " " mov @r0,a 02DE : D3 21 " !" xrl a,#021H 02E0 : 96 D9 " " jnz L02D9 02E2 : B0 28 " (" mov @r0,#028H 02E4 : 83 " " ret ; 02E5 : 87 " " db 087H ; 02E6 : 25 "%" en tcnti 02E7 : 04 35 " 5" jmp L0035 ; 02E9 : B6 34 " 4" jf0 L0234 02EB : 36 F6 "6 " jt0 L02F6 02ED : FF " " mov a,r7 ; 02EE : 01 " " db 001H ; 02EF : C4 04 " " jmp L0604 ; 02F1 : 27 "'" clr a 02F2 : F9 " " mov a,r1 02F3 : 1A " " inc r2 02F4 : 10 " " inc @r0 ; 02F5 : B7 " " db 0B7H ; 02F6 L02F6: 02F6 : FF " " mov a,r7 02F7 : 03 1C " " add a,#01CH 02F9 : EF 81 " " djnz r7,L0281 02FB : 0D " " movd a,p5 02FC : 26 15 "& " jnt0 L0215 02FE : 7D "}" addc a,r5 02FF : 11 " " inc @r1 0300 L0300: 0300 : 35 "5" dis tcnti 0301 : D5 " " sel rb1 0302 L0302: 0302 : C9 " " dec r1 0303 : A1 " " mov @r1,a 0304 : 65 "e" stop tcnt 0305 : 23 FC "# " mov a,#0FCH 0307 : 62 "b" mov t,a 0308 : 55 "U" strt t 0309 : B8 31 " 1" mov r0,#031H 030B : F0 " " mov a,@r0 030C : C6 1B " " jz L031B 030E : B8 33 " 3" mov r0,#033H 0310 : F0 " " mov a,@r0 0311 : 32 17 "2 " jb1 L0317 0313 : 9A BF " " anl p2,#0BFH 0315 : 64 19 "d " jmp L0319 ; 0317 L0317: 0317 : 8A 40 " @" orl p2,#040H 0319 L0319: 0319 : 77 "w" rr a 031A : A0 " " mov @r0,a 031B L031B: 031B : 76 1F "v " jf1 L031F 031D : 64 3A "d:" jmp L033A ; 031F L031F: 031F : B8 31 " 1" mov r0,#031H 0321 : F0 " " mov a,@r0 0322 : C6 26 " &" jz L0326 0324 : 07 " " dec a 0325 : A0 " " mov @r0,a 0326 L0326: 0326 : B8 3B " ;" mov r0,#03BH 0328 : F0 " " mov a,@r0 0329 : C6 30 " 0" jz L0330 032B : F0 " " mov a,@r0 032C : 07 " " dec a 032D : A0 " " mov @r0,a 032E : 64 3A "d:" jmp L033A ; 0330 L0330: 0330 : B8 05 " " mov r0,#005H 0332 : F0 " " mov a,@r0 0333 : C6 3A " :" jz L033A 0335 : B0 00 " " mov @r0,#000H 0337 : B8 3B " ;" mov r0,#03BH 0339 : A0 " " mov @r0,a 033A L033A: 033A : B8 34 " 4" mov r0,#034H 033C : 76 50 "vP" jf1 L0350 033E : F0 " " mov a,@r0 033F : 07 " " dec a 0340 : A0 " " mov @r0,a 0341 : 96 4E " N" jnz L034E 0343 : B5 " " cpl f1 0344 : B8 3A " :" mov r0,#03AH 0346 : F0 " " mov a,@r0 0347 : C6 4E " N" jz L034E 0349 : B0 00 " " mov @r0,#000H 034B : B8 31 " 1" mov r0,#031H 034D : A0 " " mov @r0,a 034E L034E: 034E : 64 53 "dS" jmp L0353 ; 0350 L0350: 0350 : A5 " " clr f1 0351 : B0 18 " " mov @r0,#018H 0353 L0353: 0353 : FA " " mov a,r2 0354 : D3 FF " " xrl a,#0FFH 0356 : 96 5A " Z" jnz L035A 0358 : 64 8B "d " jmp L038B ; 035A L035A: 035A : FB " " mov a,r3 035B : C6 60 " `" jz L0360 035D : CB " " dec r3 035E : 64 8B "d " jmp L038B ; 0360 L0360: 0360 : FA " " mov a,r2 0361 : D3 0A " " xrl a,#00AH 0363 : C6 67 " g" jz L0367 0365 : 64 6B "dk" jmp L036B ; 0367 L0367: 0367 : BA FF " " mov r2,#0FFH 0369 : 64 8B "d " jmp L038B ; 036B L036B: 036B : FA " " mov a,r2 036C : D3 00 " " xrl a,#000H 036E : C6 7A " z" jz L037A 0370 : FA " " mov a,r2 0371 : D3 09 " " xrl a,#009H 0373 : C6 7E " ~" jz L037E 0375 : FC " " mov a,r4 0376 : 67 "g" rrc a 0377 : AC " " mov r4,a 0378 : F6 7E " ~" jc L037E 037A L037A: 037A : 9A 7F " " anl p2,#07FH 037C : 64 80 "d " jmp L0380 ; 037E L037E: 037E : 8A 80 " " orl p2,#080H 0380 L0380: 0380 : 1A " " inc r2 0381 : BB 08 " " mov r3,#008H 0383 : FA " " mov a,r2 0384 : D3 09 " " xrl a,#009H 0386 : 96 89 " " jnz L0389 0388 : CB " " dec r3 0389 L0389: 0389 : 64 8B "d " jmp L038B ; 038B L038B: 038B : FD " " mov a,r5 038C : D3 FF " " xrl a,#0FFH 038E : C6 9F " " jz L039F 0390 : FE " " mov a,r6 0391 : C6 96 " " jz L0396 0393 : CE " " dec r6 0394 : 64 E4 "d " jmp L03E4 ; 0396 L0396: 0396 : FD " " mov a,r5 0397 : D3 00 " " xrl a,#000H 0399 : 96 A2 " " jnz L03A2 039B : 86 B0 " " jni L03B0 039D : BD FF " " mov r5,#0FFH 039F L039F: 039F : 05 " " en i 03A0 : 64 E4 "d " jmp L03E4 ; 03A2 L03A2: 03A2 : FD " " mov a,r5 03A3 : D3 09 " " xrl a,#009H 03A5 : 96 A9 " " jnz L03A9 03A7 : 64 BC "d " jmp L03BC ; 03A9 L03A9: 03A9 : 97 " " clr c 03AA : FF " " mov a,r7 03AB : 77 "w" rr a 03AC : 86 B0 " " jni L03B0 03AE : 43 80 "C " orl a,#080H 03B0 L03B0: 03B0 : AF " " mov r7,a 03B1 : 1D " " inc r5 03B2 : BE 08 " " mov r6,#008H 03B4 : FD " " mov a,r5 03B5 : D3 09 " " xrl a,#009H 03B7 : 96 BA " " jnz L03BA 03B9 : CE " " dec r6 03BA L03BA: 03BA : 64 E4 "d " jmp L03E4 ; 03BC L03BC: 03BC : BE 08 " " mov r6,#008H 03BE : BD FF " " mov r5,#0FFH 03C0 : 86 D8 " " jni L03D8 03C2 : B8 29 " )" mov r0,#029H 03C4 : 10 " " inc @r0 03C5 : 23 30 "#0" mov a,#030H 03C7 : D0 " " xrl a,@r0 03C8 : 96 CC " " jnz L03CC 03CA : B0 2B " +" mov @r0,#02BH 03CC L03CC: 03CC : 18 " " inc r0 03CD : F0 " " mov a,@r0 03CE : C8 " " dec r0 03CF : D0 " " xrl a,@r0 03D0 : C6 DB " " jz L03DB 03D2 : F0 " " mov a,@r0 03D3 : A8 " " mov r0,a 03D4 : FF " " mov a,r7 03D5 : A0 " " mov @r0,a 03D6 : 64 E4 "d " jmp L03E4 ; 03D8 L03D8: 03D8 : 05 " " en i 03D9 : 64 E4 "d " jmp L03E4 ; 03DB L03DB: 03DB : F0 " " mov a,@r0 03DC : 07 " " dec a 03DD : A0 " " mov @r0,a 03DE : D3 2A " *" xrl a,#02AH 03E0 : 96 E4 " " jnz L03E4 03E2 : B0 2F " /" mov @r0,#02FH 03E4 L03E4: 03E4 : F1 " " mov a,@r1 03E5 : 19 " " inc r1 03E6 : C5 " " sel rb0 03E7 : 25 "%" en tcnti 03E8 : 93 " " retr ; 03E9 L03E9: 03E9 : 15 " " dis i 03EA : D5 " " sel rb1 03EB : C9 " " dec r1 03EC : A1 " " mov @r1,a 03ED : FD " " mov a,r5 03EE : D3 FF " " xrl a,#0FFH 03F0 : 96 F8 " " jnz L03F8 03F2 : BF 00 " " mov r7,#000H 03F4 : BE 04 " " mov r6,#004H 03F6 : BD 00 " " mov r5,#000H 03F8 L03F8: 03F8 : F1 " " mov a,@r1 03F9 : 19 " " inc r1 03FA : C5 " " sel rb0 03FB : 93 " " retr ; 03FC : 02 " " outl bus,a 03FD : C6 02 " " jz L0302 03FF : D8 " " xrl a,r0 ;-------------------------------------------------------------- Symbol table ============ Value Type Name ----- ---- ---- 0009 Code L0009 000D Code L000D 0035 Code L0035 0041 Code L0041 0045 Code L0045 0069 Code L0069 006F Code L006F 0073 Code L0073 008A Code L008A 0091 Code L0091 0099 Code L0099 00AA Code L00AA 00B0 Code L00B0 00B8 Code L00B8 00BD Code L00BD 00C7 Code L00C7 00CD Code L00CD 00D3 Code L00D3 00D9 Code L00D9 00DF Code L00DF 00E5 Code L00E5 00EB Code L00EB 00F1 Code L00F1 00F3 Code L00F3 00F9 Code L00F9 010A Code L010A 0110 Code L0110 011E Code L011E 0121 Code L0121 012A Code L012A 012C Code L012C 012E Code L012E 0132 Code L0132 0146 Code L0146 0151 Code L0151 0167 Code L0167 0173 Code L0173 018E Code L018E 0190 Code L0190 019B Code L019B 01A5 Code L01A5 01A9 Code L01A9 01B3 Code L01B3 01BD Code L01BD 01C1 Code L01C1 01C9 Code L01C9 01CE Code L01CE 01D3 Code L01D3 01DB Code L01DB 01E4 Code L01E4 01EB Code L01EB 01F2 Code L01F2 01F9 Code L01F9 01FB Code L01FB 0210 Code L0210 0215 Code L0215 021F Code L021F 0221 Code L0221 022F Code L022F 0230 Code L0230 0234 Code L0234 0245 Code L0245 0246 Code L0246 0252 Code L0252 025A Code L025A 0262 Code L0262 026A Code L026A 0271 Code L0271 0272 Code L0272 027B Code L027B 027E Code L027E 0281 Code L0281 0284 Code L0284 0287 Code L0287 0288 Code L0288 028E Code L028E 0294 Code L0294 029A Code L029A 02A0 Code L02A0 02A3 Code L02A3 02A9 Code L02A9 02AC Code L02AC 02AD Code L02AD 02B3 Code L02B3 02B9 Code L02B9 02BF Code L02BF 02C5 Code L02C5 02CF Code L02CF 02D9 Code L02D9 02DA Code L02DA 02F6 Code L02F6 0300 Code L0300 0302 Code L0302 0317 Code L0317 0319 Code L0319 031B Code L031B 031F Code L031F 0326 Code L0326 0330 Code L0330 033A Code L033A 034E Code L034E 0350 Code L0350 0353 Code L0353 035A Code L035A 0360 Code L0360 0367 Code L0367 036B Code L036B 037A Code L037A 037E Code L037E 0380 Code L0380 0389 Code L0389 038B Code L038B 0396 Code L0396 039F Code L039F 03A2 Code L03A2 03A9 Code L03A9 03B0 Code L03B0 03BA Code L03BA 03BC Code L03BC 03CC Code L03CC 03D8 Code L03D8 03DB Code L03DB 03E4 Code L03E4 03E9 Code L03E9 03F8 Code L03F8 0604 Code L0604 Number of symbols: 126 ;--------------------------------------------------------------