; ; Disassembled by: ; DASMx object code disassembler ; (c) Copyright 1996-2003 Conquest Consultants ; Version 1.40 (Oct 18 2003) ; ; File: G:\5218\8493683.bin ; ; Size: 2048 bytes ; Checksum: B967 ; CRC-32: DDE96CAE ; ; Date: Sat Sep 28 03:43:54 2024 ; ; CPU: Intel 8048 (MCS-48 family) ; ; ; org 00000H ; 0000 L0000: 0000 : 84 C8 " " jmp L04C8 ; 0002 L0002: 0002 : FF " " mov a,r7 0003 L0003: 0003 : D5 " " sel rb1 0004 : A4 02 " " jmp L0502 ; 0006 : FF " " mov a,r7 0007 L0007: 0007 : D5 " " sel rb1 0008 : A0 " " mov @r0,a 0009 : 16 0B " " jtf L000B 000B L000B: 000B : FA " " mov a,r2 000C : 72 3C "r<" jb3 L003C 000E : F9 " " mov a,r1 000F : 3A ":" outl p2,a 0010 : 76 2A "v*" jf1 L002A 0012 : FA " " mov a,r2 0013 : D2 1B " " jb6 L001B 0015 : 74 08 "t " call L0308 0017 : 14 42 " B" call L0042 0019 : 04 3E " >" jmp L003E ; 001B L001B: 001B : 16 1D " " jtf L001D 001D L001D: 001D : 74 08 "t " call L0308 001F : 14 42 " B" call L0042 0021 L0021: 0021 : 16 0B " " jtf L000B 0023 : F4 E7 " " call L07E7 0025 : 53 07 "S " anl a,#007H 0027 : DF " " xrl a,r7 0028 : 96 21 " !" jnz L0021 002A L002A: 002A : 1B " " inc r3 002B L002B: 002B : EB 2F " /" djnz r3,L002F 002D : 04 33 " 3" jmp L0033 ; 002F L002F: 002F : 74 08 "t " call L0308 0031 : 04 2B " +" jmp L002B ; 0033 L0033: 0033 : 14 7D " }" call L007D 0035 : FA " " mov a,r2 0036 : 53 BF "S " anl a,#0BFH 0038 : AA " " mov r2,a 0039 : A5 " " clr f1 003A : 04 3E " >" jmp L003E ; 003C L003C: 003C : 94 07 " " call L0407 003E L003E: 003E : B8 3B " ;" mov r0,#03BH 0040 : F0 " " mov a,@r0 0041 : 93 " " retr ; 0042 L0042: 0042 : B8 22 " "" mov r0,#022H 0044 : F0 " " mov a,@r0 0045 : B3 " " jmpp @a ;INFO: indirect jump ; 0046 : 49 "I" orl a,r1 0047 : 5B "[" anl a,r3 0048 : 67 "g" rrc a 0049 : FF " " mov a,r7 004A : E3 " " movp3 a,@a 004B : 62 "b" mov t,a 004C : 1F " " inc r7 004D : EE 7C " |" djnz r6,L007C 004F : CF " " dec r7 0050 : 10 " " inc @r0 0051 : FD " " mov a,r5 0052 : 96 7C " |" jnz L007C 0054 : 10 " " inc @r0 0055 : FF " " mov a,r7 0056 : E3 " " movp3 a,@a 0057 : E7 " " rl a 0058 : 62 "b" mov t,a 0059 : 04 7C " |" jmp L007C ; 005B : FF " " mov a,r7 005C : E3 " " movp3 a,@a 005D : 62 "b" mov t,a 005E : ED 7C " |" djnz r5,L007C 0060 : 10 " " inc @r0 0061 : FA " " mov a,r2 0062 : 43 10 "C " orl a,#010H 0064 : AA " " mov r2,a 0065 : 04 7C " |" jmp L007C ; 0067 : FC " " mov a,r4 0068 : E3 " " movp3 a,@a 0069 : 62 "b" mov t,a 006A : CC " " dec r4 006B : 23 03 "# " mov a,#003H 006D : DB " " xrl a,r3 006E : 96 79 " y" jnz L0079 0070 : F9 " " mov a,r1 0071 : 37 "7" cpl a 0072 : 53 07 "S " anl a,#007H 0074 : AF " " mov r7,a 0075 : FA " " mov a,r2 0076 : 43 40 "C@" orl a,#040H 0078 : AA " " mov r2,a 0079 L0079: 0079 : EB 7C " |" djnz r3,L007C 007B : B5 " " cpl f1 007C L007C: 007C : 83 " " ret ; 007D L007D: 007D : 74 08 "t " call L0308 007F : FA " " mov a,r2 0080 : B2 84 " " jb5 L0084 0082 : 74 08 "t " call L0308 0084 L0084: 0084 : F9 " " mov a,r1 0085 : 3A ":" outl p2,a 0086 : 65 "e" stop tcnt 0087 : 35 "5" dis tcnti 0088 : 9A F7 " " anl p2,#0F7H 008A : B8 32 " 2" mov r0,#032H 008C : F0 " " mov a,@r0 008D : 43 10 "C " orl a,#010H 008F : A0 " " mov @r0,a 0090 : B8 39 " 9" mov r0,#039H 0092 : F0 " " mov a,@r0 0093 : 53 FD "S " anl a,#0FDH 0095 : A0 " " mov @r0,a 0096 : B8 21 " !" mov r0,#021H 0098 : F0 " " mov a,@r0 0099 : 53 07 "S " anl a,#007H 009B : 03 A3 " " add a,#0A3H 009D : A3 " " movp a,@a 009E : 62 "b" mov t,a 009F : 16 A1 " " jtf L00A1 00A1 L00A1: 00A1 : 55 "U" strt t 00A2 : 83 " " ret ; 00A3 : E8 BC " " djnz r0,L00BC ; 00A5 : C2 " " db 0C2H ; 00A6 : CA " " dec r2 00A7 : CD " " dec r5 00A8 : FF " " mov a,r7 00A9 : FF " " mov a,r7 00AA : FF " " mov a,r7 00AB : FF " " mov a,r7 00AC : FF " " mov a,r7 00AD : FF " " mov a,r7 00AE : FF " " mov a,r7 00AF : FF " " mov a,r7 00B0 : FF " " mov a,r7 00B1 : FF " " mov a,r7 00B2 : FF " " mov a,r7 00B3 : FF " " mov a,r7 00B4 : FF " " mov a,r7 00B5 : FF " " mov a,r7 00B6 : FF " " mov a,r7 00B7 : FF " " mov a,r7 00B8 L00B8: 00B8 : FF " " mov a,r7 00B9 : FF " " mov a,r7 00BA : FF " " mov a,r7 00BB : FF " " mov a,r7 00BC L00BC: 00BC : FF " " mov a,r7 00BD : FF " " mov a,r7 00BE : FF " " mov a,r7 00BF : FF " " mov a,r7 00C0 : FF " " mov a,r7 00C1 : FF " " mov a,r7 00C2 : FF " " mov a,r7 00C3 : FF " " mov a,r7 00C4 : FF " " mov a,r7 00C5 : FF " " mov a,r7 00C6 : FF " " mov a,r7 00C7 : FF " " mov a,r7 00C8 : FF " " mov a,r7 00C9 : FF " " mov a,r7 00CA : FF " " mov a,r7 00CB : FF " " mov a,r7 00CC : FF " " mov a,r7 00CD : FF " " mov a,r7 00CE : FF " " mov a,r7 00CF : FF " " mov a,r7 00D0 : FF " " mov a,r7 00D1 : FF " " mov a,r7 00D2 : FF " " mov a,r7 00D3 : FF " " mov a,r7 00D4 : FF " " mov a,r7 00D5 : FF " " mov a,r7 00D6 : FF " " mov a,r7 00D7 : FF " " mov a,r7 00D8 : FF " " mov a,r7 00D9 : FF " " mov a,r7 00DA : FF " " mov a,r7 00DB : FF " " mov a,r7 00DC : FF " " mov a,r7 00DD : FF " " mov a,r7 00DE : FF " " mov a,r7 00DF : FF " " mov a,r7 00E0 : FF " " mov a,r7 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 : B8 32 " 2" mov r0,#032H 0104 : F0 " " mov a,@r0 0105 : D2 0B " " jb6 L010B 0107 : 86 16 " " jni L0116 0109 : 74 18 "t " call L0318 010B L010B: 010B : F0 " " mov a,@r0 010C : 37 "7" cpl a 010D : 92 16 " " jb4 L0116 010F : 42 "B" mov a,t 0110 : 03 FB " " add a,#0FBH 0112 : F6 16 " " jc L0116 0114 : 89 40 " @" orl p1,#040H 0116 L0116: 0116 : F4 E7 " " call L07E7 0118 : 72 23 "r#" jb3 L0123 011A : F0 " " mov a,@r0 011B : 12 23 " #" jb0 L0123 011D : B9 32 " 2" mov r1,#032H 011F : BA 01 " " mov r2,#001H 0121 : F4 14 " " call L0714 0123 L0123: 0123 : 54 05 "T " call L0205 0125 : 24 02 "$ " jmp L0102 ; 0127 L0127: 0127 : 89 FF " " orl p1,#0FFH 0129 : 8A FF " " orl p2,#0FFH 012B : B8 32 " 2" mov r0,#032H 012D : B0 00 " " mov @r0,#000H 012F : B8 39 " 9" mov r0,#039H 0131 : B0 00 " " mov @r0,#000H 0133 : 18 " " inc r0 0134 : B0 00 " " mov @r0,#000H 0136 : B9 F8 " " mov r1,#0F8H 0138 : B8 2A " *" mov r0,#02AH 013A : BB 08 " " mov r3,#008H 013C L013C: 013C : F9 " " mov a,r1 013D : E3 " " movp3 a,@a 013E : A0 " " mov @r0,a 013F : 18 " " inc r0 0140 : 19 " " inc r1 0141 : EB 3C " <" djnz r3,L013C 0143 : D5 " " sel rb1 0144 : B9 FE " " mov r1,#0FEH 0146 : 85 " " clr f0 0147 : B8 23 " #" mov r0,#023H 0149 : B0 04 " " mov @r0,#004H 014B : BA 00 " " mov r2,#000H 014D : C5 " " sel rb0 014E : 9A F6 " " anl p2,#0F6H 0150 : 35 "5" dis tcnti 0151 : 16 53 " S" jtf L0153 0153 L0153: 0153 : 54 F6 "T " call L02F6 0155 : 23 EE "# " mov a,#0EEH 0157 : 3A ":" outl p2,a 0158 : 83 " " ret ; 0159 L0159: 0159 : BE 00 " " mov r6,#000H 015B : BD 00 " " mov r5,#000H 015D : B8 22 " "" mov r0,#022H 015F : B0 46 " F" mov @r0,#046H 0161 : B8 20 " " mov r0,#020H 0163 : F0 " " mov a,@r0 0164 : A8 " " mov r0,a 0165 : 03 FB " " add a,#0FBH 0167 : E6 6B " k" jnc L016B 0169 : B8 05 " " mov r0,#005H 016B L016B: 016B : F8 " " mov a,r0 016C : 03 6F " o" add a,#06FH 016E : B3 " " jmpp @a ;INFO: indirect jump ; 016F : 75 "u" ent0 clk 0170 : 77 "w" rr a ; 0171 : 82 8B " " db 082H, 08BH ; 0173 : 99 A2 " " anl p1,#0A2H 0175 : 24 C2 "$ " jmp L01C2 ; 0177 : 74 08 "t " call L0308 0179 : D0 " " xrl a,@r0 017A : A9 " " mov r1,a 017B : 95 " " cpl f0 017C : 74 08 "t " call L0308 017E : 14 84 " " call L0084 0180 : 24 C2 "$ " jmp L01C2 ; 0182 : FA " " mov a,r2 0183 : 43 20 "C " orl a,#020H 0185 : AA " " mov r2,a 0186 : B5 " " cpl f1 0187 : BB 00 " " mov r3,#000H 0189 : 24 C2 "$ " jmp L01C2 ; 018B : FA " " mov a,r2 018C : 43 10 "C " orl a,#010H 018E : AA " " mov r2,a 018F : B8 22 " "" mov r0,#022H 0191 : 10 " " inc @r0 0192 : 10 " " inc @r0 0193 : BC B2 " " mov r4,#0B2H 0195 : BB 01 " " mov r3,#001H 0197 : 24 C2 "$ " jmp L01C2 ; 0199 : BF B3 " " mov r7,#0B3H 019B : BC B4 " " mov r4,#0B4H 019D : 1E " " inc r6 019E : BB 02 " " mov r3,#002H 01A0 : 24 C2 "$ " jmp L01C2 ; 01A2 : BF CF " " mov r7,#0CFH 01A4 : BC DB " " mov r4,#0DBH 01A6 : B8 20 " " mov r0,#020H 01A8 : 53 3F "S?" anl a,#03FH 01AA : F0 " " mov a,@r0 01AB : 03 F0 " " add a,#0F0H 01AD : E6 B8 " " jnc L01B8 01AF : BE 0C " " mov r6,#00CH 01B1 : BB 0D " " mov r3,#00DH 01B3 : 17 " " inc a 01B4 : E7 " " rl a 01B5 : AD " " mov r5,a 01B6 : 24 C2 "$ " jmp L01C2 ; 01B8 L01B8: 01B8 : BF B6 " " mov r7,#0B6H 01BA : BC C2 " " mov r4,#0C2H 01BC : F0 " " mov a,@r0 01BD : 03 FE " " add a,#0FEH 01BF : AB " " mov r3,a 01C0 : 07 " " dec a 01C1 : AE " " mov r6,a 01C2 L01C2: 01C2 : FB " " mov a,r3 01C3 : 07 " " dec a 01C4 : 6C "l" add a,r4 01C5 : AC " " mov r4,a 01C6 : 83 " " ret ; 01C7 : FF " " mov a,r7 01C8 : FF " " mov a,r7 01C9 : FF " " mov a,r7 01CA : FF " " mov a,r7 01CB : FF " " mov a,r7 01CC : FF " " mov a,r7 01CD : FF " " mov a,r7 01CE : FF " " mov a,r7 01CF : FF " " mov a,r7 01D0 : FF " " mov a,r7 01D1 : FF " " mov a,r7 01D2 : FF " " mov a,r7 01D3 : FF " " mov a,r7 01D4 : FF " " mov a,r7 01D5 : FF " " mov a,r7 01D6 : FF " " mov a,r7 01D7 : FF " " mov a,r7 01D8 : FF " " mov a,r7 01D9 : FF " " mov a,r7 01DA : FF " " mov a,r7 01DB : FF " " mov a,r7 01DC : FF " " mov a,r7 01DD : FF " " mov a,r7 01DE : FF " " mov a,r7 01DF : FF " " mov a,r7 01E0 : FF " " mov a,r7 01E1 : FF " " mov a,r7 01E2 : FF " " mov a,r7 01E3 : FF " " mov a,r7 01E4 : FF " " mov a,r7 01E5 : FF " " mov a,r7 01E6 : FF " " mov a,r7 01E7 : FF " " mov a,r7 01E8 : FF " " mov a,r7 01E9 : FF " " mov a,r7 01EA : FF " " mov a,r7 01EB : FF " " mov a,r7 01EC : FF " " mov a,r7 01ED : FF " " mov a,r7 01EE : FF " " mov a,r7 01EF : FF " " mov a,r7 01F0 : FF " " mov a,r7 01F1 : FF " " mov a,r7 01F2 : FF " " mov a,r7 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 : 00 " " nop 0203 : 04 07 " " jmp L0007 ; 0205 L0205: 0205 : C5 " " sel rb0 0206 L0206: 0206 : 09 " " in a,p1 0207 : AA " " mov r2,a 0208 : 09 " " in a,p1 0209 : DA " " xrl a,r2 020A : 12 06 " " jb0 L0206 020C : 52 06 "R " jb2 L0206 020E : FA " " mov a,r2 020F : 52 6E "Rn" jb2 L026E 0211 : 12 18 " " jb0 L0218 0213 : B9 39 " 9" mov r1,#039H 0215 : F1 " " mov a,@r1 0216 : 12 6E " n" jb0 L026E 0218 L0218: 0218 : 99 FD " " anl p1,#0FDH 021A : FA " " mov a,r2 021B : 12 26 " &" jb0 L0226 021D : B9 3C " <" mov r1,#03CH 021F : F9 " " mov a,r1 0220 : 03 C7 " " add a,#0C7H 0222 : A3 " " movp a,@a 0223 : AB " " mov r3,a 0224 : 44 2A "D*" jmp L022A ; 0226 L0226: 0226 : B9 3E " >" mov r1,#03EH 0228 : BB 05 " " mov r3,#005H 022A L022A: 022A : AC " " mov r4,a 022B : 54 6F "To" call L026F 022D : F9 " " mov a,r1 022E : D3 3E " >" xrl a,#03EH 0230 : 96 59 " Y" jnz L0259 0232 : F1 " " mov a,@r1 0233 : 53 18 "S " anl a,#018H 0235 : C6 55 " U" jz L0255 0237 : D3 10 " " xrl a,#010H 0239 : 96 45 " E" jnz L0245 023B : B9 3F " ?" mov r1,#03FH 023D : BB 08 " " mov r3,#008H 023F : 54 6F "To" call L026F 0241 : D4 22 " "" call L0622 0243 : 44 53 "DS" jmp L0253 ; 0245 L0245: 0245 : D3 18 " " xrl a,#018H 0247 : 96 4D " M" jnz L024D 0249 : BB 04 " " mov r3,#004H 024B : 44 4F "DO" jmp L024F ; 024D L024D: 024D : BB 08 " " mov r3,#008H 024F L024F: 024F : D4 22 " "" call L0622 0251 : 54 97 "T " call L0297 0253 L0253: 0253 : 44 57 "DW" jmp L0257 ; 0255 L0255: 0255 : D4 22 " "" call L0622 0257 L0257: 0257 : 44 6E "Dn" jmp L026E ; 0259 L0259: 0259 : F9 " " mov a,r1 025A : D3 3D " =" xrl a,#03DH 025C : C6 68 " h" jz L0268 025E : 19 " " inc r1 025F : F9 " " mov a,r1 0260 : 03 C7 " " add a,#0C7H 0262 : A3 " " movp a,@a 0263 : AB " " mov r3,a 0264 : 54 6F "To" call L026F 0266 : 44 59 "DY" jmp L0259 ; 0268 L0268: 0268 : B9 39 " 9" mov r1,#039H 026A : BA 01 " " mov r2,#001H 026C : F4 14 " " call L0714 026E L026E: 026E : 83 " " ret ; 026F L026F: 026F : 27 "'" clr a 0270 : A1 " " mov @r1,a 0271 L0271: 0271 : FA " " mov a,r2 0272 : 52 83 "R " jb2 L0283 0274 L0274: 0274 : 09 " " in a,p1 0275 : AA " " mov r2,a 0276 : 37 "7" cpl a 0277 : 52 74 "Rt" jb2 L0274 0279 : 09 " " in a,p1 027A : DA " " xrl a,r2 027B : 12 74 " t" jb0 L0274 027D : 52 74 "Rt" jb2 L0274 027F : 89 02 " " orl p1,#002H 0281 : 44 8F "D " jmp L028F ; 0283 L0283: 0283 : 09 " " in a,p1 0284 : 52 83 "R " jb2 L0283 0286 : AA " " mov r2,a 0287 : 09 " " in a,p1 0288 : DA " " xrl a,r2 0289 : 12 83 " " jb0 L0283 028B : 52 83 "R " jb2 L0283 028D : 99 FD " " anl p1,#0FDH 028F L028F: 028F : FA " " mov a,r2 0290 : 67 "g" rrc a 0291 : F1 " " mov a,@r1 0292 : F7 " " rlc a 0293 : A1 " " mov @r1,a 0294 : EB 71 " q" djnz r3,L0271 0296 : 83 " " ret ; 0297 L0297: 0297 : A9 " " mov r1,a 0298 L0298: 0298 : 09 " " in a,p1 0299 : 52 98 "R " jb2 L0298 029B : 09 " " in a,p1 029C : AA " " mov r2,a 029D : 52 98 "R " jb2 L0298 029F L029F: 029F : F9 " " mov a,r1 02A0 : 67 "g" rrc a 02A1 : A9 " " mov r1,a 02A2 : F6 A6 " " jc L02A6 02A4 : 44 AA "D " jmp L02AA ; 02A6 L02A6: 02A6 : 89 01 " " orl p1,#001H 02A8 : 44 AC "D " jmp L02AC ; 02AA L02AA: 02AA : 99 FE " " anl p1,#0FEH 02AC L02AC: 02AC : FA " " mov a,r2 02AD : 52 BC "R " jb2 L02BC 02AF : 99 FD " " anl p1,#0FDH 02B1 L02B1: 02B1 : 09 " " in a,p1 02B2 : 37 "7" cpl a 02B3 : 52 B1 "R " jb2 L02B1 02B5 : 09 " " in a,p1 02B6 : AA " " mov r2,a 02B7 : 37 "7" cpl a 02B8 : 52 B1 "R " jb2 L02B1 02BA : 44 C5 "D " jmp L02C5 ; 02BC L02BC: 02BC : 89 02 " " orl p1,#002H 02BE L02BE: 02BE : 09 " " in a,p1 02BF : 52 BE "R " jb2 L02BE 02C1 : 09 " " in a,p1 02C2 : AA " " mov r2,a 02C3 : 52 BE "R " jb2 L02BE 02C5 L02C5: 02C5 : EB 9F " " djnz r3,L029F 02C7 : 99 FD " " anl p1,#0FDH 02C9 L02C9: 02C9 : 09 " " in a,p1 02CA : 37 "7" cpl a 02CB : 52 C9 "R " jb2 L02C9 02CD : 09 " " in a,p1 02CE : 37 "7" cpl a 02CF : 52 C9 "R " jb2 L02C9 02D1 : 89 03 " " orl p1,#003H 02D3 : 83 " " ret ; 02D4 : FF " " mov a,r7 02D5 : FF " " mov a,r7 02D6 : FF " " mov a,r7 02D7 : FF " " mov a,r7 02D8 : FF " " mov a,r7 02D9 : FF " " mov a,r7 02DA : FF " " mov a,r7 02DB : FF " " mov a,r7 02DC : FF " " mov a,r7 02DD : FF " " mov a,r7 02DE : FF " " mov a,r7 02DF : FF " " mov a,r7 02E0 : FF " " mov a,r7 02E1 : FF " " mov a,r7 02E2 : FF " " mov a,r7 02E3 : FF " " mov a,r7 02E4 : FF " " mov a,r7 02E5 : FF " " mov a,r7 02E6 : FF " " mov a,r7 02E7 : FF " " mov a,r7 02E8 : FF " " mov a,r7 02E9 : FF " " mov a,r7 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 L02F6: 02F6 : 23 06 "# " mov a,#006H 02F8 : 62 "b" mov t,a 02F9 : 55 "U" strt t 02FA L02FA: 02FA : 16 FE " " jtf L02FE 02FC : 44 FA "D " jmp L02FA ; 02FE L02FE: 02FE : 65 "e" stop tcnt 02FF : 83 " " ret 0300 : 04 00 " " jmp L0000 ; 0302 : 02 " " outl bus,a 0303 : 04 02 " " jmp L0002 ; 0305 : 01 01 " " db 001H, 001H ; 0307 : 04 B8 " " jmp L00B8 ; 0309 : 23 F0 "# " mov a,#0F0H 030B : B6 0F " " jf0 L030F 030D : D3 07 " " xrl a,#007H 030F L030F: 030F : 00 " " nop 0310 : 00 " " nop 0311 : 00 " " nop 0312 : 17 " " inc a 0313 : A3 " " movp a,@a 0314 : A0 " " mov @r0,a 0315 : D9 " " xrl a,r1 0316 : A9 " " mov r1,a 0317 : 83 " " ret ; 0318 L0318: 0318 : B9 39 " 9" mov r1,#039H 031A : F1 " " mov a,@r1 031B : 12 1F " " jb0 L031F 031D : 64 B1 "d " jmp L03B1 ; 031F L031F: 031F : 05 " " en i 0320 : 53 F6 "S " anl a,#0F6H 0322 : 43 02 "C " orl a,#002H 0324 : A1 " " mov @r1,a 0325 : 99 BF " " anl p1,#0BFH 0327 L0327: 0327 : D5 " " sel rb1 0328 : B8 32 " 2" mov r0,#032H 032A : F0 " " mov a,@r0 032B : 53 02 "S " anl a,#002H 032D : 43 40 "C@" orl a,#040H 032F : A0 " " mov @r0,a 0330 : BA 00 " " mov r2,#000H 0332 : A5 " " clr f1 0333 : 32 49 "2I" jb1 L0349 0335 : F4 E7 " " call L07E7 0337 : 53 60 "S`" anl a,#060H 0339 : C6 49 " I" jz L0349 033B : B8 3A " :" mov r0,#03AH 033D : 40 "@" orl a,@r0 033E : A0 " " mov @r0,a 033F : 23 02 "# " mov a,#002H 0341 : F4 32 " 2" call L0732 0343 : B8 21 " !" mov r0,#021H 0345 : B0 00 " " mov @r0,#000H 0347 : 64 A4 "d " jmp L03A4 ; 0349 L0349: 0349 : B8 3C " <" mov r0,#03CH 034B : F0 " " mov a,@r0 034C : B8 3D " =" mov r0,#03DH 034E : 37 "7" cpl a 034F : 72 5D "r]" jb3 L035D 0351 : F0 " " mov a,@r0 0352 : D3 03 " " xrl a,#003H 0354 : 96 7F " " jnz L037F 0356 : 0A " " in a,p2 0357 : 53 07 "S " anl a,#007H 0359 : D3 06 " " xrl a,#006H 035B : 96 7F " " jnz L037F 035D L035D: 035D : B8 3C " <" mov r0,#03CH 035F : F0 " " mov a,@r0 0360 : B8 21 " !" mov r0,#021H 0362 : A0 " " mov @r0,a 0363 : 53 07 "S " anl a,#007H 0365 : 03 FB " " add a,#0FBH 0367 : F6 77 " w" jc L0377 0369 : B8 3D " =" mov r0,#03DH 036B : F0 " " mov a,@r0 036C : B8 20 " " mov r0,#020H 036E : 53 3F "S?" anl a,#03FH 0370 : A0 " " mov @r0,a 0371 : 03 CF " " add a,#0CFH 0373 : F6 77 " w" jc L0377 0375 : 64 85 "d " jmp L0385 ; 0377 L0377: 0377 : 27 "'" clr a 0378 : A0 " " mov @r0,a 0379 : B8 39 " 9" mov r0,#039H 037B : F0 " " mov a,@r0 037C : 43 08 "C " orl a,#008H 037E : A0 " " mov @r0,a 037F L037F: 037F : 23 40 "#@" mov a,#040H 0381 : F4 2E " ." call L072E 0383 : 64 A4 "d " jmp L03A4 ; 0385 L0385: 0385 : F0 " " mov a,@r0 0386 : B8 3D " =" mov r0,#03DH 0388 : C6 A4 " " jz L03A4 038A : C7 " " mov a,psw 038B : E7 " " rl a 038C : D0 " " xrl a,@r0 038D : 37 "7" cpl a 038E : D2 95 " " jb6 L0395 0390 : 74 08 "t " call L0308 0392 : D0 " " xrl a,@r0 0393 : A9 " " mov r1,a 0394 : 95 " " cpl f0 0395 L0395: 0395 : 74 08 "t " call L0308 0397 : 74 08 "t " call L0308 0399 : F9 " " mov a,r1 039A : 3A ":" outl p2,a 039B : 23 50 "#P" mov a,#050H 039D : 62 "b" mov t,a 039E : 74 08 "t " call L0308 03A0 : 45 "E" strt cnt 03A1 : 25 "%" en tcnti 03A2 : 64 AC "d " jmp L03AC ; 03A4 L03A4: 03A4 : 89 40 " @" orl p1,#040H 03A6 : B8 32 " 2" mov r0,#032H 03A8 : B0 50 " P" mov @r0,#050H 03AA : BA 80 " " mov r2,#080H 03AC L03AC: 03AC : 34 59 "4Y" call L0159 03AE : B8 3B " ;" mov r0,#03BH 03B0 : C5 " " sel rb0 03B1 L03B1: 03B1 : 83 " " ret ; 03B2 : 7E "~" addc a,r6 03B3 : ED C0 " " djnz r5,L03C0 03B5 : 36 CA "6 " jt0 L03CA 03B7 : D4 DD " " call L06DD 03B9 : E4 E8 " " jmp L07E8 ; 03BB : E9 EA " " djnz r1,L03EA 03BD : EB EC " " djnz r3,L03EC 03BF : ED EE " " djnz r5,L03EE 03C1 : EF CA " " djnz r7,L03CA 03C3 : D4 D9 " " call L06D9 03C5 : DD " " xrl a,r5 ; 03C6 : E2 " " db 0E2H ; 03C7 : E5 " " sel mb0 03C8 : E8 E9 " " djnz r0,L03E9 03CA L03CA: 03CA : EA EB " " djnz r2,L03EB 03CC L03CC: 03CC : EC ED " " djnz r4,L03ED 03CE : EE CA " " djnz r6,L03CA 03D0 : D4 DD " " call L06DD 03D2 : E4 E8 " " jmp L07E8 ; 03D4 : E9 EA " " djnz r1,L03EA 03D6 : EB EC " " djnz r3,L03EC 03D8 : ED EE " " djnz r5,L03EE 03DA : F0 " " mov a,@r0 03DB : CA " " dec r2 03DC : D4 D9 " " call L06D9 03DE : DD " " xrl a,r5 ; 03DF : E2 " " db 0E2H ; 03E0 : E5 " " sel mb0 03E1 : E8 E9 " " djnz r0,L03E9 03E3 : EA EB " " djnz r2,L03EB 03E5 : EC ED " " djnz r4,L03ED 03E7 : EE CC " " djnz r6,L03CC 03E9 L03E9: 03E9 : 84 74 " t" jmp L0474 ; 03EB L03EB: 03EB : 5C "\" anl a,r4 ; 03EC L03EC: 03EC : C2 " " db 0C2H ; 03ED L03ED: 03ED : 7B "{" addc a,r3 ; 03EE L03EE: 03EE : 87 " " db 087H ; 03EF : 94 C2 " " call L04C2 03F1 : 42 "B" mov a,t 03F2 : BF BA " " mov r7,#0BAH ; 03F4 : A6 " " db 0A6H ; 03F5 : 42 "B" mov a,t 03F6 : DC " " xrl a,r4 ; 03F7 : C3 " " db 0C3H ; 03F8 : 26 F0 "& " jnt0 L03F0 03FA : 26 F0 "& " jnt0 L03F0 03FC : 1B " " inc r3 03FD : F0 " " mov a,@r0 03FE : 1B " " inc r3 03FF : F0 " " mov a,@r0 0400 : 04 00 " " jmp L0000 ; 0402 : 0D " " movd a,p5 0403 : 14 33 " 3" call L0033 0405 : 45 "E" strt cnt 0406 : AE " " mov r6,a 0407 L0407: 0407 : 1A " " inc r2 0408 : 53 07 "S " anl a,#007H 040A : 03 02 " " add a,#002H 040C : B3 " " jmpp @a ;INFO: indirect jump ; 040D : 9A DF " " anl p2,#0DFH 040F : 23 80 "# " mov a,#080H 0411 : 62 "b" mov t,a 0412 : 84 C0 " " jmp L04C0 ; 0414 : 1C " " inc r4 0415 : FC " " mov a,r4 0416 : E3 " " movp3 a,@a 0417 : 62 "b" mov t,a 0418 : 09 " " in a,p1 0419 : 53 A0 "S " anl a,#0A0H 041B : D3 A0 " " xrl a,#0A0H 041D : C6 31 " 1" jz L0431 041F : 8A 20 " " orl p2,#020H 0421 : B8 39 " 9" mov r0,#039H 0423 : F0 " " mov a,@r0 0424 : 43 04 "C " orl a,#004H 0426 : A0 " " mov @r0,a 0427 : 99 BF " " anl p1,#0BFH 0429 : B8 32 " 2" mov r0,#032H 042B : F0 " " mov a,@r0 042C : 53 EF "S " anl a,#0EFH 042E : A0 " " mov @r0,a 042F : BA 0C " " mov r2,#00CH 0431 L0431: 0431 : 84 C0 " " jmp L04C0 ; 0433 : 8A 20 " " orl p2,#020H 0435 : 1C " " inc r4 0436 : FC " " mov a,r4 0437 : E3 " " movp3 a,@a 0438 : 62 "b" mov t,a 0439 : F4 E7 " " call L07E7 043B : F2 43 " C" jb7 L0443 043D : 23 04 "# " mov a,#004H 043F : F4 32 " 2" call L0732 0441 : BA 0C " " mov r2,#00CH 0443 L0443: 0443 : 84 C0 " " jmp L04C0 ; 0445 : 23 C0 "# " mov a,#0C0H 0447 : 62 "b" mov t,a 0448 : F4 E7 " " call L07E7 044A : F2 5D " ]" jb7 L045D 044C : FB " " mov a,r3 044D : A8 " " mov r0,a 044E : F0 " " mov a,@r0 044F : C6 55 " U" jz L0455 0451 : 07 " " dec a 0452 : A0 " " mov @r0,a 0453 : 84 5B " [" jmp L045B ; 0455 L0455: 0455 : B8 3A " :" mov r0,#03AH 0457 : F0 " " mov a,@r0 0458 : 43 01 "C " orl a,#001H 045A : A0 " " mov @r0,a 045B L045B: 045B : 84 A8 " " jmp L04A8 ; 045D L045D: 045D : 08 " " ins a,bus 045E : 16 62 " b" jtf L0462 0460 : F2 5D " ]" jb7 L045D 0462 L0462: 0462 : F2 73 " s" jb7 L0473 0464 : 42 "B" mov a,t 0465 : 03 FD " " add a,#0FDH 0467 : AD " " mov r5,a 0468 : 1C " " inc r4 0469 : FC " " mov a,r4 046A : E3 " " movp3 a,@a 046B : 62 "b" mov t,a 046C : 08 " " ins a,bus 046D : F2 71 " q" jb7 L0471 046F : B4 66 " f" call L0566 0471 L0471: 0471 : 84 AC " " jmp L04AC ; 0473 L0473: 0473 : B8 39 " 9" mov r0,#039H 0475 : F0 " " mov a,@r0 0476 : 43 20 "C " orl a,#020H 0478 : A0 " " mov @r0,a 0479 : FB " " mov a,r3 047A : A8 " " mov r0,a 047B : F0 " " mov a,@r0 047C : 17 " " inc a 047D : D2 82 " " jb6 L0482 047F : A0 " " mov @r0,a 0480 : 84 88 " " jmp L0488 ; 0482 L0482: 0482 : B8 3A " :" mov r0,#03AH 0484 : F0 " " mov a,@r0 0485 : 43 08 "C " orl a,#008H 0487 : A0 " " mov @r0,a 0488 L0488: 0488 : 23 36 "#6" mov a,#036H 048A : 62 "b" mov t,a 048B L048B: 048B : F4 E7 " " call L07E7 048D : 16 91 " " jtf L0491 048F : F2 8B " " jb7 L048B 0491 L0491: 0491 : F2 95 " " jb7 L0495 0493 : 84 A8 " " jmp L04A8 ; 0495 L0495: 0495 : 23 08 "# " mov a,#008H 0497 : F4 2E " ." call L072E 0499 : B8 3C " <" mov r0,#03CH 049B : B0 00 " " mov @r0,#000H 049D : 18 " " inc r0 049E : B0 00 " " mov @r0,#000H 04A0 : F4 E7 " " call L07E7 04A2 : 53 20 "S " anl a,#020H 04A4 : B8 3A " :" mov r0,#03AH 04A6 : 40 "@" orl a,@r0 04A7 : A0 " " mov @r0,a 04A8 L04A8: 04A8 : 1C " " inc r4 04A9 : FC " " mov a,r4 04AA : E3 " " movp3 a,@a 04AB : 62 "b" mov t,a 04AC L04AC: 04AC : 84 C0 " " jmp L04C0 ; 04AE : 65 "e" stop tcnt 04AF : 35 "5" dis tcnti 04B0 : B8 32 " 2" mov r0,#032H 04B2 : B0 00 " " mov @r0,#000H 04B4 : B8 39 " 9" mov r0,#039H 04B6 : F0 " " mov a,@r0 04B7 : 53 FD "S " anl a,#0FDH 04B9 : A0 " " mov @r0,a 04BA : 12 C0 " " jb0 L04C0 04BC : 9A EF " " anl p2,#0EFH 04BE : 8A 08 " " orl p2,#008H 04C0 L04C0: 04C0 : 83 " " ret ; 04C1 : FF " " mov a,r7 04C2 L04C2: 04C2 : FF " " mov a,r7 04C3 : FF " " mov a,r7 04C4 : FF " " mov a,r7 04C5 : FF " " mov a,r7 04C6 : FF " " mov a,r7 04C7 : FF " " mov a,r7 04C8 L04C8: 04C8 : B8 37 " 7" mov r0,#037H 04CA : B9 3F " ?" mov r1,#03FH 04CC : F0 " " mov a,@r0 04CD : A1 " " mov @r1,a 04CE : B0 80 " " mov @r0,#080H 04D0 : C8 " " dec r0 04D1 : B9 3A " :" mov r1,#03AH 04D3 : F0 " " mov a,@r0 04D4 : B0 00 " " mov @r0,#000H 04D6 : C8 " " dec r0 04D7 : 40 "@" orl a,@r0 04D8 : A1 " " mov @r1,a 04D9 : 27 "'" clr a 04DA : A0 " " mov @r0,a 04DB : C8 " " dec r0 04DC : A0 " " mov @r0,a 04DD : 99 F7 " " anl p1,#0F7H 04DF : B8 3E " >" mov r0,#03EH 04E1 : B0 00 " " mov @r0,#000H 04E3 L04E3: 04E3 : 54 05 "T " call L0205 04E5 : B9 39 " 9" mov r1,#039H 04E7 : F1 " " mov a,@r1 04E8 : 53 FE "S " anl a,#0FEH 04EA : A1 " " mov @r1,a 04EB : B8 3E " >" mov r0,#03EH 04ED : F0 " " mov a,@r0 04EE : D3 06 " " xrl a,#006H 04F0 : 96 E3 " " jnz L04E3 04F2 : 24 02 "$ " jmp L0102 ; 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 3B " ;" mov r0,#03BH 0504 : A0 " " mov @r0,a 0505 : 89 40 " @" orl p1,#040H 0507 : B8 21 " !" mov r0,#021H 0509 : F0 " " mov a,@r0 050A : 72 0E "r " jb3 L050E 050C : A4 17 " " jmp L0517 ; 050E L050E: 050E : B8 32 " 2" mov r0,#032H 0510 : F0 " " mov a,@r0 0511 : 12 17 " " jb0 L0517 0513 : 23 08 "# " mov a,#008H 0515 : F4 27 " '" call L0727 0517 L0517: 0517 : FA " " mov a,r2 0518 : F2 35 " 5" jb7 L0535 051A : B8 32 " 2" mov r0,#032H 051C : F0 " " mov a,@r0 051D : 92 21 " !" jb4 L0521 051F : A4 2F " /" jmp L052F ; 0521 L0521: 0521 : 16 35 " 5" jtf L0535 0523 : B8 39 " 9" mov r0,#039H 0525 : F0 " " mov a,@r0 0526 : 37 "7" cpl a 0527 : B2 2F " /" jb5 L052F 0529 : 23 04 "# " mov a,#004H 052B : F4 2E " ." call L072E 052D : A4 3C " <" jmp L053C ; 052F L052F: 052F : 23 02 "# " mov a,#002H 0531 : F4 2E " ." call L072E 0533 : A4 3C " <" jmp L053C ; 0535 L0535: 0535 : B8 21 " !" mov r0,#021H 0537 : F0 " " mov a,@r0 0538 : 53 07 "S " anl a,#007H 053A : 96 47 " G" jnz L0547 053C L053C: 053C : B8 32 " 2" mov r0,#032H 053E : F0 " " mov a,@r0 053F : 37 "7" cpl a 0540 : 92 5B " [" jb4 L055B 0542 : 45 "E" strt cnt 0543 : BA 0C " " mov r2,#00CH 0545 : A4 5A " Z" jmp L055A ; 0547 L0547: 0547 : BA 08 " " mov r2,#008H 0549 : E7 " " rl a 054A : AB " " mov r3,a 054B : E7 " " rl a 054C : 03 E4 " " add a,#0E4H 054E : AC " " mov r4,a 054F : E3 " " movp3 a,@a 0550 : 62 "b" mov t,a 0551 : 45 "E" strt cnt 0552 : 23 28 "#(" mov a,#028H 0554 : 6B "k" add a,r3 0555 : AB " " mov r3,a 0556 : A8 " " mov r0,a 0557 : F0 " " mov a,@r0 0558 : 37 "7" cpl a 0559 : 90 " " movx @r0,a 055A L055A: 055A : 25 "%" en tcnti 055B L055B: 055B : B8 39 " 9" mov r0,#039H 055D : F0 " " mov a,@r0 055E : 53 DF "S " anl a,#0DFH 0560 : A0 " " mov @r0,a 0561 : B8 3B " ;" mov r0,#03BH 0563 : F0 " " mov a,@r0 0564 : 15 " " dis i 0565 : 93 " " retr ; 0566 L0566: 0566 : 1B " " inc r3 0567 : FB " " mov a,r3 0568 : A8 " " mov r0,a 0569 : F0 " " mov a,@r0 056A : E7 " " rl a 056B : 60 "`" add a,@r0 056C : 6D "m" add a,r5 056D : 03 13 " " add a,#013H 056F : AF " " mov r7,a 0570 : 03 3D " =" add a,#03DH 0572 : F6 79 " y" jc L0579 0574 : FF " " mov a,r7 0575 : 03 FD " " add a,#0FDH 0577 : A4 7A " z" jmp L057A ; 0579 L0579: 0579 : FF " " mov a,r7 057A L057A: 057A : 77 "w" rr a 057B : 77 "w" rr a 057C : 43 C0 "C " orl a,#0C0H 057E : AF " " mov r7,a 057F : 03 07 " " add a,#007H 0581 : F6 98 " " jc L0598 0583 : FF " " mov a,r7 0584 : 03 18 " " add a,#018H 0586 : E6 8C " " jnc L058C 0588 : FF " " mov a,r7 0589 : A0 " " mov @r0,a 058A : A4 96 " " jmp L0596 ; 058C L058C: 058C : FF " " mov a,r7 058D : 03 09 " " add a,#009H 058F : A0 " " mov @r0,a 0590 : C8 " " dec r0 0591 : F0 " " mov a,@r0 0592 : C6 95 " " jz L0595 0594 : 07 " " dec a 0595 L0595: 0595 : A0 " " mov @r0,a 0596 L0596: 0596 : A4 A2 " " jmp L05A2 ; 0598 L0598: 0598 : FF " " mov a,r7 0599 : 03 F7 " " add a,#0F7H 059B : A0 " " mov @r0,a 059C : C8 " " dec r0 059D : F0 " " mov a,@r0 059E : 17 " " inc a 059F : D2 A2 " " jb6 L05A2 05A1 : A0 " " mov @r0,a 05A2 L05A2: 05A2 : 83 " " ret ; 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 : AA " " mov r2,a 0603 : 28 "(" xch a,r0 0604 : 31 "1" xchd a,@r1 0605 : 43 4B "CK" orl a,#04BH 0607 : AA " " mov r2,a 0608 : 4F "O" orl a,r7 0609 : AA " " mov r2,a 060A : 53 70 "Sp" anl a,#070H 060C : AA " " mov r2,a 060D : AA " " mov r2,a 060E : AA " " mov r2,a 060F : AA " " mov r2,a 0610 : AA " " mov r2,a 0611 : AA " " mov r2,a 0612 : AA " " mov r2,a 0613 : AA " " mov r2,a 0614 : AA " " mov r2,a 0615 : AA " " mov r2,a 0616 : AA " " mov r2,a 0617 : AA " " mov r2,a 0618 : AA " " mov r2,a 0619 : 99 AA " " anl p1,#0AAH 061B : AA " " mov r2,a ; 061C : 9B " " db 09BH ; 061D : A0 " " mov @r0,a 061E : AA " " mov r2,a 061F : AA " " mov r2,a 0620 : AA " " mov r2,a 0621 : A5 " " clr f1 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 : 15 " " dis i 0629 : 35 "5" dis tcnti 062A : 23 08 "# " mov a,#008H 062C : D7 " " mov psw,a 062D : 16 2F " /" jtf L062F 062F L062F: 062F : 04 00 " " jmp L0000 ; 0631 : 65 "e" stop tcnt 0632 : 23 FF "# " mov a,#0FFH 0634 : 62 "b" mov t,a 0635 : 45 "E" strt cnt 0636 : B8 32 " 2" mov r0,#032H 0638 : B0 50 " P" mov @r0,#050H 063A : 14 03 " " call L0003 063C L063C: 063C : F0 " " mov a,@r0 063D : D2 3C " <" jb6 L063C 063F : 89 40 " @" orl p1,#040H 0641 : C4 B5 " " jmp L06B5 ; 0643 : B9 39 " 9" mov r1,#039H 0645 : F1 " " mov a,@r1 0646 : 53 FC "S " anl a,#0FCH 0648 : A1 " " mov @r1,a 0649 : C4 B5 " " jmp L06B5 ; 064B : F4 3D " =" call L073D 064D : C4 B5 " " jmp L06B5 ; 064F : 34 27 "4'" call L0127 0651 : C4 B5 " " jmp L06B5 ; 0653 : 89 48 " H" orl p1,#048H 0655 : B9 36 " 6" mov r1,#036H 0657 : F1 " " mov a,@r1 0658 : 96 62 " b" jnz L0662 065A : 19 " " inc r1 065B : F1 " " mov a,@r1 065C : 96 62 " b" jnz L0662 065E : 23 00 "# " mov a,#000H 0660 : C4 6E " n" jmp L066E ; 0662 L0662: 0662 : 99 F7 " " anl p1,#0F7H 0664 : F4 02 " " call L0702 0666 : F9 " " mov a,r1 0667 : D3 37 " 7" xrl a,#037H 0669 : C6 6D " m" jz L066D 066B : 23 08 "# " mov a,#008H 066D L066D: 066D : 4C "L" orl a,r4 066E L066E: 066E : C4 B7 " " jmp L06B7 ; 0670 : 89 10 " " orl p1,#010H 0672 : B9 35 " 5" mov r1,#035H 0674 : F1 " " mov a,@r1 0675 : C6 91 " " jz L0691 0677 : 72 7B "r{" jb3 L067B 0679 : C4 7D " }" jmp L067D ; 067B L067B: 067B : 89 40 " @" orl p1,#040H 067D L067D: 067D : F4 02 " " call L0702 067F : 23 08 "# " mov a,#008H 0681 : 4C "L" orl a,r4 0682 : AC " " mov r4,a 0683 : F1 " " mov a,@r1 0684 : 96 8C " " jnz L068C 0686 : B9 34 " 4" mov r1,#034H 0688 : F1 " " mov a,@r1 0689 : 37 "7" cpl a 068A : 12 8E " " jb0 L068E 068C L068C: 068C : 99 EF " " anl p1,#0EFH 068E L068E: 068E : FC " " mov a,r4 068F : C4 97 " " jmp L0697 ; 0691 L0691: 0691 : 27 "'" clr a 0692 : B9 34 " 4" mov r1,#034H 0694 : 31 "1" xchd a,@r1 0695 : F1 " " mov a,@r1 0696 : 47 "G" swap a 0697 L0697: 0697 : C4 B7 " " jmp L06B7 0699 : C4 B5 " " jmp L06B5 ; 069B : B9 3A " :" mov r1,#03AH 069D : F1 " " mov a,@r1 069E : C4 B7 " " jmp L06B7 ; 06A0 : B9 39 " 9" mov r1,#039H 06A2 : F1 " " mov a,@r1 06A3 : C4 B7 " " jmp L06B7 ; 06A5 : B9 3F " ?" mov r1,#03FH 06A7 : F1 " " mov a,@r1 06A8 : C4 B7 " " jmp L06B7 ; 06AA : BA 40 " @" mov r2,#040H 06AC : B9 37 " 7" mov r1,#037H 06AE : F4 14 " " call L0714 06B0 : 99 F7 " " anl p1,#0F7H 06B2 : 27 "'" clr a 06B3 : C4 B7 " " jmp L06B7 ; 06B5 L06B5: 06B5 : D4 B8 " " call L06B8 06B7 L06B7: 06B7 : 83 " " ret ; 06B8 L06B8: 06B8 : B9 35 " 5" mov r1,#035H 06BA : BA 01 " " mov r2,#001H 06BC : F4 14 " " call L0714 06BE : 99 EF " " anl p1,#0EFH 06C0 : 83 " " ret ; 06C1 : FF " " mov a,r7 06C2 : FF " " mov a,r7 06C3 : FF " " mov a,r7 06C4 : FF " " mov a,r7 06C5 : FF " " mov a,r7 06C6 : FF " " mov a,r7 06C7 : FF " " mov a,r7 06C8 : FF " " mov a,r7 06C9 : FF " " mov a,r7 06CA : FF " " mov a,r7 06CB : FF " " mov a,r7 06CC : FF " " mov a,r7 06CD : FF " " mov a,r7 06CE : FF " " mov a,r7 06CF : FF " " mov a,r7 06D0 : FF " " mov a,r7 06D1 : FF " " mov a,r7 06D2 : FF " " mov a,r7 06D3 : FF " " mov a,r7 06D4 : FF " " mov a,r7 06D5 : FF " " mov a,r7 06D6 : FF " " mov a,r7 06D7 : FF " " mov a,r7 06D8 : FF " " mov a,r7 06D9 L06D9: 06D9 : FF " " mov a,r7 06DA : FF " " mov a,r7 06DB : FF " " mov a,r7 06DC : FF " " mov a,r7 06DD L06DD: 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 L06F6: 06F6 : 23 A2 "# " mov a,#0A2H 06F8 : 62 "b" mov t,a 06F9 : 45 "E" strt cnt 06FA L06FA: 06FA : 16 FE " " jtf L06FE 06FC : C4 FA " " jmp L06FA ; 06FE L06FE: 06FE : 65 "e" stop tcnt 06FF : 83 " " ret 0700 : 04 00 " " jmp L0000 ; 0702 L0702: 0702 : BA 80 " " mov r2,#080H 0704 : BC 08 " " mov r4,#008H 0706 L0706: 0706 : F1 " " mov a,@r1 0707 : 5A "Z" anl a,r2 0708 : 96 10 " " jnz L0710 070A : FA " " mov a,r2 070B : 77 "w" rr a 070C : AA " " mov r2,a 070D : EC 06 " " djnz r4,L0706 070F : 1C " " inc r4 0710 L0710: 0710 : F4 14 " " call L0714 0712 : CC " " dec r4 0713 : 83 " " ret ; 0714 L0714: 0714 : F1 " " mov a,@r1 0715 : AD " " mov r5,a 0716 : DA " " xrl a,r2 0717 : AA " " mov r2,a 0718 : FD " " mov a,r5 0719 L0719: 0719 : DA " " xrl a,r2 071A : DD " " xrl a,r5 071B : 21 "!" xch a,@r1 071C : AA " " mov r2,a 071D : DD " " xrl a,r5 071E : C6 26 " &" jz L0726 0720 : DD " " xrl a,r5 0721 : 2D "-" xch a,r5 0722 : 2A "*" xch a,r2 0723 : 21 "!" xch a,@r1 0724 : E4 19 " " jmp L0719 0726 L0726: 0726 : 83 " " ret ; 0727 L0727: 0727 : B8 35 " 5" mov r0,#035H 0729 : 40 "@" orl a,@r0 072A : A0 " " mov @r0,a 072B : 99 EF " " anl p1,#0EFH 072D : 83 " " ret ; 072E L072E: 072E : B8 37 " 7" mov r0,#037H 0730 : E4 34 " 4" jmp L0734 ; 0732 L0732: 0732 : B8 36 " 6" mov r0,#036H 0734 L0734: 0734 : 40 "@" orl a,@r0 0735 : A0 " " mov @r0,a 0736 : 99 F7 " " anl p1,#0F7H 0738 : 9A EF " " anl p2,#0EFH 073A : 8A 08 " " orl p2,#008H 073C : 83 " " ret ; 073D L073D: 073D : B9 20 " " mov r1,#020H 073F : B8 3F " ?" mov r0,#03FH 0741 L0741: 0741 : B0 00 " " mov @r0,#000H 0743 : C8 " " dec r0 0744 : E9 41 " A" djnz r1,L0741 0746 : B8 32 " 2" mov r0,#032H 0748 : B0 02 " " mov @r0,#002H 074A : B8 3A " :" mov r0,#03AH 074C : B9 39 " 9" mov r1,#039H 074E : 09 " " in a,p1 074F : D3 FF " " xrl a,#0FFH 0751 : C6 56 " V" jz L0756 0753 : 23 02 "# " mov a,#002H 0755 : A0 " " mov @r0,a 0756 L0756: 0756 : 0A " " in a,p2 0757 : D3 FF " " xrl a,#0FFH 0759 : C6 5F " _" jz L075F 075B : 23 04 "# " mov a,#004H 075D : 40 "@" orl a,@r0 075E : A0 " " mov @r0,a 075F L075F: 075F : BA 00 " " mov r2,#000H 0761 : 23 28 "#(" mov a,#028H 0763 : 90 " " movx @r0,a 0764 : 23 DF "# " mov a,#0DFH 0766 : F4 EF " " call L07EF 0768 : 53 40 "S@" anl a,#040H 076A : A1 " " mov @r1,a 076B : D0 " " xrl a,@r0 076C : A0 " " mov @r0,a 076D : BA 50 " P" mov r2,#050H 076F : 23 FF "# " mov a,#0FFH 0771 : F4 EF " " call L07EF 0773 : BA 40 " @" mov r2,#040H 0775 : 23 EF "# " mov a,#0EFH 0777 : F4 EF " " call L07EF 0779 : BA 00 " " mov r2,#000H 077B : 23 F7 "# " mov a,#0F7H 077D : F4 EF " " call L07EF 077F : 23 FB "# " mov a,#0FBH 0781 : F4 EF " " call L07EF 0783 : 23 FD "# " mov a,#0FDH 0785 : F4 EF " " call L07EF 0787 : 23 FE "# " mov a,#0FEH 0789 : F4 EF " " call L07EF 078B : 65 "e" stop tcnt 078C : 9A F7 " " anl p2,#0F7H 078E : 54 F6 "T " call L02F6 0790 : D5 " " sel rb1 0791 : B9 FE " " mov r1,#0FEH 0793 : 85 " " clr f0 0794 : B8 23 " #" mov r0,#023H 0796 : B0 04 " " mov @r0,#004H 0798 : C5 " " sel rb0 0799 : B8 24 " $" mov r0,#024H 079B : B0 02 " " mov @r0,#002H 079D : B9 3D " =" mov r1,#03DH 079F : B1 30 " 0" mov @r1,#030H 07A1 : BB 00 " " mov r3,#000H 07A3 : B9 04 " " mov r1,#004H 07A5 : BC 06 " " mov r4,#006H 07A7 : 74 27 "t'" call L0327 07A9 L07A9: 07A9 : D5 " " sel rb1 07AA : FD " " mov a,r5 07AB : C5 " " sel rb0 07AC : 03 F8 " " add a,#0F8H 07AE : F6 A9 " " jc L07A9 07B0 : 35 "5" dis tcnti 07B1 : 8A FF " " orl p2,#0FFH 07B3 : 16 B5 " " jtf L07B5 07B5 L07B5: 07B5 : 23 00 "# " mov a,#000H 07B7 : 62 "b" mov t,a 07B8 : 55 "U" strt t 07B9 L07B9: 07B9 : 16 CF " " jtf L07CF 07BB : F4 E7 " " call L07E7 07BD : 53 07 "S " anl a,#007H 07BF : DC " " xrl a,r4 07C0 : 96 CD " " jnz L07CD 07C2 : 1B " " inc r3 07C3 : B8 24 " $" mov r0,#024H 07C5 : 74 0A "t " call L030A 07C7 : 00 " " nop 07C8 : 9A 7F " " anl p2,#07FH 07CA : 8A 80 " " orl p2,#080H 07CC : AC " " mov r4,a 07CD L07CD: 07CD : E4 B9 " " jmp L07B9 ; 07CF L07CF: 07CF : 9A F6 " " anl p2,#0F6H 07D1 : FB " " mov a,r3 07D2 : 03 FA " " add a,#0FAH 07D4 : B8 39 " 9" mov r0,#039H 07D6 : F6 DC " " jc L07DC 07D8 : F0 " " mov a,@r0 07D9 : 43 10 "C " orl a,#010H 07DB : A0 " " mov @r0,a 07DC L07DC: 07DC : B8 32 " 2" mov r0,#032H 07DE : B0 00 " " mov @r0,#000H 07E0 : 54 F6 "T " call L02F6 07E2 : B8 32 " 2" mov r0,#032H 07E4 : B0 00 " " mov @r0,#000H 07E6 : 83 " " ret ; 07E7 L07E7: 07E7 : 08 " " ins a,bus 07E8 L07E8: 07E8 : AE " " mov r6,a 07E9 : 08 " " ins a,bus 07EA : DE " " xrl a,r6 07EB : 96 E7 " " jnz L07E7 07ED : FE " " mov a,r6 07EE : 83 " " ret ; 07EF L07EF: 07EF : 3A ":" outl p2,a 07F0 : D4 F6 " " call L06F6 07F2 : F4 E7 " " call L07E7 07F4 : 53 70 "Sp" anl a,#070H 07F6 : DA " " xrl a,r2 07F7 : 40 "@" orl a,@r0 07F8 : A0 " " mov @r0,a 07F9 : 83 " " ret ; 07FA : FF " " mov a,r7 07FB : FF " " mov a,r7 07FC : FF " " mov a,r7 07FD : FF " " mov a,r7 07FE : FF " " mov a,r7 07FF : FF " " mov a,r7 ;-------------------------------------------------------------- Symbol table ============ Value Type Name ----- ---- ---- 0000 Code L0000 0002 Code L0002 0003 Code L0003 0007 Code L0007 000B Code L000B 001B Code L001B 001D Code L001D 0021 Code L0021 002A Code L002A 002B Code L002B 002F Code L002F 0033 Code L0033 003C Code L003C 003E Code L003E 0042 Code L0042 0079 Code L0079 007C Code L007C 007D Code L007D 0084 Code L0084 00A1 Code L00A1 00B8 Code L00B8 00BC Code L00BC 0102 Code L0102 010B Code L010B 0116 Code L0116 0123 Code L0123 0127 Code L0127 013C Code L013C 0153 Code L0153 0159 Code L0159 016B Code L016B 01B8 Code L01B8 01C2 Code L01C2 0205 Code L0205 0206 Code L0206 0218 Code L0218 0226 Code L0226 022A Code L022A 0245 Code L0245 024D Code L024D 024F Code L024F 0253 Code L0253 0255 Code L0255 0257 Code L0257 0259 Code L0259 0268 Code L0268 026E Code L026E 026F Code L026F 0271 Code L0271 0274 Code L0274 0283 Code L0283 028F Code L028F 0297 Code L0297 0298 Code L0298 029F Code L029F 02A6 Code L02A6 02AA Code L02AA 02AC Code L02AC 02B1 Code L02B1 02BC Code L02BC 02BE Code L02BE 02C5 Code L02C5 02C9 Code L02C9 02F6 Code L02F6 02FA Code L02FA 02FE Code L02FE 0308 Code L0308 030A Code L030A 030F Code L030F 0318 Code L0318 031F Code L031F 0327 Code L0327 0349 Code L0349 035D Code L035D 0377 Code L0377 037F Code L037F 0385 Code L0385 0395 Code L0395 03A4 Code L03A4 03AC Code L03AC 03B1 Code L03B1 03C0 Code L03C0 03CA Code L03CA 03CC Code L03CC 03E9 Code L03E9 03EA Code L03EA 03EB Code L03EB 03EC Code L03EC 03ED Code L03ED 03EE Code L03EE 03F0 Code L03F0 0407 Code L0407 0431 Code L0431 0443 Code L0443 0455 Code L0455 045B Code L045B 045D Code L045D 0462 Code L0462 0471 Code L0471 0473 Code L0473 0474 Code L0474 0482 Code L0482 0488 Code L0488 048B Code L048B 0491 Code L0491 0495 Code L0495 04A8 Code L04A8 04AC Code L04AC 04C0 Code L04C0 04C2 Code L04C2 04C8 Code L04C8 04E3 Code L04E3 0502 Code L0502 050E Code L050E 0517 Code L0517 0521 Code L0521 052F Code L052F 0535 Code L0535 053C Code L053C 0547 Code L0547 055A Code L055A 055B Code L055B 0566 Code L0566 0579 Code L0579 057A Code L057A 058C Code L058C 0595 Code L0595 0596 Code L0596 0598 Code L0598 05A2 Code L05A2 0622 Code L0622 062F Code L062F 063C Code L063C 0662 Code L0662 066D Code L066D 066E Code L066E 067B Code L067B 067D Code L067D 068C Code L068C 068E Code L068E 0691 Code L0691 0697 Code L0697 06B5 Code L06B5 06B7 Code L06B7 06B8 Code L06B8 06D9 Code L06D9 06DD Code L06DD 06F6 Code L06F6 06FA Code L06FA 06FE Code L06FE 0702 Code L0702 0706 Code L0706 0710 Code L0710 0714 Code L0714 0719 Code L0719 0726 Code L0726 0727 Code L0727 072E Code L072E 0732 Code L0732 0734 Code L0734 073D Code L073D 0741 Code L0741 0756 Code L0756 075F Code L075F 07A9 Code L07A9 07B5 Code L07B5 07B9 Code L07B9 07CD Code L07CD 07CF Code L07CF 07DC Code L07DC 07E7 Code L07E7 07E8 Code L07E8 07EF Code L07EF Number of symbols: 173 ;--------------------------------------------------------------