14448 ED731E41 LD (16670),SP 14452 311E41 LD SP,16670 14455 F5 PUSH AF 14456 C5 PUSH BC 14457 D5 PUSH DE 14458 E5 PUSH HL 14459 DDE5 PUSH IX 14461 FDE5 PUSH IY 14463 D9 EXX 14464 08 EX AF,AF' 14465 F5 PUSH AF 14466 C5 PUSH BC 14467 D5 PUSH DE 14468 E5 PUSH HL 14469 21CE3A LD HL,15054 14472 110040 LD DE,16384 14475 012000 LD BC,32 14478 EDB0 LDIR 14480 110041 LD DE,16640 14483 010400 LD BC,4 14486 EDB0 LDIR 14488 ED730140 LD (16385),SP 14492 ED5F LD A,R 14494 320840 LD (16392),A 14497 ED57 LD A,I 14499 320440 LD (16388),A 14502 EAAD38 JP PE,14509 14505 16F3 LD D,243 14507 1802 JR 14511 14509 16FB LD D,251 14511 FE3F CP 63 14513 2008 JR NZ,14523 14515 1E56 LD E,86 14517 ED530141 LD (16641),DE 14521 1804 JR 14527 14523 1E5E LD E,94 14525 18F6 JR 14517 14527 11E060 LD DE,24800 14530 210064 LD HL,25600 14533 7E LD A,(HL) 14534 FE00 CP 0 14536 2006 JR NZ,14544 14538 23 INC HL 14539 1B DEC DE 14540 7A LD A,D 14541 B3 OR E 14542 20F5 JR NZ,14533 14544 220042 LD (16896),HL 14547 11FFF9 LD DE,63999 14550 EB EX HL,DE 14551 ED52 SBC HL,DE 14553 11FFF9 LD DE,63999 14556 EB EX HL,DE 14557 7E LD A,(HL) 14558 FE00 CP 0 14560 2006 JR NZ,14568 14562 2B DEC HL 14563 1B DEC DE 14564 7A LD A,D 14565 B3 OR E 14566 20F5 JR NZ,14557 14568 ED5B0042 LD DE,(16896) 14572 ED52 SBC HL,DE 14574 23 INC HL 14575 220441 LD (16644),HL 14578 F3 DI 14579 312042 LD SP,16928 14582 3E02 LD A,2 14584 D3FE OUT (254),A 14586 0600 LD B,0 14588 10FE DJNZ 14588 14590 10FE DJNZ 14590 14592 0646 LD B,70 14594 10FE DJNZ 14594 14596 3E06 LD A,6 14598 D3FE OUT (254),A 14600 10FE DJNZ 14600 14602 10FE DJNZ 14602 14604 10FE DJNZ 14604 14606 3EF7 LD A,247 14608 DBFE IN A,(254) 14610 0E00 LD C,0 14612 CB47 BIT 0,A 14614 2837 JR Z,14671 14616 0E04 LD C,4 14618 CB4F BIT 1,A 14620 2831 JR Z,14671 14622 0E08 LD C,8 14624 CB57 BIT 2,A 14626 282B JR Z,14671 14628 0E0C LD C,12 14630 CB5F BIT 3,A 14632 2825 JR Z,14671 14634 CB67 BIT 4,A 14636 CA0040 JP Z,16384 14639 3EEF LD A,239 14641 DBFE IN A,(254) 14643 CB47 BIT 0,A 14645 CA0000 JP Z,0,START 14648 CB4F BIT 1,A 14650 20BA JR NZ,14582 14652 214239 LD HL,14658 14655 E5 PUSH HL 14656 ED45 RETN 14658 FD213A5C LD IY,ERRNR 14662 FD363102 LD (DFSZ),2 14666 FB EI 14667 ED56 IM 1 14669 CF RST 8,ERROR_1 14670 FF DEFB 255 ;0 OK 14671 0600 LD B,0 14673 C5 PUSH BC 14674 FD21913B LD IY,15249 14678 DD21F23A LD IX,15090 14682 111100 LD DE,17 14685 AF XOR A 14686 CD143B CALL 15124 14689 D1 POP DE 14690 D5 PUSH DE 14691 7B LD A,E 14692 83 ADD A,E 14693 83 ADD A,E 14694 CB27 SLA A 14696 5F LD E,A 14697 DD21A13B LD IX,15265 14701 DD19 ADD IX,DE 14703 111400 LD DE,20 14706 3EFF LD A,255 14708 CD143B CALL 15124 14711 DD21033B LD IX,15107 14715 111100 LD DE,17 14718 AF XOR A 14719 CD143B CALL 15124 14722 DD21FD3B LD IX,15357 14726 110301 LD DE,259 14729 3EFF LD A,255 14731 CD143B CALL 15124 14734 C1 POP BC 14735 FD09 ADD IY,BC 14737 DD210040 LD IX,16384 14741 110024 LD DE,9216 14744 3EFF LD A,255 14746 CD143B CALL 15124 14749 DD2A0042 LD IX,(16896) 14753 ED5B0441 LD DE,(16644) 14757 3EFF LD A,255 14759 CD143B CALL 15124 14762 FD21913B LD IY,15249 14766 DD2100FA LD IX,64000 14770 110006 LD DE,1536 14773 3EFF LD A,255 14775 CD143B CALL 15124 14778 C3F238 JP 14578 ...................................... ...................................... ...................................... 15054 310000 LD SP,0 15057 3E00 LD A,0 15059 ED47 LD I,A 15061 3E00 LD A,0 15063 ED4F LD R,A 15065 E1 POP HL 15066 D1 POP DE 15067 C1 POP BC 15068 F1 POP AF 15069 D9 EXX 15070 08 EX AF,AF' 15071 FDE1 POP IY 15073 DDE1 POP IX 15075 E1 POP HL 15076 D1 POP DE 15077 C1 POP BC 15078 F1 POP AF 15079 ED7B1E41 LD SP,(16670) 15083 C30041 JP 16640 15086 ED56 IM 1 15088 FB EI 15089 C9 RET 15090 00 NOP 15091 08 EX AF,AF' 15092 08 EX AF,AF' 15093 61 LD H,C 15094 3A2042 LD A,(16928) 15097 61 LD H,C 15098 73 LD (HL),E 15099 69 LD L,C 15100 63 LD H,E 15101 14 INC D 15102 00 NOP 15103 00 NOP 15104 00 NOP 15105 14 INC D 15106 00 NOP 15107 03 INC BC 15108 43 LD B,E 15109 41 LD B,C 15110 52 LD D,D 15111 47 LD B,A 15112 41 LD B,C 15113 44 LD B,H 15114 4F LD C,A 15115 52 LD D,D 15116 2020 JR NZ,15150 15118 03 INC BC 15119 0100FA LD BC,64000 15122 00 NOP 15123 00 NOP 15124 21A41F LD HL,8100 15127 CB7F BIT 7,A 15129 2803 JR Z,15134 15131 21AC0D LD HL,3500 15134 08 EX AF,AF' 15135 13 INC DE 15136 DD2B DEC IX 15138 F3 DI 15139 3E02 LD A,2 15141 47 LD B,A 15142 10FE DJNZ 15142 15144 D3FE OUT (254),A 15146 EE0F XOR 15 15148 06A4 LD B,164 15150 2D DEC L 15151 20F5 JR NZ,15142 15153 05 DEC B 15154 25 DEC H 15155 F2263B JP P,15142 15158 062F LD B,47 15160 10FE DJNZ 15160 15162 D3FE OUT (254),A 15164 3E0D LD A,13 15166 0637 LD B,55 15168 10FE DJNZ 15168 15170 D3FE OUT (254),A 15172 0E0E LD C,14 15174 FD4600 LD B,(ERRNR) 15177 08 EX AF,AF' 15178 6F LD L,A 15179 1809 JR 15190 15181 7A LD A,D 15182 B3 OR E 15183 280B JR Z,15196 15185 DD6E00 LD L,(IX+0) 15188 7C LD A,H 15189 AD XOR L 15190 67 LD H,A 15191 3E01 LD A,1 15193 37 SCF 15194 1819 JR 15221 15196 6C LD L,H 15197 18F5 JR 15188 15199 79 LD A,C 15200 CB78 BIT 7,B 15202 10FE DJNZ 15202 15204 3005 JR NC,15211 15206 FD4601 LD B,(FLAGS) 15209 10FE DJNZ 15209 15211 D3FE OUT (254),A 15213 FD4602 LD B,(TVFLAG) 15216 20ED JR NZ,15199 15218 05 DEC B 15219 AF XOR A 15220 3C INC A 15221 CB15 RL L 15223 20E9 JR NZ,15202 15225 1B DEC DE 15226 DD23 INC IX 15228 FD4603 LD B,(ERRSP) 15231 7A LD A,D 15232 3C INC A 15233 20CA JR NZ,15181 15235 010000 LD BC,0 15238 0B DEC BC 15239 78 LD A,B 15240 B1 OR C 15241 20FB JR NZ,15238 15243 0B DEC BC 15244 78 LD A,B 15245 B1 OR C 15246 20FB JR NZ,15243 15248 C9 RET 15249 3B DEC SP 15250 42 LD B,D 15251 3E31 LD A,49 15253 2C INC L 15254 322E25 LD (9518),A 15257 23 INC HL 15258 2824 JR Z,15296 15260 1D DEC E 15261 1E22 LD E,34 15263 1E19 LD E,25 15265 00 NOP 15266 00 NOP 15267 1000 DJNZ 15269 15269 EF RST 40,FP_CALC 15270 22 DEFB 34 ;asn 15271 22 DEFB 34 ;asn 15272 AF DEFB 175 15273 3A DEFB 58 ;truncate 15274 F9 DEFB 249 15275 C0 DEFB 192 ;st_mem_0 15276 B0 DEFB 176 15277 22 DEFB 34 ;asn 15278 36 DEFB 54 ;less_0 15279 34 DEFB 52 ;stk_data 15280 3030 DEFB 48 ,48 ;[0.6875] 15282 30 DEFB 48 ;not 15283 22 DEFB 34 ;asn 15284 0D DEFB 13 ;no_less 15285 00 DEFB 0 ;jump_true 15286 00 DEFB 0 ;TO 15286 15287 00 DEFB 0 ;jump_true 15288 00 DEFB 0 ;TO 15288 15289 00 DEFB 0 ;jump_true 15290 00 DEFB 0 ;TO 15290 15291 10 DEFB 16 ;str_&_no 15292 00 DEFB 0 ;jump_true 15293 EF DEFB 239 ;TO 15276 15294 22 DEFB 34 ;asn 15295 22 DEFB 34 ;asn 15296 AF DEFB 175 15297 3A DEFB 58 ;truncate 15298 F9 DEFB 249 15299 C0 DEFB 192 ;st_mem_0 15300 B0 DEFB 176 15301 22 DEFB 34 ;asn 15302 36 DEFB 54 ;less_0 15303 34 DEFB 52 ;stk_data 15304 3030 DEFB 48 ,48 ;[0.6875] 15306 36 DEFB 54 ;less_0 15307 22 DEFB 34 ;asn 15308 0D DEFB 13 ;no_less 15309 00 DEFB 0 ;jump_true 15310 00 DEFB 0 ;TO 15310 15311 00 DEFB 0 ;jump_true 15312 00 DEFB 0 ;TO 15312 15313 00 DEFB 0 ;jump_true 15314 00 DEFB 0 ;TO 15314 15315 10 DEFB 16 ;str_&_no 15316 00 DEFB 0 ;jump_true 15317 EF DEFB 239 ;TO 15300 15318 22 DEFB 34 ;asn 15319 22 DEFB 34 ;asn 15320 AF DEFB 175 15321 3A DEFB 58 ;truncate 15322 F9 DEFB 249 15323 C0 DEFB 192 ;st_mem_0 15324 B0 DEFB 176 15325 22 DEFB 34 ;asn 15326 36 DEFB 54 ;less_0 15327 34 DEFB 52 ;stk_data 15328 3031 DEFB 48 ,49 ;[0.6914062] 15330 32 DEFB 50 ;n_mod_m 15331 22 DEFB 34 ;asn 15332 0D DEFB 13 ;no_less 15333 00 DEFB 0 ;jump_true 15334 00 DEFB 0 ;TO 15334 15335 00 DEFB 0 ;jump_true 15336 00 DEFB 0 ;TO 15336 15337 00 DEFB 0 ;jump_true 15338 00 DEFB 0 ;TO 15338 15339 10 DEFB 16 ;str_&_no 15340 00 DEFB 0 ;jump_true 15341 EF DEFB 239 ;TO 15324 15342 22 DEFB 34 ;asn 15343 22 DEFB 34 ;asn 15344 AF DEFB 175 15345 3A DEFB 58 ;truncate 15346 F9 DEFB 249 15347 C0 DEFB 192 ;st_mem_0 15348 B0 DEFB 176 15349 22 DEFB 34 ;asn 15350 36 DEFB 54 ;less_0 15351 34 DEFB 52 ;stk_data 15352 3031 DEFB 48 ,49 ;[0.6914062] 15354 38 DEFB 56 ;end_calc 15355 220DFD LD (64781),HL 15358 21EFFA LD HL,64239 15361 1810 JR 15379 15363 FD21F4FA LD IY,64244 15367 180A JR 15379 15369 FD21F9FA LD IY,64249 15373 1804 JR 15379 15375 FD21FEFA LD IY,64254 15379 31FFFF LD SP,65535 15382 3EFF LD A,255 15384 37 SCF 15385 DD210040 LD IX,16384 15389 110024 LD DE,9216 15392 CD48FA CALL 64072 15395 3EFF LD A,255 15397 37 SCF 15398 DD2A0042 LD IX,(16896) 15402 ED5B0441 LD DE,(16644) 15406 CD48FA CALL 64072 15409 312042 LD SP,16928 15412 3EFF LD A,255 15414 37 SCF 15415 DD2100FA LD IX,64000 15419 110006 LD DE,1536 15422 210040 LD HL,16384 15425 E5 PUSH HL 15426 C35605 JP 1366,LD_BYTES 15429 14 INC D 15430 08 EX AF,AF' 15431 15 DEC D 15432 F3 DI 15433 AF XOR A 15434 D3FE OUT (254),A 15436 DBFE IN A,(254) 15438 1F RRA 15439 E620 AND 32 15441 F602 OR 2 15443 4F LD C,A 15444 BF CP A 15445 C0 RET NZ 15446 CDD0FA CALL 64208 15449 30FA JR NC,15445 15451 211504 LD HL,1045 15454 10FE DJNZ 15454 15456 2B DEC HL 15457 7C LD A,H 15458 B5 OR L 15459 20F9 JR NZ,15454 15461 CDCCFA CALL 64204 15464 30EB JR NC,15445 15466 069C LD B,156 15468 CDCCFA CALL 64204 15471 30E4 JR NC,15445 15473 3EC6 LD A,198 15475 B8 CP B 15476 30E0 JR NC,15446 15478 24 INC H 15479 20F1 JR NZ,15466 15481 06C9 LD B,201 15483 CDD0FA CALL 64208 15486 30D5 JR NC,15445 15488 78 LD A,B 15489 FED4 CP 212 15491 30F4 JR NC,15481 15493 CDD0FA CALL 64208 15496 D0 RET NC 15497 79 LD A,C 15498 EE03 XOR 3 15500 4F LD C,A 15501 2600 LD H,0 15503 FD4600 LD B,(ERRNR) 15506 1819 JR 15533 15508 08 EX AF,AF' 15509 2005 JR NZ,15516 15511 DD7500 LD (IX+0),L 15514 180A JR 15526 15516 CB11 RL C 15518 AD XOR L 15519 C0 RET NZ 15520 79 LD A,C 15521 1F RRA 15522 4F LD C,A 15523 13 INC DE 15524 1802 JR 15528 15526 DD23 INC IX 15528 1B DEC DE 15529 08 EX AF,AF' 15530 FD4601 LD B,(FLAGS) 15533 2E01 LD L,1 15535 CDCCFA CALL 64204 15538 D0 RET NC 15539 FD7E02 LD A,(TVFLAG) 15542 B8 CP B 15543 CB15 RL L 15545 FD4603 LD B,(ERRSP) 15548 30F1 JR NC,15535 15550 7C LD A,H 15551 AD XOR L 15552 67 LD H,A 15553 7A LD A,D 15554 B3 OR E 15555 20CF JR NZ,15508 15557 7C LD A,H 15558 FE01 CP 1 15560 C9 RET 15561 CDD0FA CALL 64208 15564 D0 RET NC 15565 FD7E04 LD A,(ERRSP+1) 15568 3D DEC A 15569 20FD JR NZ,15568 15571 A7 AND A 15572 04 INC B 15573 C8 RET Z 15574 3EF7 LD A,247 15576 DBFE IN A,(254) 15578 1F RRA 15579 D0 RET NC 15580 A9 XOR C 15581 E620 AND 32 15583 28F3 JR Z,15572 15585 79 LD A,C 15586 2F CPL 15587 4F LD C,A 15588 E607 AND 7 15590 F608 OR 8 15592 D3FE OUT (254),A 15594 37 SCF 15595 C9 RET 15596 B0 OR B 15597 B2 OR D 15598 CBB0 RES 6,B 15600 16C4 LD D,196 15602 C6D8 ADD A,216 15604 C411D0 CALL NZ,53265 15607 D2E0D0 JP NC,53472 15610 0ED8 LD C,216 15612 DAE6D8 JP C,55526 15615 0C INC C