3870 ED731E41 LD (411E),SP 3874 311E41 LD SP,+411E 3877 F5 PUSH AF 3878 C5 PUSH BC 3879 D5 PUSH DE 387A E5 PUSH HL 387B DDE5 PUSH IX 387D FDE5 PUSH IY 387F D9 EXX 3880 08 EX AF,AF' 3881 F5 PUSH AF 3882 C5 PUSH BC 3883 D5 PUSH DE 3884 E5 PUSH HL 3885 21CE3A LD HL,+3ACE 3888 110040 LD DE,+4000 388B 012000 LD BC,+0020 388E EDB0 LDIR 3890 110041 LD DE,+4100 3893 010400 LD BC,+0004 3896 EDB0 LDIR 3898 ED730140 LD (4001),SP 389C ED5F LD A,R 389E 320840 LD (4008),A 38A1 ED57 LD A,I 38A3 320440 LD (4004),A 38A6 EAAD38 JP PE,38AD 38A9 16F3 LD D,+F3 38AB 1802 JR 38AF 38AD 16FB LD D,+FB 38AF FE3F CP +3F 38B1 2008 JR NZ,38BB 38B3 1E56 LD E,+56 38B5 ED530141 LD (4101),DE 38B9 1804 JR 38BF 38BB 1E5E LD E,+5E 38BD 18F6 JR 38B5 38BF 11E060 LD DE,+60E0 38C2 210064 LD HL,+6400 38C5 7E LD A,(HL) 38C6 FE00 CP +00 38C8 2006 JR NZ,38D0 38CA 23 INC HL 38CB 1B DEC DE 38CC 7A LD A,D 38CD B3 OR E 38CE 20F5 JR NZ,38C5 38D0 220042 LD (4200),HL 38D3 11FFF9 LD DE,+F9FF 38D6 EB EX HL,DE 38D7 ED52 SBC HL,DE 38D9 11FFF9 LD DE,+F9FF 38DC EB EX HL,DE 38DD 7E LD A,(HL) 38DE FE00 CP +00 38E0 2006 JR NZ,38E8 38E2 2B DEC HL 38E3 1B DEC DE 38E4 7A LD A,D 38E5 B3 OR E 38E6 20F5 JR NZ,38DD 38E8 ED5B0042 LD DE,(4200) 38EC ED52 SBC HL,DE 38EE 23 INC HL 38EF 220441 LD (4104),HL 38F2 F3 DI 38F3 312042 LD SP,+4220 38F6 3E02 LD A,+02 38F8 D3FE OUT (+FE),A 38FA 0600 LD B,+00 38FC 10FE DJNZ 38FC 38FE 10FE DJNZ 38FE 3900 0646 LD B,+46 3902 10FE DJNZ 3902 3904 3E06 LD A,+06 3906 D3FE OUT (+FE),A 3908 10FE DJNZ 3908 390A 10FE DJNZ 390A 390C 10FE DJNZ 390C 390E 3EF7 LD A,+F7 3910 DBFE IN A,(+FE) 3912 0E00 LD C,+00 3914 CB47 BIT 0,A 3916 2837 JR Z,394F 3918 0E04 LD C,+04 391A CB4F BIT 1,A 391C 2831 JR Z,394F 391E 0E08 LD C,+08 3920 CB57 BIT 2,A 3922 282B JR Z,394F 3924 0E0C LD C,+0C 3926 CB5F BIT 3,A 3928 2825 JR Z,394F 392A CB67 BIT 4,A 392C CA0040 JP Z,4000 392F 3EEF LD A,+EF 3931 DBFE IN A,(+FE) 3933 CB47 BIT 0,A 3935 CA0000 JP Z,0000,START 3938 CB4F BIT 1,A 393A 20BA JR NZ,38F6 393C 214239 LD HL,+3942 393F E5 PUSH HL 3940 ED45 RETN 3942 FD213A5C LD IY,ERRNR 3946 FD363102 LD (DFSZ),+02 394A FB EI 394B ED56 IM 1 394D CF RST 0008,ERROR_1 394E FF DEFB +FF ;0 OK 394F 0600 LD B,+00 3951 C5 PUSH BC 3952 FD21913B LD IY,+3B91 3956 DD21F23A LD IX,+3AF2 395A 111100 LD DE,+0011 395D AF XOR A 395E CD143B CALL 3B14 3961 D1 POP DE 3962 D5 PUSH DE 3963 7B LD A,E 3964 83 ADD A,E 3965 83 ADD A,E 3966 CB27 SLA A 3968 5F LD E,A 3969 DD21A13B LD IX,+3BA1 396D DD19 ADD IX,DE 396F 111400 LD DE,+0014 3972 3EFF LD A,+FF 3974 CD143B CALL 3B14 3977 DD21033B LD IX,+3B03 397B 111100 LD DE,+0011 397E AF XOR A 397F CD143B CALL 3B14 3982 DD21FD3B LD IX,+3BFD 3986 110301 LD DE,+0103 3989 3EFF LD A,+FF 398B CD143B CALL 3B14 398E C1 POP BC 398F FD09 ADD IY,BC 3991 DD210040 LD IX,+4000 3995 110024 LD DE,+2400 3998 3EFF LD A,+FF 399A CD143B CALL 3B14 399D DD2A0042 LD IX,(4200) 39A1 ED5B0441 LD DE,(4104) 39A5 3EFF LD A,+FF 39A7 CD143B CALL 3B14 39AA FD21913B LD IY,+3B91 39AE DD2100FA LD IX,+FA00 39B2 110006 LD DE,+0600 39B5 3EFF LD A,+FF 39B7 CD143B CALL 3B14 39BA C3F238 JP 38F2 ...................................... ...................................... ...................................... 3ACE 310000 LD SP,+0000 3AD1 3E00 LD A,+00 3AD3 ED47 LD I,A 3AD5 3E00 LD A,+00 3AD7 ED4F LD R,A 3AD9 E1 POP HL 3ADA D1 POP DE 3ADB C1 POP BC 3ADC F1 POP AF 3ADD D9 EXX 3ADE 08 EX AF,AF' 3ADF FDE1 POP IY 3AE1 DDE1 POP IX 3AE3 E1 POP HL 3AE4 D1 POP DE 3AE5 C1 POP BC 3AE6 F1 POP AF 3AE7 ED7B1E41 LD SP,(411E) 3AEB C30041 JP 4100 3AEE ED56 IM 1 3AF0 FB EI 3AF1 C9 RET 3AF2 00 NOP 3AF3 08 EX AF,AF' 3AF4 08 EX AF,AF' 3AF5 61 LD H,C 3AF6 3A2042 LD A,(4220) 3AF9 61 LD H,C 3AFA 73 LD (HL),E 3AFB 69 LD L,C 3AFC 63 LD H,E 3AFD 14 INC D 3AFE 00 NOP 3AFF 00 NOP 3B00 00 NOP 3B01 14 INC D 3B02 00 NOP 3B03 03 INC BC 3B04 43 LD B,E 3B05 41 LD B,C 3B06 52 LD D,D 3B07 47 LD B,A 3B08 41 LD B,C 3B09 44 LD B,H 3B0A 4F LD C,A 3B0B 52 LD D,D 3B0C 2020 JR NZ,3B2E 3B0E 03 INC BC 3B0F 0100FA LD BC,+FA00 3B12 00 NOP 3B13 00 NOP 3B14 21A41F LD HL,+1FA4 3B17 CB7F BIT 7,A 3B19 2803 JR Z,3B1E 3B1B 21AC0D LD HL,+0DAC 3B1E 08 EX AF,AF' 3B1F 13 INC DE 3B20 DD2B DEC IX 3B22 F3 DI 3B23 3E02 LD A,+02 3B25 47 LD B,A 3B26 10FE DJNZ 3B26 3B28 D3FE OUT (+FE),A 3B2A EE0F XOR +0F 3B2C 06A4 LD B,+A4 3B2E 2D DEC L 3B2F 20F5 JR NZ,3B26 3B31 05 DEC B 3B32 25 DEC H 3B33 F2263B JP P,3B26 3B36 062F LD B,+2F 3B38 10FE DJNZ 3B38 3B3A D3FE OUT (+FE),A 3B3C 3E0D LD A,+0D 3B3E 0637 LD B,+37 3B40 10FE DJNZ 3B40 3B42 D3FE OUT (+FE),A 3B44 0E0E LD C,+0E 3B46 FD4600 LD B,(ERRNR) 3B49 08 EX AF,AF' 3B4A 6F LD L,A 3B4B 1809 JR 3B56 3B4D 7A LD A,D 3B4E B3 OR E 3B4F 280B JR Z,3B5C 3B51 DD6E00 LD L,(IX+00) 3B54 7C LD A,H 3B55 AD XOR L 3B56 67 LD H,A 3B57 3E01 LD A,+01 3B59 37 SCF 3B5A 1819 JR 3B75 3B5C 6C LD L,H 3B5D 18F5 JR 3B54 3B5F 79 LD A,C 3B60 CB78 BIT 7,B 3B62 10FE DJNZ 3B62 3B64 3005 JR NC,3B6B 3B66 FD4601 LD B,(FLAGS) 3B69 10FE DJNZ 3B69 3B6B D3FE OUT (+FE),A 3B6D FD4602 LD B,(TVFLAG) 3B70 20ED JR NZ,3B5F 3B72 05 DEC B 3B73 AF XOR A 3B74 3C INC A 3B75 CB15 RL L 3B77 20E9 JR NZ,3B62 3B79 1B DEC DE 3B7A DD23 INC IX 3B7C FD4603 LD B,(ERRSP) 3B7F 7A LD A,D 3B80 3C INC A 3B81 20CA JR NZ,3B4D 3B83 010000 LD BC,+0000 3B86 0B DEC BC 3B87 78 LD A,B 3B88 B1 OR C 3B89 20FB JR NZ,3B86 3B8B 0B DEC BC 3B8C 78 LD A,B 3B8D B1 OR C 3B8E 20FB JR NZ,3B8B 3B90 C9 RET 3B91 3B DEC SP 3B92 42 LD B,D 3B93 3E31 LD A,+31 3B95 2C INC L 3B96 322E25 LD (252E),A 3B99 23 INC HL 3B9A 2824 JR Z,3BC0 3B9C 1D DEC E 3B9D 1E22 LD E,+22 3B9F 1E19 LD E,+19 3BA1 00 NOP 3BA2 00 NOP 3BA3 1000 DJNZ 3BA5 3BA5 EF RST 0028,FP_CALC 3BA6 22 DEFB +22 ;asn 3BA7 22 DEFB +22 ;asn 3BA8 AF DEFB +AF 3BA9 3A DEFB +3A ;truncate 3BAA F9 DEFB +F9 3BAB C0 DEFB +C0 ;st_mem_0 3BAC B0 DEFB +B0 3BAD 22 DEFB +22 ;asn 3BAE 36 DEFB +36 ;less_0 3BAF 34 DEFB +34 ;stk_data 3BB0 3030 DEFB +30,+30 ;[0.6875] 3BB2 30 DEFB +30 ;not 3BB3 22 DEFB +22 ;asn 3BB4 0D DEFB +0D ;no_less 3BB5 00 DEFB +00 ;jump_true 3BB6 00 DEFB +00 ;TO 3BB6 3BB7 00 DEFB +00 ;jump_true 3BB8 00 DEFB +00 ;TO 3BB8 3BB9 00 DEFB +00 ;jump_true 3BBA 00 DEFB +00 ;TO 3BBA 3BBB 10 DEFB +10 ;str_&_no 3BBC 00 DEFB +00 ;jump_true 3BBD EF DEFB +EF ;TO 3BAC 3BBE 22 DEFB +22 ;asn 3BBF 22 DEFB +22 ;asn 3BC0 AF DEFB +AF 3BC1 3A DEFB +3A ;truncate 3BC2 F9 DEFB +F9 3BC3 C0 DEFB +C0 ;st_mem_0 3BC4 B0 DEFB +B0 3BC5 22 DEFB +22 ;asn 3BC6 36 DEFB +36 ;less_0 3BC7 34 DEFB +34 ;stk_data 3BC8 3030 DEFB +30,+30 ;[0.6875] 3BCA 36 DEFB +36 ;less_0 3BCB 22 DEFB +22 ;asn 3BCC 0D DEFB +0D ;no_less 3BCD 00 DEFB +00 ;jump_true 3BCE 00 DEFB +00 ;TO 3BCE 3BCF 00 DEFB +00 ;jump_true 3BD0 00 DEFB +00 ;TO 3BD0 3BD1 00 DEFB +00 ;jump_true 3BD2 00 DEFB +00 ;TO 3BD2 3BD3 10 DEFB +10 ;str_&_no 3BD4 00 DEFB +00 ;jump_true 3BD5 EF DEFB +EF ;TO 3BC4 3BD6 22 DEFB +22 ;asn 3BD7 22 DEFB +22 ;asn 3BD8 AF DEFB +AF 3BD9 3A DEFB +3A ;truncate 3BDA F9 DEFB +F9 3BDB C0 DEFB +C0 ;st_mem_0 3BDC B0 DEFB +B0 3BDD 22 DEFB +22 ;asn 3BDE 36 DEFB +36 ;less_0 3BDF 34 DEFB +34 ;stk_data 3BE0 3031 DEFB +30,+31 ;[0.6914062] 3BE2 32 DEFB +32 ;n_mod_m 3BE3 22 DEFB +22 ;asn 3BE4 0D DEFB +0D ;no_less 3BE5 00 DEFB +00 ;jump_true 3BE6 00 DEFB +00 ;TO 3BE6 3BE7 00 DEFB +00 ;jump_true 3BE8 00 DEFB +00 ;TO 3BE8 3BE9 00 DEFB +00 ;jump_true 3BEA 00 DEFB +00 ;TO 3BEA 3BEB 10 DEFB +10 ;str_&_no 3BEC 00 DEFB +00 ;jump_true 3BED EF DEFB +EF ;TO 3BDC 3BEE 22 DEFB +22 ;asn 3BEF 22 DEFB +22 ;asn 3BF0 AF DEFB +AF 3BF1 3A DEFB +3A ;truncate 3BF2 F9 DEFB +F9 3BF3 C0 DEFB +C0 ;st_mem_0 3BF4 B0 DEFB +B0 3BF5 22 DEFB +22 ;asn 3BF6 36 DEFB +36 ;less_0 3BF7 34 DEFB +34 ;stk_data 3BF8 3031 DEFB +30,+31 ;[0.6914062] 3BFA 38 DEFB +38 ;end_calc 3BFB 220DFD LD (FD0D),HL 3BFE 21EFFA LD HL,+FAEF 3C01 1810 JR 3C13 3C03 FD21F4FA LD IY,+FAF4 3C07 180A JR 3C13 3C09 FD21F9FA LD IY,+FAF9 3C0D 1804 JR 3C13 3C0F FD21FEFA LD IY,+FAFE 3C13 31FFFF LD SP,+FFFF 3C16 3EFF LD A,+FF 3C18 37 SCF 3C19 DD210040 LD IX,+4000 3C1D 110024 LD DE,+2400 3C20 CD48FA CALL FA48 3C23 3EFF LD A,+FF 3C25 37 SCF 3C26 DD2A0042 LD IX,(4200) 3C2A ED5B0441 LD DE,(4104) 3C2E CD48FA CALL FA48 3C31 312042 LD SP,+4220 3C34 3EFF LD A,+FF 3C36 37 SCF 3C37 DD2100FA LD IX,+FA00 3C3B 110006 LD DE,+0600 3C3E 210040 LD HL,+4000 3C41 E5 PUSH HL 3C42 C35605 JP 0556,LD_BYTES 3C45 14 INC D 3C46 08 EX AF,AF' 3C47 15 DEC D 3C48 F3 DI 3C49 AF XOR A 3C4A D3FE OUT (+FE),A 3C4C DBFE IN A,(+FE) 3C4E 1F RRA 3C4F E620 AND +20 3C51 F602 OR +02 3C53 4F LD C,A 3C54 BF CP A 3C55 C0 RET NZ 3C56 CDD0FA CALL FAD0 3C59 30FA JR NC,3C55 3C5B 211504 LD HL,+0415 3C5E 10FE DJNZ 3C5E 3C60 2B DEC HL 3C61 7C LD A,H 3C62 B5 OR L 3C63 20F9 JR NZ,3C5E 3C65 CDCCFA CALL FACC 3C68 30EB JR NC,3C55 3C6A 069C LD B,+9C 3C6C CDCCFA CALL FACC 3C6F 30E4 JR NC,3C55 3C71 3EC6 LD A,+C6 3C73 B8 CP B 3C74 30E0 JR NC,3C56 3C76 24 INC H 3C77 20F1 JR NZ,3C6A 3C79 06C9 LD B,+C9 3C7B CDD0FA CALL FAD0 3C7E 30D5 JR NC,3C55 3C80 78 LD A,B 3C81 FED4 CP +D4 3C83 30F4 JR NC,3C79 3C85 CDD0FA CALL FAD0 3C88 D0 RET NC 3C89 79 LD A,C 3C8A EE03 XOR +03 3C8C 4F LD C,A 3C8D 2600 LD H,+00 3C8F FD4600 LD B,(ERRNR) 3C92 1819 JR 3CAD 3C94 08 EX AF,AF' 3C95 2005 JR NZ,3C9C 3C97 DD7500 LD (IX+00),L 3C9A 180A JR 3CA6 3C9C CB11 RL C 3C9E AD XOR L 3C9F C0 RET NZ 3CA0 79 LD A,C 3CA1 1F RRA 3CA2 4F LD C,A 3CA3 13 INC DE 3CA4 1802 JR 3CA8 3CA6 DD23 INC IX 3CA8 1B DEC DE 3CA9 08 EX AF,AF' 3CAA FD4601 LD B,(FLAGS) 3CAD 2E01 LD L,+01 3CAF CDCCFA CALL FACC 3CB2 D0 RET NC 3CB3 FD7E02 LD A,(TVFLAG) 3CB6 B8 CP B 3CB7 CB15 RL L 3CB9 FD4603 LD B,(ERRSP) 3CBC 30F1 JR NC,3CAF 3CBE 7C LD A,H 3CBF AD XOR L 3CC0 67 LD H,A 3CC1 7A LD A,D 3CC2 B3 OR E 3CC3 20CF JR NZ,3C94 3CC5 7C LD A,H 3CC6 FE01 CP +01 3CC8 C9 RET 3CC9 CDD0FA CALL FAD0 3CCC D0 RET NC 3CCD FD7E04 LD A,(ERRSP+1) 3CD0 3D DEC A 3CD1 20FD JR NZ,3CD0 3CD3 A7 AND A 3CD4 04 INC B 3CD5 C8 RET Z 3CD6 3EF7 LD A,+F7 3CD8 DBFE IN A,(+FE) 3CDA 1F RRA 3CDB D0 RET NC 3CDC A9 XOR C 3CDD E620 AND +20 3CDF 28F3 JR Z,3CD4 3CE1 79 LD A,C 3CE2 2F CPL 3CE3 4F LD C,A 3CE4 E607 AND +07 3CE6 F608 OR +08 3CE8 D3FE OUT (+FE),A 3CEA 37 SCF 3CEB C9 RET 3CEC B0 OR B 3CED B2 OR D 3CEE CBB0 RES 6,B 3CF0 16C4 LD D,+C4 3CF2 C6D8 ADD A,+D8 3CF4 C411D0 CALL NZ,D011 3CF7 D2E0D0 JP NC,D0E0 3CFA 0ED8 LD C,+D8 3CFC DAE6D8 JP C,D8E6 3CFF 0C INC C