; Date: Sat May 02 09:27:47 2020 ; ; CPU: Intel 8048 (MCS-48 family) ; ; ; org 00000H ; 0000 L0000: 0000 : E5 " " sel mb0 0001 : 04 0B " " jmp L000B ; 0003 : E5 " " sel mb0 0004 : 00 " " nop 0005 : 04 00 " " jmp L0000 ; 0007 : E5 " " sel mb0 0008 : 04 00 " " jmp L0000 000A L000A: 000A : 93 " " retr ; 000B L000B: 000B : 8A FF " " orl p2,#0FFH 000D : 15 " " dis i 000E : 35 "5" dis tcnti 000F : 65 "e" stop tcnt 0010 : A5 " " clr f1 0011 : 14 0A " " call L000A 0013 : 23 0F "# " mov a,#00FH 0015 : 39 "9" outl p1,a 0016 : 27 "'" clr a 0017 : D7 " " mov psw,a 0018 : 62 "b" mov t,a 0019 : B8 28 " (" mov r0,#028H 001B L001B: 001B : A0 " " mov @r0,a 001C : E8 1B " " djnz r0,L001B 001E L001E: 001E : D5 " " sel rb1 001F : BE 22 " "" mov r6,#022H 0021 : 86 27 " '" jni L0027 0023 : BD 02 " " mov r5,#002H 0025 : 04 29 " )" jmp L0029 ; 0027 L0027: 0027 : BD 05 " " mov r5,#005H 0029 L0029: 0029 : FF " " mov a,r7 002A : 53 7D "S}" anl a,#07DH 002C : AF " " mov r7,a 002D L002D: 002D : C5 " " sel rb0 002E : B8 26 " &" mov r0,#026H 0030 : B0 2C " ," mov @r0,#02CH 0032 : 18 " " inc r0 0033 : B0 30 " 0" mov @r0,#030H 0035 : 18 " " inc r0 0036 : B0 30 " 0" mov @r0,#030H 0038 : 18 " " inc r0 0039 : B0 4F " O" mov @r0,#04FH 003B : 18 " " inc r0 003C : B0 4F " O" mov @r0,#04FH 003E : 18 " " inc r0 003F : 23 FF "# " mov a,#0FFH 0041 : 90 " " movx @r0,a 0042 : B9 55 " U" mov r1,#055H 0044 L0044: 0044 : B0 FF " " mov @r0,#0FFH 0046 : 18 " " inc r0 0047 : E9 44 " D" djnz r1,L0044 0049 : BA 11 " " mov r2,#011H 004B : A5 " " clr f1 004C : B5 " " cpl f1 004D L004D: 004D : 25 "%" en tcnti 004E : 45 "E" strt cnt 004F : C5 " " sel rb0 0050 : 56 59 "VY" jt1 L0059 0052 : 76 5A "vZ" jf1 L005A 0054 : 42 "B" mov a,t 0055 : 96 5B " [" jnz L005B 0057 : 84 13 " " jmp L0413 ; 0059 L0059: 0059 : A5 " " clr f1 005A L005A: 005A : B5 " " cpl f1 005B L005B: 005B : 27 "'" clr a 005C : 62 "b" mov t,a 005D : D5 " " sel rb1 005E : FF " " mov a,r7 005F : C5 " " sel rb0 0060 : F2 65 " e" jb7 L0065 0062 : 1F " " inc r7 0063 L0063: 0063 : 04 4D " M" jmp L004D ; 0065 L0065: 0065 : CA " " dec r2 0066 : FA " " mov a,r2 0067 : D3 FF " " xrl a,#0FFH 0069 : 96 6F " o" jnz L006F 006B : BA 11 " " mov r2,#011H 006D : 44 55 "DU" jmp L0255 ; 006F L006F: 006F : FA " " mov a,r2 0070 : D3 10 " " xrl a,#010H 0072 : C6 76 " v" jz L0076 0074 : 24 00 "$ " jmp L0100 ; 0076 L0076: 0076 : D5 " " sel rb1 0077 : 26 7E "&~" jnt0 L007E 0079 : FF " " mov a,r7 007A : 72 97 "r " jb3 L0097 007C : 04 AE " " jmp L00AE ; 007E L007E: 007E : FF " " mov a,r7 007F : 72 AE "r " jb3 L00AE 0081 : 36 AE "6 " jt0 L00AE 0083 : 43 08 "C " orl a,#008H 0085 : AF " " mov r7,a 0086 : FD " " mov a,r5 0087 : D3 03 " " xrl a,#003H 0089 : C6 93 " " jz L0093 008B : 0A " " in a,p2 008C : 37 "7" cpl a 008D : 32 AE "2 " jb1 L00AE 008F : 23 3A "#:" mov a,#03AH 0091 : 04 AB " " jmp L00AB ; 0093 L0093: 0093 : 23 7C "#|" mov a,#07CH 0095 : 04 AB " " jmp L00AB ; 0097 L0097: 0097 : 26 AE "& " jnt0 L00AE 0099 : 53 F7 "S " anl a,#0F7H 009B : AF " " mov r7,a 009C : FD " " mov a,r5 009D : D3 03 " " xrl a,#003H 009F : C6 A9 " " jz L00A9 00A1 : 0A " " in a,p2 00A2 : 37 "7" cpl a 00A3 : 32 AE "2 " jb1 L00AE 00A5 : 23 BA "# " mov a,#0BAH 00A7 : 04 AB " " jmp L00AB ; 00A9 L00A9: 00A9 : 23 FC "# " mov a,#0FCH 00AB L00AB: 00AB : A8 " " mov r0,a 00AC : F4 73 " s" call L0773 00AE L00AE: 00AE : C5 " " sel rb0 00AF : B9 08 " " mov r1,#008H 00B1 : 0A " " in a,p2 00B2 : AC " " mov r4,a 00B3 L00B3: 00B3 : 0A " " in a,p2 00B4 : DC " " xrl a,r4 00B5 : 96 AE " " jnz L00AE 00B7 : E9 B3 " " djnz r1,L00B3 00B9 : 24 02 "$ " jmp L0102 ; 00BB L00BB: 00BB : 23 FF "# " mov a,#0FFH 00BD : 90 " " movx @r0,a 00BE : 09 " " in a,p1 00BF : 53 F0 "S " anl a,#0F0H 00C1 : 4A "J" orl a,r2 00C2 : 39 "9" outl p1,a 00C3 L00C3: 00C3 : B9 08 " " mov r1,#008H 00C5 : 08 " " ins a,bus 00C6 : AC " " mov r4,a 00C7 L00C7: 00C7 : 08 " " ins a,bus 00C8 : DC " " xrl a,r4 00C9 : 96 C3 " " jnz L00C3 00CB : E9 C7 " " djnz r1,L00C7 00CD : 83 " " ret ; 00CE : 00 " " nop 00CF : 00 " " nop 00D0 : 00 " " nop 00D1 : 00 " " nop 00D2 : 00 " " nop 00D3 : 00 " " nop 00D4 : 00 " " nop 00D5 : 00 " " nop 00D6 : 00 " " nop 00D7 : 00 " " nop 00D8 : 00 " " nop 00D9 : 00 " " nop 00DA : 00 " " nop 00DB : 00 " " nop 00DC : 00 " " nop 00DD : 00 " " nop 00DE : 00 " " nop 00DF : 00 " " nop 00E0 : 00 " " nop 00E1 : 00 " " nop 00E2 : 00 " " nop 00E3 : 00 " " nop 00E4 : 00 " " nop 00E5 : 00 " " nop 00E6 : 00 " " nop 00E7 : 00 " " nop 00E8 : 00 " " nop 00E9 : 00 " " nop 00EA : 00 " " nop 00EB : 00 " " nop 00EC : 00 " " nop 00ED : 00 " " nop 00EE : 00 " " nop 00EF : 00 " " nop 00F0 : 00 " " nop 00F1 : 00 " " nop 00F2 : 00 " " nop 00F3 : 00 " " nop 00F4 : 00 " " nop 00F5 : 00 " " nop 00F6 : 00 " " nop 00F7 : 00 " " nop 00F8 : 00 " " nop 00F9 : 00 " " nop 00FA : 00 " " nop 00FB : 00 " " nop 00FC : 04 00 " " jmp L0000 00FE : 04 00 " " jmp L0000 ; 0100 L0100: 0100 : 14 BB " " call L00BB 0102 L0102: 0102 : FA " " mov a,r2 0103 : 03 6F " o" add a,#06FH 0105 : A8 " " mov r0,a 0106 : FC " " mov a,r4 0107 : 20 " " xch a,@r0 0108 : AD " " mov r5,a 0109 : DC " " xrl a,r4 010A : C6 22 " "" jz L0122 010C : 5D "]" anl a,r5 010D : C6 19 " " jz L0119 010F : 85 " " clr f0 0110 L0110: 0110 : BB 08 " " mov r3,#008H 0112 L0112: 0112 : E7 " " rl a 0113 : 12 25 " %" jb0 L0125 0115 L0115: 0115 : EB 12 " " djnz r3,L0112 0117 : B6 22 " "" jf0 L0122 0119 L0119: 0119 : FD " " mov a,r5 011A : DC " " xrl a,r4 011B : 5C "\" anl a,r4 011C : C6 22 " "" jz L0122 011E : 85 " " clr f0 011F : 95 " " cpl f0 0120 : 24 10 "$ " jmp L0110 0122 L0122: 0122 : 04 4D " M" jmp L004D ; 0124 : 00 " " nop 0125 L0125: 0125 : AE " " mov r6,a 0126 : B6 87 " " jf0 L0187 0128 : B9 29 " )" mov r1,#029H 012A : F1 " " mov a,@r1 012B : D3 6F " o" xrl a,#06FH 012D : C6 82 " " jz L0182 012F : FA " " mov a,r2 0130 : D3 10 " " xrl a,#010H 0132 : 96 71 " q" jnz L0171 0134 : D5 " " sel rb1 0135 : FD " " mov a,r5 0136 : C5 " " sel rb0 0137 : D3 03 " " xrl a,#003H 0139 : C6 64 " d" jz L0164 013B : FB " " mov a,r3 013C : 07 " " dec a 013D : 43 70 "Cp" orl a,#070H 013F : E3 " " movp3 a,@a 0140 : A8 " " mov r0,a 0141 : D3 3A " :" xrl a,#03AH 0143 : 96 4A " J" jnz L014A 0145 : 26 84 "& " jnt0 L0184 0147 L0147: 0147 : F8 " " mov a,r0 0148 : 24 6D "$m" jmp L016D ; 014A L014A: 014A : F8 " " mov a,r0 014B : D3 38 " 8" xrl a,#038H 014D : 96 58 " X" jnz L0158 014F : B9 7F " " mov r1,#07FH 0151 : F1 " " mov a,@r1 0152 : D2 47 " G" jb6 L0147 0154 : 52 47 "RG" jb2 L0147 0156 : 24 84 "$ " jmp L0184 ; 0158 L0158: 0158 : F8 " " mov a,r0 0159 : D3 36 " 6" xrl a,#036H 015B : 96 47 " G" jnz L0147 015D : 0A " " in a,p2 015E : F2 47 " G" jb7 L0147 0160 : 72 47 "rG" jb3 L0147 0162 : 24 84 "$ " jmp L0184 ; 0164 L0164: 0164 : FB " " mov a,r3 0165 : 07 " " dec a 0166 : 43 78 "Cx" orl a,#078H 0168 : E3 " " movp3 a,@a 0169 : 17 " " inc a 016A : C6 84 " " jz L0184 016C : 07 " " dec a 016D L016D: 016D : F4 73 " s" call L0773 016F : 24 84 "$ " jmp L0184 ; 0171 L0171: 0171 : B9 27 " '" mov r1,#027H 0173 : F1 " " mov a,@r1 0174 : A8 " " mov r0,a 0175 : D3 4F " O" xrl a,#04FH 0177 : C6 82 " " jz L0182 0179 : FA " " mov a,r2 017A : 47 "G" swap a 017B : 53 F0 "S " anl a,#0F0H 017D : 4B "K" orl a,r3 017E : A0 " " mov @r0,a 017F : 11 " " inc @r1 0180 : 24 84 "$ " jmp L0184 ; 0182 L0182: 0182 : F4 49 " I" call L0749 0184 L0184: 0184 : FE " " mov a,r6 0185 : 24 15 "$ " jmp L0115 ; 0187 L0187: 0187 : B9 29 " )" mov r1,#029H 0189 : F1 " " mov a,@r1 018A : D3 6F " o" xrl a,#06FH 018C : 96 9F " " jnz L019F 018E L018E: 018E : FA " " mov a,r2 018F : 03 6F " o" add a,#06FH 0191 : A8 " " mov r0,a 0192 : FB " " mov a,r3 0193 : A9 " " mov r1,a 0194 : 27 "'" clr a 0195 : 97 " " clr c 0196 : A7 " " cpl c 0197 L0197: 0197 : F7 " " rlc a 0198 : E9 97 " " djnz r1,L0197 019A : 37 "7" cpl a 019B : 50 "P" anl a,@r0 019C : A0 " " mov @r0,a 019D : 24 84 "$ " jmp L0184 ; 019F L019F: 019F : FA " " mov a,r2 01A0 : D3 10 " " xrl a,#010H 01A2 : 96 A7 " " jnz L01A7 01A4 : 44 00 "D " jmp L0200 ; 01A6 : 00 " " nop 01A7 L01A7: 01A7 : B8 30 " 0" mov r0,#030H 01A9 L01A9: 01A9 : FA " " mov a,r2 01AA : 47 "G" swap a 01AB : 53 F0 "S " anl a,#0F0H 01AD : 4B "K" orl a,r3 01AE : D0 " " xrl a,@r0 01AF : C6 B8 " " jz L01B8 01B1 : 18 " " inc r0 01B2 : B9 27 " '" mov r1,#027H 01B4 : F1 " " mov a,@r1 01B5 : D8 " " xrl a,r0 01B6 : 96 A9 " " jnz L01A9 01B8 L01B8: 01B8 : F4 59 " Y" call L0759 01BA : B9 28 " (" mov r1,#028H 01BC : F1 " " mov a,@r1 01BD : A8 " " mov r0,a 01BE : D3 30 " 0" xrl a,#030H 01C0 : C6 C5 " " jz L01C5 01C2 : F8 " " mov a,r0 01C3 : 07 " " dec a 01C4 : A1 " " mov @r1,a 01C5 L01C5: 01C5 : B8 25 " %" mov r0,#025H 01C7 : F0 " " mov a,@r0 01C8 : 37 "7" cpl a 01C9 : 12 DA " " jb0 L01DA 01CB : FA " " mov a,r2 01CC : 47 "G" swap a 01CD : 4B "K" orl a,r3 01CE : A8 " " mov r0,a 01CF : B9 2C " ," mov r1,#02CH 01D1 : F1 " " mov a,@r1 01D2 : D8 " " xrl a,r0 01D3 : C6 84 " " jz L0184 01D5 : 19 " " inc r1 01D6 : F1 " " mov a,@r1 01D7 : D8 " " xrl a,r0 01D8 : C6 84 " " jz L0184 01DA L01DA: 01DA : FA " " mov a,r2 01DB : 47 "G" swap a 01DC : 77 "w" rr a 01DD : 43 80 "C " orl a,#080H 01DF : A9 " " mov r1,a 01E0 : FB " " mov a,r3 01E1 : 07 " " dec a 01E2 : 49 "I" orl a,r1 01E3 : 24 E9 "$ " jmp L01E9 ; 01E5 L01E5: 01E5 : FB " " mov a,r3 01E6 : 07 " " dec a 01E7 : 43 78 "Cx" orl a,#078H 01E9 L01E9: 01E9 : E3 " " movp3 a,@a 01EA : 17 " " inc a 01EB : C6 84 " " jz L0184 01ED : 07 " " dec a 01EE : 44 4B "DK" jmp L024B ; 01F0 : 00 " " nop 01F1 : 00 " " nop 01F2 : 00 " " nop 01F3 : 00 " " nop 01F4 : 00 " " nop 01F5 : 00 " " nop 01F6 : 00 " " nop 01F7 : 00 " " nop 01F8 : 00 " " nop 01F9 : 00 " " nop 01FA : 00 " " nop 01FB : 00 " " nop 01FC : 04 00 " " jmp L0000 01FE : 04 00 " " jmp L0000 ; 0200 L0200: 0200 : D5 " " sel rb1 0201 : FD " " mov a,r5 0202 : C5 " " sel rb0 0203 : D3 03 " " xrl a,#003H 0205 : 96 09 " " jnz L0209 0207 : 24 E5 "$ " jmp L01E5 ; 0209 L0209: 0209 : FB " " mov a,r3 020A : 07 " " dec a 020B : 43 70 "Cp" orl a,#070H 020D : E3 " " movp3 a,@a 020E : 17 " " inc a 020F : C6 53 " S" jz L0253 0211 : 07 " " dec a 0212 : A8 " " mov r0,a 0213 : D3 3A " :" xrl a,#03AH 0215 : 96 22 " "" jnz L0222 0217 : 26 53 "&S" jnt0 L0253 0219 : 0A " " in a,p2 021A : 32 1E "2 " jb1 L021E 021C : 24 84 "$ " jmp L0184 ; 021E L021E: 021E : 23 BA "# " mov a,#0BAH 0220 L0220: 0220 : 44 33 "D3" jmp L0233 ; 0222 L0222: 0222 : F8 " " mov a,r0 0223 : D3 38 " 8" xrl a,#038H 0225 : C6 29 " )" jz L0229 0227 : 44 3B "D;" jmp L023B ; 0229 L0229: 0229 : B9 7F " " mov r1,#07FH 022B : F1 " " mov a,@r1 022C : 37 "7" cpl a 022D : D2 53 " S" jb6 L0253 022F : 52 53 "RS" jb2 L0253 0231 : 23 B8 "# " mov a,#0B8H 0233 L0233: 0233 : F4 73 " s" call L0773 0235 : 96 4A " J" jnz L024A 0237 : 24 8E "$ " jmp L018E 0239 : 44 4A "DJ" jmp L024A ; 023B L023B: 023B : F8 " " mov a,r0 023C : D3 36 " 6" xrl a,#036H 023E : 96 4A " J" jnz L024A 0240 : 0A " " in a,p2 0241 : 37 "7" cpl a 0242 : F2 53 " S" jb7 L0253 0244 : 72 53 "rS" jb3 L0253 0246 : 23 B6 "# " mov a,#0B6H 0248 : 44 33 "D3" jmp L0233 ; 024A L024A: 024A : F8 " " mov a,r0 024B L024B: 024B : 43 80 "C " orl a,#080H 024D : F4 73 " s" call L0773 024F : 96 53 " S" jnz L0253 0251 : 24 8E "$ " jmp L018E 0253 L0253: 0253 : 24 84 "$ " jmp L0184 ; 0255 L0255: 0255 : B8 25 " %" mov r0,#025H 0257 : F0 " " mov a,@r0 0258 : 37 "7" cpl a 0259 : 12 5D " ]" jb0 L025D 025B : 64 18 "d " jmp L0318 ; 025D L025D: 025D : B9 28 " (" mov r1,#028H 025F : F1 " " mov a,@r1 0260 : A8 " " mov r0,a 0261 : B9 27 " '" mov r1,#027H 0263 : D1 " " xrl a,@r1 0264 : C6 C8 " " jz L02C8 0266 L0266: 0266 : F0 " " mov a,@r0 0267 : AC " " mov r4,a 0268 : F4 9F " " call L079F 026A : FB " " mov a,r3 026B : AD " " mov r5,a 026C : F8 " " mov a,r0 026D : AE " " mov r6,a 026E : 14 BB " " call L00BB 0270 : FC " " mov a,r4 0271 L0271: 0271 : 67 "g" rrc a 0272 : ED 71 " q" djnz r5,L0271 0274 : E6 80 " " jnc L0280 0276 : FE " " mov a,r6 0277 : A8 " " mov r0,a 0278 : F4 59 " Y" call L0759 027A : F4 49 " I" call L0749 027C : FE " " mov a,r6 027D : A8 " " mov r0,a 027E : 44 83 "D " jmp L0283 ; 0280 L0280: 0280 : FE " " mov a,r6 0281 : A8 " " mov r0,a 0282 : 18 " " inc r0 0283 L0283: 0283 : B9 27 " '" mov r1,#027H 0285 : F1 " " mov a,@r1 0286 : D8 " " xrl a,r0 0287 : 96 66 " f" jnz L0266 0289 : B8 28 " (" mov r0,#028H 028B : F0 " " mov a,@r0 028C : D1 " " xrl a,@r1 028D : C6 C8 " " jz L02C8 028F L028F: 028F : B8 25 " %" mov r0,#025H 0291 : F0 " " mov a,@r0 0292 : 12 CC " " jb0 L02CC 0294 : F4 00 " " call L0700 0296 : 12 CA " " jb0 L02CA 0298 : B9 28 " (" mov r1,#028H 029A : F1 " " mov a,@r1 029B : 37 "7" cpl a 029C : 17 " " inc a 029D : B8 27 " '" mov r0,#027H 029F : 60 "`" add a,@r0 02A0 : F6 A8 " " jc L02A8 02A2 : F0 " " mov a,@r0 02A3 : A1 " " mov @r1,a 02A4 : 23 FF "# " mov a,#0FFH 02A6 : 44 B6 "D " jmp L02B6 ; 02A8 L02A8: 02A8 : F1 " " mov a,@r1 02A9 : A8 " " mov r0,a 02AA : 11 " " inc @r1 02AB : F0 " " mov a,@r0 02AC : AC " " mov r4,a 02AD : F4 A0 " " call L07A0 02AF : 47 "G" swap a 02B0 : 77 "w" rr a 02B1 : 43 80 "C " orl a,#080H 02B3 : CB " " dec r3 02B4 : 4B "K" orl a,r3 02B5 : E3 " " movp3 a,@a 02B6 L02B6: 02B6 : 17 " " inc a 02B7 : C6 BC " " jz L02BC 02B9 : 07 " " dec a 02BA : F4 73 " s" call L0773 02BC L02BC: 02BC : B9 28 " (" mov r1,#028H 02BE : F1 " " mov a,@r1 02BF : B8 27 " '" mov r0,#027H 02C1 : D0 " " xrl a,@r0 02C2 : 96 8F " " jnz L028F 02C4 : B8 25 " %" mov r0,#025H 02C6 : B0 00 " " mov @r0,#000H 02C8 L02C8: 02C8 : 04 4D " M" jmp L004D 02CA L02CA: 02CA : 44 CE "D " jmp L02CE 02CC L02CC: 02CC : 64 18 "d " jmp L0318 ; 02CE L02CE: 02CE : B8 28 " (" mov r0,#028H 02D0 : B9 25 " %" mov r1,#025H 02D2 : F1 " " mov a,@r1 02D3 : 37 "7" cpl a 02D4 : 32 D8 "2 " jb1 L02D8 02D6 : 10 " " inc @r0 02D7 : 10 " " inc @r0 02D8 L02D8: 02D8 : F0 " " mov a,@r0 02D9 : B9 26 " &" mov r1,#026H 02DB : A1 " " mov @r1,a 02DC : A8 " " mov r0,a 02DD : F0 " " mov a,@r0 02DE : B9 2C " ," mov r1,#02CH 02E0 : A1 " " mov @r1,a 02E1 : 18 " " inc r0 02E2 : F0 " " mov a,@r0 02E3 : 19 " " inc r1 02E4 : A1 " " mov @r1,a 02E5 : B8 27 " '" mov r0,#027H 02E7 : F0 " " mov a,@r0 02E8 : B8 28 " (" mov r0,#028H 02EA : A0 " " mov @r0,a 02EB : B8 25 " %" mov r0,#025H 02ED : F0 " " mov a,@r0 02EE : 43 02 "C " orl a,#002H 02F0 : A0 " " mov @r0,a 02F1 : 04 4D " M" jmp L004D ; 02F3 : 10 " " inc @r0 02F4 : 44 D8 "D " jmp L02D8 ; 02F6 : 00 " " nop 02F7 : 00 " " nop 02F8 : 00 " " nop 02F9 : 00 " " nop 02FA : 00 " " nop 02FB : 00 " " nop 02FC : 04 00 " " jmp L0000 02FE : 04 00 " " jmp L0000 ; 0300 L0300: 0300 : B8 28 " (" mov r0,#028H 0302 : 23 30 "#0" mov a,#030H 0304 : D0 " " xrl a,@r0 0305 : C6 12 " " jz L0312 0307 : B9 27 " '" mov r1,#027H 0309 : F0 " " mov a,@r0 030A : 37 "7" cpl a 030B : 17 " " inc a 030C : 61 "a" add a,@r1 030D : E6 14 " " jnc L0314 030F : F0 " " mov a,@r0 0310 : 07 " " dec a 0311 : A0 " " mov @r0,a 0312 L0312: 0312 : 44 BC "D " jmp L02BC ; 0314 L0314: 0314 : F1 " " mov a,@r1 0315 : A0 " " mov @r0,a 0316 : 44 BC "D " jmp L02BC ; 0318 L0318: 0318 : 27 "'" clr a 0319 : AE " " mov r6,a 031A : B8 2C " ," mov r0,#02CH 031C : F0 " " mov a,@r0 031D : D3 FF " " xrl a,#0FFH 031F : C6 29 " )" jz L0329 0321 : D4 94 " " call L0694 0323 : 96 2F " /" jnz L032F 0325 L0325: 0325 : BE 01 " " mov r6,#001H 0327 : 64 31 "d1" jmp L0331 ; 0329 L0329: 0329 : B8 25 " %" mov r0,#025H 032B : B0 00 " " mov @r0,#000H 032D : 44 BC "D " jmp L02BC ; 032F L032F: 032F : BE 00 " " mov r6,#000H 0331 L0331: 0331 : B8 2D " -" mov r0,#02DH 0333 : F0 " " mov a,@r0 0334 : D3 FF " " xrl a,#0FFH 0336 : C6 3C " <" jz L033C 0338 : D4 94 " " call L0694 033A : 96 42 " B" jnz L0342 033C L033C: 033C : FE " " mov a,r6 033D : 43 02 "C " orl a,#002H 033F : AE " " mov r6,a 0340 : 64 46 "dF" jmp L0346 ; 0342 L0342: 0342 : FE " " mov a,r6 0343 : 53 FD "S " anl a,#0FDH 0345 : AE " " mov r6,a 0346 L0346: 0346 : FE " " mov a,r6 0347 : C6 4F " O" jz L034F 0349 : D3 03 " " xrl a,#003H 034B : 96 00 " " jnz L0300 034D : 04 4D " M" jmp L004D ; 034F L034F: 034F : B8 2C " ," mov r0,#02CH 0351 : B0 FF " " mov @r0,#0FFH 0353 : 18 " " inc r0 0354 : B0 FF " " mov @r0,#0FFH 0356 : 64 29 "d)" jmp L0329 ; 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 L0360: 0360 : 00 " " nop 0361 : 00 " " nop 0362 L0362: 0362 : 00 " " nop 0363 : 00 " " nop 0364 : 00 " " nop 0365 : 00 " " nop 0366 : 00 " " nop 0367 : 00 " " nop 0368 : 00 " " nop 0369 L0369: 0369 : 00 " " nop 036A : 00 " " nop 036B : 00 " " nop 036C : 04 00 " " jmp L0000 036E : 04 00 " " jmp L0000 ; 0370 : 37 "7" cpl a 0371 : 3A ":" outl p2,a ; 0372 : 38 "8" db 038H ; 0373 : 36 7F "6 " jt0 L037F 0375 : 39 "9" outl p1,a ; 0376 : 38 "8" db 038H ; 0377 : 36 37 "67" jt0 L0337 0379 : 3A ":" outl p2,a ; 037A L037A: 037A : 38 "8" db 038H ; 037B : 36 7F "6 " jt0 L037F 037D : 39 "9" outl p1,a 037E : 7B "{" addc a,r3 037F L037F: 037F : 7D "}" addc a,r5 0380 : FF " " mov a,r7 0381 : FF " " mov a,r7 0382 : 4C "L" orl a,r4 0383 : 55 "U" strt t 0384 : 4E "N" orl a,r6 0385 : 43 4B "CK" orl a,#04BH 0387 : 5C "\" anl a,r4 0388 : 41 "A" orl a,@r1 0389 : FF " " mov a,r7 038A : FF " " mov a,r7 038B : 3C "<" movd p4,a 038C : FF " " mov a,r7 038D : FF " " mov a,r7 038E : 51 "Q" anl a,@r1 038F : 47 "G" swap a 0390 : FF " " mov a,r7 0391 : 45 "E" strt cnt 0392 : 56 57 "VW" jt1 L0357 0394 : 58 "X" anl a,r0 0395 : 59 "Y" anl a,r1 0396 : 5B "[" anl a,r3 0397 : FF " " mov a,r7 0398 : 3D "=" movd p5,a ; 0399 : 3B ";" db 03BH ; 039A : FF " " mov a,r7 039B : FF " " mov a,r7 039C : FF " " mov a,r7 039D : FF " " mov a,r7 039E : 71 "q" addc a,@r1 039F : 6B "k" add a,r3 03A0 : 54 FF "T " call L02FF 03A2 : 3E ">" movd p6,a 03A3 : 75 "u" ent0 clk 03A4 : 77 "w" rr a 03A5 : 79 "y" addc a,r1 03A6 : 74 69 "ti" call L0369 03A8 : 53 2F "S/" anl a,#02FH 03AA : 24 72 "$r" jmp L0172 ; 03AC : 73 "s" db 073H ; 03AD : 2A "*" xch a,r2 ; 03AE : 33 "3" db 033H ; 03AF : 6F "o" add a,r7 03B0 : 52 2C "R," jb2 L032C 03B2 : 27 "'" clr a 03B3 : 1E " " inc r6 03B4 : 21 "!" xch a,@r1 03B5 : 18 " " inc r0 03B6 : 67 "g" rrc a 03B7 : 6D "m" add a,r5 03B8 : 2E "." xch a,r6 03B9 : 2B "+" xch a,r3 03BA : 29 ")" xch a,r1 03BB : 23 1B "# " mov a,#01BH 03BD : 1F " " inc r7 03BE : 1D " " inc r5 03BF : 65 "e" stop tcnt 03C0 : 2D "-" xch a,r5 03C1 : 26 25 "&%" jnt0 L0325 03C3 : 28 "(" xch a,r0 03C4 : FF " " mov a,r7 03C5 : 19 " " inc r1 03C6 : 64 62 "db" jmp L0362 ; 03C8 : FF " " mov a,r7 03C9 : 04 FF " " jmp L00FF ; 03CB : 22 """ db 022H ; 03CC : FF " " mov a,r7 03CD : 1C " " inc r4 03CE : 1A " " inc r2 03CF : 61 "a" add a,@r1 03D0 : 31 "1" xchd a,@r1 ; 03D1 : 0B " " db 00BH ; 03D2 : 20 " " xch a,@r0 03D3 : FF " " mov a,r7 03D4 : 10 " " inc @r0 03D5 : 11 " " inc @r1 03D6 : 16 60 " `" jtf L0360 03D8 : 09 " " in a,p1 03D9 : 03 FF " " add a,#0FFH 03DB : 0F " " movd a,p7 03DC : 05 " " en i 03DD : 17 " " inc a 03DE : 15 " " dis i 03DF : 76 08 "v " jf1 L0308 03E1 : FF " " mov a,r7 03E2 : 02 " " outl bus,a 03E3 : 0E " " movd a,p6 03E4 : FF " " mov a,r7 03E5 : FF " " mov a,r7 03E6 : 14 63 " c" call L0063 03E8 : 07 " " dec a 03E9 : FF " " mov a,r7 03EA : FF " " mov a,r7 03EB : 0D " " movd a,p5 03EC : FF " " mov a,r7 03ED : FF " " mov a,r7 03EE : 13 78 " x" addc a,#078H ; 03F0 : 06 01 " " db 006H, 001H ; 03F2 : FF " " mov a,r7 03F3 : 0C " " movd a,p4 03F4 : FF " " mov a,r7 03F5 : FF " " mov a,r7 03F6 : 12 7A " z" jb0 L037A 03F8 : FF " " mov a,r7 03F9 : 00 " " nop 03FA : FF " " mov a,r7 03FB : 30 "0" xchd a,@r0 03FC : FF " " mov a,r7 03FD : 0A " " in a,p2 03FE : 32 35 "25" jb1 L0335 0400 : 20 " " xch a,@r0 0401 : 59 "Y" anl a,r1 0402 : 39 "9" outl p1,a 0403 : 39 "9" outl p1,a 0404 : 39 "9" outl p1,a 0405 : 39 "9" outl p1,a 0406 : 39 "9" outl p1,a 0407 : 39 "9" outl p1,a 0408 : 39 "9" outl p1,a 0409 : 39 "9" outl p1,a 040A : FB " " mov a,r3 040B : 57 "W" da a 040C : 5F "_" anl a,r7 040D : 39 "9" outl p1,a 040E : A0 " " mov @r0,a 040F : DF " " xrl a,r7 0410 : 00 " " nop 0411 : 04 00 " " jmp L0000 ; 0413 L0413: 0413 : D5 " " sel rb1 0414 : B9 52 " R" mov r1,#052H 0416 L0416: 0416 : 56 23 "V#" jt1 L0423 0418 : E9 16 " " djnz r1,L0416 041A : B9 88 " " mov r1,#088H 041C L041C: 041C : 56 23 "V#" jt1 L0423 041E : E9 1C " " djnz r1,L041C 0420 : 00 " " nop 0421 : 04 1E " " jmp L001E ; 0423 L0423: 0423 : 85 " " clr f0 0424 : FE " " mov a,r6 0425 : 47 "G" swap a 0426 : AB " " mov r3,a 0427 : 5F "_" anl a,r7 0428 : 37 "7" cpl a 0429 : 32 2C "2," jb1 L042C 042B : 95 " " cpl f0 042C L042C: 042C : B9 09 " " mov r1,#009H 042E : B8 01 " " mov r0,#001H 0430 : D4 23 " #" call L0623 0432 : DB " " xrl a,r3 0433 : 53 F0 "S " anl a,#0F0H 0435 : C6 45 " E" jz L0445 0437 : B6 3B " ;" jf0 L043B 0439 : 04 4D " M" jmp L004D ; 043B L043B: 043B : 89 80 " " orl p1,#080H 043D : B9 1C " " mov r1,#01CH 043F L043F: 043F : E9 3F " ?" djnz r1,L043F 0441 : 99 7F " " anl p1,#07FH 0443 : 04 4D " M" jmp L004D ; 0445 L0445: 0445 : FF " " mov a,r7 0446 : 43 80 "C " orl a,#080H 0448 : AF " " mov r7,a 0449 : B9 23 " #" mov r1,#023H 044B L044B: 044B : 56 51 "VQ" jt1 L0451 044D : E9 4B " K" djnz r1,L044B 044F : 04 4D " M" jmp L004D ; 0451 L0451: 0451 : 27 "'" clr a 0452 : 62 "b" mov t,a 0453 : FB " " mov a,r3 0454 : 53 0F "S " anl a,#00FH 0456 : B3 " " jmpp @a ;INFO: indirect jump 0457 : A4 1D " " jmp L051D ; 0459 L0459: 0459 : FF " " mov a,r7 045A : 53 F5 "S " anl a,#0F5H 045C : AF " " mov r7,a 045D : 04 2D " -" jmp L002D ; 045F : FF " " mov a,r7 0460 : 37 "7" cpl a 0461 : 32 9E "2 " jb1 L049E 0463 : 37 "7" cpl a 0464 : 53 FE "S " anl a,#0FEH 0466 : AF " " mov r7,a 0467 : BB FF " " mov r3,#0FFH 0469 : B8 2A " *" mov r0,#02AH 046B : F0 " " mov a,@r0 046C : A8 " " mov r0,a 046D : F0 " " mov a,@r0 046E : AC " " mov r4,a 046F : D3 7F " " xrl a,#07FH 0471 : 53 7F "S " anl a,#07FH 0473 : 96 7C " |" jnz L047C 0475 : F0 " " mov a,@r0 0476 : 43 7F "C " orl a,#07FH 0478 : AC " " mov r4,a 0479 : AB " " mov r3,a 047A : 84 90 " " jmp L0490 ; 047C L047C: 047C : 18 " " inc r0 047D : B9 29 " )" mov r1,#029H 047F : F1 " " mov a,@r1 0480 : D8 " " xrl a,r0 0481 : C6 90 " " jz L0490 0483 : F0 " " mov a,@r0 0484 : D3 7F " " xrl a,#07FH 0486 : 53 7F "S " anl a,#07FH 0488 : C6 90 " " jz L0490 048A : F0 " " mov a,@r0 048B : AB " " mov r3,a 048C : FF " " mov a,r7 048D : 43 01 "C " orl a,#001H 048F : AF " " mov r7,a 0490 L0490: 0490 : B9 06 " " mov r1,#006H 0492 : B4 6C " l" call L056C 0494 : B8 2A " *" mov r0,#02AH 0496 : FF " " mov a,r7 0497 : 37 "7" cpl a 0498 : 12 9B " " jb0 L049B 049A : 10 " " inc @r0 049B L049B: 049B : 10 " " inc @r0 049C : F4 87 " " call L0787 049E L049E: 049E : 04 4D " M" jmp L004D ; 04A0 : 99 F0 " " anl p1,#0F0H 04A2 : 89 01 " " orl p1,#001H 04A4 : 08 " " ins a,bus 04A5 : 53 80 "S " anl a,#080H 04A7 : AB " " mov r3,a 04A8 : 99 F0 " " anl p1,#0F0H 04AA : 89 03 " " orl p1,#003H 04AC : 08 " " ins a,bus 04AD : 77 "w" rr a 04AE : 53 40 "S@" anl a,#040H 04B0 : 4B "K" orl a,r3 04B1 : AB " " mov r3,a 04B2 : 09 " " in a,p1 04B3 : 37 "7" cpl a 04B4 : 53 70 "Sp" anl a,#070H 04B6 : 47 "G" swap a 04B7 : 4B "K" orl a,r3 04B8 : 43 38 "C8" orl a,#038H 04BA : AB " " mov r3,a 04BB : 0A " " in a,p2 04BC : F2 C0 " " jb7 L04C0 04BE : 53 F7 "S " anl a,#0F7H 04C0 L04C0: 04C0 : 43 80 "C " orl a,#080H 04C2 : D2 C6 " " jb6 L04C6 04C4 : 53 BB "S " anl a,#0BBH 04C6 L04C6: 04C6 : 36 CA "6 " jt0 L04CA 04C8 : 53 BD "S " anl a,#0BDH 04CA L04CA: 04CA : 53 BF "S " anl a,#0BFH 04CC : AC " " mov r4,a 04CD : 99 F0 " " anl p1,#0F0H 04CF : 89 05 " " orl p1,#005H 04D1 : 08 " " ins a,bus 04D2 : 37 "7" cpl a 04D3 : D2 D9 " " jb6 L04D9 04D5 : FC " " mov a,r4 04D6 : 43 40 "C@" orl a,#040H 04D8 : AC " " mov r4,a 04D9 L04D9: 04D9 : B9 02 " " mov r1,#002H 04DB : B4 6C " l" call L056C 04DD : 04 4D " M" jmp L004D ; 04DF : FE " " mov a,r6 04E0 : 53 F0 "S " anl a,#0F0H 04E2 : AC " " mov r4,a 04E3 : C5 " " sel rb0 04E4 : FF " " mov a,r7 04E5 : E7 " " rl a 04E6 : AF " " mov r7,a 04E7 : D5 " " sel rb1 04E8 : 53 0F "S " anl a,#00FH 04EA : 4C "L" orl a,r4 04EB : AC " " mov r4,a 04EC : 0A " " in a,p2 04ED : 53 10 "S " anl a,#010H 04EF : E7 " " rl a 04F0 : E7 " " rl a 04F1 : 4C "L" orl a,r4 04F2 : AC " " mov r4,a 04F3 : FD " " mov a,r5 04F4 : AB " " mov r3,a 04F5 : B9 08 " " mov r1,#008H 04F7 : B4 6C " l" call L056C 04F9 : 04 4D " M" jmp L004D 04FB : A4 00 " " jmp L0500 ; 04FD : 00 " " nop 04FE : 00 " " nop 04FF : 00 " " nop 0500 L0500: 0500 : 27 "'" clr a 0501 : AB " " mov r3,a 0502 : B9 1A " " mov r1,#01AH 0504 L0504: 0504 : 46 0A "F " jnt1 L050A 0506 : E9 04 " " djnz r1,L0504 0508 : 04 4D " M" jmp L004D ; 050A L050A: 050A : B9 09 " " mov r1,#009H 050C : B8 02 " " mov r0,#002H 050E : D4 00 " " call L0600 0510 : FB " " mov a,r3 0511 : 47 "G" swap a 0512 : 37 "7" cpl a 0513 : 53 70 "Sp" anl a,#070H 0515 : AA " " mov r2,a 0516 : 09 " " in a,p1 0517 : 53 8F "S " anl a,#08FH 0519 : 4A "J" orl a,r2 051A : 39 "9" outl p1,a 051B : 04 4D " M" jmp L004D ; 051D L051D: 051D : 27 "'" clr a 051E : AC " " mov r4,a 051F : AB " " mov r3,a 0520 : B9 1A " " mov r1,#01AH 0522 L0522: 0522 : 46 29 "F)" jnt1 L0529 0524 : E9 22 " "" djnz r1,L0522 0526 : 04 4D " M" jmp L004D ; 0528 : 00 " " nop 0529 L0529: 0529 : B9 09 " " mov r1,#009H 052B : B8 02 " " mov r0,#002H 052D : D4 00 " " call L0600 052F : AC " " mov r4,a 0530 : FB " " mov a,r3 0531 : 96 39 " 9" jnz L0539 0533 : FC " " mov a,r4 0534 : 53 2F "S/" anl a,#02FH 0536 : AE " " mov r6,a 0537 L0537: 0537 : 04 4D " M" jmp L004D ; 0539 L0539: 0539 : D3 FF " " xrl a,#0FFH 053B : 96 3F " ?" jnz L053F 053D : 84 59 " Y" jmp L0459 ; 053F L053F: 053F : D3 02 " " xrl a,#002H 0541 : 96 50 " P" jnz L0550 0543 : 0A " " in a,p2 0544 : 12 37 " 7" jb0 L0537 0546 L0546: 0546 : FC " " mov a,r4 0547 : 53 0F "S " anl a,#00FH 0549 : 2E "." xch a,r6 054A : 53 20 "S " anl a,#020H 054C : 4E "N" orl a,r6 054D : AE " " mov r6,a 054E : 04 4D " M" jmp L004D ; 0550 L0550: 0550 : D3 03 " " xrl a,#003H 0552 : 96 59 " Y" jnz L0559 0554 : FF " " mov a,r7 0555 : 52 37 "R7" jb2 L0537 0557 : A4 46 " F" jmp L0546 ; 0559 L0559: 0559 : FB " " mov a,r3 055A : D3 03 " " xrl a,#003H 055C : C6 68 " h" jz L0568 055E : FB " " mov a,r3 055F : D3 02 " " xrl a,#002H 0561 : C6 68 " h" jz L0568 0563 : FB " " mov a,r3 0564 : D3 05 " " xrl a,#005H 0566 : 96 37 " 7" jnz L0537 0568 L0568: 0568 : FB " " mov a,r3 0569 : AD " " mov r5,a 056A : 04 4D " M" jmp L004D ; 056C L056C: 056C : FF " " mov a,r7 056D : 43 04 "C " orl a,#004H 056F : AF " " mov r7,a 0570 : B8 08 " " mov r0,#008H 0572 L0572: 0572 : E9 72 " r" djnz r1,L0572 0574 : 42 "B" mov a,t 0575 : 96 DC " " jnz L05DC 0577 : 89 80 " " orl p1,#080H 0579 : 27 "'" clr a 057A : 62 "b" mov t,a 057B : B4 E2 " " call L05E2 057D : 99 7F " " anl p1,#07FH 057F : 00 " " nop 0580 : 46 DC "F " jnt1 L05DC 0582 : B4 E1 " " call L05E1 0584 L0584: 0584 : 46 DC "F " jnt1 L05DC 0586 : B4 E7 " " call L05E7 0588 : 42 "B" mov a,t 0589 : 96 DC " " jnz L05DC 058B : 89 80 " " orl p1,#080H 058D : 27 "'" clr a 058E : 62 "b" mov t,a 058F : B4 E7 " " call L05E7 0591 : FC " " mov a,r4 0592 : E7 " " rl a 0593 : AC " " mov r4,a 0594 : 12 CA " " jb0 L05CA 0596 : B4 E0 " " call L05E0 0598 : 99 7F " " anl p1,#07FH 059A L059A: 059A : E8 84 " " djnz r0,L0584 059C : 46 DC "F " jnt1 L05DC 059E : B8 08 " " mov r0,#008H 05A0 : A4 A6 " " jmp L05A6 ; 05A2 L05A2: 05A2 : 46 DC "F " jnt1 L05DC 05A4 : B4 E8 " " call L05E8 05A6 L05A6: 05A6 : 00 " " nop 05A7 : 42 "B" mov a,t 05A8 : 96 DC " " jnz L05DC 05AA : 89 80 " " orl p1,#080H 05AC : 27 "'" clr a 05AD : 62 "b" mov t,a 05AE : B4 E7 " " call L05E7 05B0 : FB " " mov a,r3 05B1 : E7 " " rl a 05B2 : AB " " mov r3,a 05B3 : 12 D3 " " jb0 L05D3 05B5 : B4 E0 " " call L05E0 05B7 : 99 7F " " anl p1,#07FH 05B9 L05B9: 05B9 : E8 A2 " " djnz r0,L05A2 05BB : B4 E2 " " call L05E2 05BD : 89 80 " " orl p1,#080H 05BF : B4 E0 " " call L05E0 05C1 : B4 E0 " " call L05E0 05C3 : 99 7F " " anl p1,#07FH 05C5 : FF " " mov a,r7 05C6 : 53 FB "S " anl a,#0FBH 05C8 : AF " " mov r7,a 05C9 : 83 " " ret ; 05CA L05CA: 05CA : 99 7F " " anl p1,#07FH 05CC : 00 " " nop 05CD : 46 DC "F " jnt1 L05DC 05CF : B4 E5 " " call L05E5 05D1 : A4 9A " " jmp L059A ; 05D3 L05D3: 05D3 : 99 7F " " anl p1,#07FH 05D5 : 00 " " nop 05D6 : 46 DC "F " jnt1 L05DC 05D8 : B4 E5 " " call L05E5 05DA : A4 B9 " " jmp L05B9 ; 05DC L05DC: 05DC : 27 "'" clr a 05DD : D7 " " mov psw,a 05DE : 04 4D " M" jmp L004D ; 05E0 L05E0: 05E0 : 00 " " nop 05E1 L05E1: 05E1 : 00 " " nop 05E2 L05E2: 05E2 : 00 " " nop 05E3 : 00 " " nop 05E4 : 00 " " nop 05E5 L05E5: 05E5 : 00 " " nop 05E6 : 00 " " nop 05E7 L05E7: 05E7 : 00 " " nop 05E8 L05E8: 05E8 : 83 " " ret ; 05E9 : 00 " " nop 05EA : 00 " " nop 05EB : 00 " " nop 05EC : 00 " " nop 05ED : 00 " " nop 05EE : 00 " " nop 05EF : 00 " " nop 05F0 : 00 " " nop 05F1 : 00 " " nop 05F2 : 00 " " nop 05F3 : 00 " " nop 05F4 : 00 " " nop 05F5 : 00 " " nop 05F6 : 00 " " nop 05F7 : 00 " " nop 05F8 : 00 " " nop 05F9 : 00 " " nop 05FA : 00 " " nop 05FB : 00 " " nop 05FC : 04 00 " " jmp L0000 05FE : 04 00 " " jmp L0000 ; 0600 L0600: 0600 : 97 " " clr c 0601 : 56 41 "VA" jt1 L0641 0603 : 56 3F "V?" jt1 L063F 0605 : 56 3D "V=" jt1 L063D 0607 : 56 3B "V;" jt1 L063B 0609 : 56 39 "V9" jt1 L0639 060B : 56 37 "V7" jt1 L0637 060D : 56 35 "V5" jt1 L0635 060F : 56 33 "V3" jt1 L0633 0611 : 56 31 "V1" jt1 L0631 0613 : 56 2F "V/" jt1 L062F 0615 : 56 2D "V-" jt1 L062D 0617 : 56 2B "V+" jt1 L062B 0619 : 56 29 "V)" jt1 L0629 061B : 56 27 "V'" jt1 L0627 061D : 56 25 "V%" jt1 L0625 061F : 56 23 "V#" jt1 L0623 0621 : C4 92 " " jmp L0692 ; 0623 L0623: 0623 : 46 6C "Fl" jnt1 L066C 0625 L0625: 0625 : 46 6C "Fl" jnt1 L066C 0627 L0627: 0627 : 46 6C "Fl" jnt1 L066C 0629 L0629: 0629 : 46 6C "Fl" jnt1 L066C 062B L062B: 062B : 46 6C "Fl" jnt1 L066C 062D L062D: 062D : 46 6C "Fl" jnt1 L066C 062F L062F: 062F : 46 6C "Fl" jnt1 L066C 0631 L0631: 0631 : 46 6C "Fl" jnt1 L066C 0633 L0633: 0633 : 46 6C "Fl" jnt1 L066C 0635 L0635: 0635 : 46 6C "Fl" jnt1 L066C 0637 L0637: 0637 : 46 6C "Fl" jnt1 L066C 0639 L0639: 0639 : 46 6C "Fl" jnt1 L066C 063B L063B: 063B : 46 6C "Fl" jnt1 L066C 063D L063D: 063D : 46 6C "Fl" jnt1 L066C 063F L063F: 063F : 46 6C "Fl" jnt1 L066C 0641 L0641: 0641 : 46 6C "Fl" jnt1 L066C 0643 : 46 6C "Fl" jnt1 L066C 0645 : 46 6C "Fl" jnt1 L066C 0647 : 46 6C "Fl" jnt1 L066C 0649 : A7 " " cpl c 064A : 46 6C "Fl" jnt1 L066C 064C : 46 6C "Fl" jnt1 L066C 064E : 46 6C "Fl" jnt1 L066C 0650 : 46 6C "Fl" jnt1 L066C 0652 : 46 6C "Fl" jnt1 L066C 0654 : 46 6C "Fl" jnt1 L066C 0656 : 46 6C "Fl" jnt1 L066C 0658 : 46 6C "Fl" jnt1 L066C 065A : 46 6C "Fl" jnt1 L066C 065C : 46 6C "Fl" jnt1 L066C 065E : 46 6C "Fl" jnt1 L066C 0660 : 46 6C "Fl" jnt1 L066C 0662 : 46 6C "Fl" jnt1 L066C 0664 : 46 6C "Fl" jnt1 L066C 0666 : 46 6C "Fl" jnt1 L066C 0668 : 46 6C "Fl" jnt1 L066C 066A : C4 92 " " jmp L0692 ; 066C L066C: 066C : F7 " " rlc a 066D : E9 00 " " djnz r1,L0600 066F : 2B "+" xch a,r3 0670 : E8 73 " s" djnz r0,L0673 0672 : 83 " " ret ; 0673 L0673: 0673 : B9 08 " " mov r1,#008H 0675 : 97 " " clr c 0676 : 56 3D "V=" jt1 L063D 0678 : 56 3B "V;" jt1 L063B 067A : 56 39 "V9" jt1 L0639 067C : 56 37 "V7" jt1 L0637 067E : 56 35 "V5" jt1 L0635 0680 : 56 33 "V3" jt1 L0633 0682 : 56 31 "V1" jt1 L0631 0684 : 56 2F "V/" jt1 L062F 0686 : 56 2D "V-" jt1 L062D 0688 : 56 2B "V+" jt1 L062B 068A : 56 29 "V)" jt1 L0629 068C : 56 27 "V'" jt1 L0627 068E : 56 25 "V%" jt1 L0625 0690 : 56 23 "V#" jt1 L0623 0692 L0692: 0692 : A4 DC " " jmp L05DC ; 0694 L0694: 0694 : B9 30 " 0" mov r1,#030H 0696 L0696: 0696 : F1 " " mov a,@r1 0697 : D0 " " xrl a,@r0 0698 : 96 9B " " jnz L069B 069A : 83 " " ret ; 069B L069B: 069B : 19 " " inc r1 069C : D5 " " sel rb1 069D : B8 27 " '" mov r0,#027H 069F : F0 " " mov a,@r0 06A0 : C5 " " sel rb0 06A1 : D9 " " xrl a,r1 06A2 : 96 96 " " jnz L0696 06A4 : B8 25 " %" mov r0,#025H 06A6 : F0 " " mov a,@r0 06A7 : 53 FE "S " anl a,#0FEH 06A9 : A0 " " mov @r0,a 06AA : 18 " " inc r0 06AB : F0 " " mov a,@r0 06AC : B9 28 " (" mov r1,#028H 06AE : A1 " " mov @r1,a 06AF : 83 " " ret ; 06B0 : 00 " " nop 06B1 : 00 " " nop 06B2 : 00 " " nop 06B3 : 00 " " nop 06B4 : 00 " " nop 06B5 : 00 " " nop 06B6 : 00 " " nop 06B7 : 00 " " nop 06B8 : 00 " " nop 06B9 : 00 " " nop 06BA : 00 " " nop 06BB : 00 " " nop 06BC : 00 " " nop 06BD : 00 " " nop 06BE : 00 " " nop 06BF : 00 " " nop 06C0 : 00 " " nop 06C1 : 00 " " nop 06C2 : 00 " " nop 06C3 : 00 " " nop 06C4 : 00 " " nop 06C5 : 00 " " nop 06C6 : 00 " " nop 06C7 : 00 " " nop 06C8 : 00 " " nop 06C9 : 00 " " nop 06CA : 00 " " nop 06CB : 00 " " nop 06CC : 00 " " nop 06CD : 00 " " nop 06CE : 00 " " nop 06CF : 00 " " nop 06D0 : 00 " " nop 06D1 : 00 " " nop 06D2 : 00 " " nop 06D3 : 00 " " nop 06D4 : 00 " " nop 06D5 : 00 " " nop 06D6 : 00 " " nop 06D7 : 00 " " nop 06D8 : 00 " " nop 06D9 : 00 " " nop 06DA : 00 " " nop 06DB : 00 " " nop 06DC : 00 " " nop 06DD : 00 " " nop 06DE : 00 " " nop 06DF : 00 " " nop 06E0 : 00 " " nop 06E1 : 00 " " nop 06E2 : 00 " " nop 06E3 : 00 " " nop 06E4 : 00 " " nop 06E5 : 00 " " nop 06E6 : 00 " " nop 06E7 : 00 " " nop 06E8 : 00 " " nop 06E9 : 00 " " nop 06EA : 00 " " nop 06EB : 00 " " nop 06EC : 00 " " nop 06ED : 00 " " nop 06EE : 00 " " nop 06EF : 00 " " nop 06F0 : 00 " " nop 06F1 : 00 " " nop 06F2 : 00 " " nop 06F3 : 00 " " nop 06F4 : 00 " " nop 06F5 : 00 " " nop 06F6 : 00 " " nop 06F7 : 00 " " nop 06F8 : 00 " " nop 06F9 : 00 " " nop 06FA : 00 " " nop 06FB : 00 " " nop 06FC : 04 00 " " jmp L0000 06FE : 04 00 " " jmp L0000 ; 0700 L0700: 0700 : B8 27 " '" mov r0,#027H 0702 : F0 " " mov a,@r0 0703 : AD " " mov r5,a 0704 : 37 "7" cpl a 0705 : 03 31 " 1" add a,#031H 0707 : F6 3B " ;" jc L073B 0709 : B9 28 " (" mov r1,#028H 070B : F1 " " mov a,@r1 070C : A8 " " mov r0,a 070D : AE " " mov r6,a 070E : F0 " " mov a,@r0 070F : AC " " mov r4,a 0710 : F4 A0 " " call L07A0 0712 : B9 30 " 0" mov r1,#030H 0714 L0714: 0714 : F1 " " mov a,@r1 0715 : 53 F0 "S " anl a,#0F0H 0717 : 47 "G" swap a 0718 : DA " " xrl a,r2 0719 : 96 36 " 6" jnz L0736 071B : F8 " " mov a,r0 071C : D9 " " xrl a,r1 071D : C6 36 " 6" jz L0736 071F : F1 " " mov a,@r1 0720 : 53 0F "S " anl a,#00FH 0722 : AC " " mov r4,a 0723 : B8 30 " 0" mov r0,#030H 0725 L0725: 0725 : F0 " " mov a,@r0 0726 : 53 0F "S " anl a,#00FH 0728 : DC " " xrl a,r4 0729 : 96 2F " /" jnz L072F 072B : F9 " " mov a,r1 072C : D8 " " xrl a,r0 072D : 96 42 " B" jnz L0742 072F L072F: 072F : 18 " " inc r0 0730 : FD " " mov a,r5 0731 L0731: 0731 : D8 " " xrl a,r0 0732 : 96 25 " %" jnz L0725 0734 : E4 3B " ;" jmp L073B ; 0736 L0736: 0736 : 19 " " inc r1 0737 : FD " " mov a,r5 0738 : D9 " " xrl a,r1 0739 : 96 14 " " jnz L0714 073B L073B: 073B : B8 25 " %" mov r0,#025H 073D : F0 " " mov a,@r0 073E : 53 FE "S " anl a,#0FEH 0740 : A0 " " mov @r0,a 0741 : 83 " " ret ; 0742 L0742: 0742 : B8 25 " %" mov r0,#025H 0744 L0744: 0744 : F0 " " mov a,@r0 0745 L0745: 0745 : 43 01 "C " orl a,#001H 0747 : A0 " " mov @r0,a 0748 : 83 " " ret ; 0749 L0749: 0749 : FA " " mov a,r2 074A : 03 6F " o" add a,#06FH 074C : A8 " " mov r0,a 074D : FB " " mov a,r3 074E : A9 " " mov r1,a 074F L074F: 074F : 27 "'" clr a 0750 : 97 " " clr c 0751 : A7 " " cpl c 0752 L0752: 0752 : F7 " " rlc a 0753 : E9 52 " R" djnz r1,L0752 0755 : 40 "@" orl a,@r0 0756 : A0 " " mov @r0,a 0757 : 83 " " ret ; 0758 : 00 " " nop 0759 L0759: 0759 : F8 " " mov a,r0 075A : A9 " " mov r1,a 075B : 19 " " inc r1 075C : F9 " " mov a,r1 075D : D3 4F " O" xrl a,#04FH 075F : 96 65 " e" jnz L0765 0761 : 23 FF "# " mov a,#0FFH 0763 : E4 66 " f" jmp L0766 ; 0765 L0765: 0765 : F1 " " mov a,@r1 0766 L0766: 0766 : A0 " " mov @r0,a 0767 : 18 " " inc r0 0768 : B9 27 " '" mov r1,#027H 076A : F1 " " mov a,@r1 076B : D8 " " xrl a,r0 076C : 96 59 " Y" jnz L0759 076E : F1 " " mov a,@r1 076F : 07 " " dec a 0770 : A1 " " mov @r1,a 0771 : 83 " " ret ; 0772 : 00 " " nop 0773 L0773: 0773 : D5 " " sel rb1 0774 : A8 " " mov r0,a 0775 : B9 29 " )" mov r1,#029H 0777 : F1 " " mov a,@r1 0778 : D3 6F " o" xrl a,#06FH 077A : C6 85 " " jz L0785 077C : F1 " " mov a,@r1 077D : 28 "(" xch a,r0 077E : A0 " " mov @r0,a 077F : 11 " " inc @r1 0780 : F1 " " mov a,@r1 0781 : FF " " mov a,r7 0782 : 43 02 "C " orl a,#002H 0784 : AF " " mov r7,a 0785 L0785: 0785 : C5 " " sel rb0 0786 : 83 " " ret ; 0787 L0787: 0787 : D5 " " sel rb1 0788 : B8 2A " *" mov r0,#02AH 078A : B9 29 " )" mov r1,#029H 078C : F0 " " mov a,@r0 078D : D1 " " xrl a,@r1 078E : 96 9A " " jnz L079A 0790 : 23 4F "#O" mov a,#04FH 0792 : A0 " " mov @r0,a 0793 : A1 " " mov @r1,a 0794 : FF " " mov a,r7 0795 : 53 FD "S " anl a,#0FDH 0797 : AF " " mov r7,a 0798 : 27 "'" clr a 0799 : 83 " " ret ; 079A L079A: 079A : FF " " mov a,r7 079B : 43 02 "C " orl a,#002H 079D : AF " " mov r7,a 079E : 83 " " ret ; 079F L079F: 079F : FC " " mov a,r4 07A0 L07A0: 07A0 : 53 0F "S " anl a,#00FH 07A2 : AB " " mov r3,a 07A3 : FC " " mov a,r4 07A4 : 53 F0 "S " anl a,#0F0H 07A6 : 47 "G" swap a 07A7 : AA " " mov r2,a 07A8 : 83 " " ret ; 07A9 : 43 4F "CO" orl a,#04FH 07AB : 50 "P" anl a,@r0 07AC : 59 "Y" anl a,r1 07AD : 52 49 "RI" jb2 L0749 07AF : 47 "G" swap a 07B0 : 48 "H" orl a,r0 07B1 : 54 20 "T " call L0220 07B3 : 31 "1" xchd a,@r1 07B4 : 39 "9" outl p1,a ; 07B5 : 38 38 "88" db 038H, 038H ; 07B7 : 2C "," xch a,r4 07B8 : 31 "1" xchd a,@r1 07B9 : 39 "9" outl p1,a ; 07BA : 38 "8" db 038H ; 07BB : 39 "9" outl p1,a 07BC : 20 " " xch a,@r0 07BD : 41 "A" orl a,@r1 07BE : 50 "P" anl a,@r0 07BF : 50 "P" anl a,@r0 07C0 : 4C "L" orl a,r4 07C1 : 45 "E" strt cnt 07C2 : 20 " " xch a,@r0 07C3 : 43 4F "CO" orl a,#04FH 07C5 : 4D "M" orl a,r5 07C6 : 50 "P" anl a,@r0 07C7 : 55 "U" strt t 07C8 : 54 45 "TE" call L0245 07CA : 52 4F "RO" jb2 L074F 07CC : 44 49 "DI" jmp L0249 ; 07CE : 4E "N" orl a,r6 07CF : 2F "/" xch a,r7 07D0 : 5A "Z" anl a,r2 07D1 : 4F "O" orl a,r7 07D2 : 4F "O" orl a,r7 07D3 : 54 53 "TS" call L0253 07D5 : 20 " " xch a,@r0 07D6 : 4B "K" orl a,r3 07D7 : 45 "E" strt cnt 07D8 : 59 "Y" anl a,r1 07D9 : 42 "B" mov a,t 07DA : 4F "O" orl a,r7 07DB : 41 "A" orl a,@r1 07DC : 52 44 "RD" jb2 L0744 07DE : 20 " " xch a,@r0 07DF : 52 45 "RE" jb2 L0745 07E1 : 56 31 "V1" jt1 L0731 07E3 : 2E "." xch a,r6 07E4 : 32 42 "2B" jb1 L0742 07E6 : 49 "I" orl a,r1 07E7 : 4C "L" orl a,r4 07E8 : 4C "L" orl a,r4 07E9 : 20 " " xch a,@r0 07EA : 4D "M" orl a,r5 07EB : 41 "A" orl a,@r1 07EC : 52 49 "RI" jb2 L0749 07EE : 4E "N" orl a,r6 07EF : 4F "O" orl a,r7 07F0 : 20 " " xch a,@r0 07F1 : 31 "1" xchd a,@r1 07F2 : 39 "9" outl p1,a ; 07F3 : 38 "8" db 038H ; 07F4 : 39 "9" outl p1,a 07F5 : 00 " " nop 07F6 : 00 " " nop 07F7 : 00 " " nop 07F8 : 00 " " nop 07F9 : 00 " " nop 07FA : 00 " " nop 07FB : 00 " " nop 07FC : 04 00 " " jmp L0000 07FE : 04 00 " " jmp L0000 ;-------------------------------------------------------------- Symbol table ============ Value Type Name ----- ---- ---- 0000 Code L0000 000A Code L000A 000B Code L000B 001B Code L001B 001E Code L001E 0027 Code L0027 0029 Code L0029 002D Code L002D 0044 Code L0044 004D Code L004D 0059 Code L0059 005A Code L005A 005B Code L005B 0063 Code L0063 0065 Code L0065 006F Code L006F 0076 Code L0076 007E Code L007E 0093 Code L0093 0097 Code L0097 00A9 Code L00A9 00AB Code L00AB 00AE Code L00AE 00B3 Code L00B3 00BB Code L00BB 00C3 Code L00C3 00C7 Code L00C7 00FF Code L00FF 0100 Code L0100 0102 Code L0102 0110 Code L0110 0112 Code L0112 0115 Code L0115 0119 Code L0119 0122 Code L0122 0125 Code L0125 0147 Code L0147 014A Code L014A 0158 Code L0158 0164 Code L0164 016D Code L016D 0171 Code L0171 0172 Code L0172 0182 Code L0182 0184 Code L0184 0187 Code L0187 018E Code L018E 0197 Code L0197 019F Code L019F 01A7 Code L01A7 01A9 Code L01A9 01B8 Code L01B8 01C5 Code L01C5 01DA Code L01DA 01E5 Code L01E5 01E9 Code L01E9 0200 Code L0200 0209 Code L0209 021E Code L021E 0220 Code L0220 0222 Code L0222 0229 Code L0229 0233 Code L0233 023B Code L023B 0245 Code L0245 0249 Code L0249 024A Code L024A 024B Code L024B 0253 Code L0253 0255 Code L0255 025D Code L025D 0266 Code L0266 0271 Code L0271 0280 Code L0280 0283 Code L0283 028F Code L028F 02A8 Code L02A8 02B6 Code L02B6 02BC Code L02BC 02C8 Code L02C8 02CA Code L02CA 02CC Code L02CC 02CE Code L02CE 02D8 Code L02D8 02FF Code L02FF 0300 Code L0300 0308 Code L0308 0312 Code L0312 0314 Code L0314 0318 Code L0318 0325 Code L0325 0329 Code L0329 032C Code L032C 032F Code L032F 0331 Code L0331 0335 Code L0335 0337 Code L0337 033C Code L033C 0342 Code L0342 0346 Code L0346 034F Code L034F 0357 Code L0357 0360 Code L0360 0362 Code L0362 0369 Code L0369 037A Code L037A 037F Code L037F 0413 Code L0413 0416 Code L0416 041C Code L041C 0423 Code L0423 042C Code L042C 043B Code L043B 043F Code L043F 0445 Code L0445 044B Code L044B 0451 Code L0451 0459 Code L0459 047C Code L047C 0490 Code L0490 049B Code L049B 049E Code L049E 04C0 Code L04C0 04C6 Code L04C6 04CA Code L04CA 04D9 Code L04D9 0500 Code L0500 0504 Code L0504 050A Code L050A 051D Code L051D 0522 Code L0522 0529 Code L0529 0537 Code L0537 0539 Code L0539 053F Code L053F 0546 Code L0546 0550 Code L0550 0559 Code L0559 0568 Code L0568 056C Code L056C 0572 Code L0572 0584 Code L0584 059A Code L059A 05A2 Code L05A2 05A6 Code L05A6 05B9 Code L05B9 05CA Code L05CA 05D3 Code L05D3 05DC Code L05DC 05E0 Code L05E0 05E1 Code L05E1 05E2 Code L05E2 05E5 Code L05E5 05E7 Code L05E7 05E8 Code L05E8 0600 Code L0600 0623 Code L0623 0625 Code L0625 0627 Code L0627 0629 Code L0629 062B Code L062B 062D Code L062D 062F Code L062F 0631 Code L0631 0633 Code L0633 0635 Code L0635 0637 Code L0637 0639 Code L0639 063B Code L063B 063D Code L063D 063F Code L063F 0641 Code L0641 066C Code L066C 0673 Code L0673 0692 Code L0692 0694 Code L0694 0696 Code L0696 069B Code L069B 0700 Code L0700 0714 Code L0714 0725 Code L0725 072F Code L072F 0731 Code L0731 0736 Code L0736 073B Code L073B 0742 Code L0742 0744 Code L0744 0745 Code L0745 0749 Code L0749 074F Code L074F 0752 Code L0752 0759 Code L0759 0765 Code L0765 0766 Code L0766 0773 Code L0773 0785 Code L0785 0787 Code L0787 079A Code L079A 079F Code L079F 07A0 Code L07A0 Number of symbols: 200 ;--------------------------------------------------------------