; ; Disassembled by: ; DASMx object code disassembler ; (c) Copyright 1996-2003 Conquest Consultants ; Version 1.40 (Oct 18 2003) ; ; File: G:\5218\8493406.bin ; ; Size: 2048 bytes ; Checksum: 914D ; CRC-32: 95134CCE ; ; Date: Sat Sep 28 03:43:19 2024 ; ; CPU: Intel 8048 (MCS-48 family) ; ; ; org 00000H ; 0000 L0000: 0000 : 00 " " nop 0001 L0001: 0001 : E4 D3 " " jmp L07D3 ; 0003 : D5 " " sel rb1 0004 L0004: 0004 : FF " " mov a,r7 0005 L0005: 0005 : 04 D9 " " jmp L00D9 ; 0007 : D5 " " sel rb1 0008 : AF " " mov r7,a 0009 : 16 0B " " jtf L000B 000B L000B: 000B : 08 " " ins a,bus 000C : 16 DF " " jtf L00DF 000E : F2 0B " " jb7 L000B 0010 L0010: 0010 : 0A " " in a,p2 0011 : D9 " " xrl a,r1 0012 : 3A ":" outl p2,a 0013 : 23 60 "#`" mov a,#060H 0015 : D9 " " xrl a,r1 0016 : A9 " " mov r1,a 0017 : FE " " mov a,r6 0018 : E3 " " movp3 a,@a 0019 : 62 "b" mov t,a 001A : 8A 80 " " orl p2,#080H 001C L001C: 001C : EB 1F " " djnz r3,L001F 001E : CA " " dec r2 001F L001F: 001F : FC " " mov a,r4 0020 : 92 B0 " " jb4 L00B0 0022 : FA " " mov a,r2 0023 : 17 " " inc a 0024 : 96 76 " v" jnz L0076 0026 : 94 32 " 2" call L0432 0028 : B8 30 " 0" mov r0,#030H 002A : F0 " " mov a,@r0 002B : F2 2F " /" jb7 L002F 002D : 24 02 "$ " jmp L0102 ; 002F L002F: 002F : FC " " mov a,r4 0030 : C6 40 " @" jz L0040 0032 : 23 08 "# " mov a,#008H 0034 : 74 AB "t " call L03AB 0036 : 23 40 "#@" mov a,#040H 0038 : 74 A4 "t " call L03A4 003A : 74 94 "t " call L0394 003C : 74 72 "tr" call L0372 003E : 04 74 " t" jmp L0074 ; 0040 L0040: 0040 : B8 02 " " mov r0,#002H 0042 L0042: 0042 : 16 46 " F" jtf L0046 0044 : 04 42 " B" jmp L0042 ; 0046 L0046: 0046 : E8 42 " B" djnz r0,L0042 0048 : B8 33 " 3" mov r0,#033H 004A : F0 " " mov a,@r0 004B : 52 55 "RU" jb2 L0055 004D : 43 01 "C " orl a,#001H 004F : A0 " " mov @r0,a 0050 : 15 " " dis i 0051 : 35 "5" dis tcnti 0052 : 95 " " cpl f0 0053 : 04 74 " t" jmp L0074 ; 0055 L0055: 0055 : 53 FB "S " anl a,#0FBH 0057 : A0 " " mov @r0,a 0058 : BA 00 " " mov r2,#000H 005A : BB 0F " " mov r3,#00FH 005C : BD 01 " " mov r5,#001H 005E : 23 60 "#`" mov a,#060H 0060 : D9 " " xrl a,r1 0061 : A9 " " mov r1,a 0062 : 09 " " in a,p1 0063 : 99 BF " " anl p1,#0BFH 0065 : D2 69 " i" jb6 L0069 0067 : 89 40 " @" orl p1,#040H 0069 L0069: 0069 : B8 33 " 3" mov r0,#033H 006B : 23 10 "# " mov a,#010H 006D : D0 " " xrl a,@r0 006E : 53 B5 "S " anl a,#0B5H 0070 : A0 " " mov @r0,a 0071 : A5 " " clr f1 0072 : 54 BC "T " call L02BC 0074 L0074: 0074 : 04 AF " " jmp L00AF ; 0076 L0076: 0076 : B8 30 " 0" mov r0,#030H 0078 : F0 " " mov a,@r0 0079 : DC " " xrl a,r4 007A : 96 7E " ~" jnz L007E 007C : 76 82 "v " jf1 L0082 007E L007E: 007E : 94 A5 " " call L04A5 0080 : 04 92 " " jmp L0092 ; 0082 L0082: 0082 : B8 31 " 1" mov r0,#031H 0084 : F0 " " mov a,@r0 0085 : DB " " xrl a,r3 0086 : 96 91 " " jnz L0091 0088 : 18 " " inc r0 0089 L0089: 0089 : 42 "B" mov a,t 008A : 60 "`" add a,@r0 008B : E6 89 " " jnc L0089 008D : 99 DF " " anl p1,#0DFH 008F : FF " " mov a,r7 0090 : 93 " " retr ; 0091 L0091: 0091 : 95 " " cpl f0 0092 L0092: 0092 : B8 33 " 3" mov r0,#033H 0094 : F0 " " mov a,@r0 0095 : 37 "7" cpl a 0096 : F2 9F " " jb7 L009F 0098 : D3 7F " " xrl a,#07FH 009A : A0 " " mov @r0,a 009B : 94 57 " W" call L0457 009D : 89 20 " " orl p1,#020H 009F L009F: 009F : FB " " mov a,r3 00A0 : D3 08 " " xrl a,#008H 00A2 : 96 A6 " " jnz L00A6 00A4 : 94 57 " W" call L0457 00A6 L00A6: 00A6 : 9A FB " " anl p2,#0FBH 00A8 : FC " " mov a,r4 00A9 : 03 F8 " " add a,#0F8H 00AB : E6 AF " " jnc L00AF 00AD : 8A 04 " " orl p2,#004H 00AF L00AF: 00AF : FC " " mov a,r4 00B0 L00B0: 00B0 : B6 D3 " " jf0 L00D3 00B2 : 03 22 " "" add a,#022H 00B4 : E3 " " movp3 a,@a 00B5 : AE " " mov r6,a 00B6 : FA " " mov a,r2 00B7 : 96 C6 " " jnz L00C6 00B9 : FB " " mov a,r3 00BA : C6 C6 " " jz L00C6 00BC : 6E "n" add a,r6 00BD : F6 C2 " " jc L00C2 00BF : CC " " dec r4 00C0 : A5 " " clr f1 00C1 : B5 " " cpl f1 00C2 L00C2: 00C2 : 96 C6 " " jnz L00C6 00C4 : A5 " " clr f1 00C5 : B5 " " cpl f1 00C6 L00C6: 00C6 : 76 D3 "v " jf1 L00D3 00C8 : FC " " mov a,r4 00C9 : 03 E1 " " add a,#0E1H 00CB : C6 D3 " " jz L00D3 00CD : FD " " mov a,r5 00CE : 6E "n" add a,r6 00CF : 96 D2 " " jnz L00D2 00D1 : 1C " " inc r4 00D2 L00D2: 00D2 : 1D " " inc r5 00D3 L00D3: 00D3 : FC " " mov a,r4 00D4 : 03 02 " " add a,#002H 00D6 : AE " " mov r6,a 00D7 : FF " " mov a,r7 00D8 : 93 " " retr ; 00D9 L00D9: 00D9 : B8 33 " 3" mov r0,#033H 00DB : F0 " " mov a,@r0 00DC : 37 "7" cpl a 00DD : B2 10 " " jb5 L0010 00DF L00DF: 00DF : 64 B0 "d " jmp L03B0 ; 00E1 : FF " " mov a,r7 00E2 : FF " " mov a,r7 00E3 : FF " " mov a,r7 00E4 : FF " " mov a,r7 00E5 : FF " " mov a,r7 00E6 : FF " " mov a,r7 00E7 : FF " " mov a,r7 00E8 : FF " " mov a,r7 00E9 : FF " " mov a,r7 00EA : FF " " mov a,r7 00EB : FF " " mov a,r7 00EC : FF " " mov a,r7 00ED : FF " " mov a,r7 00EE : FF " " mov a,r7 00EF : FF " " mov a,r7 00F0 : FF " " mov a,r7 00F1 : FF " " mov a,r7 00F2 : FF " " mov a,r7 00F3 : FF " " mov a,r7 00F4 : FF " " mov a,r7 00F5 : FF " " mov a,r7 00F6 : FF " " mov a,r7 00F7 : FF " " mov a,r7 00F8 : FF " " mov a,r7 00F9 : FF " " mov a,r7 00FA : FF " " mov a,r7 00FB : FF " " mov a,r7 00FC : FF " " mov a,r7 00FD : FF " " mov a,r7 00FE : FF " " mov a,r7 00FF : FF " " mov a,r7 0100 : 04 00 " " jmp L0000 ; 0102 L0102: 0102 : 94 BF " " call L04BF 0104 : D2 10 " " jb6 L0110 0106 : 23 02 "# " mov a,#002H 0108 : 74 A4 "t " call L03A4 010A : 74 94 "t " call L0394 010C : 74 72 "tr" call L0372 010E : 24 69 "$i" jmp L0169 ; 0110 L0110: 0110 : 09 " " in a,p1 0111 : 37 "7" cpl a 0112 : B2 22 " "" jb5 L0122 0114 : 23 08 "# " mov a,#008H 0116 : 74 AB "t " call L03AB 0118 : 23 40 "#@" mov a,#040H 011A : 74 A4 "t " call L03A4 011C : 74 94 "t " call L0394 011E : 74 72 "tr" call L0372 0120 : 24 69 "$i" jmp L0169 ; 0122 L0122: 0122 : B8 34 " 4" mov r0,#034H 0124 : F0 " " mov a,@r0 0125 : 37 "7" cpl a 0126 : B2 2C " ," jb5 L012C 0128 : 74 72 "tr" call L0372 012A : 24 69 "$i" jmp L0169 ; 012C L012C: 012C : B8 39 " 9" mov r0,#039H 012E : F0 " " mov a,@r0 012F : 12 3B " ;" jb0 L013B 0131 : 74 72 "tr" call L0372 0133 : F6 39 " 9" jc L0139 0135 : 23 10 "# " mov a,#010H 0137 : 74 9D "t " call L039D 0139 L0139: 0139 : 24 69 "$i" jmp L0169 ; 013B L013B: 013B : 34 6B "4k" call L016B 013D L013D: 013D : 42 "B" mov a,t 013E : 03 10 " " add a,#010H 0140 : E6 3D " =" jnc L013D 0142 : 94 BF " " call L04BF 0144 : 52 50 "RP" jb2 L0150 0146 : 23 01 "# " mov a,#001H 0148 : 74 AB "t " call L03AB 014A : 74 94 "t " call L0394 014C : 74 72 "tr" call L0372 014E : 24 69 "$i" jmp L0169 ; 0150 L0150: 0150 : B6 60 " `" jf0 L0160 0152 : 23 0D "# " mov a,#00DH 0154 : 74 AB "t " call L03AB 0156 : 23 40 "#@" mov a,#040H 0158 : 74 A4 "t " call L03A4 015A : 74 94 "t " call L0394 015C : 74 72 "tr" call L0372 015E : 24 69 "$i" jmp L0169 ; 0160 L0160: 0160 : B8 33 " 3" mov r0,#033H 0162 : 23 80 "# " mov a,#080H 0164 : 40 "@" orl a,@r0 0165 : A0 " " mov @r0,a 0166 : 85 " " clr f0 0167 : 94 A5 " " call L04A5 0169 L0169: 0169 : 04 74 " t" jmp L0074 ; 016B L016B: 016B : B8 3D " =" mov r0,#03DH 016D : F0 " " mov a,@r0 016E : AB " " mov r3,a 016F : C8 " " dec r0 0170 : F0 " " mov a,@r0 0171 : AA " " mov r2,a 0172 : C8 " " dec r0 0173 : F0 " " mov a,@r0 0174 : B8 30 " 0" mov r0,#030H 0176 : 07 " " dec a 0177 : A0 " " mov @r0,a 0178 : FA " " mov a,r2 0179 : 53 0F "S " anl a,#00FH 017B : 2A "*" xch a,r2 017C : B8 33 " 3" mov r0,#033H 017E : D0 " " xrl a,@r0 017F : 92 82 " " jb4 L0182 0181 : 95 " " cpl f0 0182 L0182: 0182 : D0 " " xrl a,@r0 0183 : 53 60 "S`" anl a,#060H 0185 : B8 38 " 8" mov r0,#038H 0187 : 20 " " xch a,@r0 0188 : 53 9F "S " anl a,#09FH 018A : 40 "@" orl a,@r0 018B : A0 " " mov @r0,a 018C : 23 42 "#B" mov a,#042H 018E : B8 30 " 0" mov r0,#030H 0190 : 60 "`" add a,@r0 0191 : 18 " " inc r0 0192 : A0 " " mov @r0,a 0193 : E3 " " movp3 a,@a 0194 : 20 " " xch a,@r0 0195 : 18 " " inc r0 0196 : 03 10 " " add a,#010H 0198 : E3 " " movp3 a,@a 0199 : A0 " " mov @r0,a 019A : A5 " " clr f1 019B : FC " " mov a,r4 019C : 17 " " inc a 019D : AD " " mov r5,a 019E : B8 34 " 4" mov r0,#034H 01A0 : F0 " " mov a,@r0 01A1 : 53 EF "S " anl a,#0EFH 01A3 : A0 " " mov @r0,a 01A4 : B8 39 " 9" mov r0,#039H 01A6 : F0 " " mov a,@r0 01A7 : 53 F6 "S " anl a,#0F6H 01A9 : 43 02 "C " orl a,#002H 01AB : A0 " " mov @r0,a 01AC : B8 33 " 3" mov r0,#033H 01AE : 23 B5 "# " mov a,#0B5H 01B0 : 50 "P" anl a,@r0 01B1 : A0 " " mov @r0,a 01B2 : B8 30 " 0" mov r0,#030H 01B4 : 23 0F "# " mov a,#00FH 01B6 : D0 " " xrl a,@r0 01B7 : 96 C1 " " jnz L01C1 01B9 : B0 FF " " mov @r0,#0FFH 01BB : B8 33 " 3" mov r0,#033H 01BD : 23 08 "# " mov a,#008H 01BF : 40 "@" orl a,@r0 01C0 : A0 " " mov @r0,a 01C1 L01C1: 01C1 : FA " " mov a,r2 01C2 : 96 D6 " " jnz L01D6 01C4 : FB " " mov a,r3 01C5 : 03 A0 " " add a,#0A0H 01C7 : F6 D6 " " jc L01D6 01C9 : B8 30 " 0" mov r0,#030H 01CB : F0 " " mov a,@r0 01CC : F2 D6 " " jb7 L01D6 01CE : B8 33 " 3" mov r0,#033H 01D0 : F0 " " mov a,@r0 01D1 : 43 02 "C " orl a,#002H 01D3 : A0 " " mov @r0,a 01D4 : 24 D6 "$ " jmp L01D6 ; 01D6 L01D6: 01D6 : B8 33 " 3" mov r0,#033H 01D8 : F0 " " mov a,@r0 01D9 : 37 "7" cpl a 01DA : B2 E0 " " jb5 L01E0 01DC : 37 "7" cpl a 01DD : 43 02 "C " orl a,#002H 01DF : A0 " " mov @r0,a 01E0 L01E0: 01E0 : FA " " mov a,r2 01E1 : 96 EE " " jnz L01EE 01E3 : FB " " mov a,r3 01E4 : 03 FC " " add a,#0FCH 01E6 : F6 EE " " jc L01EE 01E8 : B8 33 " 3" mov r0,#033H 01EA : F0 " " mov a,@r0 01EB : 43 40 "C@" orl a,#040H 01ED : A0 " " mov @r0,a 01EE L01EE: 01EE : FB " " mov a,r3 01EF : 96 F2 " " jnz L01F2 01F1 : CA " " dec r2 01F2 L01F2: 01F2 : 83 " " ret ; 01F3 : FF " " mov a,r7 01F4 : FF " " mov a,r7 01F5 : FF " " mov a,r7 01F6 : FF " " mov a,r7 01F7 : FF " " mov a,r7 01F8 : FF " " mov a,r7 01F9 : FF " " mov a,r7 01FA : FF " " mov a,r7 01FB : FF " " mov a,r7 01FC : FF " " mov a,r7 01FD : FF " " mov a,r7 01FE : FF " " mov a,r7 01FF : FF " " mov a,r7 0200 : 04 00 " " jmp L0000 ; 0202 L0202: 0202 : F4 05 " " call L0705 0204 : 94 BF " " call L04BF 0206 : B8 3A " :" mov r0,#03AH 0208 : 92 0F " " jb4 L020F 020A : F0 " " mov a,@r0 020B : 53 F7 "S " anl a,#0F7H 020D : 44 12 "D " jmp L0212 ; 020F L020F: 020F : F0 " " mov a,@r0 0210 : 43 08 "C " orl a,#008H 0212 L0212: 0212 : A0 " " mov @r0,a 0213 : B8 33 " 3" mov r0,#033H 0215 : F0 " " mov a,@r0 0216 : 37 "7" cpl a 0217 : 12 B6 " " jb0 L02B6 0219 : 55 "U" strt t 021A : 16 1C " " jtf L021C 021C L021C: 021C : 09 " " in a,p1 021D : 37 "7" cpl a 021E : B2 4D " M" jb5 L024D 0220 : B8 33 " 3" mov r0,#033H 0222 : F0 " " mov a,@r0 0223 : 37 "7" cpl a 0224 : 72 2A "r*" jb3 L022A 0226 : 23 2D "#-" mov a,#02DH 0228 : 44 2E "D." jmp L022E ; 022A L022A: 022A : D2 35 " 5" jb6 L0235 022C : 23 7C "#|" mov a,#07CH 022E L022E: 022E : 62 "b" mov t,a 022F L022F: 022F : F4 05 " " call L0705 0231 : 16 35 " 5" jtf L0235 0233 : 44 2F "D/" jmp L022F ; 0235 L0235: 0235 : F4 05 " " call L0705 0237 : 94 BF " " call L04BF 0239 : 37 "7" cpl a 023A : D2 35 " 5" jb6 L0235 023C : D5 " " sel rb1 023D : 94 57 " W" call L0457 023F : C5 " " sel rb0 0240 : 99 DF " " anl p1,#0DFH 0242 : 23 BC "# " mov a,#0BCH 0244 : 62 "b" mov t,a 0245 : 16 47 " G" jtf L0247 0247 L0247: 0247 : F4 05 " " call L0705 0249 : 16 4D " M" jtf L024D 024B : 44 47 "DG" jmp L0247 ; 024D L024D: 024D : B8 34 " 4" mov r0,#034H 024F : 08 " " ins a,bus 0250 : 52 57 "RW" jb2 L0257 0252 : F0 " " mov a,@r0 0253 : B2 57 " W" jb5 L0257 0255 : 74 94 "t " call L0394 0257 L0257: 0257 : F0 " " mov a,@r0 0258 : 37 "7" cpl a 0259 : 12 5D " ]" jb0 L025D 025B : 99 EF " " anl p1,#0EFH 025D L025D: 025D : F0 " " mov a,@r0 025E : B2 B6 " " jb5 L02B6 0260 : B8 39 " 9" mov r0,#039H 0262 : F0 " " mov a,@r0 0263 : 12 87 " " jb0 L0287 0265 : 8A 08 " " orl p2,#008H 0267 : 23 FD "# " mov a,#0FDH 0269 : 50 "P" anl a,@r0 026A : A0 " " mov @r0,a 026B : B8 34 " 4" mov r0,#034H 026D : 08 " " ins a,bus 026E : D2 7D " }" jb6 L027D 0270 : F0 " " mov a,@r0 0271 : 37 "7" cpl a 0272 : 92 7B " {" jb4 L027B 0274 : D3 EF " " xrl a,#0EFH 0276 : 43 01 "C " orl a,#001H 0278 : A0 " " mov @r0,a 0279 : 99 EF " " anl p1,#0EFH 027B L027B: 027B : 44 85 "D " jmp L0285 ; 027D L027D: 027D : F0 " " mov a,@r0 027E : 92 85 " " jb4 L0285 0280 : 43 11 "C " orl a,#011H 0282 : A0 " " mov @r0,a 0283 : 99 EF " " anl p1,#0EFH 0285 L0285: 0285 : 44 B6 "D " jmp L02B6 ; 0287 L0287: 0287 : 9A F7 " " anl p2,#0F7H 0289 : D5 " " sel rb1 028A : 85 " " clr f0 028B : 34 6B "4k" call L016B 028D : B6 9F " " jf0 L029F 028F : F9 " " mov a,r1 0290 : D3 60 " `" xrl a,#060H 0292 : A9 " " mov r1,a 0293 : B8 33 " 3" mov r0,#033H 0295 : 23 10 "# " mov a,#010H 0297 : D0 " " xrl a,@r0 0298 : A0 " " mov @r0,a 0299 : 99 BF " " anl p1,#0BFH 029B : 92 9F " " jb4 L029F 029D : 89 40 " @" orl p1,#040H 029F L029F: 029F : 94 57 " W" call L0457 02A1 : 89 20 " " orl p1,#020H 02A3 : FA " " mov a,r2 02A4 : F2 B6 " " jb7 L02B6 02A6 : B8 33 " 3" mov r0,#033H 02A8 : F0 " " mov a,@r0 02A9 : 53 FE "S " anl a,#0FEH 02AB : A0 " " mov @r0,a 02AC : 85 " " clr f0 02AD : 54 BC "T " call L02BC 02AF : B6 B8 " " jf0 L02B8 02B1 : 14 1C " " call L001C 02B3 : 25 "%" en tcnti 02B4 : 05 " " en i 02B5 : C5 " " sel rb0 02B6 L02B6: 02B6 : 44 02 "D " jmp L0202 ; 02B8 L02B8: 02B8 : 74 B0 "t " call L03B0 02BA : 44 02 "D " jmp L0202 ; 02BC L02BC: 02BC : 97 " " clr c 02BD : 0A " " in a,p2 02BE : A8 " " mov r0,a 02BF : 77 "w" rr a 02C0 : D8 " " xrl a,r0 02C1 : B2 C4 " " jb5 L02C4 02C3 : A7 " " cpl c 02C4 L02C4: 02C4 : B8 33 " 3" mov r0,#033H 02C6 : F0 " " mov a,@r0 02C7 : 92 CA " " jb4 L02CA 02C9 : A7 " " cpl c 02CA L02CA: 02CA : 0A " " in a,p2 02CB : D9 " " xrl a,r1 02CC : 3A ":" outl p2,a 02CD : F9 " " mov a,r1 02CE : D3 60 " `" xrl a,#060H 02D0 : A9 " " mov r1,a 02D1 : 27 "'" clr a 02D2 : 62 "b" mov t,a 02D3 : 16 D5 " " jtf L02D5 02D5 L02D5: 02D5 : B8 10 " " mov r0,#010H 02D7 L02D7: 02D7 : 08 " " ins a,bus 02D8 : E6 DB " " jnc L02DB 02DA : 37 "7" cpl a 02DB L02DB: 02DB : 16 E8 " " jtf L02E8 02DD : B2 D5 " " jb5 L02D5 02DF : E8 D7 " " djnz r0,L02D7 02E1 : 0A " " in a,p2 02E2 : 3C "<" movd p4,a 02E3 : 23 0B "# " mov a,#00BH 02E5 : 62 "b" mov t,a 02E6 : 45 "E" strt cnt 02E7 : 83 " " ret ; 02E8 L02E8: 02E8 : 95 " " cpl f0 02E9 : 83 " " ret ; 02EA : FF " " mov a,r7 02EB : FF " " mov a,r7 02EC : FF " " mov a,r7 02ED : FF " " mov a,r7 02EE : FF " " mov a,r7 02EF : FF " " mov a,r7 02F0 : FF " " mov a,r7 02F1 : FF " " mov a,r7 02F2 : FF " " mov a,r7 02F3 : FF " " mov a,r7 02F4 : FF " " mov a,r7 02F5 : FF " " mov a,r7 02F6 : FF " " mov a,r7 02F7 : FF " " mov a,r7 02F8 : FF " " mov a,r7 02F9 : FF " " mov a,r7 02FA : FF " " mov a,r7 02FB : FF " " mov a,r7 02FC : FF " " mov a,r7 02FD : FF " " mov a,r7 02FE : FF " " mov a,r7 02FF : FF " " mov a,r7 0300 : 04 00 " " jmp L0000 ; 0302 : 0B " " db 00BH ; 0303 : 55 "U" strt t 0304 : 75 "u" ent0 clk 0305 L0305: 0305 : 89 96 " " orl p1,#096H ; 0307 : A2 " " db 0A2H ; 0308 : A7 " " cpl c 0309 : AD " " mov r5,a 030A : B2 B7 " " jb5 L03B7 030C : BA BE " " mov r2,#0BEH ; 030E : C1 C3 " " db 0C1H, 0C3H ; 0310 : C5 " " sel rb0 0311 : C7 " " mov a,psw 0312 : CE " " dec r6 0313 : D3 DA " " xrl a,#0DAH 0315 : DF " " xrl a,r7 0316 : E4 E7 " " jmp L07E7 ; 0318 : EA ED " " djnz r2,L03ED 031A : EF F1 " " djnz r7,L03F1 031C : F2 F3 " " jb7 L03F3 031E : F4 F5 " " call L07F5 0320 : F6 F7 " " jc L03F7 0322 : FF " " mov a,r7 0323 : FE " " mov a,r6 0324 L0324: 0324 : FD " " mov a,r5 0325 : FC " " mov a,r4 0326 : FB " " mov a,r3 0327 : FA " " mov a,r2 0328 : F9 " " mov a,r1 0329 : F8 " " mov a,r0 032A : F7 " " rlc a 032B : F6 F5 " " jc L03F5 032D : F4 F3 " " call L07F3 032F : F2 F1 " " jb7 L03F1 0331 : F0 " " mov a,@r0 0332 : EC E8 " " djnz r4,L03E8 ; 0334 : E0 " " db 0E0H ; 0335 : D8 " " xrl a,r0 0336 : D0 " " xrl a,@r0 ; 0337 : C0 " " db 0C0H ; 0338 : B0 9E " " mov @r0,#09EH 033A : 8C " " orld p4,a 033B : 75 "u" ent0 clk 033C : 67 "g" rrc a 033D : 57 "W" da a 033E : 44 2E "D." jmp L022E ; 0340 : 14 01 " " call L0001 0342 : 02 " " outl bus,a 0343 : 02 " " outl bus,a 0344 : 03 04 " " add a,#004H 0346 : 04 05 " " jmp L0005 ; 0348 : 05 " " en i 0349 : 05 " " en i ; 034A : 06 06 06 " " db 006H, 006H, 006H ; 034D : 07 " " dec a 034E : 07 " " dec a 034F : 07 " " dec a 0350 : 07 " " dec a 0351 : 07 " " dec a 0352 : 02 " " outl bus,a 0353 : 97 " " clr c 0354 : 46 05 "F " jnt1 L0305 0356 : 39 "9" outl p1,a 0357 : 05 " " en i 0358 : 1E " " inc r6 0359 : 3C "<" movd p4,a ; 035A : 01 " " db 001H ; 035B : 1F " " inc r7 035C : 31 "1" xchd a,@r1 035D : 02 " " outl bus,a 035E : 16 24 " $" jtf L0324 ; 0360 : 33 "3" db 033H ; 0361 : 00 " " nop ; 0362 : 01 01 01 01 " " db 001H, 001H, 001H, 001H 0366 : 01 " " db 001H ; 0367 : 03 04 " " add a,#004H 0369 : 04 04 " " jmp L0004 ; 036B : 05 " " en i 036C : 05 " " en i 036D : 07 " " dec a 036E : 07 " " dec a 036F : 07 " " dec a 0370 : 07 " " dec a 0371 : 10 " " inc @r0 0372 L0372: 0372 : 97 " " clr c 0373 : B8 33 " 3" mov r0,#033H 0375 : F0 " " mov a,@r0 0376 : 52 7A "Rz" jb2 L037A 0378 : B2 8B " " jb5 L038B 037A L037A: 037A : 53 B5 "S " anl a,#0B5H 037C : 43 04 "C " orl a,#004H 037E : A0 " " mov @r0,a 037F : BA 00 " " mov r2,#000H 0381 : BB 10 " " mov r3,#010H 0383 : A5 " " clr f1 0384 : B5 " " cpl f1 0385 : B8 30 " 0" mov r0,#030H 0387 : B0 FF " " mov @r0,#0FFH 0389 : 64 93 "d " jmp L0393 ; 038B L038B: 038B : 43 04 "C " orl a,#004H 038D : A0 " " mov @r0,a 038E : BA 00 " " mov r2,#000H 0390 : BB FF " " mov r3,#0FFH 0392 : A7 " " cpl c 0393 L0393: 0393 : 83 " " ret ; 0394 L0394: 0394 : B8 34 " 4" mov r0,#034H 0396 : 23 21 "#!" mov a,#021H 0398 : 40 "@" orl a,@r0 0399 : 53 EF "S " anl a,#0EFH 039B : A0 " " mov @r0,a 039C : 83 " " ret ; 039D L039D: 039D : B8 35 " 5" mov r0,#035H 039F : 40 "@" orl a,@r0 03A0 : A0 " " mov @r0,a 03A1 : 99 EF " " anl p1,#0EFH 03A3 : 83 " " ret ; 03A4 L03A4: 03A4 : B8 37 " 7" mov r0,#037H 03A6 : 40 "@" orl a,@r0 03A7 : A0 " " mov @r0,a 03A8 : 99 F7 " " anl p1,#0F7H 03AA : 83 " " ret ; 03AB L03AB: 03AB : B8 39 " 9" mov r0,#039H 03AD : 40 "@" orl a,@r0 03AE : A0 " " mov @r0,a 03AF : 83 " " ret ; 03B0 L03B0: 03B0 : B8 33 " 3" mov r0,#033H 03B2 : F0 " " mov a,@r0 03B3 : 43 01 "C " orl a,#001H 03B5 : A0 " " mov @r0,a 03B6 : B2 C0 " " jb5 L03C0 03B8 : 23 04 "# " mov a,#004H 03BA : 74 A4 "t " call L03A4 03BC : 74 94 "t " call L0394 03BE : 64 E1 "d " jmp L03E1 ; 03C0 L03C0: 03C0 : 53 DF "S " anl a,#0DFH 03C2 : A0 " " mov @r0,a 03C3 : 8A F0 " " orl p2,#0F0H 03C5 : B9 A0 " " mov r1,#0A0H 03C7 : 55 "U" strt t 03C8 L03C8: 03C8 : 16 CC " " jtf L03CC 03CA : 64 C8 "d " jmp L03C8 ; 03CC L03CC: 03CC : BB 08 " " mov r3,#008H 03CE L03CE: 03CE : 0A " " in a,p2 03CF : D9 " " xrl a,r1 03D0 : 3A ":" outl p2,a 03D1 : 23 60 "#`" mov a,#060H 03D3 : D9 " " xrl a,r1 03D4 : A9 " " mov r1,a 03D5 L03D5: 03D5 : 16 D9 " " jtf L03D9 03D7 : 64 D5 "d " jmp L03D5 ; 03D9 L03D9: 03D9 : EB CE " " djnz r3,L03CE 03DB : 94 0C " " call L040C 03DD : 23 08 "# " mov a,#008H 03DF : 74 9D "t " call L039D 03E1 L03E1: 03E1 : 35 "5" dis tcnti 03E2 : 15 " " dis i 03E3 : FF " " mov a,r7 03E4 : 93 " " retr ; 03E5 : FF " " mov a,r7 03E6 : FF " " mov a,r7 03E7 : FF " " mov a,r7 03E8 L03E8: 03E8 : FF " " mov a,r7 03E9 : FF " " mov a,r7 03EA : FF " " mov a,r7 03EB : FF " " mov a,r7 03EC : FF " " mov a,r7 03ED L03ED: 03ED : FF " " mov a,r7 03EE : FF " " mov a,r7 03EF : FF " " mov a,r7 03F0 : FF " " mov a,r7 03F1 L03F1: 03F1 : FF " " mov a,r7 03F2 : FF " " mov a,r7 03F3 L03F3: 03F3 : FF " " mov a,r7 03F4 : FF " " mov a,r7 03F5 L03F5: 03F5 : FF " " mov a,r7 03F6 : FF " " mov a,r7 03F7 L03F7: 03F7 : FF " " mov a,r7 03F8 : FF " " mov a,r7 03F9 : FF " " mov a,r7 03FA : FF " " mov a,r7 03FB : FF " " mov a,r7 03FC : FF " " mov a,r7 03FD : FF " " mov a,r7 03FE : FF " " mov a,r7 03FF : FF " " mov a,r7 0400 : 04 00 " " jmp L0000 ; 0402 L0402: 0402 : B8 2F " /" mov r0,#02FH 0404 : 23 0B "# " mov a,#00BH 0406 L0406: 0406 : B0 00 " " mov @r0,#000H 0408 : 18 " " inc r0 0409 : 07 " " dec a 040A : 96 06 " " jnz L0406 040C L040C: 040C : B8 19 " " mov r0,#019H 040E : B0 A0 " " mov @r0,#0A0H 0410 : B8 1C " " mov r0,#01CH 0412 : B0 00 " " mov @r0,#000H 0414 : 8A 60 " `" orl p2,#060H 0416 : 45 "E" strt cnt 0417 : 27 "'" clr a 0418 : 62 "b" mov t,a 0419 : 16 1B " " jtf L041B 041B L041B: 041B : 16 1F " " jtf L041F 041D : 84 1B " " jmp L041B ; 041F L041F: 041F : 9A BF " " anl p2,#0BFH 0421 L0421: 0421 : 16 25 " %" jtf L0425 0423 : 84 21 " !" jmp L0421 ; 0425 L0425: 0425 : 8A 60 " `" orl p2,#060H 0427 L0427: 0427 : 16 2B " +" jtf L042B 0429 : 84 27 " '" jmp L0427 ; 042B L042B: 042B : 89 40 " @" orl p1,#040H 042D : B8 33 " 3" mov r0,#033H 042F : B0 01 " " mov @r0,#001H 0431 : 83 " " ret ; 0432 L0432: 0432 : 94 BF " " call L04BF 0434 : B8 2F " /" mov r0,#02FH 0436 : 92 44 " D" jb4 L0444 0438 : F0 " " mov a,@r0 0439 : C6 56 " V" jz L0456 043B : 07 " " dec a 043C : A0 " " mov @r0,a 043D : 53 7F "S " anl a,#07FH 043F : 96 42 " B" jnz L0442 0441 : A0 " " mov @r0,a 0442 L0442: 0442 : 84 56 " V" jmp L0456 ; 0444 L0444: 0444 : F0 " " mov a,@r0 0445 : 72 56 "rV" jb3 L0456 0447 : 17 " " inc a 0448 : A0 " " mov @r0,a 0449 : F2 56 " V" jb7 L0456 044B : 37 "7" cpl a 044C : 72 56 "rV" jb3 L0456 044E : 53 7F "S " anl a,#07FH 0450 : 37 "7" cpl a 0451 : A0 " " mov @r0,a 0452 : 23 04 "# " mov a,#004H 0454 : 74 9D "t " call L039D 0456 L0456: 0456 : 83 " " ret ; 0457 L0457: 0457 : B8 30 " 0" mov r0,#030H 0459 : F0 " " mov a,@r0 045A : 17 " " inc a 045B : 96 64 " d" jnz L0464 045D : FA " " mov a,r2 045E : 17 " " inc a 045F : C6 64 " d" jz L0464 0461 : 09 " " in a,p1 0462 : B2 A4 " " jb5 L04A4 0464 L0464: 0464 : 97 " " clr c 0465 : B8 38 " 8" mov r0,#038H 0467 : F0 " " mov a,@r0 0468 : D2 89 " " jb6 L0489 046A : B2 6F " o" jb5 L046F 046C : A7 " " cpl c 046D : 84 91 " " jmp L0491 ; 046F L046F: 046F : 09 " " in a,p1 0470 : 37 "7" cpl a 0471 : B2 77 " w" jb5 L0477 0473 : A7 " " cpl c 0474 : F0 " " mov a,@r0 0475 : 84 91 " " jmp L0491 ; 0477 L0477: 0477 : F0 " " mov a,@r0 0478 : 92 7E " ~" jb4 L047E 047A : D3 10 " " xrl a,#010H 047C : 84 91 " " jmp L0491 ; 047E L047E: 047E : 72 84 "r " jb3 L0484 0480 : D3 08 " " xrl a,#008H 0482 : 84 91 " " jmp L0491 ; 0484 L0484: 0484 : 53 E7 "S " anl a,#0E7H 0486 : A7 " " cpl c 0487 : 84 91 " " jmp L0491 ; 0489 L0489: 0489 : B2 91 " " jb5 L0491 048B : 09 " " in a,p1 048C : 37 "7" cpl a 048D : B2 90 " " jb5 L0490 048F : A7 " " cpl c 0490 L0490: 0490 : F0 " " mov a,@r0 0491 L0491: 0491 : A0 " " mov @r0,a 0492 : F6 A4 " " jc L04A4 0494 : 17 " " inc a 0495 : 53 FB "S " anl a,#0FBH 0497 : A0 " " mov @r0,a 0498 : 32 9C "2 " jb1 L049C 049A : D3 01 " " xrl a,#001H 049C L049C: 049C : 53 03 "S " anl a,#003H 049E : A8 " " mov r0,a 049F : 0A " " in a,p2 04A0 : 53 FC "S " anl a,#0FCH 04A2 : 48 "H" orl a,r0 04A3 : 3A ":" outl p2,a 04A4 L04A4: 04A4 : 83 " " ret ; 04A5 L04A5: 04A5 : B8 33 " 3" mov r0,#033H 04A7 : F0 " " mov a,@r0 04A8 : 37 "7" cpl a 04A9 : 32 BE "2 " jb1 L04BE 04AB : B8 30 " 0" mov r0,#030H 04AD : F0 " " mov a,@r0 04AE : 37 "7" cpl a 04AF : 6C "l" add a,r4 04B0 : 17 " " inc a 04B1 : 96 B7 " " jnz L04B7 04B3 : A5 " " clr f1 04B4 : B5 " " cpl f1 04B5 : 84 BD " " jmp L04BD ; 04B7 L04B7: 04B7 : F6 BC " " jc L04BC 04B9 : 1C " " inc r4 04BA : 84 BD " " jmp L04BD ; 04BC L04BC: 04BC : CC " " dec r4 04BD L04BD: 04BD : 95 " " cpl f0 04BE L04BE: 04BE : 83 " " ret ; 04BF L04BF: 04BF : 08 " " ins a,bus 04C0 : A8 " " mov r0,a 04C1 : 08 " " ins a,bus 04C2 : D8 " " xrl a,r0 04C3 : 96 BF " " jnz L04BF 04C5 : F8 " " mov a,r0 04C6 : 83 " " ret ; 04C7 L04C7: 04C7 : 27 "'" clr a 04C8 : 21 "!" xch a,@r1 04C9 : 5A "Z" anl a,r2 04CA : 94 D3 " " call L04D3 04CC : 83 " " ret ; 04CD L04CD: 04CD : 27 "'" clr a 04CE : 21 "!" xch a,@r1 04CF : 4A "J" orl a,r2 04D0 : 94 D3 " " call L04D3 04D2 : 83 " " ret ; 04D3 L04D3: 04D3 : 21 "!" xch a,@r1 04D4 : C6 DD " " jz L04DD 04D6 L04D6: 04D6 : AA " " mov r2,a 04D7 : 27 "'" clr a 04D8 : 21 "!" xch a,@r1 04D9 : 4A "J" orl a,r2 04DA : 21 "!" xch a,@r1 04DB : 96 D6 " " jnz L04D6 04DD L04DD: 04DD : 83 " " ret ; 04DE : FF " " mov a,r7 04DF : FF " " mov a,r7 04E0 : FF " " mov a,r7 04E1 : FF " " mov a,r7 04E2 : FF " " mov a,r7 04E3 : FF " " mov a,r7 04E4 : FF " " mov a,r7 04E5 : FF " " mov a,r7 04E6 : FF " " mov a,r7 04E7 : FF " " mov a,r7 04E8 : FF " " mov a,r7 04E9 : FF " " mov a,r7 04EA : FF " " mov a,r7 04EB : FF " " mov a,r7 04EC : FF " " mov a,r7 04ED : FF " " mov a,r7 04EE : FF " " mov a,r7 04EF : FF " " mov a,r7 04F0 : FF " " mov a,r7 04F1 : FF " " mov a,r7 04F2 : FF " " mov a,r7 04F3 : FF " " mov a,r7 04F4 : FF " " mov a,r7 04F5 : FF " " mov a,r7 04F6 : FF " " mov a,r7 04F7 : FF " " mov a,r7 04F8 : FF " " mov a,r7 04F9 : FF " " mov a,r7 04FA : FF " " mov a,r7 04FB : FF " " mov a,r7 04FC : FF " " mov a,r7 04FD : FF " " mov a,r7 04FE : FF " " mov a,r7 04FF : FF " " mov a,r7 0500 : 04 00 " " jmp L0000 ; 0502 L0502: 0502 : B8 3F " ?" mov r0,#03FH 0504 : B9 20 " " mov r1,#020H 0506 : 27 "'" clr a 0507 L0507: 0507 : A0 " " mov @r0,a 0508 : C8 " " dec r0 0509 : E9 07 " " djnz r1,L0507 050B : B9 3A " :" mov r1,#03AH 050D : 09 " " in a,p1 050E : 43 A0 "C " orl a,#0A0H 0510 : 37 "7" cpl a 0511 : C6 17 " " jz L0517 0513 : 23 02 "# " mov a,#002H 0515 : 41 "A" orl a,@r1 0516 : A1 " " mov @r1,a 0517 L0517: 0517 : 0A " " in a,p2 0518 : 43 10 "C " orl a,#010H 051A : 37 "7" cpl a 051B : C6 21 " !" jz L0521 051D : 23 04 "# " mov a,#004H 051F : 41 "A" orl a,@r1 0520 : A1 " " mov @r1,a 0521 L0521: 0521 : B8 38 " 8" mov r0,#038H 0523 : B0 40 " @" mov @r0,#040H 0525 : BF 55 " U" mov r7,#055H 0527 : 55 "U" strt t 0528 : 16 2A " *" jtf L052A 052A L052A: 052A : FF " " mov a,r7 052B : A3 " " movp a,@a 052C : AA " " mov r2,a 052D : 53 F0 "S " anl a,#0F0H 052F : 3A ":" outl p2,a 0530 : 94 57 " W" call L0457 0532 : 23 A2 "# " mov a,#0A2H 0534 : 62 "b" mov t,a 0535 L0535: 0535 : 16 39 " 9" jtf L0539 0537 : A4 35 " 5" jmp L0535 ; 0539 L0539: 0539 : 08 " " ins a,bus 053A : 32 40 "2@" jb1 L0540 053C : 21 "!" xch a,@r1 053D : 43 01 "C " orl a,#001H 053F : 21 "!" xch a,@r1 0540 L0540: 0540 : DA " " xrl a,r2 0541 : 37 "7" cpl a 0542 : 12 48 " H" jb0 L0548 0544 : 21 "!" xch a,@r1 0545 : 43 40 "C@" orl a,#040H 0547 : 21 "!" xch a,@r1 0548 L0548: 0548 : 72 4E "rN" jb3 L054E 054A : 21 "!" xch a,@r1 054B : 43 10 "C " orl a,#010H 054D : 21 "!" xch a,@r1 054E L054E: 054E : 1F " " inc r7 054F : 23 59 "#Y" mov a,#059H 0551 : DF " " xrl a,r7 0552 : 96 2A " *" jnz L052A 0554 : 83 " " ret ; 0555 : D0 " " xrl a,@r0 0556 : 98 B0 " " anl bus,#0B0H 0558 : F0 " " mov a,@r0 0559 : FF " " mov a,r7 055A : FF " " mov a,r7 055B : FF " " mov a,r7 055C : FF " " mov a,r7 055D : FF " " mov a,r7 055E : FF " " mov a,r7 055F : FF " " mov a,r7 0560 : FF " " mov a,r7 0561 : FF " " mov a,r7 0562 : FF " " mov a,r7 0563 : FF " " mov a,r7 0564 : FF " " mov a,r7 0565 : FF " " mov a,r7 0566 : FF " " mov a,r7 0567 : FF " " mov a,r7 0568 : FF " " mov a,r7 0569 : FF " " mov a,r7 056A : FF " " mov a,r7 056B : FF " " mov a,r7 056C : FF " " mov a,r7 056D : FF " " mov a,r7 056E : FF " " mov a,r7 056F : FF " " mov a,r7 0570 : FF " " mov a,r7 0571 : FF " " mov a,r7 0572 : FF " " mov a,r7 0573 : FF " " mov a,r7 0574 : FF " " mov a,r7 0575 : FF " " mov a,r7 0576 : FF " " mov a,r7 0577 : FF " " mov a,r7 0578 : FF " " mov a,r7 0579 : FF " " mov a,r7 057A : FF " " mov a,r7 057B : FF " " mov a,r7 057C : FF " " mov a,r7 057D : FF " " mov a,r7 057E : FF " " mov a,r7 057F : FF " " mov a,r7 0580 : FF " " mov a,r7 0581 : FF " " mov a,r7 0582 : FF " " mov a,r7 0583 : FF " " mov a,r7 0584 : FF " " mov a,r7 0585 : FF " " mov a,r7 0586 : FF " " mov a,r7 0587 : FF " " mov a,r7 0588 : FF " " mov a,r7 0589 : FF " " mov a,r7 058A : FF " " mov a,r7 058B : FF " " mov a,r7 058C : FF " " mov a,r7 058D : FF " " mov a,r7 058E : FF " " mov a,r7 058F : FF " " mov a,r7 0590 : FF " " mov a,r7 0591 : FF " " mov a,r7 0592 : FF " " mov a,r7 0593 : FF " " mov a,r7 0594 : FF " " mov a,r7 0595 : FF " " mov a,r7 0596 : FF " " mov a,r7 0597 : FF " " mov a,r7 0598 : FF " " mov a,r7 0599 : FF " " mov a,r7 059A : FF " " mov a,r7 059B : FF " " mov a,r7 059C : FF " " mov a,r7 059D : FF " " mov a,r7 059E : FF " " mov a,r7 059F : FF " " mov a,r7 05A0 : FF " " mov a,r7 05A1 : FF " " mov a,r7 05A2 : FF " " mov a,r7 05A3 : FF " " mov a,r7 05A4 : FF " " mov a,r7 05A5 : FF " " mov a,r7 05A6 : FF " " mov a,r7 05A7 : FF " " mov a,r7 05A8 : FF " " mov a,r7 05A9 : FF " " mov a,r7 05AA : FF " " mov a,r7 05AB : FF " " mov a,r7 05AC : FF " " mov a,r7 05AD : FF " " mov a,r7 05AE : FF " " mov a,r7 05AF : FF " " mov a,r7 05B0 : FF " " mov a,r7 05B1 : FF " " mov a,r7 05B2 : FF " " mov a,r7 05B3 : FF " " mov a,r7 05B4 : FF " " mov a,r7 05B5 : FF " " mov a,r7 05B6 : FF " " mov a,r7 05B7 : FF " " mov a,r7 05B8 : FF " " mov a,r7 05B9 : FF " " mov a,r7 05BA : FF " " mov a,r7 05BB : FF " " mov a,r7 05BC : FF " " mov a,r7 05BD : FF " " mov a,r7 05BE : FF " " mov a,r7 05BF : FF " " mov a,r7 05C0 : FF " " mov a,r7 05C1 : FF " " mov a,r7 05C2 : FF " " mov a,r7 05C3 : FF " " mov a,r7 05C4 : FF " " mov a,r7 05C5 : FF " " mov a,r7 05C6 : FF " " mov a,r7 05C7 : FF " " mov a,r7 05C8 : FF " " mov a,r7 05C9 : FF " " mov a,r7 05CA : FF " " mov a,r7 05CB : FF " " mov a,r7 05CC : FF " " mov a,r7 05CD : FF " " mov a,r7 05CE : FF " " mov a,r7 05CF : FF " " mov a,r7 05D0 : FF " " mov a,r7 05D1 : FF " " mov a,r7 05D2 : FF " " mov a,r7 05D3 : FF " " mov a,r7 05D4 : FF " " mov a,r7 05D5 : FF " " mov a,r7 05D6 : FF " " mov a,r7 05D7 : FF " " mov a,r7 05D8 : FF " " mov a,r7 05D9 : FF " " mov a,r7 05DA : FF " " mov a,r7 05DB : FF " " mov a,r7 05DC : FF " " mov a,r7 05DD : FF " " mov a,r7 05DE : FF " " mov a,r7 05DF : FF " " mov a,r7 05E0 : FF " " mov a,r7 05E1 : FF " " mov a,r7 05E2 : FF " " mov a,r7 05E3 : FF " " mov a,r7 05E4 : FF " " mov a,r7 05E5 : FF " " mov a,r7 05E6 : FF " " mov a,r7 05E7 : FF " " mov a,r7 05E8 : FF " " mov a,r7 05E9 : FF " " mov a,r7 05EA : FF " " mov a,r7 05EB : FF " " mov a,r7 05EC : FF " " mov a,r7 05ED : FF " " mov a,r7 05EE : FF " " mov a,r7 05EF : FF " " mov a,r7 05F0 : FF " " mov a,r7 05F1 : FF " " mov a,r7 05F2 : FF " " mov a,r7 05F3 : FF " " mov a,r7 05F4 : FF " " mov a,r7 05F5 : FF " " mov a,r7 05F6 : FF " " mov a,r7 05F7 : FF " " mov a,r7 05F8 : FF " " mov a,r7 05F9 : FF " " mov a,r7 05FA : FF " " mov a,r7 05FB : FF " " mov a,r7 05FC : FF " " mov a,r7 05FD : FF " " mov a,r7 05FE : FF " " mov a,r7 05FF : FF " " mov a,r7 0600 : 04 00 " " jmp L0000 ; 0602 : 28 "(" xch a,r0 0603 : 32 39 "29" jb1 L0639 0605 : 3F "?" movd p7,a 0606 : 49 "I" orl a,r1 0607 : B2 4F " O" jb5 L064F 0609 : B2 55 " U" jb5 L0655 060B : 72 95 "r " jb3 L0695 060D : B2 B2 " " jb5 L06B2 060F : B2 B2 " " jb5 L06B2 0611 : B2 B2 " " jb5 L06B2 0613 : B2 B2 " " jb5 L06B2 0615 : B2 B2 " " jb5 L06B2 0617 : B2 B2 " " jb5 L06B2 0619 : 9F " " anld p7,a 061A : B2 B2 " " jb5 L06B2 061C : A3 " " movp a,@a 061D : A8 " " mov r0,a 061E : B2 B2 " " jb5 L06B2 0620 : B2 AD " " jb5 L06AD 0622 L0622: 0622 : B9 3E " >" mov r1,#03EH 0624 : F1 " " mov a,@r1 0625 : 03 02 " " add a,#002H 0627 : B3 " " jmpp @a ;INFO: indirect jump ; 0628 : 23 20 "# " mov a,#020H 062A : B8 33 " 3" mov r0,#033H 062C : 40 "@" orl a,@r0 062D : A0 " " mov @r0,a 062E : D4 BC " " call L06BC 0630 : C4 BB " " jmp L06BB ; 0632 : 15 " " dis i 0633 : 35 "5" dis tcnti 0634 : 23 08 "# " mov a,#008H 0636 : D7 " " mov psw,a 0637 : 04 00 " " jmp L0000 ; 0639 L0639: 0639 : 74 94 "t " call L0394 063B : D4 BC " " call L06BC 063D : C4 BB " " jmp L06BB ; 063F : B9 39 " 9" mov r1,#039H 0641 : BA FE " " mov r2,#0FEH 0643 : 94 C7 " " call L04C7 0645 : D4 BC " " call L06BC 0647 : C4 BB " " jmp L06BB ; 0649 : B4 02 " " call L0502 064B : D4 BC " " call L06BC 064D : C4 BB " " jmp L06BB ; 064F L064F: 064F : 94 02 " " call L0402 0651 : D4 BC " " call L06BC 0653 : C4 BB " " jmp L06BB ; 0655 L0655: 0655 : 89 08 " " orl p1,#008H 0657 : B9 36 " 6" mov r1,#036H 0659 : F1 " " mov a,@r1 065A : 96 64 " d" jnz L0664 065C : 19 " " inc r1 065D : F1 " " mov a,@r1 065E : 96 64 " d" jnz L0664 0660 : 23 00 "# " mov a,#000H 0662 : C4 70 " p" jmp L0670 ; 0664 L0664: 0664 : 99 F7 " " anl p1,#0F7H 0666 : D4 C5 " " call L06C5 0668 : F9 " " mov a,r1 0669 : D3 37 " 7" xrl a,#037H 066B : C6 6F " o" jz L066F 066D : 23 08 "# " mov a,#008H 066F L066F: 066F : 4C "L" orl a,r4 0670 L0670: 0670 : C4 BB " " jmp L06BB ; 0672 : 89 10 " " orl p1,#010H 0674 : B9 35 " 5" mov r1,#035H 0676 : F1 " " mov a,@r1 0677 : C6 8D " " jz L068D 0679 : D4 C5 " " call L06C5 067B : 23 08 "# " mov a,#008H 067D : 4C "L" orl a,r4 067E : AC " " mov r4,a 067F : F1 " " mov a,@r1 0680 : 96 88 " " jnz L0688 0682 : B9 34 " 4" mov r1,#034H 0684 : F1 " " mov a,@r1 0685 : 37 "7" cpl a 0686 : 12 8A " " jb0 L068A 0688 L0688: 0688 : 99 EF " " anl p1,#0EFH 068A L068A: 068A : FC " " mov a,r4 068B : C4 93 " " jmp L0693 ; 068D L068D: 068D : 27 "'" clr a 068E : B9 34 " 4" mov r1,#034H 0690 : 31 "1" xchd a,@r1 0691 : F1 " " mov a,@r1 0692 : 47 "G" swap a 0693 L0693: 0693 : C4 BB " " jmp L06BB ; 0695 L0695: 0695 : B8 34 " 4" mov r0,#034H 0697 : 23 DF "# " mov a,#0DFH 0699 : 50 "P" anl a,@r0 069A : A0 " " mov @r0,a 069B : 23 08 "# " mov a,#008H 069D : C4 BB " " jmp L06BB ; 069F : D4 BC " " call L06BC 06A1 : C4 BB " " jmp L06BB ; 06A3 : B9 3A " :" mov r1,#03AH 06A5 : F1 " " mov a,@r1 06A6 : C4 BB " " jmp L06BB ; 06A8 : B9 39 " 9" mov r1,#039H 06AA : F1 " " mov a,@r1 06AB : C4 BB " " jmp L06BB ; 06AD L06AD: 06AD : B9 3F " ?" mov r1,#03FH 06AF : F1 " " mov a,@r1 06B0 : C4 BB " " jmp L06BB ; 06B2 L06B2: 06B2 : BA 40 " @" mov r2,#040H 06B4 : B9 37 " 7" mov r1,#037H 06B6 : 94 CD " " call L04CD 06B8 : 99 F7 " " anl p1,#0F7H 06BA : 27 "'" clr a 06BB L06BB: 06BB : 83 " " ret ; 06BC L06BC: 06BC : B9 35 " 5" mov r1,#035H 06BE : BA 01 " " mov r2,#001H 06C0 : 94 CD " " call L04CD 06C2 : 99 EF " " anl p1,#0EFH 06C4 : 83 " " ret ; 06C5 L06C5: 06C5 : BA 80 " " mov r2,#080H 06C7 : BC 07 " " mov r4,#007H 06C9 L06C9: 06C9 : F1 " " mov a,@r1 06CA : 5A "Z" anl a,r2 06CB : 96 D3 " " jnz L06D3 06CD : FA " " mov a,r2 06CE : 77 "w" rr a 06CF : AA " " mov r2,a 06D0 : CC " " dec r4 06D1 : C4 C9 " " jmp L06C9 ; 06D3 L06D3: 06D3 : FA " " mov a,r2 06D4 : 37 "7" cpl a 06D5 : AA " " mov r2,a 06D6 : 94 C7 " " call L04C7 06D8 : 83 " " ret ; 06D9 : FF " " mov a,r7 06DA : FF " " mov a,r7 06DB : FF " " mov a,r7 06DC : FF " " mov a,r7 06DD : FF " " mov a,r7 06DE : FF " " mov a,r7 06DF : FF " " mov a,r7 06E0 : FF " " mov a,r7 06E1 : FF " " mov a,r7 06E2 : FF " " mov a,r7 06E3 : FF " " mov a,r7 06E4 : FF " " mov a,r7 06E5 : FF " " mov a,r7 06E6 : FF " " mov a,r7 06E7 : FF " " mov a,r7 06E8 : FF " " mov a,r7 06E9 : FF " " mov a,r7 06EA : FF " " mov a,r7 06EB : FF " " mov a,r7 06EC : FF " " mov a,r7 06ED : FF " " mov a,r7 06EE : FF " " mov a,r7 06EF : FF " " mov a,r7 06F0 : FF " " mov a,r7 06F1 : FF " " mov a,r7 06F2 : FF " " mov a,r7 06F3 : FF " " mov a,r7 06F4 : FF " " mov a,r7 06F5 : FF " " mov a,r7 06F6 : FF " " mov a,r7 06F7 : FF " " mov a,r7 06F8 : FF " " mov a,r7 06F9 : FF " " mov a,r7 06FA : FF " " mov a,r7 06FB : FF " " mov a,r7 06FC : FF " " mov a,r7 06FD : FF " " mov a,r7 06FE : FF " " mov a,r7 06FF : FF " " mov a,r7 0700 : 04 00 " " jmp L0000 ; 0702 : 05 " " en i 0703 : 08 " " ins a,bus 0704 : 08 " " ins a,bus 0705 L0705: 0705 : C5 " " sel rb0 0706 L0706: 0706 : 09 " " in a,p1 0707 : AA " " mov r2,a 0708 : 09 " " in a,p1 0709 : DA " " xrl a,r2 070A : 12 06 " " jb0 L0706 070C : 52 06 "R " jb2 L0706 070E : FA " " mov a,r2 070F : 52 6D "Rm" jb2 L076D 0711 : 12 18 " " jb0 L0718 0713 : B9 39 " 9" mov r1,#039H 0715 : F1 " " mov a,@r1 0716 : 12 6D " m" jb0 L076D 0718 L0718: 0718 : 99 FD " " anl p1,#0FDH 071A : FA " " mov a,r2 071B : 12 26 " &" jb0 L0726 071D : B9 3B " ;" mov r1,#03BH 071F : F9 " " mov a,r1 0720 : 03 C7 " " add a,#0C7H 0722 : A3 " " movp a,@a 0723 : AB " " mov r3,a 0724 : E4 2A " *" jmp L072A ; 0726 L0726: 0726 : B9 3E " >" mov r1,#03EH 0728 : BB 05 " " mov r3,#005H 072A L072A: 072A : F4 6E " n" call L076E 072C : F9 " " mov a,r1 072D : D3 3E " >" xrl a,#03EH 072F : 96 58 " X" jnz L0758 0731 : F1 " " mov a,@r1 0732 : 53 18 "S " anl a,#018H 0734 : C6 54 " T" jz L0754 0736 : D3 10 " " xrl a,#010H 0738 : 96 44 " D" jnz L0744 073A : B9 3F " ?" mov r1,#03FH 073C : BB 08 " " mov r3,#008H 073E : F4 6E " n" call L076E 0740 : D4 22 " "" call L0622 0742 : E4 52 " R" jmp L0752 ; 0744 L0744: 0744 : D3 18 " " xrl a,#018H 0746 : 96 4C " L" jnz L074C 0748 : BB 04 " " mov r3,#004H 074A : E4 4E " N" jmp L074E ; 074C L074C: 074C : BB 08 " " mov r3,#008H 074E L074E: 074E : D4 22 " "" call L0622 0750 : F4 96 " " call L0796 0752 L0752: 0752 : E4 56 " V" jmp L0756 ; 0754 L0754: 0754 : D4 22 " "" call L0622 0756 L0756: 0756 : E4 6D " m" jmp L076D ; 0758 L0758: 0758 : F9 " " mov a,r1 0759 : D3 3D " =" xrl a,#03DH 075B : C6 67 " g" jz L0767 075D : 19 " " inc r1 075E : F9 " " mov a,r1 075F : 03 C7 " " add a,#0C7H 0761 : A3 " " movp a,@a 0762 : AB " " mov r3,a 0763 : F4 6E " n" call L076E 0765 : E4 58 " X" jmp L0758 ; 0767 L0767: 0767 : B9 39 " 9" mov r1,#039H 0769 : BA 01 " " mov r2,#001H 076B : 94 CD " " call L04CD 076D L076D: 076D : 83 " " ret ; 076E L076E: 076E : 27 "'" clr a 076F : A1 " " mov @r1,a 0770 L0770: 0770 : FA " " mov a,r2 0771 : 52 82 "R " jb2 L0782 0773 L0773: 0773 : 09 " " in a,p1 0774 : AA " " mov r2,a 0775 : 37 "7" cpl a 0776 : 52 73 "Rs" jb2 L0773 0778 : 09 " " in a,p1 0779 : DA " " xrl a,r2 077A : 12 73 " s" jb0 L0773 077C : 52 73 "Rs" jb2 L0773 077E : 89 02 " " orl p1,#002H 0780 : E4 8E " " jmp L078E ; 0782 L0782: 0782 : 09 " " in a,p1 0783 : 52 82 "R " jb2 L0782 0785 : AA " " mov r2,a 0786 : 09 " " in a,p1 0787 : DA " " xrl a,r2 0788 : 12 82 " " jb0 L0782 078A : 52 82 "R " jb2 L0782 078C : 99 FD " " anl p1,#0FDH 078E L078E: 078E : FA " " mov a,r2 078F : 67 "g" rrc a 0790 : F1 " " mov a,@r1 0791 : F7 " " rlc a 0792 : A1 " " mov @r1,a 0793 : EB 70 " p" djnz r3,L0770 0795 : 83 " " ret ; 0796 L0796: 0796 : A9 " " mov r1,a 0797 L0797: 0797 : 09 " " in a,p1 0798 : 52 97 "R " jb2 L0797 079A : 09 " " in a,p1 079B : AA " " mov r2,a 079C : 52 97 "R " jb2 L0797 079E L079E: 079E : F9 " " mov a,r1 079F : 67 "g" rrc a 07A0 : A9 " " mov r1,a 07A1 : F6 A5 " " jc L07A5 07A3 : E4 A9 " " jmp L07A9 ; 07A5 L07A5: 07A5 : 89 01 " " orl p1,#001H 07A7 : E4 AB " " jmp L07AB ; 07A9 L07A9: 07A9 : 99 FE " " anl p1,#0FEH 07AB L07AB: 07AB : FA " " mov a,r2 07AC : 52 BB "R " jb2 L07BB 07AE : 99 FD " " anl p1,#0FDH 07B0 L07B0: 07B0 : 09 " " in a,p1 07B1 : 37 "7" cpl a 07B2 : 52 B0 "R " jb2 L07B0 07B4 : 09 " " in a,p1 07B5 : AA " " mov r2,a 07B6 : 37 "7" cpl a 07B7 : 52 B0 "R " jb2 L07B0 07B9 : E4 C4 " " jmp L07C4 ; 07BB L07BB: 07BB : 89 02 " " orl p1,#002H 07BD L07BD: 07BD : 09 " " in a,p1 07BE : 52 BD "R " jb2 L07BD 07C0 : 09 " " in a,p1 07C1 : AA " " mov r2,a 07C2 : 52 BD "R " jb2 L07BD 07C4 L07C4: 07C4 : EB 9E " " djnz r3,L079E 07C6 : 99 FD " " anl p1,#0FDH 07C8 L07C8: 07C8 : 09 " " in a,p1 07C9 : 37 "7" cpl a 07CA : 52 C8 "R " jb2 L07C8 07CC : 09 " " in a,p1 07CD : 37 "7" cpl a 07CE : 52 C8 "R " jb2 L07C8 07D0 : 89 03 " " orl p1,#003H 07D2 : 83 " " ret ; 07D3 L07D3: 07D3 : 99 DF " " anl p1,#0DFH 07D5 : B8 34 " 4" mov r0,#034H 07D7 : B0 21 " !" mov @r0,#021H 07D9 : 99 EF " " anl p1,#0EFH 07DB : 27 "'" clr a 07DC : 18 " " inc r0 07DD : B9 3A " :" mov r1,#03AH 07DF : 20 " " xch a,@r0 07E0 : A1 " " mov @r1,a 07E1 : 18 " " inc r0 07E2 : 27 "'" clr a 07E3 : 20 " " xch a,@r0 07E4 : 41 "A" orl a,@r1 07E5 : A1 " " mov @r1,a 07E6 : 18 " " inc r0 07E7 L07E7: 07E7 : B9 3F " ?" mov r1,#03FH 07E9 : F0 " " mov a,@r0 07EA : B0 80 " " mov @r0,#080H 07EC : A1 " " mov @r1,a 07ED : 99 F7 " " anl p1,#0F7H 07EF L07EF: 07EF : F4 05 " " call L0705 07F1 : B9 39 " 9" mov r1,#039H 07F3 L07F3: 07F3 : F1 " " mov a,@r1 07F4 : 53 FE "S " anl a,#0FEH 07F6 : A1 " " mov @r1,a 07F7 : B8 3E " >" mov r0,#03EH 07F9 : F0 " " mov a,@r0 07FA : D3 06 " " xrl a,#006H 07FC : 96 EF " " jnz L07EF 07FE : 44 02 "D " jmp L0202 ;-------------------------------------------------------------- Symbol table ============ Value Type Name ----- ---- ---- 0000 Code L0000 0001 Code L0001 0004 Code L0004 0005 Code L0005 000B Code L000B 0010 Code L0010 001C Code L001C 001F Code L001F 002F Code L002F 0040 Code L0040 0042 Code L0042 0046 Code L0046 0055 Code L0055 0069 Code L0069 0074 Code L0074 0076 Code L0076 007E Code L007E 0082 Code L0082 0089 Code L0089 0091 Code L0091 0092 Code L0092 009F Code L009F 00A6 Code L00A6 00AF Code L00AF 00B0 Code L00B0 00C2 Code L00C2 00C6 Code L00C6 00D2 Code L00D2 00D3 Code L00D3 00D9 Code L00D9 00DF Code L00DF 0102 Code L0102 0110 Code L0110 0122 Code L0122 012C Code L012C 0139 Code L0139 013B Code L013B 013D Code L013D 0150 Code L0150 0160 Code L0160 0169 Code L0169 016B Code L016B 0182 Code L0182 01C1 Code L01C1 01D6 Code L01D6 01E0 Code L01E0 01EE Code L01EE 01F2 Code L01F2 0202 Code L0202 020F Code L020F 0212 Code L0212 021C Code L021C 022A Code L022A 022E Code L022E 022F Code L022F 0235 Code L0235 0247 Code L0247 024D Code L024D 0257 Code L0257 025D Code L025D 027B Code L027B 027D Code L027D 0285 Code L0285 0287 Code L0287 029F Code L029F 02B6 Code L02B6 02B8 Code L02B8 02BC Code L02BC 02C4 Code L02C4 02CA Code L02CA 02D5 Code L02D5 02D7 Code L02D7 02DB Code L02DB 02E8 Code L02E8 0305 Code L0305 0324 Code L0324 0372 Code L0372 037A Code L037A 038B Code L038B 0393 Code L0393 0394 Code L0394 039D Code L039D 03A4 Code L03A4 03AB Code L03AB 03B0 Code L03B0 03B7 Code L03B7 03C0 Code L03C0 03C8 Code L03C8 03CC Code L03CC 03CE Code L03CE 03D5 Code L03D5 03D9 Code L03D9 03E1 Code L03E1 03E8 Code L03E8 03ED Code L03ED 03F1 Code L03F1 03F3 Code L03F3 03F5 Code L03F5 03F7 Code L03F7 0402 Code L0402 0406 Code L0406 040C Code L040C 041B Code L041B 041F Code L041F 0421 Code L0421 0425 Code L0425 0427 Code L0427 042B Code L042B 0432 Code L0432 0442 Code L0442 0444 Code L0444 0456 Code L0456 0457 Code L0457 0464 Code L0464 046F Code L046F 0477 Code L0477 047E Code L047E 0484 Code L0484 0489 Code L0489 0490 Code L0490 0491 Code L0491 049C Code L049C 04A4 Code L04A4 04A5 Code L04A5 04B7 Code L04B7 04BC Code L04BC 04BD Code L04BD 04BE Code L04BE 04BF Code L04BF 04C7 Code L04C7 04CD Code L04CD 04D3 Code L04D3 04D6 Code L04D6 04DD Code L04DD 0502 Code L0502 0507 Code L0507 0517 Code L0517 0521 Code L0521 052A Code L052A 0535 Code L0535 0539 Code L0539 0540 Code L0540 0548 Code L0548 054E Code L054E 0622 Code L0622 0639 Code L0639 064F Code L064F 0655 Code L0655 0664 Code L0664 066F Code L066F 0670 Code L0670 0688 Code L0688 068A Code L068A 068D Code L068D 0693 Code L0693 0695 Code L0695 06AD Code L06AD 06B2 Code L06B2 06BB Code L06BB 06BC Code L06BC 06C5 Code L06C5 06C9 Code L06C9 06D3 Code L06D3 0705 Code L0705 0706 Code L0706 0718 Code L0718 0726 Code L0726 072A Code L072A 0744 Code L0744 074C Code L074C 074E Code L074E 0752 Code L0752 0754 Code L0754 0756 Code L0756 0758 Code L0758 0767 Code L0767 076D Code L076D 076E Code L076E 0770 Code L0770 0773 Code L0773 0782 Code L0782 078E Code L078E 0796 Code L0796 0797 Code L0797 079E Code L079E 07A5 Code L07A5 07A9 Code L07A9 07AB Code L07AB 07B0 Code L07B0 07BB Code L07BB 07BD Code L07BD 07C4 Code L07C4 07C8 Code L07C8 07D3 Code L07D3 07E7 Code L07E7 07EF Code L07EF 07F3 Code L07F3 07F5 Code L07F5 Number of symbols: 198 ;--------------------------------------------------------------