; DISASSEMBLY OF THE FILE "MEMOHRG.ROM" ; ; CREATED WITH DZ80 V1.20 ; ; ON WEDNESDAY, 22 OF JUNE 2005 AT 08:00 PM ; 2000 CD9027 CALL #2790 2003 E9 JP (HL) 2004 C34224 JP #2442 2007 C36124 JP #2461 200A C37E24 JP #247E 200D C39024 JP #2490 2010 C39924 JP #2499 2013 C33224 JP #2432 2016 C3FF24 JP #24FF 2019 C30825 JP #2508 201C C30F25 JP #250F 201F C30026 JP #2600 2022 C33824 JP #2438 2025 C38724 JP #2487 2028 C31F26 JP #261F 202B C36526 JP #2665 202E C38426 JP #2684 2031 C3E223 JP #23E2 2034 C35923 JP #2359 2037 C35D23 JP #235D 203A C36123 JP #2361 203D C3D522 JP #22D5 2040 C33B21 JP #213B 2043 C3D820 JP #20D8 2046 C3DD23 JP #23DD 2049 C3AC20 JP #20AC 204C C3C220 JP #20C2 204F C39E21 JP #219E 2052 C3A421 JP #21A4 2055 C35E20 JP #205E 2058 C30722 JP #2207 205B C32222 JP #2222 205E CD9825 CALL #2598 2061 CDDB25 CALL #25DB 2064 4F LD C,A 2065 04 INC B 2066 F1 POP AF 2067 EB EX DE,HL 2068 C5 PUSH BC 2069 F5 PUSH AF 206A E5 PUSH HL 206B D5 PUSH DE 206C CD7D20 CALL #207D 206F D1 POP DE 2070 E1 POP HL 2071 012100 LD BC,#0021 2074 EB EX DE,HL 2075 09 ADD HL,BC 2076 EB EX DE,HL 2077 09 ADD HL,BC 2078 F1 POP AF 2079 C1 POP BC 207A 10EC DJNZ #2068 ; (-20) 207C C9 RET 207D 47 LD B,A 207E F5 PUSH AF 207F CDF825 CALL #25F8 2082 2815 JR Z,#2099 ; (21) 2084 7E LD A,(HL) 2085 A0 AND B 2086 47 LD B,A 2087 F1 POP AF 2088 78 LD A,B 2089 CB1F RR A 208B F5 PUSH AF 208C 78 LD A,B 208D 2F CPL 208E A6 AND (HL) 208F 47 LD B,A 2090 F1 POP AF 2091 F5 PUSH AF 2092 B0 OR B 2093 77 LD (HL),A 2094 06FF LD B,#FF 2096 23 INC HL 2097 18E6 JR #207F ; (-26) 2099 79 LD A,C 209A A0 AND B 209B 47 LD B,A 209C 7E LD A,(HL) 209D 4F LD C,A 209E F1 POP AF 209F 79 LD A,C 20A0 CB1F RR A 20A2 A0 AND B 20A3 F5 PUSH AF 20A4 78 LD A,B 20A5 2F CPL 20A6 A6 AND (HL) 20A7 47 LD B,A 20A8 F1 POP AF 20A9 B0 OR B 20AA 77 LD (HL),A 20AB C9 RET 20AC CDE724 CALL #24E7 20AF C5 PUSH BC 20B0 CDAD24 CALL #24AD 20B3 AF XOR A 20B4 37 SCF 20B5 17 RLA 20B6 10FD DJNZ #20B5 ; (-3) 20B8 57 LD D,A 20B9 C1 POP BC 20BA CD2221 CALL #2122 20BD 48 LD C,B 20BE 0600 LD B,#00 20C0 0D DEC C 20C1 C9 RET 20C2 CDE724 CALL #24E7 20C5 C5 PUSH BC 20C6 CDAD24 CALL #24AD 20C9 AF XOR A 20CA 37 SCF 20CB 17 RLA 20CC 10FD DJNZ #20CB ; (-3) 20CE 57 LD D,A 20CF C1 POP BC 20D0 CD0721 CALL #2107 20D3 48 LD C,B 20D4 0600 LD B,#00 20D6 0D DEC C 20D7 C9 RET 20D8 CDE724 CALL #24E7 20DB C5 PUSH BC 20DC CDAD24 CALL #24AD 20DF AF XOR A 20E0 37 SCF 20E1 CB17 RL A 20E3 10FC DJNZ #20E1 ; (-4) 20E5 57 LD D,A 20E6 C1 POP BC 20E7 E5 PUSH HL 20E8 C5 PUSH BC 20E9 CD2221 CALL #2122 20EC 7E LD A,(HL) 20ED 2F CPL 20EE B2 OR D 20EF 2F CPL 20F0 77 LD (HL),A 20F1 C1 POP BC 20F2 E1 POP HL 20F3 CD0721 CALL #2107 20F6 78 LD A,B 20F7 FEC0 CP #C0 20F9 2004 JR NZ,#20FF ; (4) 20FB 010000 LD BC,#0000 20FE C9 RET 20FF 7E LD A,(HL) 2100 B2 OR D 2101 77 LD (HL),A 2102 48 LD C,B 2103 0600 LD B,#00 2105 0D DEC C 2106 C9 RET 2107 C5 PUSH BC 2108 7E LD A,(HL) 2109 5F LD E,A 210A A2 AND D 210B 2813 JR Z,#2120 ; (19) 210D 7B LD A,E 210E 2F CPL 210F B2 OR D 2110 2F CPL 2111 77 LD (HL),A 2112 012100 LD BC,#0021 2115 A7 AND A 2116 ED42 SBC HL,BC 2118 C1 POP BC 2119 04 INC B 211A 78 LD A,B 211B FEC0 CP #C0 211D 20E8 JR NZ,#2107 ; (-24) 211F C5 PUSH BC 2120 C1 POP BC 2121 C9 RET 2122 C5 PUSH BC 2123 7E LD A,(HL) 2124 5F LD E,A 2125 A2 AND D 2126 2011 JR NZ,#2139 ; (17) 2128 7B LD A,E 2129 B2 OR D 212A 77 LD (HL),A 212B 012100 LD BC,#0021 212E A7 AND A 212F ED42 SBC HL,BC 2131 C1 POP BC 2132 04 INC B 2133 78 LD A,B 2134 FEC0 CP #C0 2136 20EA JR NZ,#2122 ; (-22) 2138 C5 PUSH BC 2139 C1 POP BC 213A C9 RET 213B CD9825 CALL #2598 213E CDDB25 CALL #25DB 2141 4F LD C,A 2142 04 INC B 2143 F1 POP AF 2144 C5 PUSH BC 2145 F5 PUSH AF 2146 E5 PUSH HL 2147 D5 PUSH DE 2148 CD5921 CALL #2159 214B D1 POP DE 214C E1 POP HL 214D 012100 LD BC,#0021 2150 EB EX DE,HL 2151 09 ADD HL,BC 2152 EB EX DE,HL 2153 09 ADD HL,BC 2154 F1 POP AF 2155 C1 POP BC 2156 10EC DJNZ #2144 ; (-20) 2158 C9 RET 2159 41 LD B,C 215A 4F LD C,A 215B F5 PUSH AF 215C CDF825 CALL #25F8 215F 2815 JR Z,#2176 ; (21) 2161 7E LD A,(HL) 2162 A0 AND B 2163 47 LD B,A 2164 F1 POP AF 2165 78 LD A,B 2166 CB17 RL A 2168 F5 PUSH AF 2169 78 LD A,B 216A 2F CPL 216B A6 AND (HL) 216C 47 LD B,A 216D F1 POP AF 216E F5 PUSH AF 216F B0 OR B 2170 77 LD (HL),A 2171 06FF LD B,#FF 2173 2B DEC HL 2174 18E6 JR #215C ; (-26) 2176 79 LD A,C 2177 A0 AND B 2178 47 LD B,A 2179 7E LD A,(HL) 217A 4F LD C,A 217B F1 POP AF 217C 79 LD A,C 217D CB17 RL A 217F A0 AND B 2180 F5 PUSH AF 2181 78 LD A,B 2182 2F CPL 2183 A6 AND (HL) 2184 47 LD B,A 2185 F1 POP AF 2186 B0 OR B 2187 77 LD (HL),A 2188 C9 RET 2189 CD7524 CALL #2475 218C E5 PUSH HL 218D 01D800 LD BC,#00D8 2190 CD3125 CALL #2531 2193 D1 POP DE 2194 23 INC HL 2195 23 INC HL 2196 23 INC HL 2197 23 INC HL 2198 23 INC HL 2199 23 INC HL 219A 01C118 LD BC,#18C1 219D C9 RET 219E CD8921 CALL #2189 21A1 EDB0 LDIR 21A3 C9 RET 21A4 CD8921 CALL #2189 21A7 EB EX DE,HL 21A8 EDB0 LDIR 21AA C9 RET 21AB CD3824 CALL #2438 21AE 1E08 LD E,#08 21B0 1600 LD D,#00 21B2 0632 LD B,#32 21B4 0E32 LD C,#32 21B6 21C021 LD HL,#21C0 21B9 CDE522 CALL #22E5 21BC CD8724 CALL #2487 21BF C9 RET 21C0 322A32 LD (#322A),A 21C3 34 INC (HL) 21C4 39 ADD HL,SP 21C5 2A282D LD HL,(#2D28) 21C8 C5 PUSH BC 21C9 D5 PUSH DE 21CA E5 PUSH HL 21CB 010000 LD BC,#0000 21CE A7 AND A 21CF 281F JR Z,#21F0 ; (31) 21D1 57 LD D,A 21D2 E680 AND #80 21D4 2808 JR Z,#21DE ; (8) 21D6 0688 LD B,#88 21D8 7A LD A,D 21D9 E67F AND #7F 21DB 4F LD C,A 21DC 1812 JR #21F0 ; (18) 21DE 0687 LD B,#87 21E0 7A LD A,D 21E1 CB27 SLA A 21E3 57 LD D,A 21E4 E680 AND #80 21E6 2004 JR NZ,#21EC ; (4) 21E8 7A LD A,D 21E9 05 DEC B 21EA 18F4 JR #21E0 ; (-12) 21EC 7A LD A,D 21ED E67F AND #7F 21EF 4F LD C,A 21F0 2A1C40 LD HL,(#401C) 21F3 70 LD (HL),B 21F4 23 INC HL 21F5 71 LD (HL),C 21F6 23 INC HL 21F7 3600 LD (HL),#00 21F9 23 INC HL 21FA 3600 LD (HL),#00 21FC 23 INC HL 21FD 3600 LD (HL),#00 21FF 23 INC HL 2200 221C40 LD (#401C),HL 2203 E1 POP HL 2204 D1 POP DE 2205 C1 POP BC 2206 C9 RET 2207 CD3D22 CALL #223D 220A 14 INC D 220B 1E00 LD E,#00 220D D5 PUSH DE 220E E5 PUSH HL 220F C5 PUSH BC 2210 CD8722 CALL #2287 2213 CDAD24 CALL #24AD 2216 CD0225 CALL #2502 2219 C1 POP BC 221A E1 POP HL 221B D1 POP DE 221C 7B LD A,E 221D BA CP D 221E C8 RET Z 221F 1C INC E 2220 18EB JR #220D ; (-21) 2222 CD3D22 CALL #223D 2225 14 INC D 2226 1E00 LD E,#00 2228 D5 PUSH DE 2229 E5 PUSH HL 222A C5 PUSH BC 222B CD8722 CALL #2287 222E CDAD24 CALL #24AD 2231 CD0B25 CALL #250B 2234 C1 POP BC 2235 E1 POP HL 2236 D1 POP DE 2237 7B LD A,E 2238 BA CP D 2239 C8 RET Z 223A 1C INC E 223B 18EB JR #2228 ; (-21) 223D 017680 LD BC,#8076 2240 CD5C25 CALL #255C 2243 0C INC C 2244 C5 PUSH BC 2245 017580 LD BC,#8075 2248 CD5C25 CALL #255C 224B E1 POP HL 224C 45 LD B,L 224D C5 PUSH BC 224E CDE724 CALL #24E7 2251 E1 POP HL 2252 7C LD A,H 2253 CDC821 CALL #21C8 2256 78 LD A,B 2257 CDC821 CALL #21C8 225A 7D LD A,L 225B CDC821 CALL #21C8 225E 79 LD A,C 225F CDC821 CALL #21C8 2262 C5 PUSH BC 2263 E5 PUSH HL 2264 EF RST #28 2265 03 INC BC 2266 27 DAA 2267 34 INC (HL) 2268 CDA70E CALL #0EA7 226B C5 PUSH BC 226C EF RST #28 226D 03 INC BC 226E 27 DAA 226F 34 INC (HL) 2270 CDA70E CALL #0EA7 2273 E1 POP HL 2274 7D LD A,L 2275 91 SUB C 2276 3803 JR C,#227B ; (3) 2278 55 LD D,L 2279 1801 JR #227C ; (1) 227B 51 LD D,C 227C E1 POP HL 227D C1 POP BC 227E C9 RET 227F EF RST #28 2280 27 DAA 2281 37 SCF 2282 2633 LD H,#33 2284 39 ADD HL,SP 2285 34 INC (HL) 2286 C9 RET 2287 78 LD A,B 2288 E5 PUSH HL 2289 D5 PUSH DE 228A C5 PUSH BC 228B CDC821 CALL #21C8 228E 7B LD A,E 228F CDC821 CALL #21C8 2292 7C LD A,H 2293 CDC821 CALL #21C8 2296 78 LD A,B 2297 CDC821 CALL #21C8 229A D5 PUSH DE 229B EF RST #28 229C 03 INC BC 229D 34 INC (HL) 229E D1 POP DE 229F 7A LD A,D 22A0 CDC821 CALL #21C8 22A3 EF RST #28 22A4 05 DEC B 22A5 04 INC B 22A6 0F RRCA 22A7 34 INC (HL) 22A8 CDA70E CALL #0EA7 22AB 79 LD A,C 22AC C1 POP BC 22AD D1 POP DE 22AE E1 POP HL 22AF 47 LD B,A 22B0 C5 PUSH BC 22B1 79 LD A,C 22B2 CDC821 CALL #21C8 22B5 7B LD A,E 22B6 CDC821 CALL #21C8 22B9 7D LD A,L 22BA CDC821 CALL #21C8 22BD 79 LD A,C 22BE CDC821 CALL #21C8 22C1 D5 PUSH DE 22C2 EF RST #28 22C3 03 INC BC 22C4 34 INC (HL) 22C5 D1 POP DE 22C6 7A LD A,D 22C7 CDC821 CALL #21C8 22CA EF RST #28 22CB 05 DEC B 22CC 04 INC B 22CD 0F RRCA 22CE 34 INC (HL) 22CF CDA70E CALL #0EA7 22D2 E1 POP HL 22D3 44 LD B,H 22D4 C9 RET 22D5 CDE724 CALL #24E7 22D8 C5 PUSH BC 22D9 014800 LD BC,#0048 22DC CD3125 CALL #2531 22DF 23 INC HL 22E0 5E LD E,(HL) 22E1 23 INC HL 22E2 56 LD D,(HL) 22E3 23 INC HL 22E4 C1 POP BC 22E5 D5 PUSH DE 22E6 D1 POP DE 22E7 3EFF LD A,#FF 22E9 A2 AND D 22EA B3 OR E 22EB C8 RET Z 22EC 1B DEC DE 22ED D5 PUSH DE 22EE E5 PUSH HL 22EF C5 PUSH BC 22F0 7E LD A,(HL) 22F1 21071E LD HL,#1E07 22F4 1600 LD D,#00 22F6 5F LD E,A 22F7 CB23 SLA E 22F9 CB12 RL D 22FB CB23 SLA E 22FD CB12 RL D 22FF CB23 SLA E 2301 CB12 RL D 2303 C1 POP BC 2304 C5 PUSH BC 2305 CB52 BIT 2,D 2307 2010 JR NZ,#2319 ; (16) 2309 19 ADD HL,DE 230A 1608 LD D,#08 230C 7E LD A,(HL) 230D CD3723 CALL #2337 2310 C1 POP BC 2311 04 INC B 2312 C5 PUSH BC 2313 2B DEC HL 2314 15 DEC D 2315 20F5 JR NZ,#230C ; (-11) 2317 1811 JR #232A ; (17) 2319 CB92 RES 2,D 231B 19 ADD HL,DE 231C 1608 LD D,#08 231E 7E LD A,(HL) 231F 2F CPL 2320 CD3723 CALL #2337 2323 2B DEC HL 2324 C1 POP BC 2325 04 INC B 2326 C5 PUSH BC 2327 15 DEC D 2328 20F4 JR NZ,#231E ; (-12) 232A C1 POP BC 232B 79 LD A,C 232C C608 ADD A,#08 232E 4F LD C,A 232F 78 LD A,B 2330 D608 SUB #08 2332 47 LD B,A 2333 E1 POP HL 2334 23 INC HL 2335 18AF JR #22E6 ; (-81) 2337 E5 PUSH HL 2338 D5 PUSH DE 2339 1608 LD D,#08 233B 17 RLA 233C C5 PUSH BC 233D D5 PUSH DE 233E F5 PUSH AF 233F 3808 JR C,#2349 ; (8) 2341 CDAD24 CALL #24AD 2344 CD0B25 CALL #250B 2347 1806 JR #234F ; (6) 2349 CDAD24 CALL #24AD 234C CD0225 CALL #2502 234F F1 POP AF 2350 D1 POP DE 2351 C1 POP BC 2352 0C INC C 2353 15 DEC D 2354 20E5 JR NZ,#233B ; (-27) 2356 D1 POP DE 2357 E1 POP HL 2358 C9 RET 2359 167F LD D,#7F 235B 1806 JR #2363 ; (6) 235D 1600 LD D,#00 235F 1802 JR #2363 ; (2) 2361 16FF LD D,#FF 2363 D5 PUSH DE 2364 CDE724 CALL #24E7 2367 C5 PUSH BC 2368 014800 LD BC,#0048 236B CD3125 CALL #2531 236E 23 INC HL 236F 23 INC HL 2370 23 INC HL 2371 C1 POP BC 2372 D1 POP DE 2373 C5 PUSH BC 2374 7E LD A,(HL) 2375 FE1D CP #1D 2377 2822 JR Z,#239B ; (34) 2379 FE1C CP #1C 237B 2833 JR Z,#23B0 ; (51) 237D FE33 CP #33 237F 2846 JR Z,#23C7 ; (70) 2381 FE38 CP #38 2383 2847 JR Z,#23CC ; (71) 2385 FE2A CP #2A 2387 284D JR Z,#23D6 ; (77) 2389 FE3C CP #3C 238B 2844 JR Z,#23D1 ; (68) 238D FE17 CP #17 238F 2832 JR Z,#23C3 ; (50) 2391 FE0E CP #0E 2393 2846 JR Z,#23DB ; (70) 2395 C1 POP BC 2396 CD9024 CALL #2490 2399 CF RST #8 239A 18A7 JR #2343 ; (-89) 239C CB12 RL D 239E 3815 JR C,#23B5 ; (21) 23A0 CB1A RR D 23A2 A2 AND D 23A3 2812 JR Z,#23B7 ; (18) 23A5 C5 PUSH BC 23A6 D5 PUSH DE 23A7 E5 PUSH HL 23A8 CDAD24 CALL #24AD 23AB CD0225 CALL #2502 23AE 1810 JR #23C0 ; (16) 23B0 A7 AND A 23B1 CB12 RL D 23B3 38EB JR C,#23A0 ; (-21) 23B5 CB1A RR D 23B7 C5 PUSH BC 23B8 D5 PUSH DE 23B9 E5 PUSH HL 23BA CDAD24 CALL #24AD 23BD CD0B25 CALL #250B 23C0 E1 POP HL 23C1 D1 POP DE 23C2 C1 POP BC 23C3 23 INC HL 23C4 0C INC C 23C5 18AD JR #2374 ; (-83) 23C7 C1 POP BC 23C8 04 INC B 23C9 23 INC HL 23CA 18A7 JR #2373 ; (-89) 23CC C1 POP BC 23CD 05 DEC B 23CE 23 INC HL 23CF 18A2 JR #2373 ; (-94) 23D1 C1 POP BC 23D2 0D DEC C 23D3 23 INC HL 23D4 189D JR #2373 ; (-99) 23D6 C1 POP BC 23D7 0C INC C 23D8 23 INC HL 23D9 1898 JR #2373 ; (-104) 23DB C1 POP BC 23DC C9 RET 23DD 0601 LD B,#01 23DF C5 PUSH BC 23E0 1803 JR #23E5 ; (3) 23E2 06C0 LD B,#C0 23E4 C5 PUSH BC 23E5 CD7524 CALL #2475 23E8 23 INC HL 23E9 CDE702 CALL #02E7 23EC C1 POP BC 23ED AF XOR A 23EE D3FB OUT (#FB),A 23F0 DBFB IN A,(#FB) 23F2 87 ADD A,A 23F3 30FB JR NC,#23F0 ; (-5) 23F5 C5 PUSH BC 23F6 CD0C24 CALL #240C 23F9 C1 POP BC 23FA AF XOR A 23FB D3FB OUT (#FB),A 23FD DBFB IN A,(#FB) 23FF 1F RRA 2400 30F8 JR NC,#23FA ; (-8) 2402 10E9 DJNZ #23ED ; (-23) 2404 3E7F LD A,#7F 2406 D3FB OUT (#FB),A 2408 CD0702 CALL #0207 240B C9 RET 240C 0621 LD B,#21 240E C5 PUSH BC 240F C1 POP BC 2410 1006 DJNZ #2418 ; (6) 2412 3E00 LD A,#00 2414 D3FB OUT (#FB),A 2416 23 INC HL 2417 C9 RET 2418 C5 PUSH BC 2419 4E LD C,(HL) 241A 79 LD A,C 241B 23 INC HL 241C E5 PUSH HL 241D 0608 LD B,#08 241F 3E00 LD A,#00 2421 CB01 RLC C 2423 1F RRA 2424 5F LD E,A 2425 DBFB IN A,(#FB) 2427 1F RRA 2428 30FB JR NC,#2425 ; (-5) 242A 7B LD A,E 242B D3FB OUT (#FB),A 242D 10F0 DJNZ #241F ; (-16) 242F E1 POP HL 2430 18DD JR #240F ; (-35) 2432 CDF824 CALL #24F8 2435 44 LD B,H 2436 4D LD C,L 2437 C9 RET 2438 CD4224 CALL #2442 243B CD7E24 CALL #247E 243E CD9924 CALL #2499 2441 C9 RET 2442 210000 LD HL,#0000 2445 110000 LD DE,#0000 2448 010004 LD BC,#0400 244B EDB0 LDIR 244D 217500 LD HL,#0075 2450 367B LD (HL),#7B 2452 217A02 LD HL,#027A 2455 367B LD (HL),#7B 2457 214000 LD HL,#0040 245A 36C1 LD (HL),#C1 245C 218502 LD HL,#0285 245F 36C1 LD (HL),#C1 2461 CD7524 CALL #2475 2464 227B40 LD (#407B),HL 2467 112000 LD DE,#0020 246A 06C1 LD B,#C1 246C 3676 LD (HL),#76 246E 23 INC HL 246F 3600 LD (HL),#00 2471 19 ADD HL,DE 2472 10F8 DJNZ #246C ; (-8) 2474 C9 RET 2475 017B80 LD BC,#807B 2478 CD5C25 CALL #255C 247B 60 LD H,B 247C 69 LD L,C 247D C9 RET 247E 3E1F LD A,#1F 2480 ED47 LD I,A 2482 3E02 LD A,#02 2484 DB5F IN A,(#5F) 2486 C9 RET 2487 3E1F LD A,#1F 2489 ED47 LD I,A 248B 3E03 LD A,#03 248D DB5F IN A,(#5F) 248F C9 RET 2490 3E1E LD A,#1E 2492 ED47 LD I,A 2494 3E00 LD A,#00 2496 DB5F IN A,(#5F) 2498 C9 RET 2499 CD7524 CALL #2475 249C 0EC0 LD C,#C0 249E 23 INC HL 249F 0620 LD B,#20 24A1 3600 LD (HL),#00 24A3 23 INC HL 24A4 10FB DJNZ #24A1 ; (-5) 24A6 3676 LD (HL),#76 24A8 23 INC HL 24A9 0D DEC C 24AA 20F3 JR NZ,#249F ; (-13) 24AC C9 RET 24AD 3EC0 LD A,#C0 24AF 90 SUB B 24B0 3005 JR NC,#24B7 ; (5) 24B2 CD9024 CALL #2490 24B5 CF RST #8 24B6 16F5 LD D,#F5 24B8 C5 PUSH BC 24B9 CD7524 CALL #2475 24BC C1 POP BC 24BD 3EF7 LD A,#F7 24BF 91 SUB C 24C0 3005 JR NC,#24C7 ; (5) 24C2 CD9024 CALL #2490 24C5 CF RST #8 24C6 17 RLA 24C7 F1 POP AF 24C8 47 LD B,A 24C9 2806 JR Z,#24D1 ; (6) 24CB 112100 LD DE,#0021 24CE 19 ADD HL,DE 24CF 10FD DJNZ #24CE ; (-3) 24D1 23 INC HL 24D2 23 INC HL 24D3 0C INC C 24D4 110000 LD DE,#0000 24D7 0608 LD B,#08 24D9 0D DEC C 24DA 2805 JR Z,#24E1 ; (5) 24DC 10FB DJNZ #24D9 ; (-5) 24DE 1C INC E 24DF 18F6 JR #24D7 ; (-10) 24E1 7B LD A,E 24E2 E61F AND #1F 24E4 5F LD E,A 24E5 19 ADD HL,DE 24E6 C9 RET 24E7 017E80 LD BC,#807E 24EA CD5C25 CALL #255C 24ED 0C INC C 24EE C5 PUSH BC 24EF 017D80 LD BC,#807D 24F2 CD5C25 CALL #255C 24F5 E1 POP HL 24F6 45 LD B,L 24F7 C9 RET 24F8 CDE724 CALL #24E7 24FB CDAD24 CALL #24AD 24FE C9 RET 24FF CDF824 CALL #24F8 2502 0EFF LD C,#FF 2504 CD2125 CALL #2521 2507 C9 RET 2508 CDF824 CALL #24F8 250B CD1F25 CALL #251F 250E C9 RET 250F CDF824 CALL #24F8 2512 7E LD A,(HL) 2513 F5 PUSH AF 2514 CD1F25 CALL #251F 2517 F1 POP AF 2518 77 LD (HL),A 2519 A7 AND A 251A CB11 RL C 251C CB11 RL C 251E C9 RET 251F 0E00 LD C,#00 2521 7E LD A,(HL) 2522 50 LD D,B 2523 0F RRCA 2524 10FD DJNZ #2523 ; (-3) 2526 CB19 RR C 2528 CB17 RL A 252A 42 LD B,D 252B 05 DEC B 252C 07 RLCA 252D 10FD DJNZ #252C ; (-3) 252F 77 LD (HL),A 2530 C9 RET 2531 ED5B1040 LD DE,(#4010) 2535 EB EX DE,HL 2536 7E LD A,(HL) 2537 B9 CP C 2538 C8 RET Z 2539 80 ADD A,B 253A B9 CP C 253B C8 RET Z 253C 80 ADD A,B 253D FE80 CP #80 253F 2005 JR NZ,#2546 ; (5) 2541 CD9024 CALL #2490 2544 CF RST #8 2545 14 INC D 2546 C5 PUSH BC 2547 CDF209 CALL #09F2 254A C1 POP BC 254B 18E8 JR #2535 ; (-24) 254D 23 INC HL 254E ED5B1C40 LD DE,(#401C) 2552 010500 LD BC,#0005 2555 EDB0 LDIR 2557 ED531C40 LD (#401C),DE 255B C9 RET 255C CD3125 CALL #2531 255F CD4D25 CALL #254D 2562 CDA70E CALL #0EA7 2565 C9 RET 2566 79 LD A,C 2567 A6 AND (HL) 2568 EB EX DE,HL 2569 47 LD B,A 256A 79 LD A,C 256B 2F CPL 256C A6 AND (HL) 256D B0 OR B 256E 77 LD (HL),A 256F EB EX DE,HL 2570 C9 RET 2571 C5 PUSH BC 2572 012100 LD BC,#0021 2575 54 LD D,H 2576 5D LD E,L 2577 09 ADD HL,BC 2578 4F LD C,A 2579 CD6625 CALL #2566 257C 79 LD A,C 257D C1 POP BC 257E 10F1 DJNZ #2571 ; (-15) 2580 C9 RET 2581 F5 PUSH AF 2582 4F LD C,A 2583 3E00 LD A,#00 2585 1803 JR #258A ; (3) 2587 F5 PUSH AF 2588 4F LD C,A 2589 7E LD A,(HL) 258A F5 PUSH AF 258B 79 LD A,C 258C CD7125 CALL #2571 258F F1 POP AF 2590 4F LD C,A 2591 C1 POP BC 2592 48 LD C,B 2593 A1 AND C 2594 CD6925 CALL #2569 2597 C9 RET 2598 017380 LD BC,#8073 259B CD5C25 CALL #255C 259E 0C INC C 259F C5 PUSH BC 25A0 017C80 LD BC,#807C 25A3 CD5C25 CALL #255C 25A6 E1 POP HL 25A7 45 LD B,L 25A8 C5 PUSH BC 25A9 CDAD24 CALL #24AD 25AC AF XOR A 25AD 37 SCF 25AE 17 RLA 25AF 10FC DJNZ #25AD ; (-4) 25B1 C1 POP BC 25B2 D1 POP DE 25B3 F5 PUSH AF 25B4 D5 PUSH DE 25B5 E5 PUSH HL 25B6 C5 PUSH BC 25B7 017880 LD BC,#8078 25BA CD5C25 CALL #255C 25BD 0C INC C 25BE C5 PUSH BC 25BF 016A80 LD BC,#806A 25C2 CD5C25 CALL #255C 25C5 E1 POP HL 25C6 45 LD B,L 25C7 E1 POP HL 25C8 7C LD A,H 25C9 A7 AND A 25CA 90 SUB B 25CB F5 PUSH AF 25CC CDAD24 CALL #24AD 25CF AF XOR A 25D0 1802 JR #25D4 ; (2) 25D2 37 SCF 25D3 17 RLA 25D4 10FC DJNZ #25D2 ; (-4) 25D6 2F CPL 25D7 C1 POP BC 25D8 D1 POP DE 25D9 A7 AND A 25DA C9 RET 25DB D5 PUSH DE 25DC C5 PUSH BC 25DD F5 PUSH AF 25DE 112100 LD DE,#0021 25E1 ED52 SBC HL,DE 25E3 10F9 DJNZ #25DE ; (-7) 25E5 F1 POP AF 25E6 C1 POP BC 25E7 D1 POP DE 25E8 C9 RET 25E9 C5 PUSH BC 25EA F5 PUSH AF 25EB EB EX DE,HL 25EC D5 PUSH DE 25ED 112100 LD DE,#0021 25F0 19 ADD HL,DE 25F1 10FA DJNZ #25ED ; (-6) 25F3 EB EX DE,HL 25F4 E1 POP HL 25F5 F1 POP AF 25F6 C1 POP BC 25F7 C9 RET 25F8 D5 PUSH DE 25F9 E5 PUSH HL 25FA A7 AND A 25FB ED52 SBC HL,DE 25FD E1 POP HL 25FE D1 POP DE 25FF C9 RET 2600 CD9825 CALL #2598 2603 CDDB25 CALL #25DB 2606 CDF825 CALL #25F8 2609 280E JR Z,#2619 ; (14) 260B E5 PUSH HL 260C C5 PUSH BC 260D D5 PUSH DE 260E CD8125 CALL #2581 2611 3EFF LD A,#FF 2613 D1 POP DE 2614 C1 POP BC 2615 E1 POP HL 2616 2B DEC HL 2617 18ED JR #2606 ; (-19) 2619 D1 POP DE 261A A2 AND D 261B CD8125 CALL #2581 261E C9 RET 261F CD9825 CALL #2598 2622 CDDB25 CALL #25DB 2625 CDF825 CALL #25F8 2628 280E JR Z,#2638 ; (14) 262A E5 PUSH HL 262B C5 PUSH BC 262C D5 PUSH DE 262D CD8725 CALL #2587 2630 3EFF LD A,#FF 2632 D1 POP DE 2633 C1 POP BC 2634 E1 POP HL 2635 2B DEC HL 2636 18ED JR #2625 ; (-19) 2638 D1 POP DE 2639 A2 AND D 263A CD8725 CALL #2587 263D C9 RET 263E C5 PUSH BC 263F 012100 LD BC,#0021 2642 54 LD D,H 2643 5D LD E,L 2644 A7 AND A 2645 ED42 SBC HL,BC 2647 4F LD C,A 2648 CD6625 CALL #2566 264B 79 LD A,C 264C C1 POP BC 264D 10EF DJNZ #263E ; (-17) 264F C9 RET 2650 F5 PUSH AF 2651 4F LD C,A 2652 3E00 LD A,#00 2654 1803 JR #2659 ; (3) 2656 F5 PUSH AF 2657 4F LD C,A 2658 7E LD A,(HL) 2659 F5 PUSH AF 265A 79 LD A,C 265B CD3E26 CALL #263E 265E F1 POP AF 265F C1 POP BC 2660 48 LD C,B 2661 CD6925 CALL #2569 2664 C9 RET 2665 CD9825 CALL #2598 2668 CDE925 CALL #25E9 266B CDF825 CALL #25F8 266E 280E JR Z,#267E ; (14) 2670 E5 PUSH HL 2671 C5 PUSH BC 2672 D5 PUSH DE 2673 CD5026 CALL #2650 2676 3EFF LD A,#FF 2678 D1 POP DE 2679 C1 POP BC 267A E1 POP HL 267B 2B DEC HL 267C 18ED JR #266B ; (-19) 267E D1 POP DE 267F A2 AND D 2680 CD5026 CALL #2650 2683 C9 RET 2684 CD9825 CALL #2598 2687 CDE925 CALL #25E9 268A CDF825 CALL #25F8 268D 280E JR Z,#269D ; (14) 268F E5 PUSH HL 2690 C5 PUSH BC 2691 D5 PUSH DE 2692 CD5626 CALL #2656 2695 3EFF LD A,#FF 2697 D1 POP DE 2698 C1 POP BC 2699 E1 POP HL 269A 2B DEC HL 269B 18ED JR #268A ; (-19) 269D D1 POP DE 269E A2 AND D 269F CD5626 CALL #2656 26A2 C9 RET 26A3 05 DEC B 26A4 3839 JR C,#26DF ; (57) 26A6 2637 LD H,#37 26A8 39 ADD HL,SP 26A9 04 INC B 26AA 2006 JR NZ,#26B2 ; (6) 26AC 2D DEC L 26AD 37 SCF 26AE 2C INC L 26AF 2E33 LD L,#33 26B1 3B DEC SP 26B2 25 DEC H 26B3 2004 JR NZ,#26B9 ; (4) 26B5 35 DEC (HL) 26B6 262C LD H,#2C 26B8 2A0720 LD HL,(#2007) 26BB 03 INC BC 26BC 2D DEC L 26BD 37 SCF 26BE 2C INC L 26BF 0A LD A,(BC) 26C0 2005 JR NZ,#26C7 ; (5) 26C2 27 DAA 26C3 2638 LD H,#38 26C5 2E28 LD L,#28 26C7 0D DEC C 26C8 2005 JR NZ,#26CF ; (5) 26CA 2831 JR Z,#26FD ; (49) 26CC 2A2637 LD HL,(#3726) 26CF 1020 DJNZ #26F1 ; (32) 26D1 0631 LD B,#31 26D3 34 INC (HL) 26D4 2826 JR Z,#26FC ; (38) 26D6 39 ADD HL,SP 26D7 2A1320 LD HL,(#2013) 26DA 04 INC B 26DB 35 DEC (HL) 26DC 313439 LD SP,#3934 26DF 1620 LD D,#20 26E1 063A LD B,#3A 26E3 33 INC SP 26E4 35 DEC (HL) 26E5 313439 LD SP,#3934 26E8 19 ADD HL,DE 26E9 2004 JR NZ,#26EF ; (4) 26EB 39 ADD HL,SP 26EC 2A3839 LD HL,(#3938) 26EF 1C INC E 26F0 2002 JR NZ,#26F4 ; (2) 26F2 383A JR C,#272E ; (58) 26F4 1F RRA 26F5 2006 JR NZ,#26FD ; (6) 26F7 3839 JR C,#2732 ; (57) 26F9 2637 LD H,#37 26FB 282D JR Z,#272A ; (45) 26FD 222002 LD (#0220),HL 2700 37 SCF 2701 3A2820 LD A,(#2028) 2704 02 LD (BC),A 2705 37 SCF 2706 29 ADD HL,HL 2707 2E20 LD L,#20 2709 02 LD (BC),A 270A 3829 JR C,#2735 ; (41) 270C 2B DEC HL 270D 2006 JR NZ,#2715 ; (6) 270F 3830 JR C,#2741 ; (48) 2711 2A3928 LD HL,(#2839) 2714 2D DEC L 2715 34 INC (HL) 2716 2008 JR NZ,#2720 ; (8) 2718 3A3338 LD A,(#3833) 271B 302A JR NC,#2747 ; (42) 271D 39 ADD HL,SP 271E 282D JR Z,#274D ; (45) 2720 37 SCF 2721 2009 JR NZ,#272C ; (9) 2723 2E33 LD L,#33 2725 3B DEC SP 2726 3830 JR C,#2758 ; (48) 2728 2A3928 LD HL,(#2839) 272B 2D DEC L 272C 3A2005 LD A,(#0520) 272F 382E JR C,#275F ; (46) 2731 33 INC SP 2732 282D JR Z,#2761 ; (45) 2734 3D DEC A 2735 2002 JR NZ,#2739 ; (2) 2737 3831 JR C,#276A ; (49) 2739 40 LD B,B 273A 2006 JR NZ,#2742 ; (6) 273C 31263A LD SP,#3A26 273F 33 INC SP 2740 282D JR Z,#276F ; (45) 2742 43 LD B,E 2743 2006 JR NZ,#274B ; (6) 2745 35 DEC (HL) 2746 37 SCF 2747 2E33 LD L,#33 2749 39 ADD HL,SP 274A 1D DEC E 274B 46 LD B,(HL) 274C 2005 JR NZ,#2753 ; (5) 274E 35 DEC (HL) 274F 37 SCF 2750 2E33 LD L,#33 2752 39 ADD HL,SP 2753 312005 LD SP,#0520 2756 27 DAA 2757 312E33 LD SP,#332E 275A 2A4920 LD HL,(#2049) 275D 05 DEC B 275E 3C INC A 275F 312E33 LD SP,#332E 2762 2A4C20 LD HL,(#204C) 2765 08 EX AF,AF' 2766 3A3338 LD A,(#3833) 2769 39 ADD HL,SP 276A 37 SCF 276B 2E33 LD L,#33 276D 2C INC L 276E 4F LD C,A 276F 2006 JR NZ,#2777 ; (6) 2771 3839 JR C,#27AC ; (57) 2773 37 SCF 2774 2E33 LD L,#33 2776 2C INC L 2777 52 LD D,D 2778 2002 JR NZ,#277C ; (2) 277A 3837 JR C,#27B3 ; (55) 277C 55 LD D,L 277D 2004 JR NZ,#2783 ; (4) 277F 312E33 LD SP,#332E 2782 2A5820 LD HL,(#2058) 2785 063A LD B,#3A 2787 33 INC SP 2788 312E33 LD SP,#332E 278B 2A5B20 LD HL,(#205B) 278E 00 NOP 278F 00 NOP 2790 015F00 LD BC,#005F 2793 CD3125 CALL #2531 2796 23 INC HL 2797 23 INC HL 2798 23 INC HL 2799 E5 PUSH HL 279A 11A326 LD DE,#26A3 279D E1 POP HL 279E E5 PUSH HL 279F 1A LD A,(DE) 27A0 13 INC DE 27A1 A7 AND A 27A2 2006 JR NZ,#27AA ; (6) 27A4 CD9024 CALL #2490 27A7 E1 POP HL 27A8 CF RST #8 27A9 15 DEC D 27AA 0600 LD B,#00 27AC 4F LD C,A 27AD 1A LD A,(DE) 27AE 13 INC DE 27AF EDA1 CPI 27B1 2007 JR NZ,#27BA ; (7) 27B3 3EFF LD A,#FF 27B5 A1 AND C 27B6 2809 JR Z,#27C1 ; (9) 27B8 18F3 JR #27AD ; (-13) 27BA EB EX DE,HL 27BB 09 ADD HL,BC 27BC 23 INC HL 27BD 23 INC HL 27BE EB EX DE,HL 27BF 18DC JR #279D ; (-36) 27C1 EB EX DE,HL 27C2 C1 POP BC 27C3 4E LD C,(HL) 27C4 23 INC HL 27C5 46 LD B,(HL) 27C6 60 LD H,B 27C7 69 LD L,C 27C8 C9 RET 27C9 6E LD L,(HL) 27CA 1D DEC E 27CB 46 LD B,(HL) 27CC 2005 JR NZ,#27D3 ; (5) 27CE 35 DEC (HL) 27CF 37 SCF 27D0 2E33 LD L,#33 27D2 39 ADD HL,SP 27D3 312005 LD SP,#0520 27D6 27 DAA 27D7 312E33 LD SP,#332E 27DA 2A4920 LD HL,(#2049) 27DD 05 DEC B 27DE 3C INC A 27DF 312E33 LD SP,#332E 27E2 2A4C20 LD HL,(#204C) 27E5 08 EX AF,AF' 27E6 3A3338 LD A,(#3833) 27E9 39 ADD HL,SP 27EA 37 SCF 27EB 2E33 LD L,#33 27ED 2C INC L 27EE 4F LD C,A 27EF 2006 JR NZ,#27F7 ; (6) 27F1 3839 JR C,#282C ; (57) 27F3 37 SCF 27F4 2E33 LD L,#33 27F6 2C INC L 27F7 52 LD D,D 27F8 2002 JR NZ,#27FC ; (2) 27FA 3837 JR C,#2833 ; (55) 27FC 55 LD D,L 27FD 2004 JR NZ,#2803 ; (4) 27FF 310000 LD SP,#0000