org 00000H ; 0000 : 27 "'" clr a 0001 : 02 " " outl bus,a 0002 : B8 7F " " mov r0,#07FH 0004 : 25 "%" en tcnti 0005 L0005: 0005 : 24 BC "$ " jmp L01BC ; 0007 L0007: 0007 : C5 " " sel rb0 0008 : AD " " mov r5,a 0009 : 23 FA "# " mov a,#0FAH 000B : 62 "b" mov t,a 000C : D5 " " sel rb1 000D : 55 "U" strt t 000E : EF 15 " " djnz r7,L0015 0010 : BF 03 " " mov r7,#003H 0012 : FA " " mov a,r2 0013 : 96 D3 " " jnz L00D3 0015 L0015: 0015 : FE " " mov a,r6 0016 : 72 73 "rs" jb3 L0073 0018 : 46 C9 "F " jnt1 L00C9 001A L001A: 001A : FE " " mov a,r6 001B : B2 FF " " jb5 L00FF 001D : 26 CE "& " jnt0 L00CE 001F L001F: 001F : FF " " mov a,r7 0020 : 12 8F " " jb0 L008F 0022 : B8 32 " 2" mov r0,#032H 0024 L0024: 0024 : F0 " " mov a,@r0 0025 : 96 4D " M" jnz L004D 0027 : FA " " mov a,r2 0028 : 96 8F " " jnz L008F 002A : FC " " mov a,r4 002B : 43 80 "C " orl a,#080H 002D : B6 31 " 1" jf0 L0031 002F : 53 7F "S " anl a,#07FH 0031 L0031: 0031 : AC " " mov r4,a 0032 : 32 B0 "2 " jb1 L00B0 0034 : FE " " mov a,r6 0035 : F2 BD " " jb7 L00BD 0037 L0037: 0037 : D2 75 " u" jb6 L0075 0039 : C5 " " sel rb0 003A : 76 97 "v " jf1 L0097 003C : FF " " mov a,r7 003D : 96 78 " x" jnz L0078 003F : F9 " " mov a,r1 0040 : D5 " " sel rb1 0041 : D9 " " xrl a,r1 0042 : C6 8F " " jz L008F 0044 : 21 "!" xch a,@r1 0045 : 29 ")" xch a,r1 0046 : 17 " " inc a 0047 : 53 4F "SO" anl a,#04FH 0049 : 29 ")" xch a,r1 004A L004A: 004A : D5 " " sel rb1 004B : 04 88 " " jmp L0088 ; 004D L004D: 004D : B0 00 " " mov @r0,#000H 004F : C8 " " dec r0 0050 : F0 " " mov a,@r0 0051 : D3 DF " " xrl a,#0DFH 0053 : 96 6D " m" jnz L006D 0055 : C5 " " sel rb0 0056 : B1 DF " " mov @r1,#0DFH 0058 : F9 " " mov a,r1 0059 : 17 " " inc a 005A : 53 4F "SO" anl a,#04FH 005C : A9 " " mov r1,a 005D : D5 " " sel rb1 005E : D9 " " xrl a,r1 005F : 96 6D " m" jnz L006D 0061 : B8 37 " 7" mov r0,#037H 0063 : B0 CF " " mov @r0,#0CFH 0065 : F9 " " mov a,r1 0066 : 17 " " inc a 0067 : 53 4F "SO" anl a,#04FH 0069 : A9 " " mov r1,a 006A : C5 " " sel rb0 006B : FD " " mov a,r5 006C : 93 " " retr ; 006D L006D: 006D : B8 37 " 7" mov r0,#037H 006F : B0 CE " " mov @r0,#0CEH 0071 : 04 8F " " jmp L008F 0073 L0073: 0073 : 24 5E "$^" jmp L015E ; 0075 L0075: 0075 : 76 B5 "v " jf1 L00B5 0077 : C5 " " sel rb0 0078 L0078: 0078 : F9 " " mov a,r1 0079 : D5 " " sel rb1 007A : D9 " " xrl a,r1 007B : C6 92 " " jz L0092 007D : F1 " " mov a,@r1 007E : D3 DF " " xrl a,#0DFH 0080 : 96 92 " " jnz L0092 0082 : 21 "!" xch a,@r1 0083 : 29 ")" xch a,r1 0084 : 17 " " inc a 0085 : 53 4F "SO" anl a,#04FH 0087 : 29 ")" xch a,r1 0088 L0088: 0088 : AD " " mov r5,a 0089 L0089: 0089 : BA 09 " " mov r2,#009H 008B : FE " " mov a,r6 008C : 53 FD "S " anl a,#0FDH 008E : AE " " mov r6,a 008F L008F: 008F : C5 " " sel rb0 0090 : FD " " mov a,r5 0091 : 93 " " retr ; 0092 L0092: 0092 : B5 " " cpl f1 0093 : BD DF " " mov r5,#0DFH 0095 : 04 89 " " jmp L0089 ; 0097 L0097: 0097 : FF " " mov a,r7 0098 : C6 A5 " " jz L00A5 009A : D3 CE " " xrl a,#0CEH 009C : 96 A1 " " jnz L00A1 009E : AF " " mov r7,a 009F : 04 4A " J" jmp L004A ; 00A1 L00A1: 00A1 : 27 "'" clr a 00A2 : 2F "/" xch a,r7 00A3 : 04 4A " J" jmp L004A ; 00A5 L00A5: 00A5 : F9 " " mov a,r1 00A6 : D5 " " sel rb1 00A7 : D9 " " xrl a,r1 00A8 : C6 8F " " jz L008F 00AA : A5 " " clr f1 00AB : B8 37 " 7" mov r0,#037H 00AD : F0 " " mov a,@r0 00AE : 04 88 " " jmp L0088 ; 00B0 L00B0: 00B0 : FE " " mov a,r6 00B1 : D2 75 " u" jb6 L0075 00B3 : 04 8F " " jmp L008F ; 00B5 L00B5: 00B5 : 53 BF "S " anl a,#0BFH 00B7 : AE " " mov r6,a 00B8 : B8 2F " /" mov r0,#02FH 00BA : F0 " " mov a,@r0 00BB : 04 88 " " jmp L0088 ; 00BD L00BD: 00BD : 53 7F "S " anl a,#07FH 00BF : AE " " mov r6,a 00C0 : 23 80 "# " mov a,#080H 00C2 : DC " " xrl a,r4 00C3 : AC " " mov r4,a 00C4 : B8 2F " /" mov r0,#02FH 00C6 : F0 " " mov a,@r0 00C7 : 04 88 " " jmp L0088 ; 00C9 L00C9: 00C9 : 43 08 "C " orl a,#008H 00CB : AE " " mov r6,a 00CC : 04 1A " " jmp L001A ; 00CE L00CE: 00CE : 43 20 "C " orl a,#020H 00D0 : AE " " mov r6,a 00D1 : 04 1F " " jmp L001F 00D3 L00D3: 00D3 : 44 9C "D " jmp L029C ; 00D5 L00D5: 00D5 : FE " " mov a,r6 00D6 : A3 " " movp a,@a 00D7 : 68 "h" add a,r0 00D8 : A8 " " mov r0,a 00D9 : FE " " mov a,r6 00DA : E3 " " movp3 a,@a 00DB : 68 "h" add a,r0 00DC : A8 " " mov r0,a 00DD : FE " " mov a,r6 00DE : 94 00 " " call L0400 00E0 : 68 "h" add a,r0 00E1 : A8 " " mov r0,a 00E2 : FE " " mov a,r6 00E3 : F4 00 " " call L0700 00E5 : 68 "h" add a,r0 00E6 : A8 " " mov r0,a 00E7 : EE D5 " " djnz r6,L00D5 00E9 : B8 35 " 5" mov r0,#035H 00EB : A0 " " mov @r0,a 00EC : 00 " " nop 00ED : 24 CB "$ " jmp L01CB ; 00EF L00EF: 00EF : B2 F8 " " jb5 L00F8 00F1 : 27 "'" clr a 00F2 : B8 70 " p" mov r0,#070H 00F4 : B0 80 " " mov @r0,#080H 00F6 : 24 E7 "$ " jmp L01E7 ; 00F8 L00F8: 00F8 : 23 7E "#~" mov a,#07EH 00FA : A8 " " mov r0,a 00FB : B0 01 " " mov @r0,#001H 00FD : 24 E7 "$ " jmp L01E7 ; 00FF L00FF: 00FF : 92 1B " " jb4 L011B 0101 : 36 16 "6 " jt0 L0116 0103 : 43 10 "C " orl a,#010H 0105 : AE " " mov r6,a 0106 : B8 2D " -" mov r0,#02DH 0108 : B0 09 " " mov @r0,#009H 010A : 18 " " inc r0 010B : B0 00 " " mov @r0,#000H 010D : FB " " mov a,r3 010E : 53 0F "S " anl a,#00FH 0110 : 47 "G" swap a 0111 : 4F "O" orl a,r7 0112 : 47 "G" swap a 0113 : AB " " mov r3,a 0114 L0114: 0114 : 04 1F " " jmp L001F ; 0116 L0116: 0116 : 53 CF "S " anl a,#0CFH 0118 : AE " " mov r6,a 0119 : 04 1F " " jmp L001F ; 011B L011B: 011B : FB " " mov a,r3 011C : 47 "G" swap a 011D : DF " " xrl a,r7 011E : 53 03 "S " anl a,#003H 0120 : 96 14 " " jnz L0114 0122 : B8 2D " -" mov r0,#02DH 0124 : F0 " " mov a,@r0 0125 : 07 " " dec a 0126 : A0 " " mov @r0,a 0127 : 18 " " inc r0 0128 : C6 32 " 2" jz L0132 012A : 26 2D "&-" jnt0 L012D 012C : 10 " " inc @r0 012D L012D: 012D : F0 " " mov a,@r0 012E : 77 "w" rr a 012F : A0 " " mov @r0,a 0130 : 04 1F " " jmp L001F ; 0132 L0132: 0132 : FE " " mov a,r6 0133 : 26 16 "& " jnt0 L0116 0135 : 53 CF "S " anl a,#0CFH 0137 : AE " " mov r6,a 0138 : 12 52 " R" jb0 L0152 013A : F0 " " mov a,@r0 013B : E3 " " movp3 a,@a 013C : 96 43 " C" jnz L0143 013E : FC " " mov a,r4 013F : 54 37 "T7" call L0237 0141 : 04 8F " " jmp L008F ; 0143 L0143: 0143 : 94 09 " " call L0409 0145 : FE " " mov a,r6 0146 : 43 01 "C " orl a,#001H 0148 : AE " " mov r6,a 0149 : B8 09 " " mov r0,#009H 014B : F0 " " mov a,@r0 014C : 43 20 "C " orl a,#020H 014E : A0 " " mov @r0,a 014F : C5 " " sel rb0 0150 : FD " " mov a,r5 0151 : 93 " " retr ; 0152 L0152: 0152 : B6 59 " Y" jf0 L0159 0154 : 54 34 "T4" call L0234 0156 : C5 " " sel rb0 0157 : FD " " mov a,r5 0158 : 93 " " retr ; 0159 L0159: 0159 : 94 02 " " call L0402 015B : C5 " " sel rb0 015C : FD " " mov a,r5 015D : 93 " " retr ; 015E L015E: 015E : 52 78 "Rx" jb2 L0178 0160 : 56 73 "Vs" jt1 L0173 0162 : 43 04 "C " orl a,#004H 0164 : AE " " mov r6,a 0165 : B8 2B " +" mov r0,#02BH 0167 : B0 09 " " mov @r0,#009H 0169 : 18 " " inc r0 016A : B0 00 " " mov @r0,#000H 016C : FB " " mov a,r3 016D : 53 F0 "S " anl a,#0F0H 016F : 4F "O" orl a,r7 0170 : AB " " mov r3,a 0171 L0171: 0171 : 04 1A " " jmp L001A ; 0173 L0173: 0173 : 53 F3 "S " anl a,#0F3H 0175 : AE " " mov r6,a 0176 : 04 1A " " jmp L001A ; 0178 L0178: 0178 : FB " " mov a,r3 0179 : DF " " xrl a,r7 017A : 53 03 "S " anl a,#003H 017C : 96 71 " q" jnz L0171 017E : B8 2B " +" mov r0,#02BH 0180 : F0 " " mov a,@r0 0181 : 07 " " dec a 0182 : A0 " " mov @r0,a 0183 : 18 " " inc r0 0184 : C6 8E " " jz L018E 0186 : 46 89 "F " jnt1 L0189 0188 : 10 " " inc @r0 0189 L0189: 0189 : F0 " " mov a,@r0 018A : 77 "w" rr a 018B : A0 " " mov @r0,a 018C : 04 1A " " jmp L001A ; 018E L018E: 018E : FE " " mov a,r6 018F : 46 73 "Fs" jnt1 L0173 0191 : 53 F3 "S " anl a,#0F3H 0193 : AE " " mov r6,a 0194 : 12 B2 " " jb0 L01B2 0196 : F0 " " mov a,@r0 0197 : E3 " " movp3 a,@a 0198 : C6 A2 " " jz L01A2 019A : 94 09 " " call L0409 019C : FE " " mov a,r6 019D : 43 01 "C " orl a,#001H 019F : AE " " mov r6,a 01A0 : 04 1A " " jmp L001A ; 01A2 L01A2: 01A2 : FC " " mov a,r4 01A3 : 54 37 "T7" call L0237 01A5 : FE " " mov a,r6 01A6 : 12 AA " " jb0 L01AA 01A8 : 04 1A " " jmp L001A ; 01AA L01AA: 01AA : B8 09 " " mov r0,#009H 01AC : F0 " " mov a,@r0 01AD : 43 20 "C " orl a,#020H 01AF : A0 " " mov @r0,a 01B0 : 04 1A " " jmp L001A ; 01B2 L01B2: 01B2 : B6 B8 " " jf0 L01B8 01B4 : 94 02 " " call L0402 01B6 : 04 1A " " jmp L001A ; 01B8 L01B8: 01B8 : 54 34 "T4" call L0234 01BA : 04 1A " " jmp L001A ; 01BC L01BC: 01BC : C5 " " sel rb0 01BD : 85 " " clr f0 01BE : A5 " " clr f1 01BF : B5 " " cpl f1 01C0 L01C0: 01C0 : A0 " " mov @r0,a 01C1 : E8 C0 " " djnz r0,L01C0 01C3 L01C3: 01C3 : FE " " mov a,r6 01C4 : A3 " " movp a,@a 01C5 : 68 "h" add a,r0 01C6 : A8 " " mov r0,a 01C7 : EE C3 " " djnz r6,L01C3 01C9 : 44 F7 "D " jmp L02F7 ; 01CB L01CB: 01CB : 23 FA "# " mov a,#0FAH 01CD : 62 "b" mov t,a 01CE : B8 37 " 7" mov r0,#037H 01D0 : B0 CE " " mov @r0,#0CEH 01D2 : B9 40 " @" mov r1,#040H 01D4 : D5 " " sel rb1 01D5 : BF 03 " " mov r7,#003H 01D7 : B9 40 " @" mov r1,#040H 01D9 : C5 " " sel rb0 01DA : B8 28 " (" mov r0,#028H 01DC : B0 0A " " mov @r0,#00AH 01DE : BB 03 " " mov r3,#003H 01E0 L01E0: 01E0 : 9A FC " " anl p2,#0FCH 01E2 : 8A 20 " " orl p2,#020H 01E4 : 0A " " in a,p2 01E5 : 04 EF " " jmp L00EF ; 01E7 L01E7: 01E7 : 39 "9" outl p1,a 01E8 : 00 " " nop 01E9 : 00 " " nop 01EA : 8A 03 " " orl p2,#003H 01EC : EB E0 " " djnz r3,L01E0 01EE : BB F0 " " mov r3,#0F0H 01F0 : 86 F6 " " jni L01F6 01F2 : B0 00 " " mov @r0,#000H 01F4 : BB B0 " " mov r3,#0B0H 01F6 L01F6: 01F6 : BE 78 " x" mov r6,#078H 01F8 : 55 "U" strt t 01F9 L01F9: 01F9 : BF FE " " mov r7,#0FEH 01FB L01FB: 01FB : FF " " mov a,r7 01FC : 96 FB " " jnz L01FB 01FE : EE F9 " " djnz r6,L01F9 0200 : FB " " mov a,r3 0201 : AF " " mov r7,a 0202 L0202: 0202 : FF " " mov a,r7 0203 : 96 02 " " jnz L0202 0205 : BF 04 " " mov r7,#004H 0207 L0207: 0207 : FF " " mov a,r7 0208 : 96 07 " " jnz L0207 020A : D5 " " sel rb1 020B L020B: 020B : FA " " mov a,r2 020C : 96 0B " " jnz L020B 020E L020E: 020E : FE " " mov a,r6 020F : 37 "7" cpl a 0210 : 12 0E " " jb0 L020E 0212 : 1C " " inc r4 0213 : C5 " " sel rb0 0214 : B8 2E " ." mov r0,#02EH 0216 : B6 1A " " jf0 L021A 0218 : B8 2C " ," mov r0,#02CH 021A L021A: 021A : F0 " " mov a,@r0 021B : D3 92 " " xrl a,#092H 021D : C6 21 " !" jz L0221 021F : 84 EE " " jmp L04EE ; 0221 L0221: 0221 : A5 " " clr f1 0222 : B5 " " cpl f1 0223 : B8 34 " 4" mov r0,#034H 0225 : 27 "'" clr a 0226 : A0 " " mov @r0,a 0227 : B8 7F " " mov r0,#07FH 0229 : BB 14 " " mov r3,#014H 022B L022B: 022B : A0 " " mov @r0,a 022C : C8 " " dec r0 022D : EB 2B " +" djnz r3,L022B 022F : CB " " dec r3 0230 : 9A 7F " " anl p2,#07FH 0232 : C4 68 " h" jmp L0668 ; 0234 L0234: 0234 : FC " " mov a,r4 0235 : 52 7A "Rz" jb2 L027A 0237 L0237: 0237 : 92 4B " K" jb4 L024B 0239 : D2 67 " g" jb6 L0267 023B : B2 6D " m" jb5 L026D 023D : 23 FE "# " mov a,#0FEH 023F : D0 " " xrl a,@r0 0240 : 96 67 " g" jnz L0267 0242 : B8 2A " *" mov r0,#02AH 0244 : B0 28 " (" mov @r0,#028H 0246 : FC " " mov a,r4 0247 : 43 10 "C " orl a,#010H 0249 : AC " " mov r4,a 024A : 83 " " ret ; 024B L024B: 024B : 23 FE "# " mov a,#0FEH 024D : D0 " " xrl a,@r0 024E : C6 60 " `" jz L0260 0250 : F0 " " mov a,@r0 0251 : B8 2A " *" mov r0,#02AH 0253 : 20 " " xch a,@r0 0254 : 96 75 " u" jnz L0275 0256 : 20 " " xch a,@r0 0257 : C8 " " dec r0 0258 : A0 " " mov @r0,a 0259 : FC " " mov a,r4 025A : 43 20 "C " orl a,#020H 025C : 53 EF "S " anl a,#0EFH 025E : AC " " mov r4,a 025F : 83 " " ret ; 0260 L0260: 0260 : B8 2A " *" mov r0,#02AH 0262 : F0 " " mov a,@r0 0263 : C6 68 " h" jz L0268 0265 : 07 " " dec a 0266 : A0 " " mov @r0,a 0267 L0267: 0267 : 83 " " ret ; 0268 L0268: 0268 : FE " " mov a,r6 0269 : 43 01 "C " orl a,#001H 026B : AE " " mov r6,a 026C : 83 " " ret ; 026D L026D: 026D : 43 40 "C@" orl a,#040H 026F : AC " " mov r4,a 0270 : F0 " " mov a,@r0 0271 : B8 28 " (" mov r0,#028H 0273 : A0 " " mov @r0,a 0274 : 83 " " ret ; 0275 L0275: 0275 : FC " " mov a,r4 0276 : 53 8F "S " anl a,#08FH 0278 : AC " " mov r4,a 0279 : 83 " " ret ; 027A L027A: 027A : F0 " " mov a,@r0 027B : C5 " " sel rb0 027C : A1 " " mov @r1,a 027D : F9 " " mov a,r1 027E L027E: 027E : 17 " " inc a 027F : 53 4F "SO" anl a,#04FH 0281 : A9 " " mov r1,a 0282 : D5 " " sel rb1 0283 : D9 " " xrl a,r1 0284 : 96 90 " " jnz L0290 0286 : B8 37 " 7" mov r0,#037H 0288 : B0 CF " " mov @r0,#0CFH 028A : F9 " " mov a,r1 028B : 17 " " inc a 028C : 53 4F "SO" anl a,#04FH 028E : A9 " " mov r1,a 028F : 83 " " ret ; 0290 L0290: 0290 : F0 " " mov a,@r0 0291 : B8 31 " 1" mov r0,#031H 0293 : A0 " " mov @r0,a 0294 : 18 " " inc r0 0295 : B0 80 " " mov @r0,#080H 0297 : B8 37 " 7" mov r0,#037H 0299 : B0 CE " " mov @r0,#0CEH 029B : 83 " " ret ; 029C L029C: 029C : FC " " mov a,r4 029D : 12 B4 " " jb0 L02B4 029F : FE " " mov a,r6 02A0 : 32 A9 "2 " jb1 L02A9 02A2 : 00 " " nop 02A3 : 00 " " nop 02A4 : 00 " " nop 02A5 : 9A F3 " " anl p2,#0F3H 02A7 : 44 BE "D " jmp L02BE ; 02A9 L02A9: 02A9 : FD " " mov a,r5 02AA : 12 B0 " " jb0 L02B0 02AC : 9A F3 " " anl p2,#0F3H 02AE : 44 C8 "D " jmp L02C8 ; 02B0 L02B0: 02B0 : 8A 0C " " orl p2,#00CH 02B2 : 44 C8 "D " jmp L02C8 ; 02B4 L02B4: 02B4 : F2 D8 " " jb7 L02D8 02B6 : FE " " mov a,r6 02B7 : 32 C3 "2 " jb1 L02C3 02B9 : 00 " " nop 02BA : 00 " " nop 02BB : 00 " " nop 02BC : 9A FB " " anl p2,#0FBH 02BE L02BE: 02BE : 43 02 "C " orl a,#002H 02C0 : AE " " mov r6,a 02C1 : 04 15 " " jmp L0015 ; 02C3 L02C3: 02C3 : FD " " mov a,r5 02C4 : 12 CF " " jb0 L02CF 02C6 : 9A FB " " anl p2,#0FBH 02C8 L02C8: 02C8 : 97 " " clr c 02C9 : A7 " " cpl c 02CA : 67 "g" rrc a 02CB : AD " " mov r5,a 02CC : CA " " dec r2 02CD : 04 15 " " jmp L0015 ; 02CF L02CF: 02CF : 8A 04 " " orl p2,#004H 02D1 : 97 " " clr c 02D2 : A7 " " cpl c 02D3 : 67 "g" rrc a 02D4 : AD " " mov r5,a 02D5 : CA " " dec r2 02D6 : 04 15 " " jmp L0015 ; 02D8 L02D8: 02D8 : FE " " mov a,r6 02D9 : 32 E2 "2 " jb1 L02E2 02DB : 00 " " nop 02DC : 00 " " nop 02DD : 00 " " nop 02DE : 9A F7 " " anl p2,#0F7H 02E0 : 44 BE "D " jmp L02BE ; 02E2 L02E2: 02E2 : FD " " mov a,r5 02E3 : 12 EE " " jb0 L02EE 02E5 : 9A F7 " " anl p2,#0F7H 02E7 : 97 " " clr c 02E8 : A7 " " cpl c 02E9 : 67 "g" rrc a 02EA : AD " " mov r5,a 02EB : CA " " dec r2 02EC : 04 15 " " jmp L0015 ; 02EE L02EE: 02EE : 8A 08 " " orl p2,#008H 02F0 : 97 " " clr c 02F1 : A7 " " cpl c 02F2 : 67 "g" rrc a 02F3 : AD " " mov r5,a 02F4 : CA " " dec r2 02F5 : 04 15 " " jmp L0015 ; 02F7 L02F7: 02F7 : FE " " mov a,r6 02F8 : A3 " " movp a,@a 02F9 : 68 "h" add a,r0 02FA : A8 " " mov r0,a 02FB : EE F7 " " djnz r6,L02F7 02FD : A4 35 " 5" jmp L0535 ; 02FF : 97 " " clr c 0300 L0300: 0300 : 00 " " nop 0301 : 00 " " nop 0302 : 00 " " nop 0303 : 00 " " nop 0304 : 00 " " nop 0305 : 00 " " nop 0306 : 00 " " nop 0307 : 00 " " nop 0308 : 00 " " nop 0309 : 00 " " nop 030A : 00 " " nop 030B : 00 " " nop 030C : 00 " " nop 030D : 00 " " nop 030E : 00 " " nop 030F : 00 " " nop 0310 : 00 " " nop 0311 : 00 " " nop 0312 : 00 " " nop 0313 : 00 " " nop 0314 : 00 " " nop 0315 : 00 " " nop 0316 : 00 " " nop 0317 : 00 " " nop 0318 : 00 " " nop 0319 : 00 " " nop 031A : 00 " " nop 031B : 00 " " nop 031C : 00 " " nop 031D : 00 " " nop 031E : 00 " " nop 031F : 00 " " nop 0320 : 00 " " nop 0321 : 00 " " nop 0322 : 00 " " nop 0323 : 00 " " nop 0324 : 00 " " nop 0325 : 00 " " nop 0326 : 00 " " nop 0327 : 00 " " nop 0328 : 00 " " nop 0329 : 00 " " nop 032A : 00 " " nop 032B : 00 " " nop 032C L032C: 032C : 00 " " nop 032D : 00 " " nop 032E : 00 " " nop 032F : 00 " " nop 0330 : 00 " " nop 0331 : 00 " " nop 0332 : 00 " " nop 0333 : 00 " " nop 0334 : 00 " " nop 0335 : 00 " " nop 0336 : 00 " " nop 0337 : 00 " " nop 0338 : 00 " " nop 0339 : 00 " " nop 033A : 00 " " nop 033B : 00 " " nop 033C : 00 " " nop 033D : 00 " " nop 033E : 00 " " nop 033F : 00 " " nop 0340 : 00 " " nop 0341 : 00 " " nop 0342 : 00 " " nop 0343 : 00 " " nop 0344 : 00 " " nop 0345 : 00 " " nop 0346 : 00 " " nop 0347 : 00 " " nop 0348 : 00 " " nop 0349 : 00 " " nop 034A : 00 " " nop 034B : 00 " " nop 034C : 00 " " nop 034D : 00 " " nop 034E : 00 " " nop 034F : 00 " " nop 0350 : 00 " " nop 0351 : 00 " " nop 0352 : 00 " " nop 0353 : 00 " " nop 0354 : 00 " " nop 0355 : 00 " " nop 0356 : 00 " " nop 0357 : 00 " " nop 0358 : 00 " " nop 0359 : 00 " " nop 035A : 00 " " nop 035B : 00 " " nop 035C : 00 " " nop 035D : 00 " " nop 035E : 00 " " nop 035F : 00 " " nop 0360 : 00 " " nop 0361 : 00 " " nop 0362 : 00 " " nop 0363 : 00 " " nop 0364 : 00 " " nop 0365 L0365: 0365 : 00 " " nop 0366 : 00 " " nop 0367 : 00 " " nop 0368 : 00 " " nop 0369 : 00 " " nop 036A : 00 " " nop 036B : 00 " " nop 036C : 00 " " nop 036D : 00 " " nop 036E : 00 " " nop 036F : 00 " " nop 0370 : 00 " " nop 0371 : 00 " " nop 0372 L0372: 0372 : 00 " " nop 0373 : 00 " " nop 0374 : 00 " " nop 0375 : 00 " " nop 0376 : 00 " " nop 0377 : 00 " " nop 0378 : 00 " " nop 0379 : 00 " " nop 037A : 00 " " nop 037B : 00 " " nop 037C : 00 " " nop 037D : 00 " " nop 037E : 00 " " nop 037F : 00 " " nop 0380 : 00 " " nop 0381 : 00 " " nop 0382 : 00 " " nop 0383 : 00 " " nop 0384 : 00 " " nop 0385 : 00 " " nop 0386 : 00 " " nop 0387 L0387: 0387 : 00 " " nop 0388 : 00 " " nop 0389 : 00 " " nop 038A : 00 " " nop 038B : 00 " " nop 038C : 40 "@" orl a,@r0 038D : 00 " " nop 038E : 00 " " nop 038F : 00 " " nop 0390 : 00 " " nop 0391 : 00 " " nop 0392 : 20 " " xch a,@r0 0393 : 00 " " nop 0394 : 00 " " nop 0395 : 00 " " nop 0396 : 00 " " nop 0397 : 00 " " nop 0398 : 00 " " nop 0399 : 00 " " nop 039A : 00 " " nop 039B : 00 " " nop 039C : 00 " " nop 039D : 00 " " nop 039E : 12 00 " " jb0 L0300 03A0 : 80 " " movx a,@r0 03A1 : 81 " " movx a,@r1 ; 03A2 : 82 " " db 082H ; 03A3 : 83 " " ret 03A4 : 84 85 " " jmp L0485 ; 03A6 : 86 87 " " jni L0387 03A8 : 88 89 " " orl bus,#089H 03AA : 8A 8B " " orl p2,#08BH 03AC : 8C " " orld p4,a 03AD : 8D " " orld p5,a 03AE : 8E " " orld p6,a 03AF : 8F " " orld p7,a ; 03B0 : C0 C1 C2 C3 " " db 0C0H, 0C1H, 0C2H, 0C3H ; 03B4 : C4 C5 " " jmp L06C5 ; 03B6 : C6 C7 " " jz L03C7 03B8 : C8 " " dec r0 03B9 : C9 " " dec r1 03BA : CA " " dec r2 03BB : CB " " dec r3 03BC : CC " " dec r4 03BD : CD " " dec r5 03BE : CE " " dec r6 03BF : CF " " dec r7 03C0 : 00 " " nop 03C1 : 00 " " nop 03C2 : 00 " " nop 03C3 : 00 " " nop 03C4 : 00 " " nop 03C5 : 00 " " nop 03C6 : 00 " " nop 03C7 L03C7: 03C7 : 00 " " nop 03C8 : 00 " " nop 03C9 : 00 " " nop 03CA : 00 " " nop 03CB : 00 " " nop 03CC : 00 " " nop 03CD : 00 " " nop 03CE : 18 " " inc r0 03CF : 00 " " nop 03D0 : 04 14 " " jmp L0014 ; 03D2 : 00 " " nop 03D3 : 00 " " nop 03D4 : 00 " " nop 03D5 : 00 " " nop 03D6 : 00 " " nop 03D7 : 00 " " nop 03D8 : 00 " " nop 03D9 : 00 " " nop 03DA : 00 " " nop 03DB : 00 " " nop 03DC : 00 " " nop 03DD : 00 " " nop 03DE : 00 " " nop 03DF : 08 " " ins a,bus 03E0 : 00 " " nop 03E1 : 00 " " nop 03E2 : 00 " " nop 03E3 : 00 " " nop 03E4 : 00 " " nop 03E5 : 00 " " nop 03E6 : 00 " " nop 03E7 : 00 " " nop 03E8 : 00 " " nop 03E9 : 00 " " nop 03EA : 00 " " nop 03EB : 00 " " nop 03EC : 00 " " nop 03ED : 00 " " nop 03EE : 00 " " nop 03EF : 00 " " nop 03F0 : 00 " " nop 03F1 : 00 " " nop 03F2 : 00 " " nop 03F3 : 00 " " nop 03F4 : 00 " " nop 03F5 : 00 " " nop 03F6 : 00 " " nop 03F7 : 00 " " nop 03F8 : 00 " " nop 03F9 : 00 " " nop 03FA : 00 " " nop 03FB : 00 " " nop 03FC : 00 " " nop 03FD : 00 " " nop 03FE : 00 " " nop 03FF : 00 " " nop 0400 L0400: 0400 : A3 " " movp a,@a 0401 : 83 " " ret ; 0402 L0402: 0402 : FC " " mov a,r4 0403 : 72 98 "r " jb3 L0498 0405 : 32 8B "2 " jb1 L048B 0407 : F0 " " mov a,@r0 0408 : E3 " " movp3 a,@a 0409 L0409: 0409 : F2 77 " w" jb7 L0477 040B : 52 52 "RR" jb2 L0452 040D : B2 30 " 0" jb5 L0430 040F : D2 27 " '" jb6 L0427 0411 : 92 17 " " jb4 L0417 0413 L0413: 0413 : 37 "7" cpl a 0414 : 5C "\" anl a,r4 0415 : AC " " mov r4,a 0416 : 83 " " ret ; 0417 L0417: 0417 : 72 1E "r " jb3 L041E 0419 : 53 0F "S " anl a,#00FH 041B : 4C "L" orl a,r4 041C : AC " " mov r4,a 041D : 83 " " ret ; 041E L041E: 041E : B8 30 " 0" mov r0,#030H 0420 : B0 00 " " mov @r0,#000H 0422 : 53 0F "S " anl a,#00FH 0424 : 4C "L" orl a,r4 0425 : AC " " mov r4,a 0426 : 83 " " ret ; 0427 L0427: 0427 : 4E "N" orl a,r6 0428 : AE " " mov r6,a 0429 : B8 35 " 5" mov r0,#035H 042B : F0 " " mov a,@r0 042C : B8 2F " /" mov r0,#02FH 042E : A0 " " mov @r0,a 042F : 83 " " ret ; 0430 L0430: 0430 : FC " " mov a,r4 0431 : 12 34 " 4" jb0 L0434 0433 : 83 " " ret ; 0434 L0434: 0434 : 53 F1 "S " anl a,#0F1H 0436 : AC " " mov r4,a 0437 : B8 08 " " mov r0,#008H 0439 : B0 43 " C" mov @r0,#043H 043B : 18 " " inc r0 043C : F0 " " mov a,@r0 043D : 53 F0 "S " anl a,#0F0H 043F : 43 14 "C " orl a,#014H 0441 : A0 " " mov @r0,a 0442 : 83 " " ret ; 0443 : FC " " mov a,r4 0444 : 12 47 " G" jb0 L0447 0446 : 1C " " inc r4 0447 L0447: 0447 : B9 40 " @" mov r1,#040H 0449 : C5 " " sel rb0 044A : B9 40 " @" mov r1,#040H 044C : 27 "'" clr a 044D : AF " " mov r7,a 044E : AA " " mov r2,a 044F : 02 " " outl bus,a 0450 : 44 21 "D!" jmp L0221 ; 0452 L0452: 0452 : 92 73 " s" jb4 L0473 0454 : 4C "L" orl a,r4 0455 : AC " " mov r4,a 0456 : B9 40 " @" mov r1,#040H 0458 : 76 5D "v]" jf1 L045D 045A : B1 CE " " mov @r1,#0CEH 045C : 19 " " inc r1 045D L045D: 045D : B1 FE " " mov @r1,#0FEH 045F : 19 " " inc r1 0460 : B8 29 " )" mov r0,#029H 0462 : 27 "'" clr a 0463 : 20 " " xch a,@r0 0464 : A1 " " mov @r1,a 0465 : 19 " " inc r1 0466 : C8 " " dec r0 0467 : 23 0A "# " mov a,#00AH 0469 : 20 " " xch a,@r0 046A : A1 " " mov @r1,a 046B : F9 " " mov a,r1 046C : B9 40 " @" mov r1,#040H 046E : C5 " " sel rb0 046F : A9 " " mov r1,a 0470 : 19 " " inc r1 0471 : D5 " " sel rb1 0472 : 83 " " ret ; 0473 L0473: 0473 : 53 EF "S " anl a,#0EFH 0475 : 84 13 " " jmp L0413 ; 0477 L0477: 0477 : D2 82 " " jb6 L0482 0479 : 53 0F "S " anl a,#00FH 047B : A8 " " mov r0,a 047C : 08 " " ins a,bus 047D : 53 F0 "S " anl a,#0F0H 047F L047F: 047F : 48 "H" orl a,r0 0480 : 02 " " outl bus,a 0481 : 83 " " ret ; 0482 L0482: 0482 : 47 "G" swap a 0483 : 53 F0 "S " anl a,#0F0H 0485 L0485: 0485 : A8 " " mov r0,a 0486 : 08 " " ins a,bus 0487 : 53 0F "S " anl a,#00FH 0489 : 84 7F " " jmp L047F ; 048B L048B: 048B : F0 " " mov a,@r0 048C : E3 " " movp3 a,@a 048D : 96 09 " " jnz L0409 048F : FE " " mov a,r6 0490 : 43 40 "C@" orl a,#040H 0492 : AE " " mov r6,a 0493 : F0 " " mov a,@r0 0494 : B8 2F " /" mov r0,#02FH 0496 : A0 " " mov @r0,a 0497 : 83 " " ret ; 0498 L0498: 0498 : F0 " " mov a,@r0 0499 : B8 2F " /" mov r0,#02FH 049B : A0 " " mov @r0,a 049C : 18 " " inc r0 049D : D3 DF " " xrl a,#0DFH 049F : 96 AD " " jnz L04AD 04A1 : F0 " " mov a,@r0 04A2 : 96 A6 " " jnz L04A6 04A4 : 10 " " inc @r0 04A5 : 83 " " ret ; 04A6 L04A6: 04A6 : B0 00 " " mov @r0,#000H 04A8 : FE " " mov a,r6 04A9 : 43 80 "C " orl a,#080H 04AB : AE " " mov r6,a 04AC : 83 " " ret ; 04AD L04AD: 04AD : F0 " " mov a,@r0 04AE : C6 A6 " " jz L04A6 04B0 : FC " " mov a,r4 04B1 : 53 F7 "S " anl a,#0F7H 04B3 : AC " " mov r4,a 04B4 : C8 " " dec r0 04B5 : F0 " " mov a,@r0 04B6 : E3 " " movp3 a,@a 04B7 : F2 77 " w" jb7 L0477 04B9 : 52 52 "RR" jb2 L0452 04BB : B2 30 " 0" jb5 L0430 04BD : D2 27 " '" jb6 L0427 04BF : 92 17 " " jb4 L0417 04C1 : 37 "7" cpl a 04C2 : 5C "\" anl a,r4 04C3 : AC " " mov r4,a 04C4 : 83 " " ret ; 04C5 L04C5: 04C5 : 8A 20 " " orl p2,#020H 04C7 : 0A " " in a,p2 04C8 : B2 D1 " " jb5 L04D1 04CA : FB " " mov a,r3 04CB : F2 D6 " " jb7 L04D6 04CD : 43 80 "C " orl a,#080H 04CF : C4 EC " " jmp L06EC ; 04D1 L04D1: 04D1 : FB " " mov a,r3 04D2 : 72 D9 "r " jb3 L04D9 04D4 : 52 D9 "R " jb2 L04D9 04D6 L04D6: 04D6 : 27 "'" clr a 04D7 : C4 EE " " jmp L06EE ; 04D9 L04D9: 04D9 : F2 DD " " jb7 L04DD 04DB : C4 EC " " jmp L06EC ; 04DD L04DD: 04DD : B2 D6 " " jb5 L04D6 04DF : 47 "G" swap a 04E0 : 53 F7 "S " anl a,#0F7H 04E2 : F2 E6 " " jb7 L04E6 04E4 : C4 EC " " jmp L06EC ; 04E6 L04E6: 04E6 : 53 7F "S " anl a,#07FH 04E8 : 43 02 "C " orl a,#002H 04EA : C4 EC " " jmp L06EC ; 04EC L04EC: 04EC : A0 " " mov @r0,a 04ED : 1A " " inc r2 04EE L04EE: 04EE : C5 " " sel rb0 04EF : FA " " mov a,r2 04F0 : C6 FF " " jz L04FF 04F2 : FF " " mov a,r7 04F3 : 96 FF " " jnz L04FF 04F5 : B8 5E " ^" mov r0,#05EH 04F7 : BE 0F " " mov r6,#00FH 04F9 L04F9: 04F9 : 20 " " xch a,@r0 04FA : C8 " " dec r0 04FB : EE F9 " " djnz r6,L04F9 04FD : CA " " dec r2 04FE : AF " " mov r7,a 04FF L04FF: 04FF : BB FF " " mov r3,#0FFH 0501 L0501: 0501 : 8A 80 " " orl p2,#080H 0503 L0503: 0503 : 9A FC " " anl p2,#0FCH 0505 : 1B " " inc r3 0506 : FB " " mov a,r3 0507 : F2 2A " *" jb7 L052A 0509 : 39 "9" outl p1,a 050A : 43 70 "Cp" orl a,#070H 050C L050C: 050C : A8 " " mov r0,a 050D : F0 " " mov a,@r0 050E : 77 "w" rr a 050F : 12 C3 " " jb0 L05C3 0511 : 8A 03 " " orl p2,#003H 0513 : A0 " " mov @r0,a 0514 : 00 " " nop 0515 : 00 " " nop 0516 : 86 1A " " jni L051A 0518 : A4 03 " " jmp L0503 ; 051A L051A: 051A : 9A FC " " anl p2,#0FCH 051C : 23 50 "#P" mov a,#050H 051E L051E: 051E : 07 " " dec a 051F : 96 1E " " jnz L051E 0521 : 8A 03 " " orl p2,#003H 0523 : 00 " " nop 0524 : 00 " " nop 0525 : 00 " " nop 0526 : 86 3D " =" jni L053D 0528 : A4 03 " " jmp L0503 ; 052A L052A: 052A : B2 33 " 3" jb5 L0533 052C : 39 "9" outl p1,a 052D : 53 03 "S " anl a,#003H 052F : 43 6C "Cl" orl a,#06CH 0531 : A4 0C " " jmp L050C 0533 L0533: 0533 : 84 EE " " jmp L04EE ; 0535 L0535: 0535 : FE " " mov a,r6 0536 : A3 " " movp a,@a 0537 : 68 "h" add a,r0 0538 : A8 " " mov r0,a 0539 : EE 35 " 5" djnz r6,L0535 053B : C4 E4 " " jmp L06E4 ; 053D L053D: 053D : 10 " " inc @r0 053E : FB " " mov a,r3 053F : AC " " mov r4,a 0540 : A4 4F " O" jmp L054F ; 0542 L0542: 0542 : B2 4B " K" jb5 L054B 0544 : 39 "9" outl p1,a 0545 : 53 03 "S " anl a,#003H 0547 : 43 6C "Cl" orl a,#06CH 0549 : A4 58 " X" jmp L0558 ; 054B L054B: 054B : BB FF " " mov r3,#0FFH 054D L054D: 054D : 8A 80 " " orl p2,#080H 054F L054F: 054F : 9A FC " " anl p2,#0FCH 0551 : 1B " " inc r3 0552 : FB " " mov a,r3 0553 : F2 42 " B" jb7 L0542 0555 : 39 "9" outl p1,a 0556 : 43 70 "Cp" orl a,#070H 0558 L0558: 0558 : A8 " " mov r0,a 0559 : F0 " " mov a,@r0 055A : 77 "w" rr a 055B : 12 76 " v" jb0 L0576 055D : 8A 03 " " orl p2,#003H 055F : A0 " " mov @r0,a 0560 : 00 " " nop 0561 : 00 " " nop 0562 : 86 66 " f" jni L0566 0564 : A4 4F " O" jmp L054F ; 0566 L0566: 0566 : 9A FC " " anl p2,#0FCH 0568 : 23 50 "#P" mov a,#050H 056A L056A: 056A : 07 " " dec a 056B : 96 6A " j" jnz L056A 056D : 8A 03 " " orl p2,#003H 056F : 00 " " nop 0570 : 00 " " nop 0571 : 00 " " nop 0572 : 86 98 " " jni L0598 0574 : A4 4F " O" jmp L054F ; 0576 L0576: 0576 : 9A 7F " " anl p2,#07FH 0578 : A0 " " mov @r0,a 0579 : 00 " " nop 057A : 8A 03 " " orl p2,#003H 057C : 00 " " nop 057D : 00 " " nop 057E : 00 " " nop 057F : 86 99 " " jni L0599 0581 : 9A FC " " anl p2,#0FCH 0583 : 23 50 "#P" mov a,#050H 0585 L0585: 0585 : 07 " " dec a 0586 : 96 85 " " jnz L0585 0588 : 8A 03 " " orl p2,#003H 058A : 00 " " nop 058B : 00 " " nop 058C : 00 " " nop 058D : 86 99 " " jni L0599 058F : FB " " mov a,r3 0590 : DC " " xrl a,r4 0591 : C6 99 " " jz L0599 0593 : F0 " " mov a,@r0 0594 : 07 " " dec a 0595 : A0 " " mov @r0,a 0596 : A4 4D " M" jmp L054D ; 0598 L0598: 0598 : 10 " " inc @r0 0599 L0599: 0599 : FA " " mov a,r2 059A : D3 0F " " xrl a,#00FH 059C : 96 AB " " jnz L05AB 059E L059E: 059E : FF " " mov a,r7 059F : 96 9E " " jnz L059E 05A1 : B8 5E " ^" mov r0,#05EH 05A3 : BE 0F " " mov r6,#00FH 05A5 L05A5: 05A5 : 20 " " xch a,@r0 05A6 : C8 " " dec r0 05A7 : EE A5 " " djnz r6,L05A5 05A9 : CA " " dec r2 05AA : AF " " mov r7,a 05AB L05AB: 05AB : FB " " mov a,r3 05AC : DC " " xrl a,r4 05AD : C6 BF " " jz L05BF 05AF : B8 FC " " mov r0,#0FCH 05B1 : 84 C5 " " jmp L04C5 ; 05B3 L05B3: 05B3 : F8 " " mov a,r0 05B4 : 2A "*" xch a,r2 05B5 : 43 50 "CP" orl a,#050H 05B7 : A8 " " mov r0,a 05B8 : 53 0F "S " anl a,#00FH 05BA : 2A "*" xch a,r2 05BB : A0 " " mov @r0,a 05BC : 1A " " inc r2 05BD : A4 4D " M" jmp L054D ; 05BF L05BF: 05BF : B8 FD " " mov r0,#0FDH 05C1 : 84 C5 " " jmp L04C5 ; 05C3 L05C3: 05C3 : 9A 7F " " anl p2,#07FH 05C5 : A0 " " mov @r0,a 05C6 : 8A 03 " " orl p2,#003H 05C8 : 00 " " nop 05C9 : 00 " " nop 05CA : 00 " " nop 05CB : 86 01 " " jni L0501 05CD : 9A FC " " anl p2,#0FCH 05CF : 23 50 "#P" mov a,#050H 05D1 L05D1: 05D1 : 07 " " dec a 05D2 : 96 D1 " " jnz L05D1 05D4 : 8A 03 " " orl p2,#003H 05D6 : 00 " " nop 05D7 : 00 " " nop 05D8 : 00 " " nop 05D9 : 86 01 " " jni L0501 05DB : 23 36 "#6" mov a,#036H 05DD : 28 "(" xch a,r0 05DE : A0 " " mov @r0,a 05DF : B8 34 " 4" mov r0,#034H 05E1 : B0 00 " " mov @r0,#000H 05E3 : FB " " mov a,r3 05E4 : AC " " mov r4,a 05E5 : A4 F2 " " jmp L05F2 ; 05E7 L05E7: 05E7 : B2 F0 " " jb5 L05F0 05E9 : 39 "9" outl p1,a 05EA : 53 03 "S " anl a,#003H 05EC : 43 6C "Cl" orl a,#06CH 05EE : A4 FD " " jmp L05FD ; 05F0 L05F0: 05F0 : BB FF " " mov r3,#0FFH 05F2 L05F2: 05F2 : 8A 80 " " orl p2,#080H 05F4 L05F4: 05F4 : 9A FC " " anl p2,#0FCH 05F6 : 1B " " inc r3 05F7 : FB " " mov a,r3 05F8 : F2 E7 " " jb7 L05E7 05FA : 39 "9" outl p1,a 05FB : 43 70 "Cp" orl a,#070H 05FD L05FD: 05FD : A8 " " mov r0,a 05FE : F0 " " mov a,@r0 05FF : 77 "w" rr a 0600 : 12 1E " " jb0 L061E 0602 : 8A 03 " " orl p2,#003H 0604 : A0 " " mov @r0,a 0605 : 00 " " nop 0606 : 00 " " nop 0607 : 86 0B " " jni L060B 0609 : A4 F4 " " jmp L05F4 ; 060B L060B: 060B : 9A FC " " anl p2,#0FCH 060D : 23 50 "#P" mov a,#050H 060F L060F: 060F : 07 " " dec a 0610 : 96 0F " " jnz L060F 0612 : 8A 03 " " orl p2,#003H 0614 : 00 " " nop 0615 : 00 " " nop 0616 : 00 " " nop 0617 : 86 1B " " jni L061B 0619 : A4 F4 " " jmp L05F4 ; 061B L061B: 061B : 10 " " inc @r0 061C : C4 3D " =" jmp L063D ; 061E L061E: 061E : 9A 7F " " anl p2,#07FH 0620 : A0 " " mov @r0,a 0621 : 8A 03 " " orl p2,#003H 0623 : 00 " " nop 0624 : 00 " " nop 0625 : 00 " " nop 0626 : 86 3D " =" jni L063D 0628 : 9A FC " " anl p2,#0FCH 062A : 23 50 "#P" mov a,#050H 062C L062C: 062C : 07 " " dec a 062D : 96 2C " ," jnz L062C 062F : 8A 03 " " orl p2,#003H 0631 : 00 " " nop 0632 : 00 " " nop 0633 : 00 " " nop 0634 : 86 3D " =" jni L063D 0636 : F0 " " mov a,@r0 0637 : 07 " " dec a 0638 : A0 " " mov @r0,a 0639 : FB " " mov a,r3 063A : DC " " xrl a,r4 063B : 96 66 " f" jnz L0666 063D L063D: 063D : FA " " mov a,r2 063E : D3 0F " " xrl a,#00FH 0640 : 96 4F " O" jnz L064F 0642 L0642: 0642 : FF " " mov a,r7 0643 : 96 42 " B" jnz L0642 0645 : B8 5E " ^" mov r0,#05EH 0647 : BE 0F " " mov r6,#00FH 0649 L0649: 0649 : 20 " " xch a,@r0 064A : C8 " " dec r0 064B : EE 49 " I" djnz r6,L0649 064D : CA " " dec r2 064E : AF " " mov r7,a 064F L064F: 064F : FB " " mov a,r3 0650 : DC " " xrl a,r4 0651 : C6 C3 " " jz L06C3 0653 : B8 FE " " mov r0,#0FEH 0655 : 84 C5 " " jmp L04C5 ; 0657 L0657: 0657 : F8 " " mov a,r0 0658 : B8 34 " 4" mov r0,#034H 065A : 20 " " xch a,@r0 065B : C6 66 " f" jz L0666 065D : 2A "*" xch a,r2 065E : 43 50 "CP" orl a,#050H 0660 : A8 " " mov r0,a 0661 : 53 0F "S " anl a,#00FH 0663 : 2A "*" xch a,r2 0664 : A0 " " mov @r0,a 0665 : 1A " " inc r2 0666 L0666: 0666 : A4 F2 " " jmp L05F2 ; 0668 L0668: 0668 : 9A FC " " anl p2,#0FCH 066A : 1B " " inc r3 066B : FB " " mov a,r3 066C : F2 A3 " " jb7 L06A3 066E : 39 "9" outl p1,a 066F : 43 70 "Cp" orl a,#070H 0671 L0671: 0671 : 8A 03 " " orl p2,#003H 0673 : A8 " " mov r0,a 0674 : F0 " " mov a,@r0 0675 : 77 "w" rr a 0676 : A0 " " mov @r0,a 0677 : 86 7B " {" jni L067B 0679 : C4 68 " h" jmp L0668 ; 067B L067B: 067B : 10 " " inc @r0 067C : FA " " mov a,r2 067D : D3 0F " " xrl a,#00FH 067F : 96 8E " " jnz L068E 0681 L0681: 0681 : FF " " mov a,r7 0682 : 96 81 " " jnz L0681 0684 : B8 5E " ^" mov r0,#05EH 0686 : BE 0F " " mov r6,#00FH 0688 L0688: 0688 : 20 " " xch a,@r0 0689 : C8 " " dec r0 068A : EE 88 " " djnz r6,L0688 068C : CA " " dec r2 068D : AF " " mov r7,a 068E L068E: 068E : B8 FF " " mov r0,#0FFH 0690 : 84 C5 " " jmp L04C5 ; 0692 : F8 " " mov a,r0 0693 : B8 34 " 4" mov r0,#034H 0695 : 20 " " xch a,@r0 0696 : C6 68 " h" jz L0668 0698 : 2A "*" xch a,r2 0699 : 43 50 "CP" orl a,#050H 069B : A8 " " mov r0,a 069C : 53 0F "S " anl a,#00FH 069E : 2A "*" xch a,r2 069F : 1A " " inc r2 06A0 : A0 " " mov @r0,a 06A1 : C4 68 " h" jmp L0668 ; 06A3 L06A3: 06A3 : B2 AC " " jb5 L06AC 06A5 : 39 "9" outl p1,a 06A6 : 53 03 "S " anl a,#003H 06A8 : 43 6C "Cl" orl a,#06CH 06AA : C4 71 " q" jmp L0671 ; 06AC L06AC: 06AC : B8 34 " 4" mov r0,#034H 06AE : F0 " " mov a,@r0 06AF : D3 CE " " xrl a,#0CEH 06B1 : C6 B8 " " jz L06B8 06B3 : F0 " " mov a,@r0 06B4 : 96 B8 " " jnz L06B8 06B6 : 23 C0 "# " mov a,#0C0H 06B8 L06B8: 06B8 : 43 80 "C " orl a,#080H 06BA : 2A "*" xch a,r2 06BB : 43 50 "CP" orl a,#050H 06BD : A8 " " mov r0,a 06BE : 53 0F "S " anl a,#00FH 06C0 : 2A "*" xch a,r2 06C1 : 84 EC " " jmp L04EC ; 06C3 L06C3: 06C3 : B8 36 " 6" mov r0,#036H 06C5 L06C5: 06C5 : F0 " " mov a,@r0 06C6 : A8 " " mov r0,a 06C7 : F0 " " mov a,@r0 06C8 : 53 FE "S " anl a,#0FEH 06CA : A0 " " mov @r0,a 06CB : B8 34 " 4" mov r0,#034H 06CD : F0 " " mov a,@r0 06CE : D3 CE " " xrl a,#0CEH 06D0 : C6 D7 " " jz L06D7 06D2 : F0 " " mov a,@r0 06D3 : 96 D7 " " jnz L06D7 06D5 : 23 C0 "# " mov a,#0C0H 06D7 L06D7: 06D7 : 43 80 "C " orl a,#080H 06D9 : 2A "*" xch a,r2 06DA : 43 50 "CP" orl a,#050H 06DC : A8 " " mov r0,a 06DD : 53 0F "S " anl a,#00FH 06DF : 2A "*" xch a,r2 06E0 : 1A " " inc r2 06E1 : A0 " " mov @r0,a 06E2 L06E2: 06E2 : A4 01 " " jmp L0501 ; 06E4 L06E4: 06E4 : FE " " mov a,r6 06E5 : A3 " " movp a,@a 06E6 : 68 "h" add a,r0 06E7 : A8 " " mov r0,a 06E8 : EE E4 " " djnz r6,L06E4 06EA : 04 D5 " " jmp L00D5 ; 06EC L06EC: 06EC : F4 00 " " call L0700 06EE L06EE: 06EE : 28 "(" xch a,r0 06EF : B3 " " jmpp @a ;INFO: indirect jump 06F0 : A4 B3 " " jmp L05B3 ; 06F2 : F8 " " mov a,r0 06F3 : C6 E2 " " jz L06E2 06F5 : D3 CE " " xrl a,#0CEH 06F7 : C6 D7 " " jz L06D7 06F9 : F8 " " mov a,r0 06FA : C4 D7 " " jmp L06D7 ; 06FC : F0 " " mov a,@r0 06FD : F2 57 " W" jb7 L0657 06FF : 92 A3 " " jb4 L07A3 0701 : 83 " " ret ; 0702 : 35 "5" dis tcnti ; 0703 : 33 "3" db 033H ; 0704 : 44 43 "DC" jmp L0243 ; 0706 : 00 " " nop 0707 : 00 " " nop 0708 : 12 CE " " jb0 L07CE 070A : 7F " " addc a,r7 070B : 04 05 " " jmp L0005 ; 070D : 0C " " movd a,p4 070E : 14 07 " " call L0007 0710 : 00 " " nop 0711 : 00 " " nop 0712 L0712: 0712 : 72 77 "rw" jb3 L0777 0714 : 48 "H" orl a,r0 0715 : 45 "E" strt cnt 0716 L0716: 0716 : 00 " " nop 0717 : 00 " " nop 0718 : 31 "1" xchd a,@r1 0719 : 09 " " in a,p1 071A : 71 "q" addc a,@r1 071B : 61 "a" add a,@r1 071C : 13 11 " " addc a,#011H 071E : 4C "L" orl a,r4 071F : 5E "^" anl a,r6 0720 L0720: 0720 : 00 " " nop 0721 : 00 " " nop 0722 : 74 65 "te" call L0365 0724 : 6E "n" add a,r6 0725 : 6B "k" add a,r3 0726 : 00 " " nop 0727 : 00 " " nop 0728 : 39 "9" outl p1,a 0729 : 69 "i" add a,r1 072A : 6F "o" add a,r7 072B : 6C "l" add a,r4 072C : 1D " " inc r5 072D : 1C " " inc r4 072E : 6D "m" add a,r5 ; 072F L072F: 072F : 38 "8" db 038H ; 0730 : 00 " " nop 0731 : 00 " " nop 0732 : 67 "g" rrc a 0733 : 64 2C "d," jmp L032C ; 0735 : 3B ";" db 03BH ; 0736 : 00 " " nop 0737 : 00 " " nop 0738 : 2D "-" xch a,r5 0739 : 70 "p" addc a,@r0 ; 073A : 06 " " db 006H ; 073B : 27 "'" clr a 073C : 1F " " inc r7 073D : 1E " " inc r6 073E : 2E "." xch a,r6 073F : 30 "0" xchd a,@r0 ; 0740 : 63 "c" db 063H ; 0741 : 7A "z" addc a,r2 0742 : 18 " " inc r0 0743 L0743: 0743 : 16 2F " /" jtf L072F 0745 : 0A " " in a,p2 0746 : 00 " " nop 0747 : 00 " " nop 0748 : 08 " " ins a,bus 0749 : 5B "[" anl a,r3 074A : 5D "]" anl a,r5 074B : 00 " " nop 074C : 0E " " movd a,p6 074D : 02 " " outl bus,a 074E : 4D "M" orl a,r5 074F : 2B "+" xch a,r3 ; 0750 : 66 73 "fs" db 066H, 073H ; 0752 : 17 " " inc a 0753 : 15 " " dis i 0754 : 49 "I" orl a,r1 0755 : 46 00 "F " jnt1 L0700 0757 : 00 " " nop 0758 : 7C "|" addc a,r4 0759 : 7B "{" addc a,r3 075A : 7D "}" addc a,r5 075B : 60 "`" add a,@r0 ; 075C : 0B 01 " " db 00BH, 001H ; 075E : 4A "J" orl a,r2 075F : 5C "\" anl a,r4 0760 : 00 " " nop 0761 : 00 " " nop 0762 L0762: 0762 : 76 78 "vx" jf1 L0778 0764 : 4B "K" orl a,r3 0765 : 00 " " nop 0766 : 00 " " nop 0767 : 00 " " nop 0768 : 1B " " inc r3 0769 : 41 "A" orl a,@r1 076A : 42 "B" mov a,t 076B : 47 "G" swap a 076C : 0F " " movd a,p7 076D : 03 0D " " add a,#00DH 076F : 21 "!" xch a,@r1 0770 : 00 " " nop 0771 : 00 " " nop 0772 : 34 32 "42" call L0132 0774 : 62 "b" mov t,a 0775 : 68 "h" add a,r0 0776 : 00 " " nop 0777 L0777: 0777 : 00 " " nop 0778 L0778: 0778 : 37 "7" cpl a 0779 : 79 "y" addc a,r1 077A : 75 "u" ent0 clk 077B : 6A "j" add a,r2 077C : 1A " " inc r2 077D : 19 " " inc r1 077E : 20 " " xch a,@r0 077F : 36 20 "6 " jt0 L0720 0781 : 76 62 "vb" jf1 L0762 ; 0783 : 66 "f" db 066H ; 0784 : 67 "g" rrc a 0785 : 74 72 "tr" call L0372 0787 : 34 00 "4 " call L0100 ; 0789 : 33 "3" db 033H ; 078A : 00 " " nop 078B : 00 " " nop 078C : 00 " " nop 078D : 07 " " dec a 078E : 41 "A" orl a,@r1 078F : 42 "B" mov a,t 0790 : 00 " " nop 0791 : 6E "n" add a,r6 0792 : 6D "m" add a,r5 0793 : 68 "h" add a,r0 0794 : 6A "j" add a,r2 0795 : 75 "u" ent0 clk 0796 : 79 "y" addc a,r1 0797 : 36 00 "6 " jt0 L0700 0799 : 35 "5" dis tcnti 079A : 00 " " nop 079B : 00 " " nop 079C : 1D " " inc r5 079D : 13 1E " " addc a,#01EH 079F : 1F " " inc r7 07A0 : 29 ")" xch a,r1 07A1 : 48 "H" orl a,r0 07A2 : 7A "z" addc a,r2 07A3 L07A3: 07A3 : 45 "E" strt cnt 07A4 : 61 "a" add a,@r1 07A5 : 71 "q" addc a,@r1 07A6 : 09 " " in a,p1 07A7 : 1B " " inc r3 07A8 : 03 22 " "" add a,#022H 07AA : 00 " " nop 07AB : 00 " " nop 07AC : 15 " " dis i 07AD : 4B "K" orl a,r3 07AE : 47 "G" swap a 07AF : 4A "J" orl a,r2 07B0 : 4C "L" orl a,r4 07B1 : 78 "x" addc a,r0 ; 07B2 : 63 73 "cs" db 063H, 073H ; 07B4 : 64 65 "de" jmp L0365 ; 07B6 : 77 "w" rr a 07B7 : 32 16 "2 " jb1 L0716 07B9 : 31 "1" xchd a,@r1 07BA : 00 " " nop 07BB : 00 " " nop 07BC : 17 " " inc a 07BD : 46 43 "FC" jnt1 L0743 07BF : 44 7E "D~" jmp L027E ; 07C1 : 2F "/" xch a,r7 07C2 : 49 "I" orl a,r1 ; 07C3 : 3B ";" db 03BH ; 07C4 : 27 "'" clr a 07C5 : 5B "[" anl a,r3 07C6 : 70 "p" addc a,@r0 07C7 : 30 "0" xchd a,@r0 07C8 : 18 " " inc r0 07C9 : 39 "9" outl p1,a 07CA : 00 " " nop 07CB : 00 " " nop 07CC : 19 " " inc r1 07CD : 0F " " movd a,p7 07CE L07CE: 07CE : 0E " " movd a,p6 ; 07CF : 0B " " db 00BH ; 07D0 : 4D "M" orl a,r5 07D1 : 2C "," xch a,r4 07D2 : 2E "." xch a,r6 07D3 : 6B "k" add a,r3 07D4 : 6C "l" add a,r4 07D5 : 6F "o" add a,r7 07D6 : 69 "i" add a,r1 ; 07D7 : 38 "8" db 038H ; 07D8 : 04 37 " 7" jmp L0037 ; 07DA : 00 " " nop 07DB : 00 " " nop ; 07DC : 06 " " db 006H ; 07DD : 2A "*" xch a,r2 07DE : 00 " " nop 07DF : 00 " " nop 07E0 : 25 "%" en tcnti 07E1 : 0A " " in a,p2 07E2 : 60 "`" add a,@r0 07E3 : 0D " " movd a,p5 07E4 : 08 " " ins a,bus 07E5 : 5C "\" anl a,r4 07E6 : 5D "]" anl a,r5 07E7 : 3D "=" movd p5,a 07E8 : 1C " " inc r4 07E9 : 2D "-" xch a,r5 07EA : 00 " " nop 07EB : 00 " " nop 07EC : 1A " " inc r2 07ED : 00 " " nop 07EE : 00 " " nop 07EF : 00 " " nop 07F0 : 28 "(" xch a,r0 07F1 : 7F " " addc a,r7 07F2 : 26 12 "& " jnt0 L0712 07F4 : 14 24 " $" call L0024 07F6 : 23 21 "#!" mov a,#021H 07F8 : 02 " " outl bus,a 07F9 : 10 " " inc @r0 07FA : 00 " " nop 07FB : 00 " " nop 07FC : 11 " " inc @r1 07FD : 0C " " movd a,p4 07FE : 05 " " en i ; 07FF : 01 " " db 001H ;-------------------------------------------------------------- Symbol table ============ Value Type Name ----- ---- ---- 0005 Code L0005 0007 Code L0007 0014 Code L0014 0015 Code L0015 001A Code L001A 001F Code L001F 0024 Code L0024 0031 Code L0031 0037 Code L0037 004A Code L004A 004D Code L004D 006D Code L006D 0073 Code L0073 0075 Code L0075 0078 Code L0078 0088 Code L0088 0089 Code L0089 008F Code L008F 0092 Code L0092 0097 Code L0097 00A1 Code L00A1 00A5 Code L00A5 00B0 Code L00B0 00B5 Code L00B5 00BD Code L00BD 00C9 Code L00C9 00CE Code L00CE 00D3 Code L00D3 00D5 Code L00D5 00EF Code L00EF 00F8 Code L00F8 00FF Code L00FF 0100 Code L0100 0114 Code L0114 0116 Code L0116 011B Code L011B 012D Code L012D 0132 Code L0132 0143 Code L0143 0152 Code L0152 0159 Code L0159 015E Code L015E 0171 Code L0171 0173 Code L0173 0178 Code L0178 0189 Code L0189 018E Code L018E 01A2 Code L01A2 01AA Code L01AA 01B2 Code L01B2 01B8 Code L01B8 01BC Code L01BC 01C0 Code L01C0 01C3 Code L01C3 01CB Code L01CB 01E0 Code L01E0 01E7 Code L01E7 01F6 Code L01F6 01F9 Code L01F9 01FB Code L01FB 0202 Code L0202 0207 Code L0207 020B Code L020B 020E Code L020E 021A Code L021A 0221 Code L0221 022B Code L022B 0234 Code L0234 0237 Code L0237 0243 Code L0243 024B Code L024B 0260 Code L0260 0267 Code L0267 0268 Code L0268 026D Code L026D 0275 Code L0275 027A Code L027A 027E Code L027E 0290 Code L0290 029C Code L029C 02A9 Code L02A9 02B0 Code L02B0 02B4 Code L02B4 02BE Code L02BE 02C3 Code L02C3 02C8 Code L02C8 02CF Code L02CF 02D8 Code L02D8 02E2 Code L02E2 02EE Code L02EE 02F7 Code L02F7 0300 Code L0300 032C Code L032C 0365 Code L0365 0372 Code L0372 0387 Code L0387 03C7 Code L03C7 0400 Code L0400 0402 Code L0402 0409 Code L0409 0413 Code L0413 0417 Code L0417 041E Code L041E 0427 Code L0427 0430 Code L0430 0434 Code L0434 0447 Code L0447 0452 Code L0452 045D Code L045D 0473 Code L0473 0477 Code L0477 047F Code L047F 0482 Code L0482 0485 Code L0485 048B Code L048B 0498 Code L0498 04A6 Code L04A6 04AD Code L04AD 04C5 Code L04C5 04D1 Code L04D1 04D6 Code L04D6 04D9 Code L04D9 04DD Code L04DD 04E6 Code L04E6 04EC Code L04EC 04EE Code L04EE 04F9 Code L04F9 04FF Code L04FF 0501 Code L0501 0503 Code L0503 050C Code L050C 051A Code L051A 051E Code L051E 052A Code L052A 0533 Code L0533 0535 Code L0535 053D Code L053D 0542 Code L0542 054B Code L054B 054D Code L054D 054F Code L054F 0558 Code L0558 0566 Code L0566 056A Code L056A 0576 Code L0576 0585 Code L0585 0598 Code L0598 0599 Code L0599 059E Code L059E 05A5 Code L05A5 05AB Code L05AB 05B3 Code L05B3 05BF Code L05BF 05C3 Code L05C3 05D1 Code L05D1 05E7 Code L05E7 05F0 Code L05F0 05F2 Code L05F2 05F4 Code L05F4 05FD Code L05FD 060B Code L060B 060F Code L060F 061B Code L061B 061E Code L061E 062C Code L062C 063D Code L063D 0642 Code L0642 0649 Code L0649 064F Code L064F 0657 Code L0657 0666 Code L0666 0668 Code L0668 0671 Code L0671 067B Code L067B 0681 Code L0681 0688 Code L0688 068E Code L068E 06A3 Code L06A3 06AC Code L06AC 06B8 Code L06B8 06C3 Code L06C3 06C5 Code L06C5 06D7 Code L06D7 06E2 Code L06E2 06E4 Code L06E4 06EC Code L06EC 06EE Code L06EE 0700 Code L0700 0712 Code L0712 0716 Code L0716 0720 Code L0720 072F Code L072F 0743 Code L0743 0762 Code L0762 0777 Code L0777 0778 Code L0778 07A3 Code L07A3 07CE Code L07CE Number of symbols: 198 ;--------------------------------------------------------------