; ; Disassembled by: ; DASMx object code disassembler ; (c) Copyright 1996-2003 Conquest Consultants ; Version 1.40 (Oct 18 2003) ; ; File: wd1015-14.bin ; ; Size: 2048 bytes ; Checksum: BFDD ; CRC-32: 45639130 ; ; Date: Thu Aug 02 00:51:04 2018 ; ; CPU: Intel 8048 (MCS-48 family) ; ; ; org 00000H ; 0000 : 9A DF " " anl p2,#0DFH 0002 : 14 BA " " call L00BA 0004 L0004: 0004 : B8 4D " M" mov r0,#04DH 0006 : B9 02 " " mov r1,#002H 0008 L0008: 0008 : 14 7F " " call L007F 000A : 14 98 " " call L0098 000C : 14 98 " " call L0098 000E L000E: 000E : F4 05 " " call L0705 0010 : 96 16 " " jnz L0016 0012 : 86 17 " " jni L0017 0014 : 04 0E " " jmp L000E ; 0016 L0016: 0016 : 39 "9" outl p1,a 0017 L0017: 0017 : 27 "'" clr a 0018 : D7 " " mov psw,a 0019 L0019: 0019 : 86 1D " " jni L001D 001B : 04 19 " " jmp L0019 ; 001D L001D: 001D : BA 02 " " mov r2,#002H 001F : 27 "'" clr a 0020 : 14 C1 " " call L00C1 0022 : BA 02 " " mov r2,#002H 0024 : F4 E7 " " call L07E7 0026 : B9 20 " " mov r1,#020H 0028 : BA 06 " " mov r2,#006H 002A : 74 DC "t " call L03DC 002C : B8 28 " (" mov r0,#028H 002E : B9 07 " " mov r1,#007H 0030 : 14 7F " " call L007F 0032 : B8 49 " I" mov r0,#049H 0034 : B0 62 " b" mov @r0,#062H 0036 : B9 21 " !" mov r1,#021H 0038 : F1 " " mov a,@r1 0039 : B2 3D " =" jb5 L003D 003B : B0 4F " O" mov @r0,#04FH 003D L003D: 003D : C9 " " dec r1 003E : F1 " " mov a,@r1 003F : 03 F0 " " add a,#0F0H 0041 : F1 " " mov a,@r1 0042 : E6 52 " R" jnc L0052 0044 : 03 20 " " add a,#020H 0046 : F6 4C " L" jc L004C 0048 L0048: 0048 : BB 20 " " mov r3,#020H 004A : 04 54 " T" jmp L0054 ; 004C L004C: 004C : 03 F9 " " add a,#0F9H 004E : F6 48 " H" jc L0048 0050 : 03 17 " " add a,#017H 0052 L0052: 0052 : 34 29 "4)" call L0129 0054 L0054: 0054 : 14 A4 " " call L00A4 0056 : 14 F3 " " call L00F3 0058 : FB " " mov a,r3 0059 : B8 28 " (" mov r0,#028H 005B : 40 "@" orl a,@r0 005C : A1 " " mov @r1,a 005D : BA 03 " " mov r2,#003H 005F : F2 6A " j" jb7 L006A 0061 : B8 23 " #" mov r0,#023H 0063 : 19 " " inc r1 0064 : 19 " " inc r1 0065 : 19 " " inc r1 0066 : 74 E5 "t " call L03E5 0068 : 04 17 " " jmp L0017 ; 006A L006A: 006A : B8 21 " !" mov r0,#021H 006C : F0 " " mov a,@r0 006D : 53 20 "S " anl a,#020H 006F : B8 4D " M" mov r0,#04DH 0071 : 40 "@" orl a,@r0 0072 L0072: 0072 : 19 " " inc r1 0073 : A1 " " mov @r1,a 0074 : C8 " " dec r0 0075 : F0 " " mov a,@r0 0076 : EA 72 " r" djnz r2,L0072 0078 : 77 "w" rr a 0079 : 77 "w" rr a 007A : C9 " " dec r1 007B : 41 "A" orl a,@r1 007C : A1 " " mov @r1,a 007D : 04 17 " " jmp L0017 ; 007F L007F: 007F : 27 "'" clr a 0080 L0080: 0080 : A0 " " mov @r0,a 0081 : 18 " " inc r0 0082 : E9 80 " " djnz r1,L0080 0084 : 83 " " ret ; 0085 : 01 " " db 001H ; 0086 : 32 04 "2 " jb1 L0004 0088 : 11 " " inc @r1 0089 : 02 " " outl bus,a 008A : A0 " " mov @r0,a 008B : 00 " " nop 008C : 00 " " nop 008D : 00 " " nop 008E : 00 " " nop 008F : 00 " " nop 0090 : 00 " " nop 0091 : 00 " " nop 0092 : 99 00 " " anl p1,#000H 0094 : 99 0B " " anl p1,#00BH 0096 : 18 " " inc r0 ; 0097 : 01 " " db 001H ; 0098 L0098: 0098 : BA 85 " " mov r2,#085H 009A : BB 13 " " mov r3,#013H 009C L009C: 009C : FA " " mov a,r2 009D : A3 " " movp a,@a 009E : A0 " " mov @r0,a 009F : 18 " " inc r0 00A0 : 1A " " inc r2 00A1 : EB 9C " " djnz r3,L009C 00A3 : 83 " " ret ; 00A4 L00A4: 00A4 : F4 E5 " " call L07E5 00A6 : B9 21 " !" mov r1,#021H 00A8 : F1 " " mov a,@r1 00A9 : 53 20 "S " anl a,#020H 00AB : 2B "+" xch a,r3 00AC : C6 B0 " " jz L00B0 00AE : 1B " " inc r3 00AF : 1B " " inc r3 00B0 L00B0: 00B0 : 2B "+" xch a,r3 00B1 : 90 " " movx @r0,a 00B2 : BA 07 " " mov r2,#007H 00B4 : 23 08 "# " mov a,#008H 00B6 : 99 CF " " anl p1,#0CFH 00B8 : 14 C1 " " call L00C1 00BA L00BA: 00BA : 23 F8 "# " mov a,#0F8H 00BC : 3A ":" outl p2,a 00BD : 23 40 "#@" mov a,#040H 00BF : 39 "9" outl p1,a 00C0 : 83 " " ret ; 00C1 L00C1: 00C1 : 14 C9 " " call L00C9 00C3 : F4 E7 " " call L07E7 00C5 : 8A 02 " " orl p2,#002H 00C7 : 04 E5 " " jmp L00E5 ; 00C9 L00C9: 00C9 : A9 " " mov r1,a 00CA : 09 " " in a,p1 00CB : 53 37 "S7" anl a,#037H 00CD : 49 "I" orl a,r1 00CE : 39 "9" outl p1,a 00CF : 83 " " ret ; 00D0 L00D0: 00D0 : 43 80 "C " orl a,#080H 00D2 : 14 C9 " " call L00C9 00D4 : 14 DB " " call L00DB 00D6 : F4 D7 " " call L07D7 00D8 : 8A 02 " " orl p2,#002H 00DA : 83 " " ret ; 00DB L00DB: 00DB : 23 04 "# " mov a,#004H 00DD : 14 EE " " call L00EE 00DF : F0 " " mov a,@r0 00E0 : 43 02 "C " orl a,#002H 00E2 : 83 " " ret ; 00E3 L00E3: 00E3 : 14 D0 " " call L00D0 00E5 L00E5: 00E5 : 36 E5 "6 " jt0 L00E5 00E7 : 9A FD " " anl p2,#0FDH 00E9 : 8A 10 " " orl p2,#010H 00EB : 83 " " ret ; 00EC L00EC: 00EC : 23 12 "# " mov a,#012H 00EE L00EE: 00EE : B8 49 " I" mov r0,#049H 00F0 : 60 "`" add a,@r0 00F1 : A8 " " mov r0,a 00F2 : 83 " " ret ; 00F3 L00F3: 00F3 : 23 08 "# " mov a,#008H 00F5 L00F5: 00F5 : B9 49 " I" mov r1,#049H 00F7 : 61 "a" add a,@r1 00F8 : A9 " " mov r1,a 00F9 : 83 " " ret ; 00FA : 00 " " nop 00FB : 00 " " nop 00FC : 00 " " nop 00FD : 00 " " nop 00FE : A3 " " movp a,@a 00FF : 83 " " ret ; 0100 : 78 "x" addc a,r0 0101 : 17 " " inc a 0102 : 2A "*" xch a,r2 0103 : 2D "-" xch a,r5 0104 : 19 " " inc r1 0105 : 91 " " movx @r1,a 0106 : 1B " " inc r3 0107 : 1D " " inc r5 0108 : 1F " " inc r7 0109 : 2A "*" xch a,r2 010A : 21 "!" xch a,@r1 010B : 23 4D "#M" mov a,#04DH 010D : 39 "9" outl p1,a 010E : 74 6E "tn" call L036E 0110 : 27 "'" clr a 0111 : 2A "*" xch a,r2 0112 : 2A "*" xch a,r2 ; 0113 : 9B " " db 09BH ; 0114 : 25 "%" en tcnti 0115 : 8D " " orld p5,a 0116 : 97 " " clr c 0117 : 64 00 "d " jmp L0300 0119 : C4 10 " " jmp L0610 011B : C4 2A " *" jmp L062A 011D : C4 00 " " jmp L0600 011F : 84 04 " " jmp L0404 0121 : 84 86 " " jmp L0486 0123 : 64 51 "dQ" jmp L0351 0125 : E4 05 " " jmp L0705 0127 : E4 8A " " jmp L078A 0129 L0129: 0129 : B3 " " jmpp @a ;INFO: indirect jump ; 012A : BB 20 " " mov r3,#020H 012C L012C: 012C : 83 " " ret ; 012D : 14 F3 " " call L00F3 012F : 74 CC "t " call L03CC 0131 : BA 04 " " mov r2,#004H 0133 : 34 41 "4A" call L0141 0135 : 14 A4 " " call L00A4 0137 : 04 17 " " jmp L0017 ; 0139 : F4 E5 " " call L07E5 013B : B9 4E " N" mov r1,#04EH 013D : F1 " " mov a,@r1 013E : 90 " " movx @r0,a 013F : BA 07 " " mov r2,#007H 0141 L0141: 0141 : 23 48 "#H" mov a,#048H 0143 : BB 00 " " mov r3,#000H 0145 : 04 C1 " " jmp L00C1 ; 0147 L0147: 0147 : 34 67 "4g" call L0167 0149 : 80 " " movx a,@r0 014A : 19 " " inc r1 014B : A1 " " mov @r1,a 014C : 83 " " ret ; 014D : BA 00 " " mov r2,#000H 014F : 23 40 "#@" mov a,#040H 0151 : 14 C1 " " call L00C1 0153 : F4 D6 " " call L07D6 0155 : 23 00 "# " mov a,#000H 0157 : 34 47 "4G" call L0147 0159 : 23 02 "# " mov a,#002H 015B : 34 67 "4g" call L0167 015D : 23 0E "# " mov a,#00EH 015F : 34 47 "4G" call L0147 0161 : 23 0C "# " mov a,#00CH 0163 : 34 47 "4G" call L0147 0165 : 23 10 "# " mov a,#010H 0167 L0167: 0167 : 14 F5 " " call L00F5 0169 : 80 " " movx a,@r0 016A : A1 " " mov @r1,a 016B L016B: 016B : 27 "'" clr a 016C : AB " " mov r3,a 016D : 83 " " ret ; 016E : 23 40 "#@" mov a,#040H 0170 L0170: 0170 : 14 E3 " " call L00E3 0172 : 24 6B "$k" jmp L016B ; 0174 L0174: 0174 : 23 48 "#H" mov a,#048H 0176 : 24 70 "$p" jmp L0170 ; 0178 : 74 A8 "t " call L03A8 017A : 23 07 "# " mov a,#007H 017C : 91 " " movx @r1,a 017D : 80 " " movx a,@r0 017E : BB 03 " " mov r3,#003H 0180 : B2 2C " ," jb5 L012C 0182 : BB 04 " " mov r3,#004H 0184 : 37 "7" cpl a 0185 : D2 2C " ," jb6 L012C 0187 : BB 08 " " mov r3,#008H 0189 : 92 2C " ," jb4 L012C 018B : 24 6B "$k" jmp L016B ; 018D : 9A FB " " anl p2,#0FBH 018F : 84 06 " " jmp L0406 ; 0191 : 8A 04 " " orl p2,#004H 0193 : 23 FF "# " mov a,#0FFH 0195 : 84 07 " " jmp L0407 ; 0197 : 9A FB " " anl p2,#0FBH 0199 : 84 88 " " jmp L0488 ; 019B : B8 21 " !" mov r0,#021H 019D : F0 " " mov a,@r0 019E : 53 E0 "S " anl a,#0E0H 01A0 : A0 " " mov @r0,a 01A1 : 27 "'" clr a 01A2 : 18 " " inc r0 01A3 : A0 " " mov @r0,a 01A4 : 18 " " inc r0 01A5 : A0 " " mov @r0,a 01A6 : D4 69 " i" call L0669 01A8 : 96 2C " ," jnz L012C 01AA L01AA: 01AA : 74 55 "tU" call L0355 01AC : 96 2C " ," jnz L012C 01AE : B4 B6 " " call L05B6 01B0 : 32 2C "2," jb1 L012C 01B2 : C6 B9 " " jz L01B9 01B4 : 23 E7 "# " mov a,#0E7H 01B6 : 6B "k" add a,r3 01B7 : 96 2C " ," jnz L012C 01B9 L01B9: 01B9 : 94 DE " " call L04DE 01BB : 12 6B " k" jb0 L016B 01BD : 24 AA "$ " jmp L01AA ; 01BF L01BF: 01BF : 94 C6 " " call L04C6 01C1 : B8 21 " !" mov r0,#021H 01C3 : F0 " " mov a,@r0 01C4 : 53 1F "S " anl a,#01FH 01C6 : B9 4D " M" mov r1,#04DH 01C8 : A1 " " mov @r1,a 01C9 : 18 " " inc r0 01CA : F0 " " mov a,@r0 01CB : 53 3F "S?" anl a,#03FH 01CD : C9 " " dec r1 01CE : A1 " " mov @r1,a 01CF : F0 " " mov a,@r0 01D0 : E7 " " rl a 01D1 : E7 " " rl a 01D2 : 53 03 "S " anl a,#003H 01D4 : B9 4A " J" mov r1,#04AH 01D6 : A1 " " mov @r1,a 01D7 : 18 " " inc r0 01D8 : F0 " " mov a,@r0 01D9 : 19 " " inc r1 01DA : A1 " " mov @r1,a 01DB : B8 28 " (" mov r0,#028H 01DD : B0 80 " " mov @r0,#080H 01DF : 23 01 "# " mov a,#001H 01E1 : 54 D8 "T " call L02D8 01E3 : F6 F2 " " jc L01F2 01E5 : 18 " " inc r0 01E6 : 23 03 "# " mov a,#003H 01E8 : 34 F6 "4 " call L01F6 01EA : F6 F2 " " jc L01F2 01EC : 23 02 "# " mov a,#002H 01EE : 34 F6 "4 " call L01F6 01F0 : E6 6B " k" jnc L016B 01F2 L01F2: 01F2 : 23 21 "#!" mov a,#021H 01F4 : AB " " mov r3,a 01F5 : 83 " " ret ; 01F6 L01F6: 01F6 : 18 " " inc r0 01F7 L01F7: 01F7 : 14 F5 " " call L00F5 01F9 : F1 " " mov a,@r1 01FA : 37 "7" cpl a 01FB : 17 " " inc a 01FC : 60 "`" add a,@r0 01FD : 83 " " ret ; 01FE : A3 " " movp a,@a 01FF : 83 " " ret ; 0200 : 28 "(" xch a,r0 0201 : 43 29 "C)" orl a,#029H 0203 : 20 " " xch a,@r0 0204 : 31 "1" xchd a,@r1 0205 : 39 "9" outl p1,a ; 0206 : 38 33 "83" db 038H, 033H ; 0208 : 20 " " xch a,@r0 0209 : 57 "W" da a 020A : 65 "e" stop tcnt ; 020B : 73 "s" db 073H ; 020C : 74 65 "te" call L0365 020E : 72 6E "rn" jb3 L026E 0210 : 20 " " xch a,@r0 0211 : 44 69 "Di" jmp L0269 ; 0213 : 67 "g" rrc a 0214 : 69 "i" add a,r1 0215 : 74 61 "ta" call L0361 0217 : 6C "l" add a,r4 0218 L0218: 0218 : F4 D0 " " call L07D0 021A : 54 57 "TW" call L0257 021C : 23 21 "#!" mov a,#021H 021E L021E: 021E : 54 4C "TL" call L024C 0220 : B8 26 " &" mov r0,#026H 0222 : F0 " " mov a,@r0 0223 : 91 " " movx @r1,a 0224 : 0A " " in a,p2 0225 : 37 "7" cpl a 0226 : 52 2B "R+" jb2 L022B 0228 : B8 A0 " " mov r0,#0A0H 022A : 80 " " movx a,@r0 022B L022B: 022B : 9A E7 " " anl p2,#0E7H 022D : 44 6B "Dk" jmp L026B ; 022F L022F: 022F : 0A " " in a,p2 0230 : 52 44 "RD" jb2 L0244 0232 : 9A F7 " " anl p2,#0F7H 0234 : B9 60 " `" mov r1,#060H 0236 : 27 "'" clr a 0237 : 91 " " movx @r1,a 0238 : 8A 08 " " orl p2,#008H 023A : 37 "7" cpl a 023B : 91 " " movx @r1,a 023C : 9A F3 " " anl p2,#0F3H 023E : B8 E0 " " mov r0,#0E0H 0240 : B9 34 " 4" mov r1,#034H 0242 : 74 CE "t " call L03CE 0244 L0244: 0244 : F4 D0 " " call L07D0 0246 L0246: 0246 : 54 57 "TW" call L0257 0248 : 23 31 "#1" mov a,#031H 024A : 44 1E "D " jmp L021E ; 024C L024C: 024C : BA 07 " " mov r2,#007H 024E L024E: 024E : B9 60 " `" mov r1,#060H 0250 : 2A "*" xch a,r2 0251 : 91 " " movx @r1,a 0252 : B8 20 " " mov r0,#020H 0254 : FA " " mov a,r2 0255 : 90 " " movx @r0,a 0256 L0256: 0256 : 83 " " ret ; 0257 L0257: 0257 : B8 4C " L" mov r0,#04CH 0259 : F0 " " mov a,@r0 025A : BA 03 " " mov r2,#003H 025C : 44 4E "DN" jmp L024E ; 025E L025E: 025E : 23 07 "# " mov a,#007H 0260 L0260: 0260 : B9 60 " `" mov r1,#060H 0262 : 91 " " movx @r1,a 0263 : B8 20 " " mov r0,#020H 0265 : 80 " " movx a,@r0 0266 : 83 " " ret ; 0267 L0267: 0267 : 23 41 "#A" mov a,#041H 0269 L0269: 0269 : 54 4C "TL" call L024C 026B L026B: 026B : 56 6F "Vo" jt1 L026F 026D : 44 6B "Dk" jmp L026B ; 026F L026F: 026F : 8A 18 " " orl p2,#018H 0271 : 0A " " in a,p2 0272 : AA " " mov r2,a 0273 : 54 5E "T^" call L025E 0275 : BB 03 " " mov r3,#003H 0277 : B2 93 " " jb5 L0293 0279 : 12 7E " ~" jb0 L027E 027B : 27 "'" clr a 027C : AB " " mov r3,a 027D : 83 " " ret ; 027E L027E: 027E : 23 01 "# " mov a,#001H 0280 : 91 " " movx @r1,a 0281 : 80 " " movx a,@r0 0282 : BB 04 " " mov r3,#004H 0284 : 52 93 "R " jb2 L0293 0286 : BB 19 " " mov r3,#019H 0288 : F2 93 " " jb7 L0293 028A : BB 12 " " mov r3,#012H 028C : 12 90 " " jb0 L0290 028E : BB 15 " " mov r3,#015H 0290 L0290: 0290 : 23 02 "# " mov a,#002H 0292 : 83 " " ret ; 0293 L0293: 0293 : 23 01 "# " mov a,#001H 0295 : 83 " " ret ; 0296 L0296: 0296 : 14 E5 " " call L00E5 0298 : 0A " " in a,p2 0299 : 52 56 "RV" jb2 L0256 029B : B9 30 " 0" mov r1,#030H 029D : 9A F7 " " anl p2,#0F7H 029F : B8 E0 " " mov r0,#0E0H 02A1 : 74 DA "t " call L03DA 02A3 : B9 30 " 0" mov r1,#030H 02A5 : 74 CC "t " call L03CC 02A7 : BA 04 " " mov r2,#004H 02A9 : 23 48 "#H" mov a,#048H 02AB : 04 C1 " " jmp L00C1 ; 02AD L02AD: 02AD : 14 E5 " " call L00E5 02AF : 0A " " in a,p2 02B0 : 52 56 "RV" jb2 L0256 02B2 : BA 04 " " mov r2,#004H 02B4 : 23 40 "#@" mov a,#040H 02B6 : 14 C1 " " call L00C1 02B8 : B9 34 " 4" mov r1,#034H 02BA : 64 D8 "d " jmp L03D8 ; 02BC L02BC: 02BC : 23 0E "# " mov a,#00EH 02BE : 14 EE " " call L00EE 02C0 : F0 " " mov a,@r0 02C1 : 67 "g" rrc a 02C2 : AA " " mov r2,a 02C3 : 18 " " inc r0 02C4 : F0 " " mov a,@r0 02C5 : 67 "g" rrc a 02C6 : 2A "*" xch a,r2 02C7 : 67 "g" rrc a 02C8 : FA " " mov a,r2 02C9 : 67 "g" rrc a 02CA : BA 01 " " mov r2,#001H 02CC : 54 4E "TN" call L024E 02CE : 23 0D "# " mov a,#00DH 02D0 : 54 D8 "T " call L02D8 02D2 : A7 " " cpl c 02D3 : 09 " " in a,p1 02D4 : E7 " " rl a 02D5 : 67 "g" rrc a 02D6 : 39 "9" outl p1,a 02D7 : 83 " " ret ; 02D8 L02D8: 02D8 : 14 EE " " call L00EE 02DA : B9 05 " " mov r1,#005H 02DC : 74 EA "t " call L03EA 02DE : 54 EA "T " call L02EA 02E0 : B8 4B " K" mov r0,#04BH 02E2 : F0 " " mov a,@r0 02E3 : 6D "m" add a,r5 02E4 : AD " " mov r5,a 02E5 : C8 " " dec r0 02E6 : F0 " " mov a,@r0 02E7 : 7C "|" addc a,r4 02E8 : AC " " mov r4,a 02E9 : 83 " " ret ; 02EA L02EA: 02EA : FD " " mov a,r5 02EB : 37 "7" cpl a 02EC : 03 01 " " add a,#001H 02EE : AD " " mov r5,a 02EF : FC " " mov a,r4 02F0 : 37 "7" cpl a 02F1 : 13 00 " " addc a,#000H 02F3 : AC " " mov r4,a 02F4 : 83 " " ret ; 02F5 L02F5: 02F5 : F0 " " mov a,@r0 02F6 : D1 " " xrl a,@r1 02F7 L02F7: 02F7 : 18 " " inc r0 02F8 : 19 " " inc r1 02F9 : 96 56 " V" jnz L0256 02FB : F0 " " mov a,@r0 02FC : D1 " " xrl a,@r1 02FD : 83 " " ret ; 02FE : A3 " " movp a,@a 02FF : 83 " " ret ; 0300 L0300: 0300 : 74 46 "tF" call L0346 0302 : 96 25 " %" jnz L0325 0304 : 14 EC " " call L00EC 0306 : A0 " " mov @r0,a 0307 : 23 06 "# " mov a,#006H 0309 : 14 F5 " " call L00F5 030B : 27 "'" clr a 030C : A1 " " mov @r1,a 030D : 19 " " inc r1 030E : A1 " " mov @r1,a 030F : BC 04 " " mov r4,#004H 0311 : BD 00 " " mov r5,#000H 0313 L0313: 0313 : 0A " " in a,p2 0314 : D2 26 " &" jb6 L0326 0316 : 8A 01 " " orl p2,#001H 0318 : 9A FE " " anl p2,#0FEH 031A : 74 2A "t*" call L032A 031C : 96 25 " %" jnz L0325 031E : ED 13 " " djnz r5,L0313 0320 : EC 13 " " djnz r4,L0313 0322 : BB 06 " " mov r3,#006H 0324 : FB " " mov a,r3 0325 L0325: 0325 : 83 " " ret ; 0326 L0326: 0326 : 23 11 "# " mov a,#011H 0328 : 54 4C "TL" call L024C 032A L032A: 032A : B8 20 " " mov r0,#020H 032C : B9 5D " ]" mov r1,#05DH 032E L032E: 032E : 80 " " movx a,@r0 032F : BB 03 " " mov r3,#003H 0331 : B2 3C " <" jb5 L033C 0333 : 37 "7" cpl a 0334 : BB 04 " " mov r3,#004H 0336 : D2 3C " <" jb6 L033C 0338 : 92 3E " >" jb4 L033E 033A : BB 00 " " mov r3,#000H 033C L033C: 033C : FB " " mov a,r3 033D : 83 " " ret ; 033E L033E: 033E : EA 2E " ." djnz r2,L032E 0340 : E9 2E " ." djnz r1,L032E 0342 : BB 02 " " mov r3,#002H 0344 : FB " " mov a,r3 0345 : 83 " " ret ; 0346 L0346: 0346 : 74 A8 "t " call L03A8 0348 : 89 80 " " orl p1,#080H 034A : 23 07 "# " mov a,#007H 034C : B8 60 " `" mov r0,#060H 034E : 90 " " movx @r0,a 034F : 64 2A "d*" jmp L032A ; 0351 L0351: 0351 : 34 BF "4 " call L01BF 0353 : 12 25 " %" jb0 L0325 0355 L0355: 0355 : B9 21 " !" mov r1,#021H 0357 : F1 " " mov a,@r1 0358 : B9 61 " a" mov r1,#061H 035A : B2 5F " _" jb5 L035F 035C : B9 74 " t" mov r1,#074H 035E : 37 "7" cpl a 035F L035F: 035F : A1 " " mov @r1,a 0360 : 74 46 "tF" call L0346 0362 : 96 25 " %" jnz L0325 0364 : 23 07 "# " mov a,#007H 0366 : 54 D8 "T " call L02D8 0368 : 18 " " inc r0 0369 : 23 07 "# " mov a,#007H 036B : 14 F5 " " call L00F5 036D : 74 EA "t " call L03EA 036F : FC " " mov a,r4 0370 : F2 76 " v" jb7 L0376 0372 : 99 7F " " anl p1,#07FH 0374 : 64 78 "dx" jmp L0378 ; 0376 L0376: 0376 : 54 EA "T " call L02EA 0378 L0378: 0378 : 4D "M" orl a,r5 0379 : C6 A6 " " jz L03A6 037B : 14 EC " " call L00EC 037D : A0 " " mov @r0,a 037E : FD " " mov a,r5 037F : C6 82 " " jz L0382 0381 : 1C " " inc r4 0382 L0382: 0382 : B9 25 " %" mov r1,#025H 0384 L0384: 0384 : 23 07 "# " mov a,#007H 0386 : 51 "Q" anl a,@r1 0387 : BA 01 " " mov r2,#001H 0389 : BB 01 " " mov r3,#001H 038B : 03 FB " " add a,#0FBH 038D : C6 98 " " jz L0398 038F : BB 14 " " mov r3,#014H 0391 : 17 " " inc a 0392 : C6 98 " " jz L0398 0394 : BA 02 " " mov r2,#002H 0396 : BB E4 " " mov r3,#0E4H 0398 L0398: 0398 : 8A 01 " " orl p2,#001H 039A : 9A FE " " anl p2,#0FEH 039C L039C: 039C : EB 9C " " djnz r3,L039C 039E : EA 9C " " djnz r2,L039C 03A0 : ED 82 " " djnz r5,L0382 03A2 : EC 84 " " djnz r4,L0384 03A4 : 96 2A " *" jnz L032A 03A6 L03A6: 03A6 : AB " " mov r3,a 03A7 : 83 " " ret ; 03A8 L03A8: 03A8 : 9A FE " " anl p2,#0FEH 03AA : B8 21 " !" mov r0,#021H 03AC : F0 " " mov a,@r0 03AD : 53 20 "S " anl a,#020H 03AF : 77 "w" rr a 03B0 : AA " " mov r2,a 03B1 : 77 "w" rr a 03B2 : 2A "*" xch a,r2 03B3 : 03 10 " " add a,#010H 03B5 : B9 4D " M" mov r1,#04DH 03B7 : 41 "A" orl a,@r1 03B8 : A8 " " mov r0,a 03B9 : 09 " " in a,p1 03BA : 53 48 "SH" anl a,#048H 03BC : 48 "H" orl a,r0 03BD : 39 "9" outl p1,a 03BE : 23 05 "# " mov a,#005H 03C0 : 14 EE " " call L00EE 03C2 : F0 " " mov a,@r0 03C3 : 4A "J" orl a,r2 03C4 : 41 "A" orl a,@r1 03C5 : B8 27 " '" mov r0,#027H 03C7 : A0 " " mov @r0,a 03C8 : BA 06 " " mov r2,#006H 03CA : 44 4E "DN" jmp L024E ; 03CC L03CC: 03CC : F4 E1 " " call L07E1 03CE L03CE: 03CE : BA 04 " " mov r2,#004H 03D0 L03D0: 03D0 : F1 " " mov a,@r1 03D1 : 90 " " movx @r0,a 03D2 : 19 " " inc r1 03D3 : EA D0 " " djnz r2,L03D0 03D5 L03D5: 03D5 : 8A 18 " " orl p2,#018H 03D7 : 83 " " ret ; 03D8 L03D8: 03D8 : F4 E1 " " call L07E1 03DA L03DA: 03DA : BA 04 " " mov r2,#004H 03DC L03DC: 03DC : 80 " " movx a,@r0 03DD : A1 " " mov @r1,a 03DE : 19 " " inc r1 03DF : EA DC " " djnz r2,L03DC 03E1 : 64 D5 "d " jmp L03D5 ; 03E3 L03E3: 03E3 : C8 " " dec r0 03E4 : C9 " " dec r1 03E5 L03E5: 03E5 : F0 " " mov a,@r0 03E6 : A1 " " mov @r1,a 03E7 : EA E3 " " djnz r2,L03E3 03E9 : 83 " " ret ; 03EA L03EA: 03EA : BA 02 " " mov r2,#002H 03EC : 64 E5 "d " jmp L03E5 ; 03EE : 00 " " nop 03EF : 00 " " nop 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 : A3 " " movp a,@a 03FF : 83 " " ret 0400 L0400: 0400 : A4 03 " " jmp L0503 0402 L0402: 0402 : 44 AD "D " jmp L02AD ; 0404 L0404: 0404 : 8A 04 " " orl p2,#004H 0406 L0406: 0406 : 27 "'" clr a 0407 L0407: 0407 : B8 4E " N" mov r0,#04EH 0409 : B0 00 " " mov @r0,#000H 040B : B8 2F " /" mov r0,#02FH 040D : A0 " " mov @r0,a 040E : 34 BF "4 " call L01BF 0410 : 12 4C " L" jb0 L044C 0412 L0412: 0412 : 74 55 "tU" call L0355 0414 : 96 4C " L" jnz L044C 0416 : B4 B1 " " call L05B1 0418 : 12 4C " L" jb0 L044C 041A : 32 51 "2Q" jb1 L0451 041C L041C: 041C : 54 18 "T " call L0218 041E : 12 4C " L" jb0 L044C 0420 : 32 4D "2M" jb1 L044D 0422 : 0A " " in a,p2 0423 : 37 "7" cpl a 0424 : 52 29 "R)" jb2 L0429 0426 : FA " " mov a,r2 0427 : F2 57 " W" jb7 L0457 0429 L0429: 0429 : B8 2F " /" mov r0,#02FH 042B : F0 " " mov a,@r0 042C : 96 32 " 2" jnz L0432 042E : 23 48 "#H" mov a,#048H 0430 : 14 D0 " " call L00D0 0432 L0432: 0432 : 94 C6 " " call L04C6 0434 : B8 24 " $" mov r0,#024H 0436 : F0 " " mov a,@r0 0437 : 07 " " dec a 0438 : C6 47 " G" jz L0447 043A : A0 " " mov @r0,a 043B : 94 D9 " " call L04D9 043D : AF " " mov r7,a 043E : 54 96 "T " call L0296 0440 : FF " " mov a,r7 0441 : 12 4C " L" jb0 L044C 0443 : 52 12 "R " jb2 L0412 0445 : 84 1C " " jmp L041C ; 0447 L0447: 0447 : 54 96 "T " call L0296 0449 L0449: 0449 : BB 00 " " mov r3,#000H 044B L044B: 044B : FB " " mov a,r3 044C L044C: 044C : 83 " " ret ; 044D L044D: 044D : 94 77 " w" call L0477 044F : 96 1C " " jnz L041C 0451 L0451: 0451 : 94 7C " |" call L047C 0453 : 96 4C " L" jnz L044C 0455 : 84 12 " " jmp L0412 ; 0457 L0457: 0457 : 9A F7 " " anl p2,#0F7H 0459 : B8 E0 " " mov r0,#0E0H 045B : B9 2B " +" mov r1,#02BH 045D : BA 04 " " mov r2,#004H 045F : 85 " " clr f0 0460 : 95 " " cpl f0 0461 L0461: 0461 : 80 " " movx a,@r0 0462 : 21 "!" xch a,@r1 0463 : D1 " " xrl a,@r1 0464 : C6 67 " g" jz L0467 0466 : 85 " " clr f0 0467 L0467: 0467 : 19 " " inc r1 0468 : EA 61 " a" djnz r2,L0461 046A : 8A 08 " " orl p2,#008H 046C : B6 00 " " jf0 L0400 046E : B8 25 " %" mov r0,#025H 0470 : F0 " " mov a,@r0 0471 : D2 00 " " jb6 L0400 0473 : BB 11 " " mov r3,#011H 0475 : 84 4D " M" jmp L044D ; 0477 L0477: 0477 : B8 2A " *" mov r0,#02AH 0479 : F0 " " mov a,@r0 047A : 10 " " inc @r0 047B : 83 " " ret ; 047C L047C: 047C : B8 29 " )" mov r0,#029H 047E : F0 " " mov a,@r0 047F : 10 " " inc @r0 0480 : C6 4B " K" jz L044B 0482 : 94 CF " " call L04CF 0484 : 64 00 "d " jmp L0300 ; 0486 L0486: 0486 : 8A 04 " " orl p2,#004H 0488 L0488: 0488 : 23 40 "#@" mov a,#040H 048A : 14 D0 " " call L00D0 048C : 34 BF "4 " call L01BF 048E : 12 02 " " jb0 L0402 0490 L0490: 0490 : 54 AD "T " call L02AD 0492 L0492: 0492 : 74 55 "tU" call L0355 0494 : 96 4C " L" jnz L044C 0496 : B4 B1 " " call L05B1 0498 : 12 4C " L" jb0 L044C 049A : 32 C0 "2 " jb1 L04C0 049C : 54 BC "T " call L02BC 049E L049E: 049E : 54 2F "T/" call L022F 04A0 : 12 4C " L" jb0 L044C 04A2 : 32 BC "2 " jb1 L04BC 04A4 : B8 24 " $" mov r0,#024H 04A6 : F0 " " mov a,@r0 04A7 : 07 " " dec a 04A8 : AB " " mov r3,a 04A9 : C6 4C " L" jz L044C 04AB : A0 " " mov @r0,a 04AC : 23 40 "#@" mov a,#040H 04AE : 14 D0 " " call L00D0 04B0 : 94 C6 " " call L04C6 04B2 : 94 D9 " " call L04D9 04B4 : 12 02 " " jb0 L0402 04B6 : 52 90 "R " jb2 L0490 04B8 : 54 AD "T " call L02AD 04BA : 84 9E " " jmp L049E ; 04BC L04BC: 04BC : 94 77 " w" call L0477 04BE : 96 9E " " jnz L049E 04C0 L04C0: 04C0 : 94 7C " |" call L047C 04C2 : 96 4C " L" jnz L044C 04C4 : 84 92 " " jmp L0492 ; 04C6 L04C6: 04C6 : B8 25 " %" mov r0,#025H 04C8 : F0 " " mov a,@r0 04C9 : F2 4C " L" jb7 L044C 04CB : B8 29 " )" mov r0,#029H 04CD : B0 FF " " mov @r0,#0FFH 04CF L04CF: 04CF : B8 25 " %" mov r0,#025H 04D1 : F0 " " mov a,@r0 04D2 : F2 4C " L" jb7 L044C 04D4 : B8 2A " *" mov r0,#02AH 04D6 : B0 F8 " " mov @r0,#0F8H 04D8 : 83 " " ret ; 04D9 L04D9: 04D9 : D4 EB " " call L06EB 04DB : 96 49 " I" jnz L0449 04DD : A0 " " mov @r0,a 04DE L04DE: 04DE : B8 4D " M" mov r0,#04DH 04E0 : 10 " " inc @r0 04E1 : 23 02 "# " mov a,#002H 04E3 : 34 F7 "4 " call L01F7 04E5 : 96 FA " " jnz L04FA 04E7 : A0 " " mov @r0,a 04E8 : B9 4B " K" mov r1,#04BH 04EA : 11 " " inc @r1 04EB : F1 " " mov a,@r1 04EC : C9 " " dec r1 04ED : 96 F0 " " jnz L04F0 04EF : 11 " " inc @r1 04F0 L04F0: 04F0 : 23 00 "# " mov a,#000H 04F2 : 14 EE " " call L00EE 04F4 : 54 F5 "T " call L02F5 04F6 : BB 21 " !" mov r3,#021H 04F8 : C6 FC " " jz L04FC 04FA L04FA: 04FA : BB 04 " " mov r3,#004H 04FC L04FC: 04FC : FB " " mov a,r3 04FD : 83 " " ret ; 04FE : A3 " " movp a,@a 04FF : 83 " " ret 0500 : 04 08 " " jmp L0008 ; 0502 : 10 " " inc @r0 0503 L0503: 0503 : B8 2E " ." mov r0,#02EH 0505 : B9 05 " " mov r1,#005H 0507 : BA 03 " " mov r2,#003H 0509 : 74 E5 "t " call L03E5 050B : C8 " " dec r0 050C : F0 " " mov a,@r0 050D : AA " " mov r2,a 050E : 23 04 "# " mov a,#004H 0510 : 14 F5 " " call L00F5 0512 : F1 " " mov a,@r1 0513 : A3 " " movp a,@a 0514 : AE " " mov r6,a 0515 : BF 07 " " mov r7,#007H 0517 : A5 " " clr f1 0518 L0518: 0518 : FA " " mov a,r2 0519 : 96 29 " )" jnz L0529 051B : FF " " mov a,r7 051C : 03 08 " " add a,#008H 051E : AF " " mov r7,a 051F : 27 "'" clr a 0520 : 7E "~" addc a,r6 0521 : AE " " mov r6,a 0522 : 27 "'" clr a 0523 : 2D "-" xch a,r5 0524 : 2C "," xch a,r4 0525 : 2B "+" xch a,r3 0526 : AA " " mov r2,a 0527 : A4 18 " " jmp L0518 ; 0529 L0529: 0529 : 97 " " clr c 052A : FA " " mov a,r2 052B : 67 "g" rrc a 052C : AA " " mov r2,a 052D : FB " " mov a,r3 052E : 67 "g" rrc a 052F : AB " " mov r3,a 0530 : FC " " mov a,r4 0531 : 67 "g" rrc a 0532 : AC " " mov r4,a 0533 : FD " " mov a,r5 0534 : 67 "g" rrc a 0535 : AD " " mov r5,a 0536 : E6 48 " H" jnc L0548 0538 : FD " " mov a,r5 0539 : D3 22 " "" xrl a,#022H 053B : AD " " mov r5,a 053C : FC " " mov a,r4 053D : D3 02 " " xrl a,#002H 053F : AC " " mov r4,a 0540 : FB " " mov a,r3 0541 : D3 05 " " xrl a,#005H 0543 : AB " " mov r3,a 0544 : FA " " mov a,r2 0545 : D3 8A " " xrl a,#08AH 0547 : AA " " mov r2,a 0548 L0548: 0548 : 76 69 "vi" jf1 L0569 054A : FA " " mov a,r2 054B : 4D "M" orl a,r5 054C : 96 70 " p" jnz L0570 054E : B8 10 " " mov r0,#010H 0550 : FC " " mov a,r4 0551 : A9 " " mov r1,a 0552 : FB " " mov a,r3 0553 L0553: 0553 : 67 "g" rrc a 0554 : 29 ")" xch a,r1 0555 : 67 "g" rrc a 0556 : 29 ")" xch a,r1 0557 : F6 5B " [" jc L055B 0559 : E8 53 " S" djnz r0,L0553 055B L055B: 055B : 23 10 "# " mov a,#010H 055D : 14 F5 " " call L00F5 055F : F1 " " mov a,@r1 0560 : 37 "7" cpl a 0561 : 68 "h" add a,r0 0562 : F6 70 " p" jc L0570 0564 : B9 4E " N" mov r1,#04EH 0566 : F8 " " mov a,r0 0567 : A1 " " mov @r1,a 0568 : B5 " " cpl f1 0569 L0569: 0569 : FF " " mov a,r7 056A : 53 07 "S " anl a,#007H 056C : 96 74 " t" jnz L0574 056E : A4 7D " }" jmp L057D ; 0570 L0570: 0570 : FE " " mov a,r6 0571 : 4F "O" orl a,r7 0572 : C6 A5 " " jz L05A5 0574 L0574: 0574 : 23 FF "# " mov a,#0FFH 0576 : 6F "o" add a,r7 0577 : AF " " mov r7,a 0578 : F6 29 " )" jc L0529 057A : CE " " dec r6 057B : A4 29 " )" jmp L0529 ; 057D L057D: 057D : B9 03 " " mov r1,#003H 057F : 97 " " clr c 0580 L0580: 0580 : FE " " mov a,r6 0581 : 67 "g" rrc a 0582 : AE " " mov r6,a 0583 : FF " " mov a,r7 0584 : 67 "g" rrc a 0585 : AF " " mov r7,a 0586 : E9 80 " " djnz r1,L0580 0588 : B4 A8 " " call L05A8 058A : 80 " " movx a,@r0 058B : DB " " xrl a,r3 058C : AB " " mov r3,a 058D : 80 " " movx a,@r0 058E : DC " " xrl a,r4 058F : AC " " mov r4,a 0590 : 80 " " movx a,@r0 0591 : DD " " xrl a,r5 0592 : AD " " mov r5,a 0593 : B4 A8 " " call L05A8 0595 : FB " " mov a,r3 0596 : 90 " " movx @r0,a 0597 : FC " " mov a,r4 0598 : 90 " " movx @r0,a 0599 : FD " " mov a,r5 059A : 90 " " movx @r0,a 059B : B8 2F " /" mov r0,#02FH 059D : F0 " " mov a,@r0 059E : 96 A2 " " jnz L05A2 05A0 : 34 74 "4t" call L0174 05A2 L05A2: 05A2 : BB 18 " " mov r3,#018H 05A4 L05A4: 05A4 : 83 " " ret ; 05A5 L05A5: 05A5 : BB 11 " " mov r3,#011H 05A7 : 83 " " ret ; 05A8 L05A8: 05A8 : 14 DB " " call L00DB 05AA : 6E "n" add a,r6 05AB : F4 D7 " " call L07D7 05AD : FF " " mov a,r7 05AE : AA " " mov r2,a 05AF : E4 EB " " jmp L07EB ; 05B1 L05B1: 05B1 : 14 EC " " call L00EC 05B3 : F0 " " mov a,@r0 05B4 : C6 A4 " " jz L05A4 05B6 L05B6: 05B6 : 54 67 "Tg" call L0267 05B8 : C6 C2 " " jz L05C2 05BA : AD " " mov r5,a 05BB : 23 E7 "# " mov a,#0E7H 05BD : 6B "k" add a,r3 05BE : C6 C2 " " jz L05C2 05C0 : FD " " mov a,r5 05C1 : 83 " " ret ; 05C2 L05C2: 05C2 : 23 03 "# " mov a,#003H 05C4 : 91 " " movx @r1,a 05C5 : 80 " " movx a,@r0 05C6 : AD " " mov r5,a 05C7 : 23 04 "# " mov a,#004H 05C9 : 91 " " movx @r1,a 05CA : 80 " " movx a,@r0 05CB : AC " " mov r4,a 05CC : 23 05 "# " mov a,#005H 05CE : 91 " " movx @r1,a 05CF : 80 " " movx a,@r0 05D0 : AB " " mov r3,a 05D1 : 23 06 "# " mov a,#006H 05D3 : 91 " " movx @r1,a 05D4 : 80 " " movx a,@r0 05D5 : B8 27 " '" mov r0,#027H 05D7 : D0 " " xrl a,@r0 05D8 : 96 EC " " jnz L05EC 05DA : B8 4A " J" mov r0,#04AH 05DC : B9 03 " " mov r1,#003H 05DE : 54 F5 "T " call L02F5 05E0 : 96 EC " " jnz L05EC 05E2 : FD " " mov a,r5 05E3 : BB 19 " " mov r3,#019H 05E5 : F2 F1 " " jb7 L05F1 05E7 : 14 EC " " call L00EC 05E9 : 27 "'" clr a 05EA : A0 " " mov @r0,a 05EB : 83 " " ret ; 05EC L05EC: 05EC : BB 15 " " mov r3,#015H 05EE : 23 02 "# " mov a,#002H 05F0 : 83 " " ret ; 05F1 L05F1: 05F1 : 23 01 "# " mov a,#001H 05F3 : 83 " " ret ; 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 : A3 " " movp a,@a 05FF : 83 " " ret ; 0600 L0600: 0600 : D4 69 " i" call L0669 0602 : 96 3E " >" jnz L063E 0604 : BF 80 " " mov r7,#080H 0606 : D4 73 " s" call L0673 0608 : F6 3E " >" jc L063E 060A : D4 B1 " " call L06B1 060C : 96 3E " >" jnz L063E 060E : C4 3A " :" jmp L063A ; 0610 L0610: 0610 : D4 69 " i" call L0669 0612 : 96 3E " >" jnz L063E 0614 : D4 71 " q" call L0671 0616 : F6 3E " >" jc L063E 0618 L0618: 0618 : 74 55 "tU" call L0355 061A : 96 3E " >" jnz L063E 061C : D4 B5 " " call L06B5 061E : 96 3E " >" jnz L063E 0620 : D4 49 " I" call L0649 0622 : 96 3E " >" jnz L063E 0624 : D4 3F " ?" call L063F 0626 : 12 3C " <" jb0 L063C 0628 : C4 18 " " jmp L0618 ; 062A L062A: 062A : D4 69 " i" call L0669 062C : 96 3E " >" jnz L063E 062E : D4 71 " q" call L0671 0630 : F6 3E " >" jc L063E 0632 : D4 B1 " " call L06B1 0634 : 96 3E " >" jnz L063E 0636 : D4 49 " I" call L0649 0638 : 96 3E " >" jnz L063E 063A L063A: 063A : D4 3F " ?" call L063F 063C L063C: 063C : 27 "'" clr a 063D : AB " " mov r3,a 063E L063E: 063E : 83 " " ret ; 063F L063F: 063F : B8 22 " "" mov r0,#022H 0641 : F0 " " mov a,@r0 0642 : 53 3F "S?" anl a,#03FH 0644 : B8 4C " L" mov r0,#04CH 0646 : A0 " " mov @r0,a 0647 : 84 DE " " jmp L04DE ; 0649 L0649: 0649 : 8A 04 " " orl p2,#004H 064B : B8 4C " L" mov r0,#04CH 064D : A0 " " mov @r0,a 064E L064E: 064E : 94 C6 " " call L04C6 0650 L0650: 0650 : 54 46 "TF" call L0246 0652 : 12 3E " >" jb0 L063E 0654 : 32 5B "2[" jb1 L065B 0656 : D4 EB " " call L06EB 0658 : 96 4E " N" jnz L064E 065A : 83 " " ret ; 065B L065B: 065B : 94 77 " w" call L0477 065D : 96 50 " P" jnz L0650 065F : 94 7C " |" call L047C 0661 : 96 3E " >" jnz L063E 0663 : 74 55 "tU" call L0355 0665 : 96 3E " >" jnz L063E 0667 : C4 50 " P" jmp L0650 ; 0669 L0669: 0669 : 34 BF "4 " call L01BF 066B : 12 3E " >" jb0 L063E 066D : F4 D0 " " call L07D0 066F : 64 00 "d " jmp L0300 ; 0671 L0671: 0671 : BF 00 " " mov r7,#000H 0673 L0673: 0673 : B8 24 " $" mov r0,#024H 0675 : D4 EE " " call L06EE 0677 : BB 20 " " mov r3,#020H 0679 : F6 3E " >" jc L063E 067B : F0 " " mov a,@r0 067C : AA " " mov r2,a 067D : B8 49 " I" mov r0,#049H 067F : BB 11 " " mov r3,#011H 0681 L0681: 0681 : C8 " " dec r0 0682 : B0 FF " " mov @r0,#0FFH 0684 : EB 81 " " djnz r3,L0681 0686 L0686: 0686 : F0 " " mov a,@r0 0687 : F2 8C " " jb7 L068C 0689 : 18 " " inc r0 068A : C4 96 " " jmp L0696 ; 068C L068C: 068C : FB " " mov a,r3 068D : A0 " " mov @r0,a 068E : 1B " " inc r3 068F : 17 " " inc a 0690 : D1 " " xrl a,@r1 0691 : C6 A3 " " jz L06A3 0693 : FA " " mov a,r2 0694 : 68 "h" add a,r0 0695 : A8 " " mov r0,a 0696 L0696: 0696 : F1 " " mov a,@r1 0697 : 37 "7" cpl a 0698 : 17 " " inc a 0699 : 68 "h" add a,r0 069A : 03 C8 " " add a,#0C8H 069C : E6 86 " " jnc L0686 069E : 03 38 " 8" add a,#038H 06A0 : A8 " " mov r0,a 06A1 : C4 96 " " jmp L0696 ; 06A3 L06A3: 06A3 : F4 D6 " " call L07D6 06A5 : B9 38 " 8" mov r1,#038H 06A7 L06A7: 06A7 : FF " " mov a,r7 06A8 : 90 " " movx @r0,a 06A9 : 61 "a" add a,@r1 06AA : 90 " " movx @r0,a 06AB : 19 " " inc r1 06AC : EB A7 " " djnz r3,L06A7 06AE : 8A 10 " " orl p2,#010H 06B0 : 83 " " ret ; 06B1 L06B1: 06B1 : 74 55 "tU" call L0355 06B3 : 96 3E " >" jnz L063E 06B5 L06B5: 06B5 : 54 BC "T " call L02BC 06B7 : D4 E1 " " call L06E1 06B9 : 23 03 "# " mov a,#003H 06BB : 14 F5 " " call L00F5 06BD : F1 " " mov a,@r1 06BE : BA 02 " " mov r2,#002H 06C0 : 54 4E "TN" call L024E 06C2 : 23 11 "# " mov a,#011H 06C4 : 14 F5 " " call L00F5 06C6 : F1 " " mov a,@r1 06C7 : BA 03 " " mov r2,#003H 06C9 : 54 4E "TN" call L024E 06CB : B8 4A " J" mov r0,#04AH 06CD : F0 " " mov a,@r0 06CE : BA 05 " " mov r2,#005H 06D0 : 54 4E "TN" call L024E 06D2 : B8 4B " K" mov r0,#04BH 06D4 : F0 " " mov a,@r0 06D5 : BA 04 " " mov r2,#004H 06D7 : 54 4E "TN" call L024E 06D9 : 23 51 "#Q" mov a,#051H 06DB : 54 4C "TL" call L024C 06DD : F4 D6 " " call L07D6 06DF : 54 6B "Tk" call L026B 06E1 L06E1: 06E1 : AC " " mov r4,a 06E2 : 23 06 "# " mov a,#006H 06E4 : 54 60 "T`" call L0260 06E6 : D3 80 " " xrl a,#080H 06E8 : 90 " " movx @r0,a 06E9 : FC " " mov a,r4 06EA : 83 " " ret ; 06EB L06EB: 06EB : B8 4C " L" mov r0,#04CH 06ED : 10 " " inc @r0 06EE L06EE: 06EE : 23 03 "# " mov a,#003H 06F0 : 24 F7 "$ " jmp L01F7 ; 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 : A3 " " movp a,@a 06FF : 83 " " ret ; 0700 : 54 F7 "T " call L02F7 0702 : E4 B5 " " jmp L07B5 ; 0704 : B7 " " db 0B7H ; 0705 L0705: 0705 : 09 " " in a,p1 0706 : D3 80 " " xrl a,#080H 0708 : 39 "9" outl p1,a 0709 : BF 45 " E" mov r7,#045H 070B : BB 31 " 1" mov r3,#031H 070D : B9 FF " " mov r1,#0FFH 070F : BC FF " " mov r4,#0FFH 0711 : C7 " " mov a,psw 0712 : 53 07 "S " anl a,#007H 0714 : E7 " " rl a 0715 : 03 08 " " add a,#008H 0717 : A8 " " mov r0,a 0718 : B0 2A " *" mov @r0,#02AH 071A : 18 " " inc r0 071B : B0 07 " " mov @r0,#007H 071D : 18 " " inc r0 071E : B0 FE " " mov @r0,#0FEH 0720 : 18 " " inc r0 0721 : 23 07 "# " mov a,#007H 0723 L0723: 0723 : A0 " " mov @r0,a 0724 L0724: 0724 : C7 " " mov a,psw 0725 : 17 " " inc a 0726 : 17 " " inc a 0727 : D7 " " mov psw,a 0728 : F9 " " mov a,r1 0729 L0729: 0729 : 83 " " ret ; 072A : 6C "l" add a,r4 072B : E7 " " rl a 072C : AC " " mov r4,a 072D : E9 24 " $" djnz r1,L0724 072F : F0 " " mov a,@r0 0730 : 03 FF " " add a,#0FFH 0732 : F6 23 " #" jc L0723 0734 : 27 "'" clr a 0735 : A3 " " movp a,@a 0736 : DC " " xrl a,r4 0737 : 96 B8 " " jnz L07B8 0739 : F4 C0 " " call L07C0 073B L073B: 073B : 19 " " inc r1 073C : F1 " " mov a,@r1 073D : 90 " " movx @r0,a 073E : EA 3B " ;" djnz r2,L073B 0740 : CF " " dec r7 0741 : BC 01 " " mov r4,#001H 0743 L0743: 0743 : F4 C0 " " call L07C0 0745 L0745: 0745 : F4 C8 " " call L07C8 0747 : A1 " " mov @r1,a 0748 : EA 45 " E" djnz r2,L0745 074A : F4 C0 " " call L07C0 074C L074C: 074C : F4 C8 " " call L07C8 074E : D1 " " xrl a,@r1 074F : 96 B1 " " jnz L07B1 0751 : EA 4C " L" djnz r2,L074C 0753 : FC " " mov a,r4 0754 : 6C "l" add a,r4 0755 : 2C "," xch a,r4 0756 : 96 43 " C" jnz L0743 0758 : F4 B1 " " call L07B1 075A : CF " " dec r7 075B : F4 8A " " call L078A 075D : 96 B8 " " jnz L07B8 075F : CF " " dec r7 0760 : BB 32 " 2" mov r3,#032H 0762 : 0A " " in a,p2 0763 : 37 "7" cpl a 0764 : F2 B8 " " jb7 L07B8 0766 : BA 01 " " mov r2,#001H 0768 : BC 04 " " mov r4,#004H 076A L076A: 076A : FA " " mov a,r2 076B : A3 " " movp a,@a 076C : 90 " " movx @r0,a 076D : 1A " " inc r2 076E : EC 6A " j" djnz r4,L076A 0770 : 0A " " in a,p2 0771 : F2 B8 " " jb7 L07B8 0773 : 8A 08 " " orl p2,#008H 0775 : CF " " dec r7 0776 : B8 20 " " mov r0,#020H 0778 : B9 60 " `" mov r1,#060H 077A : BA 02 " " mov r2,#002H 077C : BC 02 " " mov r4,#002H 077E L077E: 077E : FA " " mov a,r2 077F : 91 " " movx @r1,a 0780 : 90 " " movx @r0,a 0781 : 80 " " movx a,@r0 0782 : DA " " xrl a,r2 0783 : 96 B8 " " jnz L07B8 0785 : 1A " " inc r2 0786 : EC 7E " ~" djnz r4,L077E 0788 : AB " " mov r3,a 0789 : 83 " " ret ; 078A L078A: 078A : BB 30 " 0" mov r3,#030H 078C : BC 01 " " mov r4,#001H 078E L078E: 078E : F4 BA " " call L07BA 0790 L0790: 0790 : F4 C8 " " call L07C8 0792 : 90 " " movx @r0,a 0793 : EE 90 " " djnz r6,L0790 0795 : EA 90 " " djnz r2,L0790 0797 : F4 BA " " call L07BA 0799 : 8A 1C " " orl p2,#01CH 079B : B9 A0 " " mov r1,#0A0H 079D : 81 " " movx a,@r1 079E : 9A E7 " " anl p2,#0E7H 07A0 L07A0: 07A0 : F4 C8 " " call L07C8 07A2 : 80 " " movx a,@r0 07A3 : DD " " xrl a,r5 07A4 : 96 B8 " " jnz L07B8 07A6 : EE A0 " " djnz r6,L07A0 07A8 : EA A0 " " djnz r2,L07A0 07AA : FC " " mov a,r4 07AB : 6C "l" add a,r4 07AC : 2C "," xch a,r4 07AD : 96 8E " " jnz L078E 07AF : AB " " mov r3,a 07B0 : 83 " " ret ; 07B1 L07B1: 07B1 : F4 C0 " " call L07C0 07B3 L07B3: 07B3 : 80 " " movx a,@r0 07B4 : 19 " " inc r1 07B5 L07B5: 07B5 : A1 " " mov @r1,a 07B6 : EA B3 " " djnz r2,L07B3 07B8 L07B8: 07B8 : FF " " mov a,r7 07B9 : 83 " " ret ; 07BA L07BA: 07BA : BA 04 " " mov r2,#004H 07BC : BE 00 " " mov r6,#000H 07BE : E4 C4 " " jmp L07C4 ; 07C0 L07C0: 07C0 : B9 1F " " mov r1,#01FH 07C2 : BA 60 " `" mov r2,#060H 07C4 L07C4: 07C4 : FC " " mov a,r4 07C5 : AD " " mov r5,a 07C6 : E4 D6 " " jmp L07D6 ; 07C8 L07C8: 07C8 : FD " " mov a,r5 07C9 : 96 CC " " jnz L07CC 07CB : 17 " " inc a 07CC L07CC: 07CC : 6D "m" add a,r5 07CD : AD " " mov r5,a 07CE : 19 " " inc r1 07CF : 83 " " ret ; 07D0 L07D0: 07D0 : 14 DB " " call L00DB 07D2 : B8 26 " &" mov r0,#026H 07D4 : A0 " " mov @r0,a 07D5 : 83 " " ret ; 07D6 L07D6: 07D6 : 27 "'" clr a 07D7 L07D7: 07D7 : B8 60 " `" mov r0,#060H 07D9 : 8A 10 " " orl p2,#010H 07DB : 90 " " movx @r0,a 07DC : 9A EF " " anl p2,#0EFH 07DE : B8 00 " " mov r0,#000H 07E0 : 83 " " ret ; 07E1 L07E1: 07E1 : BA 04 " " mov r2,#004H 07E3 : E4 E7 " " jmp L07E7 ; 07E5 L07E5: 07E5 : BA 07 " " mov r2,#007H 07E7 L07E7: 07E7 : 99 FF " " anl p1,#0FFH 07E9 : F4 D6 " " call L07D6 07EB L07EB: 07EB : FA " " mov a,r2 07EC : C6 29 " )" jz L0729 07EE L07EE: 07EE : 80 " " movx a,@r0 07EF : EA EE " " djnz r2,L07EE 07F1 : 83 " " ret ; 07F2 : 00 " " nop 07F3 : 00 " " nop 07F4 : 00 " " nop 07F5 : 00 " " nop 07F6 : 00 " " nop 07F7 : 00 " " nop 07F8 : 00 " " nop 07F9 : 00 " " nop 07FA : 00 " " nop 07FB : 00 " " nop 07FC : 00 " " nop 07FD : 00 " " nop 07FE : A3 " " movp a,@a 07FF : 83 " " ret ;-------------------------------------------------------------- Symbol table ============ Value Type Name ----- ---- ---- 0004 Code L0004 0008 Code L0008 000E Code L000E 0016 Code L0016 0017 Code L0017 0019 Code L0019 001D Code L001D 003D Code L003D 0048 Code L0048 004C Code L004C 0052 Code L0052 0054 Code L0054 006A Code L006A 0072 Code L0072 007F Code L007F 0080 Code L0080 0098 Code L0098 009C Code L009C 00A4 Code L00A4 00B0 Code L00B0 00BA Code L00BA 00C1 Code L00C1 00C9 Code L00C9 00D0 Code L00D0 00DB Code L00DB 00E3 Code L00E3 00E5 Code L00E5 00EC Code L00EC 00EE Code L00EE 00F3 Code L00F3 00F5 Code L00F5 0129 Code L0129 012C Code L012C 0141 Code L0141 0147 Code L0147 0167 Code L0167 016B Code L016B 0170 Code L0170 0174 Code L0174 01AA Code L01AA 01B9 Code L01B9 01BF Code L01BF 01F2 Code L01F2 01F6 Code L01F6 01F7 Code L01F7 0218 Code L0218 021E Code L021E 022B Code L022B 022F Code L022F 0244 Code L0244 0246 Code L0246 024C Code L024C 024E Code L024E 0256 Code L0256 0257 Code L0257 025E Code L025E 0260 Code L0260 0267 Code L0267 0269 Code L0269 026B Code L026B 026E Code L026E 026F Code L026F 027E Code L027E 0290 Code L0290 0293 Code L0293 0296 Code L0296 02AD Code L02AD 02BC Code L02BC 02D8 Code L02D8 02EA Code L02EA 02F5 Code L02F5 02F7 Code L02F7 0300 Code L0300 0313 Code L0313 0325 Code L0325 0326 Code L0326 032A Code L032A 032E Code L032E 033C Code L033C 033E Code L033E 0346 Code L0346 0351 Code L0351 0355 Code L0355 035F Code L035F 0361 Code L0361 0365 Code L0365 036E Code L036E 0376 Code L0376 0378 Code L0378 0382 Code L0382 0384 Code L0384 0398 Code L0398 039C Code L039C 03A6 Code L03A6 03A8 Code L03A8 03CC Code L03CC 03CE Code L03CE 03D0 Code L03D0 03D5 Code L03D5 03D8 Code L03D8 03DA Code L03DA 03DC Code L03DC 03E3 Code L03E3 03E5 Code L03E5 03EA Code L03EA 0400 Code L0400 0402 Code L0402 0404 Code L0404 0406 Code L0406 0407 Code L0407 0412 Code L0412 041C Code L041C 0429 Code L0429 0432 Code L0432 0447 Code L0447 0449 Code L0449 044B Code L044B 044C Code L044C 044D Code L044D 0451 Code L0451 0457 Code L0457 0461 Code L0461 0467 Code L0467 0477 Code L0477 047C Code L047C 0486 Code L0486 0488 Code L0488 0490 Code L0490 0492 Code L0492 049E Code L049E 04BC Code L04BC 04C0 Code L04C0 04C6 Code L04C6 04CF Code L04CF 04D9 Code L04D9 04DE Code L04DE 04F0 Code L04F0 04FA Code L04FA 04FC Code L04FC 0503 Code L0503 0518 Code L0518 0529 Code L0529 0548 Code L0548 0553 Code L0553 055B Code L055B 0569 Code L0569 0570 Code L0570 0574 Code L0574 057D Code L057D 0580 Code L0580 05A2 Code L05A2 05A4 Code L05A4 05A5 Code L05A5 05A8 Code L05A8 05B1 Code L05B1 05B6 Code L05B6 05C2 Code L05C2 05EC Code L05EC 05F1 Code L05F1 0600 Code L0600 0610 Code L0610 0618 Code L0618 062A Code L062A 063A Code L063A 063C Code L063C 063E Code L063E 063F Code L063F 0649 Code L0649 064E Code L064E 0650 Code L0650 065B Code L065B 0669 Code L0669 0671 Code L0671 0673 Code L0673 0681 Code L0681 0686 Code L0686 068C Code L068C 0696 Code L0696 06A3 Code L06A3 06A7 Code L06A7 06B1 Code L06B1 06B5 Code L06B5 06E1 Code L06E1 06EB Code L06EB 06EE Code L06EE 0705 Code L0705 0723 Code L0723 0724 Code L0724 0729 Code L0729 073B Code L073B 0743 Code L0743 0745 Code L0745 074C Code L074C 076A Code L076A 077E Code L077E 078A Code L078A 078E Code L078E 0790 Code L0790 07A0 Code L07A0 07B1 Code L07B1 07B3 Code L07B3 07B5 Code L07B5 07B8 Code L07B8 07BA Code L07BA 07C0 Code L07C0 07C4 Code L07C4 07C8 Code L07C8 07CC Code L07CC 07D0 Code L07D0 07D6 Code L07D6 07D7 Code L07D7 07E1 Code L07E1 07E5 Code L07E5 07E7 Code L07E7 07EB Code L07EB 07EE Code L07EE Number of symbols: 216 ;--------------------------------------------------------------