; Date: Sat May 02 09:28:49 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 : D5 " " sel rb1 001F : BE 22 " "" mov r6,#022H 0021 : BD 02 " " mov r5,#002H 0023 L0023: 0023 : C5 " " sel rb0 0024 : B8 26 " &" mov r0,#026H 0026 : B0 2C " ," mov @r0,#02CH 0028 : 18 " " inc r0 0029 : B0 30 " 0" mov @r0,#030H 002B : 18 " " inc r0 002C : B0 30 " 0" mov @r0,#030H 002E : 18 " " inc r0 002F : B0 4F " O" mov @r0,#04FH 0031 : 18 " " inc r0 0032 : B0 4F " O" mov @r0,#04FH 0034 : 18 " " inc r0 0035 : 23 FF "# " mov a,#0FFH 0037 : 90 " " movx @r0,a 0038 : B9 55 " U" mov r1,#055H 003A L003A: 003A : B0 FF " " mov @r0,#0FFH 003C : 18 " " inc r0 003D : E9 3A " :" djnz r1,L003A 003F : BA 11 " " mov r2,#011H 0041 : A5 " " clr f1 0042 : B5 " " cpl f1 0043 : 89 70 " p" orl p1,#070H 0045 : B9 20 " " mov r1,#020H 0047 L0047: 0047 : E9 47 " G" djnz r1,L0047 0049 : 99 8F " " anl p1,#08FH 004B L004B: 004B : 25 "%" en tcnti 004C : 45 "E" strt cnt 004D : C5 " " sel rb0 004E : 1F " " inc r7 004F : 56 58 "VX" jt1 L0058 0051 : 76 59 "vY" jf1 L0059 0053 : 42 "B" mov a,t 0054 : 96 5A " Z" jnz L005A 0056 : 84 13 " " jmp L0413 ; 0058 L0058: 0058 : A5 " " clr f1 0059 L0059: 0059 : B5 " " cpl f1 005A L005A: 005A : 27 "'" clr a 005B : 62 "b" mov t,a 005C : CA " " dec r2 005D : FA " " mov a,r2 005E : D3 FF " " xrl a,#0FFH 0060 : 96 66 " f" jnz L0066 0062 : BA 11 " " mov r2,#011H 0064 : 44 54 "DT" jmp L0254 ; 0066 L0066: 0066 : FA " " mov a,r2 0067 : D3 10 " " xrl a,#010H 0069 : C6 6D " m" jz L006D 006B : 24 00 "$ " jmp L0100 ; 006D L006D: 006D : D5 " " sel rb1 006E : 26 75 "&u" jnt0 L0075 0070 : FF " " mov a,r7 0071 : 72 8C "r " jb3 L008C 0073 : 04 A1 " " jmp L00A1 ; 0075 L0075: 0075 : FF " " mov a,r7 0076 : 72 A1 "r " jb3 L00A1 0078 : 36 A1 "6 " jt0 L00A1 007A : 43 08 "C " orl a,#008H 007C : AF " " mov r7,a 007D : FD " " mov a,r5 007E : 12 88 " " jb0 L0088 0080 : 0A " " in a,p2 0081 : 37 "7" cpl a 0082 : 32 A1 "2 " jb1 L00A1 0084 : 23 3A "#:" mov a,#03AH 0086 : 04 9E " " jmp L009E ; 0088 L0088: 0088 : 23 7C "#|" mov a,#07CH 008A : 04 9E " " jmp L009E ; 008C L008C: 008C : 26 A1 "& " jnt0 L00A1 008E : 53 F7 "S " anl a,#0F7H 0090 : AF " " mov r7,a 0091 : FD " " mov a,r5 0092 : 12 9C " " jb0 L009C 0094 : 0A " " in a,p2 0095 : 37 "7" cpl a 0096 : 32 A1 "2 " jb1 L00A1 0098 : 23 BA "# " mov a,#0BAH 009A : 04 9E " " jmp L009E ; 009C L009C: 009C : 23 FC "# " mov a,#0FCH 009E L009E: 009E : A8 " " mov r0,a 009F : F4 73 " s" call L0773 00A1 L00A1: 00A1 : C5 " " sel rb0 00A2 : B9 08 " " mov r1,#008H 00A4 : 0A " " in a,p2 00A5 : AC " " mov r4,a 00A6 L00A6: 00A6 : 0A " " in a,p2 00A7 : DC " " xrl a,r4 00A8 : 96 A1 " " jnz L00A1 00AA : E9 A6 " " djnz r1,L00A6 00AC : 24 02 "$ " jmp L0102 ; 00AE L00AE: 00AE : 23 FF "# " mov a,#0FFH 00B0 : 90 " " movx @r0,a 00B1 : 09 " " in a,p1 00B2 : 53 F0 "S " anl a,#0F0H 00B4 : 4A "J" orl a,r2 00B5 : 39 "9" outl p1,a 00B6 L00B6: 00B6 : B9 08 " " mov r1,#008H 00B8 : 08 " " ins a,bus 00B9 : AC " " mov r4,a 00BA L00BA: 00BA : 08 " " ins a,bus 00BB : DC " " xrl a,r4 00BC : 96 B6 " " jnz L00B6 00BE : E9 BA " " djnz r1,L00BA 00C0 : 83 " " ret ; 00C1 : 00 " " nop 00C2 : 00 " " nop 00C3 : 00 " " nop 00C4 : 00 " " nop 00C5 : 00 " " nop 00C6 : 00 " " nop 00C7 : 00 " " nop 00C8 : 00 " " nop 00C9 : 00 " " nop 00CA : 00 " " nop 00CB : 00 " " nop 00CC : 00 " " nop 00CD : 00 " " nop 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 AE " " call L00AE 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 4B " K" jmp L004B ; 0124 : 00 " " nop 0125 L0125: 0125 : AE " " mov r6,a 0126 : B6 85 " " jf0 L0185 0128 : B9 29 " )" mov r1,#029H 012A : F1 " " mov a,@r1 012B : D3 6F " o" xrl a,#06FH 012D : C6 80 " " jz L0180 012F : FA " " mov a,r2 0130 : D3 10 " " xrl a,#010H 0132 : 96 6F " o" jnz L016F 0134 : D5 " " sel rb1 0135 : FD " " mov a,r5 0136 : C5 " " sel rb0 0137 : 12 62 " b" jb0 L0162 0139 : FB " " mov a,r3 013A : 07 " " dec a 013B : 43 70 "Cp" orl a,#070H 013D : E3 " " movp3 a,@a 013E : A8 " " mov r0,a 013F : D3 3A " :" xrl a,#03AH 0141 : 96 48 " H" jnz L0148 0143 : 26 82 "& " jnt0 L0182 0145 L0145: 0145 : F8 " " mov a,r0 0146 : 24 6B "$k" jmp L016B ; 0148 L0148: 0148 : F8 " " mov a,r0 0149 : D3 38 " 8" xrl a,#038H 014B : 96 56 " V" jnz L0156 014D : B9 7F " " mov r1,#07FH 014F : F1 " " mov a,@r1 0150 : D2 45 " E" jb6 L0145 0152 : 52 45 "RE" jb2 L0145 0154 : 24 82 "$ " jmp L0182 ; 0156 L0156: 0156 : F8 " " mov a,r0 0157 : D3 36 " 6" xrl a,#036H 0159 : 96 45 " E" jnz L0145 015B : 0A " " in a,p2 015C : F2 45 " E" jb7 L0145 015E : 72 45 "rE" jb3 L0145 0160 : 24 82 "$ " jmp L0182 ; 0162 L0162: 0162 : FB " " mov a,r3 0163 : 07 " " dec a 0164 : 43 78 "Cx" orl a,#078H 0166 : E3 " " movp3 a,@a 0167 : 17 " " inc a 0168 : C6 82 " " jz L0182 016A : 07 " " dec a 016B L016B: 016B : F4 73 " s" call L0773 016D : 24 82 "$ " jmp L0182 ; 016F L016F: 016F : B9 27 " '" mov r1,#027H 0171 : F1 " " mov a,@r1 0172 L0172: 0172 : A8 " " mov r0,a 0173 : D3 4F " O" xrl a,#04FH 0175 : C6 80 " " jz L0180 0177 : FA " " mov a,r2 0178 : 47 "G" swap a 0179 : 53 F0 "S " anl a,#0F0H 017B : 4B "K" orl a,r3 017C : A0 " " mov @r0,a 017D : 11 " " inc @r1 017E : 24 82 "$ " jmp L0182 ; 0180 L0180: 0180 : F4 49 " I" call L0749 0182 L0182: 0182 : FE " " mov a,r6 0183 : 24 15 "$ " jmp L0115 ; 0185 L0185: 0185 : B9 29 " )" mov r1,#029H 0187 : F1 " " mov a,@r1 0188 : D3 6F " o" xrl a,#06FH 018A : 96 9D " " jnz L019D 018C L018C: 018C : FA " " mov a,r2 018D : 03 6F " o" add a,#06FH 018F : A8 " " mov r0,a 0190 : FB " " mov a,r3 0191 : A9 " " mov r1,a 0192 : 27 "'" clr a 0193 : 97 " " clr c 0194 : A7 " " cpl c 0195 L0195: 0195 : F7 " " rlc a 0196 : E9 95 " " djnz r1,L0195 0198 : 37 "7" cpl a 0199 : 50 "P" anl a,@r0 019A : A0 " " mov @r0,a 019B : 24 82 "$ " jmp L0182 ; 019D L019D: 019D : FA " " mov a,r2 019E : D3 10 " " xrl a,#010H 01A0 : 96 A5 " " jnz L01A5 01A2 : 44 00 "D " jmp L0200 ; 01A4 : 00 " " nop 01A5 L01A5: 01A5 : B8 30 " 0" mov r0,#030H 01A7 L01A7: 01A7 : FA " " mov a,r2 01A8 : 47 "G" swap a 01A9 : 53 F0 "S " anl a,#0F0H 01AB : 4B "K" orl a,r3 01AC : D0 " " xrl a,@r0 01AD : C6 B6 " " jz L01B6 01AF : 18 " " inc r0 01B0 : B9 27 " '" mov r1,#027H 01B2 : F1 " " mov a,@r1 01B3 : D8 " " xrl a,r0 01B4 : 96 A7 " " jnz L01A7 01B6 L01B6: 01B6 : F4 59 " Y" call L0759 01B8 : B9 28 " (" mov r1,#028H 01BA : F1 " " mov a,@r1 01BB : A8 " " mov r0,a 01BC : D3 30 " 0" xrl a,#030H 01BE : C6 C3 " " jz L01C3 01C0 : F8 " " mov a,r0 01C1 : 07 " " dec a 01C2 : A1 " " mov @r1,a 01C3 L01C3: 01C3 : B8 25 " %" mov r0,#025H 01C5 : F0 " " mov a,@r0 01C6 : 37 "7" cpl a 01C7 : 12 D8 " " jb0 L01D8 01C9 : FA " " mov a,r2 01CA : 47 "G" swap a 01CB : 4B "K" orl a,r3 01CC : A8 " " mov r0,a 01CD : B9 2C " ," mov r1,#02CH 01CF : F1 " " mov a,@r1 01D0 : D8 " " xrl a,r0 01D1 : C6 82 " " jz L0182 01D3 : 19 " " inc r1 01D4 : F1 " " mov a,@r1 01D5 : D8 " " xrl a,r0 01D6 : C6 82 " " jz L0182 01D8 L01D8: 01D8 : FA " " mov a,r2 01D9 : 47 "G" swap a 01DA : 77 "w" rr a 01DB : 43 80 "C " orl a,#080H 01DD : A9 " " mov r1,a 01DE : FB " " mov a,r3 01DF : 07 " " dec a 01E0 : 49 "I" orl a,r1 01E1 : 24 E7 "$ " jmp L01E7 ; 01E3 L01E3: 01E3 : FB " " mov a,r3 01E4 : 07 " " dec a 01E5 : 43 78 "Cx" orl a,#078H 01E7 L01E7: 01E7 : E3 " " movp3 a,@a 01E8 : 17 " " inc a 01E9 : C6 82 " " jz L0182 01EB : 07 " " dec a 01EC : 44 4A "DJ" jmp L024A ; 01EE : 00 " " nop 01EF : 00 " " nop 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 : 37 "7" cpl a 0204 : 12 08 " " jb0 L0208 0206 : 24 E3 "$ " jmp L01E3 ; 0208 L0208: 0208 : FB " " mov a,r3 0209 : 07 " " dec a 020A : 43 70 "Cp" orl a,#070H 020C : E3 " " movp3 a,@a 020D : 17 " " inc a 020E : C6 52 " R" jz L0252 0210 : 07 " " dec a 0211 : A8 " " mov r0,a 0212 : D3 3A " :" xrl a,#03AH 0214 : 96 21 " !" jnz L0221 0216 : 26 52 "&R" jnt0 L0252 0218 : 0A " " in a,p2 0219 : 32 1D "2 " jb1 L021D 021B : 24 82 "$ " jmp L0182 ; 021D L021D: 021D : 23 BA "# " mov a,#0BAH 021F : 44 32 "D2" jmp L0232 ; 0221 L0221: 0221 : F8 " " mov a,r0 0222 : D3 38 " 8" xrl a,#038H 0224 : C6 28 " (" jz L0228 0226 : 44 3A "D:" jmp L023A ; 0228 L0228: 0228 : B9 7F " " mov r1,#07FH 022A : F1 " " mov a,@r1 022B : 37 "7" cpl a 022C : D2 52 " R" jb6 L0252 022E : 52 52 "RR" jb2 L0252 0230 : 23 B8 "# " mov a,#0B8H 0232 L0232: 0232 : F4 73 " s" call L0773 0234 : 96 49 " I" jnz L0249 0236 : 24 8C "$ " jmp L018C 0238 : 44 49 "DI" jmp L0249 ; 023A L023A: 023A : F8 " " mov a,r0 023B : D3 36 " 6" xrl a,#036H 023D : 96 49 " I" jnz L0249 023F : 0A " " in a,p2 0240 : 37 "7" cpl a 0241 : F2 52 " R" jb7 L0252 0243 : 72 52 "rR" jb3 L0252 0245 : 23 B6 "# " mov a,#0B6H 0247 : 44 32 "D2" jmp L0232 ; 0249 L0249: 0249 : F8 " " mov a,r0 024A L024A: 024A : 43 80 "C " orl a,#080H 024C : F4 73 " s" call L0773 024E : 96 52 " R" jnz L0252 0250 : 24 8C "$ " jmp L018C 0252 L0252: 0252 : 24 82 "$ " jmp L0182 ; 0254 L0254: 0254 : B8 25 " %" mov r0,#025H 0256 : F0 " " mov a,@r0 0257 : 37 "7" cpl a 0258 : 12 5C " \" jb0 L025C 025A : 64 18 "d " jmp L0318 ; 025C L025C: 025C : B9 28 " (" mov r1,#028H 025E : F1 " " mov a,@r1 025F : A8 " " mov r0,a 0260 : B9 27 " '" mov r1,#027H 0262 : D1 " " xrl a,@r1 0263 : C6 C7 " " jz L02C7 0265 L0265: 0265 : F0 " " mov a,@r0 0266 : AC " " mov r4,a 0267 : F4 9F " " call L079F 0269 : FB " " mov a,r3 026A : AD " " mov r5,a 026B : F8 " " mov a,r0 026C : AE " " mov r6,a 026D : 14 AE " " call L00AE 026F : FC " " mov a,r4 0270 L0270: 0270 : 67 "g" rrc a 0271 : ED 70 " p" djnz r5,L0270 0273 : E6 7F " " jnc L027F 0275 : FE " " mov a,r6 0276 : A8 " " mov r0,a 0277 : F4 59 " Y" call L0759 0279 : F4 49 " I" call L0749 027B : FE " " mov a,r6 027C : A8 " " mov r0,a 027D : 44 82 "D " jmp L0282 ; 027F L027F: 027F : FE " " mov a,r6 0280 : A8 " " mov r0,a 0281 : 18 " " inc r0 0282 L0282: 0282 : B9 27 " '" mov r1,#027H 0284 : F1 " " mov a,@r1 0285 : D8 " " xrl a,r0 0286 : 96 65 " e" jnz L0265 0288 : B8 28 " (" mov r0,#028H 028A : F0 " " mov a,@r0 028B : D1 " " xrl a,@r1 028C : C6 C7 " " jz L02C7 028E L028E: 028E : B8 25 " %" mov r0,#025H 0290 : F0 " " mov a,@r0 0291 : 12 CB " " jb0 L02CB 0293 : F4 00 " " call L0700 0295 : 12 C9 " " jb0 L02C9 0297 : B9 28 " (" mov r1,#028H 0299 : F1 " " mov a,@r1 029A : 37 "7" cpl a 029B : 17 " " inc a 029C : B8 27 " '" mov r0,#027H 029E : 60 "`" add a,@r0 029F : F6 A7 " " jc L02A7 02A1 : F0 " " mov a,@r0 02A2 : A1 " " mov @r1,a 02A3 : 23 FF "# " mov a,#0FFH 02A5 : 44 B5 "D " jmp L02B5 ; 02A7 L02A7: 02A7 : F1 " " mov a,@r1 02A8 : A8 " " mov r0,a 02A9 : 11 " " inc @r1 02AA : F0 " " mov a,@r0 02AB : AC " " mov r4,a 02AC : F4 A0 " " call L07A0 02AE : 47 "G" swap a 02AF : 77 "w" rr a 02B0 : 43 80 "C " orl a,#080H 02B2 : CB " " dec r3 02B3 : 4B "K" orl a,r3 02B4 : E3 " " movp3 a,@a 02B5 L02B5: 02B5 : 17 " " inc a 02B6 : C6 BB " " jz L02BB 02B8 : 07 " " dec a 02B9 : F4 73 " s" call L0773 02BB L02BB: 02BB : B9 28 " (" mov r1,#028H 02BD : F1 " " mov a,@r1 02BE : B8 27 " '" mov r0,#027H 02C0 : D0 " " xrl a,@r0 02C1 : 96 8E " " jnz L028E 02C3 : B8 25 " %" mov r0,#025H 02C5 : B0 00 " " mov @r0,#000H 02C7 L02C7: 02C7 : 04 4B " K" jmp L004B 02C9 L02C9: 02C9 : 44 CD "D " jmp L02CD 02CB L02CB: 02CB : 64 18 "d " jmp L0318 ; 02CD L02CD: 02CD : B8 28 " (" mov r0,#028H 02CF : B9 25 " %" mov r1,#025H 02D1 : F1 " " mov a,@r1 02D2 : 37 "7" cpl a 02D3 : 32 D7 "2 " jb1 L02D7 02D5 : 10 " " inc @r0 02D6 : 10 " " inc @r0 02D7 L02D7: 02D7 : F0 " " mov a,@r0 02D8 : B9 26 " &" mov r1,#026H 02DA : A1 " " mov @r1,a 02DB : A8 " " mov r0,a 02DC : F0 " " mov a,@r0 02DD : B9 2C " ," mov r1,#02CH 02DF : A1 " " mov @r1,a 02E0 : 18 " " inc r0 02E1 : F0 " " mov a,@r0 02E2 : 19 " " inc r1 02E3 : A1 " " mov @r1,a 02E4 : B8 27 " '" mov r0,#027H 02E6 : F0 " " mov a,@r0 02E7 : B8 28 " (" mov r0,#028H 02E9 : A0 " " mov @r0,a 02EA : B8 25 " %" mov r0,#025H 02EC : F0 " " mov a,@r0 02ED : 43 02 "C " orl a,#002H 02EF : A0 " " mov @r0,a 02F0 : 04 4B " K" jmp L004B ; 02F2 : 10 " " inc @r0 02F3 : 44 D7 "D " jmp L02D7 ; 02F5 : 00 " " nop 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 BB "D " jmp L02BB ; 0314 L0314: 0314 : F1 " " mov a,@r1 0315 : A0 " " mov @r0,a 0316 : 44 BB "D " jmp L02BB ; 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 BB "D " jmp L02BB ; 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 4B " K" jmp L004B ; 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 : FF " " mov a,r7 03FE : 32 35 "25" jb1 L0335 0400 : 20 " " xch a,@r0 0401 : 55 "U" strt t 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 : F5 " " sel mb1 040B : 53 5B "S[" anl a,#05BH 040D : 39 "9" outl p1,a 040E : 9C " " anld p4,a 040F : DB " " xrl a,r3 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 00 " " jmp L0000 ; 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 4B " K" jmp L004B ; 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 4B " K" jmp L004B ; 0445 L0445: 0445 : B9 23 " #" mov r1,#023H 0447 L0447: 0447 : 56 4D "VM" jt1 L044D 0449 : E9 47 " G" djnz r1,L0447 044B : 04 4B " K" jmp L004B ; 044D L044D: 044D : 27 "'" clr a 044E : 62 "b" mov t,a 044F : FB " " mov a,r3 0450 : 53 0F "S " anl a,#00FH 0452 : B3 " " jmpp @a ;INFO: indirect jump 0453 : A4 12 " " jmp L0512 ; 0455 L0455: 0455 : FF " " mov a,r7 0456 : 53 F5 "S " anl a,#0F5H 0458 : AF " " mov r7,a 0459 : 04 23 " #" jmp L0023 ; 045B : FF " " mov a,r7 045C : 37 "7" cpl a 045D : 32 9A "2 " jb1 L049A 045F : 37 "7" cpl a 0460 : 53 FE "S " anl a,#0FEH 0462 : AF " " mov r7,a 0463 : BB FF " " mov r3,#0FFH 0465 : B8 2A " *" mov r0,#02AH 0467 : F0 " " mov a,@r0 0468 : A8 " " mov r0,a 0469 : F0 " " mov a,@r0 046A : AC " " mov r4,a 046B : D3 7F " " xrl a,#07FH 046D : 53 7F "S " anl a,#07FH 046F : 96 78 " x" jnz L0478 0471 : F0 " " mov a,@r0 0472 : 43 7F "C " orl a,#07FH 0474 : AC " " mov r4,a 0475 : AB " " mov r3,a 0476 : 84 8C " " jmp L048C ; 0478 L0478: 0478 : 18 " " inc r0 0479 : B9 29 " )" mov r1,#029H 047B : F1 " " mov a,@r1 047C : D8 " " xrl a,r0 047D : C6 8C " " jz L048C 047F : F0 " " mov a,@r0 0480 : D3 7F " " xrl a,#07FH 0482 : 53 7F "S " anl a,#07FH 0484 : C6 8C " " jz L048C 0486 : F0 " " mov a,@r0 0487 : AB " " mov r3,a 0488 : FF " " mov a,r7 0489 : 43 01 "C " orl a,#001H 048B : AF " " mov r7,a 048C L048C: 048C : B9 06 " " mov r1,#006H 048E : B4 5C " \" call L055C 0490 : B8 2A " *" mov r0,#02AH 0492 : FF " " mov a,r7 0493 : 37 "7" cpl a 0494 : 12 97 " " jb0 L0497 0496 : 10 " " inc @r0 0497 L0497: 0497 : 10 " " inc @r0 0498 : F4 87 " " call L0787 049A L049A: 049A : 04 4B " K" jmp L004B ; 049C : 99 F0 " " anl p1,#0F0H 049E : 89 01 " " orl p1,#001H 04A0 : 08 " " ins a,bus 04A1 : 53 80 "S " anl a,#080H 04A3 : AB " " mov r3,a 04A4 : 99 F0 " " anl p1,#0F0H 04A6 : 89 03 " " orl p1,#003H 04A8 : 08 " " ins a,bus 04A9 : 77 "w" rr a 04AA : 53 40 "S@" anl a,#040H 04AC : 4B "K" orl a,r3 04AD : AB " " mov r3,a 04AE : 09 " " in a,p1 04AF : 37 "7" cpl a 04B0 : 53 70 "Sp" anl a,#070H 04B2 : 47 "G" swap a 04B3 : 4B "K" orl a,r3 04B4 : 43 38 "C8" orl a,#038H 04B6 : AB " " mov r3,a 04B7 : 0A " " in a,p2 04B8 : F2 BC " " jb7 L04BC 04BA : 53 F7 "S " anl a,#0F7H 04BC L04BC: 04BC : 43 80 "C " orl a,#080H 04BE : D2 C2 " " jb6 L04C2 04C0 : 53 BB "S " anl a,#0BBH 04C2 L04C2: 04C2 : 36 C6 "6 " jt0 L04C6 04C4 : 53 BD "S " anl a,#0BDH 04C6 L04C6: 04C6 : 53 BF "S " anl a,#0BFH 04C8 : AC " " mov r4,a 04C9 : 99 F0 " " anl p1,#0F0H 04CB : 89 05 " " orl p1,#005H 04CD : 08 " " ins a,bus 04CE : 37 "7" cpl a 04CF : D2 D5 " " jb6 L04D5 04D1 : FC " " mov a,r4 04D2 : 43 40 "C@" orl a,#040H 04D4 : AC " " mov r4,a 04D5 L04D5: 04D5 : B9 02 " " mov r1,#002H 04D7 : B4 5C " \" call L055C 04D9 : 04 4B " K" jmp L004B ; 04DB : FE " " mov a,r6 04DC : 53 F0 "S " anl a,#0F0H 04DE : AC " " mov r4,a 04DF : C5 " " sel rb0 04E0 : FF " " mov a,r7 04E1 : D5 " " sel rb1 04E2 : 53 0F "S " anl a,#00FH 04E4 : 4C "L" orl a,r4 04E5 : AC " " mov r4,a 04E6 : 0A " " in a,p2 04E7 : 53 10 "S " anl a,#010H 04E9 : E7 " " rl a 04EA : E7 " " rl a 04EB : 4C "L" orl a,r4 04EC : AC " " mov r4,a 04ED : FD " " mov a,r5 04EE : AB " " mov r3,a 04EF : B9 08 " " mov r1,#008H 04F1 : B4 5C " \" call L055C 04F3 : 04 4B " K" jmp L004B ; 04F5 : 27 "'" clr a 04F6 : AB " " mov r3,a 04F7 : B9 1A " " mov r1,#01AH 04F9 L04F9: 04F9 : 46 FF "F " jnt1 L04FF 04FB : E9 F9 " " djnz r1,L04F9 04FD : 04 4B " K" jmp L004B ; 04FF L04FF: 04FF : B9 09 " " mov r1,#009H 0501 : B8 02 " " mov r0,#002H 0503 : D4 00 " " call L0600 0505 : FB " " mov a,r3 0506 : 47 "G" swap a 0507 : 37 "7" cpl a 0508 : 53 70 "Sp" anl a,#070H 050A : AA " " mov r2,a 050B : 09 " " in a,p1 050C : 53 8F "S " anl a,#08FH 050E : 4A "J" orl a,r2 050F : 39 "9" outl p1,a 0510 : 04 4B " K" jmp L004B ; 0512 L0512: 0512 : 27 "'" clr a 0513 : AC " " mov r4,a 0514 : AB " " mov r3,a 0515 : B9 1A " " mov r1,#01AH 0517 L0517: 0517 : 46 1E "F " jnt1 L051E 0519 : E9 17 " " djnz r1,L0517 051B : 04 4B " K" jmp L004B ; 051D : 00 " " nop 051E L051E: 051E : B9 09 " " mov r1,#009H 0520 : B8 02 " " mov r0,#002H 0522 : D4 00 " " call L0600 0524 : AC " " mov r4,a 0525 : FB " " mov a,r3 0526 : 96 2E " ." jnz L052E 0528 : FC " " mov a,r4 0529 : 53 2F "S/" anl a,#02FH 052B : AE " " mov r6,a 052C L052C: 052C : 04 4B " K" jmp L004B ; 052E L052E: 052E : D3 FF " " xrl a,#0FFH 0530 : 96 34 " 4" jnz L0534 0532 : 84 55 " U" jmp L0455 ; 0534 L0534: 0534 : D3 02 " " xrl a,#002H 0536 : 96 45 " E" jnz L0545 0538 : 0A " " in a,p2 0539 : 12 2C " ," jb0 L052C 053B L053B: 053B : FC " " mov a,r4 053C : 53 0F "S " anl a,#00FH 053E : 2E "." xch a,r6 053F : 53 20 "S " anl a,#020H 0541 : 4E "N" orl a,r6 0542 : AE " " mov r6,a 0543 : 04 4B " K" jmp L004B ; 0545 L0545: 0545 : D3 03 " " xrl a,#003H 0547 : 96 4E " N" jnz L054E 0549 : FF " " mov a,r7 054A : 52 2C "R," jb2 L052C 054C : A4 3B " ;" jmp L053B ; 054E L054E: 054E : FB " " mov a,r3 054F : D3 03 " " xrl a,#003H 0551 : C6 58 " X" jz L0558 0553 : FB " " mov a,r3 0554 : D3 02 " " xrl a,#002H 0556 : 96 2C " ," jnz L052C 0558 L0558: 0558 : FB " " mov a,r3 0559 : AD " " mov r5,a 055A : 04 4B " K" jmp L004B ; 055C L055C: 055C : FF " " mov a,r7 055D : 43 04 "C " orl a,#004H 055F : AF " " mov r7,a 0560 : B8 08 " " mov r0,#008H 0562 L0562: 0562 : E9 62 " b" djnz r1,L0562 0564 : 42 "B" mov a,t 0565 : 96 CC " " jnz L05CC 0567 : 89 80 " " orl p1,#080H 0569 : 27 "'" clr a 056A : 62 "b" mov t,a 056B : B4 D2 " " call L05D2 056D : 99 7F " " anl p1,#07FH 056F : 00 " " nop 0570 : 46 CC "F " jnt1 L05CC 0572 : B4 D1 " " call L05D1 0574 L0574: 0574 : 46 CC "F " jnt1 L05CC 0576 : B4 D7 " " call L05D7 0578 : 42 "B" mov a,t 0579 : 96 CC " " jnz L05CC 057B : 89 80 " " orl p1,#080H 057D : 27 "'" clr a 057E : 62 "b" mov t,a 057F : B4 D7 " " call L05D7 0581 : FC " " mov a,r4 0582 : E7 " " rl a 0583 : AC " " mov r4,a 0584 : 12 BA " " jb0 L05BA 0586 : B4 D0 " " call L05D0 0588 : 99 7F " " anl p1,#07FH 058A L058A: 058A : E8 74 " t" djnz r0,L0574 058C : 46 CC "F " jnt1 L05CC 058E : B8 08 " " mov r0,#008H 0590 : A4 96 " " jmp L0596 ; 0592 L0592: 0592 : 46 CC "F " jnt1 L05CC 0594 : B4 D8 " " call L05D8 0596 L0596: 0596 : 00 " " nop 0597 : 42 "B" mov a,t 0598 : 96 CC " " jnz L05CC 059A : 89 80 " " orl p1,#080H 059C : 27 "'" clr a 059D : 62 "b" mov t,a 059E : B4 D7 " " call L05D7 05A0 : FB " " mov a,r3 05A1 : E7 " " rl a 05A2 : AB " " mov r3,a 05A3 : 12 C3 " " jb0 L05C3 05A5 : B4 D0 " " call L05D0 05A7 : 99 7F " " anl p1,#07FH 05A9 L05A9: 05A9 : E8 92 " " djnz r0,L0592 05AB : B4 D2 " " call L05D2 05AD : 89 80 " " orl p1,#080H 05AF : B4 D0 " " call L05D0 05B1 : B4 D0 " " call L05D0 05B3 : 99 7F " " anl p1,#07FH 05B5 : FF " " mov a,r7 05B6 : 53 FB "S " anl a,#0FBH 05B8 : AF " " mov r7,a 05B9 : 83 " " ret ; 05BA L05BA: 05BA : 99 7F " " anl p1,#07FH 05BC : 00 " " nop 05BD : 46 CC "F " jnt1 L05CC 05BF : B4 D5 " " call L05D5 05C1 : A4 8A " " jmp L058A ; 05C3 L05C3: 05C3 : 99 7F " " anl p1,#07FH 05C5 : 00 " " nop 05C6 : 46 CC "F " jnt1 L05CC 05C8 : B4 D5 " " call L05D5 05CA : A4 A9 " " jmp L05A9 ; 05CC L05CC: 05CC : 27 "'" clr a 05CD : D7 " " mov psw,a 05CE : 04 4B " K" jmp L004B ; 05D0 L05D0: 05D0 : 00 " " nop 05D1 L05D1: 05D1 : 00 " " nop 05D2 L05D2: 05D2 : 00 " " nop 05D3 : 00 " " nop 05D4 : 00 " " nop 05D5 L05D5: 05D5 : 00 " " nop 05D6 : 00 " " nop 05D7 L05D7: 05D7 : 00 " " nop 05D8 L05D8: 05D8 : 83 " " ret ; 05D9 : 00 " " nop 05DA : 00 " " nop 05DB : 00 " " nop 05DC : 00 " " nop 05DD : 00 " " nop 05DE : 00 " " nop 05DF : 00 " " nop 05E0 : 00 " " nop 05E1 : 00 " " nop 05E2 : 00 " " nop 05E3 : 00 " " nop 05E4 : 00 " " nop 05E5 : 00 " " nop 05E6 : 00 " " nop 05E7 : 00 " " nop 05E8 : 00 " " nop 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 CC " " jmp L05CC ; 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 : 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 : F0 " " mov a,@r0 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 : 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 : 00 " " nop 07AA : 00 " " nop 07AB : 00 " " nop 07AC : 00 " " nop 07AD : 00 " " nop 07AE : 00 " " nop 07AF : 00 " " nop 07B0 : 00 " " nop 07B1 : 00 " " nop 07B2 : 00 " " nop 07B3 : 00 " " nop 07B4 : 00 " " nop 07B5 : 00 " " nop 07B6 : 00 " " nop 07B7 : 00 " " nop 07B8 : 00 " " nop 07B9 : 00 " " nop 07BA : 00 " " nop 07BB : 00 " " nop 07BC : 00 " " nop 07BD : 00 " " nop 07BE : 00 " " nop 07BF : 00 " " nop 07C0 : 00 " " nop 07C1 : 00 " " nop 07C2 : 00 " " nop 07C3 : 00 " " nop 07C4 : 00 " " nop 07C5 : 00 " " nop 07C6 : 00 " " nop 07C7 : 00 " " nop 07C8 : 00 " " nop 07C9 : 00 " " nop 07CA : 00 " " nop 07CB : 00 " " nop 07CC : 00 " " nop 07CD : 00 " " nop 07CE : 00 " " nop 07CF : 00 " " nop 07D0 : 00 " " nop 07D1 : 00 " " nop 07D2 : 00 " " nop 07D3 : 00 " " nop 07D4 : 00 " " nop 07D5 : 00 " " nop 07D6 : 00 " " nop 07D7 : 00 " " nop 07D8 : 00 " " nop 07D9 : 00 " " nop 07DA : 00 " " nop 07DB : 00 " " nop 07DC : 00 " " nop 07DD : 00 " " nop 07DE : 00 " " nop 07DF : 00 " " nop 07E0 : 00 " " nop 07E1 : 00 " " nop 07E2 : 00 " " nop 07E3 : 00 " " nop 07E4 : 00 " " nop 07E5 : 00 " " nop 07E6 : 00 " " nop 07E7 : 00 " " nop 07E8 : 00 " " nop 07E9 : 00 " " nop 07EA : 00 " " nop 07EB : 00 " " nop 07EC : 00 " " nop 07ED : 00 " " nop 07EE : 00 " " nop 07EF : 00 " " nop 07F0 : 00 " " nop 07F1 : 00 " " nop 07F2 : 00 " " nop 07F3 : 00 " " nop 07F4 : 00 " " nop 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 0023 Code L0023 003A Code L003A 0047 Code L0047 004B Code L004B 0058 Code L0058 0059 Code L0059 005A Code L005A 0063 Code L0063 0066 Code L0066 006D Code L006D 0075 Code L0075 0088 Code L0088 008C Code L008C 009C Code L009C 009E Code L009E 00A1 Code L00A1 00A6 Code L00A6 00AE Code L00AE 00B6 Code L00B6 00BA Code L00BA 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 0145 Code L0145 0148 Code L0148 0156 Code L0156 0162 Code L0162 016B Code L016B 016F Code L016F 0172 Code L0172 0180 Code L0180 0182 Code L0182 0185 Code L0185 018C Code L018C 0195 Code L0195 019D Code L019D 01A5 Code L01A5 01A7 Code L01A7 01B6 Code L01B6 01C3 Code L01C3 01D8 Code L01D8 01E3 Code L01E3 01E7 Code L01E7 0200 Code L0200 0208 Code L0208 021D Code L021D 0221 Code L0221 0228 Code L0228 0232 Code L0232 023A Code L023A 0249 Code L0249 024A Code L024A 0252 Code L0252 0254 Code L0254 025C Code L025C 0265 Code L0265 0270 Code L0270 027F Code L027F 0282 Code L0282 028E Code L028E 02A7 Code L02A7 02B5 Code L02B5 02BB Code L02BB 02C7 Code L02C7 02C9 Code L02C9 02CB Code L02CB 02CD Code L02CD 02D7 Code L02D7 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 0447 Code L0447 044D Code L044D 0455 Code L0455 0478 Code L0478 048C Code L048C 0497 Code L0497 049A Code L049A 04BC Code L04BC 04C2 Code L04C2 04C6 Code L04C6 04D5 Code L04D5 04F9 Code L04F9 04FF Code L04FF 0512 Code L0512 0517 Code L0517 051E Code L051E 052C Code L052C 052E Code L052E 0534 Code L0534 053B Code L053B 0545 Code L0545 054E Code L054E 0558 Code L0558 055C Code L055C 0562 Code L0562 0574 Code L0574 058A Code L058A 0592 Code L0592 0596 Code L0596 05A9 Code L05A9 05BA Code L05BA 05C3 Code L05C3 05CC Code L05CC 05D0 Code L05D0 05D1 Code L05D1 05D2 Code L05D2 05D5 Code L05D5 05D7 Code L05D7 05D8 Code L05D8 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 0736 Code L0736 073B Code L073B 0742 Code L0742 0749 Code L0749 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: 189 ;--------------------------------------------------------------