; ; Disassembled by: ; DASMx object code disassembler ; (c) Copyright 1996-2003 Conquest Consultants ; Version 1.40 (Oct 18 2003) ; ; File: wd1015-00.bin ; ; Size: 2048 bytes ; Checksum: 08BB ; CRC-32: 35EEA7C4 ; ; Date: Tue Jul 17 21:35:11 2018 ; ; CPU: Intel 8048 (MCS-48 family) ; ; ; org 00000H ; 0000 L0000: 0000 : C4 01 " " jmp L0601 ; 0002 : 01 " " db 001H ; 0003 : 15 " " dis i 0004 : 27 "'" clr a 0005 : 64 AB "d " jmp L03AB ; 0007 : 16 09 " " jtf L0009 0009 L0009: 0009 : C5 " " sel rb0 000A : ED 0F " " djnz r5,L000F 000C L000C: 000C : 8A 10 " " orl p2,#010H 000E : 65 "e" stop tcnt 000F L000F: 000F : 93 " " retr ; 0010 : 18 " " inc r0 0011 : 1A " " inc r2 0012 : 1C " " inc r4 0013 : 1E " " inc r6 0014 : 5E "^" anl a,r6 0015 : 6D "m" add a,r5 0016 : 20 " " xch a,@r0 0017 : 64 44 "dD" jmp L0344 ; 0019 : 18 " " inc r0 001A : 44 91 "D " jmp L0291 001C : 44 DC "D " jmp L02DC 001E : 44 45 "DE" jmp L0245 0020 : 24 04 "$ " jmp L0104 ; 0022 L0022: 0022 : 26 22 "&"" jnt0 L0022 0024 : 85 " " clr f0 0025 : A5 " " clr f1 0026 : 9A 1F " " anl p2,#01FH 0028 : B8 F6 " " mov r0,#0F6H 002A : 80 " " movx a,@r0 002B : AE " " mov r6,a 002C : 09 " " in a,p1 002D : 67 "g" rrc a 002E : 67 "g" rrc a 002F : F6 47 " G" jc L0047 0031 : 35 "5" dis tcnti 0032 : 65 "e" stop tcnt 0033 : 0A " " in a,p2 0034 : 37 "7" cpl a 0035 : 92 47 " G" jb4 L0047 0037 : 9A EF " " anl p2,#0EFH 0039 : 09 " " in a,p1 003A : B2 42 " B" jb5 L0042 003C : B8 04 " " mov r0,#004H 003E : 23 BF "# " mov a,#0BFH 0040 : 04 45 " E" jmp L0045 ; 0042 L0042: 0042 : B8 52 " R" mov r0,#052H 0044 : 27 "'" clr a 0045 L0045: 0045 : 94 C4 " " call L04C4 0047 L0047: 0047 : B8 EF " " mov r0,#0EFH 0049 : 80 " " movx a,@r0 004A : AF " " mov r7,a 004B : F2 56 " V" jb7 L0056 004D : E7 " " rl a 004E : 67 "g" rrc a 004F : 47 "G" swap a 0050 : 67 "g" rrc a 0051 : 53 07 "S " anl a,#007H 0053 : 03 10 " " add a,#010H 0055 : B3 " " jmpp @a ;INFO: indirect jump ; 0056 L0056: 0056 : 53 60 "S`" anl a,#060H 0058 : 96 5C " \" jnz L005C 005A : C4 01 " " jmp L0601 005C L005C: 005C : 64 B4 "d " jmp L03B4 ; 005E : 27 "'" clr a 005F : B8 F4 " " mov r0,#0F4H 0061 : 90 " " movx @r0,a 0062 : 18 " " inc r0 0063 : 90 " " movx @r0,a 0064 : B8 25 " %" mov r0,#025H 0066 : B0 FF " " mov @r0,#0FFH 0068 : FF " " mov a,r7 0069 : 94 00 " " call L0400 006B : 04 DF " " jmp L00DF ; 006D : B8 25 " %" mov r0,#025H 006F : F0 " " mov a,@r0 0070 : 96 78 " x" jnz L0078 0072 : B0 FF " " mov @r0,#0FFH 0074 : 23 1F "# " mov a,#01FH 0076 : 94 45 " E" call L0445 0078 L0078: 0078 : 94 70 " p" call L0470 007A : 04 7E " ~" jmp L007E ; 007C L007C: 007C : 94 83 " " call L0483 007E L007E: 007E : BC 08 " " mov r4,#008H 0080 L0080: 0080 : FF " " mov a,r7 0081 : 32 86 "2 " jb1 L0086 0083 : B8 E9 " " mov r0,#0E9H 0085 : 90 " " movx @r0,a 0086 L0086: 0086 : 92 8B " " jb4 L008B 0088 : B8 ED " " mov r0,#0EDH 008A : 90 " " movx @r0,a 008B L008B: 008B : 53 70 "Sp" anl a,#070H 008D : 94 00 " " call L0400 008F : FF " " mov a,r7 0090 : 53 12 "S " anl a,#012H 0092 : 96 DD " " jnz L00DD 0094 : FE " " mov a,r6 0095 : 37 "7" cpl a 0096 : F2 DD " " jb7 L00DD 0098 : FC " " mov a,r4 0099 : 37 "7" cpl a 009A : 72 B5 "r " jb3 L00B5 009C : B8 E8 " " mov r0,#0E8H 009E : 80 " " movx a,@r0 009F : 96 AA " " jnz L00AA 00A1 : 80 " " movx a,@r0 00A2 : 96 AA " " jnz L00AA 00A4 : 80 " " movx a,@r0 00A5 : 96 AA " " jnz L00AA 00A7 : 80 " " movx a,@r0 00A8 : C6 DD " " jz L00DD 00AA L00AA: 00AA : B9 26 " &" mov r1,#026H 00AC : B8 04 " " mov r0,#004H 00AE : 27 "'" clr a 00AF L00AF: 00AF : A1 " " mov @r1,a 00B0 : 19 " " inc r1 00B1 : E8 AF " " djnz r0,L00AF 00B3 : 04 D1 " " jmp L00D1 ; 00B5 L00B5: 00B5 : D5 " " sel rb1 00B6 : 85 " " clr f0 00B7 : 95 " " cpl f0 00B8 : BF 04 " " mov r7,#004H 00BA : B9 26 " &" mov r1,#026H 00BC : BE 00 " " mov r6,#000H 00BE : B8 E8 " " mov r0,#0E8H 00C0 L00C0: 00C0 : 80 " " movx a,@r0 00C1 : 21 "!" xch a,@r1 00C2 : D1 " " xrl a,@r1 00C3 : C6 C6 " " jz L00C6 00C5 : 85 " " clr f0 00C6 L00C6: 00C6 : FE " " mov a,r6 00C7 : 41 "A" orl a,@r1 00C8 : AE " " mov r6,a 00C9 : 19 " " inc r1 00CA : EF C0 " " djnz r7,L00C0 00CC : C5 " " sel rb0 00CD : C6 DD " " jz L00DD 00CF : B6 D7 " " jf0 L00D7 00D1 L00D1: 00D1 : EC 80 " " djnz r4,L0080 00D3 L00D3: 00D3 : 23 40 "#@" mov a,#040H 00D5 : 84 18 " " jmp L0418 ; 00D7 L00D7: 00D7 : B4 04 " " call L0504 00D9 : B6 D3 " " jf0 L00D3 00DB : 8A 40 " @" orl p2,#040H 00DD L00DD: 00DD : EA 7C " |" djnz r2,L007C 00DF L00DF: 00DF : 27 "'" clr a 00E0 : 84 1A " " jmp L041A ; 00E2 : 00 " " nop 00E3 : 00 " " nop 00E4 : 00 " " nop 00E5 : 00 " " nop 00E6 : 00 " " nop 00E7 : 00 " " nop 00E8 : 00 " " nop 00E9 : 00 " " nop 00EA : 00 " " nop 00EB : 00 " " nop 00EC : 00 " " nop 00ED : 00 " " nop 00EE : 00 " " nop 00EF : 00 " " nop 00F0 : 00 " " nop 00F1 : 00 " " nop 00F2 : 00 " " nop 00F3 : 00 " " nop 00F4 : 00 " " nop 00F5 : 00 " " nop 00F6 : 00 " " nop 00F7 : 00 " " nop 00F8 : 00 " " nop 00F9 : 00 " " nop 00FA : 00 " " nop 00FB : 00 " " nop 00FC : 00 " " nop 00FD : 00 " " nop 00FE L00FE: 00FE : A3 " " movp a,@a 00FF : 83 " " ret ; 0100 : 0E " " movd a,p6 0101 : 1D " " inc r5 ; 0102 : 3B ";" db 03BH ; 0103 : 0E " " movd a,p6 0104 L0104: 0104 : 94 9C " " call L049C 0106 : B8 F3 " " mov r0,#0F3H 0108 : 80 " " movx a,@r0 0109 : AB " " mov r3,a 010A : FE " " mov a,r6 010B : 77 "w" rr a 010C : 47 "G" swap a 010D : 53 03 "S " anl a,#003H 010F : A3 " " movp a,@a 0110 : 2E "." xch a,r6 0111 : F2 15 " " jb7 L0115 0113 : CE " " dec r6 0114 : CE " " dec r6 0115 L0115: 0115 : 2E "." xch a,r6 0116 : 90 " " movx @r0,a 0117 : FE " " mov a,r6 0118 : 53 7F "S " anl a,#07FH 011A : B8 F6 " " mov r0,#0F6H 011C : 90 " " movx @r0,a 011D : B8 F2 " " mov r0,#0F2H 011F : 80 " " movx a,@r0 0120 : AA " " mov r2,a 0121 : 23 50 "#P" mov a,#050H 0123 : 94 00 " " call L0400 0125 : FA " " mov a,r2 0126 : B8 F2 " " mov r0,#0F2H 0128 : 90 " " movx @r0,a 0129 : B9 04 " " mov r1,#004H 012B L012B: 012B : E8 2B " +" djnz r0,L012B 012D : E9 2B " +" djnz r1,L012B 012F : 23 50 "#P" mov a,#050H 0131 : 94 00 " " call L0400 0133 : FE " " mov a,r6 0134 : B8 F6 " " mov r0,#0F6H 0136 : 90 " " movx @r0,a 0137 : 94 6C " l" call L046C 0139 : B8 F0 " " mov r0,#0F0H 013B L013B: 013B : 27 "'" clr a 013C : 90 " " movx @r0,a 013D : 09 " " in a,p1 013E : 37 "7" cpl a 013F : 72 3B "r;" jb3 L013B 0141 : FA " " mov a,r2 0142 : 03 3F " ?" add a,#03FH 0144 : 37 "7" cpl a 0145 : AA " " mov r2,a 0146 : B9 40 " @" mov r1,#040H 0148 : 34 54 "4T" call L0154 014A : B9 41 " A" mov r1,#041H 014C : 34 54 "4T" call L0154 014E : FB " " mov a,r3 014F : B8 F3 " " mov r0,#0F3H 0151 : 90 " " movx @r0,a 0152 : 04 DF " " jmp L00DF ; 0154 L0154: 0154 : F9 " " mov a,r1 0155 : 6A "j" add a,r2 0156 : E6 59 " Y" jnc L0159 0158 : 83 " " ret ; 0159 L0159: 0159 : 94 6C " l" call L046C 015B : F1 " " mov a,@r1 015C : B8 F3 " " mov r0,#0F3H 015E : 90 " " movx @r0,a 015F : B8 E9 " " mov r0,#0E9H 0161 L0161: 0161 : 90 " " movx @r0,a 0162 : 23 30 "#0" mov a,#030H 0164 : 94 45 " E" call L0445 0166 : 19 " " inc r1 0167 : 19 " " inc r1 0168 : 24 54 "$T" jmp L0154 ; 016A L016A: 016A : 23 20 "# " mov a,#020H 016C : B8 F1 " " mov r0,#0F1H 016E L016E: 016E : 90 " " movx @r0,a 016F : 23 01 "# " mov a,#001H 0171 : 18 " " inc r0 0172 : 90 " " movx @r0,a 0173 : 27 "'" clr a 0174 : BA 04 " " mov r2,#004H 0176 : B9 20 " " mov r1,#020H 0178 L0178: 0178 : 18 " " inc r0 0179 : 90 " " movx @r0,a 017A : A1 " " mov @r1,a 017B : 19 " " inc r1 017C : EA 78 " x" djnz r2,L0178 017E : B1 28 " (" mov @r1,#028H 0180 : 19 " " inc r1 0181 : A1 " " mov @r1,a 0182 : B8 EE " " mov r0,#0EEH 0184 : 80 " " movx a,@r0 0185 : B8 EA " " mov r0,#0EAH 0187 : 80 " " movx a,@r0 0188 : 04 22 " "" jmp L0022 ; 018A : 43 6F "Co" orl a,#06FH 018C : 70 "p" addc a,@r0 018D : 79 "y" addc a,r1 018E : 72 69 "ri" jb3 L0169 0190 : 67 "g" rrc a 0191 : 68 "h" add a,r0 0192 : 74 20 "t " call L0320 0194 : 28 "(" xch a,r0 0195 : 43 29 "C)" orl a,#029H 0197 : 20 " " xch a,@r0 0198 : 31 "1" xchd a,@r1 0199 : 39 "9" outl p1,a ; 019A : 38 33 "83" db 038H, 033H ; 019C : 20 " " xch a,@r0 019D : 57 "W" da a 019E : 65 "e" stop tcnt ; 019F : 73 "s" db 073H ; 01A0 : 74 65 "te" call L0365 01A2 : 72 6E "rn" jb3 L016E 01A4 : 20 " " xch a,@r0 01A5 : 44 69 "Di" jmp L0269 ; 01A7 : 67 "g" rrc a 01A8 : 69 "i" add a,r1 01A9 : 74 61 "ta" call L0361 01AB : 6C "l" add a,r4 01AC : 20 " " xch a,@r0 01AD : 43 6F "Co" orl a,#06FH 01AF : 72 70 "rp" jb3 L0170 01B1 : 6F "o" add a,r7 01B2 : 72 61 "ra" jb3 L0161 01B4 : 74 69 "ti" call L0369 01B6 : 6F "o" add a,r7 01B7 : 6E "n" add a,r6 01B8 : 00 " " nop 01B9 : 00 " " nop 01BA : 00 " " nop 01BB : 00 " " nop 01BC : 00 " " nop 01BD : 00 " " nop 01BE : 00 " " nop 01BF : 00 " " nop 01C0 : 00 " " nop 01C1 : 00 " " nop 01C2 : 00 " " nop 01C3 : 00 " " nop 01C4 : 00 " " nop 01C5 : 00 " " nop 01C6 : 00 " " nop 01C7 : 00 " " nop 01C8 : 00 " " nop 01C9 : 00 " " nop 01CA : 00 " " nop 01CB : 00 " " nop 01CC : 00 " " nop 01CD : 00 " " nop 01CE : 00 " " nop 01CF : 00 " " nop 01D0 : 00 " " nop 01D1 : 00 " " nop 01D2 : 00 " " nop 01D3 : 00 " " nop 01D4 : 00 " " nop 01D5 : 00 " " nop 01D6 : 00 " " nop 01D7 : 00 " " nop 01D8 : 00 " " nop 01D9 : 00 " " nop 01DA : 00 " " nop 01DB : 00 " " nop 01DC : 00 " " nop 01DD : 00 " " nop 01DE : 00 " " nop 01DF : 00 " " nop 01E0 : 00 " " nop 01E1 : 00 " " nop 01E2 : 00 " " nop 01E3 : 00 " " nop 01E4 : 00 " " nop 01E5 : 00 " " nop 01E6 : 00 " " nop 01E7 : 00 " " nop 01E8 : 00 " " nop 01E9 : 00 " " nop 01EA : 00 " " nop 01EB : 00 " " nop 01EC : 00 " " nop 01ED : 00 " " nop 01EE : 00 " " nop 01EF : 00 " " nop 01F0 : 00 " " nop 01F1 : 00 " " nop 01F2 : 00 " " nop 01F3 : 00 " " nop 01F4 : 00 " " nop 01F5 : 00 " " nop 01F6 : 00 " " nop 01F7 : 00 " " nop 01F8 : 00 " " nop 01F9 : 00 " " nop 01FA : 00 " " nop 01FB : 00 " " nop 01FC : 00 " " nop 01FD : 00 " " nop 01FE : A3 " " movp a,@a 01FF : 83 " " ret ; 0200 : 00 " " nop ; 0201 : 01 " " db 001H ; 0202 : 02 " " outl bus,a 0203 : 03 04 " " add a,#004H 0205 : 05 " " en i ; 0206 : 06 " " db 006H ; 0207 : 08 " " ins a,bus 0208 : 0A " " in a,p2 0209 : 0C " " movd a,p4 020A : 0E " " movd a,p6 020B : 10 " " inc @r0 020C : 12 14 " " jb0 L0214 020E : 19 " " inc r1 020F : 28 "(" xch a,r0 0210 L0210: 0210 : FF " " mov a,r7 0211 : 53 0F "S " anl a,#00FH 0213 : A3 " " movp a,@a 0214 L0214: 0214 : B8 24 " $" mov r0,#024H 0216 : A0 " " mov @r0,a 0217 : 83 " " ret ; 0218 : 54 10 "T " call L0210 021A : 27 "'" clr a 021B : B8 F4 " " mov r0,#0F4H 021D : 90 " " movx @r0,a 021E : 18 " " inc r0 021F : 90 " " movx @r0,a 0220 L0220: 0220 : 94 AF " " call L04AF 0222 : 27 "'" clr a 0223 : A1 " " mov @r1,a 0224 : AC " " mov r4,a 0225 : 99 7F " " anl p1,#07FH 0227 L0227: 0227 : 09 " " in a,p1 0228 : 52 80 "R " jb2 L0280 022A : 89 40 " @" orl p1,#040H 022C : 99 BF " " anl p1,#0BFH 022E : B9 24 " $" mov r1,#024H 0230 : F1 " " mov a,@r1 0231 : 72 37 "r7" jb3 L0237 0233 : 92 37 " 7" jb4 L0237 0235 : 23 08 "# " mov a,#008H 0237 L0237: 0237 : A9 " " mov r1,a 0238 L0238: 0238 : B8 DC " " mov r0,#0DCH 023A L023A: 023A : 00 " " nop 023B : E8 3A " :" djnz r0,L023A 023D : E9 38 " 8" djnz r1,L0238 023F : EC 27 " '" djnz r4,L0227 0241 : 23 02 "# " mov a,#002H 0243 : 84 18 " " jmp L0418 ; 0245 L0245: 0245 : 54 10 "T " call L0210 0247 L0247: 0247 : 94 AF " " call L04AF 0249 : 37 "7" cpl a 024A : 03 01 " " add a,#001H 024C : AC " " mov r4,a 024D : B8 F4 " " mov r0,#0F4H 024F : 80 " " movx a,@r0 0250 : B8 D9 " " mov r0,#0D9H 0252 : 90 " " movx @r0,a 0253 : A1 " " mov @r1,a 0254 : A9 " " mov r1,a 0255 : 27 "'" clr a 0256 : 13 FF " " addc a,#0FFH 0258 : A8 " " mov r0,a 0259 : F9 " " mov a,r1 025A : 6C "l" add a,r4 025B : AC " " mov r4,a 025C : C6 80 " " jz L0280 025E : 27 "'" clr a 025F : 78 "x" addc a,r0 0260 : 37 "7" cpl a 0261 : 89 80 " " orl p1,#080H 0263 : F2 6B " k" jb7 L026B 0265 : 99 7F " " anl p1,#07FH 0267 : FC " " mov a,r4 0268 : 37 "7" cpl a 0269 L0269: 0269 : 17 " " inc a 026A : AC " " mov r4,a 026B L026B: 026B : 89 40 " @" orl p1,#040H 026D : 99 BF " " anl p1,#0BFH 026F : B8 24 " $" mov r0,#024H 0271 : F0 " " mov a,@r0 0272 L0272: 0272 : C6 7C " |" jz L027C 0274 : B8 DB " " mov r0,#0DBH 0276 L0276: 0276 : 00 " " nop 0277 : E8 76 " v" djnz r0,L0276 0279 : 07 " " dec a 027A : 44 72 "Dr" jmp L0272 ; 027C L027C: 027C : EC 6B " k" djnz r4,L026B 027E : B6 84 " " jf0 L0284 0280 L0280: 0280 : B6 90 " " jf0 L0290 0282 : 04 DF " " jmp L00DF ; 0284 L0284: 0284 : 23 60 "#`" mov a,#060H 0286 : B8 02 " " mov r0,#002H 0288 : 94 C4 " " call L04C4 028A : B8 F7 " " mov r0,#0F7H 028C L028C: 028C : 80 " " movx a,@r0 028D : 37 "7" cpl a 028E : 92 8C " " jb4 L028C 0290 L0290: 0290 : 83 " " ret ; 0291 L0291: 0291 : 94 70 " p" call L0470 0293 : B5 " " cpl f1 0294 : 95 " " cpl f0 0295 : FB " " mov a,r3 0296 : B8 DA " " mov r0,#0DAH 0298 : 90 " " movx @r0,a 0299 L0299: 0299 : 54 47 "TG" call L0247 029B L029B: 029B : BC 08 " " mov r4,#008H 029D : BD 00 " " mov r5,#000H 029F L029F: 029F : 05 " " en i 02A0 : 94 6C " l" call L046C 02A2 : FE " " mov a,r6 02A3 : 67 "g" rrc a 02A4 : FF " " mov a,r7 02A5 : D5 " " sel rb1 02A6 : BA 70 " p" mov r2,#070H 02A8 : 92 BA " " jb4 L02BA 02AA : B8 ED " " mov r0,#0EDH 02AC : 90 " " movx @r0,a 02AD : 23 22 "#"" mov a,#022H 02AF : F7 " " rlc a 02B0 : F7 " " rlc a 02B1 : B8 D8 " " mov r0,#0D8H 02B3 : 90 " " movx @r0,a 02B4 : B8 DB " " mov r0,#0DBH 02B6 : B9 F0 " " mov r1,#0F0H 02B8 : 44 C5 "D " jmp L02C5 ; 02BA L02BA: 02BA : 23 2A "#*" mov a,#02AH 02BC : F7 " " rlc a 02BD : F7 " " rlc a 02BE : B8 D8 " " mov r0,#0D8H 02C0 : 90 " " movx @r0,a 02C1 : B8 F0 " " mov r0,#0F0H 02C3 : B9 DB " " mov r1,#0DBH 02C5 L02C5: 02C5 : 55 "U" strt t 02C6 L02C6: 02C6 : 16 D2 " " jtf L02D2 02C8 L02C8: 02C8 : 46 C6 "F " jnt1 L02C6 02CA : 80 " " movx a,@r0 02CB : 91 " " movx @r1,a 02CC L02CC: 02CC : 46 CC "F " jnt1 L02CC 02CE : 80 " " movx a,@r0 02CF : 91 " " movx @r1,a 02D0 : 44 CC "D " jmp L02CC ; 02D2 L02D2: 02D2 : EA C8 " " djnz r2,L02C8 02D4 L02D4: 02D4 : 23 D0 "# " mov a,#0D0H 02D6 : B8 D8 " " mov r0,#0D8H 02D8 : 90 " " movx @r0,a 02D9 : C5 " " sel rb0 02DA : 64 B4 "d " jmp L03B4 ; 02DC L02DC: 02DC : 95 " " cpl f0 02DD : 54 47 "TG" call L0247 02DF : 85 " " clr f0 02E0 : 94 AF " " call L04AF 02E2 : D5 " " sel rb1 02E3 : AD " " mov r5,a 02E4 : C5 " " sel rb0 02E5 : FE " " mov a,r6 02E6 : D5 " " sel rb1 02E7 : 67 "g" rrc a 02E8 : 47 "G" swap a 02E9 : 17 " " inc a 02EA : 53 03 "S " anl a,#003H 02EC : AF " " mov r7,a 02ED : 27 "'" clr a 02EE : F7 " " rlc a 02EF : E7 " " rl a 02F0 : 43 F0 "C " orl a,#0F0H 02F2 : AE " " mov r6,a 02F3 : FF " " mov a,r7 02F4 : 64 08 "d " jmp L0308 ; 02F6 : 00 " " nop 02F7 : 00 " " nop 02F8 : 00 " " nop 02F9 : 00 " " nop 02FA : 00 " " nop 02FB : 00 " " nop 02FC : 00 " " nop 02FD : 00 " " nop 02FE : A3 " " movp a,@a 02FF : 83 " " ret ; 0300 : 0E " " movd a,p6 0301 : 18 " " inc r0 0302 : 2D "-" xch a,r5 0303 : 55 "U" strt t 0304 : 20 " " xch a,@r0 0305 : 40 "@" orl a,@r0 0306 : 80 " " movx a,@r0 0307 : 00 " " nop 0308 L0308: 0308 : 03 04 " " add a,#004H 030A : A3 " " movp a,@a 030B : AC " " mov r4,a 030C : 94 9C " " call L049C 030E : B9 40 " @" mov r1,#040H 0310 : 05 " " en i 0311 : B8 07 " " mov r0,#007H 0313 : F0 " " mov a,@r0 0314 : 67 "g" rrc a 0315 : E6 1A " " jnc L031A 0317 : F5 " " sel mb1 0318 : 04 00 " " jmp L0000 ; 031A L031A: 031A : FE " " mov a,r6 031B : B8 D8 " " mov r0,#0D8H 031D : 90 " " movx @r0,a 031E : B8 DB " " mov r0,#0DBH 0320 L0320: 0320 : BB 30 " 0" mov r3,#030H 0322 : 23 4E "#N" mov a,#04EH 0324 : 55 "U" strt t 0325 L0325: 0325 : 46 25 "F%" jnt1 L0325 0327 : 90 " " movx @r0,a 0328 L0328: 0328 : EB 2E " ." djnz r3,L032E 032A : 44 D4 "D " jmp L02D4 ; 032C L032C: 032C : 16 28 " (" jtf L0328 032E L032E: 032E : 46 2C "F," jnt1 L032C 0330 : 90 " " movx @r0,a 0331 : BB 3A " :" mov r3,#03AH 0333 L0333: 0333 : 46 33 "F3" jnt1 L0333 0335 : 90 " " movx @r0,a 0336 : EB 33 " 3" djnz r3,L0333 0338 L0338: 0338 : BB 0C " " mov r3,#00CH 033A : 27 "'" clr a 033B L033B: 033B : 46 3B "F;" jnt1 L033B 033D : 90 " " movx @r0,a 033E : EB 3B " ;" djnz r3,L033B 0340 : 23 F5 "# " mov a,#0F5H 0342 : BB 03 " " mov r3,#003H 0344 L0344: 0344 : 46 44 "FD" jnt1 L0344 0346 : 90 " " movx @r0,a 0347 : EB 44 " D" djnz r3,L0344 0349 : 23 FE "# " mov a,#0FEH 034B L034B: 034B : 46 4B "FK" jnt1 L034B 034D : 90 " " movx @r0,a 034E : FD " " mov a,r5 034F L034F: 034F : 46 4F "FO" jnt1 L034F 0351 : 90 " " movx @r0,a 0352 : FE " " mov a,r6 0353 L0353: 0353 : 46 53 "FS" jnt1 L0353 0355 : 90 " " movx @r0,a 0356 : F1 " " mov a,@r1 0357 L0357: 0357 : 46 57 "FW" jnt1 L0357 0359 : 90 " " movx @r0,a 035A : 19 " " inc r1 035B : FF " " mov a,r7 035C L035C: 035C : 46 5C "F\" jnt1 L035C 035E : 90 " " movx @r0,a 035F : 23 F7 "# " mov a,#0F7H 0361 L0361: 0361 : 46 61 "Fa" jnt1 L0361 0363 : 90 " " movx @r0,a 0364 : 23 4E "#N" mov a,#04EH 0366 : BB 16 " " mov r3,#016H 0368 L0368: 0368 : 46 68 "Fh" jnt1 L0368 036A : 90 " " movx @r0,a 036B : EB 68 " h" djnz r3,L0368 036D : 27 "'" clr a 036E : BB 0C " " mov r3,#00CH 0370 L0370: 0370 : 46 70 "Fp" jnt1 L0370 0372 : 90 " " movx @r0,a 0373 : EB 70 " p" djnz r3,L0370 0375 : 23 F5 "# " mov a,#0F5H 0377 : BB 03 " " mov r3,#003H 0379 L0379: 0379 : 46 79 "Fy" jnt1 L0379 037B : 90 " " movx @r0,a 037C : EB 79 " y" djnz r3,L0379 037E : 23 FB "# " mov a,#0FBH 0380 L0380: 0380 : 46 80 "F " jnt1 L0380 0382 : 90 " " movx @r0,a 0383 : FC " " mov a,r4 0384 : AB " " mov r3,a 0385 : 23 E5 "# " mov a,#0E5H 0387 L0387: 0387 : 46 87 "F " jnt1 L0387 0389 : 90 " " movx @r0,a 038A L038A: 038A : 46 8A "F " jnt1 L038A 038C : 90 " " movx @r0,a 038D L038D: 038D : 46 8D "F " jnt1 L038D 038F : 90 " " movx @r0,a 0390 L0390: 0390 : 46 90 "F " jnt1 L0390 0392 : 90 " " movx @r0,a 0393 : EB 87 " " djnz r3,L0387 0395 : 23 F7 "# " mov a,#0F7H 0397 L0397: 0397 : 46 97 "F " jnt1 L0397 0399 : 90 " " movx @r0,a 039A : FF " " mov a,r7 039B : A3 " " movp a,@a 039C : AB " " mov r3,a 039D : 23 4E "#N" mov a,#04EH 039F L039F: 039F : 46 9F "F " jnt1 L039F 03A1 : 90 " " movx @r0,a 03A2 : EB 9F " " djnz r3,L039F 03A4 : EA 38 " 8" djnz r2,L0338 03A6 L03A6: 03A6 : 46 A6 "F " jnt1 L03A6 03A8 : 90 " " movx @r0,a 03A9 : 64 A6 "d " jmp L03A6 ; 03AB L03AB: 03AB : D7 " " mov psw,a 03AC : B8 D8 " " mov r0,#0D8H 03AE : 80 " " movx a,@r0 03AF : 14 0F " " call L000F 03B1 : 37 "7" cpl a 03B2 : D2 B8 " " jb6 L03B8 03B4 L03B4: 03B4 : 23 04 "# " mov a,#004H 03B6 : 84 18 " " jmp L0418 ; 03B8 L03B8: 03B8 : 37 "7" cpl a 03B9 : 92 D4 " " jb4 L03D4 03BB : 72 CC "r " jb3 L03CC 03BD : FF " " mov a,r7 03BE : B2 C2 " " jb5 L03C2 03C0 : 04 DF " " jmp L00DF ; 03C2 L03C2: 03C2 : EA C6 " " djnz r2,L03C6 03C4 : 04 DF " " jmp L00DF ; 03C6 L03C6: 03C6 : 94 83 " " call L0483 03C8 : A5 " " clr f1 03C9 : B5 " " cpl f1 03CA : 44 9B "D " jmp L029B ; 03CC L03CC: 03CC : EC D2 " " djnz r4,L03D2 03CE : 23 40 "#@" mov a,#040H 03D0 : 84 18 " " jmp L0418 03D2 L03D2: 03D2 : 44 9F "D " jmp L029F ; 03D4 L03D4: 03D4 : 53 08 "S " anl a,#008H 03D6 : C6 D9 " " jz L03D9 03D8 : AD " " mov r5,a 03D9 L03D9: 03D9 : 76 E6 "v " jf1 L03E6 03DB : FD " " mov a,r5 03DC : 72 E2 "r " jb3 L03E2 03DE : 23 10 "# " mov a,#010H 03E0 : 84 18 " " jmp L0418 ; 03E2 L03E2: 03E2 : 23 20 "# " mov a,#020H 03E4 : 84 18 " " jmp L0418 ; 03E6 L03E6: 03E6 : A5 " " clr f1 03E7 : 95 " " cpl f0 03E8 : 54 20 "T " call L0220 03EA : 44 99 "D " jmp L0299 ; 03EC : 00 " " nop 03ED : 00 " " nop 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 : 94 45 " E" call L0445 0402 : B8 F7 " " mov r0,#0F7H 0404 : 80 " " movx a,@r0 0405 : 67 "g" rrc a 0406 : E6 44 " D" jnc L0444 0408 : B8 F1 " " mov r0,#0F1H 040A : 80 " " movx a,@r0 040B : D2 0F " " jb6 L040F 040D : 84 18 " " jmp L0418 ; 040F L040F: 040F : FE " " mov a,r6 0410 : F2 16 " " jb7 L0416 0412 : 23 40 "#@" mov a,#040H 0414 : 84 18 " " jmp L0418 ; 0416 L0416: 0416 : 23 01 "# " mov a,#001H 0418 L0418: 0418 : 8A 80 " " orl p2,#080H 041A L041A: 041A : B8 EF " " mov r0,#0EFH 041C : 90 " " movx @r0,a 041D : 94 6C " l" call L046C 041F : FF " " mov a,r7 0420 : 92 2A " *" jb4 L042A 0422 : B8 EC " " mov r0,#0ECH 0424 : 90 " " movx @r0,a 0425 : 8A 20 " " orl p2,#020H 0427 : FF " " mov a,r7 0428 : 72 2F "r/" jb3 L042F 042A L042A: 042A : B8 EC " " mov r0,#0ECH 042C : 80 " " movx a,@r0 042D : 84 32 " 2" jmp L0432 ; 042F L042F: 042F : B8 ED " " mov r0,#0EDH 0431 : 80 " " movx a,@r0 0432 L0432: 0432 : 09 " " in a,p1 0433 : 32 3A "2:" jb1 L043A 0435 : 27 "'" clr a 0436 : 62 "b" mov t,a 0437 : AD " " mov r5,a 0438 : 55 "U" strt t 0439 : 25 "%" en tcnti 043A L043A: 043A : 27 "'" clr a 043B : D7 " " mov psw,a 043C : B8 EE " " mov r0,#0EEH 043E : 80 " " movx a,@r0 043F : B8 EA " " mov r0,#0EAH 0441 : 80 " " movx a,@r0 0442 : 04 22 " "" jmp L0022 0444 L0444: 0444 : 83 " " ret ; 0445 L0445: 0445 : 9A DF " " anl p2,#0DFH 0447 : D5 " " sel rb1 0448 : AA " " mov r2,a 0449 : B9 F4 " " mov r1,#0F4H 044B : 81 " " movx a,@r1 044C : AB " " mov r3,a 044D : 19 " " inc r1 044E : 81 " " movx a,@r1 044F : AC " " mov r4,a 0450 : FA " " mov a,r2 0451 : B8 F7 " " mov r0,#0F7H 0453 : 90 " " movx @r0,a 0454 : 94 6C " l" call L046C 0456 : 8A 20 " " orl p2,#020H 0458 L0458: 0458 : 09 " " in a,p1 0459 : 67 "g" rrc a 045A : E6 58 " X" jnc L0458 045C : 9A DF " " anl p2,#0DFH 045E : 8A 20 " " orl p2,#020H 0460 : B8 F7 " " mov r0,#0F7H 0462 L0462: 0462 : 80 " " movx a,@r0 0463 : 32 62 "2b" jb1 L0462 0465 : FC " " mov a,r4 0466 : 91 " " movx @r1,a 0467 : C9 " " dec r1 0468 : FB " " mov a,r3 0469 : 91 " " movx @r1,a 046A : C5 " " sel rb0 046B : 83 " " ret ; 046C L046C: 046C : B8 EB " " mov r0,#0EBH 046E : 80 " " movx a,@r0 046F : 83 " " ret ; 0470 L0470: 0470 : FF " " mov a,r7 0471 : 52 77 "Rw" jb2 L0477 0473 : BA 01 " " mov r2,#001H 0475 : 84 7E " ~" jmp L047E ; 0477 L0477: 0477 : B8 F2 " " mov r0,#0F2H 0479 : 80 " " movx a,@r0 047A : AA " " mov r2,a 047B : B8 EE " " mov r0,#0EEH 047D : 90 " " movx @r0,a 047E L047E: 047E : B8 F3 " " mov r0,#0F3H 0480 : 80 " " movx a,@r0 0481 : AB " " mov r3,a 0482 : 83 " " ret ; 0483 L0483: 0483 : 1B " " inc r3 0484 : FB " " mov a,r3 0485 : B8 F3 " " mov r0,#0F3H 0487 : 90 " " movx @r0,a 0488 : B8 DA " " mov r0,#0DAH 048A : 90 " " movx @r0,a 048B : FF " " mov a,r7 048C : 53 02 "S " anl a,#002H 048E : B8 EF " " mov r0,#0EFH 0490 : 90 " " movx @r0,a 0491 : 94 6C " l" call L046C 0493 : B8 EC " " mov r0,#0ECH 0495 : 90 " " movx @r0,a 0496 : B8 EA " " mov r0,#0EAH 0498 : 80 " " movx a,@r0 0499 L0499: 0499 : 26 99 "& " jnt0 L0499 049B : 83 " " ret ; 049C L049C: 049C : 94 6C " l" call L046C 049E : B9 40 " @" mov r1,#040H 04A0 : BA 40 " @" mov r2,#040H 04A2 : B8 F0 " " mov r0,#0F0H 04A4 L04A4: 04A4 : 80 " " movx a,@r0 04A5 : 80 " " movx a,@r0 04A6 : A1 " " mov @r1,a 04A7 : 19 " " inc r1 04A8 : EA A4 " " djnz r2,L04A4 04AA : B8 F2 " " mov r0,#0F2H 04AC : 80 " " movx a,@r0 04AD : AA " " mov r2,a 04AE : 83 " " ret ; 04AF L04AF: 04AF : FE " " mov a,r6 04B0 : 77 "w" rr a 04B1 : 53 03 "S " anl a,#003H 04B3 : 03 20 " " add a,#020H 04B5 : A9 " " mov r1,a 04B6 : F1 " " mov a,@r1 04B7 : 83 " " ret ; 04B8 : B8 24 " $" mov r0,#024H 04BA : 60 "`" add a,@r0 04BB : B8 D8 " " mov r0,#0D8H 04BD : 90 " " movx @r0,a 04BE L04BE: 04BE : 86 C2 " " jni L04C2 04C0 : 84 BE " " jmp L04BE ; 04C2 L04C2: 04C2 : 80 " " movx a,@r0 04C3 : 83 " " ret ; 04C4 L04C4: 04C4 : 62 "b" mov t,a 04C5 : 55 "U" strt t 04C6 L04C6: 04C6 : 16 CA " " jtf L04CA 04C8 : 84 C6 " " jmp L04C6 ; 04CA L04CA: 04CA : E8 C6 " " djnz r0,L04C6 04CC : 65 "e" stop tcnt 04CD : 83 " " ret ; 04CE : 00 " " nop 04CF : 00 " " nop 04D0 : 00 " " nop 04D1 : 00 " " nop 04D2 : 00 " " nop 04D3 : 00 " " nop 04D4 : 00 " " nop 04D5 : 00 " " nop 04D6 : 00 " " nop 04D7 : 00 " " nop 04D8 : 00 " " nop 04D9 : 00 " " nop 04DA : 00 " " nop 04DB : 00 " " nop 04DC : 00 " " nop 04DD : 00 " " nop 04DE : 00 " " nop 04DF : 00 " " nop 04E0 : 00 " " nop 04E1 : 00 " " nop 04E2 : 00 " " nop 04E3 : 00 " " nop 04E4 : 00 " " nop 04E5 : 00 " " nop 04E6 : 00 " " nop 04E7 : 00 " " nop 04E8 : 00 " " nop 04E9 : 00 " " nop 04EA : 00 " " nop 04EB : 00 " " nop 04EC : 00 " " nop 04ED : 00 " " nop 04EE : 00 " " nop 04EF : 00 " " nop 04F0 : 00 " " nop 04F1 : 00 " " nop 04F2 : 00 " " nop 04F3 : 00 " " nop 04F4 : 00 " " nop 04F5 : 00 " " nop 04F6 : 00 " " nop 04F7 : 00 " " nop 04F8 : 00 " " nop 04F9 : 00 " " nop 04FA : 00 " " nop 04FB : 00 " " nop 04FC : 00 " " nop 04FD : 00 " " nop 04FE : A3 " " movp a,@a 04FF : 83 " " ret ; 0500 : 08 " " ins a,bus 0501 : 10 " " inc @r0 0502 : 20 " " xch a,@r0 0503 : 04 FE " " jmp L00FE ; 0505 : D5 " " sel rb1 0506 : 77 "w" rr a 0507 : 47 "G" swap a 0508 : 53 03 "S " anl a,#003H 050A : A3 " " movp a,@a 050B : AF " " mov r7,a 050C : A5 " " clr f1 050D : B8 26 " &" mov r0,#026H 050F : B9 1A " " mov r1,#01AH 0511 : BE 04 " " mov r6,#004H 0513 L0513: 0513 : F0 " " mov a,@r0 0514 : A1 " " mov @r1,a 0515 : 18 " " inc r0 0516 : 19 " " inc r1 0517 : EE 13 " " djnz r6,L0513 0519 : BE 07 " " mov r6,#007H 051B L051B: 051B : FA " " mov a,r2 051C : 96 2C " ," jnz L052C 051E : FE " " mov a,r6 051F : 03 08 " " add a,#008H 0521 : AE " " mov r6,a 0522 : 27 "'" clr a 0523 : 7F " " addc a,r7 0524 : AF " " mov r7,a 0525 : 27 "'" clr a 0526 : 2D "-" xch a,r5 0527 : 2C "," xch a,r4 0528 : 2B "+" xch a,r3 0529 : AA " " mov r2,a 052A : A4 1B " " jmp L051B ; 052C L052C: 052C : 97 " " clr c 052D : FA " " mov a,r2 052E : 67 "g" rrc a 052F : AA " " mov r2,a 0530 : FB " " mov a,r3 0531 : 67 "g" rrc a 0532 : AB " " mov r3,a 0533 : FC " " mov a,r4 0534 : 67 "g" rrc a 0535 : AC " " mov r4,a 0536 : FD " " mov a,r5 0537 : 67 "g" rrc a 0538 : AD " " mov r5,a 0539 : E6 4B " K" jnc L054B 053B : FD " " mov a,r5 053C : D3 22 " "" xrl a,#022H 053E : AD " " mov r5,a 053F : FC " " mov a,r4 0540 : D3 02 " " xrl a,#002H 0542 : AC " " mov r4,a 0543 : FB " " mov a,r3 0544 : D3 05 " " xrl a,#005H 0546 : AB " " mov r3,a 0547 : FA " " mov a,r2 0548 : D3 8A " " xrl a,#08AH 054A : AA " " mov r2,a 054B L054B: 054B : FA " " mov a,r2 054C : 96 62 " b" jnz L0562 054E : 76 5B "v[" jf1 L055B 0550 : FC " " mov a,r4 0551 : 4D "M" orl a,r5 0552 : 96 62 " b" jnz L0562 0554 : 23 07 "# " mov a,#007H 0556 : 5B "[" anl a,r3 0557 : 96 62 " b" jnz L0562 0559 : A5 " " clr f1 055A : B5 " " cpl f1 055B L055B: 055B : FE " " mov a,r6 055C : 53 07 "S " anl a,#007H 055E : 96 66 " f" jnz L0566 0560 : A4 6F " o" jmp L056F ; 0562 L0562: 0562 : FE " " mov a,r6 0563 : 4F "O" orl a,r7 0564 : C6 89 " " jz L0589 0566 L0566: 0566 : 23 FF "# " mov a,#0FFH 0568 : 6E "n" add a,r6 0569 : AE " " mov r6,a 056A : F6 2C " ," jc L052C 056C : CF " " dec r7 056D : A4 2C " ," jmp L052C ; 056F L056F: 056F : B9 03 " " mov r1,#003H 0571 : 97 " " clr c 0572 L0572: 0572 : FF " " mov a,r7 0573 : 67 "g" rrc a 0574 : AF " " mov r7,a 0575 : FE " " mov a,r6 0576 : 67 "g" rrc a 0577 : AE " " mov r6,a 0578 : E9 72 " r" djnz r1,L0572 057A : B4 8B " " call L058B 057C : 80 " " movx a,@r0 057D : DB " " xrl a,r3 057E : AB " " mov r3,a 057F : 80 " " movx a,@r0 0580 : DC " " xrl a,r4 0581 : AC " " mov r4,a 0582 : B4 8B " " call L058B 0584 : FB " " mov a,r3 0585 : 90 " " movx @r0,a 0586 : FC " " mov a,r4 0587 : 90 " " movx @r0,a 0588 : 85 " " clr f0 0589 L0589: 0589 : C5 " " sel rb0 058A : 83 " " ret ; 058B L058B: 058B : 94 6C " l" call L046C 058D : B8 F0 " " mov r0,#0F0H 058F : FF " " mov a,r7 0590 : AD " " mov r5,a 0591 : FE " " mov a,r6 0592 : AA " " mov r2,a 0593 L0593: 0593 : 4D "M" orl a,r5 0594 : 96 97 " " jnz L0597 0596 : 83 " " ret ; 0597 L0597: 0597 : 80 " " movx a,@r0 0598 : FA " " mov a,r2 0599 : 03 FF " " add a,#0FFH 059B : AA " " mov r2,a 059C : F6 93 " " jc L0593 059E : CD " " dec r5 059F : A4 93 " " jmp L0593 ; 05A1 : 00 " " nop 05A2 : 00 " " nop 05A3 : 00 " " nop 05A4 : 00 " " nop 05A5 : 00 " " nop 05A6 : 00 " " nop 05A7 : 00 " " nop 05A8 : 00 " " nop 05A9 : 00 " " nop 05AA : 00 " " nop 05AB : 00 " " nop 05AC : 00 " " nop 05AD : 00 " " nop 05AE : 00 " " nop 05AF : 00 " " nop 05B0 : 00 " " nop 05B1 : 00 " " nop 05B2 : 00 " " nop 05B3 : 00 " " nop 05B4 : 00 " " nop 05B5 : 00 " " nop 05B6 : 00 " " nop 05B7 : 00 " " nop 05B8 : 00 " " nop 05B9 : 00 " " nop 05BA : 00 " " nop 05BB : 00 " " nop 05BC : 00 " " nop 05BD : 00 " " nop 05BE : 00 " " nop 05BF : 00 " " nop 05C0 : 00 " " nop 05C1 : 00 " " nop 05C2 : 00 " " nop 05C3 : 00 " " nop 05C4 : 00 " " nop 05C5 : 00 " " nop 05C6 : 00 " " nop 05C7 : 00 " " nop 05C8 : 00 " " nop 05C9 : 00 " " nop 05CA : 00 " " nop 05CB : 00 " " nop 05CC : 00 " " nop 05CD : 00 " " nop 05CE : 00 " " nop 05CF : 00 " " nop 05D0 : 00 " " nop 05D1 : 00 " " nop 05D2 : 00 " " nop 05D3 : 00 " " nop 05D4 : 00 " " nop 05D5 : 00 " " nop 05D6 : 00 " " nop 05D7 : 00 " " nop 05D8 : 00 " " nop 05D9 : 00 " " nop 05DA : 00 " " nop 05DB : 00 " " nop 05DC : 00 " " nop 05DD : 00 " " nop 05DE : 00 " " nop 05DF : 00 " " nop 05E0 : 00 " " nop 05E1 : 00 " " nop 05E2 : 00 " " nop 05E3 : 00 " " nop 05E4 : 00 " " nop 05E5 : 00 " " nop 05E6 : 00 " " nop 05E7 : 00 " " nop 05E8 : 00 " " nop 05E9 : 00 " " nop 05EA : 00 " " nop 05EB : 00 " " nop 05EC : 00 " " nop 05ED : 00 " " nop 05EE : 00 " " nop 05EF : 00 " " nop 05F0 : 00 " " nop 05F1 : 00 " " nop 05F2 : 00 " " nop 05F3 : 00 " " nop 05F4 : 00 " " nop 05F5 : 00 " " nop 05F6 : 00 " " nop 05F7 : 00 " " nop 05F8 : 00 " " nop 05F9 : 00 " " nop 05FA : 00 " " nop 05FB : 00 " " nop 05FC : 00 " " nop 05FD : 00 " " nop 05FE : A3 " " movp a,@a 05FF : 83 " " ret ; 0600 : 72 23 "r#" jb3 L0623 0602 : D0 " " xrl a,@r0 0603 : B8 D8 " " mov r0,#0D8H 0605 : 90 " " movx @r0,a 0606 : 14 0C " " call L000C 0608 : B9 FF " " mov r1,#0FFH 060A : BB FF " " mov r3,#0FFH 060C : BA 05 " " mov r2,#005H 060E : B8 08 " " mov r0,#008H 0610 : B0 21 " !" mov @r0,#021H 0612 : 18 " " inc r0 0613 : B0 06 " " mov @r0,#006H 0615 : 18 " " inc r0 0616 : B0 FE " " mov @r0,#0FEH 0618 : 18 " " inc r0 0619 : 23 06 "# " mov a,#006H 061B L061B: 061B : A0 " " mov @r0,a 061C L061C: 061C : 23 02 "# " mov a,#002H 061E : D7 " " mov psw,a 061F : F9 " " mov a,r1 0620 : 83 " " ret ; 0621 : 6B "k" add a,r3 0622 : F7 " " rlc a 0623 L0623: 0623 : E6 27 " '" jnc L0627 0625 : D3 96 " " xrl a,#096H 0627 L0627: 0627 : AB " " mov r3,a 0628 : E9 1C " " djnz r1,L061C 062A : F0 " " mov a,@r0 062B : 03 FF " " add a,#0FFH 062D : F6 1B " " jc L061B 062F : 27 "'" clr a 0630 : A3 " " movp a,@a 0631 : DB " " xrl a,r3 0632 : 96 C6 " " jnz L06C6 0634 : B9 01 " " mov r1,#001H 0636 L0636: 0636 : B8 04 " " mov r0,#004H 0638 : F9 " " mov a,r1 0639 : AB " " mov r3,a 063A L063A: 063A : FB " " mov a,r3 063B : 97 " " clr c 063C : 96 3F " ?" jnz L063F 063E : A7 " " cpl c 063F L063F: 063F : F7 " " rlc a 0640 : AB " " mov r3,a 0641 : A0 " " mov @r0,a 0642 : 18 " " inc r0 0643 : F8 " " mov a,r0 0644 : 37 "7" cpl a 0645 : F2 3A " :" jb7 L063A 0647 : B8 04 " " mov r0,#004H 0649 : F9 " " mov a,r1 064A : AB " " mov r3,a 064B L064B: 064B : FB " " mov a,r3 064C : 97 " " clr c 064D : 96 50 " P" jnz L0650 064F : A7 " " cpl c 0650 L0650: 0650 : F7 " " rlc a 0651 : AB " " mov r3,a 0652 : D0 " " xrl a,@r0 0653 : 96 C6 " " jnz L06C6 0655 : 18 " " inc r0 0656 : F8 " " mov a,r0 0657 : 37 "7" cpl a 0658 : F2 4B " K" jb7 L064B 065A : F9 " " mov a,r1 065B : C6 67 " g" jz L0667 065D : 97 " " clr c 065E : F7 " " rlc a 065F : A9 " " mov r1,a 0660 : C4 36 " 6" jmp L0636 ; 0662 : B5 " " cpl f1 0663 : 17 " " inc a 0664 : 89 4A " J" orl p1,#04AH 0666 : 00 " " nop 0667 L0667: 0667 : CA " " dec r2 0668 : 23 A5 "# " mov a,#0A5H 066A : B8 EF " " mov r0,#0EFH 066C : 90 " " movx @r0,a 066D : 23 C0 "# " mov a,#0C0H 066F : B8 F6 " " mov r0,#0F6H 0671 : 90 " " movx @r0,a 0672 : B8 E9 " " mov r0,#0E9H 0674 : 90 " " movx @r0,a 0675 : C8 " " dec r0 0676 : B9 62 " b" mov r1,#062H 0678 : BB 05 " " mov r3,#005H 067A L067A: 067A : F9 " " mov a,r1 067B : A3 " " movp a,@a 067C : AC " " mov r4,a 067D : 80 " " movx a,@r0 067E : DC " " xrl a,r4 067F : 96 C6 " " jnz L06C6 0681 : 19 " " inc r1 0682 : EB 7A " z" djnz r3,L067A 0684 : B8 EF " " mov r0,#0EFH 0686 : 80 " " movx a,@r0 0687 : D3 A5 " " xrl a,#0A5H 0689 : 96 C6 " " jnz L06C6 068B : CA " " dec r2 068C : BC 01 " " mov r4,#001H 068E : B9 F0 " " mov r1,#0F0H 0690 L0690: 0690 : FC " " mov a,r4 0691 : AB " " mov r3,a 0692 : 94 6C " l" call L046C 0694 L0694: 0694 : D4 CF " " call L06CF 0696 : 91 " " movx @r1,a 0697 : 09 " " in a,p1 0698 : 37 "7" cpl a 0699 : 72 94 "r " jb3 L0694 069B : FC " " mov a,r4 069C : AB " " mov r3,a 069D : 94 6C " l" call L046C 069F L069F: 069F : D4 CF " " call L06CF 06A1 : 81 " " movx a,@r1 06A2 : DB " " xrl a,r3 06A3 : 96 C6 " " jnz L06C6 06A5 : 09 " " in a,p1 06A6 : 37 "7" cpl a 06A7 : 72 9F "r " jb3 L069F 06A9 : FC " " mov a,r4 06AA : C6 B1 " " jz L06B1 06AC : 97 " " clr c 06AD : F7 " " rlc a 06AE : AC " " mov r4,a 06AF : C4 90 " " jmp L0690 ; 06B1 L06B1: 06B1 : 94 6C " l" call L046C 06B3 L06B3: 06B3 : 27 "'" clr a 06B4 : 91 " " movx @r1,a 06B5 : 09 " " in a,p1 06B6 : 37 "7" cpl a 06B7 : 72 B3 "r " jb3 L06B3 06B9 : B8 F3 " " mov r0,#0F3H 06BB : D4 D7 " " call L06D7 06BD : 96 C6 " " jnz L06C6 06BF : B8 D9 " " mov r0,#0D9H 06C1 : D4 D7 " " call L06D7 06C3 : 96 C6 " " jnz L06C6 06C5 : CA " " dec r2 06C6 L06C6: 06C6 : FA " " mov a,r2 06C7 : B8 EF " " mov r0,#0EFH 06C9 : 90 " " movx @r0,a 06CA : 23 1F "# " mov a,#01FH 06CC : 3A ":" outl p2,a 06CD : 24 6A "$j" jmp L016A ; 06CF L06CF: 06CF : FB " " mov a,r3 06D0 : 97 " " clr c 06D1 : 96 D4 " " jnz L06D4 06D3 : A7 " " cpl c 06D4 L06D4: 06D4 : F7 " " rlc a 06D5 : AB " " mov r3,a 06D6 : 83 " " ret ; 06D7 L06D7: 06D7 : CA " " dec r2 06D8 : 23 A5 "# " mov a,#0A5H 06DA : 90 " " movx @r0,a 06DB : 18 " " inc r0 06DC : 37 "7" cpl a 06DD : 90 " " movx @r0,a 06DE : C8 " " dec r0 06DF : 80 " " movx a,@r0 06E0 : AB " " mov r3,a 06E1 : 18 " " inc r0 06E2 : 80 " " movx a,@r0 06E3 : 6B "k" add a,r3 06E4 : 17 " " inc a 06E5 : 83 " " ret ; 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 : A3 " " movp a,@a 06FF : 83 " " ret ; 0700 : 00 " " nop 0701 : 00 " " nop 0702 : 00 " " nop 0703 : 00 " " nop 0704 : 00 " " nop 0705 : 00 " " nop 0706 : 00 " " nop 0707 : 00 " " nop 0708 : 00 " " nop 0709 : 00 " " nop 070A : 00 " " nop 070B : 00 " " nop 070C : 00 " " nop 070D : 00 " " nop 070E : 00 " " nop 070F : 00 " " nop 0710 : 00 " " nop 0711 : 00 " " nop 0712 : 00 " " nop 0713 : 00 " " nop 0714 : 00 " " nop 0715 : 00 " " nop 0716 : 00 " " nop 0717 : 00 " " nop 0718 : 00 " " nop 0719 : 00 " " nop 071A : 00 " " nop 071B : 00 " " nop 071C : 00 " " nop 071D : 00 " " nop 071E : 00 " " nop 071F : 00 " " nop 0720 : 00 " " nop 0721 : 00 " " nop 0722 : 00 " " nop 0723 : 00 " " nop 0724 : 00 " " nop 0725 : 00 " " nop 0726 : 00 " " nop 0727 : 00 " " nop 0728 : 00 " " nop 0729 : 00 " " nop 072A : 00 " " nop 072B : 00 " " nop 072C : 00 " " nop 072D : 00 " " nop 072E : 00 " " nop 072F : 00 " " nop 0730 : 00 " " nop 0731 : 00 " " nop 0732 : 00 " " nop 0733 : 00 " " nop 0734 : 00 " " nop 0735 : 00 " " nop 0736 : 00 " " nop 0737 : 00 " " nop 0738 : 00 " " nop 0739 : 00 " " nop 073A : 00 " " nop 073B : 00 " " nop 073C : 00 " " nop 073D : 00 " " nop 073E : 00 " " nop 073F : 00 " " nop 0740 : 00 " " nop 0741 : 00 " " nop 0742 : 00 " " nop 0743 : 00 " " nop 0744 : 00 " " nop 0745 : 00 " " nop 0746 : 00 " " nop 0747 : 00 " " nop 0748 : 00 " " nop 0749 : 00 " " nop 074A : 00 " " nop 074B : 00 " " nop 074C : 00 " " nop 074D : 00 " " nop 074E : 00 " " nop 074F : 00 " " nop 0750 : 00 " " nop 0751 : 00 " " nop 0752 : 00 " " nop 0753 : 00 " " nop 0754 : 00 " " nop 0755 : 00 " " nop 0756 : 00 " " nop 0757 : 00 " " nop 0758 : 00 " " nop 0759 : 00 " " nop 075A : 00 " " nop 075B : 00 " " nop 075C : 00 " " nop 075D : 00 " " nop 075E : 00 " " nop 075F : 00 " " nop 0760 : 00 " " nop 0761 : 00 " " nop 0762 : 00 " " nop 0763 : 00 " " nop 0764 : 00 " " nop 0765 : 00 " " nop 0766 : 00 " " nop 0767 : 00 " " nop 0768 : 00 " " nop 0769 : 00 " " nop 076A : 00 " " nop 076B : 00 " " nop 076C : 00 " " nop 076D : 00 " " nop 076E : 00 " " nop 076F : 00 " " nop 0770 : 00 " " nop 0771 : 00 " " nop 0772 : 00 " " nop 0773 : 00 " " nop 0774 : 00 " " nop 0775 : 00 " " nop 0776 : 00 " " nop 0777 : 00 " " nop 0778 : 00 " " nop 0779 : 00 " " nop 077A : 00 " " nop 077B : 00 " " nop 077C : 00 " " nop 077D : 00 " " nop 077E : 00 " " nop 077F : 00 " " nop 0780 : 00 " " nop 0781 : 00 " " nop 0782 : 00 " " nop 0783 : 00 " " nop 0784 : 00 " " nop 0785 : 00 " " nop 0786 : 00 " " nop 0787 : 00 " " nop 0788 : 00 " " nop 0789 : 00 " " nop 078A : 00 " " nop 078B : 00 " " nop 078C : 00 " " nop 078D : 00 " " nop 078E : 00 " " nop 078F : 00 " " nop 0790 : 00 " " nop 0791 : 00 " " nop 0792 : 00 " " nop 0793 : 00 " " nop 0794 : 00 " " nop 0795 : 00 " " nop 0796 : 00 " " nop 0797 : 00 " " nop 0798 : 00 " " nop 0799 : 00 " " nop 079A : 00 " " nop 079B : 00 " " nop 079C : 00 " " nop 079D : 00 " " nop 079E : 00 " " nop 079F : 00 " " nop 07A0 : 00 " " nop 07A1 : 00 " " nop 07A2 : 00 " " nop 07A3 : 00 " " nop 07A4 : 00 " " nop 07A5 : 00 " " nop 07A6 : 00 " " nop 07A7 : 00 " " nop 07A8 : 00 " " nop 07A9 : 00 " " nop 07AA : 00 " " nop 07AB : 00 " " nop 07AC : 00 " " nop 07AD : 00 " " nop 07AE : 00 " " nop 07AF : 00 " " nop 07B0 : 00 " " nop 07B1 : 00 " " nop 07B2 : 00 " " nop 07B3 : 00 " " nop 07B4 : 00 " " nop 07B5 : 00 " " nop 07B6 : 00 " " nop 07B7 : 00 " " nop 07B8 : 00 " " nop 07B9 : 00 " " nop 07BA : 00 " " nop 07BB : 00 " " nop 07BC : 00 " " nop 07BD : 00 " " nop 07BE : 00 " " nop 07BF : 00 " " nop 07C0 : 00 " " nop 07C1 : 00 " " nop 07C2 : 00 " " nop 07C3 : 00 " " nop 07C4 : 00 " " nop 07C5 : 00 " " nop 07C6 : 00 " " nop 07C7 : 00 " " nop 07C8 : 00 " " nop 07C9 : 00 " " nop 07CA : 00 " " nop 07CB : 00 " " nop 07CC : 00 " " nop 07CD : 00 " " nop 07CE : 00 " " nop 07CF : 00 " " nop 07D0 : 00 " " nop 07D1 : 00 " " nop 07D2 : 00 " " nop 07D3 : 00 " " nop 07D4 : 00 " " nop 07D5 : 00 " " nop 07D6 : 00 " " nop 07D7 : 00 " " nop 07D8 : 00 " " nop 07D9 : 00 " " nop 07DA : 00 " " nop 07DB : 00 " " nop 07DC : 00 " " nop 07DD : 00 " " nop 07DE : 00 " " nop 07DF : 00 " " nop 07E0 : 00 " " nop 07E1 : 00 " " nop 07E2 : 00 " " nop 07E3 : 00 " " nop 07E4 : 00 " " nop 07E5 : 00 " " nop 07E6 : 00 " " nop 07E7 : 00 " " nop 07E8 : 00 " " nop 07E9 : 00 " " nop 07EA : 00 " " nop 07EB : 00 " " nop 07EC : 00 " " nop 07ED : 00 " " nop 07EE : 00 " " nop 07EF : 00 " " nop 07F0 : 00 " " nop 07F1 : 00 " " nop 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 : 00 " " nop 07FF : 00 " " nop ;-------------------------------------------------------------- Symbol table ============ Value Type Name ----- ---- ---- 0000 Code L0000 0009 Code L0009 000C Code L000C 000F Code L000F 0022 Code L0022 0042 Code L0042 0045 Code L0045 0047 Code L0047 0056 Code L0056 005C Code L005C 0078 Code L0078 007C Code L007C 007E Code L007E 0080 Code L0080 0086 Code L0086 008B Code L008B 00AA Code L00AA 00AF Code L00AF 00B5 Code L00B5 00C0 Code L00C0 00C6 Code L00C6 00D1 Code L00D1 00D3 Code L00D3 00D7 Code L00D7 00DD Code L00DD 00DF Code L00DF 00FE Code L00FE 0104 Code L0104 0115 Code L0115 012B Code L012B 013B Code L013B 0154 Code L0154 0159 Code L0159 0161 Code L0161 0169 Code L0169 016A Code L016A 016E Code L016E 0170 Code L0170 0178 Code L0178 0210 Code L0210 0214 Code L0214 0220 Code L0220 0227 Code L0227 0237 Code L0237 0238 Code L0238 023A Code L023A 0245 Code L0245 0247 Code L0247 0269 Code L0269 026B Code L026B 0272 Code L0272 0276 Code L0276 027C Code L027C 0280 Code L0280 0284 Code L0284 028C Code L028C 0290 Code L0290 0291 Code L0291 0299 Code L0299 029B Code L029B 029F Code L029F 02BA Code L02BA 02C5 Code L02C5 02C6 Code L02C6 02C8 Code L02C8 02CC Code L02CC 02D2 Code L02D2 02D4 Code L02D4 02DC Code L02DC 0308 Code L0308 031A Code L031A 0320 Code L0320 0325 Code L0325 0328 Code L0328 032C Code L032C 032E Code L032E 0333 Code L0333 0338 Code L0338 033B Code L033B 0344 Code L0344 034B Code L034B 034F Code L034F 0353 Code L0353 0357 Code L0357 035C Code L035C 0361 Code L0361 0365 Code L0365 0368 Code L0368 0369 Code L0369 0370 Code L0370 0379 Code L0379 0380 Code L0380 0387 Code L0387 038A Code L038A 038D Code L038D 0390 Code L0390 0397 Code L0397 039F Code L039F 03A6 Code L03A6 03AB Code L03AB 03B4 Code L03B4 03B8 Code L03B8 03C2 Code L03C2 03C6 Code L03C6 03CC Code L03CC 03D2 Code L03D2 03D4 Code L03D4 03D9 Code L03D9 03E2 Code L03E2 03E6 Code L03E6 0400 Code L0400 040F Code L040F 0416 Code L0416 0418 Code L0418 041A Code L041A 042A Code L042A 042F Code L042F 0432 Code L0432 043A Code L043A 0444 Code L0444 0445 Code L0445 0458 Code L0458 0462 Code L0462 046C Code L046C 0470 Code L0470 0477 Code L0477 047E Code L047E 0483 Code L0483 0499 Code L0499 049C Code L049C 04A4 Code L04A4 04AF Code L04AF 04BE Code L04BE 04C2 Code L04C2 04C4 Code L04C4 04C6 Code L04C6 04CA Code L04CA 0504 Code L0504 0513 Code L0513 051B Code L051B 052C Code L052C 054B Code L054B 055B Code L055B 0562 Code L0562 0566 Code L0566 056F Code L056F 0572 Code L0572 0589 Code L0589 058B Code L058B 0593 Code L0593 0597 Code L0597 0601 Code L0601 061B Code L061B 061C Code L061C 0623 Code L0623 0627 Code L0627 0636 Code L0636 063A Code L063A 063F Code L063F 064B Code L064B 0650 Code L0650 0667 Code L0667 067A Code L067A 0690 Code L0690 0694 Code L0694 069F Code L069F 06B1 Code L06B1 06B3 Code L06B3 06C6 Code L06C6 06CF Code L06CF 06D4 Code L06D4 06D7 Code L06D7 Number of symbols: 172 ;--------------------------------------------------------------