; ; Disassembled by: ; DASMx object code disassembler ; (c) Copyright 1996-2003 Conquest Consultants ; Version 1.40 (Oct 18 2003) ; ; File: G:\5218\8493408.bin ; ; Size: 2048 bytes ; Checksum: 6F04 ; CRC-32: 3B35D9B3 ; ; Date: Sat Sep 28 03:43:37 2024 ; ; CPU: Intel 8048 (MCS-48 family) ; ; ; org 00000H ; 0000 L0000: 0000 : 00 " " nop 0001 : 64 C8 "d " jmp L03C8 ; 0003 : FF " " mov a,r7 0004 : FF " " mov a,r7 0005 : FF " " mov a,r7 0006 : FF " " mov a,r7 0007 : C5 " " sel rb0 0008 : AF " " mov r7,a 0009 : B8 18 " " mov r0,#018H 000B : F0 " " mov a,@r0 000C : AE " " mov r6,a 000D : D5 " " sel rb1 000E : F9 " " mov a,r1 000F : 03 19 " " add a,#019H 0011 : B3 " " jmpp @a ;INFO: indirect jump ; 0012 L0012: 0012 : C5 " " sel rb0 0013 : B8 18 " " mov r0,#018H 0015 : FE " " mov a,r6 0016 : A0 " " mov @r0,a 0017 : FF " " mov a,r7 0018 : 93 " " retr ; 0019 : 30 "0" xchd a,@r0 001A : 27 "'" clr a 001B : 90 " " movx @r0,a 001C : 23 B0 "# " mov a,#0B0H 001E : 25 "%" en tcnti 001F : D8 " " xrl a,r0 0020 : 70 "p" addc a,@r0 0021 : 60 "`" add a,@r0 0022 : 29 ")" xch a,r1 0023 : 84 02 " " jmp L0402 0025 : 64 02 "d " jmp L0302 0027 : 64 80 "d " jmp L0380 0029 : A4 CA " " jmp L05CA ; 002B : FF " " mov a,r7 002C : FF " " mov a,r7 002D : FF " " mov a,r7 002E : FF " " mov a,r7 002F : FF " " mov a,r7 0030 : 89 C0 " " orl p1,#0C0H 0032 : 27 "'" clr a 0033 : AA " " mov r2,a 0034 : AB " " mov r3,a 0035 : B4 02 " " call L0502 0037 : B2 51 " Q" jb5 L0051 0039 : B8 3A " :" mov r0,#03AH 003B : F0 " " mov a,@r0 003C : 37 "7" cpl a 003D : 12 4F " O" jb0 L004F 003F : 37 "7" cpl a 0040 : 53 FE "S " anl a,#0FEH 0042 : A0 " " mov @r0,a 0043 : B8 24 " $" mov r0,#024H 0045 : F0 " " mov a,@r0 0046 : 32 4F "2O" jb1 L004F 0048 : 43 02 "C " orl a,#002H 004A : A0 " " mov @r0,a 004B : 23 40 "#@" mov a,#040H 004D : B4 67 " g" call L0567 004F L004F: 004F : 04 57 " W" jmp L0057 ; 0051 L0051: 0051 : B8 3A " :" mov r0,#03AH 0053 : F0 " " mov a,@r0 0054 : 43 01 "C " orl a,#001H 0056 : A0 " " mov @r0,a 0057 L0057: 0057 : 04 12 " " jmp L0012 ; 0059 : FF " " mov a,r7 005A : FF " " mov a,r7 005B : FF " " mov a,r7 005C : FF " " mov a,r7 005D : FF " " mov a,r7 005E : FF " " mov a,r7 005F : FF " " mov a,r7 0060 : B9 03 " " mov r1,#003H 0062 : A5 " " clr f1 0063 : B5 " " cpl f1 0064 : BF 00 " " mov r7,#000H 0066 : BE 35 " 5" mov r6,#035H 0068 : BA 00 " " mov r2,#000H 006A : 23 FF "# " mov a,#0FFH 006C : 62 "b" mov t,a 006D : 04 12 " " jmp L0012 ; 006F : FF " " mov a,r7 0070 : 89 80 " " orl p1,#080H 0072 : 23 83 "# " mov a,#083H 0074 : 62 "b" mov t,a 0075 : B8 24 " $" mov r0,#024H 0077 : F0 " " mov a,@r0 0078 : 12 7E " ~" jb0 L007E 007A : 9A EF " " anl p2,#0EFH 007C : 04 80 " " jmp L0080 ; 007E L007E: 007E : 9A DF " " anl p2,#0DFH 0080 L0080: 0080 : EC 8C " " djnz r4,L008C 0082 : B9 03 " " mov r1,#003H 0084 : BF 18 " " mov r7,#018H 0086 : BE 00 " " mov r6,#000H 0088 : 99 7F " " anl p1,#07FH 008A : BA 06 " " mov r2,#006H 008C L008C: 008C : 04 12 " " jmp L0012 ; 008E : FF " " mov a,r7 008F : FF " " mov a,r7 0090 : B9 05 " " mov r1,#005H 0092 : B8 21 " !" mov r0,#021H 0094 : B0 04 " " mov @r0,#004H 0096 : BC C9 " " mov r4,#0C9H 0098 : BA 03 " " mov r2,#003H 009A : A5 " " clr f1 009B : B5 " " cpl f1 009C : BF 00 " " mov r7,#000H 009E : BE 35 " 5" mov r6,#035H 00A0 : BB 00 " " mov r3,#000H 00A2 : 23 FF "# " mov a,#0FFH 00A4 : 62 "b" mov t,a 00A5 : 04 12 " " jmp L0012 ; 00A7 : FF " " mov a,r7 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 : B4 0A " " call L050A 00B2 : 37 "7" cpl a 00B3 : D2 C3 " " jb6 L00C3 00B5 : F2 BB " " jb7 L00BB 00B7 : 23 20 "# " mov a,#020H 00B9 : B4 7C " |" call L057C 00BB L00BB: 00BB : 23 20 "# " mov a,#020H 00BD : B4 75 " u" call L0575 00BF : B9 00 " " mov r1,#000H 00C1 : 04 CE " " jmp L00CE ; 00C3 L00C3: 00C3 : FA " " mov a,r2 00C4 : A9 " " mov r1,a 00C5 : FB " " mov a,r3 00C6 : AA " " mov r2,a 00C7 : BB 00 " " mov r3,#000H 00C9 : BC C9 " " mov r4,#0C9H 00CB : 23 FF "# " mov a,#0FFH 00CD : 62 "b" mov t,a 00CE L00CE: 00CE : 89 80 " " orl p1,#080H 00D0 : 04 12 " " jmp L0012 ; 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 : 23 83 "# " mov a,#083H 00DA : 62 "b" mov t,a 00DB : 99 7F " " anl p1,#07FH 00DD : EC F5 " " djnz r4,L00F5 00DF : B9 03 " " mov r1,#003H 00E1 : B8 23 " #" mov r0,#023H 00E3 : B0 10 " " mov @r0,#010H 00E5 : BF 04 " " mov r7,#004H 00E7 : BE 80 " " mov r6,#080H 00E9 : BA 05 " " mov r2,#005H 00EB : B8 21 " !" mov r0,#021H 00ED : B0 02 " " mov @r0,#002H 00EF : BC C9 " " mov r4,#0C9H 00F1 : BB 09 " " mov r3,#009H 00F3 : 04 FC " " jmp L00FC ; 00F5 L00F5: 00F5 : FC " " mov a,r4 00F6 : D3 A3 " " xrl a,#0A3H 00F8 : 96 FC " " jnz L00FC 00FA : BC 01 " " mov r4,#001H 00FC L00FC: 00FC : 04 12 " " jmp L0012 ; 00FE : FF " " mov a,r7 00FF : FF " " mov a,r7 0100 : 04 00 " " jmp L0000 ; 0102 L0102: 0102 : D5 " " sel rb1 0103 L0103: 0103 : 09 " " in a,p1 0104 : A8 " " mov r0,a 0105 : 09 " " in a,p1 0106 : D8 " " xrl a,r0 0107 : B2 03 " " jb5 L0103 0109 : F8 " " mov a,r0 010A : 37 "7" cpl a 010B : B2 F5 " " jb5 L01F5 010D : F9 " " mov a,r1 010E : D3 00 " " xrl a,#000H 0110 : 96 F3 " " jnz L01F3 0112 : B8 39 " 9" mov r0,#039H 0114 : F0 " " mov a,@r0 0115 : 53 FD "S " anl a,#0FDH 0117 : A0 " " mov @r0,a 0118 : B6 F3 " " jf0 L01F3 011A : 95 " " cpl f0 011B : B8 39 " 9" mov r0,#039H 011D : F0 " " mov a,@r0 011E : 37 "7" cpl a 011F : 12 F3 " " jb0 L01F3 0121 : 65 "e" stop tcnt 0122 : 37 "7" cpl a 0123 : 53 F6 "S " anl a,#0F6H 0125 : 43 02 "C " orl a,#002H 0127 : A0 " " mov @r0,a 0128 : B8 24 " $" mov r0,#024H 012A : F0 " " mov a,@r0 012B : 53 FD "S " anl a,#0FDH 012D : A0 " " mov @r0,a 012E : 99 BF " " anl p1,#0BFH 0130 : A5 " " clr f1 0131 : B8 3C " <" mov r0,#03CH 0133 : F0 " " mov a,@r0 0134 : 92 60 " `" jb4 L0160 0136 : AF " " mov r7,a 0137 : 53 07 "S " anl a,#007H 0139 : 2F "/" xch a,r7 013A L013A: 013A : 99 7F " " anl p1,#07FH 013C : B9 03 " " mov r1,#003H 013E : B5 " " cpl f1 013F : BA 00 " " mov r2,#000H 0141 : B8 05 " " mov r0,#005H 0143 : D0 " " xrl a,@r0 0144 : 37 "7" cpl a 0145 : 72 4B "rK" jb3 L014B 0147 : F0 " " mov a,@r0 0148 : D3 0B " " xrl a,#00BH 014A : A0 " " mov @r0,a 014B L014B: 014B : B8 3D " =" mov r0,#03DH 014D : F0 " " mov a,@r0 014E : AE " " mov r6,a 014F : 4F "O" orl a,r7 0150 : 96 5E " ^" jnz L015E 0152 : 23 40 "#@" mov a,#040H 0154 : B4 6E " n" call L056E 0156 : 23 08 "# " mov a,#008H 0158 : B4 81 " " call L0581 015A : B9 00 " " mov r1,#000H 015C : 89 C0 " " orl p1,#0C0H 015E L015E: 015E : 24 EF "$ " jmp L01EF ; 0160 L0160: 0160 : 53 0F "S " anl a,#00FH 0162 : BC C9 " " mov r4,#0C9H 0164 : B9 05 " " mov r1,#005H 0166 : BA 00 " " mov r2,#000H 0168 : B8 21 " !" mov r0,#021H 016A : 03 6D " m" add a,#06DH 016C : B3 " " jmpp @a ;INFO: indirect jump ; 016D : 7D "}" addc a,r5 ; 016E : 8B " " db 08BH ; 016F : 8F " " orld p7,a 0170 : 93 " " retr ; 0171 : 97 " " clr c ; 0172 : 9B " " db 09BH ; 0173 : 7D "}" addc a,r5 0174 : 7D "}" addc a,r5 0175 : 9F " " anld p7,a 0176 : 7D "}" addc a,r5 0177 : BA BA " " mov r2,#0BAH 0179 : D9 " " xrl a,r1 017A : 7D "}" addc a,r5 017B : 7D "}" addc a,r5 017C : 7D "}" addc a,r5 017D : B9 00 " " mov r1,#000H 017F : 23 40 "#@" mov a,#040H 0181 : B4 6E " n" call L056E 0183 : 23 08 "# " mov a,#008H 0185 : B4 81 " " call L0581 0187 : 89 40 " @" orl p1,#040H 0189 : 24 E5 "$ " jmp L01E5 ; 018B : B0 00 " " mov @r0,#000H 018D : 24 E5 "$ " jmp L01E5 ; 018F : B0 01 " " mov @r0,#001H 0191 : 24 E5 "$ " jmp L01E5 ; 0193 : B0 02 " " mov @r0,#002H 0195 : 24 E5 "$ " jmp L01E5 ; 0197 : B0 03 " " mov @r0,#003H 0199 : 24 E5 "$ " jmp L01E5 ; 019B : B0 04 " " mov @r0,#004H 019D : 24 E5 "$ " jmp L01E5 ; 019F : B0 02 " " mov @r0,#002H 01A1 : BA 03 " " mov r2,#003H 01A3 : B5 " " cpl f1 01A4 : BF 00 " " mov r7,#000H 01A6 : BE 56 " V" mov r6,#056H 01A8 : BB 02 " " mov r3,#002H 01AA : B4 02 " " call L0502 01AC : B2 B8 " " jb5 L01B8 01AE : 23 40 "#@" mov a,#040H 01B0 : B4 67 " g" call L0567 01B2 : B8 3A " :" mov r0,#03AH 01B4 : F0 " " mov a,@r0 01B5 : 53 FE "S " anl a,#0FEH 01B7 : A0 " " mov @r0,a 01B8 L01B8: 01B8 : 24 E5 "$ " jmp L01E5 ; 01BA : B0 00 " " mov @r0,#000H 01BC : BA 07 " " mov r2,#007H 01BE : B8 3C " <" mov r0,#03CH 01C0 : F0 " " mov a,@r0 01C1 : 12 CE " " jb0 L01CE 01C3 : B8 24 " $" mov r0,#024H 01C5 : F0 " " mov a,@r0 01C6 : 53 FE "S " anl a,#0FEH 01C8 : A0 " " mov @r0,a 01C9 : C8 " " dec r0 01CA : B0 04 " " mov @r0,#004H 01CC : 24 D7 "$ " jmp L01D7 ; 01CE L01CE: 01CE : B8 24 " $" mov r0,#024H 01D0 : F0 " " mov a,@r0 01D1 : 43 01 "C " orl a,#001H 01D3 : A0 " " mov @r0,a 01D4 : C8 " " dec r0 01D5 : B0 08 " " mov @r0,#008H 01D7 L01D7: 01D7 : 24 E5 "$ " jmp L01E5 ; 01D9 : B9 03 " " mov r1,#003H 01DB : B8 23 " #" mov r0,#023H 01DD : B0 02 " " mov @r0,#002H 01DF : BF 05 " " mov r7,#005H 01E1 : BE A0 " " mov r6,#0A0H 01E3 : 99 7F " " anl p1,#07FH 01E5 L01E5: 01E5 : B8 05 " " mov r0,#005H 01E7 : F0 " " mov a,@r0 01E8 : 37 "7" cpl a 01E9 : 72 EF "r " jb3 L01EF 01EB : 37 "7" cpl a 01EC : D3 0B " " xrl a,#00BH 01EE : A0 " " mov @r0,a 01EF L01EF: 01EF : 23 F6 "# " mov a,#0F6H 01F1 : 62 "b" mov t,a 01F2 : 55 "U" strt t 01F3 L01F3: 01F3 : 44 0D "D " jmp L020D ; 01F5 L01F5: 01F5 : 85 " " clr f0 01F6 : 44 02 "D " jmp L0202 ; 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 : F9 " " mov a,r1 0203 : D3 00 " " xrl a,#000H 0205 : 96 0D " " jnz L020D 0207 : B8 39 " 9" mov r0,#039H 0209 : F0 " " mov a,@r0 020A : 53 FD "S " anl a,#0FDH 020C : A0 " " mov @r0,a 020D L020D: 020D : 54 32 "T2" call L0232 020F : 24 02 "$ " jmp L0102 ; 0211 : FF " " mov a,r7 0212 : FF " " mov a,r7 0213 : FF " " mov a,r7 0214 : FF " " mov a,r7 0215 : FF " " mov a,r7 0216 : FF " " mov a,r7 0217 : FF " " mov a,r7 0218 : FF " " mov a,r7 0219 : FF " " mov a,r7 021A : FF " " mov a,r7 021B : FF " " mov a,r7 021C : FF " " mov a,r7 021D : FF " " mov a,r7 021E : FF " " mov a,r7 021F : FF " " mov a,r7 0220 : FF " " mov a,r7 0221 : FF " " mov a,r7 0222 : FF " " mov a,r7 0223 : FF " " mov a,r7 0224 : FF " " mov a,r7 0225 : FF " " mov a,r7 0226 : FF " " mov a,r7 0227 : FF " " mov a,r7 0228 : FF " " mov a,r7 0229 : FF " " mov a,r7 022A : FF " " mov a,r7 022B : FF " " mov a,r7 022C : FF " " mov a,r7 022D : FF " " mov a,r7 022E : FF " " mov a,r7 022F : 00 " " nop 0230 : 05 " " en i 0231 : 08 " " ins a,bus 0232 L0232: 0232 : C5 " " sel rb0 0233 L0233: 0233 : 09 " " in a,p1 0234 : AA " " mov r2,a 0235 : 09 " " in a,p1 0236 : DA " " xrl a,r2 0237 : 12 33 " 3" jb0 L0233 0239 : 52 33 "R3" jb2 L0233 023B : FA " " mov a,r2 023C : 52 9A "R " jb2 L029A 023E : 12 45 " E" jb0 L0245 0240 : B9 39 " 9" mov r1,#039H 0242 : F1 " " mov a,@r1 0243 : 12 9A " " jb0 L029A 0245 L0245: 0245 : 99 FD " " anl p1,#0FDH 0247 : FA " " mov a,r2 0248 : 12 53 " S" jb0 L0253 024A : B9 3C " <" mov r1,#03CH 024C : F9 " " mov a,r1 024D : 03 F4 " " add a,#0F4H 024F : A3 " " movp a,@a 0250 : AB " " mov r3,a 0251 : 44 57 "DW" jmp L0257 ; 0253 L0253: 0253 : B9 3E " >" mov r1,#03EH 0255 : BB 05 " " mov r3,#005H 0257 L0257: 0257 : 54 9B "T " call L029B 0259 : F9 " " mov a,r1 025A : D3 3E " >" xrl a,#03EH 025C : 96 85 " " jnz L0285 025E : F1 " " mov a,@r1 025F : 53 18 "S " anl a,#018H 0261 : C6 81 " " jz L0281 0263 : D3 10 " " xrl a,#010H 0265 : 96 71 " q" jnz L0271 0267 : B9 3F " ?" mov r1,#03FH 0269 : BB 08 " " mov r3,#008H 026B : 54 9B "T " call L029B 026D : D4 02 " " call L0602 026F : 44 7F "D " jmp L027F ; 0271 L0271: 0271 : D3 18 " " xrl a,#018H 0273 : 96 79 " y" jnz L0279 0275 : BB 04 " " mov r3,#004H 0277 : 44 7B "D{" jmp L027B ; 0279 L0279: 0279 : BB 08 " " mov r3,#008H 027B L027B: 027B : D4 02 " " call L0602 027D : 54 C3 "T " call L02C3 027F L027F: 027F : 44 83 "D " jmp L0283 ; 0281 L0281: 0281 : D4 02 " " call L0602 0283 L0283: 0283 : 44 9A "D " jmp L029A ; 0285 L0285: 0285 : F9 " " mov a,r1 0286 : D3 3D " =" xrl a,#03DH 0288 : C6 94 " " jz L0294 028A : 19 " " inc r1 028B : F9 " " mov a,r1 028C : 03 F4 " " add a,#0F4H 028E : A3 " " movp a,@a 028F : AB " " mov r3,a 0290 : 54 9B "T " call L029B 0292 : 44 85 "D " jmp L0285 ; 0294 L0294: 0294 : B9 39 " 9" mov r1,#039H 0296 : BA 01 " " mov r2,#001H 0298 : B4 56 " V" call L0556 029A L029A: 029A : 83 " " ret ; 029B L029B: 029B : 27 "'" clr a 029C : A1 " " mov @r1,a 029D L029D: 029D : FA " " mov a,r2 029E : 52 AF "R " jb2 L02AF 02A0 L02A0: 02A0 : 09 " " in a,p1 02A1 : AA " " mov r2,a 02A2 : 37 "7" cpl a 02A3 : 52 A0 "R " jb2 L02A0 02A5 : 09 " " in a,p1 02A6 : DA " " xrl a,r2 02A7 : 12 A0 " " jb0 L02A0 02A9 : 52 A0 "R " jb2 L02A0 02AB : 89 02 " " orl p1,#002H 02AD : 44 BB "D " jmp L02BB ; 02AF L02AF: 02AF : 09 " " in a,p1 02B0 : 52 AF "R " jb2 L02AF 02B2 : AA " " mov r2,a 02B3 : 09 " " in a,p1 02B4 : DA " " xrl a,r2 02B5 : 12 AF " " jb0 L02AF 02B7 : 52 AF "R " jb2 L02AF 02B9 : 99 FD " " anl p1,#0FDH 02BB L02BB: 02BB : FA " " mov a,r2 02BC : 67 "g" rrc a 02BD : F1 " " mov a,@r1 02BE : F7 " " rlc a 02BF : A1 " " mov @r1,a 02C0 : EB 9D " " djnz r3,L029D 02C2 : 83 " " ret ; 02C3 L02C3: 02C3 : A9 " " mov r1,a 02C4 L02C4: 02C4 : 09 " " in a,p1 02C5 : 52 C4 "R " jb2 L02C4 02C7 : 09 " " in a,p1 02C8 : AA " " mov r2,a 02C9 : 52 C4 "R " jb2 L02C4 02CB L02CB: 02CB : F9 " " mov a,r1 02CC : 67 "g" rrc a 02CD : A9 " " mov r1,a 02CE : F6 D2 " " jc L02D2 02D0 : 44 D6 "D " jmp L02D6 ; 02D2 L02D2: 02D2 : 89 01 " " orl p1,#001H 02D4 : 44 D8 "D " jmp L02D8 ; 02D6 L02D6: 02D6 : 99 FE " " anl p1,#0FEH 02D8 L02D8: 02D8 : FA " " mov a,r2 02D9 : 52 E8 "R " jb2 L02E8 02DB : 99 FD " " anl p1,#0FDH 02DD L02DD: 02DD : 09 " " in a,p1 02DE : 37 "7" cpl a 02DF : 52 DD "R " jb2 L02DD 02E1 : 09 " " in a,p1 02E2 : AA " " mov r2,a 02E3 : 37 "7" cpl a 02E4 : 52 DD "R " jb2 L02DD 02E6 : 44 F1 "D " jmp L02F1 ; 02E8 L02E8: 02E8 : 89 02 " " orl p1,#002H 02EA L02EA: 02EA : 09 " " in a,p1 02EB : 52 EA "R " jb2 L02EA 02ED : 09 " " in a,p1 02EE : AA " " mov r2,a 02EF : 52 EA "R " jb2 L02EA 02F1 L02F1: 02F1 : EB CB " " djnz r3,L02CB 02F3 : 99 FD " " anl p1,#0FDH 02F5 L02F5: 02F5 : 09 " " in a,p1 02F6 : 37 "7" cpl a 02F7 : 52 F5 "R " jb2 L02F5 02F9 : 09 " " in a,p1 02FA : 37 "7" cpl a 02FB : 52 F5 "R " jb2 L02F5 02FD : 89 03 " " orl p1,#003H 02FF : 83 " " ret 0300 : 04 00 " " jmp L0000 ; 0302 L0302: 0302 : 9A F7 " " anl p2,#0F7H 0304 : B4 02 " " call L0502 0306 : 53 18 "S " anl a,#018H 0308 : D3 08 " " xrl a,#008H 030A : C6 13 " " jz L0313 030C : B8 20 " " mov r0,#020H 030E : F0 " " mov a,@r0 030F : F2 13 " " jb7 L0313 0311 : BC C9 " " mov r4,#0C9H 0313 L0313: 0313 : B4 02 " " call L0502 0315 : B8 20 " " mov r0,#020H 0317 : 72 34 "r4" jb3 L0334 0319 : F0 " " mov a,@r0 031A : D2 2E " ." jb6 L032E 031C : 53 7F "S " anl a,#07FH 031E : C6 2E " ." jz L032E 0320 : D3 04 " " xrl a,#004H 0322 : C6 2E " ." jz L032E 0324 : 23 02 "# " mov a,#002H 0326 : B4 6E " n" call L056E 0328 : B8 21 " !" mov r0,#021H 032A : B0 00 " " mov @r0,#000H 032C : BA 00 " " mov r2,#000H 032E L032E: 032E : B8 20 " " mov r0,#020H 0330 : B0 80 " " mov @r0,#080H 0332 : 64 57 "dW" jmp L0357 ; 0334 L0334: 0334 : 37 "7" cpl a 0335 : 92 53 " S" jb4 L0353 0337 : F0 " " mov a,@r0 0338 : F2 51 " Q" jb7 L0351 033A : 17 " " inc a 033B : 43 80 "C " orl a,#080H 033D : A0 " " mov @r0,a 033E : 53 3F "S?" anl a,#03FH 0340 : D3 05 " " xrl a,#005H 0342 : 96 51 " Q" jnz L0351 0344 : 23 02 "# " mov a,#002H 0346 : B4 6E " n" call L056E 0348 : B8 21 " !" mov r0,#021H 034A : B0 01 " " mov @r0,#001H 034C : C8 " " dec r0 034D : B0 01 " " mov @r0,#001H 034F : BA 00 " " mov r2,#000H 0351 L0351: 0351 : 64 57 "dW" jmp L0357 ; 0353 L0353: 0353 : F0 " " mov a,@r0 0354 : 53 7F "S " anl a,#07FH 0356 : A0 " " mov @r0,a 0357 L0357: 0357 : F0 " " mov a,@r0 0358 : 53 7F "S " anl a,#07FH 035A : 18 " " inc r0 035B : D0 " " xrl a,@r0 035C : 96 6A " j" jnz L036A 035E : 8A 08 " " orl p2,#008H 0360 : B9 01 " " mov r1,#001H 0362 : BC 15 " " mov r4,#015H 0364 : 23 FF "# " mov a,#0FFH 0366 : 55 "U" strt t 0367 : 62 "b" mov t,a 0368 : 64 77 "dw" jmp L0377 ; 036A L036A: 036A : 23 C1 "# " mov a,#0C1H 036C : 62 "b" mov t,a 036D : EC 77 " w" djnz r4,L0377 036F : 8A 08 " " orl p2,#008H 0371 : 23 08 "# " mov a,#008H 0373 : B4 6E " n" call L056E 0375 : B9 00 " " mov r1,#000H 0377 L0377: 0377 : 04 12 " " jmp L0012 ; 0379 : FF " " mov a,r7 037A : FF " " mov a,r7 037B : FF " " mov a,r7 037C : FF " " mov a,r7 037D : FF " " mov a,r7 037E : FF " " mov a,r7 037F : FF " " mov a,r7 0380 L0380: 0380 : 9A FB " " anl p2,#0FBH 0382 : 23 83 "# " mov a,#083H 0384 : 62 "b" mov t,a 0385 : EC BA " " djnz r4,L03BA 0387 : BC 07 " " mov r4,#007H 0389 : 8A 04 " " orl p2,#004H 038B : 99 7F " " anl p1,#07FH 038D : FA " " mov a,r2 038E : A9 " " mov r1,a 038F : FB " " mov a,r3 0390 : AA " " mov r2,a 0391 : BB 00 " " mov r3,#000H 0393 : B8 20 " " mov r0,#020H 0395 : F0 " " mov a,@r0 0396 : 53 7F "S " anl a,#07FH 0398 : 96 A7 " " jnz L03A7 039A : B4 02 " " call L0502 039C : 37 "7" cpl a 039D : 72 A5 "r " jb3 L03A5 039F : 23 04 "# " mov a,#004H 03A1 : B4 6E " n" call L056E 03A3 : B9 00 " " mov r1,#000H 03A5 L03A5: 03A5 : 64 B7 "d " jmp L03B7 ; 03A7 L03A7: 03A7 : B4 02 " " call L0502 03A9 : B8 20 " " mov r0,#020H 03AB : 92 B3 " " jb4 L03B3 03AD : F0 " " mov a,@r0 03AE : 53 7F "S " anl a,#07FH 03B0 : A0 " " mov @r0,a 03B1 : 64 B7 "d " jmp L03B7 ; 03B3 L03B3: 03B3 : F0 " " mov a,@r0 03B4 : 43 80 "C " orl a,#080H 03B6 : A0 " " mov @r0,a 03B7 L03B7: 03B7 : 23 F6 "# " mov a,#0F6H 03B9 : 62 "b" mov t,a 03BA L03BA: 03BA : 04 12 " " jmp L0012 ; 03BC : FF " " mov a,r7 03BD : FF " " mov a,r7 03BE : FF " " mov a,r7 03BF : FF " " mov a,r7 03C0 : FF " " mov a,r7 03C1 : FF " " mov a,r7 03C2 : FF " " mov a,r7 03C3 : FF " " mov a,r7 03C4 : FF " " mov a,r7 03C5 : FF " " mov a,r7 03C6 : FF " " mov a,r7 03C7 : FF " " mov a,r7 03C8 L03C8: 03C8 : B8 37 " 7" mov r0,#037H 03CA : B9 3F " ?" mov r1,#03FH 03CC : F0 " " mov a,@r0 03CD : A1 " " mov @r1,a 03CE : B0 80 " " mov @r0,#080H 03D0 : 99 F7 " " anl p1,#0F7H 03D2 : C8 " " dec r0 03D3 : F0 " " mov a,@r0 03D4 : B0 00 " " mov @r0,#000H 03D6 : C8 " " dec r0 03D7 : 40 "@" orl a,@r0 03D8 : B0 00 " " mov @r0,#000H 03DA L03DA: 03DA : B9 3A " :" mov r1,#03AH 03DC : A1 " " mov @r1,a 03DD : C8 " " dec r0 03DE : B0 00 " " mov @r0,#000H 03E0 L03E0: 03E0 : 54 32 "T2" call L0232 03E2 : B9 39 " 9" mov r1,#039H 03E4 : F1 " " mov a,@r1 03E5 : 53 FE "S " anl a,#0FEH 03E7 : A1 " " mov @r1,a 03E8 : B8 3E " >" mov r0,#03EH 03EA : F0 " " mov a,@r0 03EB : D3 06 " " xrl a,#006H 03ED : 96 E0 " " jnz L03E0 03EF : 24 02 "$ " jmp L0102 ; 03F1 : E3 " " movp3 a,@a 03F2 L03F2: 03F2 : EA EE " " djnz r2,L03EE 03F4 : EF F0 " " djnz r7,L03F0 03F6 : F1 " " mov a,@r1 03F7 : F1 " " mov a,@r1 03F8 : F2 DA " " jb7 L03DA 03FA : F2 F2 " " jb7 L03F2 03FC : F2 F2 " " jb7 L03F2 03FE : F2 F2 " " jb7 L03F2 0400 : 04 00 " " jmp L0000 ; 0402 L0402: 0402 : B4 0A " " call L050A 0404 : B8 05 " " mov r0,#005H 0406 : D0 " " xrl a,@r0 0407 : 43 CC "C " orl a,#0CCH 0409 : 3A ":" outl p2,a 040A : F0 " " mov a,@r0 040B : D3 03 " " xrl a,#003H 040D : A0 " " mov @r0,a 040E : FE " " mov a,r6 040F : 96 12 " " jnz L0412 0411 : CF " " dec r7 0412 L0412: 0412 : CE " " dec r6 0413 : 07 " " dec a 0414 : 4F "O" orl a,r7 0415 : 96 4D " M" jnz L044D 0417 : BD 00 " " mov r5,#000H 0419 : 76 30 "v0" jf1 L0430 041B : B8 23 " #" mov r0,#023H 041D : F0 " " mov a,@r0 041E : 53 0C "S " anl a,#00CH 0420 : C6 2A " *" jz L042A 0422 : 8A 30 " 0" orl p2,#030H 0424 : 23 20 "# " mov a,#020H 0426 : B4 6E " n" call L056E 0428 : 84 2E " ." jmp L042E ; 042A L042A: 042A : 23 10 "# " mov a,#010H 042C : B4 6E " n" call L056E 042E L042E: 042E : BA 00 " " mov r2,#000H 0430 L0430: 0430 : B9 04 " " mov r1,#004H 0432 : 23 83 "# " mov a,#083H 0434 : 62 "b" mov t,a 0435 : A5 " " clr f1 0436 : B8 23 " #" mov r0,#023H 0438 : F0 " " mov a,@r0 0439 : 37 "7" cpl a 043A : B2 47 " G" jb5 L0447 043C : B4 02 " " call L0502 043E : 37 "7" cpl a 043F : F2 47 " G" jb7 L0447 0441 : BA 00 " " mov r2,#000H 0443 : 23 10 "# " mov a,#010H 0445 : B4 6E " n" call L056E 0447 L0447: 0447 : B8 23 " #" mov r0,#023H 0449 : B0 00 " " mov @r0,#000H 044B : 84 79 " y" jmp L0479 ; 044D L044D: 044D : FF " " mov a,r7 044E : 96 68 " h" jnz L0468 0450 : FD " " mov a,r5 0451 : 53 07 "S " anl a,#007H 0453 : AD " " mov r5,a 0454 : FE " " mov a,r6 0455 : 37 "7" cpl a 0456 : 6D "m" add a,r5 0457 : 37 "7" cpl a 0458 : C6 5E " ^" jz L045E 045A : F6 5E " ^" jc L045E 045C : 84 66 " f" jmp L0466 ; 045E L045E: 045E : CD " " dec r5 045F : E6 62 " b" jnc L0462 0461 : CD " " dec r5 0462 L0462: 0462 : FD " " mov a,r5 0463 : 43 08 "C " orl a,#008H 0465 : AD " " mov r5,a 0466 L0466: 0466 : 84 6C " l" jmp L046C ; 0468 L0468: 0468 : B8 07 " " mov r0,#007H 046A L046A: 046A : E8 6A " j" djnz r0,L046A 046C L046C: 046C : FD " " mov a,r5 046D : 03 F1 " " add a,#0F1H 046F : E3 " " movp3 a,@a 0470 : 55 "U" strt t 0471 : 62 "b" mov t,a 0472 : FD " " mov a,r5 0473 : 37 "7" cpl a 0474 : 03 07 " " add a,#007H 0476 : E6 79 " y" jnc L0479 0478 : 1D " " inc r5 0479 L0479: 0479 : FD " " mov a,r5 047A : 72 D6 "r " jb3 L04D6 047C : 76 C3 "v " jf1 L04C3 047E : B8 23 " #" mov r0,#023H 0480 : F0 " " mov a,@r0 0481 : 52 8B "R " jb2 L048B 0483 : 72 99 "r " jb3 L0499 0485 : 92 A7 " " jb4 L04A7 0487 : B2 B3 " " jb5 L04B3 0489 : 84 C3 " " jmp L04C3 ; 048B L048B: 048B : B4 02 " " call L0502 048D : 37 "7" cpl a 048E : 32 97 "2 " jb1 L0497 0490 : 8A 10 " " orl p2,#010H 0492 : B5 " " cpl f1 0493 : BF 00 " " mov r7,#000H 0495 : BE 05 " " mov r6,#005H 0497 L0497: 0497 : 84 C3 " " jmp L04C3 ; 0499 L0499: 0499 : B4 02 " " call L0502 049B : 37 "7" cpl a 049C : 52 A5 "R " jb2 L04A5 049E : 8A 20 " " orl p2,#020H 04A0 : B5 " " cpl f1 04A1 : BF 00 " " mov r7,#000H 04A3 : BE 05 " " mov r6,#005H 04A5 L04A5: 04A5 : 84 C3 " " jmp L04C3 ; 04A7 L04A7: 04A7 : B4 02 " " call L0502 04A9 : 37 "7" cpl a 04AA : B2 B1 " " jb5 L04B1 04AC : B5 " " cpl f1 04AD : BF 00 " " mov r7,#000H 04AF : BE 05 " " mov r6,#005H 04B1 L04B1: 04B1 : 84 C3 " " jmp L04C3 ; 04B3 L04B3: 04B3 : B4 02 " " call L0502 04B5 : 37 "7" cpl a 04B6 : F2 B9 " " jb7 L04B9 04B8 : B5 " " cpl f1 04B9 L04B9: 04B9 : B2 C3 " " jb5 L04C3 04BB : B8 23 " #" mov r0,#023H 04BD : B0 02 " " mov @r0,#002H 04BF : BF 05 " " mov r7,#005H 04C1 : BE A0 " " mov r6,#0A0H 04C3 L04C3: 04C3 : B8 23 " #" mov r0,#023H 04C5 : F0 " " mov a,@r0 04C6 : 37 "7" cpl a 04C7 : 32 D6 "2 " jb1 L04D6 04C9 : B4 02 " " call L0502 04CB : B2 D6 " " jb5 L04D6 04CD : B8 23 " #" mov r0,#023H 04CF : B0 20 " " mov @r0,#020H 04D1 : A5 " " clr f1 04D2 : BF 06 " " mov r7,#006H 04D4 : BE F0 " " mov r6,#0F0H 04D6 L04D6: 04D6 : B8 39 " 9" mov r0,#039H 04D8 : F0 " " mov a,@r0 04D9 : 37 "7" cpl a 04DA : B2 F6 " " jb5 L04F6 04DC : B4 02 " " call L0502 04DE : B8 24 " $" mov r0,#024H 04E0 : D0 " " xrl a,@r0 04E1 : 37 "7" cpl a 04E2 : D2 EB " " jb6 L04EB 04E4 : F0 " " mov a,@r0 04E5 : D3 40 " @" xrl a,#040H 04E7 : A0 " " mov @r0,a 04E8 : 18 " " inc r0 04E9 : B0 C0 " " mov @r0,#0C0H 04EB L04EB: 04EB : B8 25 " %" mov r0,#025H 04ED : F0 " " mov a,@r0 04EE : 07 " " dec a 04EF : A0 " " mov @r0,a 04F0 : 96 F6 " " jnz L04F6 04F2 : 23 10 "# " mov a,#010H 04F4 : B4 6E " n" call L056E 04F6 L04F6: 04F6 : 04 12 " " jmp L0012 ; 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 : 08 " " ins a,bus 0503 : A8 " " mov r0,a 0504 : 08 " " ins a,bus 0505 : D8 " " xrl a,r0 0506 : 96 02 " " jnz L0502 0508 : F8 " " mov a,r0 0509 : 83 " " ret ; 050A L050A: 050A : 0A " " in a,p2 050B : A8 " " mov r0,a 050C : 0A " " in a,p2 050D : D8 " " xrl a,r0 050E : 96 0A " " jnz L050A 0510 : F8 " " mov a,r0 0511 : 83 " " ret ; 0512 L0512: 0512 : 35 "5" dis tcnti 0513 : D5 " " sel rb1 0514 : 8A FF " " orl p2,#0FFH 0516 : 89 C0 " " orl p1,#0C0H 0518 : B8 05 " " mov r0,#005H 051A : B0 02 " " mov @r0,#002H 051C : 27 "'" clr a 051D : AD " " mov r5,a 051E : AE " " mov r6,a 051F : AF " " mov r7,a 0520 : A5 " " clr f1 0521 : 85 " " clr f0 0522 : B8 21 " !" mov r0,#021H 0524 : A0 " " mov @r0,a 0525 : B8 23 " #" mov r0,#023H 0527 : A0 " " mov @r0,a 0528 : B8 24 " $" mov r0,#024H 052A : A0 " " mov @r0,a 052B : B9 09 " " mov r1,#009H 052D : B8 35 " 5" mov r0,#035H 052F L052F: 052F : A0 " " mov @r0,a 0530 : 18 " " inc r0 0531 : E9 2F " /" djnz r1,L052F 0533 : B8 20 " " mov r0,#020H 0535 : B0 40 " @" mov @r0,#040H 0537 : B8 25 " %" mov r0,#025H 0539 : B0 C0 " " mov @r0,#0C0H 053B : B9 00 " " mov r1,#000H 053D : C5 " " sel rb0 053E : B4 86 " " call L0586 0540 : B4 86 " " call L0586 0542 : 23 FF "# " mov a,#0FFH 0544 : 55 "U" strt t 0545 : 62 "b" mov t,a 0546 : 25 "%" en tcnti 0547 : 83 " " ret ; 0548 : FF " " mov a,r7 0549 : FF " " mov a,r7 054A : FF " " mov a,r7 054B : FF " " mov a,r7 054C : FF " " mov a,r7 054D : FF " " mov a,r7 054E : FF " " mov a,r7 054F : FF " " mov a,r7 0550 L0550: 0550 : 27 "'" clr a 0551 : 21 "!" xch a,@r1 0552 : 5A "Z" anl a,r2 0553 : B4 5C " \" call L055C 0555 : 83 " " ret ; 0556 L0556: 0556 : 27 "'" clr a 0557 : 21 "!" xch a,@r1 0558 : 4A "J" orl a,r2 0559 : B4 5C " \" call L055C 055B : 83 " " ret ; 055C L055C: 055C : 21 "!" xch a,@r1 055D : C6 66 " f" jz L0566 055F L055F: 055F : AA " " mov r2,a 0560 : 27 "'" clr a 0561 : 21 "!" xch a,@r1 0562 : 4A "J" orl a,r2 0563 : 21 "!" xch a,@r1 0564 : 96 5F " _" jnz L055F 0566 L0566: 0566 : 83 " " ret ; 0567 L0567: 0567 : B8 35 " 5" mov r0,#035H 0569 : 40 "@" orl a,@r0 056A : A0 " " mov @r0,a 056B : 99 EF " " anl p1,#0EFH 056D : 83 " " ret ; 056E L056E: 056E : B8 37 " 7" mov r0,#037H 0570 : 40 "@" orl a,@r0 0571 : A0 " " mov @r0,a 0572 : 99 F7 " " anl p1,#0F7H 0574 : 83 " " ret ; 0575 L0575: 0575 : B8 36 " 6" mov r0,#036H 0577 : 40 "@" orl a,@r0 0578 : A0 " " mov @r0,a 0579 : 99 F7 " " anl p1,#0F7H 057B : 83 " " ret ; 057C L057C: 057C : B8 3A " :" mov r0,#03AH 057E : 40 "@" orl a,@r0 057F : A0 " " mov @r0,a 0580 : 83 " " ret ; 0581 L0581: 0581 : B8 39 " 9" mov r0,#039H 0583 : 40 "@" orl a,@r0 0584 : A0 " " mov @r0,a 0585 : 83 " " ret ; 0586 L0586: 0586 : 16 88 " " jtf L0588 0588 L0588: 0588 : 23 C1 "# " mov a,#0C1H 058A : 62 "b" mov t,a 058B : 55 "U" strt t 058C L058C: 058C : 16 90 " " jtf L0590 058E : A4 8C " " jmp L058C 0590 L0590: 0590 : 83 " " ret ; 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 L05B9: 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 L05CA: 05CA : B9 03 " " mov r1,#003H 05CC : A5 " " clr f1 05CD : B5 " " cpl f1 05CE : BF 00 " " mov r7,#000H 05D0 : BE 58 " X" mov r6,#058H 05D2 : BA 05 " " mov r2,#005H 05D4 : B8 21 " !" mov r0,#021H 05D6 : B0 04 " " mov @r0,#004H 05D8 : BC C9 " " mov r4,#0C9H 05DA : BB 08 " " mov r3,#008H 05DC : 23 FF "# " mov a,#0FFH 05DE : 62 "b" mov t,a 05DF : 04 12 " " jmp L0012 ; 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 L0602: 0602 : B9 3E " >" mov r1,#03EH 0604 : F1 " " mov a,@r1 0605 : 03 08 " " add a,#008H 0607 : B3 " " jmpp @a ;INFO: indirect jump ; 0608 : C3 " " db 0C3H ; 0609 : 28 "(" xch a,r0 060A : 34 3A "4:" call L013A 060C : 44 C3 "D " jmp L02C3 ; 060E : 4A "J" orl a,r2 ; 060F : C3 " " db 0C3H ; 0610 : 50 "P" anl a,@r0 0611 : 6D "m" add a,r5 ; 0612 : C3 C3 " " db 0C3H, 0C3H ; 0614 : 90 " " movx @r0,a ; 0615 : A6 C3 C3 C3 " " db 0A6H, 0C3H, 0C3H, 0C3H 0619 : C3 C3 C3 C3 " " db 0C3H, 0C3H, 0C3H, 0C3H 061D : C3 C3 " " db 0C3H, 0C3H ; 061F : B0 C3 " " mov @r0,#0C3H ; 0621 : C3 " " db 0C3H ; 0622 : B4 B9 " " call L05B9 ; 0624 : C3 C3 C3 " " db 0C3H, 0C3H, 0C3H ; 0627 : BE 15 " " mov r6,#015H 0629 : 35 "5" dis tcnti 062A : A5 " " clr f1 062B : 23 08 "# " mov a,#008H 062D : D7 " " mov psw,a 062E : 8A 3C " <" orl p2,#03CH 0630 : 89 80 " " orl p1,#080H 0632 : 04 00 " " jmp L0000 ; 0634 : F4 87 " " call L0787 0636 : D4 CD " " call L06CD 0638 : C4 CC " " jmp L06CC ; 063A : B9 39 " 9" mov r1,#039H 063C : BA FE " " mov r2,#0FEH 063E : B4 50 " P" call L0550 0640 : D4 CD " " call L06CD 0642 : C4 CC " " jmp L06CC ; 0644 : F4 02 " " call L0702 0646 : D4 CD " " call L06CD 0648 : C4 CC " " jmp L06CC ; 064A : B4 12 " " call L0512 064C : D4 CD " " call L06CD 064E : C4 CC " " jmp L06CC ; 0650 : 89 08 " " orl p1,#008H 0652 : B9 36 " 6" mov r1,#036H 0654 : F1 " " mov a,@r1 0655 : 96 5F " _" jnz L065F 0657 : 19 " " inc r1 0658 : F1 " " mov a,@r1 0659 : 96 5F " _" jnz L065F 065B : 23 00 "# " mov a,#000H 065D : C4 6B " k" jmp L066B ; 065F L065F: 065F : 99 F7 " " anl p1,#0F7H 0661 : D4 D6 " " call L06D6 0663 : F9 " " mov a,r1 0664 : D3 37 " 7" xrl a,#037H 0666 : C6 6A " j" jz L066A 0668 : 23 08 "# " mov a,#008H 066A L066A: 066A : 4C "L" orl a,r4 066B L066B: 066B : C4 CC " " jmp L06CC ; 066D : 89 10 " " orl p1,#010H 066F : B9 35 " 5" mov r1,#035H 0671 : F1 " " mov a,@r1 0672 : C6 88 " " jz L0688 0674 : D4 D6 " " call L06D6 0676 : 23 08 "# " mov a,#008H 0678 : 4C "L" orl a,r4 0679 : AC " " mov r4,a 067A : F1 " " mov a,@r1 067B : 96 83 " " jnz L0683 067D : B9 34 " 4" mov r1,#034H 067F : F1 " " mov a,@r1 0680 : 37 "7" cpl a 0681 : 12 85 " " jb0 L0685 0683 L0683: 0683 : 99 EF " " anl p1,#0EFH 0685 L0685: 0685 : FC " " mov a,r4 0686 : C4 8E " " jmp L068E ; 0688 L0688: 0688 : 27 "'" clr a 0689 : B9 34 " 4" mov r1,#034H 068B : 31 "1" xchd a,@r1 068C : F1 " " mov a,@r1 068D : 47 "G" swap a 068E L068E: 068E : C4 CC " " jmp L06CC ; 0690 : B4 02 " " call L0502 0692 : 32 9C "2 " jb1 L069C 0694 : B9 39 " 9" mov r1,#039H 0696 : BA 20 " " mov r2,#020H 0698 : B4 56 " V" call L0556 069A : C4 A2 " " jmp L06A2 ; 069C L069C: 069C : B9 39 " 9" mov r1,#039H 069E : BA DF " " mov r2,#0DFH 06A0 : B4 50 " P" call L0550 06A2 L06A2: 06A2 : 23 08 "# " mov a,#008H 06A4 : C4 CC " " jmp L06CC ; 06A6 : B9 39 " 9" mov r1,#039H 06A8 : BA DF " " mov r2,#0DFH 06AA : B4 50 " P" call L0550 06AC : 23 08 "# " mov a,#008H 06AE : C4 CC " " jmp L06CC ; 06B0 : D4 CD " " call L06CD 06B2 : C4 CC " " jmp L06CC ; 06B4 : B9 3A " :" mov r1,#03AH 06B6 : F1 " " mov a,@r1 06B7 : C4 CC " " jmp L06CC ; 06B9 : B9 39 " 9" mov r1,#039H 06BB : F1 " " mov a,@r1 06BC : C4 CC " " jmp L06CC ; 06BE : B9 3F " ?" mov r1,#03FH 06C0 : F1 " " mov a,@r1 06C1 : C4 CC " " jmp L06CC ; 06C3 : BA 40 " @" mov r2,#040H 06C5 : B9 37 " 7" mov r1,#037H 06C7 : B4 56 " V" call L0556 06C9 : 99 F7 " " anl p1,#0F7H 06CB : 27 "'" clr a 06CC L06CC: 06CC : 83 " " ret ; 06CD L06CD: 06CD : B9 35 " 5" mov r1,#035H 06CF : BA 01 " " mov r2,#001H 06D1 : B4 56 " V" call L0556 06D3 : 99 EF " " anl p1,#0EFH 06D5 : 83 " " ret ; 06D6 L06D6: 06D6 : BA 80 " " mov r2,#080H 06D8 : BC 07 " " mov r4,#007H 06DA L06DA: 06DA : F1 " " mov a,@r1 06DB : 5A "Z" anl a,r2 06DC : 96 E4 " " jnz L06E4 06DE : FA " " mov a,r2 06DF : 77 "w" rr a 06E0 : AA " " mov r2,a 06E1 : CC " " dec r4 06E2 : C4 DA " " jmp L06DA ; 06E4 L06E4: 06E4 : FA " " mov a,r2 06E5 : 37 "7" cpl a 06E6 : AA " " mov r2,a 06E7 : B4 50 " P" call L0550 06E9 : 83 " " ret ; 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 L0702: 0702 : 35 "5" dis tcnti 0703 : B8 3F " ?" mov r0,#03FH 0705 L0705: 0705 : F8 " " mov a,r0 0706 : 53 F8 "S " anl a,#0F8H 0708 : D3 10 " " xrl a,#010H 070A : C6 12 " " jz L0712 070C : D3 18 " " xrl a,#018H 070E : C6 12 " " jz L0712 0710 : 27 "'" clr a 0711 : A0 " " mov @r0,a 0712 L0712: 0712 : E8 05 " " djnz r0,L0705 0714 : B4 02 " " call L0502 0716 : 37 "7" cpl a 0717 : B2 1D " " jb5 L071D 0719 : 23 01 "# " mov a,#001H 071B : B4 7C " |" call L057C 071D L071D: 071D : 09 " " in a,p1 071E : A8 " " mov r0,a 071F : 09 " " in a,p1 0720 : D8 " " xrl a,r0 0721 : 96 1D " " jnz L071D 0723 : F8 " " mov a,r0 0724 : D3 DF " " xrl a,#0DFH 0726 : C6 2C " ," jz L072C 0728 : 23 02 "# " mov a,#002H 072A : B4 7C " |" call L057C 072C L072C: 072C : B4 0A " " call L050A 072E : 43 C0 "C " orl a,#0C0H 0730 : 37 "7" cpl a 0731 : C6 37 " 7" jz L0737 0733 : 23 04 "# " mov a,#004H 0735 : B4 7C " |" call L057C 0737 L0737: 0737 : F4 BD " " call L07BD 0739 : 99 7F " " anl p1,#07FH 073B : 9A FB " " anl p2,#0FBH 073D : B4 86 " " call L0586 073F : F4 BD " " call L07BD 0741 : 8A 04 " " orl p2,#004H 0743 : B8 0F " " mov r0,#00FH 0745 L0745: 0745 : E8 45 " E" djnz r0,L0745 0747 : 9A F7 " " anl p2,#0F7H 0749 : B8 0F " " mov r0,#00FH 074B L074B: 074B : E8 4B " K" djnz r0,L074B 074D : B4 02 " " call L0502 074F : 37 "7" cpl a 0750 : 12 56 " V" jb0 L0756 0752 : 23 10 "# " mov a,#010H 0754 : B4 7C " |" call L057C 0756 L0756: 0756 : B4 0A " " call L050A 0758 : 37 "7" cpl a 0759 : D2 5F " _" jb6 L075F 075B : 23 08 "# " mov a,#008H 075D : B4 7C " |" call L057C 075F L075F: 075F : 8A 08 " " orl p2,#008H 0761 : B4 86 " " call L0586 0763 : B9 3A " :" mov r1,#03AH 0765 : F1 " " mov a,@r1 0766 : 92 70 " p" jb4 L0770 0768 : F4 BD " " call L07BD 076A : F1 " " mov a,@r1 076B : D3 10 " " xrl a,#010H 076D : A1 " " mov @r1,a 076E : E4 72 " r" jmp L0772 ; 0770 L0770: 0770 : F4 BD " " call L07BD 0772 L0772: 0772 : B4 86 " " call L0586 0774 : BD 02 " " mov r5,#002H 0776 : BB 03 " " mov r3,#003H 0778 L0778: 0778 : F4 D9 " " call L07D9 077A : B4 86 " " call L0586 077C : F4 BD " " call L07BD 077E : EB 78 " x" djnz r3,L0778 0780 : F4 D9 " " call L07D9 0782 : B4 86 " " call L0586 0784 : 89 80 " " orl p1,#080H 0786 : 83 " " ret ; 0787 L0787: 0787 : B4 02 " " call L0502 0789 : 32 8F "2 " jb1 L078F 078B : 52 8F "R " jb2 L078F 078D : E4 93 " " jmp L0793 ; 078F L078F: 078F : 23 10 "# " mov a,#010H 0791 : B4 81 " " call L0581 0793 L0793: 0793 : B4 02 " " call L0502 0795 : 37 "7" cpl a 0796 : F2 9C " " jb7 L079C 0798 : 23 40 "#@" mov a,#040H 079A : B4 81 " " call L0581 079C L079C: 079C : 9A EF " " anl p2,#0EFH 079E : B8 03 " " mov r0,#003H 07A0 L07A0: 07A0 : E8 A0 " " djnz r0,L07A0 07A2 : B4 02 " " call L0502 07A4 : F2 AA " " jb7 L07AA 07A6 : 23 40 "#@" mov a,#040H 07A8 : B4 81 " " call L0581 07AA L07AA: 07AA : 8A 10 " " orl p2,#010H 07AC : 9A DF " " anl p2,#0DFH 07AE : B8 03 " " mov r0,#003H 07B0 L07B0: 07B0 : E8 B0 " " djnz r0,L07B0 07B2 : B4 02 " " call L0502 07B4 : F2 BA " " jb7 L07BA 07B6 : 23 40 "#@" mov a,#040H 07B8 : B4 81 " " call L0581 07BA L07BA: 07BA : 8A 20 " " orl p2,#020H 07BC : 83 " " ret ; 07BD L07BD: 07BD : B4 02 " " call L0502 07BF : 37 "7" cpl a 07C0 : 12 C6 " " jb0 L07C6 07C2 : 23 10 "# " mov a,#010H 07C4 : B4 7C " |" call L057C 07C6 L07C6: 07C6 : B4 0A " " call L050A 07C8 : 37 "7" cpl a 07C9 : F2 CF " " jb7 L07CF 07CB : 23 20 "# " mov a,#020H 07CD : B4 7C " |" call L057C 07CF L07CF: 07CF : B4 0A " " call L050A 07D1 : 37 "7" cpl a 07D2 : D2 D8 " " jb6 L07D8 07D4 : 23 40 "#@" mov a,#040H 07D6 : B4 7C " |" call L057C 07D8 L07D8: 07D8 : 83 " " ret ; 07D9 L07D9: 07D9 : B4 0A " " call L050A 07DB : DD " " xrl a,r5 07DC : 43 FC "C " orl a,#0FCH 07DE : 3A ":" outl p2,a 07DF : FD " " mov a,r5 07E0 : D3 03 " " xrl a,#003H 07E2 : AD " " mov r5,a 07E3 : 83 " " ret ; 07E4 : FF " " mov a,r7 07E5 : FF " " mov a,r7 07E6 : FF " " mov a,r7 07E7 : FF " " mov a,r7 07E8 : FF " " mov a,r7 07E9 : FF " " mov a,r7 07EA : FF " " mov a,r7 07EB : FF " " mov a,r7 07EC : FF " " mov a,r7 07ED : FF " " mov a,r7 07EE : FF " " mov a,r7 07EF : FF " " mov a,r7 07F0 : FF " " mov a,r7 07F1 : FF " " mov a,r7 07F2 : FF " " mov a,r7 07F3 : FF " " mov a,r7 07F4 : FF " " mov a,r7 07F5 : FF " " mov a,r7 07F6 : FF " " mov a,r7 07F7 : FF " " mov a,r7 07F8 : FF " " mov a,r7 07F9 : FF " " mov a,r7 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 0012 Code L0012 004F Code L004F 0051 Code L0051 0057 Code L0057 007E Code L007E 0080 Code L0080 008C Code L008C 00BB Code L00BB 00C3 Code L00C3 00CE Code L00CE 00F5 Code L00F5 00FC Code L00FC 0102 Code L0102 0103 Code L0103 013A Code L013A 014B Code L014B 015E Code L015E 0160 Code L0160 01B8 Code L01B8 01CE Code L01CE 01D7 Code L01D7 01E5 Code L01E5 01EF Code L01EF 01F3 Code L01F3 01F5 Code L01F5 0202 Code L0202 020D Code L020D 0232 Code L0232 0233 Code L0233 0245 Code L0245 0253 Code L0253 0257 Code L0257 0271 Code L0271 0279 Code L0279 027B Code L027B 027F Code L027F 0281 Code L0281 0283 Code L0283 0285 Code L0285 0294 Code L0294 029A Code L029A 029B Code L029B 029D Code L029D 02A0 Code L02A0 02AF Code L02AF 02BB Code L02BB 02C3 Code L02C3 02C4 Code L02C4 02CB Code L02CB 02D2 Code L02D2 02D6 Code L02D6 02D8 Code L02D8 02DD Code L02DD 02E8 Code L02E8 02EA Code L02EA 02F1 Code L02F1 02F5 Code L02F5 0302 Code L0302 0313 Code L0313 032E Code L032E 0334 Code L0334 0351 Code L0351 0353 Code L0353 0357 Code L0357 036A Code L036A 0377 Code L0377 0380 Code L0380 03A5 Code L03A5 03A7 Code L03A7 03B3 Code L03B3 03B7 Code L03B7 03BA Code L03BA 03C8 Code L03C8 03DA Code L03DA 03E0 Code L03E0 03EE Code L03EE 03F0 Code L03F0 03F2 Code L03F2 0402 Code L0402 0412 Code L0412 042A Code L042A 042E Code L042E 0430 Code L0430 0447 Code L0447 044D Code L044D 045E Code L045E 0462 Code L0462 0466 Code L0466 0468 Code L0468 046A Code L046A 046C Code L046C 0479 Code L0479 048B Code L048B 0497 Code L0497 0499 Code L0499 04A5 Code L04A5 04A7 Code L04A7 04B1 Code L04B1 04B3 Code L04B3 04B9 Code L04B9 04C3 Code L04C3 04D6 Code L04D6 04EB Code L04EB 04F6 Code L04F6 0502 Code L0502 050A Code L050A 0512 Code L0512 052F Code L052F 0550 Code L0550 0556 Code L0556 055C Code L055C 055F Code L055F 0566 Code L0566 0567 Code L0567 056E Code L056E 0575 Code L0575 057C Code L057C 0581 Code L0581 0586 Code L0586 0588 Code L0588 058C Code L058C 0590 Code L0590 05B9 Code L05B9 05CA Code L05CA 0602 Code L0602 065F Code L065F 066A Code L066A 066B Code L066B 0683 Code L0683 0685 Code L0685 0688 Code L0688 068E Code L068E 069C Code L069C 06A2 Code L06A2 06CC Code L06CC 06CD Code L06CD 06D6 Code L06D6 06DA Code L06DA 06E4 Code L06E4 0702 Code L0702 0705 Code L0705 0712 Code L0712 071D Code L071D 072C Code L072C 0737 Code L0737 0745 Code L0745 074B Code L074B 0756 Code L0756 075F Code L075F 0770 Code L0770 0772 Code L0772 0778 Code L0778 0787 Code L0787 078F Code L078F 0793 Code L0793 079C Code L079C 07A0 Code L07A0 07AA Code L07AA 07B0 Code L07B0 07BA Code L07BA 07BD Code L07BD 07C6 Code L07C6 07CF Code L07CF 07D8 Code L07D8 07D9 Code L07D9 Number of symbols: 166 ;--------------------------------------------------------------