; ; Disassembled by: ; DASMx object code disassembler ; (c) Copyright 1996-2003 Conquest Consultants ; Version 1.40 (Oct 18 2003) ; ; ; Size: 2048 bytes ; Checksum: 2300 ; CRC-32: 1BDDA2DC ; ; Date: Thu Apr 27 22:59:07 2023 ; ; CPU: Intel 8048 (MCS-48 family) ; ; ; org 00000H ; 0000 L0000: 0000 : 9A 3F " ?" anl p2,#03FH 0002 : BA 40 " @" mov r2,#040H 0004 : 04 34 " 4" jmp L0034 ; 0006 : 5D "]" anl a,r5 0007 : E4 66 " f" jmp L0766 ; 0009 L0009: 0009 : BE 01 " " mov r6,#001H 000B : FB " " mov a,r3 000C : D3 5E " ^" xrl a,#05EH 000E L000E: 000E : C6 1B " " jz L001B 0010 : 1E " " inc r6 0011 L0011: 0011 : D3 09 " " xrl a,#009H 0013 L0013: 0013 : C6 1B " " jz L001B 0015 : BE 04 " " mov r6,#004H 0017 : D3 34 " 4" xrl a,#034H 0019 : 96 2B " +" jnz L002B 001B L001B: 001B : FD " " mov a,r5 001C : 53 0C "S " anl a,#00CH 001E : 96 2B " +" jnz L002B 0020 : FC " " mov a,r4 0021 : DE " " xrl a,r6 0022 : AC " " mov r4,a 0023 : FA " " mov a,r2 0024 : 37 "7" cpl a 0025 : F2 2B " +" jb7 L002B 0027 : B9 3D " =" mov r1,#03DH 0029 : FC " " mov a,r4 002A : A1 " " mov @r1,a 002B L002B: 002B : 93 " " retr ; 002C L002C: 002C : F4 18 " " call L0718 002E : 04 60 " `" jmp L0060 ; 0030 L0030: 0030 : 14 F0 " " call L00F0 0032 : 04 42 " B" jmp L0042 ; 0034 L0034: 0034 : 99 FD " " anl p1,#0FDH 0036 : 56 42 "VB" jt1 L0042 0038 : 89 FF " " orl p1,#0FFH 003A : 99 FB " " anl p1,#0FBH 003C : 56 30 "V0" jt1 L0030 003E : BA 80 " " mov r2,#080H 0040 : 8A 80 " " orl p2,#080H 0042 L0042: 0042 : 35 "5" dis tcnti 0043 : 27 "'" clr a 0044 : D7 " " mov psw,a 0045 : 39 "9" outl p1,a 0046 : B8 7E " ~" mov r0,#07EH 0048 L0048: 0048 : 27 "'" clr a 0049 : A0 " " mov @r0,a 004A : C8 " " dec r0 004B : F8 " " mov a,r0 004C : D3 02 " " xrl a,#002H 004E : 96 48 " H" jnz L0048 0050 : BE AA " " mov r6,#0AAH 0052 : B8 28 " (" mov r0,#028H 0054 : B4 E8 " " call L05E8 0056 : F4 38 " 8" call L0738 0058 L0058: 0058 : 86 58 " X" jni L0058 005A : FA " " mov a,r2 005B : D2 2C " ," jb6 L002C 005D L005D: 005D : FE " " mov a,r6 005E : F4 85 " " call L0785 0060 L0060: 0060 : FA " " mov a,r2 0061 : 53 80 "S " anl a,#080H 0063 : 4C "L" orl a,r4 0064 L0064: 0064 : AC " " mov r4,a 0065 : 25 "%" en tcnti 0066 : 55 "U" strt t 0067 L0067: 0067 : B8 2F " /" mov r0,#02FH 0069 L0069: 0069 : D5 " " sel rb1 006A : FC " " mov a,r4 006B : C5 " " sel rb0 006C : C6 70 " p" jz L0070 006E : 94 00 " " call L0400 0070 L0070: 0070 : FA " " mov a,r2 0071 : F2 75 " u" jb7 L0075 0073 : B4 0E " " call L050E 0075 L0075: 0075 : 18 " " inc r0 0076 : F8 " " mov a,r0 0077 L0077: 0077 : D3 3D " =" xrl a,#03DH 0079 : C6 67 " g" jz L0067 007B : D4 08 " " call L0608 007D : AB " " mov r3,a 007E : B9 78 " x" mov r1,#078H 0080 L0080: 0080 : E9 80 " " djnz r1,L0080 0082 : D4 08 " " call L0608 0084 : DB " " xrl a,r3 0085 : 96 69 " i" jnz L0069 0087 : F4 9C " " call L079C 0089 : FB " " mov a,r3 008A : 37 "7" cpl a 008B : D0 " " xrl a,@r0 008C : C6 69 " i" jz L0069 008E : 37 "7" cpl a 008F : B9 7C " |" mov r1,#07CH 0091 : A1 " " mov @r1,a 0092 : FC " " mov a,r4 0093 : 43 70 "Cp" orl a,#070H 0095 : AC " " mov r4,a 0096 L0096: 0096 : B9 7C " |" mov r1,#07CH 0098 : F0 " " mov a,@r0 0099 : E7 " " rl a 009A : A0 " " mov @r0,a 009B : F1 " " mov a,@r1 009C : E7 " " rl a 009D : A1 " " mov @r1,a 009E : 12 CC " " jb0 L00CC 00A0 : 34 88 "4 " call L0188 00A2 : 17 " " inc a 00A3 : C6 CC " " jz L00CC 00A5 : 14 F7 " " call L00F7 00A7 : B9 7D " }" mov r1,#07DH 00A9 : FD " " mov a,r5 00AA : 53 C0 "S " anl a,#0C0H 00AC : A1 " " mov @r1,a 00AD : BF 00 " " mov r7,#000H 00AF : A5 " " clr f1 00B0 : F0 " " mov a,@r0 00B1 : 12 B9 " " jb0 L00B9 00B3 : 17 " " inc a 00B4 : A0 " " mov @r0,a 00B5 : B6 C0 " " jf0 L00C0 00B7 : 44 1E "D " jmp L021E ; 00B9 L00B9: 00B9 : 07 " " dec a 00BA : A0 " " mov @r0,a 00BB : B5 " " cpl f1 00BC : B6 DB " " jf0 L00DB 00BE : 44 7B "D{" jmp L027B ; 00C0 L00C0: 00C0 : 94 BD " " call L04BD 00C2 : FF " " mov a,r7 00C3 : 92 D9 " " jb4 L00D9 00C5 : 54 F0 "T " call L02F0 00C7 : 37 "7" cpl a 00C8 : 52 CC "R " jb2 L00CC 00CA : 34 BC "4 " call L01BC 00CC L00CC: 00CC : FC " " mov a,r4 00CD : 53 70 "Sp" anl a,#070H 00CF : 96 D3 " " jnz L00D3 00D1 : 04 69 " i" jmp L0069 ; 00D3 L00D3: 00D3 : FC " " mov a,r4 00D4 : 03 F0 " " add a,#0F0H 00D6 : AC " " mov r4,a 00D7 : 04 96 " " jmp L0096 00D9 L00D9: 00D9 : 44 54 "DT" jmp L0254 ; 00DB L00DB: 00DB : 54 F0 "T " call L02F0 00DD : 37 "7" cpl a 00DE : 32 E5 "2 " jb1 L00E5 00E0 : 94 BD " " call L04BD 00E2 : FF " " mov a,r7 00E3 : 92 EE " " jb4 L00EE 00E5 L00E5: 00E5 : FE " " mov a,r6 00E6 : D5 " " sel rb1 00E7 : DC " " xrl a,r4 00E8 : 96 EB " " jnz L00EB 00EA : AC " " mov r4,a 00EB L00EB: 00EB : C5 " " sel rb0 00EC : 04 CC " " jmp L00CC 00EE L00EE: 00EE : 44 A3 "D " jmp L02A3 ; 00F0 L00F0: 00F0 : BA 00 " " mov r2,#000H 00F2 L00F2: 00F2 : B9 7F " " mov r1,#07FH 00F4 : B1 02 " " mov @r1,#002H 00F6 : 93 " " retr ; 00F7 L00F7: 00F7 : D5 " " sel rb1 00F8 : F8 " " mov a,r0 00F9 : AE " " mov r6,a 00FA : 93 " " retr ; 00FB L00FB: 00FB : FA " " mov a,r2 00FC : 53 E1 "S " anl a,#0E1H 00FE : AA " " mov r2,a 00FF : 93 " " retr ; 0100 L0100: 0100 : 39 "9" outl p1,a 0101 : 15 " " dis i 0102 : 1C " " inc r4 0103 : 29 ")" xch a,r1 0104 : 19 " " inc r1 0105 : 67 "g" rrc a 0106 : 13 16 " " addc a,#016H 0108 : 2C "," xch a,r4 0109 : 2D "-" xch a,r5 010A : 34 2B "4+" call L012B 010C L010C: 010C : 2A "*" xch a,r2 010D : 25 "%" en tcnti 010E : 21 "!" xch a,@r1 010F : 2E "." xch a,r6 0110 : 24 1D "$ " jmp L011D ; 0112 : 23 1B "# " mov a,#01BH ; 0114 : 22 """ db 022H ; 0115 : 1E " " inc r6 0116 : 1A " " inc r2 0117 : 26 5C "&\" jnt0 L015C 0119 : 4D "M" orl a,r5 011A : 52 54 "RT" jb2 L0154 011C : 4A "J" orl a,r2 011D L011D: 011D : 45 "E" strt cnt 011E : 49 "I" orl a,r1 011F : 4E "N" orl a,r6 0120 : 44 43 "DC" jmp L0243 ; 0122 : 4B "K" orl a,r3 0123 L0123: 0123 : 42 "B" mov a,t 0124 : 41 "A" orl a,@r1 0125 : 3E ">" movd p6,a 0126 : 3A ":" outl p2,a 0127 : 46 5A "FZ" jnt1 L015A 0129 : 5B "[" anl a,r3 012A : 60 "`" add a,@r0 012B L012B: 012B : 4C "L" orl a,r4 012C : EF 55 " U" djnz r7,L0155 012E : 59 "Y" anl a,r1 ; 012F L012F: 012F : 66 "f" db 066H ; 0130 : 3C "<" movd p4,a 0131 : 35 "5" dis tcnti ; 0132 : 3B 33 ";3" db 03BH, 033H ; 0134 : 31 "1" xchd a,@r1 0135 : 3D "=" movd p5,a 0136 L0136: 0136 : 32 36 "26" jb1 L0136 0138 : 53 6D "Sm" anl a,#06DH 013A : 6A "j" add a,r2 013B : 65 "e" stop tcnt 013C : 70 "p" addc a,@r0 013D : 6F "o" add a,r7 ; 013E : 63 "c" db 063H ; 013F : 6E "n" add a,r6 0140 : 75 "u" ent0 clk 0141 : 4F "O" orl a,r7 ; 0142 : 73 "s" db 073H ; 0143 : 07 " " dec a 0144 : 72 2F "r/" jb3 L012F 0146 : 57 "W" da a 0147 : 77 "w" rr a 0148 : 7C "|" addc a,r4 0149 : 3F "?" movd p7,a 014A : 79 "y" addc a,r1 014B : 08 " " ins a,bus 014C : 71 "q" addc a,@r1 014D : 37 "7" cpl a 014E : 62 "b" mov t,a 014F : 84 6C " l" jmp L046C ; 0151 : 56 6B "Vk" jt1 L016B 0153 : 0F " " movd a,p7 0154 L0154: 0154 : 69 "i" add a,r1 0155 L0155: 0155 : 27 "'" clr a 0156 : 5E "^" anl a,r6 0157 : 76 7D "v}" jf1 L017D 0159 : 47 "G" swap a 015A L015A: 015A : 74 17 "t " call L0317 015C L015C: 015C : 7A "z" addc a,r2 015D : 1F " " inc r7 015E : 5F "_" anl a,r7 015F : 7E "~" addc a,r6 0160 : 58 "X" anl a,r0 0161 L0161: 0161 : 64 0D "d " jmp L030D ; 0163 : 14 11 " " call L0011 0165 : 0E " " movd a,p6 0166 : 12 61 " a" jb0 L0161 0168 : 00 " " nop 0169 L0169: 0169 : FE " " mov a,r6 016A : D3 7F " " xrl a,#07FH 016C : 96 70 " p" jnz L0170 016E : BE 84 " " mov r6,#084H 0170 L0170: 0170 : B9 FF " " mov r1,#0FFH 0172 L0172: 0172 : 19 " " inc r1 0173 : F9 " " mov a,r1 0174 : A3 " " movp a,@a 0175 : C6 86 " " jz L0186 0177 : DE " " xrl a,r6 0178 : 96 72 " r" jnz L0172 017A : F9 " " mov a,r1 017B : 54 F1 "T " call L02F1 017D L017D: 017D : 53 F0 "S " anl a,#0F0H 017F : D5 " " sel rb1 0180 : 4F "O" orl a,r7 0181 : C5 " " sel rb0 0182 : E6 85 " " jnc L0185 0184 : 47 "G" swap a 0185 L0185: 0185 : A1 " " mov @r1,a 0186 L0186: 0186 : 84 FC " " jmp L04FC ; 0188 L0188: 0188 : F8 " " mov a,r0 0189 : 53 0F "S " anl a,#00FH 018B : E7 " " rl a 018C : E7 " " rl a 018D : E7 " " rl a 018E : AE " " mov r6,a 018F : FC " " mov a,r4 0190 : 47 "G" swap a 0191 : 53 07 "S " anl a,#007H 0193 : 4E "N" orl a,r6 0194 : AB " " mov r3,a 0195 : B6 A3 " " jf0 L01A3 0197 : FC " " mov a,r4 0198 : F2 9D " " jb7 L019D 019A : FB " " mov a,r3 019B : 24 A0 "$ " jmp L01A0 ; 019D L019D: 019D : FB " " mov a,r3 019E : 03 98 " " add a,#098H 01A0 L01A0: 01A0 : E3 " " movp3 a,@a 01A1 : 24 A4 "$ " jmp L01A4 ; 01A3 L01A3: 01A3 : A3 " " movp a,@a 01A4 L01A4: 01A4 : AE " " mov r6,a 01A5 : 93 " " retr ; 01A6 L01A6: 01A6 : 8A 40 " @" orl p2,#040H 01A8 : D4 28 " (" call L0628 01AA : D4 28 " (" call L0628 01AC : 9A BF " " anl p2,#0BFH 01AE : 93 " " retr ; 01AF L01AF: 01AF : FB " " mov a,r3 01B0 : D3 66 " f" xrl a,#066H 01B2 : C6 B6 " " jz L01B6 01B4 : D3 48 " H" xrl a,#048H 01B6 L01B6: 01B6 : 93 " " retr ; 01B7 L01B7: 01B7 : FD " " mov a,r5 01B8 : 43 40 "C@" orl a,#040H 01BA : AD " " mov r5,a 01BB : 93 " " retr ; 01BC L01BC: 01BC : FA " " mov a,r2 01BD : 53 DF "S " anl a,#0DFH 01BF : AA " " mov r2,a 01C0 : FE " " mov a,r6 01C1 L01C1: 01C1 : D5 " " sel rb1 01C2 : AC " " mov r4,a 01C3 : BB 00 " " mov r3,#000H 01C5 : 93 " " retr ; 01C6 L01C6: 01C6 : BE FC " " mov r6,#0FCH 01C8 : FD " " mov a,r5 01C9 : 53 0C "S " anl a,#00CH 01CB : C6 CF " " jz L01CF 01CD : 1E " " inc r6 01CE : 1E " " inc r6 01CF L01CF: 01CF : FC " " mov a,r4 01D0 : F2 D3 " " jb7 L01D3 01D2 : 1E " " inc r6 01D3 L01D3: 01D3 : FE " " mov a,r6 01D4 : A3 " " movp a,@a 01D5 : AE " " mov r6,a 01D6 L01D6: 01D6 : FE " " mov a,r6 01D7 : 1E " " inc r6 01D8 : A3 " " movp a,@a 01D9 : C6 DF " " jz L01DF 01DB : F4 85 " " call L0785 01DD : 24 D6 "$ " jmp L01D6 01DF L01DF: 01DF : 44 3F "D?" jmp L023F ; 01E1 : E1 " " db 0E1H ; 01E2 : 1D " " inc r5 01E3 : 45 "E" strt cnt ; 01E4 : E1 " " db 0E1H ; 01E5 : 9D " " anld p5,a 01E6 : C5 " " sel rb0 01E7 : 00 " " nop ; 01E8 : E1 " " db 0E1H ; 01E9 : 14 77 " w" call L0077 ; 01EB : E1 " " db 0E1H ; 01EC : F0 " " mov a,@r0 01ED : 14 F0 " " call L00F0 01EF : 77 "w" rr a 01F0 : 00 " " nop ; 01F1 L01F1: 01F1 : E0 " " db 0E0H ; 01F2 : 46 E0 "F " jnt1 L01E0 01F4 : C6 00 " " jz L0100 ; 01F6 : E0 " " db 0E0H ; 01F7 : 7E "~" addc a,r6 ; 01F8 : E0 " " db 0E0H ; 01F9 : F0 " " mov a,@r0 01FA : 7E "~" addc a,r6 01FB : 00 " " nop ; 01FC : E1 " " db 0E1H ; 01FD : E8 F1 " " djnz r0,L01F1 01FF : F6 66 " f" jc L0266 0201 : 2E "." xch a,r6 0202 : 64 60 "d`" jmp L0360 0204 : 04 00 " " jmp L0000 ; 0206 L0206: 0206 : BF 00 " " mov r7,#000H 0208 L0208: 0208 : FF " " mov a,r7 0209 : 1F " " inc r7 020A : A3 " " movp a,@a 020B : F2 1D " " jb7 L021D 020D : DB " " xrl a,r3 020E : 96 08 " " jnz L0208 0210 : 23 80 "# " mov a,#080H 0212 L0212: 0212 : E7 " " rl a 0213 : EF 12 " " djnz r7,L0212 0215 : 76 1A "v " jf1 L021A 0217 : 4D "M" orl a,r5 0218 : 44 1C "D " jmp L021C ; 021A L021A: 021A : 37 "7" cpl a 021B : 5D "]" anl a,r5 021C L021C: 021C : AD " " mov r5,a 021D L021D: 021D : 93 " " retr ; 021E L021E: 021E : 94 26 " &" call L0426 0220 : FD " " mov a,r5 0221 : 12 5F " _" jb0 L025F 0223 : 32 5F "2_" jb1 L025F 0225 : 37 "7" cpl a 0226 : F2 2D " -" jb7 L022D 0228 : B5 " " cpl f1 0229 : 94 99 " " call L0499 022B : 74 89 "t " call L0389 022D L022D: 022D : FF " " mov a,r7 022E : 37 "7" cpl a 022F : 32 35 "25" jb1 L0235 0231 : 94 99 " " call L0499 0233 : 74 93 "t " call L0393 0235 L0235: 0235 : FB " " mov a,r3 0236 : D3 4E " N" xrl a,#04EH 0238 : 96 3C " <" jnz L023C 023A : 24 C6 "$ " jmp L01C6 ; 023C L023C: 023C : A5 " " clr f1 023D : 94 BD " " call L04BD 023F L023F: 023F : FF " " mov a,r7 0240 : 92 52 " R" jb4 L0252 0242 : 34 BC "4 " call L01BC 0244 : FB " " mov a,r3 0245 : D3 4E " N" xrl a,#04EH 0247 : 96 4B " K" jnz L024B 0249 : 34 C1 "4 " call L01C1 024B L024B: 024B : A5 " " clr f1 024C L024C: 024C : 54 06 "T " call L0206 024E : 14 09 " " call L0009 0250 : 44 5D "D]" jmp L025D ; 0252 L0252: 0252 : 94 26 " &" call L0426 0254 L0254: 0254 : 54 E5 "T " call L02E5 0256 : F0 " " mov a,@r0 0257 : 07 " " dec a 0258 : 44 5C "D\" jmp L025C ; 025A L025A: 025A : F0 " " mov a,@r0 025B : 17 " " inc a 025C L025C: 025C : A0 " " mov @r0,a 025D L025D: 025D : 04 CC " " jmp L00CC ; 025F L025F: 025F : 37 "7" cpl a 0260 : D2 66 " f" jb6 L0266 0262 : 94 99 " " call L0499 0264 : 74 8E "t " call L038E 0266 L0266: 0266 : FF " " mov a,r7 0267 : 12 6D " m" jb0 L026D 0269 : 32 77 "2w" jb1 L0277 026B : 44 79 "Dy" jmp L0279 ; 026D L026D: 026D : A5 " " clr f1 026E : B5 " " cpl f1 026F : 94 99 " " call L0499 0271 : 74 89 "t " call L0389 0273 : 34 B7 "4 " call L01B7 0275 : 44 79 "Dy" jmp L0279 ; 0277 L0277: 0277 : 74 93 "t " call L0393 0279 L0279: 0279 : 44 35 "D5" jmp L0235 ; 027B L027B: 027B : FB " " mov a,r3 027C : D3 4E " N" xrl a,#04EH 027E : C6 5D " ]" jz L025D 0280 : 74 68 "th" call L0368 0282 : FD " " mov a,r5 0283 : 12 A7 " " jb0 L02A7 0285 : 32 A7 "2 " jb1 L02A7 0287 : 37 "7" cpl a 0288 : F2 98 " " jb7 L0298 028A : FF " " mov a,r7 028B : 12 91 " " jb0 L0291 028D : 32 91 "2 " jb1 L0291 028F : 44 98 "D " jmp L0298 ; 0291 L0291: 0291 : 52 98 "R " jb2 L0298 0293 : B5 " " cpl f1 0294 : 94 99 " " call L0499 0296 : 74 89 "t " call L0389 0298 L0298: 0298 : A5 " " clr f1 0299 : FF " " mov a,r7 029A : 92 A1 " " jb4 L02A1 029C : B5 " " cpl f1 029D : 54 06 "T " call L0206 029F : 04 E5 " " jmp L00E5 ; 02A1 L02A1: 02A1 : 94 26 " &" call L0426 02A3 L02A3: 02A3 : 54 E5 "T " call L02E5 02A5 : 44 5A "DZ" jmp L025A ; 02A7 L02A7: 02A7 : D2 C8 " " jb6 L02C8 02A9 : 37 "7" cpl a 02AA : F2 98 " " jb7 L0298 02AC : 34 AF "4 " call L01AF 02AE : 96 BB " " jnz L02BB 02B0 : FD " " mov a,r5 02B1 : 37 "7" cpl a 02B2 : 53 03 "S " anl a,#003H 02B4 : C6 98 " " jz L0298 02B6 : 94 AB " " call L04AB 02B8 : A5 " " clr f1 02B9 : 44 98 "D " jmp L0298 ; 02BB L02BB: 02BB : FF " " mov a,r7 02BC : 12 C2 " " jb0 L02C2 02BE : 32 C2 "2 " jb1 L02C2 02C0 : 44 98 "D " jmp L0298 ; 02C2 L02C2: 02C2 : 72 98 "r " jb3 L0298 02C4 : 74 89 "t " call L0389 02C6 : 44 98 "D " jmp L0298 ; 02C8 L02C8: 02C8 : 34 AF "4 " call L01AF 02CA : 96 D6 " " jnz L02D6 02CC : FD " " mov a,r5 02CD : 37 "7" cpl a 02CE : 53 03 "S " anl a,#003H 02D0 : C6 98 " " jz L0298 02D2 : 74 8E "t " call L038E 02D4 : 44 98 "D " jmp L0298 ; 02D6 L02D6: 02D6 : FF " " mov a,r7 02D7 : 12 DD " " jb0 L02DD 02D9 : 32 DD "2 " jb1 L02DD 02DB : 44 98 "D " jmp L0298 ; 02DD L02DD: 02DD : 52 98 "R " jb2 L0298 02DF : 94 99 " " call L0499 02E1 : 74 8E "t " call L038E 02E3 : 44 98 "D " jmp L0298 ; 02E5 L02E5: 02E5 : B9 7D " }" mov r1,#07DH 02E7 : FD " " mov a,r5 02E8 : 53 3F "S?" anl a,#03FH 02EA : 41 "A" orl a,@r1 02EB : AD " " mov r5,a 02EC L02EC: 02EC : D5 " " sel rb1 02ED : FE " " mov a,r6 02EE : A8 " " mov r0,a 02EF : 93 " " retr ; 02F0 L02F0: 02F0 : FB " " mov a,r3 02F1 L02F1: 02F1 : 97 " " clr c 02F2 : 67 "g" rrc a 02F3 : 43 40 "C@" orl a,#040H 02F5 : A9 " " mov r1,a 02F6 : F1 " " mov a,@r1 02F7 : E6 FA " " jnc L02FA 02F9 : 47 "G" swap a 02FA L02FA: 02FA : 83 " " ret ; 02FB L02FB: 02FB : FA " " mov a,r2 02FC : 53 E0 "S " anl a,#0E0H 02FE : AA " " mov r2,a 02FF : 93 " " retr ; 0300 : 91 " " movx @r1,a 0301 : 15 " " dis i 0302 : 1C " " inc r4 0303 : 29 ")" xch a,r1 0304 L0304: 0304 : 11 " " inc @r1 0305 : F0 " " mov a,@r0 0306 : 61 "a" add a,@r1 0307 : 16 2C " ," jtf L032C 0309 : 2D "-" xch a,r5 030A L030A: 030A : 34 2B "4+" call L012B 030C : 2A "*" xch a,r2 030D L030D: 030D : 25 "%" en tcnti 030E L030E: 030E : 21 "!" xch a,@r1 030F : 2E "." xch a,r6 0310 : 24 1D "$ " jmp L011D ; 0312 : 23 1B "# " mov a,#01BH ; 0314 : 22 """ db 022H ; 0315 L0315: 0315 : 1E " " inc r6 0316 : 1A " " inc r2 0317 L0317: 0317 : 26 5D "&]" jnt0 L035D 0319 : 4D "M" orl a,r5 031A : 52 54 "RT" jb2 L0354 031C : 4A "J" orl a,r2 031D : 45 "E" strt cnt 031E : 49 "I" orl a,r1 031F : 4E "N" orl a,r6 0320 : 44 43 "DC" jmp L0243 ; 0322 : 4B "K" orl a,r3 0323 : 42 "B" mov a,t 0324 : 41 "A" orl a,@r1 0325 L0325: 0325 : 3E ">" movd p6,a 0326 : 3A ":" outl p2,a 0327 : 46 5A "FZ" jnt1 L035A 0329 : 5B "[" anl a,r3 032A : F2 4C " L" jb7 L034C 032C L032C: 032C : EF 55 " U" djnz r7,L0355 032E : 59 "Y" anl a,r1 ; 032F : 66 "f" db 066H ; 0330 : 3C "<" movd p4,a 0331 : 35 "5" dis tcnti ; 0332 : 3B 33 ";3" db 03BH, 033H ; 0334 : 31 "1" xchd a,@r1 0335 : 3D "=" movd p5,a 0336 L0336: 0336 : 32 36 "26" jb1 L0336 0338 : 5D "]" anl a,r5 0339 : FA " " mov a,r2 033A : F4 E9 " " call L07E9 033C : 70 "p" addc a,@r0 033D : FD " " mov a,r5 033E : F5 " " sel mb1 033F : EC 75 " u" djnz r4,L0375 0341 : 09 " " in a,p1 ; 0342 : 73 "s" db 073H ; 0343 : 05 " " en i 0344 : 72 0B "r " jb3 L030B 0346 : FC " " mov a,r4 0347 : CA " " dec r2 0348 : 79 "y" addc a,r1 0349 : 0A " " in a,p2 034A : DA " " xrl a,r2 034B : 76 71 "vq" jf1 L0371 034D : 83 " " ret ; 034E : 8F " " orld p7,a 034F : 7B "{" addc a,r3 0350 : 6C "l" add a,r4 0351 : 78 "x" addc a,r0 0352 : 6B "k" add a,r3 ; 0353 : 06 " " db 006H ; 0354 L0354: 0354 : 69 "i" add a,r1 0355 L0355: 0355 : 03 07 " " add a,#007H 0357 : 77 "w" rr a 0358 : 7D "}" addc a,r5 ; 0359 : 01 " " db 001H ; 035A L035A: 035A : 74 04 "t " call L0304 035C : 7A "z" addc a,r2 035D L035D: 035D : 0C " " movd a,p4 035E : 7E "~" addc a,r6 035F : 7C "|" addc a,r4 0360 L0360: 0360 : 94 F1 " " call L04F1 0362 : 0D " " movd a,p5 0363 : 58 "X" anl a,r0 0364 : 14 0E " " call L000E 0366 : 12 EB " " jb0 L03EB 0368 L0368: 0368 : 94 26 " &" call L0426 036A : 94 E7 " " call L04E7 036C : 94 BD " " call L04BD 036E : 93 " " retr ; 036F L036F: 036F : B9 40 " @" mov r1,#040H 0371 L0371: 0371 : FF " " mov a,r7 0372 : A1 " " mov @r1,a 0373 : 19 " " inc r1 0374 : F9 " " mov a,r1 0375 L0375: 0375 : D3 74 " t" xrl a,#074H 0377 : 96 71 " q" jnz L0371 0379 : 93 " " retr ; 037A L037A: 037A : B9 3D " =" mov r1,#03DH 037C : FE " " mov a,r6 037D : 37 "7" cpl a 037E : A1 " " mov @r1,a 037F : 53 07 "S " anl a,#007H 0381 : AE " " mov r6,a 0382 : FC " " mov a,r4 0383 : 53 F8 "S " anl a,#0F8H 0385 : 4E "N" orl a,r6 0386 : AC " " mov r4,a 0387 : 84 FA " " jmp L04FA ; 0389 L0389: 0389 : FD " " mov a,r5 038A : 53 7F "S " anl a,#07FH 038C : AD " " mov r5,a 038D : 93 " " retr ; 038E L038E: 038E : FD " " mov a,r5 038F : 53 BF "S " anl a,#0BFH 0391 : AD " " mov r5,a 0392 : 93 " " retr ; 0393 L0393: 0393 : FD " " mov a,r5 0394 : 43 80 "C " orl a,#080H 0396 : AD " " mov r5,a 0397 : 93 " " retr ; 0398 : B8 10 " " mov r0,#010H 039A : 1E " " inc r6 039B : 39 "9" outl p1,a ; 039C : 38 "8" db 038H ; 039D : D2 56 " V" jb6 L0356 039F : 02 " " outl bus,a 03A0 : 14 13 " " call L0013 ; 03A2 : 22 """ db 022H ; 03A3 : 21 "!" xch a,@r1 03A4 : 2F "/" xch a,r7 03A5 : 05 " " en i 03A6 : 2E "." xch a,r6 ; 03A7 : 06 " " db 006H ; 03A8 : 12 11 " " jb0 L0311 03AA : 20 " " xch a,@r0 03AB : 1F " " inc r7 03AC : 2D "-" xch a,r5 03AD : 03 2C " ," add a,#02CH 03AF : 04 2B " +" jmp L002B ; 03B1 : 19 " " inc r1 03B2 : 28 "(" xch a,r0 03B3 : 1A " " inc r2 03B4 : 35 "5" dis tcnti ; 03B5 : 0B " " db 00BH ; 03B6 : 34 0C "4 " call L010C 03B8 : 18 " " inc r0 03B9 : 17 " " inc a 03BA : 26 25 "&%" jnt0 L0325 ; 03BC : 33 "3" db 033H ; 03BD : 09 " " in a,p1 03BE : 32 0A "2 " jb1 L030A 03C0 : 1C " " inc r4 03C1 : 1B " " inc r3 03C2 : D0 " " xrl a,@r0 03C3 : 27 "'" clr a 03C4 : EF 0D " " djnz r7,L030D 03C6 : 36 0E "6 " jt0 L030E 03C8 : 16 15 " " jtf L0315 03CA : 24 23 "$#" jmp L0123 ; 03CC : 31 "1" xchd a,@r1 03CD : 08 " " ins a,bus 03CE : 30 "0" xchd a,@r0 03CF : 07 " " dec a 03D0 : 2B "+" xch a,r3 03D1 : D1 " " xrl a,@r1 03D2 : CD " " dec r5 03D3 : CF " " dec r7 03D4 : 52 C9 "R " jb2 L03C9 03D6 : C8 " " dec r0 03D7 : C7 " " mov a,psw 03D8 : 48 "H" orl a,r0 03D9 : 44 4C "DL" jmp L024C ; 03DB : 3B ";" db 03BH ; 03DC : 50 "P" anl a,@r0 03DD : 40 "@" orl a,@r0 ; 03DE : B7 " " db 0B7H ; 03DF : B5 " " cpl f1 03E0 : 4E "N" orl a,r6 03E1 : 42 "B" mov a,t 03E2 : 9C " " anld p4,a ; 03E3 : 01 " " db 001H ; 03E4 : 53 41 "SA" anl a,#041H 03E6 : 8F " " orld p7,a 03E7 : 4A "J" orl a,r2 03E8 : 47 "G" swap a 03E9 : 57 "W" da a 03EA : 4B "K" orl a,r3 03EB L03EB: 03EB : 3C "<" movd p4,a 03EC : 4F "O" orl a,r7 03ED : 3F "?" movd p7,a 03EE : 58 "X" anl a,r0 03EF : 45 "E" strt cnt 03F0 : 49 "I" orl a,r1 03F1 : 43 4D "CM" orl a,#04DH 03F3 : 3D "=" movd p5,a 03F4 : 51 "Q" anl a,@r1 03F5 : 3E ">" movd p6,a 03F6 : 46 37 "F7" jnt1 L0337 03F8 : 9D " " anld p5,a 03F9 : D3 0F " " xrl a,#00FH 03FB : 3A ":" outl p2,a 03FC : 1D " " inc r5 03FD : 29 ")" xch a,r1 03FE : 2A "*" xch a,r2 03FF : CB " " dec r3 0400 L0400: 0400 : B9 3F " ?" mov r1,#03FH 0402 : FA " " mov a,r2 0403 : B2 06 " " jb5 L0406 0405 : C9 " " dec r1 0406 L0406: 0406 : F1 " " mov a,@r1 0407 : D5 " " sel rb1 0408 : 6B "k" add a,r3 0409 : E6 25 " %" jnc L0425 040B : 86 25 " %" jni L0425 040D : 14 F7 " " call L00F7 040F : FC " " mov a,r4 0410 : C5 " " sel rb0 0411 : BF 00 " " mov r7,#000H 0413 : A5 " " clr f1 0414 : 94 BE " " call L04BE 0416 : FF " " mov a,r7 0417 : 37 "7" cpl a 0418 : 92 1D " " jb4 L041D 041A : 54 EC "T " call L02EC 041C : 93 " " retr ; 041D L041D: 041D : D5 " " sel rb1 041E : BB 00 " " mov r3,#000H 0420 : C5 " " sel rb0 0421 : FA " " mov a,r2 0422 : 43 20 "C " orl a,#020H 0424 : AA " " mov r2,a 0425 L0425: 0425 : 93 " " retr ; 0426 L0426: 0426 : B9 7E " ~" mov r1,#07EH 0428 : FB " " mov a,r3 0429 : D3 46 " F" xrl a,#046H 042B : 96 4B " K" jnz L044B 042D : 76 39 "v9" jf1 L0439 042F : FD " " mov a,r5 0430 : 53 30 "S0" anl a,#030H 0432 : C6 47 " G" jz L0447 0434 : FC " " mov a,r4 0435 : 43 08 "C " orl a,#008H 0437 : 84 40 " @" jmp L0440 ; 0439 L0439: 0439 : FC " " mov a,r4 043A : 37 "7" cpl a 043B : 72 47 "rG" jb3 L0447 043D : 37 "7" cpl a 043E : 53 F7 "S " anl a,#0F7H 0440 L0440: 0440 : AC " " mov r4,a 0441 : BE 54 " T" mov r6,#054H 0443 : F2 47 " G" jb7 L0447 0445 : BE 84 " " mov r6,#084H 0447 L0447: 0447 : BF 20 " " mov r7,#020H 0449 : 84 51 " Q" jmp L0451 ; 044B L044B: 044B : BF 10 " " mov r7,#010H 044D : D3 01 " " xrl a,#001H 044F : 96 72 " r" jnz L0472 0451 L0451: 0451 : FF " " mov a,r7 0452 : 76 57 "vW" jf1 L0457 0454 : 41 "A" orl a,@r1 0455 : 84 59 " Y" jmp L0459 ; 0457 L0457: 0457 : 37 "7" cpl a 0458 : 51 "Q" anl a,@r1 0459 L0459: 0459 : A1 " " mov @r1,a 045A : BF 01 " " mov r7,#001H 045C : FB " " mov a,r3 045D : D3 47 " G" xrl a,#047H 045F : C6 98 " " jz L0498 0461 : 1F " " inc r7 0462 : 76 98 "v " jf1 L0498 0464 : FC " " mov a,r4 0465 : 72 82 "r " jb3 L0482 0467 : FD " " mov a,r5 0468 : 12 98 " " jb0 L0498 046A : 32 98 "2 " jb1 L0498 046C L046C: 046C : 52 82 "R " jb2 L0482 046E : 72 82 "r " jb3 L0482 0470 : 84 98 " " jmp L0498 ; 0472 L0472: 0472 : FE " " mov a,r6 0473 : D3 EF " " xrl a,#0EFH 0475 : C6 82 " " jz L0482 0477 : BF 40 " @" mov r7,#040H 0479 : FC " " mov a,r4 047A : F2 7E " ~" jb7 L047E 047C : BF 20 " " mov r7,#020H 047E L047E: 047E : FF " " mov a,r7 047F : 6E "n" add a,r6 0480 : F6 8D " " jc L048D 0482 L0482: 0482 : BF 00 " " mov r7,#000H 0484 : 93 " " retr ; 0485 L0485: 0485 : 53 0F "S " anl a,#00FH 0487 : C6 92 " " jz L0492 0489 : F1 " " mov a,@r1 048A : 07 " " dec a 048B : 84 91 " " jmp L0491 ; 048D L048D: 048D : F1 " " mov a,@r1 048E : 76 85 "v " jf1 L0485 0490 : 17 " " inc a 0491 L0491: 0491 : A1 " " mov @r1,a 0492 L0492: 0492 : BF 01 " " mov r7,#001H 0494 : FC " " mov a,r4 0495 : 32 98 "2 " jb1 L0498 0497 : 1F " " inc r7 0498 L0498: 0498 : 93 " " retr ; 0499 L0499: 0499 : FD " " mov a,r5 049A : 53 03 "S " anl a,#003H 049C : C6 A2 " " jz L04A2 049E : 12 A2 " " jb0 L04A2 04A0 : 84 B4 " " jmp L04B4 ; 04A2 L04A2: 04A2 : 94 AB " " call L04AB 04A4 : FD " " mov a,r5 04A5 : 32 A8 "2 " jb1 L04A8 04A7 : 93 " " retr ; 04A8 L04A8: 04A8 : B5 " " cpl f1 04A9 : 84 B4 " " jmp L04B4 ; 04AB L04AB: 04AB : B9 AA " " mov r1,#0AAH 04AD : FC " " mov a,r4 04AE : F2 B2 " " jb7 L04B2 04B0 : B9 92 " " mov r1,#092H 04B2 L04B2: 04B2 : 84 BF " " jmp L04BF ; 04B4 L04B4: 04B4 : B9 B6 " " mov r1,#0B6H 04B6 : FC " " mov a,r4 04B7 : F2 BB " " jb7 L04BB 04B9 : B9 D9 " " mov r1,#0D9H 04BB L04BB: 04BB : 84 BF " " jmp L04BF ; 04BD L04BD: 04BD : FE " " mov a,r6 04BE L04BE: 04BE : A9 " " mov r1,a 04BF L04BF: 04BF : B5 " " cpl f1 04C0 : F9 " " mov a,r1 04C1 : 03 70 " p" add a,#070H 04C3 : E6 C7 " " jnc L04C7 04C5 : F4 83 " " call L0783 04C7 L04C7: 04C7 : FC " " mov a,r4 04C8 : F2 DD " " jb7 L04DD 04CA : 76 CE "v " jf1 L04CE 04CC : F4 D8 " " call L07D8 04CE L04CE: 04CE : F9 " " mov a,r1 04CF : D3 84 " " xrl a,#084H 04D1 : C6 E4 " " jz L04E4 04D3 : D3 07 " " xrl a,#007H 04D5 : C6 E4 " " jz L04E4 04D7 L04D7: 04D7 : F9 " " mov a,r1 04D8 : 53 7F "S " anl a,#07FH 04DA L04DA: 04DA : F4 85 " " call L0785 04DC : 93 " " retr ; 04DD L04DD: 04DD : 76 D7 "v " jf1 L04D7 04DF : F9 " " mov a,r1 04E0 : 43 80 "C " orl a,#080H 04E2 : 84 DA " " jmp L04DA ; 04E4 L04E4: 04E4 : F9 " " mov a,r1 04E5 : 84 DA " " jmp L04DA ; 04E7 L04E7: 04E7 : F1 " " mov a,@r1 04E8 : B9 0C " " mov r1,#00CH 04EA : B2 F6 " " jb5 L04F6 04EC : 53 1F "S " anl a,#01FH 04EE : C6 F9 " " jz L04F9 04F0 : FC " " mov a,r4 04F1 L04F1: 04F1 : 37 "7" cpl a 04F2 : 32 F6 "2 " jb1 L04F6 04F4 : B9 04 " " mov r1,#004H 04F6 L04F6: 04F6 : F9 " " mov a,r1 04F7 : 4F "O" orl a,r7 04F8 : AF " " mov r7,a 04F9 L04F9: 04F9 : 93 " " retr ; 04FA L04FA: 04FA : 14 FB " " call L00FB 04FC L04FC: 04FC : BE FE " " mov r6,#0FEH 04FE : A4 44 " D" jmp L0544 ; 0500 : F4 3F " ?" call L073F 0502 L0502: 0502 : FA " " mov a,r2 0503 : 53 1F "S " anl a,#01FH 0505 : 96 0E " " jnz L050E 0507 : 83 " " ret ; 0508 : FA " " mov a,r2 0509 : 43 10 "C " orl a,#010H 050B : AA " " mov r2,a 050C : B4 86 " " call L0586 050E L050E: 050E : D4 2B " +" call L062B 0510 : F6 02 " " jc L0502 0512 L0512: 0512 : B5 " " cpl f1 0513 : 76 34 "v4" jf1 L0534 0515 : AE " " mov r6,a 0516 : D3 FE " " xrl a,#0FEH 0518 : C6 A3 " " jz L05A3 051A : D3 10 " " xrl a,#010H 051C : C6 55 " U" jz L0555 051E : D3 01 " " xrl a,#001H 0520 : C6 34 " 4" jz L0534 0522 : D3 1E " " xrl a,#01EH 0524 : C6 34 " 4" jz L0534 0526 : FE " " mov a,r6 0527 : 03 13 " " add a,#013H 0529 : F6 42 " B" jc L0542 052B : FA " " mov a,r2 052C : 32 E4 "2 " jb1 L05E4 052E : 52 B6 "R " jb2 L05B6 0530 : 72 E2 "r " jb3 L05E2 0532 : 92 B8 " " jb4 L05B8 0534 L0534: 0534 : 23 FE "# " mov a,#0FEH 0536 L0536: 0536 : AF " " mov r7,a 0537 L0537: 0537 : FF " " mov a,r7 0538 : D4 57 " W" call L0657 053A : E6 0E " " jnc L050E 053C : D4 2B " +" call L062B 053E : F6 37 " 7" jc L0537 0540 : A4 12 " " jmp L0512 ; 0542 L0542: 0542 : 14 FB " " call L00FB 0544 L0544: 0544 : D4 2B " +" call L062B 0546 : E6 12 " " jnc L0512 0548 : 23 FA "# " mov a,#0FAH 054A : D4 57 " W" call L0657 054C : F6 44 " D" jc L0544 054E : FE " " mov a,r6 054F : B3 " " jmpp @a ;INFO: indirect jump ; 0550 : FA " " mov a,r2 0551 : 43 02 "C " orl a,#002H 0553 : A4 73 " s" jmp L0573 ; 0555 L0555: 0555 : D4 2B " +" call L062B 0557 : E6 12 " " jnc L0512 0559 : 23 EE "# " mov a,#0EEH 055B : D4 57 " W" call L0657 055D : F6 55 " U" jc L0555 055F : 14 FB " " call L00FB 0561 : A4 02 " " jmp L0502 0563 : C4 E2 " " jmp L06E2 ; 0565 : FA " " mov a,r2 0566 : 43 04 "C " orl a,#004H 0568 : A4 73 " s" jmp L0573 ; 056A : 54 FB "T " call L02FB 056C : A4 86 " " jmp L0586 ; 056E : F4 3F " ?" call L073F 0570 : FA " " mov a,r2 0571 : 43 01 "C " orl a,#001H 0573 L0573: 0573 : AA " " mov r2,a 0574 : A4 0E " " jmp L050E ; 0576 : BF 44 " D" mov r7,#044H 0578 : A4 84 " " jmp L0584 ; 057A L057A: 057A : BF 22 " "" mov r7,#022H 057C : A4 84 " " jmp L0584 ; 057E : BF 11 " " mov r7,#011H 0580 : A4 84 " " jmp L0584 ; 0582 : BF 66 " f" mov r7,#066H 0584 L0584: 0584 : 74 6F "to" call L036F 0586 L0586: 0586 : D5 " " sel rb1 0587 : 23 20 "# " mov a,#020H 0589 : A8 " " mov r0,a 058A : A9 " " mov r1,a 058B : 27 "'" clr a 058C : AC " " mov r4,a 058D : 93 " " retr ; 058E : 23 04 "# " mov a,#004H 0590 : A4 98 " " jmp L0598 ; 0592 : 23 02 "# " mov a,#002H 0594 : A4 98 " " jmp L0598 ; 0596 L0596: 0596 : 23 01 "# " mov a,#001H 0598 L0598: 0598 : D5 " " sel rb1 0599 : AF " " mov r7,a 059A : C5 " " sel rb0 059B : FA " " mov a,r2 059C : 43 08 "C " orl a,#008H 059E : AA " " mov r2,a 059F : B4 86 " " call L0586 05A1 : A4 02 " " jmp L0502 ; 05A3 L05A3: 05A3 : D5 " " sel rb1 05A4 : FA " " mov a,r2 05A5 : C5 " " sel rb0 05A6 : A4 36 " 6" jmp L0536 ; 05A8 L05A8: 05A8 : 86 A8 " " jni L05A8 05AA : D4 2B " +" call L062B 05AC : E6 12 " " jnc L0512 05AE : 54 FB "T " call L02FB 05B0 : 14 F2 " " call L00F2 05B2 : B4 E6 " " call L05E6 05B4 : 04 42 " B" jmp L0042 05B6 L05B6: 05B6 : E4 C3 " " jmp L07C3 ; 05B8 L05B8: 05B8 : FE " " mov a,r6 05B9 : 53 FC "S " anl a,#0FCH 05BB : 96 34 " 4" jnz L0534 05BD : B9 7F " " mov r1,#07FH 05BF : FE " " mov a,r6 05C0 : C6 D5 " " jz L05D5 05C2 : 2C "," xch a,r4 05C3 : 53 7F "S " anl a,#07FH 05C5 : 2C "," xch a,r4 05C6 : 32 CC "2 " jb1 L05CC 05C8 : 2C "," xch a,r4 05C9 : 43 80 "C " orl a,#080H 05CB : 2C "," xch a,r4 05CC L05CC: 05CC : A1 " " mov @r1,a 05CD : 85 " " clr f0 05CE : D3 03 " " xrl a,#003H 05D0 : 96 D3 " " jnz L05D3 05D2 : 95 " " cpl f0 05D3 L05D3: 05D3 : 84 FA " " jmp L04FA ; 05D5 L05D5: 05D5 : 14 FB " " call L00FB 05D7 L05D7: 05D7 : 23 FA "# " mov a,#0FAH 05D9 : D4 57 " W" call L0657 05DB : F6 D7 " " jc L05D7 05DD : B9 7F " " mov r1,#07FH 05DF : F1 " " mov a,@r1 05E0 : A4 36 " 6" jmp L0536 05E2 L05E2: 05E2 : 24 69 "$i" jmp L0169 05E4 L05E4: 05E4 : 64 7A "dz" jmp L037A ; 05E6 L05E6: 05E6 : B8 C3 " " mov r0,#0C3H 05E8 L05E8: 05E8 : E9 E8 " " djnz r1,L05E8 05EA : E8 E8 " " djnz r0,L05E8 05EC : 93 " " retr ; 05ED : 50 "P" anl a,@r0 05EE : 02 " " outl bus,a 05EF : 02 " " outl bus,a 05F0 : 08 " " ins a,bus 05F1 : 02 " " outl bus,a ; 05F2 : 63 "c" db 063H ; 05F3 : 65 "e" stop tcnt 05F4 : 6A "j" add a,r2 05F5 : 6E "n" add a,r6 05F6 : 00 " " nop 05F7 : 76 7A "vz" jf1 L057A 05F9 : 7E "~" addc a,r6 ; 05FA : 82 " " db 082H ; 05FB : 8E " " orld p6,a 05FC : 92 96 " " jb4 L0596 05FE : 02 " " outl bus,a 05FF : A8 " " mov r0,a 0600 : FE " " mov a,r6 0601 : FD " " mov a,r5 0602 : FB " " mov a,r3 0603 : F7 " " rlc a 0604 : EF DF " " djnz r7,L06DF 0606 : BF 7F " " mov r7,#07FH 0608 L0608: 0608 : B9 3D " =" mov r1,#03DH 060A : F8 " " mov a,r0 060B : 53 07 "S " anl a,#007H 060D : A3 " " movp a,@a 060E : AF " " mov r7,a 060F : 89 FF " " orl p1,#0FFH 0611 : 9A DF " " anl p2,#0DFH 0613 : 8A 20 " " orl p2,#020H 0615 : F8 " " mov a,r0 0616 : 72 1C "r " jb3 L061C 0618 : FF " " mov a,r7 0619 : 39 "9" outl p1,a 061A : C4 1F " " jmp L061F ; 061C L061C: 061C : 0A " " in a,p2 061D : 5F "_" anl a,r7 061E : 3A ":" outl p2,a 061F L061F: 061F : 08 " " ins a,bus 0620 : AF " " mov r7,a 0621 : F1 " " mov a,@r1 0622 : 47 "G" swap a 0623 : E7 " " rl a 0624 : 39 "9" outl p1,a 0625 : FF " " mov a,r7 0626 L0626: 0626 : 89 1F " " orl p1,#01FH 0628 L0628: 0628 : 8A 3F " ?" orl p2,#03FH 062A : 93 " " retr ; 062B L062B: 062B : 86 A0 " " jni L06A0 062D : 36 A0 "6 " jt0 L06A0 062F : 65 "e" stop tcnt 0630 : 97 " " clr c 0631 : 27 "'" clr a 0632 : B9 09 " " mov r1,#009H 0634 : 34 A6 "4 " call L01A6 0636 L0636: 0636 : 3F "?" movd p7,a 0637 : 3F "?" movd p7,a 0638 : 26 3B "&;" jnt0 L063B 063A : 17 " " inc a 063B L063B: 063B : 67 "g" rrc a 063C : 34 A6 "4 " call L01A6 063E : E9 36 " 6" djnz r1,L0636 0640 : 26 52 "&R" jnt0 L0652 0642 : 8A 80 " " orl p2,#080H 0644 : 3F "?" movd p7,a 0645 : 34 A6 "4 " call L01A6 0647 : 00 " " nop 0648 : 9A 7F " " anl p2,#07FH 064A : A5 " " clr f1 064B : E6 4E " N" jnc L064E 064D : B5 " " cpl f1 064E L064E: 064E : D4 A5 " " call L06A5 0650 : C4 9A " " jmp L069A ; 0652 L0652: 0652 : 27 "'" clr a 0653 : 97 " " clr c 0654 : 19 " " inc r1 0655 : C4 3B " ;" jmp L063B ; 0657 L0657: 0657 : D4 A4 " " call L06A4 0659 : 65 "e" stop tcnt 065A : 2A "*" xch a,r2 065B : D2 5E " ^" jb6 L065E 065D : B5 " " cpl f1 065E L065E: 065E : 53 BF "S " anl a,#0BFH 0660 : 2A "*" xch a,r2 0661 : 97 " " clr c 0662 : B9 09 " " mov r1,#009H 0664 : 86 9E " " jni L069E 0666 : 26 9E "& " jnt0 L069E 0668 : C4 6D " m" jmp L066D ; 066A L066A: 066A : 77 "w" rr a 066B : F2 7E " ~" jb7 L067E 066D L066D: 066D : 8A 80 " " orl p2,#080H 066F : 86 9E " " jni L069E 0671 : 34 A6 "4 " call L01A6 0673 : 3F "?" movd p7,a 0674 L0674: 0674 : 86 9E " " jni L069E 0676 : F6 86 " " jc L0686 0678 : E9 6A " j" djnz r1,L066A 067A : B5 " " cpl f1 067B : A7 " " cpl c 067C : 76 6D "vm" jf1 L066D 067E L067E: 067E : 9A 7F " " anl p2,#07FH 0680 : 86 9E " " jni L069E 0682 : 34 A6 "4 " call L01A6 0684 : C4 74 " t" jmp L0674 ; 0686 L0686: 0686 : 3F "?" movd p7,a 0687 : 3F "?" movd p7,a 0688 : 9A 7F " " anl p2,#07FH 068A : 86 9E " " jni L069E 068C : A5 " " clr f1 068D : 34 A6 "4 " call L01A6 068F : 86 92 " " jni L0692 0691 : B5 " " cpl f1 0692 L0692: 0692 : D3 FE " " xrl a,#0FEH 0694 : C6 9A " " jz L069A 0696 : D3 FE " " xrl a,#0FEH 0698 : D5 " " sel rb1 0699 : AA " " mov r2,a 069A L069A: 069A : 55 "U" strt t 069B : 97 " " clr c 069C : C5 " " sel rb0 069D : 83 " " ret ; 069E L069E: 069E : 9A 7F " " anl p2,#07FH 06A0 L06A0: 06A0 : 97 " " clr c 06A1 : A7 " " cpl c 06A2 : 55 "U" strt t 06A3 : 83 " " ret ; 06A4 L06A4: 06A4 : A5 " " clr f1 06A5 L06A5: 06A5 : B9 08 " " mov r1,#008H 06A7 L06A7: 06A7 : F2 AA " " jb7 L06AA 06A9 : B5 " " cpl f1 06AA L06AA: 06AA : E7 " " rl a 06AB : E9 A7 " " djnz r1,L06A7 06AD : 93 " " retr ; 06AE L06AE: 06AE : 65 "e" stop tcnt 06AF : A5 " " clr f1 06B0 : 8A 40 " @" orl p2,#040H 06B2 : 9A 7F " " anl p2,#07FH 06B4 : 00 " " nop 06B5 : 36 BE "6 " jt0 L06BE 06B7 : 8A 80 " " orl p2,#080H 06B9 : 9A BF " " anl p2,#0BFH 06BB : B5 " " cpl f1 06BC : 55 "U" strt t 06BD : 93 " " retr ; 06BE L06BE: 06BE : 9A BF " " anl p2,#0BFH 06C0 : BF 62 " b" mov r7,#062H 06C2 L06C2: 06C2 : EF C2 " " djnz r7,L06C2 06C4 : BE 09 " " mov r6,#009H 06C6 L06C6: 06C6 : D4 28 " (" call L0628 06C8 : 8A 40 " @" orl p2,#040H 06CA : D4 26 " &" call L0626 06CC : 9A BF " " anl p2,#0BFH 06CE : 3F "?" movd p7,a 06CF : 3F "?" movd p7,a 06D0 : EE D7 " " djnz r6,L06D7 06D2 : 3F "?" movd p7,a 06D3 : 8A 80 " " orl p2,#080H 06D5 : 55 "U" strt t 06D6 : 93 " " retr ; 06D7 L06D7: 06D7 : 77 "w" rr a 06D8 : F2 DE " " jb7 L06DE 06DA : 8A 80 " " orl p2,#080H 06DC : C4 C6 " " jmp L06C6 ; 06DE L06DE: 06DE : 9A 7F " " anl p2,#07FH 06E0 : C4 C6 " " jmp L06C6 ; 06E2 L06E2: 06E2 : D4 2B " +" call L062B 06E4 : F6 E8 " " jc L06E8 06E6 L06E6: 06E6 : A4 12 " " jmp L0512 ; 06E8 L06E8: 06E8 : 23 AB "# " mov a,#0ABH 06EA : D4 57 " W" call L0657 06EC : F6 E2 " " jc L06E2 06EE : BE C8 " " mov r6,#0C8H 06F0 L06F0: 06F0 : EE F0 " " djnz r6,L06F0 06F2 L06F2: 06F2 : D4 2B " +" call L062B 06F4 : E6 E6 " " jnc L06E6 06F6 : 23 83 "# " mov a,#083H 06F8 : D4 57 " W" call L0657 06FA : F6 F2 " " jc L06F2 06FC : 54 FB "T " call L02FB 06FE : A4 0E " " jmp L050E ; 0700 : 40 "@" orl a,@r0 0701 : 41 "A" orl a,@r1 0702 : 42 "B" mov a,t 0703 : 12 56 " V" jb0 L0756 0705 : 46 57 "FW" jnt1 L0757 0707 : 42 "B" mov a,t 0708 : 5C "\" anl a,r4 0709 : 14 5D " ]" call L005D 070B : 14 5F " _" call L005F 070D : 14 64 " d" call L0064 070F : 14 70 " p" call L0070 0711 : 41 "A" orl a,@r1 0712 : 71 "q" addc a,@r1 0713 : 24 72 "$r" jmp L0172 ; 0715 : 42 "B" mov a,t ; 0716 : 73 "s" db 073H ; 0717 : 42 "B" mov a,t 0718 L0718: 0718 : 86 18 " " jni L0718 071A : 26 29 "&)" jnt0 L0729 071C : FE " " mov a,r6 071D : D4 57 " W" call L0657 071F : F6 18 " " jc L0718 0721 : 86 25 " %" jni L0725 0723 : 76 34 "v4" jf1 L0734 0725 L0725: 0725 : 14 F0 " " call L00F0 0727 : A4 0E " " jmp L050E ; 0729 L0729: 0729 : D4 2B " +" call L062B 072B : F6 18 " " jc L0718 072D : B5 " " cpl f1 072E : 76 18 "v " jf1 L0718 0730 : 14 F0 " " call L00F0 0732 : A4 12 " " jmp L0512 ; 0734 L0734: 0734 : BA 80 " " mov r2,#080H 0736 : 8A 80 " " orl p2,#080H 0738 L0738: 0738 : B9 3D " =" mov r1,#03DH 073A : FC " " mov a,r4 073B : 43 07 "C " orl a,#007H 073D : AC " " mov r4,a 073E : A1 " " mov @r1,a 073F L073F: 073F : FA " " mov a,r2 0740 : 53 C1 "S " anl a,#0C1H 0742 : AA " " mov r2,a 0743 : BF 44 " D" mov r7,#044H 0745 : 74 6F "to" call L036F 0747 : B9 5C " \" mov r1,#05CH 0749 : BF 11 " " mov r7,#011H 074B : 74 71 "tq" call L0371 074D : AF " " mov r7,a 074E L074E: 074E : FF " " mov a,r7 074F : A3 " " movp a,@a 0750 : F2 5A " Z" jb7 L075A 0752 : A9 " " mov r1,a 0753 : 1F " " inc r7 0754 : FF " " mov a,r7 0755 : A3 " " movp a,@a 0756 L0756: 0756 : A1 " " mov @r1,a 0757 L0757: 0757 : 1F " " inc r7 0758 : E4 4E " N" jmp L074E ; 075A L075A: 075A : D5 " " sel rb1 075B : B8 3E " >" mov r0,#03EH 075D : B0 A1 " " mov @r0,#0A1H 075F : 18 " " inc r0 0760 : B0 F0 " " mov @r0,#0F0H 0762 : BA 03 " " mov r2,#003H 0764 : A4 86 " " jmp L0586 ; 0766 L0766: 0766 : D5 " " sel rb1 0767 : AD " " mov r5,a 0768 : FB " " mov a,r3 0769 : 17 " " inc a 076A : C6 6D " m" jz L076D 076C : AB " " mov r3,a 076D L076D: 076D : C5 " " sel rb0 076E : FA " " mov a,r2 076F : D5 " " sel rb1 0770 : F2 77 " w" jb7 L0777 0772 L0772: 0772 : 23 C3 "# " mov a,#0C3H 0774 : 62 "b" mov t,a 0775 : FD " " mov a,r5 0776 : 93 " " retr ; 0777 L0777: 0777 : 86 7D " }" jni L077D 0779 : BA 03 " " mov r2,#003H 077B : E4 72 " r" jmp L0772 ; 077D L077D: 077D : EA 72 " r" djnz r2,L0772 077F L077F: 077F : 86 7F " " jni L077F 0781 : 04 42 " B" jmp L0042 ; 0783 L0783: 0783 : 23 E0 "# " mov a,#0E0H 0785 L0785: 0785 : D5 " " sel rb1 0786 : 28 "(" xch a,r0 0787 : C6 95 " " jz L0795 0789 : 28 "(" xch a,r0 078A : A0 " " mov @r0,a 078B : F8 " " mov a,r0 078C : 17 " " inc a 078D : 53 2F "S/" anl a,#02FH 078F : A8 " " mov r0,a 0790 : D9 " " xrl a,r1 0791 : 96 94 " " jnz L0794 0793 : A8 " " mov r0,a 0794 L0794: 0794 : 93 " " retr ; 0795 L0795: 0795 : 28 "(" xch a,r0 0796 : C5 " " sel rb0 0797 : FF " " mov a,r7 0798 : 43 10 "C " orl a,#010H 079A : AF " " mov r7,a 079B : 93 " " retr ; 079C L079C: 079C : D5 " " sel rb1 079D : F8 " " mov a,r0 079E : D9 " " xrl a,r1 079F : C6 BF " " jz L07BF 07A1 L07A1: 07A1 : D5 " " sel rb1 07A2 : F1 " " mov a,@r1 07A3 : C5 " " sel rb0 07A4 : A9 " " mov r1,a 07A5 : FA " " mov a,r2 07A6 : F2 AF " " jb7 L07AF 07A8 : F9 " " mov a,r1 07A9 : D4 57 " W" call L0657 07AB : F6 C0 " " jc L07C0 07AD : E4 B4 " " jmp L07B4 ; 07AF L07AF: 07AF : F9 " " mov a,r1 07B0 : D4 AE " " call L06AE 07B2 : 76 BF "v " jf1 L07BF 07B4 L07B4: 07B4 : D5 " " sel rb1 07B5 : F8 " " mov a,r0 07B6 : 96 BA " " jnz L07BA 07B8 : F9 " " mov a,r1 07B9 : A8 " " mov r0,a 07BA L07BA: 07BA : F9 " " mov a,r1 07BB : 17 " " inc a 07BC : 53 2F "S/" anl a,#02FH 07BE : A9 " " mov r1,a 07BF L07BF: 07BF : 93 " " retr ; 07C0 L07C0: 07C0 : 36 A1 "6 " jt0 L07A1 07C2 : 93 " " retr ; 07C3 L07C3: 07C3 : FE " " mov a,r6 07C4 : 47 "G" swap a 07C5 : 77 "w" rr a 07C6 : 53 03 "S " anl a,#003H 07C8 : 03 DC " " add a,#0DCH 07CA : A3 " " movp a,@a 07CB : B9 3E " >" mov r1,#03EH 07CD : A1 " " mov @r1,a 07CE : FE " " mov a,r6 07CF : 53 1F "S " anl a,#01FH 07D1 : 03 E0 " " add a,#0E0H 07D3 : A3 " " movp a,@a 07D4 : 19 " " inc r1 07D5 : A1 " " mov @r1,a 07D6 : 84 FA " " jmp L04FA ; 07D8 L07D8: 07D8 : 23 F0 "# " mov a,#0F0H 07DA : E4 85 " " jmp L0785 ; 07DC : D1 " " xrl a,@r1 07DD : A1 " " mov @r1,a 07DE : 71 "q" addc a,@r1 07DF : 40 "@" orl a,@r0 07E0 : FA " " mov a,r2 07E1 : F9 " " mov a,r1 07E2 : F8 " " mov a,r0 07E3 : F8 " " mov a,r0 07E4 L07E4: 07E4 : F7 " " rlc a 07E5 : F6 F5 " " jc L07F5 07E7 : F4 F3 " " call L07F3 07E9 L07E9: 07E9 : F2 F0 " " jb7 L07F0 07EB : EE ED " " djnz r6,L07ED 07ED L07ED: 07ED : E9 E9 " " djnz r1,L07E9 07EF : E8 E4 " " djnz r0,L07E4 ; 07F1 : E2 " " db 0E2H ; 07F2 : DE " " xrl a,r6 07F3 L07F3: 07F3 : DA " " xrl a,r2 07F4 : D8 " " xrl a,r0 07F5 L07F5: 07F5 : D8 " " xrl a,r0 07F6 : CD " " dec r5 07F7 : CD " " dec r5 07F8 : C8 " " dec r0 ; 07F9 : C0 " " db 0C0H ; 07FA : BB B4 " " mov r3,#0B4H 07FC : B0 9F " " mov @r0,#09FH 07FE : 94 88 " " call L0488 ;-------------------------------------------------------------- Symbol table ============ Value Type Name ----- ---- ---- 0000 Code L0000 0009 Code L0009 000E Code L000E 0011 Code L0011 0013 Code L0013 001B Code L001B 002B Code L002B 002C Code L002C 0030 Code L0030 0034 Code L0034 0042 Code L0042 0048 Code L0048 0058 Code L0058 005D Code L005D 005F Code L005F 0060 Code L0060 0064 Code L0064 0067 Code L0067 0069 Code L0069 0070 Code L0070 0075 Code L0075 0077 Code L0077 0080 Code L0080 0096 Code L0096 00B9 Code L00B9 00C0 Code L00C0 00CC Code L00CC 00D3 Code L00D3 00D9 Code L00D9 00DB Code L00DB 00E5 Code L00E5 00EB Code L00EB 00EE Code L00EE 00F0 Code L00F0 00F2 Code L00F2 00F7 Code L00F7 00FB Code L00FB 0100 Code L0100 010C Code L010C 011D Code L011D 0123 Code L0123 012B Code L012B 012F Code L012F 0136 Code L0136 0154 Code L0154 0155 Code L0155 015A Code L015A 015C Code L015C 0161 Code L0161 0169 Code L0169 016B Code L016B 0170 Code L0170 0172 Code L0172 017D Code L017D 0185 Code L0185 0186 Code L0186 0188 Code L0188 019D Code L019D 01A0 Code L01A0 01A3 Code L01A3 01A4 Code L01A4 01A6 Code L01A6 01AF Code L01AF 01B6 Code L01B6 01B7 Code L01B7 01BC Code L01BC 01C1 Code L01C1 01C6 Code L01C6 01CF Code L01CF 01D3 Code L01D3 01D6 Code L01D6 01DF Code L01DF 01E0 Code L01E0 01F1 Code L01F1 0206 Code L0206 0208 Code L0208 0212 Code L0212 021A Code L021A 021C Code L021C 021D Code L021D 021E Code L021E 022D Code L022D 0235 Code L0235 023C Code L023C 023F Code L023F 0243 Code L0243 024B Code L024B 024C Code L024C 0252 Code L0252 0254 Code L0254 025A Code L025A 025C Code L025C 025D Code L025D 025F Code L025F 0266 Code L0266 026D Code L026D 0277 Code L0277 0279 Code L0279 027B Code L027B 0291 Code L0291 0298 Code L0298 02A1 Code L02A1 02A3 Code L02A3 02A7 Code L02A7 02BB Code L02BB 02C2 Code L02C2 02C8 Code L02C8 02D6 Code L02D6 02DD Code L02DD 02E5 Code L02E5 02EC Code L02EC 02F0 Code L02F0 02F1 Code L02F1 02FA Code L02FA 02FB Code L02FB 0304 Code L0304 030A Code L030A 030B Code L030B 030D Code L030D 030E Code L030E 0311 Code L0311 0315 Code L0315 0317 Code L0317 0325 Code L0325 032C Code L032C 0336 Code L0336 0337 Code L0337 034C Code L034C 0354 Code L0354 0355 Code L0355 0356 Code L0356 035A Code L035A 035D Code L035D 0360 Code L0360 0368 Code L0368 036F Code L036F 0371 Code L0371 0375 Code L0375 037A Code L037A 0389 Code L0389 038E Code L038E 0393 Code L0393 03C9 Code L03C9 03EB Code L03EB 0400 Code L0400 0406 Code L0406 041D Code L041D 0425 Code L0425 0426 Code L0426 0439 Code L0439 0440 Code L0440 0447 Code L0447 044B Code L044B 0451 Code L0451 0457 Code L0457 0459 Code L0459 046C Code L046C 0472 Code L0472 047E Code L047E 0482 Code L0482 0485 Code L0485 0488 Code L0488 048D Code L048D 0491 Code L0491 0492 Code L0492 0498 Code L0498 0499 Code L0499 04A2 Code L04A2 04A8 Code L04A8 04AB Code L04AB 04B2 Code L04B2 04B4 Code L04B4 04BB Code L04BB 04BD Code L04BD 04BE Code L04BE 04BF Code L04BF 04C7 Code L04C7 04CE Code L04CE 04D7 Code L04D7 04DA Code L04DA 04DD Code L04DD 04E4 Code L04E4 04E7 Code L04E7 04F1 Code L04F1 04F6 Code L04F6 04F9 Code L04F9 04FA Code L04FA 04FC Code L04FC 0502 Code L0502 050E Code L050E 0512 Code L0512 0534 Code L0534 0536 Code L0536 0537 Code L0537 0542 Code L0542 0544 Code L0544 0555 Code L0555 0573 Code L0573 057A Code L057A 0584 Code L0584 0586 Code L0586 0596 Code L0596 0598 Code L0598 05A3 Code L05A3 05A8 Code L05A8 05B6 Code L05B6 05B8 Code L05B8 05CC Code L05CC 05D3 Code L05D3 05D5 Code L05D5 05D7 Code L05D7 05E2 Code L05E2 05E4 Code L05E4 05E6 Code L05E6 05E8 Code L05E8 0608 Code L0608 061C Code L061C 061F Code L061F 0626 Code L0626 0628 Code L0628 062B Code L062B 0636 Code L0636 063B Code L063B 064E Code L064E 0652 Code L0652 0657 Code L0657 065E Code L065E 066A Code L066A 066D Code L066D 0674 Code L0674 067E Code L067E 0686 Code L0686 0692 Code L0692 069A Code L069A 069E Code L069E 06A0 Code L06A0 06A4 Code L06A4 06A5 Code L06A5 06A7 Code L06A7 06AA Code L06AA 06AE Code L06AE 06BE Code L06BE 06C2 Code L06C2 06C6 Code L06C6 06D7 Code L06D7 06DE Code L06DE 06DF Code L06DF 06E2 Code L06E2 06E6 Code L06E6 06E8 Code L06E8 06F0 Code L06F0 06F2 Code L06F2 0718 Code L0718 0725 Code L0725 0729 Code L0729 0734 Code L0734 0738 Code L0738 073F Code L073F 074E Code L074E 0756 Code L0756 0757 Code L0757 075A Code L075A 0766 Code L0766 076D Code L076D 0772 Code L0772 0777 Code L0777 077D Code L077D 077F Code L077F 0783 Code L0783 0785 Code L0785 0794 Code L0794 0795 Code L0795 079C Code L079C 07A1 Code L07A1 07AF Code L07AF 07B4 Code L07B4 07BA Code L07BA 07BF Code L07BF 07C0 Code L07C0 07C3 Code L07C3 07D8 Code L07D8 07E4 Code L07E4 07E9 Code L07E9 07ED Code L07ED 07F0 Code L07F0 07F3 Code L07F3 07F5 Code L07F5 Number of symbols: 287 ;--------------------------------------------------------------