;SORD m.5, interpretr Basic-F ;============================ ;Castecne okomentovany disassemblovany vypis 20KB EPROM (16KB+4KB) ; ;Komplene okomentovany vypis mame, avsak jen na papire (2 kilogramy vypisu) ;a prepisovat se s nim do pocitace by byla silena prace, lec najde-li se ;nekdo kdo se ji ujme, tak rikame: proc ne? ; ;Tento vypis byl vygenerovan na pocitaci DEC PDP11/23+ s bezicim operacnim ;systemem DEC RT-11 programem DIS. Program DIS se ridil ridicim souborem ;BF.RID (coz byl soubor s definicemi datovych oblasti pro dissassembler) ;a data cerpal ze souboru BF.EXE (coz byl binarni soubor s obsahem obou ;EPROM z kartridze Basic-F). ;Soubor BF.RID se bohuzel do dnesnich dnu nedochoval. Byl sestaven na zaklade ;vyse zmineneho "papiroveho" vypisu. ; ;Program DIS byl napsan v jazyce ESI Pascal teamem LZR Soft, posledni verze ;je z 25-Oct-1991. Navod k inplementaci jazyka ESI Pascal pro systemy RT ;a zdrojovy text DIS.PAS jsou k dispozici. ; ;(C) 1987-2001, LZR Soft, Kladno, Czech Republic 2000 : 02 DB 02 ;identifikace slotu - 16KB 2001 : 2E20 DW 202E ;startovaci adresa 2003 : C321 DW 21C3 ;Initial Program Load - IPL (nic, skok na RET) 2005 : C31420 JP 2014 ;rutina RST 20 2008 : 2A7C72 LD HL,(727C) ;rutina RST 28 200B : E5 PUSH HL ;adresa prave vykovavaneho 200C : CD2030 CALL 3020 ;prikazu, posun na dalsi kod 200F : 227C72 LD (727C),HL ;zapis adresy nasledujiciho 2012 : E1 POP HL ;prikazu, puvodni adresa 2013 : C9 RET ;ponechana v HL 2014 : 2A7C72 LD HL,(727C) ;adresa prave vykovavaneho 2017 : 7E LD A,(HL) ;prikazu, vyber token 2018 : FEF8 CP F8 ;CY=bezny prikaz, NC=ukoncovac 201A : C9 RET 201B : DM 'Basic-F' ;inicializacni text 2022 : DB 0D 2023 : DM 'Ready' ;prompt 2028 : DB 0D 2029 : DB CD,20,CA,20,02 202E : ED7B1670 LD SP,(7016) ;start modulu 2032 : 216272 LD HL,7262 2035 : 018F05 LD BC,058F 2038 : CD6008 CALL 0860 ;smazani promennych a bafru 203B : 3E50 LD A,50 203D : 210020 LD HL,2000 ;kontrola same sebe na soucet 2040 : CDCC00 CALL 00CC ;nula 2043 : CDA961 CALL 61A9 ;inicializace grafiky 2046 : CDA267 CALL 67A2 ;inicializace tiskaren 2049 : CDA76D CALL 6DA7 ;inicializace PIO 204C : CD0A60 CALL 600A ;inicializace I/O kanalu 204F : 21A826 LD HL,26A8 ;obsazeni SHIFT/RESET 2052 : 222570 LD (7025),HL 2055 : 21CA26 LD HL,26CA ;obsazeni CTRL/RESET 2058 : 222770 LD (7027),HL 205B : 3E02 LD A,02 205D : 323D70 LD (703D),A ;maximalni pocet eventu 2060 : 3E80 LD A,80 2062 : 32D672 LD (72D6),A ;zastaveni EVENT a SLEEP 2065 : 32DC72 LD (72DC),A 2068 : 21D572 LD HL,72D5 ;tabulka pro EVENT a SLEEP 206B : 223E70 LD (703E),HL 206E : 21D926 LD HL,26D9 2071 : 22D972 LD (72D9),HL 2074 : 217257 LD HL,5772 2077 : 22DF72 LD (72DF),HL 207A : 213C70 LD HL,703C 207D : 3667 LD (HL),67 207F : 3E1A LD A,1A ;inicializace FUNC klaves 2081 : 32DC70 LD (70DC),A 2084 : 21055D LD HL,5D05 2087 : 22DD70 LD (70DD),HL 208A : 21E126 LD HL,26E1 ;inicializace promennych 208D : 11B072 LD DE,72B0 ;interpretru 2090 : 012500 LD BC,0025 2093 : EDB0 LDIR 2095 : 21F177 LD HL,77F1 2098 : 36FF LD (HL),0FF ;pred zacatek programu 0FF 209A : 23 INC HL ;inicializace adres 209B : 226A72 LD (726A),HL ;zacatek programu v basiku 209E : 2A1670 LD HL,(7016) ;konec pameti 20A1 : 228072 LD (7280),HL ;havarijni SP 20A4 : 2B DEC HL 20A5 : 227672 LD (7276),HL ;CLEAR prostor 20A8 : 25 DEC H 20A9 : 23 INC HL 20AA : 227072 LD (7270),HL ;uzivatelsky prostor 20AD : 210202 LD HL,0202 20B0 : 228E72 LD (728E),HL ;type DBL 20B3 : 3E12 LD A,12 20B5 : 329072 LD (7290),A ;LEN 18 20B8 : 210484 LD HL,8404 20BB : 22C973 LD (73C9),HL ;attribut OPEN a LIST 20BE : CDD144 CALL 44D1 ;smazani programu, eventu ... 20C1 : 211B20 LD HL,201B ;tisk textu Basic-F 20C4 : CD415D CALL 5D41 20C7 : CD8526 CALL 2685 ;nacteni programu *BOOT* 20CA : CDD144 CALL 44D1 ;nenacetl se dobre, takze ho ; *** hlavni smycka *** ;pro jistotu smazem 20CD : ED7B8072 LD SP,(7280) ;nastaveni havarijniho SP 20D1 : CD5F60 CALL 605F ;CLOSE a OPEN konzoly pro tisk 20D4 : CF RST 08 ;textu Ready 20D5 : E6FC AND FC ;DIFLGA - neni insert a CTRL 20D7 : 77 LD (HL),A ;vykonavat 20D8 : CB67 BIT 4,A ;pokud je kurzor mimo VIEW 20DA : C4B613 CALL NZ,13B6 ;pak jej umistime na HOME 20DD : 212820 LD HL,2028 ;tisk 20E0 : CD415D CALL 5D41 20E3 : CD4003 CALL 0340 ;zastavit sestupny citac 20E6 : 212320 LD HL,2023 ;tisk Ready 20E9 : CD415D CALL 5D41 20EC : CDD272 CALL 72D2 ;hacek - cinnost uzivatele 20EF : 3A9172 LD A,(7291) ;test na AUTO 20F2 : CB6F BIT 5,A ;je AUTO? 20F4 : C41F24 CALL NZ,241F ;ano, vytisknout cislo radku 20F7 : 3005 JR NC,20FE ;nebyla chyba 20F9 : 219172 LD HL,7291 ;byla chyba, zrus AUTO 20FC : CBAE RES 5,(HL) 20FE : 06FF LD B,0FF ;maximalni pocet znaku 2100 : 210D74 LD HL,740D ;adresa bafru 2103 : E5 PUSH HL 2104 : CD395D CALL 5D39 ;nacteni znaku do bafru 2107 : 360D LD (HL),0D ;z prime konzoly, ukoncit 2109 : E1 POP HL 210A : DC7530 CALL C,3075 ;znaku bylo vic - chyba Err 12 210D : 110E75 LD DE,750E ;bafr kompilace 2110 : 3EFF LD A,0FF ;ukoncovac 2112 : 12 LD (DE),A 2113 : 13 INC DE 2114 : CD5121 CALL 2151 ;zkompiluj radek 2117 : ED43AC72 LD (72AC),BC ;uloz cislo radku 211B : 300C JR NC,2129 ;byl radek cely? 211D : 219172 LD HL,7291 ;ne 2120 : CB6E BIT 5,(HL) ;bylo AUTO? 2122 : CBAE RES 5,(HL) ;zrus ho 2124 : CCC421 CALL Z,21C4 ;a nebylo-li AUTO smaz radek 2127 : 18D5 JR 20FE ;cteme dal 2129 : 78 LD A,B ;je cislo radku 0? 212A : B1 OR C 212B : 280F JR Z,213C ;ano, pak je to primi mod 212D : D5 PUSH DE 212E : CDC421 CALL 21C4 ;zrus puvodni radek 2131 : C1 POP BC 2132 : 0600 LD B,00 2134 : 110F75 LD DE,750F 2137 : CD0822 CALL 2208 ;vloz novy radek 213A : 18B0 JR 20EC ;a pokracujeme 213C : 219372 LD HL,7293 ;STOP je OFF 213F : CBBE RES 7,(HL) 2141 : 210E75 LD HL,750E 2144 : 36FF LD (HL),0FF ;zacatek radku 2146 : 23 INC HL 2147 : E5 PUSH HL 2148 : 1600 LD D,00 214A : 19 ADD HL,DE 214B : 3600 LD (HL),00 ;konec radku 214D : E1 POP HL 214E : C31227 JP 2712 ;vykonej radek ;kompilace radku 2151 : CDD325 CALL 25D3 ;preskoc mezery a zastav na prvnim znaku 2154 : CD7B25 CALL 257B ;dekoduj cislo radku do BC 2157 : DC6B30 CALL C,306B ;ERR2- chybne cislo radku 215A : CB78 BIT 7,B ;neni cislo zaporne? 215C : C46B30 CALL NZ,306B ;ERR2- chybne cislo radku 215F : E5 PUSH HL 2160 : CDD325 CALL 25D3 ;preskoc mezery a zastav na prvnim znaku 2163 : E1 POP HL 2164 : FE0D CP 0D ;je konec radku - ? 2166 : 37 SCF 2167 : C8 RET Z ;ano - ven s CY 2168 : 3A9172 LD A,(7291) 216B : E62F AND 2F 216D : CBE7 SET 4,A 216F : 329172 LD (7291),A ;bit kompilace - radek je uplny 2172 : AF XOR A 2173 : 320A73 LD (730A),A 2176 : C5 PUSH BC 2177 : D5 PUSH DE 2178 : C5 PUSH BC 2179 : 0600 LD B,00 217B : 7E LD A,(HL) 217C : FE20 CP 20 217E : 2004 JR NZ,2184 2180 : 23 INC HL 2181 : 04 INC B 2182 : 18F7 JR 217B 2184 : 78 LD A,B 2185 : 08 EX AF,AF' 2186 : C1 POP BC 2187 : D5 PUSH DE 2188 : C5 PUSH BC 2189 : ED5BB572 LD DE,(72B5) 218D : CDE123 CALL 23E1 2190 : C1 POP BC 2191 : D1 POP DE 2192 : 300A JR NC,219E 2194 : 7E LD A,(HL) 2195 : CD9423 CALL 2394 2198 : 3E29 LD A,29 219A : 3002 JR NC,219E 219C : 3E24 LD A,24 219E : CDAF23 CALL 23AF 21A1 : CD4C22 CALL 224C 21A4 : F5 PUSH AF 21A5 : 3A0A73 LD A,(730A) 21A8 : 81 ADD A,C 21A9 : DC6B30 CALL C,306B 21AC : 320A73 LD (730A),A 21AF : F1 POP AF 21B0 : E5 PUSH HL 21B1 : 219172 LD HL,7291 21B4 : CBA6 RES 4,(HL) 21B6 : E1 POP HL 21B7 : FEFF CP FF 21B9 : 20BD JR NZ,2178 21BB : C1 POP BC 21BC : E5 PUSH HL 21BD : EB EX DE,HL 21BE : ED42 SBC HL,BC 21C0 : 5D LD E,L 21C1 : E1 POP HL 21C2 : C1 POP BC 21C3 : C9 RET ;zruseni radku BC 21C4 : 50 LD D,B 21C5 : 59 LD E,C 21C6 : CD1D29 CALL 291D 21C9 : D8 RET C 21CA : E5 PUSH HL 21CB : CDD729 CALL 29D7 21CE : E1 POP HL 21CF : E5 PUSH HL 21D0 : 4E LD C,(HL) 21D1 : 0600 LD B,00 21D3 : 09 ADD HL,BC 21D4 : 7E LD A,(HL) 21D5 : 23 INC HL 21D6 : 3C INC A 21D7 : 20F7 JR NZ,21D0 21D9 : EB EX DE,HL 21DA : E1 POP HL 21DB : 3E04 LD A,04 21DD : CDE244 CALL 44E2 21E0 : E5 PUSH HL 21E1 : E5 PUSH HL 21E2 : D5 PUSH DE 21E3 : E5 PUSH HL 21E4 : EB EX DE,HL 21E5 : B7 OR A 21E6 : ED52 SBC HL,DE 21E8 : EB EX DE,HL 21E9 : 2A6C72 LD HL,(726C) 21EC : ED52 SBC HL,DE 21EE : 226C72 LD (726C),HL 21F1 : E1 POP HL 21F2 : D1 POP DE 21F3 : 2A6E72 LD HL,(726E) 21F6 : B7 OR A 21F7 : ED52 SBC HL,DE 21F9 : 44 LD B,H 21FA : 4D LD C,L 21FB : EB EX DE,HL 21FC : D1 POP DE 21FD : EDB0 LDIR 21FF : EB EX DE,HL 2200 : 226E72 LD (726E),HL 2203 : CD7F29 CALL 297F 2206 : E1 POP HL 2207 : C9 RET 2208 : FD220673 LD (7306),IY 220C : 3E04 LD A,04 220E : CDE244 CALL 44E2 2211 : D5 PUSH DE 2212 : C5 PUSH BC 2213 : E5 PUSH HL 2214 : CDD729 CALL 29D7 2217 : E1 POP HL 2218 : C1 POP BC 2219 : C5 PUSH BC 221A : E5 PUSH HL 221B : EB EX DE,HL 221C : 2A6E72 LD HL,(726E) 221F : E5 PUSH HL 2220 : B7 OR A 2221 : ED52 SBC HL,DE 2223 : E3 EX (SP),HL 2224 : E5 PUSH HL 2225 : 09 ADD HL,BC 2226 : E5 PUSH HL 2227 : ED5B0673 LD DE,(7306) 222B : ED52 SBC HL,DE 222D : D47030 CALL NC,3070 2230 : E1 POP HL 2231 : 226E72 LD (726E),HL 2234 : E5 PUSH HL 2235 : 2A6C72 LD HL,(726C) 2238 : 09 ADD HL,BC 2239 : 226C72 LD (726C),HL 223C : E1 POP HL 223D : EB EX DE,HL 223E : 1B DEC DE 223F : E1 POP HL 2240 : 2B DEC HL 2241 : C1 POP BC 2242 : EDB8 LDDR 2244 : D1 POP DE 2245 : C1 POP BC 2246 : E1 POP HL 2247 : EDB0 LDIR 2249 : C37F29 JP 297F 224C : D5 PUSH DE 224D : 13 INC DE 224E : 08 EX AF,AF' 224F : 12 LD (DE),A 2250 : 13 INC DE 2251 : 08 EX AF,AF' 2252 : 12 LD (DE),A 2253 : 13 INC DE 2254 : F5 PUSH AF 2255 : 3A9172 LD A,(7291) 2258 : CB67 BIT 4,A 225A : 280B JR Z,2267 225C : CBA7 RES 4,A 225E : 329172 LD (7291),A 2261 : 79 LD A,C 2262 : 12 LD (DE),A 2263 : 13 INC DE 2264 : 78 LD A,B 2265 : 12 LD (DE),A 2266 : 13 INC DE 2267 : F1 POP AF 2268 : FE0A CP 0A 226A : DC4723 CALL C,2347 226D : D5 PUSH DE 226E : ED5BBA72 LD DE,(72BA) 2272 : CDE123 CALL 23E1 2275 : D1 POP DE 2276 : 3818 JR C,2290 2278 : CDCB23 CALL 23CB 227B : 12 LD (DE),A 227C : 13 INC DE 227D : FEF8 CP F8 227F : 38EC JR C,226D 2281 : C1 POP BC 2282 : F5 PUSH AF 2283 : EB EX DE,HL 2284 : E5 PUSH HL 2285 : ED42 SBC HL,BC 2287 : 7D LD A,L 2288 : E1 POP HL 2289 : EB EX DE,HL 228A : 3D DEC A 228B : 02 LD (BC),A 228C : 4F LD C,A 228D : 0C INC C 228E : F1 POP AF 228F : C9 RET 2290 : 016D22 LD BC,226D 2293 : C5 PUSH BC 2294 : 7E LD A,(HL) 2295 : 23 INC HL 2296 : FE26 CP 26 2298 : 2830 JR Z,22CA 229A : FE22 CP 22 229C : 2822 JR Z,22C0 229E : FE24 CP 24 22A0 : 2834 JR Z,22D6 22A2 : FE41 CP 41 22A4 : 2B DEC HL 22A5 : 385A JR C,2301 22A7 : CDBD72 CALL 72BD 22AA : D5 PUSH DE 22AB : CDD622 CALL 22D6 22AE : 7E LD A,(HL) 22AF : 23 INC HL 22B0 : CD9E23 CALL 239E 22B3 : 3005 JR NC,22BA 22B5 : 2B DEC HL 22B6 : 3A8F72 LD A,(728F) 22B9 : 47 LD B,A 22BA : 3E80 LD A,80 22BC : B0 OR B 22BD : C1 POP BC 22BE : 02 LD (BC),A 22BF : C9 RET 22C0 : 3E8C LD A,8C 22C2 : 12 LD (DE),A 22C3 : 13 INC DE 22C4 : 012200 LD BC,0022 22C7 : C35223 JP 2352 22CA : CD9D25 CALL 259D 22CD : DC6F30 CALL C,306F 22D0 : 3E8F LD A,8F 22D2 : 12 LD (DE),A 22D3 : 13 INC DE 22D4 : 1864 JR 233A 22D6 : 3EC2 LD A,0C2 22D8 : 12 LD (DE),A 22D9 : 13 INC DE 22DA : AF XOR A 22DB : 12 LD (DE),A 22DC : 13 INC DE 22DD : 12 LD (DE),A 22DE : 13 INC DE 22DF : D5 PUSH DE 22E0 : 13 INC DE 22E1 : 0600 LD B,00 22E3 : 7E LD A,(HL) 22E4 : CD9423 CALL 2394 22E7 : 3815 JR C,22FE 22E9 : 7E LD A,(HL) 22EA : CD8A23 CALL 238A 22ED : 3809 JR C,22F8 22EF : CD8500 CALL 0085 22F2 : 12 LD (DE),A 22F3 : 13 INC DE 22F4 : 23 INC HL 22F5 : 04 INC B 22F6 : 18F1 JR 22E9 22F8 : 78 LD A,B 22F9 : C1 POP BC 22FA : 02 LD (BC),A 22FB : FE21 CP 21 22FD : D8 RET C 22FE : CD6B30 CALL 306B 2301 : D5 PUSH DE 2302 : CD4835 CALL 3548 2305 : D1 POP DE 2306 : 38F6 JR C,22FE 2308 : 3A9172 LD A,(7291) 230B : CB7F BIT 7,A 230D : 2015 JR NZ,2324 230F : 7E LD A,(HL) 2310 : 23 INC HL 2311 : CDA323 CALL 23A3 2314 : 3005 JR NC,231B 2316 : 2B DEC HL 2317 : 3A8E72 LD A,(728E) 231A : 47 LD B,A 231B : 3E88 LD A,88 231D : B0 OR B 231E : 12 LD (DE),A 231F : 13 INC DE 2320 : FE8A CP 8A 2322 : 281D JR Z,2341 2324 : D5 PUSH DE 2325 : CD2432 CALL 3224 2328 : 42 LD B,D 2329 : 4B LD C,E 232A : D1 POP DE 232B : 3A9172 LD A,(7291) 232E : CB7F BIT 7,A 2330 : 2808 JR Z,233A 2332 : 3EC0 LD A,0C0 2334 : 12 LD (DE),A 2335 : 13 INC DE 2336 : CB78 BIT 7,B 2338 : 20C4 JR NZ,22FE 233A : 79 LD A,C 233B : 12 LD (DE),A 233C : 13 INC DE 233D : 78 LD A,B 233E : 12 LD (DE),A 233F : 13 INC DE 2340 : C9 RET 2341 : EB EX DE,HL 2342 : CDFD30 CALL 30FD 2345 : EB EX DE,HL 2346 : C9 RET 2347 : FE04 CP 04 2349 : 3804 JR C,234F 234B : 2819 JR Z,2366 234D : 1890 JR 22DF 234F : 010000 LD BC,0000 2352 : D5 PUSH DE 2353 : 13 INC DE 2354 : 7E LD A,(HL) 2355 : FE0D CP 0D 2357 : 282D JR Z,2386 2359 : 23 INC HL 235A : 0C INC C 235B : 0D DEC C 235C : 2803 JR Z,2361 235E : B9 CP C 235F : 2825 JR Z,2386 2361 : 12 LD (DE),A 2362 : 13 INC DE 2363 : 04 INC B 2364 : 18EE JR 2354 2366 : D5 PUSH DE 2367 : 13 INC DE 2368 : 010000 LD BC,0000 236B : 7E LD A,(HL) 236C : FE22 CP 22 236E : 2004 JR NZ,2374 2370 : 79 LD A,C 2371 : 2F CPL 2372 : 4F LD C,A 2373 : 7E LD A,(HL) 2374 : FE0D CP 0D 2376 : 280E JR Z,2386 2378 : 0C INC C 2379 : 0D DEC C 237A : 2004 JR NZ,2380 237C : FE3A CP 3A 237E : 2806 JR Z,2386 2380 : 12 LD (DE),A 2381 : 13 INC DE 2382 : 23 INC HL 2383 : 04 INC B 2384 : 18E5 JR 236B 2386 : 78 LD A,B 2387 : C1 POP BC 2388 : 02 LD (BC),A 2389 : C9 RET 238A : FE2E CP 2E 238C : C8 RET Z 238D : FE30 CP 30 238F : D8 RET C 2390 : FE3A CP 3A 2392 : 3F CCF 2393 : D0 RET NC 2394 : FE41 CP 41 2396 : D8 RET C 2397 : FE5B CP 5B 2399 : 3F CCF 239A : D0 RET NC 239B : FE5F CP 5F 239D : C9 RET 239E : 0604 LD B,04 23A0 : FE24 CP 24 23A2 : C8 RET Z 23A3 : 0600 LD B,00 23A5 : FE25 CP 25 23A7 : C8 RET Z 23A8 : 0602 LD B,02 23AA : FE23 CP 23 23AC : C8 RET Z 23AD : 37 SCF 23AE : C9 RET 23AF : E5 PUSH HL 23B0 : C5 PUSH BC 23B1 : 21C523 LD HL,23C5 23B4 : 010600 LD BC,0006 23B7 : EDB1 CPIR 23B9 : 219172 LD HL,7291 23BC : CBBE RES 7,(HL) 23BE : 2002 JR NZ,23C2 23C0 : CBFE SET 7,(HL) 23C2 : C1 POP BC 23C3 : E1 POP HL 23C4 : C9 RET 23C5 : DB 24,23,35,33,34,14 23CB : CDD723 CALL 23D7 23CE : D8 RET C 23CF : E5 PUSH HL 23D0 : 219172 LD HL,7291 23D3 : CBFE SET 7,(HL) 23D5 : E1 POP HL 23D6 : C9 RET 23D7 : FE20 CP 20 23D9 : C8 RET Z 23DA : FED5 CP D5 23DC : D8 RET C 23DD : FED8 CP D8 23DF : 3F CCF 23E0 : C9 RET 23E1 : CDD325 CALL 25D3 23E4 : FE2E CP 2E 23E6 : 37 SCF 23E7 : C8 RET Z 23E8 : 1A LD A,(DE) 23E9 : B7 OR A 23EA : 37 SCF 23EB : C8 RET Z 23EC : 4F LD C,A 23ED : 13 INC DE 23EE : 1A LD A,(DE) 23EF : 47 LD B,A 23F0 : B7 OR A 23F1 : 2822 JR Z,2415 23F3 : C5 PUSH BC 23F4 : D5 PUSH DE 23F5 : E5 PUSH HL 23F6 : 7E LD A,(HL) 23F7 : 23 INC HL 23F8 : FE2E CP 2E 23FA : 2008 JR NZ,2404 23FC : 1A LD A,(DE) 23FD : FE41 CP 41 23FF : 380F JR C,2410 2401 : AF XOR A 2402 : 180B JR 240F 2404 : CD8500 CALL 0085 2407 : 4F LD C,A 2408 : 13 INC DE 2409 : 1A LD A,(DE) 240A : B9 CP C 240B : 2003 JR NZ,2410 240D : 10E7 DJNZ 23F6 240F : E3 EX (SP),HL 2410 : E1 POP HL 2411 : D1 POP DE 2412 : C1 POP BC 2413 : 79 LD A,C 2414 : C8 RET Z 2415 : 48 LD C,B 2416 : 0600 LD B,00 2418 : EB EX DE,HL 2419 : 09 ADD HL,BC 241A : EB EX DE,HL 241B : 13 INC DE 241C : 18CA JR 23E8 241E : C9 RET 241F : ED5BAE72 LD DE,(72AE) 2423 : 2AAC72 LD HL,(72AC) 2426 : 19 ADD HL,DE 2427 : EB EX DE,HL 2428 : CB7A BIT 7,D 242A : 37 SCF 242B : C0 RET NZ 242C : CDFD25 CALL 25FD 242F : 213724 LD HL,2437 2432 : CD415D CALL 5D41 2435 : B7 OR A 2436 : C9 RET 2437 : DB 20,00 2439 : 7E LD A,(HL) 243A : B7 OR A 243B : 37 SCF 243C : C8 RET Z 243D : 2B DEC HL 243E : 7E LD A,(HL) 243F : 23 INC HL 2440 : 23 INC HL 2441 : 46 LD B,(HL) 2442 : 23 INC HL 2443 : 4E LD C,(HL) 2444 : 23 INC HL 2445 : 3C INC A 2446 : 200D JR NZ,2455 2448 : C5 PUSH BC 2449 : D5 PUSH DE 244A : 5E LD E,(HL) 244B : 23 INC HL 244C : 56 LD D,(HL) 244D : 23 INC HL 244E : E3 EX (SP),HL 244F : CD1026 CALL 2610 2452 : E3 EX (SP),HL 2453 : D1 POP DE 2454 : C1 POP BC 2455 : 04 INC B 2456 : 05 DEC B 2457 : 2806 JR Z,245F 2459 : 3E20 LD A,20 245B : 12 LD (DE),A 245C : 13 INC DE 245D : 10FC DJNZ 245B 245F : 79 LD A,C 2460 : CD6824 CALL 2468 2463 : FEFF CP FF 2465 : 20D6 JR NZ,243D 2467 : C9 RET 2468 : F5 PUSH AF 2469 : E5 PUSH HL 246A : 2AB572 LD HL,(72B5) 246D : CD6925 CALL 2569 2470 : 385A JR C,24CC 2472 : 7E LD A,(HL) 2473 : 320673 LD (7306),A 2476 : CDE725 CALL 25E7 2479 : E1 POP HL 247A : F1 POP AF 247B : 46 LD B,(HL) 247C : FE0A CP 0A 247E : DCDA25 CALL C,25DA 2481 : 7E LD A,(HL) 2482 : E5 PUSH HL 2483 : 2ABA72 LD HL,(72BA) 2486 : CD6925 CALL 2569 2489 : 0E41 LD C,41 248B : F5 PUSH AF 248C : DC4E25 CALL C,254E 248F : F1 POP AF 2490 : 3808 JR C,249A 2492 : 4E LD C,(HL) 2493 : CD4E25 CALL 254E 2496 : CDE725 CALL 25E7 2499 : B7 OR A 249A : E1 POP HL 249B : 7E LD A,(HL) 249C : 23 INC HL 249D : 3805 JR C,24A4 249F : FEF8 CP F8 24A1 : 38DE JR C,2481 24A3 : C9 RET 24A4 : 018124 LD BC,2481 24A7 : C5 PUSH BC 24A8 : FEC2 CP C2 24AA : 2835 JR Z,24E1 24AC : FEC1 CP C1 24AE : 2841 JR Z,24F1 24B0 : FEC0 CP C0 24B2 : 284C JR Z,2500 24B4 : FE8F CP 8F 24B6 : 2854 JR Z,250C 24B8 : FE8C CP 8C 24BA : 281A JR Z,24D6 24BC : FE8A CP 8A 24BE : 285C JR Z,251C 24C0 : FE88 CP 88 24C2 : 2827 JR Z,24EB 24C4 : D46B30 CALL NC,306B 24C7 : FE80 CP 80 24C9 : D2C072 JP NC,72C0 24CC : CD6B30 CALL 306B 24CF : F5 PUSH AF 24D0 : CDE524 CALL 24E5 24D3 : F1 POP AF 24D4 : 1852 JR 2528 24D6 : CDDC24 CALL 24DC 24D9 : CDE724 CALL 24E7 24DC : 3E22 LD A,22 24DE : 12 LD (DE),A 24DF : 13 INC DE 24E0 : C9 RET 24E1 : 3E24 LD A,24 24E3 : 12 LD (DE),A 24E4 : 13 INC DE 24E5 : 23 INC HL 24E6 : 23 INC HL 24E7 : 46 LD B,(HL) 24E8 : C3DA25 JP 25DA 24EB : CD0025 CALL 2500 24EE : AF XOR A 24EF : 1837 JR 2528 24F1 : D5 PUSH DE 24F2 : 5E LD E,(HL) 24F3 : 23 INC HL 24F4 : 56 LD D,(HL) 24F5 : E5 PUSH HL 24F6 : EB EX DE,HL 24F7 : 23 INC HL 24F8 : 23 INC HL 24F9 : 23 INC HL 24FA : 5E LD E,(HL) 24FB : 23 INC HL 24FC : 56 LD D,(HL) 24FD : E1 POP HL 24FE : 1804 JR 2504 2500 : D5 PUSH DE 2501 : 5E LD E,(HL) 2502 : 23 INC HL 2503 : 56 LD D,(HL) 2504 : 23 INC HL 2505 : E3 EX (SP),HL 2506 : CD1026 CALL 2610 2509 : D1 POP DE 250A : EB EX DE,HL 250B : C9 RET 250C : 3E26 LD A,26 250E : 12 LD (DE),A 250F : 13 INC DE 2510 : D5 PUSH DE 2511 : 5E LD E,(HL) 2512 : 23 INC HL 2513 : 56 LD D,(HL) 2514 : 23 INC HL 2515 : E3 EX (SP),HL 2516 : CD4E26 CALL 264E 2519 : D1 POP DE 251A : EB EX DE,HL 251B : C9 RET 251C : CDEE30 CALL 30EE 251F : E5 PUSH HL 2520 : EB EX DE,HL 2521 : CD893F CALL 3F89 2524 : EB EX DE,HL 2525 : E1 POP HL 2526 : 3E02 LD A,02 2528 : CD3425 CALL 2534 252B : DC6B30 CALL C,306B 252E : 79 LD A,C 252F : B7 OR A 2530 : C8 RET Z 2531 : 12 LD (DE),A 2532 : 13 INC DE 2533 : C9 RET 2534 : ED4B8F72 LD BC,(728F) 2538 : E607 AND 07 253A : B9 CP C 253B : 0E00 LD C,00 253D : C8 RET Z 253E : B7 OR A 253F : 0E25 LD C,25 2541 : C8 RET Z 2542 : FE02 CP 02 2544 : 0E23 LD C,23 2546 : C8 RET Z 2547 : FE04 CP 04 2549 : 0E24 LD C,24 254B : C8 RET Z 254C : 37 SCF 254D : C9 RET 254E : 3A0673 LD A,(7306) 2551 : CD6225 CALL 2562 2554 : 79 LD A,C 2555 : 320673 LD (7306),A 2558 : D8 RET C 2559 : CD6225 CALL 2562 255C : D8 RET C 255D : 3E20 LD A,20 255F : 12 LD (DE),A 2560 : 13 INC DE 2561 : C9 RET 2562 : FE41 CP 41 2564 : D8 RET C 2565 : FE5B CP 5B 2567 : 3F CCF 2568 : C9 RET 2569 : 4F LD C,A 256A : 7E LD A,(HL) 256B : B7 OR A 256C : 37 SCF 256D : C8 RET Z 256E : 23 INC HL 256F : 46 LD B,(HL) 2570 : 23 INC HL 2571 : B9 CP C 2572 : C8 RET Z 2573 : D5 PUSH DE 2574 : 58 LD E,B 2575 : 1600 LD D,00 2577 : 19 ADD HL,DE 2578 : D1 POP DE 2579 : 18EF JR 256A 257B : D5 PUSH DE ;dekodovani cisla radku 257C : 06FF LD B,0FF ;z adresy HL do BC 257E : CD8325 CALL 2583 2581 : 1820 JR 25A3 2583 : EB EX DE,HL ;nacteni SIGN cisla 2584 : 210000 LD HL,0000 ;z adresy HL do DE 2587 : 1A LD A,(DE) ;znak 2588 : CD0B37 CALL 370B ;je to cislice? 258B : 3F CCF 258C : 3032 JR NC,25C0 ;primy mod ci konec 258E : C5 PUSH BC 258F : 4F LD C,A 2590 : 0600 LD B,00 ;BC=prvni cislo 2592 : CD6D26 CALL 266D ;10*HL+BC 2595 : C1 POP BC 2596 : 2027 JR NZ,25BF ;A<>0 SCF a ven 2598 : 13 INC DE ;posun na dalsi znak 2599 : 10EC DJNZ 2587 259B : 1821 JR 25BE ;ven 259D : D5 PUSH DE ;nacteni HEX cisla 259E : 06FF LD B,0FF ;z adresy HL do BC 25A0 : CDA725 CALL 25A7 25A3 : 42 LD B,D 25A4 : 4B LD C,E 25A5 : D1 POP DE 25A6 : C9 RET 25A7 : EB EX DE,HL ;nacteni HEX cisla 25A8 : 210000 LD HL,0000 ;z adresy HL do DE 25AB : 1A LD A,(DE) 25AC : CDC225 CALL 25C2 ;test na hex cislici 25AF : 3F CCF 25B0 : 300E JR NC,25C0 25B2 : 08 EX AF,AF' 25B3 : CD7B26 CALL 267B ;o rad vzhuru 25B6 : 2007 JR NZ,25BF 25B8 : 08 EX AF,AF' 25B9 : B5 OR L 25BA : 6F LD L,A 25BB : 13 INC DE 25BC : 10ED DJNZ 25AB ;dalsi znak 25BE : DB F6 ;OR 37 25BF : 37 SCF 25C0 : EB EX DE,HL 25C1 : C9 RET 25C2 : CD0B37 CALL 370B ;test na HEX cislici 25C5 : D0 RET NC 25C6 : CD8500 CALL 0085 25C9 : FE41 CP 41 25CB : D8 RET C 25CC : FE47 CP 47 25CE : 3F CCF 25CF : D8 RET C 25D0 : D637 SUB 37 25D2 : C9 RET 25D3 : 7E LD A,(HL) 25D4 : FE20 CP 20 25D6 : C0 RET NZ 25D7 : 23 INC HL 25D8 : 18F9 JR 25D3 25DA : 23 INC HL 25DB : C5 PUSH BC 25DC : 04 INC B 25DD : 05 DEC B 25DE : 2805 JR Z,25E5 25E0 : 48 LD C,B 25E1 : 0600 LD B,00 25E3 : EDB0 LDIR 25E5 : C1 POP BC 25E6 : C9 RET 25E7 : 04 INC B 25E8 : 05 DEC B 25E9 : C8 RET Z 25EA : 7E LD A,(HL) 25EB : FE41 CP 41 25ED : 3808 JR C,25F7 25EF : FE5B CP 5B 25F1 : 3004 JR NC,25F7 25F3 : 3A0773 LD A,(7307) 25F6 : B6 OR (HL) 25F7 : 12 LD (DE),A 25F8 : 13 INC DE 25F9 : 23 INC HL 25FA : 10EE DJNZ 25EA 25FC : C9 RET 25FD : D5 PUSH DE ;tisk INT cisla z DE 25FE : E5 PUSH HL 25FF : 210D74 LD HL,740D 2602 : E5 PUSH HL 2603 : CD1026 CALL 2610 2606 : E1 POP HL 2607 : CD415D CALL 5D41 260A : E1 POP HL 260B : D1 POP DE 260C : C9 RET 260D : 3E20 LD A,20 ;prevod cisla v DE na text na HL 260F : DB 06 ;LD B,0AF 2610 : AF XOR A 2611 : D5 PUSH DE 2612 : F5 PUSH AF 2613 : E5 PUSH HL 2614 : 010600 LD BC,0006 2617 : 09 ADD HL,BC 2618 : 70 LD (HL),B 2619 : EB EX DE,HL 261A : CB7C BIT 7,H 261C : C42E2E CALL NZ,2E2E 261F : 0E0A LD C,0A 2621 : C5 PUSH BC 2622 : CD5201 CALL 0152 2625 : C1 POP BC 2626 : F630 OR 30 2628 : 1B DEC DE 2629 : 12 LD (DE),A 262A : 04 INC B 262B : 7C LD A,H 262C : B5 OR L 262D : 20F2 JR NZ,2621 262F : E1 POP HL 2630 : F1 POP AF 2631 : E3 EX (SP),HL 2632 : CB7C BIT 7,H 2634 : E3 EX (SP),HL 2635 : 2005 JR NZ,263C 2637 : B7 OR A 2638 : 2807 JR Z,2641 263A : 1802 JR 263E 263C : 3E2D LD A,2D ;tisk SIGN cisla 263E : 1B DEC DE 263F : 12 LD (DE),A 2640 : 04 INC B 2641 : EB EX DE,HL 2642 : C5 PUSH BC 2643 : 48 LD C,B 2644 : 0C INC C 2645 : 0600 LD B,00 2647 : EDB0 LDIR 2649 : 1B DEC DE 264A : EB EX DE,HL 264B : C1 POP BC 264C : D1 POP DE 264D : C9 RET 264E : 14 INC D ;prevod DE na hexa text 264F : 15 DEC D 2650 : 2804 JR Z,2656 2652 : 7A LD A,D 2653 : CD5726 CALL 2657 2656 : 7B LD A,E 2657 : F5 PUSH AF 2658 : 0F RRCA 2659 : 0F RRCA 265A : 0F RRCA 265B : 0F RRCA 265C : CD6026 CALL 2660 265F : F1 POP AF 2660 : E60F AND 0F 2662 : FE0A CP 0A 2664 : 3802 JR C,2668 2666 : C607 ADD A,07 2668 : C630 ADD A,30 266A : 77 LD (HL),A 266B : 23 INC HL 266C : C9 RET 266D : AF XOR A 266E : 29 ADD HL,HL 266F : 8F ADC A,A 2670 : E5 PUSH HL 2671 : 29 ADD HL,HL 2672 : 8F ADC A,A 2673 : 29 ADD HL,HL 2674 : 8F ADC A,A 2675 : 09 ADD HL,BC 2676 : 8F ADC A,A 2677 : C1 POP BC 2678 : 09 ADD HL,BC 2679 : 8F ADC A,A 267A : C9 RET 267B : AF XOR A 267C : 29 ADD HL,HL 267D : 8F ADC A,A 267E : 29 ADD HL,HL 267F : 8F ADC A,A 2680 : 29 ADD HL,HL 2681 : 8F ADC A,A 2682 : 29 ADD HL,HL 2683 : 8F ADC A,A 2684 : C9 RET 2685 : AF XOR A ;hledani implicitniho zarizeni 2686 : 21EE73 LD HL,73EE ;doba cekani na odpoved od FX 2689 : 3601 LD (HL),01 268B : CDB36D CALL 6DB3 ;je READY? 268E : 34 INC (HL) 268F : D8 RET C ;neni, zarizeni bude CMT: 2690 : 1101F4 LD DE,F401 ;je, tak dej kurzor mimo VIEW 2693 : CDDD13 CALL 13DD 2696 : 3E05 LD A,05 ;zarizeni bude FX: 2698 : 32CB73 LD (73CB),A 269B : 11A126 LD DE,26A1 ;a zkus najit soubor *BOOT* 269E : C3E445 JP 45E4 ;a spustit ho 26A1 : DB 06 ;kdyz se to nepovede, chybove 26A3 : DM '*BOOT*' ;hlaseni se nevytiskne! 26A8 : ED7B8072 LD SP,(7280) ;obsluha SHIFT/RESET 26AC : CDA76D CALL 6DA7 26AF : CD1E18 CALL 181E 26B2 : CDD729 CALL 29D7 26B5 : CD7C29 CALL 297C 26B8 : 328E70 LD (708E),A 26BB : 32A472 LD (72A4),A 26BE : 329372 LD (7293),A 26C1 : 329172 LD (7291),A 26C4 : CD1C4A CALL 4A1C 26C7 : C3CD20 JP 20CD 26CA : 219172 LD HL,7291 ;obsluha CTRL/RESET 26CD : CBAE RES 5,(HL) 26CF : 219372 LD HL,7293 26D2 : CBFE SET 7,(HL) 26D4 : E1 POP HL ;ignorace HALT 26D5 : D1 POP DE 26D6 : C1 POP BC 26D7 : F1 POP AF 26D8 : C9 RET 26D9 : E5 PUSH HL ;EVENT 1 26DA : 219472 LD HL,7294 26DD : CBF6 SET 6,(HL) 26DF : E1 POP HL 26E0 : C9 RET ;tabulka inicializacnich hodnot promennych od adresy 72B0 26E1 : DB 73F3,57,2786,5924,2A,2DD2,5B24,02 26EE : DB C3,C3,21 ;JP 21C3 26F1 : DB C3,CF,24 ;JP 24CF 26F4 : DB C3,CC,24 ;JP 24CC 26F7 : DB C3,C3,21 ;JP 21C3 26FA : DB C3,C3,21 ;JP 21C3 26FD : DB C3,C3,21 ;JP 21C3 2700 : DB C3,CC,24 ;JP 24CC 2703 : DB C3,C3,21 ;JP 21C3 2706 : ED7B8072 LD SP,(7280) ;start "RUN" 270A : 2A6A72 LD HL,(726A) 270D : 1803 JR 2712 270F : 2A7E72 LD HL,(727E) 2712 : 3A9372 LD A,(7293) 2715 : B7 OR A 2716 : C43628 CALL NZ,2836 2719 : 2B DEC HL 271A : 7E LD A,(HL) 271B : 23 INC HL 271C : 4E LD C,(HL) 271D : 0C INC C 271E : 0D DEC C 271F : 283E JR Z,275F 2721 : 23 INC HL 2722 : 0600 LD B,00 2724 : E5 PUSH HL 2725 : 09 ADD HL,BC 2726 : 227E72 LD (727E),HL 2729 : E1 POP HL 272A : 23 INC HL 272B : 5E LD E,(HL) 272C : 50 LD D,B 272D : 23 INC HL 272E : FEFD CP FD 2730 : 3833 JR C,2765 2732 : 3C INC A 2733 : 2008 JR NZ,273D 2735 : 4E LD C,(HL) 2736 : 23 INC HL 2737 : 46 LD B,(HL) 2738 : 23 INC HL 2739 : ED437872 LD (7278),BC 273D : FD228272 LD (7282),IY 2741 : 227C72 LD (727C),HL 2744 : 2A7272 LD HL,(7272) 2747 : 227472 LD (7274),HL 274A : 210F27 LD HL,270F 274D : E5 PUSH HL 274E : 2AB372 LD HL,(72B3) 2751 : 08 EX AF,AF' 2752 : 3AB272 LD A,(72B2) 2755 : BB CP E 2756 : 380A JR C,2762 2758 : 19 ADD HL,DE 2759 : 19 ADD HL,DE 275A : 5E LD E,(HL) 275B : 23 INC HL 275C : 66 LD H,(HL) 275D : 6B LD L,E 275E : E9 JP (HL) 275F : CD094A CALL 4A09 2762 : CD6B30 CALL 306B 2765 : FEFC CP FC 2767 : C2CF72 JP NZ,72CF 276A : 3C INC A 276B : D9 EXX 276C : 21A472 LD HL,72A4 276F : CB46 BIT 0,(HL) 2771 : CB86 RES 0,(HL) 2773 : D9 EXX 2774 : 20C7 JR NZ,273D 2776 : 2A7E72 LD HL,(727E) 2779 : 2B DEC HL 277A : 7E LD A,(HL) 277B : 23 INC HL 277C : 3C INC A 277D : 2893 JR Z,2712 277F : 4E LD C,(HL) 2780 : 23 INC HL 2781 : 0600 LD B,00 2783 : 09 ADD HL,BC 2784 : 18F3 JR 2779 ;tabulka adres prikazu 2786 : DW 2762,49BF,49BF,2762 ;NOP REM ' a ! NOP 278E : DW 49BF,4353,2762,2762 ;' a ! DATA NOP NOP 2796 : DW 2762,2762,435A,438C ;NOP NOP AUTO CLEAR 279E : DW 441E,43E2,4401,5D89 ;CLIST CONT DEL KILL 27A6 : DW 441B,44CA,4726,4506 ;LIST NEW OLD RENUM 27AE : DW 45A5,4645,45FB,4614 ;RUN SAVE STEP TAPE 27B6 : DW 45FE,4626,4717,46BA ;TRACE TYPE VERIFY VSAVE 27BE : DW 473D,5079,5025,4938 ;CHAIN CLOSE CONSOLE DIM 27C6 : DW 4A09,4A22,5251,4B9C ;END FOR GET GOSUB 27CE : DW 4BA9,4BC8,4DA6,5071 ;GOTO IF INPUT LEN 27D6 : DW 4C19,4C19,4B05,4C6E ;LET = NEXT ON 27DE : DW 5096,4CE2,5120,3F4B ;OPEN PRINT PUT RANDOMIZE 27E6 : DW 4E0B,517B,4F82,4F70 ;READ RECORD REPEAT RESTORE 27EE : DW 4F01,4F13,4FB0,4FD9 ;RESUME RETURN STOP SWAP 27F6 : DW 5862,4F8F,5205,51A1 ;THETA UNTIL BCOL CLS 27FE : DW 520E,5319,51F9,6287 ;COLOR DRAW FCOL GINIT 2806 : DW 52EC,530B,5246,51CA ;GMODE GMOVE LOC LOCATE 280E : DW 51EA,5342,5311,51D0 ;MAG PAINT PLOT SCOD 2816 : DW 51D5,5288,51AB,56B8 ;SCOL STCHR VIEW CALL 281E : DW 56D1,5804,6D14,536B ;EVENT EXE FX GCOPY 2826 : DW 5796,57A4,5904,5708 ;OUT POKE POKEW SG 282E : DW 5750,57B2,5785,44ED ;SLEEP VPOKE WAIT NOLIST 2836 : 87 ADD A,A 2837 : 300E JR NC,2847 2839 : EB EX DE,HL 283A : 219372 LD HL,7293 283D : CBBE RES 7,(HL) 283F : EB EX DE,HL 2840 : ED5B7872 LD DE,(7278) 2844 : C3B74F JP 4FB7 2847 : 87 ADD A,A 2848 : 300A JR NC,2854 284A : CDA528 CALL 28A5 284D : F5 PUSH AF 284E : E5 PUSH HL 284F : D4BE28 CALL NC,28BE 2852 : E1 POP HL 2853 : F1 POP AF 2854 : 87 ADD A,A 2855 : 3006 JR NC,285D 2857 : CDA528 CALL 28A5 285A : D2B74F JP NC,4FB7 285D : B7 OR A 285E : C8 RET Z 285F : ED4B9472 LD BC,(7294) 2863 : A1 AND A,C 2864 : C8 RET Z 2865 : 0600 LD B,00 2867 : 87 ADD A,A 2868 : 04 INC B 2869 : 30FC JR NC,2867 286B : 3A9272 LD A,(7292) 286E : B8 CP B 286F : D8 RET C 2870 : 227E72 LD (727E),HL 2873 : 4F LD C,A 2874 : C5 PUSH BC 2875 : AF XOR A 2876 : 37 SCF 2877 : 1F RRA 2878 : 10FD DJNZ 2877 287A : 2F CPL 287B : 219472 LD HL,7294 287E : A6 AND A,(HL) 287F : 77 LD (HL),A 2880 : C1 POP BC 2881 : 05 DEC B 2882 : 58 LD E,B 2883 : 1600 LD D,00 2885 : 219572 LD HL,7295 2888 : 19 ADD HL,DE 2889 : 19 ADD HL,DE 288A : 5E LD E,(HL) 288B : 23 INC HL 288C : 56 LD D,(HL) 288D : 7A LD A,D 288E : B3 OR E 288F : 2A7E72 LD HL,(727E) 2892 : C8 RET Z 2893 : 78 LD A,B 2894 : 329272 LD (7292),A 2897 : B7 OR A 2898 : 2005 JR NZ,289F 289A : 219372 LD HL,7293 289D : CBA6 RES 4,(HL) 289F : 79 LD A,C 28A0 : C611 ADD A,11 28A2 : C3D24C JP 4CD2 28A5 : 2B DEC HL 28A6 : 4E LD C,(HL) 28A7 : 23 INC HL 28A8 : 0C INC C 28A9 : 37 SCF 28AA : C0 RET NZ 28AB : 4E LD C,(HL) 28AC : 0C INC C 28AD : 0D DEC C 28AE : C8 RET Z 28AF : E5 PUSH HL 28B0 : 23 INC HL 28B1 : 23 INC HL 28B2 : 23 INC HL 28B3 : 5E LD E,(HL) 28B4 : 23 INC HL 28B5 : 56 LD D,(HL) 28B6 : E1 POP HL 28B7 : 4F LD C,A 28B8 : 7A LD A,D 28B9 : B3 OR E 28BA : 79 LD A,C 28BB : C0 RET NZ 28BC : 37 SCF 28BD : C9 RET 28BE : D5 PUSH DE 28BF : 21CF28 LD HL,28CF 28C2 : CD415D CALL 5D41 28C5 : D1 POP DE 28C6 : CDFD25 CALL 25FD 28C9 : 21D128 LD HL,28D1 28CC : C3415D JP 5D41 28CF : DB '[',00,']',00 28D3 : FEC1 CP C1 28D5 : C8 RET Z 28D6 : FEC0 CP C0 28D8 : 200C JR NZ,28E6 28DA : E5 PUSH HL 28DB : CD1D29 CALL 291D 28DE : 3838 JR C,2918 28E0 : EB EX DE,HL 28E1 : E1 POP HL 28E2 : 36C1 LD (HL),0C1 28E4 : 1810 JR 28F6 28E6 : FEC2 CP C2 28E8 : 2016 JR NZ,2900 28EA : 7A LD A,D 28EB : B3 OR E 28EC : C0 RET NZ 28ED : E5 PUSH HL 28EE : 23 INC HL 28EF : 23 INC HL 28F0 : 23 INC HL 28F1 : EB EX DE,HL 28F2 : CD3E29 CALL 293E 28F5 : E1 POP HL 28F6 : 23 INC HL 28F7 : 73 LD (HL),E 28F8 : 23 INC HL 28F9 : 72 LD (HL),D 28FA : 3EFF LD A,0FF 28FC : 32A672 LD (72A6),A 28FF : C9 RET 2900 : 227C72 LD (727C),HL 2903 : CD6F2A CALL 2A6F 2906 : FE04 CP 04 2908 : CA3E29 JP Z,293E 290B : B7 OR A 290C : 2807 JR Z,2915 290E : EB EX DE,HL 290F : CDEE30 CALL 30EE 2912 : CD2432 CALL 3224 2915 : CD1D29 CALL 291D 2918 : DC7130 CALL C,3071 291B : EB EX DE,HL 291C : C9 RET 291D : DD2A6A72 LD IX,(726A) 2921 : 010000 LD BC,0000 2924 : C5 PUSH BC 2925 : D9 EXX 2926 : C1 POP BC 2927 : D9 EXX 2928 : DDE5 PUSH IX 292A : D5 PUSH DE 292B : CD452A CALL 2A45 292E : D1 POP DE 292F : E1 POP HL 2930 : D8 RET C 2931 : 20F5 JR NZ,2928 2933 : E5 PUSH HL 2934 : 60 LD H,B 2935 : 69 LD L,C 2936 : ED52 SBC HL,DE 2938 : E1 POP HL 2939 : 38E9 JR C,2924 293B : C8 RET Z 293C : 37 SCF 293D : C9 RET 293E : DD2A6A72 LD IX,(726A) 2942 : CD5129 CALL 2951 2945 : DC7130 CALL C,3071 2948 : E5 PUSH HL 2949 : CD5129 CALL 2951 294C : D47A30 CALL NC,307A 294F : D1 POP DE 2950 : C9 RET 2951 : DDE5 PUSH IX 2953 : D5 PUSH DE 2954 : CD452A CALL 2A45 2957 : 2004 JR NZ,295D 2959 : C5 PUSH BC 295A : D9 EXX 295B : C1 POP BC 295C : D9 EXX 295D : 7B LD A,E 295E : D1 POP DE 295F : C1 POP BC 2960 : D8 RET C 2961 : FE05 CP 05 2963 : 20EC JR NZ,2951 2965 : 1A LD A,(DE) 2966 : BE CP (HL) 2967 : 20E8 JR NZ,2951 2969 : C5 PUSH BC 296A : D5 PUSH DE 296B : 47 LD B,A 296C : 13 INC DE 296D : 23 INC HL 296E : 1A LD A,(DE) 296F : CD8500 CALL 0085 2972 : BE CP (HL) 2973 : 2002 JR NZ,2977 2975 : 10F5 DJNZ 296C 2977 : D1 POP DE 2978 : E1 POP HL 2979 : C8 RET Z 297A : 18D5 JR 2951 297C : CDCE29 CALL 29CE 297F : CD8D29 CALL 298D 2982 : CDAD29 CALL 29AD 2985 : CD9D29 CALL 299D 2988 : 227872 LD (7278),HL 298B : AF XOR A 298C : C9 RET 298D : 2A7072 LD HL,(7270) 2990 : 227272 LD (7272),HL 2993 : 2B DEC HL 2994 : 228272 LD (7282),HL 2997 : 36FF LD (HL),0FF 2999 : E5 PUSH HL 299A : FDE1 POP IY 299C : C9 RET 299D : 216A30 LD HL,306A 29A0 : 228872 LD (7288),HL 29A3 : 210000 LD HL,0000 29A6 : 228472 LD (7284),HL 29A9 : 228672 LD (7286),HL 29AC : C9 RET 29AD : 2A6A72 LD HL,(726A) 29B0 : 2B DEC HL 29B1 : 228A72 LD (728A),HL 29B4 : 3ABC72 LD A,(72BC) 29B7 : 329272 LD (7292),A 29BA : 219472 LD HL,7294 29BD : 010D00 LD BC,000D 29C0 : CD6008 CALL 0860 29C3 : 219372 LD HL,7293 29C6 : 7E LD A,(HL) 29C7 : 32A372 LD (72A3),A 29CA : E660 AND 60 29CC : 77 LD (HL),A 29CD : C9 RET 29CE : 2A6C72 LD HL,(726C) 29D1 : 226E72 LD (726E),HL 29D4 : C3C972 JP 72C9 29D7 : CD042A CALL 2A04 29DA : 21A572 LD HL,72A5 29DD : 7E LD A,(HL) 29DE : B7 OR A 29DF : C8 RET Z 29E0 : 3600 LD (HL),00 29E2 : DD2A6A72 LD IX,(726A) 29E6 : CD382A CALL 2A38 29E9 : DACC72 JP C,72CC 29EC : CD632A CALL 2A63 29EF : FEF8 CP F8 29F1 : 30F3 JR NC,29E6 29F3 : E6E0 AND E0 29F5 : FE80 CP 80 29F7 : 20F3 JR NZ,29EC 29F9 : CB5E BIT 3,(HL) 29FB : 20EF JR NZ,29EC 29FD : 23 INC HL 29FE : AF XOR A 29FF : 77 LD (HL),A 2A00 : 23 INC HL 2A01 : 77 LD (HL),A 2A02 : 18E8 JR 29EC 2A04 : 21A672 LD HL,72A6 2A07 : 7E LD A,(HL) 2A08 : B7 OR A 2A09 : C8 RET Z 2A0A : 3600 LD (HL),00 2A0C : DD2A6A72 LD IX,(726A) 2A10 : CD382A CALL 2A38 2A13 : D8 RET C 2A14 : CD632A CALL 2A63 2A17 : FEF8 CP F8 2A19 : 30F5 JR NC,2A10 2A1B : FEC1 CP C1 2A1D : 200E JR NZ,2A2D 2A1F : 36C0 LD (HL),0C0 2A21 : 23 INC HL 2A22 : 13 INC DE 2A23 : 13 INC DE 2A24 : 13 INC DE 2A25 : 1A LD A,(DE) 2A26 : 77 LD (HL),A 2A27 : 23 INC HL 2A28 : 13 INC DE 2A29 : 1A LD A,(DE) 2A2A : 77 LD (HL),A 2A2B : 18E7 JR 2A14 2A2D : FEC2 CP C2 2A2F : 20E3 JR NZ,2A14 2A31 : 23 INC HL 2A32 : AF XOR A 2A33 : 77 LD (HL),A 2A34 : 23 INC HL 2A35 : 77 LD (HL),A 2A36 : 18DC JR 2A14 2A38 : CD452A CALL 2A45 2A3B : D8 RET C 2A3C : 220873 LD (7308),HL 2A3F : 7B LD A,E 2A40 : FE0A CP 0A 2A42 : D0 RET NC 2A43 : 18F3 JR 2A38 2A45 : DDE5 PUSH IX 2A47 : E1 POP HL 2A48 : 2B DEC HL 2A49 : 7E LD A,(HL) 2A4A : 23 INC HL 2A4B : 5E LD E,(HL) 2A4C : 1C INC E 2A4D : 1D DEC E 2A4E : 37 SCF 2A4F : C8 RET Z 2A50 : 23 INC HL 2A51 : 1600 LD D,00 2A53 : E5 PUSH HL 2A54 : 19 ADD HL,DE 2A55 : E5 PUSH HL 2A56 : DDE1 POP IX 2A58 : E1 POP HL 2A59 : 23 INC HL 2A5A : 5E LD E,(HL) 2A5B : 23 INC HL 2A5C : 3C INC A 2A5D : C0 RET NZ 2A5E : 4E LD C,(HL) 2A5F : 23 INC HL 2A60 : 46 LD B,(HL) 2A61 : 23 INC HL 2A62 : C9 RET 2A63 : 2A0873 LD HL,(7308) 2A66 : E5 PUSH HL 2A67 : CD2030 CALL 3020 2A6A : 220873 LD (7308),HL 2A6D : E1 POP HL 2A6E : C9 RET 2A6F : 0606 LD B,06 2A71 : C5 PUSH BC 2A72 : CDDE2B CALL 2BDE 2A75 : C1 POP BC 2A76 : 08 EX AF,AF' 2A77 : 2A7C72 LD HL,(727C) 2A7A : 7E LD A,(HL) 2A7B : FEA0 CP A0 2A7D : 380B JR C,2A8A 2A7F : FEB4 CP B4 2A81 : 3007 JR NC,2A8A 2A83 : CDAB2A CALL 2AAB 2A86 : 79 LD A,C 2A87 : B8 CP B 2A88 : 3802 JR C,2A8C 2A8A : 08 EX AF,AF' 2A8B : C9 RET 2A8C : C5 PUSH BC 2A8D : 01752A LD BC,2A75 2A90 : C5 PUSH BC 2A91 : 4E LD C,(HL) 2A92 : 23 INC HL 2A93 : 227C72 LD (727C),HL 2A96 : 08 EX AF,AF' 2A97 : 47 LD B,A 2A98 : 3A5E73 LD A,(735E) 2A9B : B7 OR A 2A9C : C4B92A CALL NZ,2AB9 2A9F : D5 PUSH DE 2AA0 : C5 PUSH BC 2AA1 : 08 EX AF,AF' 2AA2 : 011B2B LD BC,2B1B 2AA5 : C5 PUSH BC 2AA6 : 47 LD B,A 2AA7 : C5 PUSH BC 2AA8 : C3722A JP 2A72 2AAB : 0E05 LD C,05 2AAD : FEAF CP AF 2AAF : D0 RET NC 2AB0 : 0D DEC C 2AB1 : FEA8 CP A8 2AB3 : D0 RET NC 2AB4 : 0F RRCA 2AB5 : E603 AND 03 2AB7 : 4F LD C,A 2AB8 : C9 RET 2AB9 : 110B73 LD DE,730B 2ABC : F5 PUSH AF 2ABD : AF XOR A 2ABE : 325E73 LD (735E),A 2AC1 : F1 POP AF 2AC2 : D5 PUSH DE 2AC3 : D9 EXX 2AC4 : 010800 LD BC,0008 2AC7 : CDE22A CALL 2AE2 2ACA : E1 POP HL 2ACB : D5 PUSH DE 2ACC : 010800 LD BC,0008 2ACF : EDB0 LDIR 2AD1 : D9 EXX 2AD2 : D1 POP DE 2AD3 : C9 RET 2AD4 : C5 PUSH BC 2AD5 : E5 PUSH HL 2AD6 : 79 LD A,C 2AD7 : 0600 LD B,00 2AD9 : 03 INC BC 2ADA : CDE22A CALL 2AE2 2ADD : 12 LD (DE),A 2ADE : 13 INC DE 2ADF : E1 POP HL 2AE0 : C1 POP BC 2AE1 : C9 RET 2AE2 : 2A7472 LD HL,(7274) 2AE5 : 54 LD D,H 2AE6 : 5D LD E,L 2AE7 : 09 ADD HL,BC 2AE8 : 3814 JR C,2AFE 2AEA : CDF12A CALL 2AF1 2AED : 227472 LD (7274),HL 2AF0 : C9 RET 2AF1 : D5 PUSH DE 2AF2 : E5 PUSH HL 2AF3 : 115000 LD DE,0050 2AF6 : 19 ADD HL,DE 2AF7 : 3805 JR C,2AFE 2AF9 : ED72 SBC HL,SP 2AFB : E1 POP HL 2AFC : D1 POP DE 2AFD : D8 RET C 2AFE : CD7730 CALL 3077 2B01 : D5 PUSH DE 2B02 : E5 PUSH HL 2B03 : 1805 JR 2B0A 2B05 : D5 PUSH DE 2B06 : E5 PUSH HL 2B07 : 2A6E72 LD HL,(726E) 2B0A : 116400 LD DE,0064 2B0D : 19 ADD HL,DE 2B0E : 3808 JR C,2B18 2B10 : FDE5 PUSH IY 2B12 : D1 POP DE 2B13 : ED52 SBC HL,DE 2B15 : E1 POP HL 2B16 : D1 POP DE 2B17 : D8 RET C 2B18 : CD7030 CALL 3070 2B1B : C1 POP BC 2B1C : 67 LD H,A 2B1D : A8 XOR B 2B1E : CB57 BIT 2,A 2B20 : C47630 CALL NZ,3076 2B23 : 7C LD A,H 2B24 : FE04 CP 04 2B26 : 2840 JR Z,2B68 2B28 : B0 OR B 2B29 : 2826 JR Z,2B51 2B2B : 7C LD A,H 2B2C : B7 OR A 2B2D : 2813 JR Z,2B42 2B2F : 3A5E73 LD A,(735E) 2B32 : B7 OR A 2B33 : C4B92A CALL NZ,2AB9 2B36 : 78 LD A,B 2B37 : B7 OR A 2B38 : 200E JR NZ,2B48 2B3A : E1 POP HL 2B3B : EB EX DE,HL 2B3C : CDDB31 CALL 31DB 2B3F : EB EX DE,HL 2B40 : 180A JR 2B4C 2B42 : CDDB31 CALL 31DB 2B45 : CDB92A CALL 2AB9 2B48 : E1 POP HL 2B49 : CDEE30 CALL 30EE 2B4C : 21AC2B LD HL,2BAC 2B4F : 1807 JR 2B58 2B51 : E1 POP HL 2B52 : 220B73 LD (730B),HL 2B55 : 21882B LD HL,2B88 2B58 : 79 LD A,C 2B59 : D6A0 SUB A0 2B5B : 87 ADD A,A 2B5C : 4F LD C,A 2B5D : 0600 LD B,00 2B5F : 09 ADD HL,BC 2B60 : 4E LD C,(HL) 2B61 : 23 INC HL 2B62 : 46 LD B,(HL) 2B63 : C5 PUSH BC 2B64 : 2A0B73 LD HL,(730B) 2B67 : C9 RET 2B68 : 79 LD A,C 2B69 : FEA6 CP A6 2B6B : 2004 JR NZ,2B71 2B6D : E1 POP HL 2B6E : C35C2F JP 2F5C 2B71 : D6A8 SUB A8 2B73 : FE07 CP 07 2B75 : D46B30 CALL NC,306B 2B78 : 87 ADD A,A 2B79 : 4F LD C,A 2B7A : 0600 LD B,00 2B7C : 21D02B LD HL,2BD0 2B7F : 09 ADD HL,BC 2B80 : 4E LD C,(HL) 2B81 : 23 INC HL 2B82 : 46 LD B,(HL) 2B83 : E1 POP HL 2B84 : C5 PUSH BC 2B85 : C3FF2F JP 2FFF ;tabulka adres aritmetickych operatoru pro INT 2B88 : DW 2DB6,2E67,2EA7,2EF3 2B90 : DW 2DB6,2F2F,2F34,2F40 2B98 : DW 2F7E,2DB6,2F8A,2F95 2BA0 : DW 2FA2,2FAE,2FB9,2FC2 2BA8 : DW 2FCD ;tabulka adres aritmetickych operatoru pro DBL 2BAA : DW 2FD8,2DB6,37B1,3322 2BB2 : DW 3329,2DB6,2F2C,3247 2BBA : DW 323E,2F79,2DB6,2F85 2BC2 : DW 2F90,2F9D,2FA9,2FB4 2BCA : DW 2FBF,2FCA,2FD5 ;tabulka adres pro porovnavani retezcu 2BD0 : DW 2F81,2DB6,2F8D,2F98 2BD8 : DW 2FA5,2FB1,2FBC 2BDE : AF XOR A 2BDF : 325E73 LD (735E),A 2BE2 : EF RST 28 2BE3 : B7 OR A 2BE4 : F2BF2D JP P,2DBF 2BE7 : FEA0 CP A0 2BE9 : 3030 JR NC,2C1B 2BEB : FE88 CP 88 2BED : 3013 JR NC,2C02 2BEF : CD7B2C CALL 2C7B 2BF2 : EB EX DE,HL 2BF3 : FE02 CP 02 2BF5 : C8 RET Z 2BF6 : FE04 CP 04 2BF8 : C8 RET Z 2BF9 : EB EX DE,HL 2BFA : 5E LD E,(HL) 2BFB : 23 INC HL 2BFC : 56 LD D,(HL) 2BFD : B7 OR A 2BFE : C8 RET Z 2BFF : CD6B30 CALL 306B 2C02 : FE90 CP 90 2C04 : D2C372 JP NC,72C3 2C07 : E607 AND 07 2C09 : C8 RET Z 2C0A : FE07 CP 07 2C0C : 2002 JR NZ,2C10 2C0E : AF XOR A 2C0F : C9 RET 2C10 : 23 INC HL 2C11 : EB EX DE,HL 2C12 : FE02 CP 02 2C14 : C8 RET Z 2C15 : 23 INC HL 2C16 : FE04 CP 04 2C18 : C8 RET Z 2C19 : 18E4 JR 2BFF 2C1B : FEBD CP BD 2C1D : 200B JR NZ,2C2A 2C1F : CD6F2A CALL 2A6F 2C22 : 4F LD C,A 2C23 : EF RST 28 2C24 : FEBE CP BE 2C26 : 79 LD A,C 2C27 : C8 RET Z 2C28 : 18D5 JR 2BFF 2C2A : FEA6 CP A6 2C2C : 28B0 JR Z,2BDE 2C2E : FEA7 CP A7 2C30 : 2008 JR NZ,2C3A 2C32 : 0601 LD B,01 2C34 : CD712A CALL 2A71 2C37 : C3412E JP 2E41 2C3A : FEBF CP BF 2C3C : 2008 JR NZ,2C46 2C3E : 0605 LD B,05 2C40 : CD712A CALL 2A71 2C43 : C3502E JP 2E50 2C46 : FEC0 CP C0 2C48 : 280B JR Z,2C55 2C4A : FEC1 CP C1 2C4C : 2009 JR NZ,2C57 2C4E : EB EX DE,HL 2C4F : 23 INC HL 2C50 : 23 INC HL 2C51 : 23 INC HL 2C52 : 5E LD E,(HL) 2C53 : 23 INC HL 2C54 : 56 LD D,(HL) 2C55 : AF XOR A 2C56 : C9 RET 2C57 : FEC2 CP C2 2C59 : 20CD JR NZ,2C28 2C5B : 23 INC HL 2C5C : 23 INC HL 2C5D : 23 INC HL 2C5E : EB EX DE,HL 2C5F : DD2A6A72 LD IX,(726A) 2C63 : CD5129 CALL 2951 2C66 : DC7130 CALL C,3071 2C69 : D9 EXX 2C6A : 50 LD D,B 2C6B : 59 LD E,C 2C6C : AF XOR A 2C6D : C9 RET 2C6E : 7E LD A,(HL) 2C6F : E6F8 AND F8 2C71 : FE80 CP 80 2C73 : C8 RET Z 2C74 : CD6B30 CALL 306B 2C77 : EF RST 28 2C78 : CD6F2C CALL 2C6F 2C7B : 7A LD A,D 2C7C : B3 OR E 2C7D : CC012D CALL Z,2D01 2C80 : EB EX DE,HL 2C81 : 7E LD A,(HL) 2C82 : E60F AND 0F 2C84 : 23 INC HL 2C85 : 4E LD C,(HL) 2C86 : 23 INC HL 2C87 : 0600 LD B,00 2C89 : 09 ADD HL,BC 2C8A : CB5F BIT 3,A 2C8C : 2008 JR NZ,2C96 2C8E : 4E LD C,(HL) 2C8F : FE04 CP 04 2C91 : 23 INC HL 2C92 : C8 RET Z 2C93 : B7 OR A 2C94 : 2B DEC HL 2C95 : C9 RET 2C96 : F5 PUSH AF 2C97 : E5 PUSH HL 2C98 : EF RST 28 2C99 : E1 POP HL 2C9A : DD210000 LD IX,0000 2C9E : 23 INC HL 2C9F : 23 INC HL 2CA0 : 46 LD B,(HL) 2CA1 : 23 INC HL 2CA2 : C5 PUSH BC 2CA3 : E5 PUSH HL 2CA4 : DDE5 PUSH IX 2CA6 : CD9141 CALL 4191 2CA9 : DDE1 POP IX 2CAB : E1 POP HL 2CAC : 4E LD C,(HL) 2CAD : 23 INC HL 2CAE : 46 LD B,(HL) 2CAF : 23 INC HL 2CB0 : E5 PUSH HL 2CB1 : C5 PUSH BC 2CB2 : D5 PUSH DE 2CB3 : DDE5 PUSH IX 2CB5 : D1 POP DE 2CB6 : 03 INC BC 2CB7 : CDDF2E CALL 2EDF 2CBA : D1 POP DE 2CBB : E5 PUSH HL 2CBC : DDE1 POP IX 2CBE : DD19 ADD IX,DE 2CC0 : E1 POP HL 2CC1 : B7 OR A 2CC2 : ED52 SBC HL,DE 2CC4 : 380A JR C,2CD0 2CC6 : EF RST 28 2CC7 : E1 POP HL 2CC8 : C1 POP BC 2CC9 : 05 DEC B 2CCA : 2807 JR Z,2CD3 2CCC : FECE CP CE 2CCE : 28D2 JR Z,2CA2 2CD0 : CD7230 CALL 3072 2CD3 : FEBE CP BE 2CD5 : 20F9 JR NZ,2CD0 2CD7 : EB EX DE,HL 2CD8 : DDE5 PUSH IX 2CDA : E1 POP HL 2CDB : F1 POP AF 2CDC : E607 AND 07 2CDE : F5 PUSH AF 2CDF : 2003 JR NZ,2CE4 2CE1 : 29 ADD HL,HL 2CE2 : 1819 JR 2CFD 2CE4 : FE02 CP 02 2CE6 : 010800 LD BC,0008 2CE9 : 280B JR Z,2CF6 2CEB : FE04 CP 04 2CED : C46B30 CALL NZ,306B 2CF0 : 1A LD A,(DE) 2CF1 : 4F LD C,A 2CF2 : 13 INC DE 2CF3 : 0600 LD B,00 2CF5 : 03 INC BC 2CF6 : D5 PUSH DE 2CF7 : EB EX DE,HL 2CF8 : CDDF2E CALL 2EDF 2CFB : 0D DEC C 2CFC : D1 POP DE 2CFD : 19 ADD HL,DE 2CFE : F1 POP AF 2CFF : 37 SCF 2D00 : C9 RET 2D01 : E5 PUSH HL 2D02 : EB EX DE,HL 2D03 : 2A7C72 LD HL,(727C) 2D06 : 7E LD A,(HL) 2D07 : FEBD CP BD 2D09 : EB EX DE,HL 2D0A : 7E LD A,(HL) 2D0B : 2002 JR NZ,2D0F 2D0D : CBDF SET 3,A 2D0F : E61F AND 1F 2D11 : 23 INC HL 2D12 : 23 INC HL 2D13 : 23 INC HL 2D14 : CD612D CALL 2D61 2D17 : EB EX DE,HL 2D18 : 21A572 LD HL,72A5 2D1B : 36FF LD (HL),0FF 2D1D : 2A6E72 LD HL,(726E) 2D20 : B7 OR A 2D21 : ED52 SBC HL,DE 2D23 : 2036 JR NZ,2D5B 2D25 : EB EX DE,HL 2D26 : E5 PUSH HL 2D27 : 7E LD A,(HL) 2D28 : CB5F BIT 3,A 2D2A : C47930 CALL NZ,3079 2D2D : 23 INC HL 2D2E : 4E LD C,(HL) 2D2F : 23 INC HL 2D30 : 0600 LD B,00 2D32 : 09 ADD HL,BC 2D33 : E607 AND 07 2D35 : FE04 CP 04 2D37 : 2813 JR Z,2D4C 2D39 : 0602 LD B,02 2D3B : B7 OR A 2D3C : 2807 JR Z,2D45 2D3E : 0608 LD B,08 2D40 : FE02 CP 02 2D42 : C46B30 CALL NZ,306B 2D45 : 3600 LD (HL),00 2D47 : 23 INC HL 2D48 : 10FB DJNZ 2D45 2D4A : 180B JR 2D57 2D4C : ED4B9072 LD BC,(7290) 2D50 : 0600 LD B,00 2D52 : 71 LD (HL),C 2D53 : 23 INC HL 2D54 : 70 LD (HL),B 2D55 : 23 INC HL 2D56 : 09 ADD HL,BC 2D57 : D1 POP DE 2D58 : 226E72 LD (726E),HL 2D5B : E1 POP HL 2D5C : 23 INC HL 2D5D : 73 LD (HL),E 2D5E : 23 INC HL 2D5F : 72 LD (HL),D 2D60 : C9 RET 2D61 : CD052B CALL 2B05 2D64 : CDC672 CALL 72C6 2D67 : ED5B6E72 LD DE,(726E) 2D6B : 12 LD (DE),A 2D6C : 13 INC DE 2D6D : 4E LD C,(HL) 2D6E : 0600 LD B,00 2D70 : 03 INC BC 2D71 : EDB0 LDIR 2D73 : 2A6C72 LD HL,(726C) 2D76 : E5 PUSH HL 2D77 : ED5B6E72 LD DE,(726E) 2D7B : 1A LD A,(DE) 2D7C : BE CP (HL) 2D7D : 200F JR NZ,2D8E 2D7F : 13 INC DE 2D80 : 23 INC HL 2D81 : 1A LD A,(DE) 2D82 : BE CP (HL) 2D83 : 2009 JR NZ,2D8E 2D85 : 47 LD B,A 2D86 : 13 INC DE 2D87 : 23 INC HL 2D88 : 1A LD A,(DE) 2D89 : BE CP (HL) 2D8A : 2002 JR NZ,2D8E 2D8C : 10F8 DJNZ 2D86 2D8E : E1 POP HL 2D8F : C8 RET Z 2D90 : 7E LD A,(HL) 2D91 : 23 INC HL 2D92 : 4E LD C,(HL) 2D93 : 23 INC HL 2D94 : 0600 LD B,00 2D96 : 09 ADD HL,BC 2D97 : CB5F BIT 3,A 2D99 : 201E JR NZ,2DB9 2D9B : E607 AND 07 2D9D : FE04 CP 04 2D9F : 2008 JR NZ,2DA9 2DA1 : 4E LD C,(HL) 2DA2 : 23 INC HL 2DA3 : 0600 LD B,00 2DA5 : 23 INC HL 2DA6 : 09 ADD HL,BC 2DA7 : 18CD JR 2D76 2DA9 : 0E02 LD C,02 2DAB : 09 ADD HL,BC 2DAC : B7 OR A 2DAD : 28C7 JR Z,2D76 2DAF : 0E06 LD C,06 2DB1 : 09 ADD HL,BC 2DB2 : FE02 CP 02 2DB4 : 28C0 JR Z,2D76 2DB6 : CD6B30 CALL 306B 2DB9 : 4E LD C,(HL) 2DBA : 23 INC HL 2DBB : 46 LD B,(HL) 2DBC : 09 ADD HL,BC 2DBD : 18B7 JR 2D76 2DBF : 4F LD C,A 2DC0 : 3AB772 LD A,(72B7) 2DC3 : B9 CP C 2DC4 : 38F0 JR C,2DB6 2DC6 : 0600 LD B,00 2DC8 : 2AB872 LD HL,(72B8) 2DCB : 09 ADD HL,BC 2DCC : 09 ADD HL,BC 2DCD : 4E LD C,(HL) 2DCE : 23 INC HL 2DCF : 66 LD H,(HL) 2DD0 : 69 LD L,C 2DD1 : E9 JP (HL) ;tabulka adres funkci 2DD2 : DW 2762,537F,5379,53FA ;NOP ABS ATN CDBL 2DDA : DW 5400,3C0E,3A7B,3849 ;CINT COS EXP FIX 2DE2 : DW 3853,38C0,379D,5389 ;INT LN LOG PI 2DEA : DW 538F,53C0,3C15,39DE ;RND SGN SIN SQR 2DF2 : DW 3D17,53DD,5425,5505 ;TAN XCHG ASCII CHR$ 2DFA : DW 5513,5434,5494,54FD ;HEX$ INSTR LEFT$ LEN 2E02 : DW 54B6,5556,567E,54A2 ;MID$ NUM$ RDST$ RIGHT$ 2E0A : DW 5524,565B,57C3,584E ;RPT$ VAL CALC ERR 2E12 : DW 5855,585B,5869,58BA ;ERRL ERRL$ FRE INKEY$ 2E1A : DW 58E9,58F2,5919,53E5 ;INP PEEK PEEKW REG 2E22 : DW 58CD,58D3,58F9 ;TIME VARPTR VPEEK 2E28 : EB EX DE,HL 2E29 : CD342E CALL 2E34 2E2C : EB EX DE,HL 2E2D : C9 RET 2E2E : EB EX DE,HL 2E2F : CD372E CALL 2E37 2E32 : EB EX DE,HL 2E33 : C9 RET 2E34 : CB7A BIT 7,D 2E36 : C8 RET Z 2E37 : F5 PUSH AF 2E38 : AF XOR A 2E39 : 93 SUB E 2E3A : 5F LD E,A 2E3B : 3E00 LD A,00 2E3D : 9A SBC A,D 2E3E : 57 LD D,A 2E3F : F1 POP AF 2E40 : C9 RET 2E41 : B7 OR A 2E42 : 28F3 JR Z,2E37 2E44 : FE02 CP 02 2E46 : C46B30 CALL NZ,306B 2E49 : EB EX DE,HL 2E4A : CDEE30 CALL 30EE 2E4D : C33A38 JP 383A 2E50 : B7 OR A 2E51 : 280C JR Z,2E5F 2E53 : FE02 CP 02 2E55 : C46B30 CALL NZ,306B 2E58 : EB EX DE,HL 2E59 : CDEE30 CALL 30EE 2E5C : CD2432 CALL 3224 2E5F : 7A LD A,D 2E60 : 2F CPL 2E61 : 57 LD D,A 2E62 : 7B LD A,E 2E63 : 2F CPL 2E64 : 5F LD E,A 2E65 : AF XOR A 2E66 : C9 RET 2E67 : 7A LD A,D 2E68 : B7 OR A 2E69 : FC942E CALL M,2E94 2E6C : B3 OR E 2E6D : 13 INC DE 2E6E : C8 RET Z 2E6F : 1B DEC DE 2E70 : 42 LD B,D 2E71 : 4B LD C,E 2E72 : 110100 LD DE,0001 2E75 : C5 PUSH BC 2E76 : CD842E CALL 2E84 2E79 : C1 POP BC 2E7A : D0 RET NC 2E7B : E5 PUSH HL 2E7C : 50 LD D,B 2E7D : 59 LD E,C 2E7E : 01B137 LD BC,37B1 2E81 : C34E2F JP 2F4E 2E84 : C5 PUSH BC 2E85 : E5 PUSH HL 2E86 : CDA72E CALL 2EA7 2E89 : E1 POP HL 2E8A : C1 POP BC 2E8B : B7 OR A 2E8C : 37 SCF 2E8D : C0 RET NZ 2E8E : 0B DEC BC 2E8F : 78 LD A,B 2E90 : B1 OR C 2E91 : 20F1 JR NZ,2E84 2E93 : C9 RET 2E94 : 23 INC HL 2E95 : 7C LD A,H 2E96 : B5 OR L 2E97 : 2B DEC HL 2E98 : CA372E JP Z,2E37 2E9B : 2B DEC HL 2E9C : 7C LD A,H 2E9D : B5 OR L 2E9E : 23 INC HL 2E9F : CA372E JP Z,2E37 2EA2 : C1 POP BC 2EA3 : AF XOR A 2EA4 : 57 LD D,A 2EA5 : 5F LD E,A 2EA6 : C9 RET 2EA7 : 7C LD A,H 2EA8 : AA XOR D 2EA9 : 08 EX AF,AF' 2EAA : CD282E CALL 2E28 2EAD : CD342E CALL 2E34 2EB0 : CDDD2E CALL 2EDD 2EB3 : 7A LD A,D 2EB4 : B3 OR E 2EB5 : 200B JR NZ,2EC2 2EB7 : B4 OR H 2EB8 : FAC22E JP M,2EC2 2EBB : 08 EX AF,AF' 2EBC : FC2E2E CALL M,2E2E 2EBF : EB EX DE,HL 2EC0 : AF XOR A 2EC1 : C9 RET 2EC2 : D9 EXX 2EC3 : CD2D31 CALL 312D 2EC6 : D9 EXX 2EC7 : 44 LD B,H 2EC8 : 4D LD C,L 2EC9 : 210F73 LD HL,730F 2ECC : 71 LD (HL),C 2ECD : 2B DEC HL 2ECE : 70 LD (HL),B 2ECF : 2B DEC HL 2ED0 : 73 LD (HL),E 2ED1 : 2B DEC HL 2ED2 : 72 LD (HL),D 2ED3 : 2B DEC HL 2ED4 : 08 EX AF,AF' 2ED5 : E680 AND 80 2ED7 : F648 OR 48 2ED9 : 77 LD (HL),A 2EDA : C3F131 JP 31F1 2EDD : 44 LD B,H 2EDE : 4D LD C,L 2EDF : 3E10 LD A,10 2EE1 : 210000 LD HL,0000 2EE4 : 29 ADD HL,HL 2EE5 : CB13 RL E 2EE7 : CB12 RL D 2EE9 : 3004 JR NC,2EEF 2EEB : 09 ADD HL,BC 2EEC : 3001 JR NC,2EEF 2EEE : 13 INC DE 2EEF : 3D DEC A 2EF0 : 20F2 JR NZ,2EE4 2EF2 : C9 RET 2EF3 : E5 PUSH HL 2EF4 : 7C LD A,H 2EF5 : AA XOR D 2EF6 : 08 EX AF,AF' 2EF7 : CD282E CALL 2E28 2EFA : CD342E CALL 2E34 2EFD : CD0B2F CALL 2F0B 2F00 : 08 EX AF,AF' 2F01 : FC372E CALL M,2E37 2F04 : F1 POP AF 2F05 : B7 OR A 2F06 : FC2E2E CALL M,2E2E 2F09 : AF XOR A 2F0A : C9 RET 2F0B : 7A LD A,D 2F0C : B3 OR E 2F0D : CC7430 CALL Z,3074 2F10 : AF XOR A 2F11 : 4F LD C,A 2F12 : 0610 LD B,10 2F14 : 29 ADD HL,HL 2F15 : CB11 RL C 2F17 : 17 RLA 2F18 : E5 PUSH HL 2F19 : 67 LD H,A 2F1A : 69 LD L,C 2F1B : B7 OR A 2F1C : ED52 SBC HL,DE 2F1E : 3F CCF 2F1F : 3002 JR NC,2F23 2F21 : 7C LD A,H 2F22 : 4D LD C,L 2F23 : E1 POP HL 2F24 : ED6A ADC HL,HL 2F26 : 10ED DJNZ 2F15 2F28 : EB EX DE,HL 2F29 : 67 LD H,A 2F2A : 69 LD L,C 2F2B : C9 RET 2F2C : CDE02F CALL 2FE0 2F2F : CDF32E CALL 2EF3 2F32 : EB EX DE,HL 2F33 : C9 RET 2F34 : E5 PUSH HL 2F35 : B7 OR A 2F36 : ED5A ADC HL,DE 2F38 : E2472F JP PO,2F47 2F3B : 014732 LD BC,3247 2F3E : 180E JR 2F4E 2F40 : E5 PUSH HL 2F41 : B7 OR A 2F42 : ED52 SBC HL,DE 2F44 : EA4B2F JP PE,2F4B 2F47 : C1 POP BC 2F48 : EB EX DE,HL 2F49 : AF XOR A 2F4A : C9 RET 2F4B : 013E32 LD BC,323E 2F4E : CDDB31 CALL 31DB 2F51 : CDB92A CALL 2AB9 2F54 : EB EX DE,HL 2F55 : D1 POP DE 2F56 : CDDB31 CALL 31DB 2F59 : EB EX DE,HL 2F5A : C5 PUSH BC 2F5B : C9 RET 2F5C : 1A LD A,(DE) 2F5D : 86 ADD A,(HL) 2F5E : DC7830 CALL C,3078 2F61 : 4F LD C,A 2F62 : D5 PUSH DE 2F63 : E5 PUSH HL 2F64 : CDD42A CALL 2AD4 2F67 : D5 PUSH DE 2F68 : D9 EXX 2F69 : D1 POP DE 2F6A : E1 POP HL 2F6B : 46 LD B,(HL) 2F6C : CDDA25 CALL 25DA 2F6F : E1 POP HL 2F70 : 46 LD B,(HL) 2F71 : CDDA25 CALL 25DA 2F74 : D9 EXX 2F75 : 1B DEC DE 2F76 : 3E04 LD A,04 2F78 : C9 RET 2F79 : CD1730 CALL 3017 2F7C : 1803 JR 2F81 2F7E : CDEE2F CALL 2FEE 2F81 : 1B DEC DE 2F82 : C8 RET Z 2F83 : 13 INC DE 2F84 : C9 RET 2F85 : CD1730 CALL 3017 2F88 : 1803 JR 2F8D 2F8A : CDEE2F CALL 2FEE 2F8D : D0 RET NC 2F8E : 1B DEC DE 2F8F : C9 RET 2F90 : CD1730 CALL 3017 2F93 : 1803 JR 2F98 2F95 : CDEE2F CALL 2FEE 2F98 : 1B DEC DE 2F99 : D8 RET C 2F9A : C8 RET Z 2F9B : 13 INC DE 2F9C : C9 RET 2F9D : CD1730 CALL 3017 2FA0 : 1803 JR 2FA5 2FA2 : CDEE2F CALL 2FEE 2FA5 : D8 RET C 2FA6 : C8 RET Z 2FA7 : 1B DEC DE 2FA8 : C9 RET 2FA9 : CD1730 CALL 3017 2FAC : 1803 JR 2FB1 2FAE : CDEE2F CALL 2FEE 2FB1 : D8 RET C 2FB2 : 1B DEC DE 2FB3 : C9 RET 2FB4 : CD1730 CALL 3017 2FB7 : 1803 JR 2FBC 2FB9 : CDEE2F CALL 2FEE 2FBC : C8 RET Z 2FBD : 1B DEC DE 2FBE : C9 RET 2FBF : CDE02F CALL 2FE0 2FC2 : 7A LD A,D 2FC3 : A4 AND A,H 2FC4 : 57 LD D,A 2FC5 : 7B LD A,E 2FC6 : A5 AND A,L 2FC7 : 5F LD E,A 2FC8 : AF XOR A 2FC9 : C9 RET 2FCA : CDE02F CALL 2FE0 2FCD : 7A LD A,D 2FCE : B4 OR H 2FCF : 57 LD D,A 2FD0 : 7B LD A,E 2FD1 : B5 OR L 2FD2 : 5F LD E,A 2FD3 : AF XOR A 2FD4 : C9 RET 2FD5 : CDE02F CALL 2FE0 2FD8 : 7A LD A,D 2FD9 : AC XOR H 2FDA : 57 LD D,A 2FDB : 7B LD A,E 2FDC : AD XOR L 2FDD : 5F LD E,A 2FDE : AF XOR A 2FDF : C9 RET 2FE0 : D5 PUSH DE 2FE1 : CD2432 CALL 3224 2FE4 : E1 POP HL 2FE5 : D5 PUSH DE 2FE6 : CDEE30 CALL 30EE 2FE9 : CD2432 CALL 3224 2FEC : E1 POP HL 2FED : C9 RET 2FEE : 7C LD A,H 2FEF : AA XOR D 2FF0 : F2F42F JP P,2FF4 2FF3 : EB EX DE,HL 2FF4 : 7C LD A,H 2FF5 : BA CP D 2FF6 : 2002 JR NZ,2FFA 2FF8 : 7D LD A,L 2FF9 : BB CP E 2FFA : 110000 LD DE,0000 2FFD : 7A LD A,D 2FFE : C9 RET 2FFF : EB EX DE,HL 3000 : 1A LD A,(DE) 3001 : BE CP (HL) 3002 : F5 PUSH AF 3003 : 08 EX AF,AF' 3004 : F1 POP AF 3005 : 3801 JR C,3008 3007 : 7E LD A,(HL) 3008 : 47 LD B,A 3009 : B7 OR A 300A : 2808 JR Z,3014 300C : 13 INC DE 300D : 23 INC HL 300E : 1A LD A,(DE) 300F : BE CP (HL) 3010 : 20E8 JR NZ,2FFA 3012 : 10F8 DJNZ 300C 3014 : 08 EX AF,AF' 3015 : 18E3 JR 2FFA 3017 : EB EX DE,HL 3018 : CD1A37 CALL 371A 301B : CD9C3B CALL 3B9C 301E : 18DA JR 2FFA 3020 : 7E LD A,(HL) 3021 : 23 INC HL 3022 : FE80 CP 80 3024 : D8 RET C 3025 : E6FC AND FC 3027 : FEC0 CP C0 3029 : 2B DEC HL 302A : 7E LD A,(HL) 302B : 23 INC HL 302C : 2817 JR Z,3045 302E : FEA0 CP A0 3030 : D0 RET NC 3031 : FE90 CP 90 3033 : 301C JR NC,3051 3035 : FE88 CP 88 3037 : 3818 JR C,3051 3039 : 54 LD D,H 303A : 5D LD E,L 303B : FE8C CP 8C 303D : 2816 JR Z,3055 303F : 0E08 LD C,08 3041 : FE8A CP 8A 3043 : 2812 JR Z,3057 3045 : 5E LD E,(HL) 3046 : 23 INC HL 3047 : 56 LD D,(HL) 3048 : 23 INC HL 3049 : FEC2 CP C2 304B : D8 RET C 304C : 2807 JR Z,3055 304E : CD6B30 CALL 306B 3051 : 5E LD E,(HL) 3052 : 23 INC HL 3053 : 56 LD D,(HL) 3054 : 23 INC HL 3055 : 4E LD C,(HL) 3056 : 23 INC HL 3057 : 0600 LD B,00 3059 : 09 ADD HL,BC 305A : C9 RET 305B : 00 NOP ;Err 100 305C : 00 NOP ;Err 101 305D : 00 NOP ;Err 102 305E : 00 NOP ;Err 103 305F : 00 NOP ;Err 104 3060 : 00 NOP ;Err 105 3061 : 00 NOP ;Err 106 3062 : E1 POP HL 3063 : 2B DEC HL 3064 : 2B DEC HL 3065 : 7E LD A,(HL) 3066 : D6F7 SUB F7 3068 : 1824 JR 308E 306A : 00 NOP ;Err 1 306B : 00 NOP ;Err 2 306C : 00 NOP ;Err 3 306D : 00 NOP ;Err 4 306E : 00 NOP ;Err 5 306F : 00 NOP ;Err 6 3070 : 00 NOP ;Err 7 3071 : 00 NOP ;Err 8 3072 : 00 NOP ;Err 9 3073 : 00 NOP ;Err 10 3074 : 00 NOP ;Err 11 3075 : 00 NOP ;Err 12 3076 : 00 NOP ;Err 13 3077 : 00 NOP ;Err 14 3078 : 00 NOP ;Err 15 3079 : 00 NOP ;Err 16 307A : 00 NOP ;Err 17 307B : 00 NOP ;Err 18 307C : 00 NOP ;Err 19 307D : 00 NOP ;Err 20 307E : 00 NOP ;Err 21 307F : 00 NOP ;Err 22 3080 : 00 NOP ;Err 23 3081 : 00 NOP ;Err 24 3082 : 00 NOP ;Err 25 3083 : 00 NOP ;Err 26 3084 : 00 NOP ;Err 27 3085 : 00 NOP ;Err 28 3086 : 00 NOP ;Err 29 3087 : 00 NOP ;Err 30 3088 : E1 POP HL ;Err 31 3089 : 2B DEC HL 308A : 2B DEC HL 308B : 7E LD A,(HL) 308C : D669 SUB 69 308E : 5F LD E,A 308F : 328472 LD (7284),A 3092 : 2A7872 LD HL,(7278) 3095 : 228672 LD (7286),HL 3098 : 2A7A72 LD HL,(727A) 309B : 228872 LD (7288),HL 309E : ED7B8072 LD SP,(7280) 30A2 : FD2A8272 LD IX,(7282) 30A6 : FB EI 30A7 : AF XOR A 30A8 : 32A472 LD (72A4),A 30AB : 3A9372 LD A,(7293) 30AE : CB67 BIT 4,A 30B0 : 200B JR NZ,30BD 30B2 : D5 PUSH DE 30B3 : CD1C4A CALL 4A1C 30B6 : D1 POP DE 30B7 : CDC530 CALL 30C5 30BA : C3CD20 JP 20CD 30BD : 219472 LD HL,7294 30C0 : CBFE SET 7,(HL) 30C2 : C30F27 JP 270F 30C5 : 21E430 LD HL,30E4 30C8 : D5 PUSH DE 30C9 : CD415D CALL 5D41 30CC : D1 POP DE 30CD : 1600 LD D,00 30CF : CDFD25 CALL 25FD 30D2 : ED5B7872 LD DE,(7278) 30D6 : CB7A BIT 7,D 30D8 : C0 RET NZ 30D9 : D5 PUSH DE 30DA : 21E930 LD HL,30E9 30DD : CD415D CALL 5D41 30E0 : D1 POP DE 30E1 : C3FD25 JP 25FD 30E4 : DB 'Err',00 30E9 : DB ' in ',00 30EE : C5 PUSH BC 30EF : D5 PUSH DE 30F0 : CD1537 CALL 3715 30F3 : 110B73 LD DE,730B 30F6 : 010800 LD BC,0008 30F9 : EDB0 LDIR 30FB : 180F JR 310C 30FD : C5 PUSH BC 30FE : D5 PUSH DE 30FF : CD1A37 CALL 371A 3102 : 110B73 LD DE,730B 3105 : EB EX DE,HL 3106 : 010800 LD BC,0008 3109 : EDB0 LDIR 310B : EB EX DE,HL 310C : D1 POP DE 310D : C1 POP BC 310E : C9 RET 310F : E5 PUSH HL 3110 : D5 PUSH DE 3111 : C5 PUSH BC 3112 : CD1537 CALL 3715 3115 : 110B73 LD DE,730B 3118 : 180A JR 3124 311A : E5 PUSH HL 311B : D5 PUSH DE 311C : C5 PUSH BC 311D : CD1A37 CALL 371A 3120 : 110B73 LD DE,730B 3123 : EB EX DE,HL 3124 : 010800 LD BC,0008 3127 : EDB0 LDIR 3129 : C1 POP BC 312A : D1 POP DE 312B : E1 POP HL 312C : C9 RET 312D : CD1537 CALL 3715 3130 : 210B73 LD HL,730B 3133 : 0608 LD B,08 3135 : EB EX DE,HL 3136 : AF XOR A 3137 : 12 LD (DE),A 3138 : 13 INC DE 3139 : 10FC DJNZ 3137 313B : C9 RET 313C : CD2D31 CALL 312D 313F : D9 EXX 3140 : 110B73 LD DE,730B 3143 : 3E02 LD A,02 3145 : C9 RET 3146 : 110C73 LD DE,730C 3149 : D5 PUSH DE 314A : 010700 LD BC,0007 314D : EDB0 LDIR 314F : D1 POP DE 3150 : 1A LD A,(DE) 3151 : 17 RLA 3152 : 3E4E LD A,4E 3154 : 3005 JR NC,315B 3156 : CD8933 CALL 3389 3159 : 3ECE LD A,0CE 315B : 1B DEC DE 315C : 12 LD (DE),A 315D : 210C73 LD HL,730C 3160 : 0607 LD B,07 3162 : AF XOR A 3163 : B6 OR (HL) 3164 : 2007 JR NZ,316D 3166 : 23 INC HL 3167 : 10FA DJNZ 3163 3169 : 320B73 LD (730B),A 316C : C9 RET 316D : 210C73 LD HL,730C 3170 : 7E LD A,(HL) 3171 : E6F0 AND F0 3173 : C0 RET NZ 3174 : CD7933 CALL 3379 3177 : 2B DEC HL 3178 : 7E LD A,(HL) 3179 : E67F AND 7F 317B : CA2D31 JP Z,312D 317E : 35 DEC (HL) 317F : 18EC JR 316D 3181 : E5 PUSH HL 3182 : D5 PUSH DE 3183 : C5 PUSH BC 3184 : 210B73 LD HL,730B 3187 : 111B73 LD DE,731B 318A : 1898 JR 3124 318C : E5 PUSH HL 318D : D5 PUSH DE 318E : C5 PUSH BC 318F : 211B73 LD HL,731B 3192 : 110B73 LD DE,730B 3195 : 18F3 JR 318A 3197 : E5 PUSH HL 3198 : CD8131 CALL 3181 319B : CD5D31 CALL 315D 319E : 210B73 LD HL,730B 31A1 : 7E LD A,(HL) 31A2 : E67F AND 7F 31A4 : 281E JR Z,31C4 31A6 : FE41 CP 41 31A8 : 3826 JR C,31D0 31AA : FE4F CP 4F 31AC : 302A JR NC,31D8 31AE : D64E SUB 4E 31B0 : 2807 JR Z,31B9 31B2 : 47 LD B,A 31B3 : CD6A33 CALL 336A 31B6 : 04 INC B 31B7 : 20FA JR NZ,31B3 31B9 : 23 INC HL 31BA : 7E LD A,(HL) 31BB : 2B DEC HL 31BC : 17 RLA 31BD : 3819 JR C,31D8 31BF : 7E LD A,(HL) 31C0 : 17 RLA 31C1 : DC8933 CALL C,3389 31C4 : D1 POP DE 31C5 : 210C73 LD HL,730C 31C8 : 010700 LD BC,0007 31CB : EDB0 LDIR 31CD : C38C31 JP 318C 31D0 : E1 POP HL 31D1 : 0607 LD B,07 31D3 : CD3531 CALL 3135 31D6 : 18F5 JR 31CD 31D8 : CD6F30 CALL 306F 31DB : D5 PUSH DE 31DC : D9 EXX 31DD : CD2D31 CALL 312D 31E0 : D1 POP DE 31E1 : CD342E CALL 2E34 31E4 : 210B73 LD HL,730B 31E7 : 3644 LD (HL),44 31E9 : 2802 JR Z,31ED 31EB : CBFE SET 7,(HL) 31ED : 23 INC HL 31EE : 72 LD (HL),D 31EF : 23 INC HL 31F0 : 73 LD (HL),E 31F1 : CD5D31 CALL 315D 31F4 : C33F31 JP 313F 31F7 : D5 PUSH DE 31F8 : D9 EXX 31F9 : CD2D31 CALL 312D 31FC : D1 POP DE 31FD : 18E5 JR 31E4 31FF : CD1A37 CALL 371A 3202 : D9 EXX 3203 : 3A0B73 LD A,(730B) 3206 : E67F AND 7F 3208 : FE45 CP 45 320A : DCE336 CALL C,36E3 320D : 3A0B73 LD A,(730B) 3210 : E67F AND 7F 3212 : FE45 CP 45 3214 : 30C2 JR NC,31D8 3216 : 214C73 LD HL,734C 3219 : CD9731 CALL 3197 321C : 215273 LD HL,7352 321F : 5E LD E,(HL) 3220 : 2B DEC HL 3221 : 56 LD D,(HL) 3222 : 2B DEC HL 3223 : C9 RET 3224 : CDFF31 CALL 31FF 3227 : 7E LD A,(HL) 3228 : AA XOR D 3229 : FC6F30 CALL M,306F 322C : 180B JR 3239 322E : CDFF31 CALL 31FF 3231 : 34 INC (HL) 3232 : 2005 JR NZ,3239 3234 : CB7A BIT 7,D 3236 : CC6F30 CALL Z,306F 3239 : D5 PUSH DE 323A : D9 EXX 323B : D1 POP DE 323C : AF XOR A 323D : C9 RET 323E : D5 PUSH DE 323F : D9 EXX 3240 : E1 POP HL 3241 : CD4F32 CALL 324F 3244 : C33F31 JP 313F 3247 : D5 PUSH DE 3248 : D9 EXX 3249 : E1 POP HL 324A : CD5332 CALL 3253 324D : 18F5 JR 3244 324F : 3E80 LD A,80 3251 : 1801 JR 3254 3253 : AF XOR A 3254 : E5 PUSH HL 3255 : D5 PUSH DE 3256 : C5 PUSH BC 3257 : 111373 LD DE,7313 325A : AE XOR (HL) 325B : 12 LD (DE),A 325C : 23 INC HL 325D : 13 INC DE 325E : 010700 LD BC,0007 3261 : EDB0 LDIR 3263 : 210B73 LD HL,730B 3266 : 111373 LD DE,7313 3269 : 1A LD A,(DE) 326A : E67F AND 7F 326C : 47 LD B,A 326D : 7E LD A,(HL) 326E : E67F AND 7F 3270 : 90 SUB B 3271 : 4F LD C,A 3272 : 281E JR Z,3292 3274 : 07 RLCA 3275 : 3804 JR C,327B 3277 : EB EX DE,HL 3278 : 79 LD A,C 3279 : 1803 JR 327E 327B : AF XOR A 327C : 91 SUB C 327D : 4F LD C,A 327E : FE0E CP 0E 3280 : D22331 JP NC,3123 3283 : E5 PUSH HL 3284 : 23 INC HL 3285 : 0607 LD B,07 3287 : AF XOR A 3288 : ED67 RRD 328A : 23 INC HL 328B : 10FB DJNZ 3288 328D : E1 POP HL 328E : 34 INC (HL) 328F : 0D DEC C 3290 : 20F1 JR NZ,3283 3292 : CD8131 CALL 3181 3295 : CDBD33 CALL 33BD 3298 : CD8C31 CALL 318C 329B : 3009 JR NC,32A6 329D : 210B73 LD HL,730B 32A0 : 111373 LD DE,7313 32A3 : CDD732 CALL 32D7 32A6 : 3A0B73 LD A,(730B) 32A9 : 47 LD B,A 32AA : 3A1373 LD A,(7313) 32AD : A8 XOR B 32AE : 07 RLCA 32AF : 381E JR C,32CF 32B1 : CDBE33 CALL 33BE 32B4 : 3013 JR NC,32C9 32B6 : CD6A33 CALL 336A 32B9 : 210C73 LD HL,730C 32BC : 7E LD A,(HL) 32BD : C610 ADD A,10 32BF : 77 LD (HL),A 32C0 : 2B DEC HL 32C1 : 7E LD A,(HL) 32C2 : E67F AND 7F 32C4 : FE7F CP 7F 32C6 : 280C JR Z,32D4 32C8 : 34 INC (HL) 32C9 : CD5D31 CALL 315D 32CC : C32931 JP 3129 32CF : CDBD33 CALL 33BD 32D2 : 18F5 JR 32C9 32D4 : CD6F30 CALL 306F 32D7 : 010800 LD BC,0008 32DA : C31B50 JP 501B 32DD : E5 PUSH HL 32DE : D5 PUSH DE 32DF : C5 PUSH BC 32E0 : 3A0B73 LD A,(730B) 32E3 : B7 OR A 32E4 : 2820 JR Z,3306 32E6 : 7E LD A,(HL) 32E7 : B7 OR A 32E8 : 281C JR Z,3306 32EA : 111373 LD DE,7313 32ED : 010800 LD BC,0008 32F0 : EDB0 LDIR 32F2 : CD0B33 CALL 330B 32F5 : 81 ADD A,C 32F6 : D640 SUB 40 32F8 : 380C JR C,3306 32FA : 280A JR Z,3306 32FC : FAD432 JP M,32D4 32FF : 82 ADD A,D 3300 : 77 LD (HL),A 3301 : CDDA33 CALL 33DA 3304 : 18C3 JR 32C9 3306 : CD2D31 CALL 312D 3309 : 18BE JR 32C9 330B : 210B73 LD HL,730B 330E : 3A1373 LD A,(7313) 3311 : 1E80 LD E,80 3313 : 4F LD C,A 3314 : AE XOR (HL) 3315 : A3 AND A,E 3316 : 57 LD D,A 3317 : 7E LD A,(HL) 3318 : 1D DEC E 3319 : A3 AND A,E 331A : 47 LD B,A 331B : 82 ADD A,D 331C : 77 LD (HL),A 331D : 79 LD A,C 331E : A3 AND A,E 331F : 4F LD C,A 3320 : 78 LD A,B 3321 : C9 RET 3322 : EB EX DE,HL 3323 : CDDD32 CALL 32DD 3326 : C34031 JP 3140 3329 : EB EX DE,HL 332A : CD2F33 CALL 332F 332D : 18F7 JR 3326 332F : E5 PUSH HL 3330 : D5 PUSH DE 3331 : C5 PUSH BC 3332 : 7E LD A,(HL) 3333 : B7 OR A 3334 : 2831 JR Z,3367 3336 : 3A0B73 LD A,(730B) 3339 : B7 OR A 333A : 28CA JR Z,3306 333C : 111373 LD DE,7313 333F : 010800 LD BC,0008 3342 : EDB0 LDIR 3344 : CD0B33 CALL 330B 3347 : 91 SUB C 3348 : 3007 JR NC,3351 334A : C640 ADD A,40 334C : FA0633 JP M,3306 334F : 1805 JR 3356 3351 : C640 ADD A,40 3353 : FAFC32 JP M,32FC 3356 : 82 ADD A,D 3357 : 3C INC A 3358 : 77 LD (HL),A 3359 : FE80 CP 80 335B : CC6F30 CALL Z,306F 335E : CD9A34 CALL 349A 3361 : CD5D31 CALL 315D 3364 : C32931 JP 3129 3367 : CD7430 CALL 3074 336A : E5 PUSH HL 336B : C5 PUSH BC 336C : 210C73 LD HL,730C 336F : 0607 LD B,07 3371 : AF XOR A 3372 : ED67 RRD 3374 : 23 INC HL 3375 : 10FB DJNZ 3372 3377 : 180D JR 3386 3379 : E5 PUSH HL 337A : C5 PUSH BC 337B : 211273 LD HL,7312 337E : 0607 LD B,07 3380 : AF XOR A 3381 : ED6F RLD 3383 : 2B DEC HL 3384 : 10FB DJNZ 3381 3386 : C1 POP BC 3387 : E1 POP HL 3388 : C9 RET 3389 : CD9533 CALL 3395 338C : 0E07 LD C,07 338E : 2B DEC HL 338F : 34 INC (HL) 3390 : C0 RET NZ 3391 : 0D DEC C 3392 : 20FA JR NZ,338E 3394 : C9 RET 3395 : 210C73 LD HL,730C 3398 : 0E07 LD C,07 339A : 7E LD A,(HL) 339B : 2F CPL 339C : 77 LD (HL),A 339D : 23 INC HL 339E : 0D DEC C 339F : 20F9 JR NZ,339A 33A1 : C9 RET 33A2 : 78 LD A,B 33A3 : B7 OR A 33A4 : 2806 JR Z,33AC 33A6 : 23 INC HL 33A7 : 23 INC HL 33A8 : 23 INC HL 33A9 : 23 INC HL 33AA : 23 INC HL 33AB : 23 INC HL 33AC : 0607 LD B,07 33AE : F2B733 JP P,33B7 33B1 : CB16 RL (HL) 33B3 : 2B DEC HL 33B4 : 10FB DJNZ 33B1 33B6 : C9 RET 33B7 : CB1E RR (HL) 33B9 : 23 INC HL 33BA : 10FB DJNZ 33B7 33BC : C9 RET 33BD : 3EAF LD A,0AF 33BF : 211A73 LD HL,731A 33C2 : 111273 LD DE,7312 33C5 : 0607 LD B,07 33C7 : B7 OR A 33C8 : 2008 JR NZ,33D2 33CA : 1A LD A,(DE) 33CB : 8E ADC A,(HL) 33CC : 12 LD (DE),A 33CD : 2B DEC HL 33CE : 1B DEC DE 33CF : 10F9 DJNZ 33CA 33D1 : C9 RET 33D2 : 1A LD A,(DE) 33D3 : 9E SBC A,(HL) 33D4 : 12 LD (DE),A 33D5 : 2B DEC HL 33D6 : 1B DEC DE 33D7 : 10F9 DJNZ 33D2 33D9 : C9 RET 33DA : D9 EXX 33DB : E5 PUSH HL 33DC : D5 PUSH DE 33DD : C5 PUSH BC 33DE : 08 EX AF,AF' 33DF : F5 PUSH AF 33E0 : DDE5 PUSH IX 33E2 : DD211373 LD IX,7313 33E6 : 2A1173 LD HL,(7311) 33E9 : ED5B0F73 LD DE,(730F) 33ED : ED4B0D73 LD BC,(730D) 33F1 : D9 EXX 33F2 : 3A0C73 LD A,(730C) 33F5 : 010000 LD BC,0000 33F8 : 58 LD E,B 33F9 : 50 LD D,B 33FA : 68 LD L,B 33FB : 60 LD H,B 33FC : DD70FF LD (IX+FF),B 33FF : DD36FE38 LD (IX+FE),38 3403 : B7 OR A 3404 : 285E JR Z,3464 3406 : CB24 SLA H 3408 : CB15 RL L 340A : CB12 RL D 340C : CB13 RL E 340E : CB10 RL B 3410 : CB11 RL C 3412 : DDCBFF16 RL (IX+FF) 3416 : D9 EXX 3417 : CB14 RL H 3419 : CB15 RL L 341B : CB12 RL D 341D : CB13 RL E 341F : CB10 RL B 3421 : CB11 RL C 3423 : D9 EXX 3424 : 17 RLA 3425 : 3032 JR NC,3459 3427 : 08 EX AF,AF' 3428 : 7C LD A,H 3429 : DD8607 ADD A,(IX+07) 342C : 67 LD H,A 342D : 7D LD A,L 342E : DD8E06 ADC A,(IX+06) 3431 : 6F LD L,A 3432 : 7A LD A,D 3433 : DD8E05 ADC A,(IX+05) 3436 : 57 LD D,A 3437 : 7B LD A,E 3438 : DD8E04 ADC A,(IX+04) 343B : 5F LD E,A 343C : 78 LD A,B 343D : DD8E03 ADC A,(IX+03) 3440 : 47 LD B,A 3441 : 79 LD A,C 3442 : DD8E02 ADC A,(IX+02) 3445 : 4F LD C,A 3446 : DD7EFF LD A,(IX+FF) 3449 : DD8E01 ADC A,(IX+01) 344C : DD77FF LD (IX+FF),A 344F : 3007 JR NC,3458 3451 : 08 EX AF,AF' 3452 : D9 EXX 3453 : CD8C34 CALL 348C 3456 : D9 EXX 3457 : 08 EX AF,AF' 3458 : 08 EX AF,AF' 3459 : DD35FE DEC (IX+FE) 345C : 20A5 JR NZ,3403 345E : 320C73 LD (730C),A 3461 : C30735 JP 3507 3464 : 08 EX AF,AF' 3465 : DD7EFE LD A,(IX+FE) 3468 : D608 SUB 08 346A : 3003 JR NC,346F 346C : 08 EX AF,AF' 346D : 1897 JR 3406 346F : DD77FE LD (IX+FE),A 3472 : D9 EXX 3473 : 79 LD A,C 3474 : 48 LD C,B 3475 : 43 LD B,E 3476 : 5A LD E,D 3477 : 55 LD D,L 3478 : 6C LD L,H 3479 : DD66FF LD H,(IX+FF) 347C : D9 EXX 347D : DD71FF LD (IX+FF),C 3480 : 48 LD C,B 3481 : 43 LD B,E 3482 : 5A LD E,D 3483 : 55 LD D,L 3484 : 6C LD L,H 3485 : 2600 LD H,00 3487 : 28D5 JR Z,345E 3489 : C30334 JP 3403 348C : 24 INC H 348D : C0 RET NZ 348E : 2C INC L 348F : C0 RET NZ 3490 : 14 INC D 3491 : C0 RET NZ 3492 : 1C INC E 3493 : C0 RET NZ 3494 : 04 INC B 3495 : C0 RET NZ 3496 : 0C INC C 3497 : C0 RET NZ 3498 : 3C INC A 3499 : C9 RET 349A : D9 EXX 349B : E5 PUSH HL 349C : D5 PUSH DE 349D : C5 PUSH BC 349E : 08 EX AF,AF' 349F : F5 PUSH AF 34A0 : DDE5 PUSH IX 34A2 : DD211373 LD IX,7313 34A6 : CD6A33 CALL 336A 34A9 : 3A0C73 LD A,(730C) 34AC : ED4B0D73 LD BC,(730D) 34B0 : ED5B0F73 LD DE,(730F) 34B4 : 2A1173 LD HL,(7311) 34B7 : DD36FF38 LD (IX+FF),38 34BB : CB24 SLA H 34BD : CB15 RL L 34BF : CB12 RL D 34C1 : CB13 RL E 34C3 : CB10 RL B 34C5 : CB11 RL C 34C7 : 17 RLA 34C8 : D2D134 JP NC,34D1 34CB : CD1C35 CALL 351C 34CE : B7 OR A 34CF : 181E JR 34EF 34D1 : DDBE01 CP (IX+01) 34D4 : DAEF34 JP C,34EF 34D7 : E5 PUSH HL 34D8 : D5 PUSH DE 34D9 : C5 PUSH BC 34DA : F5 PUSH AF 34DB : CD1C35 CALL 351C 34DE : DAEA34 JP C,34EA 34E1 : 08 EX AF,AF' 34E2 : F1 POP AF 34E3 : F1 POP AF 34E4 : F1 POP AF 34E5 : F1 POP AF 34E6 : 08 EX AF,AF' 34E7 : C3EF34 JP 34EF 34EA : F1 POP AF 34EB : 37 SCF 34EC : C1 POP BC 34ED : D1 POP DE 34EE : E1 POP HL 34EF : 3F CCF 34F0 : D9 EXX 34F1 : CB14 RL H 34F3 : CB15 RL L 34F5 : CB12 RL D 34F7 : CB13 RL E 34F9 : CB10 RL B 34FB : CB11 RL C 34FD : D9 EXX 34FE : DDCBF916 RL (IX+F9) 3502 : DD35FF DEC (IX+FF) 3505 : 20B4 JR NZ,34BB 3507 : D9 EXX 3508 : ED430D73 LD (730D),BC 350C : ED530F73 LD (730F),DE 3510 : 221173 LD (7311),HL 3513 : DDE1 POP IX 3515 : F1 POP AF 3516 : 08 EX AF,AF' 3517 : C1 POP BC 3518 : D1 POP DE 3519 : E1 POP HL 351A : D9 EXX 351B : C9 RET 351C : 08 EX AF,AF' 351D : 7C LD A,H 351E : DD9607 SUB (IX+07) 3521 : 67 LD H,A 3522 : 7D LD A,L 3523 : DD9E06 SBC A,(IX+06) 3526 : 6F LD L,A 3527 : 7A LD A,D 3528 : DD9E05 SBC A,(IX+05) 352B : 57 LD D,A 352C : 7B LD A,E 352D : DD9E04 SBC A,(IX+04) 3530 : 5F LD E,A 3531 : 78 LD A,B 3532 : DD9E03 SBC A,(IX+03) 3535 : 47 LD B,A 3536 : 79 LD A,C 3537 : DD9E02 SBC A,(IX+02) 353A : 4F LD C,A 353B : 3805 JR C,3542 353D : 08 EX AF,AF' 353E : DD9601 SUB (IX+01) 3541 : C9 RET 3542 : 08 EX AF,AF' 3543 : 37 SCF 3544 : DD9E01 SBC A,(IX+01) 3547 : C9 RET 3548 : E5 PUSH HL 3549 : CD2D31 CALL 312D 354C : E1 POP HL 354D : CDD325 CALL 25D3 3550 : CD0B37 CALL 370B 3553 : EB EX DE,HL 3554 : 3018 JR NC,356E 3556 : FE2B CP 2B 3558 : 2809 JR Z,3563 355A : FE2D CP 2D 355C : 200C JR NZ,356A 355E : 3E80 LD A,80 3560 : 320B73 LD (730B),A 3563 : 13 INC DE 3564 : 1A LD A,(DE) 3565 : CD0B37 CALL 370B 3568 : 3004 JR NC,356E 356A : FE2E CP 2E 356C : 37 SCF 356D : C0 RET NZ 356E : 010000 LD BC,0000 3571 : CD0937 CALL 3709 3574 : 300B JR NC,3581 3576 : FE2E CP 2E 3578 : 37 SCF 3579 : 202C JR NZ,35A7 357B : 0C INC C 357C : 0D DEC C 357D : 2028 JR NZ,35A7 357F : 1823 JR 35A4 3581 : 2004 JR NZ,3587 3583 : 04 INC B 3584 : 05 DEC B 3585 : 2819 JR Z,35A0 3587 : CB60 BIT 4,B 3589 : 201C JR NZ,35A7 358B : 04 INC B 358C : C5 PUSH BC 358D : D5 PUSH DE 358E : F5 PUSH AF 358F : CD2137 CALL 3721 3592 : 211373 LD HL,7313 3595 : CD3331 CALL 3133 3598 : 1B DEC DE 3599 : F1 POP AF 359A : 12 LD (DE),A 359B : CDBE33 CALL 33BE 359E : D1 POP DE 359F : C1 POP BC 35A0 : 0C INC C 35A1 : 0D DEC C 35A2 : 28CD JR Z,3571 35A4 : 0D DEC C 35A5 : 18CA JR 3571 35A7 : 0600 LD B,00 35A9 : 0C INC C 35AA : 0D DEC C 35AB : 2801 JR Z,35AE 35AD : 0C INC C 35AE : 381E JR C,35CE 35B0 : 1B DEC DE 35B1 : FE05 CP 05 35B3 : C5 PUSH BC 35B4 : D4D836 CALL NC,36D8 35B7 : C1 POP BC 35B8 : 69 LD L,C 35B9 : CD0937 CALL 3709 35BC : 3009 JR NC,35C7 35BE : 2C INC L 35BF : 2D DEC L 35C0 : 200C JR NZ,35CE 35C2 : FE2E CP 2E 35C4 : 2008 JR NZ,35CE 35C6 : 2D DEC L 35C7 : 2C INC L 35C8 : 2D DEC L 35C9 : 20EE JR NZ,35B9 35CB : 04 INC B 35CC : 18EB JR 35B9 35CE : 68 LD L,B 35CF : 2600 LD H,00 35D1 : 44 LD B,H 35D2 : 0C INC C 35D3 : 0D DEC C 35D4 : 2801 JR Z,35D7 35D6 : 05 DEC B 35D7 : 09 ADD HL,BC 35D8 : CD8500 CALL 0085 35DB : FE45 CP 45 35DD : 1B DEC DE 35DE : 2014 JR NZ,35F4 35E0 : 13 INC DE 35E1 : 1A LD A,(DE) 35E2 : CD0B37 CALL 370B 35E5 : 300D JR NC,35F4 35E7 : FE2B CP 2B 35E9 : 2808 JR Z,35F3 35EB : FE20 CP 20 35ED : 2804 JR Z,35F3 35EF : FE2D CP 2D 35F1 : 20EA JR NZ,35DD 35F3 : 13 INC DE 35F4 : E5 PUSH HL 35F5 : F5 PUSH AF 35F6 : EB EX DE,HL 35F7 : CD7B25 CALL 257B 35FA : DC6F30 CALL C,306F 35FD : EB EX DE,HL 35FE : 60 LD H,B 35FF : 69 LD L,C 3600 : F1 POP AF 3601 : FE2D CP 2D 3603 : CC2E2E CALL Z,2E2E 3606 : C1 POP BC 3607 : 09 ADD HL,BC 3608 : 7D LD A,L 3609 : CB7C BIT 7,H 360B : 280D JR Z,361A 360D : 24 INC H 360E : 2004 JR NZ,3614 3610 : FE81 CP 81 3612 : 300F JR NC,3623 3614 : D5 PUSH DE 3615 : CD2D31 CALL 312D 3618 : 1833 JR 364D 361A : 24 INC H 361B : 25 DEC H 361C : C46F30 CALL NZ,306F 361F : B7 OR A 3620 : FC6F30 CALL M,306F 3623 : D5 PUSH DE 3624 : F5 PUSH AF 3625 : 210B73 LD HL,730B 3628 : 3E4E LD A,4E 362A : B6 OR (HL) 362B : 77 LD (HL),A 362C : CD5D31 CALL 315D 362F : F1 POP AF 3630 : 215B36 LD HL,365B 3633 : 119A36 LD DE,369A 3636 : B7 OR A 3637 : 2814 JR Z,364D 3639 : F23F36 JP P,363F 363C : ED44 NEG 363E : EB EX DE,HL 363F : 4F LD C,A 3640 : 0607 LD B,07 3642 : 110900 LD DE,0009 3645 : CB39 SRL C 3647 : DCDD32 CALL C,32DD 364A : 19 ADD HL,DE 364B : 10F8 DJNZ 3645 364D : E1 POP HL 364E : C34031 JP 3140 3651 : DB 01,41,A0,00,00,00,00,00 3659 : DB 00,01,41,A0,00,00,00,00 3661 : DB 00,00,02,42,64,00,00,00 3669 : DB 00,00,00,04,44,27,10,00 3671 : DB 00,00,00,00,08,47,5F,5E 3679 : DB 10,00,00,00,00,10,4E,23 3681 : DB 86,F2,6F,C1,00,00,20,5B 3689 : DB 4E,E2,D6,D4,15,B8,5B,40 3691 : DB 76,18,4F,03,E9,3F,F9,F5 3699 : DB FF,40,19,99,99,99,99,99 36A1 : DB 9A,FE,3F,28,F5,C2,8F,5C 36A9 : DB 28,F6,FC,3D,68,DB,8B,AC 36B1 : DB 71,0C,B3,F8,3A,2A,F3,1D 36B9 : DB C4,61,18,74,F0,33,73,4A 36C1 : DB CA,5F,62,26,F1,E0,26,33 36C9 : DB EC,47,AB,51,4E,65,C0,0B 36D1 : DB A8,7F,EA,27,A5,39,EA 36D8 : 211273 LD HL,7312 36DB : 0607 LD B,00 36DD : 34 INC (HL) 36DE : C0 RET NZ 36DF : 2B DEC HL 36E0 : 10FB DJNZ 36DD 36E2 : C9 RET 36E3 : D640 SUB 40 36E5 : D8 RET C 36E6 : 210C73 LD HL,730C 36E9 : 0600 LD B,00 36EB : 4F LD C,A 36EC : CB39 SRL C 36EE : 3E80 LD A,80 36F0 : 3002 JR NC,36F4 36F2 : 3E08 LD A,08 36F4 : 09 ADD HL,BC 36F5 : 8E ADC A,(HL) 36F6 : 77 LD (HL),A 36F7 : 3E00 LD A,00 36F9 : 2B DEC HL 36FA : 0D DEC C 36FB : F2F536 JP P,36F5 36FE : D0 RET NC 36FF : 3C INC A 3700 : 34 INC (HL) 3701 : 0607 LD B,07 3703 : 23 INC HL 3704 : ED67 RRD 3706 : 10FB DJNZ 3703 3708 : C9 RET 3709 : 1A LD A,(DE) 370A : 13 INC DE 370B : FE30 CP 30 370D : D8 RET C 370E : FE3A CP 3A 3710 : 3F CCF 3711 : D8 RET C 3712 : D630 SUB 30 3714 : C9 RET 3715 : F5 PUSH AF 3716 : 3E01 LD A,01 3718 : 1802 JR 371C 371A : F5 PUSH AF 371B : AF XOR A 371C : 325E73 LD (735E),A 371F : F1 POP AF 3720 : C9 RET 3721 : 210C73 LD HL,730C 3724 : 111473 LD DE,7314 3727 : 010700 LD BC,0007 372A : EDB0 LDIR 372C : CD3837 CALL 3738 372F : CD3837 CALL 3738 3732 : CDBE33 CALL 33BE 3735 : 3001 JR NC,3738 3737 : 0C INC C 3738 : 211273 LD HL,7312 373B : 0607 LD B,07 373D : B7 OR A 373E : CDB133 CALL 33B1 3741 : 79 LD A,C 3742 : 17 RLA 3743 : 4F LD C,A 3744 : C9 RET 3745 : E5 PUSH HL 3746 : D5 PUSH DE 3747 : C5 PUSH BC 3748 : 210B73 LD HL,730B 374B : 115373 LD DE,7353 374E : C32431 JP 3124 3751 : E5 PUSH HL 3752 : D5 PUSH DE 3753 : C5 PUSH BC 3754 : 215373 LD HL,7353 3757 : 110B73 LD DE,730B 375A : 18F2 JR 374E 375C : D5 PUSH DE 375D : 1A LD A,(DE) 375E : E67F AND 7F 3760 : D640 SUB 40 3762 : EB EX DE,HL 3763 : CB3F SRL A 3765 : 3C INC A 3766 : 5F LD E,A 3767 : 47 LD B,A 3768 : 1600 LD D,00 376A : F5 PUSH AF 376B : 19 ADD HL,DE 376C : F1 POP AF 376D : 7E LD A,(HL) 376E : D1 POP DE 376F : C9 RET 3770 : E5 PUSH HL 3771 : C5 PUSH BC 3772 : CD5C37 CALL 375C 3775 : C1 POP BC 3776 : 3004 JR NC,377C 3778 : CB67 BIT 4,A 377A : E1 POP HL 377B : C9 RET 377C : 2B DEC HL 377D : 7E LD A,(HL) 377E : CB47 BIT 0,A 3780 : E1 POP HL 3781 : C9 RET 3782 : E5 PUSH HL 3783 : C5 PUSH BC 3784 : CD5C37 CALL 375C 3787 : 3002 JR NC,378B 3789 : E60F AND 0F 378B : B7 OR A 378C : 200C JR NZ,379A 378E : 3E07 LD A,07 3790 : 90 SUB B 3791 : 47 LD B,A 3792 : 23 INC HL 3793 : 7E LD A,(HL) 3794 : B7 OR A 3795 : 2003 JR NZ,379A 3797 : 10F9 DJNZ 3792 3799 : AF XOR A 379A : C1 POP BC 379B : E1 POP HL 379C : C9 RET 379D : CD1C54 CALL 541C 37A0 : CDC338 CALL 38C3 37A3 : 11A937 LD DE,37A9 37A6 : C32233 JP 3322 37A9 : DB 40,6F,2D,EC,54,9B,94,3C ;log e 37B1 : 1A LD A,(DE) 37B2 : B7 OR A 37B3 : 200A JR NZ,37BF 37B5 : E5 PUSH HL 37B6 : 217539 LD HL,3975 37B9 : CDEE30 CALL 30EE 37BC : E1 POP HL 37BD : 183A JR 37F9 37BF : 3A0B73 LD A,(730B) 37C2 : B7 OR A 37C3 : CA3C31 JP Z,313C 37C6 : CB7F BIT 7,A 37C8 : F5 PUSH AF 37C9 : 2806 JR Z,37D1 37CB : CD8237 CALL 3782 37CE : C46E30 CALL NZ,306E 37D1 : F1 POP AF 37D2 : 17 RLA 37D3 : F5 PUSH AF 37D4 : CB3F SRL A 37D6 : 320B73 LD (730B),A 37D9 : D5 PUSH DE 37DA : CDC338 CALL 38C3 37DD : D1 POP DE 37DE : D5 PUSH DE 37DF : CD2233 CALL 3322 37E2 : D1 POP DE 37E3 : D8 RET C 37E4 : D5 PUSH DE 37E5 : CD7E3A CALL 3A7E 37E8 : D1 POP DE 37E9 : F1 POP AF 37EA : 300D JR NC,37F9 37EC : CD7037 CALL 3770 37EF : 2808 JR Z,37F9 37F1 : 3A0B73 LD A,(730B) 37F4 : CBFF SET 7,A 37F6 : 320B73 LD (730B),A 37F9 : C34031 JP 3140 37FC : CD973C CALL 3C97 37FF : C34031 JP 3140 3802 : DB 41,32,43,F6,A8,88,5A,31 ;konstanta pi 380A : D9 EXX 380B : 211438 LD HL,3814 380E : CDDD32 CALL 32DD 3811 : C33F31 JP 313F 3814 : DB 3F,47,7D,1A,89,4A,74,E4 ;pi/180 381C : D9 EXX 381D : 211438 LD HL,3814 3820 : CD2F33 CALL 332F 3823 : C33F31 JP 313F 3826 : F5 PUSH AF 3827 : 3A5F73 LD A,(735F) 382A : B7 OR A 382B : C41C38 CALL NZ,381C 382E : F1 POP AF 382F : C9 RET 3830 : F5 PUSH AF 3831 : 3A5F73 LD A,(735F) 3834 : B7 OR A 3835 : C40A38 CALL NZ,380A 3838 : F1 POP AF 3839 : C9 RET 383A : 210B73 LD HL,730B 383D : 3E80 LD A,80 383F : AE XOR (HL) 3840 : 77 LD (HL),A 3841 : E67F AND 7F 3843 : CC2D31 CALL Z,312D 3846 : C34031 JP 3140 3849 : CD1C54 CALL 541C 384C : D9 EXX 384D : CD8B38 CALL 388B 3850 : C33F31 JP 313F 3853 : CD1C54 CALL 541C 3856 : D9 EXX 3857 : CD5C38 CALL 385C 385A : 18F4 JR 3850 385C : 3A0B73 LD A,(730B) 385F : CB7F BIT 7,A 3861 : 2828 JR Z,388B 3863 : B7 OR A 3864 : 2825 JR Z,388B 3866 : D6C1 SUB C1 3868 : 381B JR C,3885 386A : FE0D CP 0D 386C : D0 RET NC 386D : CDAC38 CALL 38AC 3870 : 2008 JR NZ,387A 3872 : 7E LD A,(HL) 3873 : E6F0 AND F0 3875 : B1 OR C 3876 : 4F LD C,A 3877 : 05 DEC B 3878 : 2808 JR Z,3882 387A : 7E LD A,(HL) 387B : E60F AND 0F 387D : B1 OR C 387E : 4F LD C,A 387F : 23 INC HL 3880 : 10F0 DJNZ 3872 3882 : 79 LD A,C 3883 : B7 OR A 3884 : C8 RET Z 3885 : 217539 LD HL,3975 3888 : CD4F32 CALL 324F 388B : 3A0B73 LD A,(730B) 388E : E67F AND 7F 3890 : C8 RET Z 3891 : D641 SUB 41 3893 : DA2D31 JP C,312D 3896 : FE0D CP 0D 3898 : D0 RET NC 3899 : CDAC38 CALL 38AC 389C : 2006 JR NZ,38A4 389E : 7E LD A,(HL) 389F : E60F AND 0F 38A1 : 77 LD (HL),A 38A2 : 05 DEC B 38A3 : C8 RET Z 38A4 : 7E LD A,(HL) 38A5 : E6F0 AND F0 38A7 : 77 LD (HL),A 38A8 : 23 INC HL 38A9 : 10F3 DJNZ 389E 38AB : C9 RET 38AC : 47 LD B,A 38AD : 210C73 LD HL,730C 38B0 : 3C INC A 38B1 : B7 OR A 38B2 : 1F RRA 38B3 : 5F LD E,A 38B4 : 1600 LD D,00 38B6 : 19 ADD HL,DE 38B7 : 3E0D LD A,0D 38B9 : 90 SUB B 38BA : 47 LD B,A 38BB : 0E00 LD C,00 38BD : CB47 BIT 0,A 38BF : C9 RET 38C0 : CD1C54 CALL 541C 38C3 : D9 EXX 38C4 : 213473 LD HL,7334 38C7 : CD1A31 CALL 311A 38CA : 217539 LD HL,3975 38CD : CD4F32 CALL 324F 38D0 : 110B73 LD DE,730B 38D3 : 1A LD A,(DE) 38D4 : B7 OR A 38D5 : CA5F39 JP Z,395F 38D8 : 213473 LD HL,7334 38DB : CD0F31 CALL 310F 38DE : 210B73 LD HL,730B 38E1 : CB7E BIT 7,(HL) 38E3 : 2004 JR NZ,38E9 38E5 : 7E LD A,(HL) 38E6 : B7 OR A 38E7 : 2003 JR NZ,38EC 38E9 : CD6E30 CALL 306E 38EC : D640 SUB 40 38EE : 3D DEC A 38EF : 87 ADD A,A 38F0 : 87 ADD A,A 38F1 : F5 PUSH AF 38F2 : 57 LD D,A 38F3 : 210C73 LD HL,730C 38F6 : 0600 LD B,00 38F8 : 7E LD A,(HL) 38F9 : E6E0 AND E0 38FB : 2806 JR Z,3903 38FD : CDA233 CALL 33A2 3900 : 14 INC D 3901 : 18F0 JR 38F3 3903 : 2B DEC HL 3904 : 3641 LD (HL),41 3906 : 214473 LD HL,7344 3909 : CD1A31 CALL 311A 390C : F1 POP AF 390D : 7A LD A,D 390E : CD6239 CALL 3962 3911 : 219539 LD HL,3995 3914 : CDDD32 CALL 32DD 3917 : 213C73 LD HL,733C 391A : CD1A31 CALL 311A 391D : 214473 LD HL,7344 3920 : CD0F31 CALL 310F 3923 : EB EX DE,HL 3924 : 219D39 LD HL,399D 3927 : CD5332 CALL 3253 392A : EB EX DE,HL 392B : CD1A31 CALL 311A 392E : EB EX DE,HL 392F : CD4F32 CALL 324F 3932 : CD4F32 CALL 324F 3935 : EB EX DE,HL 3936 : CD2F33 CALL 332F 3939 : EB EX DE,HL 393A : 218D39 LD HL,398D 393D : CDDD32 CALL 32DD 3940 : EB EX DE,HL 3941 : CD1A31 CALL 311A 3944 : CDDD32 CALL 32DD 3947 : 21A539 LD HL,39A5 394A : CDED3B CALL 3BED 394D : 214473 LD HL,7344 3950 : CDDD32 CALL 32DD 3953 : 218539 LD HL,3985 3956 : CD5332 CALL 3253 3959 : 213C73 LD HL,733C 395C : CD5332 CALL 3253 395F : C33F31 JP 313F 3962 : 010006 LD BC,0600 3965 : 214C73 LD HL,734C 3968 : E5 PUSH HL 3969 : 3001 JR NC,396C 396B : 0D DEC C 396C : 71 LD (HL),C 396D : 23 INC HL 396E : 10FC DJNZ 396C 3970 : 77 LD (HL),A 3971 : E1 POP HL 3972 : C34631 JP 3146 3975 : DB 41,10,00,00,00,00,00,00 397D : DB 40,80,00,00,00,00,00,00 3985 : DB 40,58,B9,0B,FB,E8,E7,B9 398D : DB 41,5D,41,3C,CC,FE,77,80 3995 : DB 40,B1,72,17,F7,D1,CF,7A 399D : DB 41,16,A0,9E,66,7F,3B,CD 39A5 : DB 38,14,AB,A6,0F,2D,0B,BA 39AD : DB 39,2F,3A,D5,4B,14,9D,D8 39B5 : DB 3A,7A,F9,04,4D,F9,9F,60 39BD : DB 3C,14,FA,B6,CC,40,37,AE 39C5 : DB 3D,3E,5C,0C,37,24,1C,24 39CD : DB 3E,DC,AA,62,3C,3F,0D,B0 39D5 : DB 40,57,D8,66,60,31,0C,E2 39DD : DB 00 39DE : CD1C54 CALL 541C 39E1 : 3A0B73 LD A,(730B) 39E4 : B7 OR A 39E5 : FC6E30 CALL M,306E 39E8 : 2844 JR Z,3A2E 39EA : 213C73 LD HL,733C 39ED : CD1A31 CALL 311A 39F0 : D640 SUB 40 39F2 : 214B3A LD HL,3A4B 39F5 : 11633A LD DE,3A63 39F8 : 1F RRA 39F9 : 3002 JR NC,39FD 39FB : EB EX DE,HL 39FC : 3C INC A 39FD : F5 PUSH AF 39FE : 3E40 LD A,40 3A00 : 320B73 LD (730B),A 3A03 : 010800 LD BC,0008 3A06 : CD5332 CALL 3253 3A09 : 09 ADD HL,BC 3A0A : EB EX DE,HL 3A0B : 213473 LD HL,7334 3A0E : CD1A31 CALL 311A 3A11 : EB EX DE,HL 3A12 : CD0F31 CALL 310F 3A15 : 09 ADD HL,BC 3A16 : EB EX DE,HL 3A17 : CD2F33 CALL 332F 3A1A : EB EX DE,HL 3A1B : CD5332 CALL 3253 3A1E : 210B73 LD HL,730B 3A21 : F1 POP AF 3A22 : 86 ADD A,(HL) 3A23 : 77 LD (HL),A 3A24 : EB EX DE,HL 3A25 : CD313A CALL 3A31 3A28 : CD313A CALL 3A31 3A2B : CD313A CALL 3A31 3A2E : C34031 JP 3140 3A31 : CD1A31 CALL 311A 3A34 : E5 PUSH HL 3A35 : 213C73 LD HL,733C 3A38 : CD0F31 CALL 310F 3A3B : E1 POP HL 3A3C : CD2F33 CALL 332F 3A3F : CD5332 CALL 3253 3A42 : E5 PUSH HL 3A43 : 217D39 LD HL,397D 3A46 : CDDD32 CALL 32DD 3A49 : E1 POP HL 3A4A : C9 RET 3A4B : DB 40,F4,45,45,84,6E,8F,29 3A53 : DB C1,19,3C,7F,77,AF,64,06 3A5B : DB 41,1C,EA,01,25,99,ED,7C 3A63 : DB 40,E0,A7,3F,74,8A,15,98 3A6B : DB C0,57,D1,42,7D,53,11,F6 3A73 : DB 40,6D,C5,82,55,B0,38,BD 3A7B : CD1C54 CALL 541C 3A7E : D9 EXX 3A7F : 21493B LD HL,3B49 3A82 : CD923B CALL 3B92 3A85 : DA3C31 JP C,313C 3A88 : 21513B LD HL,3B51 3A8B : CD923B CALL 3B92 3A8E : D46F30 CALL NC,306F 3A91 : 210B73 LD HL,730B 3A94 : 7E LD A,(HL) 3A95 : 17 RLA 3A96 : F5 PUSH AF 3A97 : CBBE RES 7,(HL) 3A99 : 21593B LD HL,3B59 3A9C : CDDD32 CALL 32DD 3A9F : CDB83B CALL 3BB8 3AA2 : 21613B LD HL,3B61 3AA5 : CDDD32 CALL 32DD 3AA8 : 213C73 LD HL,733C 3AAB : CD1A31 CALL 311A 3AAE : CDDD32 CALL 32DD 3AB1 : 21693B LD HL,3B69 3AB4 : CDDD32 CALL 32DD 3AB7 : 217539 LD HL,3975 3ABA : CD5332 CALL 3253 3ABD : 214473 LD HL,7344 3AC0 : CD1A31 CALL 311A 3AC3 : 213C73 LD HL,733C 3AC6 : CD0F31 CALL 310F 3AC9 : CDDD32 CALL 32DD 3ACC : 21793B LD HL,3B79 3ACF : CDED3B CALL 3BED 3AD2 : 214473 LD HL,7344 3AD5 : CD2F33 CALL 332F 3AD8 : CD1A31 CALL 311A 3ADB : 213C73 LD HL,733C 3ADE : CD0F31 CALL 310F 3AE1 : 21713B LD HL,3B71 3AE4 : CDDD32 CALL 32DD 3AE7 : 214473 LD HL,7344 3AEA : CD5332 CALL 3253 3AED : CD1A31 CALL 311A 3AF0 : 213C73 LD HL,733C 3AF3 : CD0F31 CALL 310F 3AF6 : 214473 LD HL,7344 3AF9 : CD2F33 CALL 332F 3AFC : 217539 LD HL,3975 3AFF : CD5332 CALL 3253 3B02 : 210B73 LD HL,730B 3B05 : CDDD32 CALL 32DD 3B08 : 215273 LD HL,7352 3B0B : 5E LD E,(HL) 3B0C : 1602 LD D,02 3B0E : AF XOR A 3B0F : 7B LD A,E 3B10 : 1F RRA 3B11 : 5F LD E,A 3B12 : 79 LD A,C 3B13 : 1F RRA 3B14 : 4F LD C,A 3B15 : 15 DEC D 3B16 : 20F6 JR NZ,3B0E 3B18 : 07 RLCA 3B19 : 07 RLCA 3B1A : E603 AND 03 3B1C : 4F LD C,A 3B1D : 210B73 LD HL,730B 3B20 : 7E LD A,(HL) 3B21 : 83 ADD A,E 3B22 : 57 LD D,A 3B23 : 78 LD A,B 3B24 : 17 RLA 3B25 : 7A LD A,D 3B26 : 3002 JR NC,3B2A 3B28 : 93 SUB E 3B29 : 93 SUB E 3B2A : 77 LD (HL),A 3B2B : 79 LD A,C 3B2C : B7 OR A 3B2D : 2810 JR Z,3B3F 3B2F : 23 INC HL 3B30 : 78 LD A,B 3B31 : 2F CPL 3B32 : E680 AND 80 3B34 : 47 LD B,A 3B35 : E5 PUSH HL 3B36 : C5 PUSH BC 3B37 : CDA233 CALL 33A2 3B3A : C1 POP BC 3B3B : E1 POP HL 3B3C : 0D DEC C 3B3D : 20F6 JR NZ,3B35 3B3F : CD5D31 CALL 315D 3B42 : F1 POP AF 3B43 : DCDC3B CALL C,3BDC 3B46 : C33F31 JP 313F 3B49 : DB C2,B1,00,00,00,00,00,00 3B51 : DB 42,AE,00,00,00,00,00,00 3B59 : DB 41,17,15,47,65,2B,82,FE 3B61 : DB 40,58,B9,0B,FB,E8,E7,BA 3B69 : DB 3F,61,7D,ED,17,FC,DA,63 3B71 : DB C0,80,00,00,00,00,00,00 3B79 : DB 3E,26,F7,90,0A,BE,75,6F 3B81 : DB 40,1B,6D,34,26,AF,6F,D8 3B89 : DB 41,10,00,00,00,00,05,BF 3B91 : DB 00 3B92 : C5 PUSH BC 3B93 : D5 PUSH DE 3B94 : E5 PUSH HL 3B95 : CD9C3B CALL 3B9C 3B98 : E1 POP HL 3B99 : D1 POP DE 3B9A : C1 POP BC 3B9B : C9 RET 3B9C : 110B73 LD DE,730B 3B9F : 1A LD A,(DE) 3BA0 : 4F LD C,A 3BA1 : AE XOR (HL) 3BA2 : FAB43B JP M,3BB4 3BA5 : CB79 BIT 7,C 3BA7 : 2801 JR Z,3BAA 3BA9 : EB EX DE,HL 3BAA : 0608 LD B,08 3BAC : 1A LD A,(DE) 3BAD : 96 SUB (HL) 3BAE : C0 RET NZ 3BAF : 13 INC DE 3BB0 : 23 INC HL 3BB1 : 10F9 DJNZ 3BAC 3BB3 : C9 RET 3BB4 : 37 SCF 3BB5 : CB11 RL C 3BB7 : C9 RET 3BB8 : CD4537 CALL 3745 3BBB : 214C73 LD HL,734C 3BBE : CD9731 CALL 3197 3BC1 : 214C73 LD HL,734C 3BC4 : CD4631 CALL 3146 3BC7 : 210B73 LD HL,730B 3BCA : 113473 LD DE,7334 3BCD : 010800 LD BC,0008 3BD0 : EDB0 LDIR 3BD2 : CD5137 CALL 3751 3BD5 : 213473 LD HL,7334 3BD8 : CD4F32 CALL 324F 3BDB : C9 RET 3BDC : 213C73 LD HL,733C 3BDF : CD1A31 CALL 311A 3BE2 : E5 PUSH HL 3BE3 : 217539 LD HL,3975 3BE6 : CD0F31 CALL 310F 3BE9 : E1 POP HL 3BEA : C32F33 JP 332F 3BED : C5 PUSH BC 3BEE : E5 PUSH HL 3BEF : 010800 LD BC,0008 3BF2 : 213473 LD HL,7334 3BF5 : CD1A31 CALL 311A 3BF8 : D1 POP DE 3BF9 : EB EX DE,HL 3BFA : CD0F31 CALL 310F 3BFD : 09 ADD HL,BC 3BFE : 7E LD A,(HL) 3BFF : B7 OR A 3C00 : 280A JR Z,3C0C 3C02 : EB EX DE,HL 3C03 : CDDD32 CALL 32DD 3C06 : EB EX DE,HL 3C07 : CD5332 CALL 3253 3C0A : 18F1 JR 3BFD 3C0C : C1 POP BC 3C0D : C9 RET 3C0E : CD1C54 CALL 541C 3C11 : 3E02 LD A,02 3C13 : 180B JR 3C20 3C15 : CD1C54 CALL 541C 3C18 : 3A0B73 LD A,(730B) 3C1B : 07 RLCA 3C1C : 07 RLCA 3C1D : 07 RLCA 3C1E : E604 AND 04 3C20 : CD3038 CALL 3830 3C23 : F5 PUSH AF 3C24 : CD973C CALL 3C97 3C27 : 210F3D LD HL,3D0F 3C2A : CD2F33 CALL 332F 3C2D : CDB83B CALL 3BB8 3C30 : 215273 LD HL,7352 3C33 : F1 POP AF 3C34 : 86 ADD A,(HL) 3C35 : E607 AND 07 3C37 : F5 PUSH AF 3C38 : 1F RRA 3C39 : 3011 JR NC,3C4C 3C3B : 213473 LD HL,7334 3C3E : CD1A31 CALL 311A 3C41 : EB EX DE,HL 3C42 : 217539 LD HL,3975 3C45 : CD0F31 CALL 310F 3C48 : EB EX DE,HL 3C49 : CD4F32 CALL 324F 3C4C : F1 POP AF 3C4D : 47 LD B,A 3C4E : E604 AND 04 3C50 : F5 PUSH AF 3C51 : 4F LD C,A 3C52 : 78 LD A,B 3C53 : 91 SUB C 3C54 : B7 OR A 3C55 : F5 PUSH AF 3C56 : EC823C CALL PE,3C82 3C59 : F1 POP AF 3C5A : E4733C CALL PO,3C73 3C5D : 210B73 LD HL,730B 3C60 : F1 POP AF 3C61 : 280D JR Z,3C70 3C63 : 3E80 LD A,80 3C65 : 47 LD B,A 3C66 : 7E LD A,(HL) 3C67 : B7 OR A 3C68 : 2806 JR Z,3C70 3C6A : 78 LD A,B 3C6B : B6 OR (HL) 3C6C : 77 LD (HL),A 3C6D : 1801 JR 3C70 3C6F : F1 POP AF 3C70 : C34031 JP 3140 3C73 : 213473 LD HL,7334 3C76 : CD1A31 CALL 311A 3C79 : CDDD32 CALL 32DD 3C7C : 219D3C LD HL,3C9D 3C7F : C3ED3B JP 3BED 3C82 : 11D63C LD DE,3CD6 3C85 : 213C73 LD HL,733C 3C88 : CD1A31 CALL 311A 3C8B : CDDD32 CALL 32DD 3C8E : E5 PUSH HL 3C8F : EB EX DE,HL 3C90 : CDED3B CALL 3BED 3C93 : E1 POP HL 3C94 : C3DD32 JP 32DD 3C97 : 210B73 LD HL,730B 3C9A : CBBE RES 7,(HL) 3C9C : C9 RET 3C9D : DB 38,7C,F2,4A,05,3B,36,80 3CA5 : DB BA,69,B2,62,61,F8,B3,B8 3CAD : DB 3C,3C,3E,9F,5C,1E,7D,95 3CB5 : DB BE,15,5D,3C,7D,B7,83,80 3CBD : DB 3F,40,F0,7C,20,6B,FE,92 3CC5 : DB C0,4E,F4,F3,26,F9,15,FE 3CCD : DB 40,FF,FF,FF,FF,FF,FF,FF 3CD5 : DB 00 3CD6 : DB 37,78,FB,B4,E1,B7,2D,F0 3CDE : DB B9,78,C0,18,E6,6C,05,00 3CE6 : DB 3B,54,1E,0B,F2,8C,7B,C7 3CEE : DB BD,26,5A,59,9C,5A,A5,EA 3CF6 : DB 3E,A3,35,E3,3B,AC,37,F0 3CFE : DB C0,14,AB,BC,E6,25,BE,3E 3D06 : DB 40,C9,0F,DA,A2,21,68,C0 3D0E : DB 00 3D0F : DB 40,C9,0F,DA,A2,21,68,80 3D17 : CD1C54 CALL 541C 3D1A : CD3038 CALL 3830 3D1D : 210B73 LD HL,730B 3D20 : 46 LD B,(HL) 3D21 : CBBE RES 7,(HL) 3D23 : 111273 LD DE,7312 3D26 : 1A LD A,(DE) 3D27 : 4F LD C,A 3D28 : AF XOR A 3D29 : 12 LD (DE),A 3D2A : E5 PUSH HL 3D2B : 217B3D LD HL,3D7B 3D2E : CD923B CALL 3B92 3D31 : E1 POP HL 3D32 : 70 LD (HL),B 3D33 : 79 LD A,C 3D34 : 12 LD (DE),A 3D35 : CC6E30 CALL Z,306E 3D38 : 3A0B73 LD A,(730B) 3D3B : B7 OR A 3D3C : F5 PUSH AF 3D3D : FC973C CALL M,3C97 3D40 : 21893D LD HL,3D89 3D43 : CD2F33 CALL 332F 3D46 : CDB83B CALL 3BB8 3D49 : 3A5273 LD A,(7352) 3D4C : E603 AND 03 3D4E : F5 PUSH AF 3D4F : 1F RRA 3D50 : 3011 JR NC,3D63 3D52 : 213473 LD HL,7334 3D55 : CD1A31 CALL 311A 3D58 : EB EX DE,HL 3D59 : 217539 LD HL,3975 3D5C : CD0F31 CALL 310F 3D5F : EB EX DE,HL 3D60 : CD4F32 CALL 324F 3D63 : F1 POP AF 3D64 : F5 PUSH AF 3D65 : EC913D CALL PE,3D91 3D68 : F1 POP AF 3D69 : F5 PUSH AF 3D6A : E4833D CALL PO,3D83 3D6D : F1 POP AF 3D6E : 0F RRCA 3D6F : 0F RRCA 3D70 : 47 LD B,A 3D71 : F1 POP AF 3D72 : A8 XOR B 3D73 : E680 AND 80 3D75 : 210B73 LD HL,730B 3D78 : C3653C JP 3C65 3D7B : DB 41,19,21,FB,54,44,2D,00 ;pi/2 3D83 : CD913D CALL 3D91 3D86 : C3DC3B JP 3BDC 3D89 : DB 40,C9,0F,DA,A2,21,68,C2 ;pi/4 3D91 : 213C73 LD HL,733C 3D94 : CD1A31 CALL 311A 3D97 : CDDD32 CALL 32DD 3D9A : 21C13D LD HL,3DC1 3D9D : CDED3B CALL 3BED 3DA0 : 214473 LD HL,7344 3DA3 : CD1A31 CALL 311A 3DA6 : 213C73 LD HL,733C 3DA9 : CD0F31 CALL 310F 3DAC : CDDD32 CALL 32DD 3DAF : 21E23D LD HL,3DE2 3DB2 : CDED3B CALL 3BED 3DB5 : 213C73 LD HL,733C 3DB8 : CDDD32 CALL 32DD 3DBB : 214473 LD HL,7344 3DBE : C32F33 JP 332F 3DC1 : DB 41,10,00,00,00,00,00,00 3DC9 : DB C2,9B,80,D9,58,03,27,A0 3DD1 : DB 44,12,9D,C0,59,51,F1,AF 3DD9 : DB C4,40,FE,F3,CF,CB,DF,D0 3DE1 : DB 00 3DE2 : DB 3D,23,82,F0,5A,AB,FE,81 3DEA : DB 3F,8C,30,15,79,EA,C2,20 3DF2 : DB C1,F8,1C,15,99,0D,EB,10 3DFA : DB 43,41,FF,88,D0,3C,95,70 3E02 : DB C4,33,0C,33,E0,B5,B0,20 3E0A : DB 00 3E0B : CD1C54 CALL 541C 3E0E : 3A0B73 LD A,(730B) 3E11 : B7 OR A 3E12 : F5 PUSH AF 3E13 : FC973C CALL M,3C97 3E16 : 217539 LD HL,3975 3E19 : E5 PUSH HL 3E1A : CD923B CALL 3B92 3E1D : D1 POP DE 3E1E : F5 PUSH AF 3E1F : 2803 JR Z,3E24 3E21 : D4DC3B CALL NC,3BDC 3E24 : 21813E LD HL,3E81 3E27 : CD923B CALL 3B92 3E2A : F5 PUSH AF 3E2B : 3828 JR C,3E55 3E2D : 213473 LD HL,7334 3E30 : CD1A31 CALL 311A 3E33 : EB EX DE,HL 3E34 : 21893E LD HL,3E89 3E37 : CD5332 CALL 3253 3E3A : E5 PUSH HL 3E3B : 213C73 LD HL,733C 3E3E : CD1A31 CALL 311A 3E41 : E1 POP HL 3E42 : CD0F31 CALL 310F 3E45 : EB EX DE,HL 3E46 : CDDD32 CALL 32DD 3E49 : 217539 LD HL,3975 3E4C : CD4F32 CALL 324F 3E4F : 213C73 LD HL,733C 3E52 : CD2F33 CALL 332F 3E55 : CD7B3E CALL 3E7B 3E58 : F1 POP AF 3E59 : 3806 JR C,3E61 3E5B : 21913E LD HL,3E91 3E5E : CD5332 CALL 3253 3E61 : F1 POP AF 3E62 : 2813 JR Z,3E77 3E64 : 3811 JR C,3E77 3E66 : 213473 LD HL,7334 3E69 : CD1A31 CALL 311A 3E6C : 11993E LD DE,3E99 3E6F : EB EX DE,HL 3E70 : CD0F31 CALL 310F 3E73 : EB EX DE,HL 3E74 : CD4F32 CALL 324F 3E77 : F1 POP AF 3E78 : C3733D JP 3D73 3E7B : 11A13E LD DE,3EA1 3E7E : C3853C JP 3C85 3E81 : DB 40,44,98,51,7A,7B,35,59 3E89 : DB 41,1B,B6,7A,E8,58,4C,8F 3E91 : DB 40,86,0A,91,C1,6B,9B,2C 3E99 : DB 41,19,21,FB,54,44,2D,18 3EA1 : DB 3F,B5,D1,C7,E4,C0,E6,10 3EA9 : DB C0,10,98,D3,61,01,00,21 3EB1 : DB 40,13,A8,C0,45,CD,98,A2 3EB9 : DB C0,17,45,77,33,A1,4D,73 3EC1 : DB 40,1C,71,C4,E4,F2,A5,61 3EC9 : DB C0,24,92,49,1C,B7,67,1D 3ED1 : DB 40,33,33,33,33,25,3A,EB 3ED9 : DB C0,55,55,55,55,55,4B,C1 3EE1 : DB 40,FF,FF,FF,FF,FF,FF,FF 3EE9 : DB 00 3EEA : CD1537 CALL 3715 3EED : 216073 LD HL,7360 3EF0 : 110C73 LD DE,730C 3EF3 : 010700 LD BC,0007 3EF6 : C5 PUSH BC 3EF7 : EDB0 LDIR 3EF9 : C1 POP BC 3EFA : C5 PUSH BC 3EFB : 213D3F LD HL,3F3D 3EFE : 111473 LD DE,7314 3F01 : D5 PUSH DE 3F02 : EDB0 LDIR 3F04 : CDDA33 CALL 33DA 3F07 : 21443F LD HL,3F44 3F0A : D1 POP DE 3F0B : C1 POP BC 3F0C : EDB0 LDIR 3F0E : CDBE33 CALL 33BE 3F11 : 210B73 LD HL,730B 3F14 : 3640 LD (HL),40 3F16 : 23 INC HL 3F17 : 7E LD A,(HL) 3F18 : 23 INC HL 3F19 : 46 LD B,(HL) 3F1A : 23 INC HL 3F1B : 4E LD C,(HL) 3F1C : 77 LD (HL),A 3F1D : 2B DEC HL 3F1E : 71 LD (HL),C 3F1F : 2B DEC HL 3F20 : 70 LD (HL),B 3F21 : 211073 LD HL,7310 3F24 : 7E LD A,(HL) 3F25 : 23 INC HL 3F26 : 23 INC HL 3F27 : 46 LD B,(HL) 3F28 : 77 LD (HL),A 3F29 : 2B DEC HL 3F2A : 2B DEC HL 3F2B : 70 LD (HL),B 3F2C : CD5D31 CALL 315D 3F2F : 210C73 LD HL,730C 3F32 : 116073 LD DE,7360 3F35 : 010700 LD BC,0007 3F38 : EDB0 LDIR 3F3A : C34031 JP 3140 3F3D : DB 2F,AF,07,00,00,00,01 3F44 : DB 2C,36,19,00,00,00,03 3F4B : CDDB02 CALL 02DB ;RANDOMIZE 3F4E : E5 PUSH HL 3F4F : C1 POP BC 3F50 : ED5F LD A,R 3F52 : 216073 LD HL,7360 3F55 : 57 LD D,A 3F56 : 81 ADD A,C 3F57 : 77 LD (HL),A 3F58 : 23 INC HL 3F59 : 7A LD A,D 3F5A : 91 SUB C 3F5B : 77 LD (HL),A 3F5C : 23 INC HL 3F5D : 7A LD A,D 3F5E : A1 AND A,C 3F5F : 77 LD (HL),A 3F60 : 23 INC HL 3F61 : 7A LD A,D 3F62 : B1 OR C 3F63 : 77 LD (HL),A 3F64 : 23 INC HL 3F65 : 72 LD (HL),D 3F66 : 23 INC HL 3F67 : 71 LD (HL),C 3F68 : 23 INC HL 3F69 : 7A LD A,D 3F6A : A9 XOR C 3F6B : CBC7 SET 0,A 3F6D : 77 LD (HL),A 3F6E : 18CA JR 3F3A 3F70 : E5 PUSH HL 3F71 : 215D73 LD HL,735D 3F74 : CBFE SET 7,(HL) 3F76 : CBAE RES 5,(HL) 3F78 : B7 OR A 3F79 : F5 PUSH AF 3F7A : 1819 JR 3F95 3F7C : 225B73 LD (735B),HL 3F7F : D9 EXX 3F80 : 215D73 LD HL,735D 3F83 : CBF6 SET 6,(HL) 3F85 : B7 OR A 3F86 : F5 PUSH AF 3F87 : 1819 JR 3FA2 3F89 : 37 SCF 3F8A : 06B7 LD B,0B7 3F8C : E5 PUSH HL 3F8D : F5 PUSH AF 3F8E : 215D73 LD HL,735D 3F91 : 3E1F LD A,1F 3F93 : A6 AND A,(HL) 3F94 : 77 LD (HL),A 3F95 : F1 POP AF 3F96 : D9 EXX 3F97 : E1 POP HL 3F98 : F5 PUSH AF 3F99 : 225B73 LD (735B),HL 3F9C : 011B00 LD BC,001B 3F9F : CD6008 CALL 0860 3FA2 : CD5D31 CALL 315D 3FA5 : 210B73 LD HL,730B 3FA8 : 7E LD A,(HL) 3FA9 : CB7F BIT 7,A 3FAB : 2A5B73 LD HL,(735B) 3FAE : 362D LD (HL),2D 3FB0 : 2007 JR NZ,3FB9 3FB2 : 3620 LD (HL),20 3FB4 : F1 POP AF 3FB5 : 3003 JR NC,3FBA 3FB7 : 2B DEC HL 3FB8 : 06F1 LD B,0F1 3FBA : 23 INC HL 3FBB : 225B73 LD (735B),HL 3FBE : 3A0B73 LD A,(730B) 3FC1 : B7 OR A 3FC2 : CAFB40 JP Z,40FB 3FC5 : CBBF RES 7,A 3FC7 : 320B73 LD (730B),A 3FCA : 0E00 LD C,00 3FCC : 110900 LD DE,0009 3FCF : B7 OR A 3FD0 : 2003 JR NZ,3FD5 3FD2 : 0C INC C 3FD3 : 183B JR 4010 3FD5 : 3A0B73 LD A,(730B) 3FD8 : D640 SUB 40 3FDA : 2834 JR Z,4010 3FDC : 3820 JR C,3FFE 3FDE : 215B36 LD HL,365B 3FE1 : CD923B CALL 3B92 3FE4 : 2805 JR Z,3FEB 3FE6 : 300C JR NC,3FF4 3FE8 : B7 OR A 3FE9 : ED52 SBC HL,DE 3FEB : CD2F33 CALL 332F 3FEE : 2B DEC HL 3FEF : 79 LD A,C 3FF0 : 86 ADD A,(HL) 3FF1 : 4F LD C,A 3FF2 : 18E1 JR 3FD5 3FF4 : 2B DEC HL 3FF5 : 7E LD A,(HL) 3FF6 : 23 INC HL 3FF7 : FE40 CP 40 3FF9 : 28F0 JR Z,3FEB 3FFB : 19 ADD HL,DE 3FFC : 18E3 JR 3FE1 3FFE : 21A336 LD HL,36A3 4001 : CD923B CALL 3B92 4004 : 30E2 JR NC,3FE8 4006 : 2B DEC HL 4007 : 7E LD A,(HL) 4008 : 23 INC HL 4009 : FEC0 CP C0 400B : 28DE JR Z,3FEB 400D : 19 ADD HL,DE 400E : 18F1 JR 4001 4010 : C5 PUSH BC 4011 : CD2137 CALL 3721 4014 : C1 POP BC 4015 : 060E LD B,0E 4017 : 212273 LD HL,7322 401A : B7 OR A 401B : 2008 JR NZ,4025 401D : 0D DEC C 401E : C5 PUSH BC 401F : E5 PUSH HL 4020 : CD2137 CALL 3721 4023 : E1 POP HL 4024 : C1 POP BC 4025 : 23 INC HL 4026 : 77 LD (HL),A 4027 : 10F5 DJNZ 401E 4029 : 3E0D LD A,0D 402B : 212373 LD HL,7323 402E : 5F LD E,A 402F : 1600 LD D,00 4031 : 19 ADD HL,DE 4032 : 7E LD A,(HL) 4033 : 43 LD B,E 4034 : D605 SUB 05 4036 : 3810 JR C,4048 4038 : 3600 LD (HL),00 403A : 2B DEC HL 403B : 7E LD A,(HL) 403C : 3C INC A 403D : 77 LD (HL),A 403E : D60A SUB 0A 4040 : 2006 JR NZ,4048 4042 : 77 LD (HL),A 4043 : 10F5 DJNZ 403A 4045 : 3601 LD (HL),01 4047 : 0C INC C 4048 : 215D73 LD HL,735D 404B : CB76 BIT 6,(HL) 404D : 2811 JR Z,4060 404F : CBB6 RES 6,(HL) 4051 : CBEE SET 5,(HL) 4053 : 3A3373 LD A,(7333) 4056 : 81 ADD A,C 4057 : 3D DEC A 4058 : FE0D CP 0D 405A : 30CF JR NC,402B 405C : CB7F BIT 7,A 405E : 28CB JR Z,402B 4060 : 212373 LD HL,7323 4063 : 060E LD B,0E 4065 : 7E LD A,(HL) 4066 : C630 ADD A,30 4068 : 77 LD (HL),A 4069 : 23 INC HL 406A : 10F9 DJNZ 4065 406C : 3A5D73 LD A,(735D) 406F : CB6F BIT 5,A 4071 : C0 RET NZ 4072 : CB7F BIT 7,A 4074 : 2A5B73 LD HL,(735B) 4077 : 112373 LD DE,7323 407A : 79 LD A,C 407B : 323273 LD (7332),A 407E : 3E0D LD A,0D 4080 : C21941 JP NZ,4119 4083 : 79 LD A,C 4084 : 0E00 LD C,00 4086 : 47 LD B,A 4087 : B7 OR A 4088 : 284E JR Z,40D8 408A : FA9340 JP M,4093 408D : FE0E CP 0E 408F : 3008 JR NC,4099 4091 : 180A JR 409D 4093 : CDBB40 CALL 40BB 4096 : 90 SUB B 4097 : FE0E CP 0E 4099 : 307B JR NC,4116 409B : 183B JR 40D8 409D : 1A LD A,(DE) 409E : 77 LD (HL),A 409F : 23 INC HL 40A0 : 13 INC DE 40A1 : 0C INC C 40A2 : 3E0D LD A,0D 40A4 : B9 CP C 40A5 : 2848 JR Z,40EF 40A7 : 10F4 DJNZ 409D 40A9 : CDBB40 CALL 40BB 40AC : 280B JR Z,40B9 40AE : 4F LD C,A 40AF : 362E LD (HL),2E 40B1 : 23 INC HL 40B2 : 1A LD A,(DE) 40B3 : 77 LD (HL),A 40B4 : 13 INC DE 40B5 : 0D DEC C 40B6 : 20F9 JR NZ,40B1 40B8 : 23 INC HL 40B9 : 183E JR 40F9 40BB : C5 PUSH BC 40BC : D5 PUSH DE 40BD : E5 PUSH HL 40BE : 3E0D LD A,0D 40C0 : 91 SUB C 40C1 : EB EX DE,HL 40C2 : 5F LD E,A 40C3 : 1600 LD D,00 40C5 : 19 ADD HL,DE 40C6 : 2B DEC HL 40C7 : 7E LD A,(HL) 40C8 : FE30 CP 30 40CA : 2006 JR NZ,40D2 40CC : 2B DEC HL 40CD : 1D DEC E 40CE : 7B LD A,E 40CF : B7 OR A 40D0 : 20F5 JR NZ,40C7 40D2 : 7B LD A,E 40D3 : B7 OR A 40D4 : E1 POP HL 40D5 : D1 POP DE 40D6 : C1 POP BC 40D7 : C9 RET 40D8 : 3630 LD (HL),30 40DA : 23 INC HL 40DB : 362E LD (HL),2E 40DD : 78 LD A,B 40DE : B7 OR A 40DF : 2806 JR Z,40E7 40E1 : 23 INC HL 40E2 : 3630 LD (HL),30 40E4 : 04 INC B 40E5 : 18F6 JR 40DD 40E7 : CDBB40 CALL 40BB 40EA : 280D JR Z,40F9 40EC : 4F LD C,A 40ED : 18C2 JR 40B1 40EF : 05 DEC B 40F0 : 2807 JR Z,40F9 40F2 : 04 INC B 40F3 : 3E30 LD A,30 40F5 : 23 INC HL 40F6 : 77 LD (HL),A 40F7 : 10FC DJNZ 40F5 40F9 : 1840 JR 413B 40FB : 215D73 LD HL,735D 40FE : CB76 BIT 6,(HL) 4100 : 2008 JR NZ,410A 4102 : 2A5B73 LD HL,(735B) 4105 : 3630 LD (HL),30 4107 : 23 INC HL 4108 : 1831 JR 413B 410A : 01300D LD BC,0D30 410D : 212373 LD HL,7323 4110 : 71 LD (HL),C 4111 : 23 INC HL 4112 : 10FC DJNZ 4110 4114 : 4F LD C,A 4115 : C9 RET 4116 : CDBB40 CALL 40BB 4119 : 47 LD B,A 411A : 1A LD A,(DE) 411B : 77 LD (HL),A 411C : 23 INC HL 411D : 362E LD (HL),2E 411F : 05 DEC B 4120 : 2807 JR Z,4129 4122 : 13 INC DE 4123 : 23 INC HL 4124 : 1A LD A,(DE) 4125 : 77 LD (HL),A 4126 : 0C INC C 4127 : 10F9 DJNZ 4122 4129 : 23 INC HL 412A : 3645 LD (HL),45 412C : 23 INC HL 412D : 3A3273 LD A,(7332) 4130 : 5F LD E,A 4131 : 17 RLA 4132 : 1600 LD D,00 4134 : 3001 JR NC,4137 4136 : 15 DEC D 4137 : 1B DEC DE 4138 : CD0D26 CALL 260D 413B : E5 PUSH HL 413C : D9 EXX 413D : E1 POP HL 413E : C9 RET 413F : 110000 LD DE,0000 4142 : E7 RST 20 4143 : 300E JR NC,4153 4145 : FECE CP CE 4147 : 200A JR NZ,4153 4149 : D5 PUSH DE 414A : EF RST 28 414B : D1 POP DE 414C : E7 RST 20 414D : 3004 JR NC,4153 414F : FECE CP CE 4151 : 2006 JR NZ,4159 4153 : 37 SCF 4154 : C9 RET 4155 : CD4C43 CALL 434C 4158 : EF RST 28 4159 : CD6F2A CALL 2A6F 415C : B7 OR A 415D : C9 RET 415E : CD4343 CALL 4343 4161 : 18F6 JR 4159 4163 : CD4343 CALL 4343 4166 : CD3F41 CALL 413F 4169 : D8 RET C 416A : 182A JR 4196 416C : CD4343 CALL 4343 416F : CD4241 CALL 4142 4172 : D8 RET C 4173 : 1821 JR 4196 4175 : CD4343 CALL 4343 4178 : CD4C41 CALL 414C 417B : D8 RET C 417C : 1818 JR 4196 417E : CD4C43 CALL 434C 4181 : 1806 JR 4189 4183 : CD4C43 CALL 434C 4186 : CD4343 CALL 4343 4189 : CD5841 CALL 4158 418C : 1808 JR 4196 418E : CD4343 CALL 4343 4191 : CD5941 CALL 4159 4194 : 1800 JR 4196 4196 : F5 PUSH AF 4197 : FE00 CP 00 4199 : 280C JR Z,41A7 419B : FE02 CP 02 419D : C47630 CALL NZ,3076 41A0 : EB EX DE,HL 41A1 : CDEE30 CALL 30EE 41A4 : CD2432 CALL 3224 41A7 : F1 POP AF 41A8 : 08 EX AF,AF' 41A9 : E7 RST 20 41AA : B7 OR A 41AB : C9 RET 41AC : CD4343 CALL 4343 41AF : CD3F41 CALL 413F 41B2 : D8 RET C 41B3 : 1825 JR 41DA 41B5 : CD4343 CALL 4343 41B8 : CD4241 CALL 4142 41BB : D8 RET C 41BC : 181C JR 41DA 41BE : CD4C41 CALL 414C 41C1 : D8 RET C 41C2 : 1816 JR 41DA 41C4 : CD4C43 CALL 434C 41C7 : 1806 JR 41CF 41C9 : CD4C43 CALL 434C 41CC : CD4343 CALL 4343 41CF : CD5841 CALL 4158 41D2 : 1806 JR 41DA 41D4 : CD4343 CALL 4343 41D7 : CD5941 CALL 4159 41DA : CD9641 CALL 4196 41DD : 47 LD B,A 41DE : 7A LD A,D 41DF : B7 OR A 41E0 : 78 LD A,B 41E1 : C8 RET Z 41E2 : 2008 JR NZ,41EC 41E4 : 47 LD B,A 41E5 : 7B LD A,E 41E6 : 17 RLA 41E7 : 3E00 LD A,00 41E9 : 8A ADC A,D 41EA : 78 LD A,B 41EB : C8 RET Z 41EC : C46E30 CALL NZ,306E 41EF : CD4C43 CALL 434C 41F2 : 1806 JR 41FA 41F4 : CD4C43 CALL 434C 41F7 : CD4343 CALL 4343 41FA : CD5841 CALL 4158 41FD : 1806 JR 4205 41FF : CD4343 CALL 4343 4202 : CD5941 CALL 4159 4205 : F5 PUSH AF 4206 : FE04 CP 04 4208 : 2015 JR NZ,421F 420A : C3A741 JP 41A7 420D : CD5841 CALL 4158 4210 : 1806 JR 4218 4212 : CD4343 CALL 4343 4215 : CD5941 CALL 4159 4218 : F5 PUSH AF 4219 : FE02 CP 02 421B : 2808 JR Z,4225 421D : FE00 CP 00 421F : C47630 CALL NZ,3076 4222 : CDDB31 CALL 31DB 4225 : C3A741 JP 41A7 4228 : CD3542 CALL 4235 422B : FEBE CP BE 422D : C46B30 CALL NZ,306B 4230 : D5 PUSH DE 4231 : EF RST 28 4232 : E7 RST 20 4233 : D1 POP DE 4234 : C9 RET 4235 : E7 RST 20 4236 : FEBD CP BD 4238 : 20F3 JR NZ,422D 423A : C38941 JP 4189 423D : CD7E41 CALL 417E 4240 : 18E9 JR 422B 4242 : CD4C42 CALL 424C 4245 : 18E4 JR 422B 4247 : CDC441 CALL 41C4 424A : 18DF JR 422B 424C : E7 RST 20 424D : FEBD CP BD 424F : 20DC JR NZ,422D 4251 : C3CF41 JP 41CF 4254 : CD5E42 CALL 425E 4257 : 18D2 JR 422B 4259 : CDEF41 CALL 41EF 425C : 18CD JR 422B 425E : E7 RST 20 425F : FEBD CP BD 4261 : 20CA JR NZ,422D 4263 : C3FA41 JP 41FA 4266 : CD6B42 CALL 426B 4269 : 18C0 JR 422B 426B : E7 RST 20 426C : FEBD CP BD 426E : 20BD JR NZ,422D 4270 : C30D42 JP 420D 4273 : 1E00 LD E,00 4275 : CDBE41 CALL 41BE 4278 : 1803 JR 427D 427A : CDAF41 CALL 41AF 427D : 7B LD A,E 427E : D8 RET C 427F : FE02 CP 02 4281 : D46E30 CALL NC,306E 4284 : B7 OR A 4285 : C9 RET 4286 : CD4343 CALL 4343 4289 : 18EF JR 427A 428B : CD9141 CALL 4191 428E : CDE441 CALL 41E4 4291 : D5 PUSH DE 4292 : CD7E41 CALL 417E 4295 : CDE441 CALL 41E4 4298 : C1 POP BC 4299 : 51 LD D,C 429A : C9 RET 429B : CD3542 CALL 4235 429E : CDE441 CALL 41E4 42A1 : D5 PUSH DE 42A2 : CD3D42 CALL 423D 42A5 : CDE441 CALL 41E4 42A8 : C1 POP BC 42A9 : 51 LD D,C 42AA : C9 RET 42AB : EF RST 28 42AC : CD4343 CALL 4343 42AF : E7 RST 20 42B0 : FED0 CP D0 42B2 : 2849 JR Z,42FD 42B4 : FECC CP CC 42B6 : 2804 JR Z,42BC 42B8 : FECD CP CD 42BA : 2037 JR NZ,42F3 42BC : F5 PUSH AF 42BD : CD8641 CALL 4186 42C0 : 7B LD A,E 42C1 : CD2B04 CALL 042B 42C4 : 3835 JR C,42FB 42C6 : CD2943 CALL 4329 42C9 : F1 POP AF 42CA : FECD CP CD 42CC : 37 SCF 42CD : 3F CCF 42CE : C0 RET NZ 42CF : 3AAF70 LD A,(70AF) 42D2 : E638 AND 38 42D4 : 1F RRA 42D5 : 3D DEC A 42D6 : 0600 LD B,00 42D8 : 4F LD C,A 42D9 : CDDC42 CALL 42DC 42DC : B7 OR A 42DD : ED4A ADC HL,BC 42DF : EC7D30 CALL PE,307D 42E2 : EB EX DE,HL 42E3 : B7 OR A 42E4 : C9 RET 42E5 : 3AAF70 LD A,(70AF) 42E8 : E638 AND 38 42EA : 1F RRA 42EB : 3D DEC A 42EC : ED44 NEG 42EE : 06FF LD B,0FF 42F0 : 18E6 JR 42D8 42F2 : EF RST 28 42F3 : CD8E41 CALL 418E 42F6 : D5 PUSH DE 42F7 : CD8341 CALL 4183 42FA : B7 OR A 42FB : E1 POP HL 42FC : C9 RET 42FD : CDF242 CALL 42F2 4300 : ED4BB270 LD BC,(70B2) 4304 : CD0B43 CALL 430B 4307 : ED4BB070 LD BC,(70B0) 430B : ED4A ADC HL,BC 430D : EC6E30 CALL PE,306E 4310 : EB EX DE,HL 4311 : B7 OR A 4312 : C9 RET 4313 : E5 PUSH HL 4314 : 2AA070 LD HL,(70A0) 4317 : 29 ADD HL,HL 4318 : 29 ADD HL,HL 4319 : 29 ADD HL,HL 431A : 4C LD C,H 431B : 2600 LD H,00 431D : 44 LD B,H 431E : ED5A ADC HL,DE 4320 : EB EX DE,HL 4321 : E1 POP HL 4322 : 37 SCF 4323 : E8 RET PE 4324 : B7 OR A 4325 : ED4A ADC HL,BC 4327 : 1816 JR 433F 4329 : E5 PUSH HL 432A : 2AA070 LD HL,(70A0) 432D : 29 ADD HL,HL 432E : 29 ADD HL,HL 432F : 29 ADD HL,HL 4330 : 4C LD C,H 4331 : 2600 LD H,00 4333 : 44 LD B,H 4334 : EB EX DE,HL 4335 : B7 OR A 4336 : ED52 SBC HL,DE 4338 : EB EX DE,HL 4339 : E1 POP HL 433A : 37 SCF 433B : E8 RET PE 433C : B7 OR A 433D : ED42 SBC HL,BC 433F : 37 SCF 4340 : E8 RET PE 4341 : B7 OR A 4342 : C9 RET 4343 : E5 PUSH HL 4344 : 2A7272 LD HL,(7272) 4347 : 227472 LD (7274),HL 434A : E1 POP HL 434B : C9 RET 434C : E7 RST 20 434D : FECE CP CE 434F : C46B30 CALL NZ,306B 4352 : C9 RET 4353 : 2A7C72 LD HL,(727C) ;LABEL 4356 : 227A72 LD (727A),HL 4359 : C9 RET 435A : 110A00 LD DE,000A ;AUTO 435D : CD7A43 CALL 437A 4360 : D5 PUSH DE 4361 : 110A00 LD DE,000A 4364 : CD7F43 CALL 437F 4367 : ED53AE72 LD (72AE),DE 436B : E1 POP HL 436C : ED52 SBC HL,DE 436E : 22AC72 LD (72AC),HL 4371 : 219172 LD HL,7291 4374 : CBEE SET 5,(HL) 4376 : C1 POP BC 4377 : C3EC20 JP 20EC 437A : CD7541 CALL 4175 437D : 1803 JR 4382 437F : CD6C41 CALL 416C 4382 : 7A LD A,D 4383 : B7 OR A 4384 : FC6B30 CALL M,306B 4387 : B3 OR E 4388 : C0 RET NZ 4389 : CD6B30 CALL 306B 438C : 2A7672 LD HL,(7276) ;CLEAR 438F : ED5B7072 LD DE,(7270) 4393 : 23 INC HL 4394 : B7 OR A 4395 : ED52 SBC HL,DE 4397 : EB EX DE,HL 4398 : E7 RST 20 4399 : FECE CP CE 439B : DCA456 CALL C,56A4 439E : 7A LD A,D 439F : B7 OR A 43A0 : CC6E30 CALL Z,306E 43A3 : D5 PUSH DE 43A4 : EF RST 28 43A5 : FECE CP CE 43A7 : ED5B7672 LD DE,(7276) 43AB : CCA456 CALL Z,56A4 43AE : 2A1670 LD HL,(7016) 43B1 : 2B DEC HL 43B2 : B7 OR A 43B3 : ED52 SBC HL,DE 43B5 : 3807 JR C,43BE 43B7 : E1 POP HL 43B8 : E5 PUSH HL 43B9 : ED4B6C72 LD BC,(726C) 43BD : 09 ADD HL,BC 43BE : DC6E30 CALL C,306E 43C1 : ED52 SBC HL,DE 43C3 : D46E30 CALL NC,306E 43C6 : EB EX DE,HL 43C7 : D1 POP DE 43C8 : 227672 LD (7276),HL 43CB : 23 INC HL 43CC : 228072 LD (7280),HL 43CF : F9 LD SP,HL 43D0 : B7 OR A 43D1 : ED52 SBC HL,DE 43D3 : 227072 LD (7270),HL 43D6 : CDCE29 CALL 29CE 43D9 : CD8D29 CALL 298D 43DC : CDDA29 CALL 29DA 43DF : C30F27 JP 270F 43E2 : 2A9F72 LD HL,(729F) ;CONT 43E5 : 110000 LD DE,0000 43E8 : ED539F72 LD (729F),DE 43EC : 7C LD A,H 43ED : B5 OR L 43EE : CC7530 CALL Z,3075 43F1 : 3AA372 LD A,(72A3) 43F4 : E61F AND 1F 43F6 : E5 PUSH HL 43F7 : 219372 LD HL,7293 43FA : B6 OR (HL) 43FB : 77 LD (HL),A 43FC : E1 POP HL 43FD : C1 POP BC 43FE : C31927 JP 2719 4401 : E7 RST 20 ;DEL 4402 : D0 RET NC 4403 : CDD729 CALL 29D7 4406 : CD9B44 CALL 449B 4409 : E5 PUSH HL 440A : ED4B7E72 LD BC,(727E) 440E : B7 OR A 440F : ED42 SBC HL,BC 4411 : E1 POP HL 4412 : F5 PUSH AF 4413 : CDDB21 CALL 21DB 4416 : F1 POP AF 4417 : D0 RET NC 4418 : C3094A JP 4A09 441B : 3E20 LD A,20 ;LIST 441D : DB 06 ;LD B,0AF 441E : AF XOR A ;CLIST 441F : 320773 LD (7307),A 4422 : 3E08 LD A,08 4424 : CDE244 CALL 44E2 4427 : 2A7C72 LD HL,(727C) 442A : E5 PUSH HL 442B : 7E LD A,(HL) 442C : FECE CP CE 442E : 2807 JR Z,4437 4430 : FEF8 CP F8 4432 : 3EFF LD A,0FF 4434 : DC5E41 CALL C,415E 4437 : FE04 CP 04 4439 : 3AA972 LD A,(72A9) 443C : 2018 JR NZ,4456 443E : D5 PUSH DE 443F : CD8360 CALL 6083 4442 : 3ACA73 LD A,(73CA) 4445 : 322071 LD (7120),A 4448 : 2A1C51 LD HL,(511C) 444B : 54 LD D,H 444C : 7D LD A,L 444D : E1 POP HL 444E : CD1749 CALL 4917 4451 : 7B LD A,E 4452 : 2A7C72 LD HL,(727C) 4455 : E3 EX (SP),HL 4456 : E1 POP HL 4457 : 227C72 LD (727C),HL 445A : 32AB72 LD (72AB),A 445D : CD9B44 CALL 449B 4460 : E5 PUSH HL 4461 : B7 OR A 4462 : ED52 SBC HL,DE 4464 : E1 POP HL 4465 : 3028 JR NC,448F 4467 : D5 PUSH DE 4468 : 110D74 LD DE,740D 446B : D5 PUSH DE 446C : CD3924 CALL 2439 446F : E3 EX (SP),HL 4470 : E5 PUSH HL 4471 : CF RST 08 4472 : CBCE SET 1,(HL) 4474 : E1 POP HL 4475 : CD635D CALL 5D63 4478 : CF RST 08 4479 : CB8E RES 1,(HL) 447B : CDAC08 CALL 08AC 447E : 3809 JR C,4489 4480 : FE20 CP 20 4482 : 2007 JR NZ,448B 4484 : CDAC08 CALL 08AC 4487 : 38FB JR C,4484 4489 : FE0D CP 0D 448B : E1 POP HL 448C : D1 POP DE 448D : 20D1 JR NZ,4460 448F : ED5BAB72 LD DE,(72AB) 4493 : 3AA972 LD A,(72A9) 4496 : BB CP E 4497 : C8 RET Z 4498 : C38B5E JP 5E8B 449B : 110100 LD DE,0001 449E : CD7A43 CALL 437A 44A1 : D5 PUSH DE 44A2 : 11FF7F LD DE,7FFF 44A5 : CD7F43 CALL 437F 44A8 : EB EX DE,HL 44A9 : D1 POP DE 44AA : E5 PUSH HL 44AB : B7 OR A 44AC : ED52 SBC HL,DE 44AE : DC6B30 CALL C,306B 44B1 : CD1D29 CALL 291D 44B4 : D1 POP DE 44B5 : E5 PUSH HL 44B6 : E5 PUSH HL 44B7 : DDE1 POP IX 44B9 : CD2429 CALL 2924 44BC : 3809 JR C,44C7 44BE : 4E LD C,(HL) 44BF : 0600 LD B,00 44C1 : 09 ADD HL,BC 44C2 : 7E LD A,(HL) 44C3 : 23 INC HL 44C4 : 3C INC A 44C5 : 20F7 JR NZ,44BE 44C7 : EB EX DE,HL 44C8 : E1 POP HL 44C9 : C9 RET 44CA : CDD144 CALL 44D1 ;NEW 44CD : C1 POP BC 44CE : C3CD20 JP 20CD 44D1 : 2A6A72 LD HL,(726A) 44D4 : AF XOR A 44D5 : 77 LD (HL),A 44D6 : 23 INC HL 44D7 : 77 LD (HL),A 44D8 : 23 INC HL 44D9 : 226C72 LD (726C),HL 44DC : 329372 LD (7293),A 44DF : C37C29 JP 297C 44E2 : E5 PUSH HL 44E3 : 2A6C72 LD HL,(726C) 44E6 : 2B DEC HL 44E7 : A6 AND A,(HL) 44E8 : E1 POP HL 44E9 : C8 RET Z 44EA : CD6E30 CALL 306E 44ED : 110100 LD DE,0001 ;NOLIST 44F0 : CD7A43 CALL 437A 44F3 : CBFA SET 7,D 44F5 : D5 PUSH DE 44F6 : CD7545 CALL 4575 44F9 : D1 POP DE 44FA : DD2A6A72 LD IX,(726A) 44FE : 210100 LD HL,0001 4501 : 220F74 LD (740F),HL 4504 : 185A JR 4560 4506 : 110A00 LD DE,000A ;RENUM 4509 : CD7A43 CALL 437A 450C : ED530D74 LD (740D),DE 4510 : 2A6A72 LD HL,(726A) 4513 : 23 INC HL 4514 : 23 INC HL 4515 : 23 INC HL 4516 : 5E LD E,(HL) 4517 : 23 INC HL 4518 : 56 LD D,(HL) 4519 : CD7F43 CALL 437F 451C : D5 PUSH DE 451D : 110A00 LD DE,000A 4520 : CD7F43 CALL 437F 4523 : ED530F74 LD (740F),DE 4527 : D1 POP DE 4528 : CD1D29 CALL 291D 452B : DC7130 CALL C,3071 452E : 221174 LD (7411),HL 4531 : E5 PUSH HL 4532 : D9 EXX 4533 : 2A0D74 LD HL,(740D) 4536 : E5 PUSH HL 4537 : 37 SCF 4538 : ED42 SBC HL,BC 453A : DC6E30 CALL C,306E 453D : E1 POP HL 453E : DDE1 POP IX 4540 : E5 PUSH HL 4541 : CD452A CALL 2A45 4544 : E1 POP HL 4545 : 380E JR C,4555 4547 : 20F7 JR NZ,4540 4549 : 7C LD A,H 454A : B0 OR B 454B : FC6E30 CALL M,306E 454E : ED4B0F74 LD BC,(740F) 4552 : 09 ADD HL,BC 4553 : 18EB JR 4540 4555 : CD7545 CALL 4575 4558 : DD2A1174 LD IX,(7411) 455C : ED5B0D74 LD DE,(740D) 4560 : D5 PUSH DE 4561 : CD452A CALL 2A45 4564 : D1 POP DE 4565 : D8 RET C 4566 : 20F8 JR NZ,4560 4568 : 2B DEC HL 4569 : 72 LD (HL),D 456A : 2B DEC HL 456B : 73 LD (HL),E 456C : EB EX DE,HL 456D : ED4B0F74 LD BC,(740F) 4571 : 09 ADD HL,BC 4572 : EB EX DE,HL 4573 : 18EB JR 4560 4575 : DD2A6A72 LD IX,(726A) 4579 : CD452A CALL 2A45 457C : D8 RET C 457D : 2004 JR NZ,4583 457F : ED437872 LD (7278),BC 4583 : 220873 LD (7308),HL 4586 : 7B LD A,E 4587 : FE0A CP 0A 4589 : 38EE JR C,4579 458B : CD632A CALL 2A63 458E : FEF8 CP F8 4590 : 30E7 JR NC,4579 4592 : FEC0 CP C0 4594 : 20F5 JR NZ,458B 4596 : 7A LD A,D 4597 : B3 OR E 4598 : 28F1 JR Z,458B 459A : 3EC0 LD A,0C0 459C : DDE5 PUSH IX 459E : CDD328 CALL 28D3 45A1 : DDE1 POP IX 45A3 : 18E6 JR 458B 45A5 : E7 RST 20 ;RUN 45A6 : 300D JR NC,45B5 ;je ukoncovac? 45A8 : E5 PUSH HL ;ne, tak vyber token 45A9 : CD5E41 CALL 415E 45AC : E1 POP HL 45AD : FE04 CP 04 ;je to retezec? 45AF : 37 SCF 45B0 : 2803 JR Z,45B5 45B2 : 227C72 LD (727C),HL ;ne, tak je to cislo radku 45B5 : F5 PUSH AF 45B6 : D5 PUSH DE 45B7 : 3E12 LD A,12 45B9 : 329072 LD (7290),A ;len 18 45BC : CD7C29 CALL 297C ;inicializace 45BF : 32A472 LD (72A4),A 45C2 : CDD729 CALL 29D7 45C5 : CD1C4A CALL 4A1C 45C8 : 216073 LD HL,7360 45CB : 010700 LD BC,0007 45CE : CD6008 CALL 0860 45D1 : CF RST 08 45D2 : E6FC AND FC 45D4 : 77 LD (HL),A ;zrus insert, CTRL vykonavat 45D5 : 07 RLCA 45D6 : D48713 CALL NC,1387 ;zrus sprity, neni-li TEXT 45D9 : D1 POP DE 45DA : F1 POP AF 45DB : D20627 JP NC,2706 ;bylo RUN cislo 45DE : 2804 JR Z,45E4 ;bylo RUN "" 45E0 : EF RST 28 ;posun na nasledujici prikaz 45E1 : CDAA4B CALL 4BAA ;GOTO cislo radku 45E4 : 3E63 LD A,63 ;je RUN "text" 45E6 : CDC547 CALL 47C5 ;otevri soubor 45E9 : FE02 CP 02 ;je .CM/VM? 45EB : DAF747 JP C,47F7 45EE : 212071 LD HL,7120 ;nastav autostart 45F1 : CBCE SET 1,(HL) 45F3 : FE06 CP 06 ;je .DT? 45F5 : CA7E48 JP Z,487E ;ano 45F8 : C33547 JP 4735 ;ne, je to .BF 45FB : 0620 LD B,20 ;STEP 45FD : DB 11 ;LD DE,4006 45FE : 0640 LD B,40 ;TRACE 4600 : E7 RST 20 4601 : 219372 LD HL,7293 4604 : D6C8 SUB C8 4606 : 2004 JR NZ,460C 4608 : 78 LD A,B 4609 : B6 OR (HL) 460A : 77 LD (HL),A 460B : C9 RET 460C : 3D DEC A 460D : 202C JR NZ,463B 460F : 78 LD A,B 4610 : 2F CPL 4611 : A6 AND A,(HL) 4612 : 77 LD (HL),A 4613 : C9 RET 4614 : F3 DI ;TAPE 4615 : 216501 LD HL,0165 ;inicializace systemovych 4618 : 110070 LD DE,7000 ;promennych. Zde pozor, rezim 461B : 015D00 LD BC,005D ;zobrazovani je ted nastaven 461E : EDB0 LDIR ;na obou obrazovkach na GI, 4620 : 310073 LD SP,7300 ;ackoli skutecny rezim zustava 4623 : C30D01 JP 010D ;puvodni! Skok do rutiny TAPE 4626 : EF RST 28 ;TYPE 4627 : CD2F46 CALL 462F 462A : 65 LD H,L 462B : 228E72 LD (728E),HL 462E : C9 RET 462F : 2E00 LD L,00 4631 : FE08 CP 08 4633 : C8 RET Z 4634 : 2E02 LD L,02 4636 : FED3 CP D3 4638 : C8 RET Z 4639 : FED4 CP D4 463B : C46B30 CALL NZ,306B 463E : 3E04 LD A,04 4640 : 328F72 LD (728F),A 4643 : C1 POP BC 4644 : C9 RET 4645 : CDFF50 CALL 50FF ;SAVE 4648 : CDFF41 CALL 41FF 464B : D5 PUSH DE 464C : 3E01 LD A,01 464E : CDEF46 CALL 46EF 4651 : 3813 JR C,4666 4653 : EF RST 28 4654 : FECE CP CE 4656 : 2046 JR NZ,469E 4658 : CDA456 CALL 56A4 465B : ED532E71 LD (712E),DE 465F : 212071 LD HL,7120 4662 : CBCE SET 1,(HL) 4664 : 1838 JR 469E 4666 : 3E02 LD A,02 4668 : CDE244 CALL 44E2 466B : 7E LD A,(HL) 466C : FECC CP CC 466E : 3E80 LD A,80 4670 : 2010 JR NZ,4682 4672 : F5 PUSH AF 4673 : CDD441 CALL 41D4 4676 : F1 POP AF 4677 : 2A6C72 LD HL,(726C) 467A : 2B DEC HL 467B : 73 LD (HL),E 467C : CB43 BIT 0,E 467E : 2802 JR Z,4682 4680 : CBCF SET 1,A 4682 : 322071 LD (7120),A 4685 : CDD729 CALL 29D7 4688 : 2A6A72 LD HL,(726A) 468B : 222A71 LD (712A),HL 468E : EB EX DE,HL 468F : 2A6C72 LD HL,(726C) 4692 : B7 OR A 4693 : ED52 SBC HL,DE 4695 : 222C71 LD (712C),HL 4698 : 214246 LD HL,4642 469B : 223171 LD (7131),HL 469E : 212071 LD HL,7120 46A1 : CDB915 CALL 15B9 46A4 : E1 POP HL 46A5 : CD8360 CALL 6083 46A8 : 1631 LD D,31 46AA : 3E0A LD A,0A 46AC : CD1749 CALL 4917 46AF : CDD146 CALL 46D1 46B2 : CD1D49 CALL 491D 46B5 : AF XOR A 46B6 : 328E70 LD (708E),A 46B9 : C9 RET 46BA : CDFF50 CALL 50FF ;VSAVE 46BD : CDFF41 CALL 41FF 46C0 : D5 PUSH DE 46C1 : 3E08 LD A,08 46C3 : CDEF46 CALL 46EF 46C6 : DC6B30 CALL C,306B 46C9 : 7A LD A,D 46CA : FE40 CP 40 46CC : D46B30 CALL NC,306B 46CF : 18CD JR 469E 46D1 : 2A2A71 LD HL,(712A) 46D4 : ED4B2C71 LD BC,(712C) 46D8 : AF XOR A 46D9 : 04 INC B 46DA : 05 DEC B 46DB : 2003 JR NZ,46E0 46DD : 79 LD A,C 46DE : B7 OR A 46DF : C8 RET Z 46E0 : C5 PUSH BC 46E1 : 47 LD B,A 46E2 : D5 PUSH DE 46E3 : CD3B5E CALL 5E3B 46E6 : D1 POP DE 46E7 : C1 POP BC 46E8 : D8 RET C 46E9 : 05 DEC B 46EA : 78 LD A,B 46EB : 3C INC A 46EC : 20EA JR NZ,46D8 46EE : C9 RET 46EF : 322071 LD (7120),A 46F2 : EF RST 28 46F3 : FECE CP CE 46F5 : 37 SCF 46F6 : C0 RET NZ 46F7 : CDA456 CALL 56A4 46FA : ED532A71 LD (712A),DE 46FE : D5 PUSH DE 46FF : EF RST 28 4700 : FECE CP CE 4702 : C46B30 CALL NZ,306B 4705 : CDA456 CALL 56A4 4708 : EB EX DE,HL 4709 : D1 POP DE 470A : E5 PUSH HL 470B : B7 OR A 470C : ED52 SBC HL,DE 470E : DC6B30 CALL C,306B 4711 : 23 INC HL 4712 : 222C71 LD (712C),HL 4715 : D1 POP DE 4716 : C9 RET 4717 : CDD729 CALL 29D7 ;VERIFY 471A : 3E23 LD A,23 471C : CDC047 CALL 47C0 471F : 218E70 LD HL,708E 4722 : CBCE SET 1,(HL) 4724 : 180A JR 4730 4726 : 3E63 LD A,63 ;OLD 4728 : CDC047 CALL 47C0 ;otevri soubor 472B : FE06 CP 06 ;podle typu 472D : CA7E48 JP Z,487E ;nahraj .DT 4730 : FE02 CP 02 ;nebo 4732 : DAF747 JP C,47F7 ;nahraj .CM/VM 4735 : FE05 CP 05 ;nebo 4737 : CA2848 JP Z,4828 ;nahraj .BF 473A : CD6130 CALL 3061 ;nebo jdi na chybu 106 473D : CDED47 CALL 47ED ;CHAIN 4740 : EB EX DE,HL 4741 : 4E LD C,(HL) 4742 : 0600 LD B,00 4744 : 03 INC BC 4745 : 110D74 LD DE,740D 4748 : D5 PUSH DE 4749 : EDB0 LDIR 474B : EF RST 28 474C : FECE CP CE 474E : 2A6C72 LD HL,(726C) 4751 : 2009 JR NZ,475C 4753 : EF RST 28 4754 : FEDF CP DF 4756 : C46B30 CALL NZ,306B 4759 : 2A6E72 LD HL,(726E) 475C : ED5B6C72 LD DE,(726C) 4760 : ED536E72 LD (726E),DE 4764 : E5 PUSH HL 4765 : B7 OR A 4766 : ED52 SBC HL,DE 4768 : 44 LD B,H 4769 : 4D LD C,L 476A : E1 POP HL 476B : 2B DEC HL 476C : ED5B7072 LD DE,(7270) 4770 : 1B DEC DE 4771 : 2803 JR Z,4776 4773 : 1B DEC DE 4774 : EDB8 LDDR 4776 : ED530673 LD (7306),DE 477A : EB EX DE,HL 477B : D1 POP DE 477C : E5 PUSH HL 477D : 3E60 LD A,60 477F : CDCC47 CALL 47CC 4782 : F5 PUSH AF 4783 : 3816 JR C,479B 4785 : 212071 LD HL,7120 4788 : CB8E RES 1,(HL) 478A : 219B47 LD HL,479B 478D : E5 PUSH HL 478E : FE06 CP 06 4790 : CA8248 JP Z,4882 4793 : FE05 CP 05 4795 : CA2C48 JP Z,482C 4798 : CD6130 CALL 3061 479B : F1 POP AF 479C : D1 POP DE 479D : F5 PUSH AF 479E : 2A7072 LD HL,(7270) 47A1 : 2B DEC HL 47A2 : E5 PUSH HL 47A3 : B7 OR A 47A4 : ED52 SBC HL,DE 47A6 : 44 LD B,H 47A7 : 4D LD C,L 47A8 : FDE1 POP IY 47AA : 13 INC DE 47AB : EB EX DE,HL 47AC : ED5B6C72 LD DE,(726C) 47B0 : 2803 JR Z,47B5 47B2 : 0B DEC BC 47B3 : EDB0 LDIR 47B5 : ED536E72 LD (726E),DE 47B9 : F1 POP AF 47BA : DA8E30 JP C,308E 47BD : C30627 JP 2706 47C0 : F5 PUSH AF ;schovej zadany typ 47C1 : CDED47 CALL 47ED ;a nastav do DE pripadnou 47C4 : F1 POP AF ;adresu stringu se jmenem 47C5 : CDCC47 CALL 47CC ;otevri soubor daneho jmena 47C8 : D0 RET NC ;O.K. nebo 47C9 : C38E30 JP 308E ;chyba A ( zpravidla Err 18 ) 47CC : 32D173 LD (73D1),A ;uloz hledany typ souboru 47CF : D5 PUSH DE ;schovej adresu str se jmenem 47D0 : CDFF50 CALL 50FF ;priprav HD z (72B0) 47D3 : CD8360 CALL 6083 ;najdi volny kanal ( do E ) 47D6 : 3EFB LD A,0FB ;nastav vyznamovy byte na 47D8 : 322071 LD (7120),A ;vsechny typy krome .DT 47DB : E1 POP HL ;adresa str se jmenem do HL 47DC : 1622 LD D,22 ;vyznamove bajty pro INPUT 47DE : 3E04 LD A,04 47E0 : CD2449 CALL 4924 ;otevri kanal E a nacti 47E3 : D8 RET C ;hlavicku souboru podle HL 47E4 : 3A2071 LD A,(7120) ;bylo to bez chyby 47E7 : CDDD48 CALL 48DD ;tak prepocti typ souboru 47EA : 79 LD A,C 47EB : B7 OR A 47EC : C9 RET ;a ven bez CY 47ED : 116B30 LD DE,306B ;adresa prazdneho jmena 47F0 : E7 RST 20 ;je uvedeno nejake jmeno, 47F1 : FECE CP CE ;nebo nasleduje oddelovac? 47F3 : D0 RET NC ;jen oddelovac 47F4 : C3FF41 JP 41FF ;asi retezec, tak ho vyberem 47F7 : 3A2071 LD A,(7120) 47FA : CB5F BIT 3,A 47FC : 2805 JR Z,4803 47FE : 218E70 LD HL,708E 4801 : CBC6 SET 0,(HL) 4803 : 2A2A71 LD HL,(712A) 4806 : ED4B2C71 LD BC,(712C) 480A : CD0049 CALL 4900 480D : CD1D49 CALL 491D 4810 : CD1848 CALL 4818 4813 : D0 RET NC 4814 : 2A2E71 LD HL,(712E) 4817 : E9 JP (HL) 4818 : 218E70 LD HL,708E 481B : AF XOR A 481C : CB4E BIT 1,(HL) 481E : 77 LD (HL),A 481F : C0 RET NZ 4820 : 3A2071 LD A,(7120) 4823 : CB4F BIT 1,A 4825 : C8 RET Z 4826 : 37 SCF 4827 : C9 RET 4828 : FD220673 LD (7306),IY 482C : 2A6A72 LD HL,(726A) 482F : ED4B2C71 LD BC,(712C) 4833 : D5 PUSH DE 4834 : E5 PUSH HL 4835 : 09 ADD HL,BC 4836 : DC7030 CALL C,3070 4839 : ED5B0673 LD DE,(7306) 483D : ED52 SBC HL,DE 483F : D47030 CALL NC,3070 4842 : 211B02 LD HL,021B 4845 : 222570 LD (7025),HL 4848 : E1 POP HL 4849 : D1 POP DE 484A : CD0049 CALL 4900 484D : F5 PUSH AF 484E : E5 PUSH HL 484F : CD8B5E CALL 5E8B 4852 : E1 POP HL 4853 : F1 POP AF 4854 : 11A826 LD DE,26A8 4857 : ED532570 LD (7025),DE 485B : 3814 JR C,4871 485D : 3A8E70 LD A,(708E) 4860 : CB4F BIT 1,A 4862 : C0 RET NZ 4863 : 226C72 LD (726C),HL 4866 : 226E72 LD (726E),HL 4869 : CDAD29 CALL 29AD 486C : CDD729 CALL 29D7 486F : 184D JR 48BE 4871 : F5 PUSH AF 4872 : 3A8E70 LD A,(708E) 4875 : CB4F BIT 1,A 4877 : CCD144 CALL Z,44D1 487A : F1 POP AF 487B : C38E30 JP 308E 487E : FD220673 LD (7306),IY 4882 : D5 PUSH DE 4883 : 218E70 LD HL,708E 4886 : 3E30 LD A,30 4888 : B6 OR (HL) 4889 : 77 LD (HL),A 488A : CDAB6A CALL 6AAB 488D : D1 POP DE 488E : 06FF LD B,0FF 4890 : 210D74 LD HL,740D 4893 : D5 PUSH DE 4894 : CD405E CALL 5E40 4897 : D1 POP DE 4898 : 300A JR NC,48A4 489A : B7 OR A 489B : CD1D49 CALL 491D 489E : FE98 CP 98 48A0 : 281C JR Z,48BE 48A2 : 18D7 JR 487B 48A4 : D5 PUSH DE 48A5 : 210D74 LD HL,740D 48A8 : 113076 LD DE,7630 48AB : CD5121 CALL 2151 48AE : D5 PUSH DE 48AF : CDC421 CALL 21C4 48B2 : C1 POP BC 48B3 : 0600 LD B,00 48B5 : 113076 LD DE,7630 48B8 : CD1122 CALL 2211 48BB : D1 POP DE 48BC : 18D0 JR 488E 48BE : 2A7872 LD HL,(7278) 48C1 : 7C LD A,H 48C2 : B5 OR L 48C3 : 2806 JR Z,48CB 48C5 : 2A6A72 LD HL,(726A) 48C8 : 227E72 LD (727E),HL 48CB : CD1848 CALL 4818 48CE : DA0627 JP C,2706 48D1 : C9 RET 48D2 : CDDD48 CALL 48DD 48D5 : AF XOR A 48D6 : 37 SCF 48D7 : 17 RLA 48D8 : 0D DEC C 48D9 : F2D748 JP P,48D7 48DC : C9 RET 48DD : E6FD AND FD 48DF : 0E00 LD C,00 48E1 : FE02 CP 02 48E3 : D8 RET C 48E4 : 0C INC C 48E5 : FE08 CP 08 48E7 : C8 RET Z 48E8 : 0C INC C 48E9 : FE20 CP 20 48EB : C8 RET Z 48EC : 0C INC C 48ED : FE60 CP 60 48EF : C8 RET Z 48F0 : 0C INC C 48F1 : FE78 CP 78 48F3 : C8 RET Z 48F4 : 0C INC C 48F5 : FE80 CP 80 48F7 : C8 RET Z 48F8 : 0C INC C 48F9 : E60F AND 0F 48FB : FE04 CP 04 48FD : C8 RET Z 48FE : 0C INC C 48FF : C9 RET 4900 : AF XOR A 4901 : 04 INC B 4902 : 05 DEC B 4903 : 2003 JR NZ,4908 4905 : 79 LD A,C 4906 : B7 OR A 4907 : C8 RET Z 4908 : C5 PUSH BC 4909 : 47 LD B,A 490A : D5 PUSH DE 490B : CD455E CALL 5E45 490E : D1 POP DE 490F : C1 POP BC 4910 : D8 RET C 4911 : 05 DEC B 4912 : 78 LD A,B 4913 : 3C INC A 4914 : 20EA JR NZ,4900 4916 : C9 RET 4917 : CD2449 CALL 4924 491A : D0 RET NC 491B : 1804 JR 4921 491D : CD2A49 CALL 492A 4920 : D0 RET NC 4921 : C38E30 JP 308E 4924 : D5 PUSH DE 4925 : CDCC5D CALL 5DCC 4928 : D1 POP DE 4929 : D0 RET NC 492A : F5 PUSH AF 492B : CD8B5E CALL 5E8B 492E : F1 POP AF 492F : D0 RET NC 4930 : E5 PUSH HL 4931 : 218E70 LD HL,708E 4934 : 3600 LD (HL),00 4936 : E1 POP HL 4937 : C9 RET 4938 : EF RST 28 ;DIM 4939 : CD6F2C CALL 2C6F 493C : 220673 LD (7306),HL 493F : CDE258 CALL 58E2 4942 : FD36FF00 LD (IY+FF),00 4946 : CD8E41 CALL 418E 4949 : 7A LD A,D 494A : B3 OR E 494B : CC7230 CALL Z,3072 494E : D5 PUSH DE 494F : FD34FF INC (IY+FF) 4952 : EF RST 28 4953 : FECE CP CE 4955 : 28EF JR Z,4946 4957 : FEBE CP BE 4959 : C46B30 CALL NZ,306B 495C : 2A0673 LD HL,(7306) 495F : 7E LD A,(HL) 4960 : CBDF SET 3,A 4962 : E60F AND 0F 4964 : 23 INC HL 4965 : 23 INC HL 4966 : 23 INC HL 4967 : CD612D CALL 2D61 496A : EB EX DE,HL 496B : 2A6E72 LD HL,(726E) 496E : B7 OR A 496F : ED52 SBC HL,DE 4971 : C47330 CALL NZ,3073 4974 : EB EX DE,HL 4975 : 7E LD A,(HL) 4976 : E607 AND 07 4978 : 23 INC HL 4979 : 4E LD C,(HL) 497A : 23 INC HL 497B : 0600 LD B,00 497D : 09 ADD HL,BC 497E : 220673 LD (7306),HL 4981 : 23 INC HL 4982 : 23 INC HL 4983 : FD4EFF LD C,(IY+FF) 4986 : 71 LD (HL),C 4987 : 0600 LD B,00 4989 : 09 ADD HL,BC 498A : 09 ADD HL,BC 498B : D1 POP DE 498C : 72 LD (HL),D 498D : 2B DEC HL 498E : 73 LD (HL),E 498F : 2B DEC HL 4990 : 0D DEC C 4991 : 20F8 JR NZ,498B 4993 : CDC049 CALL 49C0 4996 : E5 PUSH HL 4997 : 19 ADD HL,DE 4998 : 3846 JR C,49E0 499A : CD012B CALL 2B01 499D : 226E72 LD (726E),HL 49A0 : D1 POP DE 49A1 : B7 OR A 49A2 : ED52 SBC HL,DE 49A4 : 44 LD B,H 49A5 : 4D LD C,L 49A6 : 0B DEC BC 49A7 : 62 LD H,D 49A8 : 6B LD L,E 49A9 : 13 INC DE 49AA : 3600 LD (HL),00 49AC : EDB0 LDIR 49AE : ED5B0673 LD DE,(7306) 49B2 : B7 OR A 49B3 : ED52 SBC HL,DE 49B5 : EB EX DE,HL 49B6 : 73 LD (HL),E 49B7 : 23 INC HL 49B8 : 72 LD (HL),D 49B9 : EF RST 28 49BA : FECE CP CE 49BC : CA3849 JP Z,4938 49BF : C9 RET ;REM, ' a ! 49C0 : F5 PUSH AF ;DATA 49C1 : 46 LD B,(HL) 49C2 : 23 INC HL 49C3 : 110100 LD DE,0001 49C6 : C5 PUSH BC 49C7 : 4E LD C,(HL) 49C8 : 23 INC HL 49C9 : 46 LD B,(HL) 49CA : 23 INC HL 49CB : 03 INC BC 49CC : E5 PUSH HL 49CD : CDDF2E CALL 2EDF 49D0 : 7A LD A,D 49D1 : B3 OR E 49D2 : 202F JR NZ,4A03 49D4 : EB EX DE,HL 49D5 : E1 POP HL 49D6 : C1 POP BC 49D7 : 10ED DJNZ 49C6 49D9 : F1 POP AF 49DA : B7 OR A 49DB : 2009 JR NZ,49E6 49DD : E5 PUSH HL 49DE : EB EX DE,HL 49DF : 29 ADD HL,HL 49E0 : DC7030 CALL C,3070 49E3 : EB EX DE,HL 49E4 : E1 POP HL 49E5 : C9 RET 49E6 : FE02 CP 02 49E8 : 2005 JR NZ,49EF 49EA : 010800 LD BC,0008 49ED : 180E JR 49FD 49EF : FE04 CP 04 49F1 : C46B30 CALL NZ,306B 49F4 : 3A9072 LD A,(7290) 49F7 : 77 LD (HL),A 49F8 : 23 INC HL 49F9 : 4F LD C,A 49FA : 0600 LD B,00 49FC : 03 INC BC 49FD : E5 PUSH HL 49FE : CDDF2E CALL 2EDF 4A01 : 7A LD A,D 4A02 : B3 OR E 4A03 : C47030 CALL NZ,3070 4A06 : EB EX DE,HL 4A07 : E1 POP HL 4A08 : C9 RET 4A09 : 2A7872 LD HL,(7278) ;END 4A0C : 7C LD A,H 4A0D : B5 OR L 4A0E : C4194A CALL NZ,4A19 4A11 : AF XOR A 4A12 : 32A472 LD (72A4),A 4A15 : C1 POP BC 4A16 : C3CD20 JP 20CD 4A19 : CDC329 CALL 29C3 4A1C : CD6E60 CALL 606E 4A1F : C32460 JP 6024 4A22 : CD052B CALL 2B05 ;FOR 4A25 : CD772C CALL 2C77 4A28 : FE04 CP 04 4A2A : CC6B30 CALL Z,306B 4A2D : E5 PUSH HL 4A2E : F5 PUSH AF 4A2F : EB EX DE,HL 4A30 : CDB44A CALL 4AB4 4A33 : DCD04A CALL C,4AD0 4A36 : F1 POP AF 4A37 : CDF64A CALL 4AF6 4A3A : 50 LD D,B 4A3B : 59 LD E,C 4A3C : CD372E CALL 2E37 4A3F : FD19 ADD IY,DE 4A41 : FD7700 LD (IY+00),A 4A44 : EF RST 28 4A45 : FEA8 CP A8 4A47 : 2019 JR NZ,4A62 4A49 : CDEC4A CALL 4AEC 4A4C : E1 POP HL 4A4D : E5 PUSH HL 4A4E : FD7E00 LD A,(IY+00) 4A51 : B7 OR A 4A52 : 2005 JR NZ,4A59 4A54 : 73 LD (HL),E 4A55 : 23 INC HL 4A56 : 72 LD (HL),D 4A57 : 1806 JR 4A5F 4A59 : EB EX DE,HL 4A5A : 010800 LD BC,0008 4A5D : EDB0 LDIR 4A5F : EF RST 28 4A60 : FECA CP CA 4A62 : C46B30 CALL NZ,306B 4A65 : 2A7872 LD HL,(7278) 4A68 : E5 PUSH HL 4A69 : 2A7E72 LD HL,(727E) 4A6C : E5 PUSH HL 4A6D : FDE5 PUSH IY 4A6F : E1 POP HL 4A70 : 0603 LD B,03 4A72 : 23 INC HL 4A73 : D1 POP DE 4A74 : 73 LD (HL),E 4A75 : 23 INC HL 4A76 : 72 LD (HL),D 4A77 : 23 INC HL 4A78 : 10F9 DJNZ 4A73 4A7A : E5 PUSH HL 4A7B : CDEC4A CALL 4AEC 4A7E : D5 PUSH DE 4A7F : EF RST 28 4A80 : FED0 CP D0 4A82 : 08 EX AF,AF' 4A83 : FD7E00 LD A,(IY+00) 4A86 : B7 OR A 4A87 : 2011 JR NZ,4A9A 4A89 : 110100 LD DE,0001 4A8C : 08 EX AF,AF' 4A8D : CC8E41 CALL Z,418E 4A90 : C1 POP BC 4A91 : E1 POP HL 4A92 : 73 LD (HL),E 4A93 : 23 INC HL 4A94 : 72 LD (HL),D 4A95 : 23 INC HL 4A96 : 71 LD (HL),C 4A97 : 23 INC HL 4A98 : 70 LD (HL),B 4A99 : C9 RET 4A9A : D1 POP DE 4A9B : E1 POP HL 4A9C : E5 PUSH HL 4A9D : 010800 LD BC,0008 4AA0 : 09 ADD HL,BC 4AA1 : EB EX DE,HL 4AA2 : CDAE4A CALL 4AAE 4AA5 : 117539 LD DE,3975 4AA8 : 08 EX AF,AF' 4AA9 : CC1242 CALL Z,4212 4AAC : EB EX DE,HL 4AAD : D1 POP DE 4AAE : 010800 LD BC,0008 4AB1 : EDB0 LDIR 4AB3 : C9 RET 4AB4 : FDE5 PUSH IY 4AB6 : E1 POP HL 4AB7 : 7E LD A,(HL) 4AB8 : E6F0 AND F0 4ABA : C0 RET NZ 4ABB : E5 PUSH HL 4ABC : 010500 LD BC,0005 4ABF : 09 ADD HL,BC 4AC0 : 4E LD C,(HL) 4AC1 : 23 INC HL 4AC2 : 66 LD H,(HL) 4AC3 : 69 LD L,C 4AC4 : ED52 SBC HL,DE 4AC6 : E1 POP HL 4AC7 : 37 SCF 4AC8 : C8 RET Z 4AC9 : 7E LD A,(HL) 4ACA : CDF64A CALL 4AF6 4ACD : 09 ADD HL,BC 4ACE : 18E7 JR 4AB7 4AD0 : 7E LD A,(HL) 4AD1 : CDF64A CALL 4AF6 4AD4 : E5 PUSH HL 4AD5 : 09 ADD HL,BC 4AD6 : EB EX DE,HL 4AD7 : E1 POP HL 4AD8 : E5 PUSH HL 4AD9 : FDE5 PUSH IY 4ADB : C1 POP BC 4ADC : ED42 SBC HL,BC 4ADE : 44 LD B,H 4ADF : 4D LD C,L 4AE0 : E1 POP HL 4AE1 : 1B DEC DE 4AE2 : 2B DEC HL 4AE3 : 03 INC BC 4AE4 : EDB8 LDDR 4AE6 : 13 INC DE 4AE7 : 13 INC DE 4AE8 : D5 PUSH DE 4AE9 : FDE1 POP IY 4AEB : C9 RET 4AEC : FD7E00 LD A,(IY+00) 4AEF : B7 OR A 4AF0 : CA8E41 JP Z,418E 4AF3 : C21242 JP NZ,4212 4AF6 : E607 AND 07 4AF8 : 010B00 LD BC,000B 4AFB : C8 RET Z 4AFC : FE02 CP 02 4AFE : 011700 LD BC,0017 4B01 : C8 RET Z 4B02 : CD6B30 CALL 306B 4B05 : EF RST 28 ;NEXT 4B06 : FE80 CP 80 4B08 : 280A JR Z,4B14 4B0A : FE82 CP 82 4B0C : 2806 JR Z,4B14 4B0E : FD6E05 LD L,(IY+05) 4B11 : FD6606 LD H,(IY+06) 4B14 : CC7B2C CALL Z,2C7B 4B17 : EB EX DE,HL 4B18 : FD7E00 LD A,(IY+00) 4B1B : 4F LD C,A 4B1C : E6F0 AND F0 4B1E : C46A30 CALL NZ,306A 4B21 : 79 LD A,C 4B22 : FD6E05 LD L,(IY+05) 4B25 : FD6606 LD H,(IY+06) 4B28 : ED52 SBC HL,DE 4B2A : 2807 JR Z,4B33 4B2C : CDF64A CALL 4AF6 4B2F : FD09 ADD IY,BC 4B31 : 18E5 JR 4B18 4B33 : EB EX DE,HL 4B34 : E607 AND 07 4B36 : 202B JR NZ,4B63 4B38 : 5E LD E,(HL) 4B39 : 23 INC HL 4B3A : 56 LD D,(HL) 4B3B : EB EX DE,HL 4B3C : FD4E07 LD C,(IY+07) 4B3F : FD4608 LD B,(IY+08) 4B42 : ED4A ADC HL,BC 4B44 : EB EX DE,HL 4B45 : 72 LD (HL),D 4B46 : 2B DEC HL 4B47 : 73 LD (HL),E 4B48 : EA8D4B JP PE,4B8D 4B4B : FD6E09 LD L,(IY+09) 4B4E : FD660A LD H,(IY+0A) 4B51 : B7 OR A 4B52 : ED52 SBC HL,DE 4B54 : CA5D4F JP Z,4F5D 4B57 : 7C LD A,H 4B58 : E25C4B JP PO,4B5C 4B5B : 2F CPL 4B5C : A8 XOR B 4B5D : FA8D4B JP M,4B8D 4B60 : C35D4F JP 4F5D 4B63 : E5 PUSH HL 4B64 : CDEE30 CALL 30EE 4B67 : FDE5 PUSH IY 4B69 : E1 POP HL 4B6A : 010700 LD BC,0007 4B6D : 09 ADD HL,BC 4B6E : 54 LD D,H 4B6F : 5D LD E,L 4B70 : 010800 LD BC,0008 4B73 : 09 ADD HL,BC 4B74 : D5 PUSH DE 4B75 : CD4732 CALL 3247 4B78 : D1 POP DE 4B79 : E3 EX (SP),HL 4B7A : CDFD30 CALL 30FD 4B7D : E1 POP HL 4B7E : D5 PUSH DE 4B7F : CD9C3B CALL 3B9C 4B82 : D1 POP DE 4B83 : CA5D4F JP Z,4F5D 4B86 : CB19 RR C 4B88 : 1A LD A,(DE) 4B89 : A9 XOR C 4B8A : FA5D4F JP M,4F5D 4B8D : FD7E00 LD A,(IY+00) 4B90 : CDF64A CALL 4AF6 4B93 : FD09 ADD IY,BC 4B95 : EF RST 28 4B96 : FECE CP CE 4B98 : CA054B JP Z,4B05 4B9B : C9 RET 4B9C : CD052B CALL 2B05 ;GOSUB 4B9F : 01FBFF LD BC,FFFB 4BA2 : FD09 ADD IY,BC 4BA4 : 3E10 LD A,10 4BA6 : CDB24B CALL 4BB2 4BA9 : EF RST 28 ;GOTO 4BAA : CDD328 CALL 28D3 4BAD : EB EX DE,HL 4BAE : C1 POP BC 4BAF : C31227 JP 2712 4BB2 : 2A7E72 LD HL,(727E) 4BB5 : FD7501 LD (IY+01),L 4BB8 : FD7402 LD (IY+02),H 4BBB : FD7700 LD (IY+00),A 4BBE : 2A7872 LD HL,(7278) 4BC1 : FD7503 LD (IY+03),L 4BC4 : FD7404 LD (IY+04),H 4BC7 : C9 RET 4BC8 : CD6F2A CALL 2A6F ;IF 4BCB : 08 EX AF,AF' 4BCC : D5 PUSH DE 4BCD : EF RST 28 4BCE : D1 POP DE 4BCF : FEFD CP FD 4BD1 : 2006 JR NZ,4BD9 4BD3 : 08 EX AF,AF' 4BD4 : B7 OR A 4BD5 : 2808 JR Z,4BDF 4BD7 : FE02 CP 02 4BD9 : C46B30 CALL NZ,306B 4BDC : 1A LD A,(DE) 4BDD : 57 LD D,A 4BDE : 5F LD E,A 4BDF : 7A LD A,D 4BE0 : B3 OR E 4BE1 : C0 RET NZ 4BE2 : 0E01 LD C,01 4BE4 : 2A7E72 LD HL,(727E) 4BE7 : 2B DEC HL 4BE8 : 7E LD A,(HL) 4BE9 : 23 INC HL 4BEA : FEFC CP FC 4BEC : 2003 JR NZ,4BF1 4BEE : 0D DEC C 4BEF : 2815 JR Z,4C06 4BF1 : 3C INC A 4BF2 : 281D JR Z,4C11 4BF4 : 5E LD E,(HL) 4BF5 : 23 INC HL 4BF6 : 23 INC HL 4BF7 : 7E LD A,(HL) 4BF8 : 2B DEC HL 4BF9 : 1600 LD D,00 4BFB : 19 ADD HL,DE 4BFC : 227E72 LD (727E),HL 4BFF : FE25 CP 25 4C01 : 20E4 JR NZ,4BE7 4C03 : 0C INC C 4C04 : 18E1 JR 4BE7 4C06 : D9 EXX 4C07 : 21A472 LD HL,72A4 4C0A : CBC6 SET 0,(HL) 4C0C : D9 EXX 4C0D : D1 POP DE 4C0E : C31927 JP 2719 4C11 : D9 EXX 4C12 : 21A472 LD HL,72A4 4C15 : CB86 RES 0,(HL) 4C17 : D9 EXX 4C18 : C9 RET 4C19 : CD772C CALL 2C77 ;LET 4C1C : 47 LD B,A 4C1D : E5 PUSH HL 4C1E : C5 PUSH BC 4C1F : 21414C LD HL,4C41 4C22 : E5 PUSH HL 4C23 : EF RST 28 4C24 : FECE CP CE 4C26 : 28F1 JR Z,4C19 4C28 : FEA8 CP A8 4C2A : C46B30 CALL NZ,306B 4C2D : E1 POP HL 4C2E : C5 PUSH BC 4C2F : 21404C LD HL,4C40 4C32 : E5 PUSH HL 4C33 : 78 LD A,B 4C34 : B7 OR A 4C35 : CA9141 JP Z,4191 4C38 : FE02 CP 02 4C3A : CA1542 JP Z,4215 4C3D : C30242 JP 4202 4C40 : F1 POP AF 4C41 : C1 POP BC 4C42 : B8 CP B 4C43 : C47630 CALL NZ,3076 4C46 : B7 OR A 4C47 : 2005 JR NZ,4C4E 4C49 : E1 POP HL 4C4A : 73 LD (HL),E 4C4B : 23 INC HL 4C4C : 72 LD (HL),D 4C4D : C9 RET 4C4E : FE02 CP 02 4C50 : 200A JR NZ,4C5C 4C52 : E1 POP HL 4C53 : D5 PUSH DE 4C54 : EB EX DE,HL 4C55 : 010800 LD BC,0008 4C58 : EDB0 LDIR 4C5A : D1 POP DE 4C5B : C9 RET 4C5C : E1 POP HL 4C5D : EB EX DE,HL 4C5E : F5 PUSH AF 4C5F : 79 LD A,C 4C60 : BE CP (HL) 4C61 : DC7830 CALL C,3078 4C64 : F1 POP AF 4C65 : E5 PUSH HL 4C66 : 4E LD C,(HL) 4C67 : 0600 LD B,00 4C69 : 03 INC BC 4C6A : EDB0 LDIR 4C6C : D1 POP DE 4C6D : C9 RET 4C6E : E7 RST 20 ;ON 4C6F : CD9C4C CALL 4C9C 4C72 : 2031 JR NZ,4CA5 4C74 : C5 PUSH BC 4C75 : EF RST 28 4C76 : EF RST 28 4C77 : FED5 CP D5 4C79 : C46B30 CALL NZ,306B 4C7C : EF RST 28 4C7D : FEC0 CP C0 4C7F : 2004 JR NZ,4C85 4C81 : 7A LD A,D 4C82 : B3 OR E 4C83 : 3EC0 LD A,0C0 4C85 : C4D328 CALL NZ,28D3 4C88 : C1 POP BC 4C89 : 79 LD A,C 4C8A : 0600 LD B,00 4C8C : 219572 LD HL,7295 4C8F : 09 ADD HL,BC 4C90 : 09 ADD HL,BC 4C91 : 73 LD (HL),E 4C92 : 23 INC HL 4C93 : 72 LD (HL),D 4C94 : B7 OR A 4C95 : C0 RET NZ 4C96 : 219372 LD HL,7293 4C99 : CBE6 SET 4,(HL) 4C9B : C9 RET 4C9C : 0E00 LD C,00 4C9E : FED8 CP D8 4CA0 : C8 RET Z 4CA1 : 0C INC C 4CA2 : FED9 CP D9 4CA4 : C9 RET 4CA5 : CDD441 CALL 41D4 4CA8 : D5 PUSH DE 4CA9 : EF RST 28 4CAA : C1 POP BC 4CAB : 47 LD B,A 4CAC : 0D DEC C 4CAD : F8 RET M 4CAE : 280C JR Z,4CBC 4CB0 : C5 PUSH BC 4CB1 : EF RST 28 4CB2 : C1 POP BC 4CB3 : FEF8 CP F8 4CB5 : D0 RET NC 4CB6 : FECE CP CE 4CB8 : 20F6 JR NZ,4CB0 4CBA : 18F0 JR 4CAC 4CBC : C5 PUSH BC 4CBD : EF RST 28 4CBE : CDD328 CALL 28D3 4CC1 : F1 POP AF 4CC2 : FED7 CP D7 4CC4 : CA7C4F JP Z,4F7C 4CC7 : FED6 CP D6 4CC9 : 2812 JR Z,4CDD 4CCB : FED5 CP D5 4CCD : C46B30 CALL NZ,306B 4CD0 : 3E10 LD A,10 4CD2 : CD052B CALL 2B05 4CD5 : 01FBFF LD BC,FFFB 4CD8 : FD09 ADD IY,BC 4CDA : CDB24B CALL 4BB2 4CDD : EB EX DE,HL 4CDE : C1 POP BC 4CDF : C31227 JP 2712 4CE2 : CF RST 08 ;PRINT 4CE3 : CB8E RES 1,(HL) 4CE5 : CD504D CALL 4D50 4CE8 : E7 RST 20 4CE9 : FECE CP CE 4CEB : 285B JR Z,4D48 4CED : FECF CP CF 4CEF : 285A JR Z,4D4B 4CF1 : FEF8 CP F8 4CF3 : D2754D JP NC,4D75 4CF6 : FEC4 CP C4 4CF8 : 285E JR Z,4D58 4CFA : FEC5 CP C5 4CFC : CA6C4D JP Z,4D6C 4CFF : CD5E41 CALL 415E 4D02 : 210D74 LD HL,740D 4D05 : FE04 CP 04 4D07 : 2820 JR Z,4D29 4D09 : FE02 CP 02 4D0B : 2805 JR Z,4D12 4D0D : CD0D26 CALL 260D 4D10 : 1808 JR 4D1A 4D12 : EB EX DE,HL 4D13 : CDEE30 CALL 30EE 4D16 : EB EX DE,HL 4D17 : CD8B3F CALL 3F8B 4D1A : 3620 LD (HL),20 4D1C : 23 INC HL 4D1D : 3600 LD (HL),00 4D1F : 0614 LD B,14 4D21 : 210D74 LD HL,740D 4D24 : CD924D CALL 4D92 4D27 : 18BF JR 4CE8 4D29 : 1A LD A,(DE) 4D2A : B7 OR A 4D2B : 28BB JR Z,4CE8 4D2D : 4F LD C,A 4D2E : 0600 LD B,00 4D30 : 13 INC DE 4D31 : D5 PUSH DE 4D32 : EB EX DE,HL 4D33 : 09 ADD HL,BC 4D34 : 41 LD B,C 4D35 : E3 EX (SP),HL 4D36 : CD924D CALL 4D92 4D39 : D1 POP DE 4D3A : D5 PUSH DE 4D3B : E5 PUSH HL 4D3C : ED52 SBC HL,DE 4D3E : 7D LD A,L 4D3F : ED44 NEG 4D41 : 47 LD B,A 4D42 : E1 POP HL 4D43 : 38F1 JR C,4D36 4D45 : D1 POP DE 4D46 : 18A0 JR 4CE8 4D48 : CD7B4D CALL 4D7B 4D4B : EF RST 28 4D4C : E7 RST 20 4D4D : 3899 JR C,4CE8 4D4F : C9 RET 4D50 : CD8F51 CALL 518F 4D53 : 21AB72 LD HL,72AB 4D56 : 73 LD (HL),E 4D57 : C9 RET 4D58 : EF RST 28 4D59 : CD4242 CALL 4242 4D5C : CD994D CALL 4D99 4D5F : 47 LD B,A 4D60 : 7B LD A,E 4D61 : 90 SUB B 4D62 : 28E8 JR Z,4D4C 4D64 : D4824D CALL NC,4D82 4D67 : DC754D CALL C,4D75 4D6A : 18E0 JR 4D4C 4D6C : EF RST 28 4D6D : CD9B42 CALL 429B 4D70 : CDDD13 CALL 13DD 4D73 : 18D7 JR 4D4C 4D75 : 3E01 LD A,01 4D77 : 0E0D LD C,0D 4D79 : 1809 JR 4D84 4D7B : CD994D CALL 4D99 4D7E : 2F CPL 4D7F : E607 AND 07 4D81 : 3C INC A 4D82 : 0E20 LD C,20 4D84 : 210D74 LD HL,740D 4D87 : E5 PUSH HL 4D88 : 71 LD (HL),C 4D89 : 23 INC HL 4D8A : 3D DEC A 4D8B : 20FB JR NZ,4D88 4D8D : 3600 LD (HL),00 4D8F : E1 POP HL 4D90 : 06FF LD B,0FF 4D92 : CD655D CALL 5D65 4D95 : D0 RET NC 4D96 : CD8E30 CALL 308E 4D99 : E5 PUSH HL 4D9A : D5 PUSH DE 4D9B : 3AAB72 LD A,(72AB) 4D9E : 5F LD E,A 4D9F : CD515E CALL 5E51 4DA2 : 7B LD A,E 4DA3 : D1 POP DE 4DA4 : E1 POP HL 4DA5 : C9 RET 4DA6 : CD504D CALL 4D50 ;INPUT 4DA9 : E7 RST 20 4DAA : FE8C CP 8C 4DAC : CCFD4D CALL Z,4DFD 4DAF : E7 RST 20 4DB0 : D6CE SUB CE 4DB2 : 2804 JR Z,4DB8 4DB4 : 3D DEC A 4DB5 : 2004 JR NZ,4DBB 4DB7 : 3D DEC A 4DB8 : F5 PUSH AF 4DB9 : EF RST 28 4DBA : F1 POP AF 4DBB : 21094E LD HL,4E09 4DBE : 0602 LD B,02 4DC0 : C4555D CALL NZ,5D55 4DC3 : 06FF LD B,0FF 4DC5 : 210D74 LD HL,740D 4DC8 : E5 PUSH HL 4DC9 : CD5E5D CALL 5D5E 4DCC : DA8E30 JP C,308E 4DCF : 2B DEC HL 4DD0 : 360D LD (HL),0D 4DD2 : E1 POP HL 4DD3 : CDD325 CALL 25D3 4DD6 : FE0D CP 0D 4DD8 : CC8230 CALL Z,3082 4DDB : CDD325 CALL 25D3 4DDE : E5 PUSH HL 4DDF : CD772C CALL 2C77 4DE2 : EB EX DE,HL 4DE3 : E1 POP HL 4DE4 : 08 EX AF,AF' 4DE5 : B7 OR A 4DE6 : 08 EX AF,AF' 4DE7 : CD2C4E CALL 4E2C 4DEA : CDD325 CALL 25D3 4DED : FE0D CP 0D 4DEF : C8 RET Z 4DF0 : FE2C CP 2C 4DF2 : 2001 JR NZ,4DF5 4DF4 : 23 INC HL 4DF5 : E5 PUSH HL 4DF6 : EF RST 28 4DF7 : E1 POP HL 4DF8 : FECE CP CE 4DFA : 28DF JR Z,4DDB 4DFC : C9 RET 4DFD : CDFF41 CALL 41FF 4E00 : EB EX DE,HL 4E01 : 46 LD B,(HL) 4E02 : 23 INC HL 4E03 : 04 INC B 4E04 : 05 DEC B 4E05 : C8 RET Z 4E06 : C3555D JP 5D55 4E09 : DM '? ' 4E0B : CDD84E CALL 4ED8 ;READ 4E0E : CDD325 CALL 25D3 4E11 : E5 PUSH HL 4E12 : CD772C CALL 2C77 4E15 : EB EX DE,HL 4E16 : E1 POP HL 4E17 : 08 EX AF,AF' 4E18 : 37 SCF 4E19 : 08 EX AF,AF' 4E1A : CD2C4E CALL 4E2C 4E1D : CDB54E CALL 4EB5 4E20 : DC6B30 CALL C,306B 4E23 : 228A72 LD (728A),HL 4E26 : EF RST 28 4E27 : FECE CP CE 4E29 : 28E0 JR Z,4E0B 4E2B : C9 RET 4E2C : FE04 CP 04 4E2E : 2050 JR NZ,4E80 4E30 : 41 LD B,C 4E31 : D5 PUSH DE 4E32 : 13 INC DE 4E33 : 7E LD A,(HL) 4E34 : FE22 CP 22 4E36 : F5 PUSH AF 4E37 : CC434E CALL Z,4E43 4E3A : F1 POP AF 4E3B : C4574E CALL NZ,4E57 4E3E : D1 POP DE 4E3F : 79 LD A,C 4E40 : 90 SUB B 4E41 : 12 LD (DE),A 4E42 : C9 RET 4E43 : 23 INC HL 4E44 : 7E LD A,(HL) 4E45 : CDC04E CALL 4EC0 4E48 : D8 RET C 4E49 : 23 INC HL 4E4A : FE22 CP 22 4E4C : C8 RET Z 4E4D : 04 INC B 4E4E : 05 DEC B 4E4F : CC7830 CALL Z,3078 4E52 : 12 LD (DE),A 4E53 : 13 INC DE 4E54 : 05 DEC B 4E55 : 18ED JR 4E44 4E57 : E5 PUSH HL 4E58 : CD664E CALL 4E66 4E5B : E1 POP HL 4E5C : 79 LD A,C 4E5D : 90 SUB B 4E5E : DC7830 CALL C,3078 4E61 : CDDB25 CALL 25DB 4E64 : 47 LD B,A 4E65 : C9 RET 4E66 : 0600 LD B,00 4E68 : 7E LD A,(HL) 4E69 : CDC04E CALL 4EC0 4E6C : 3808 JR C,4E76 4E6E : FE2C CP 2C 4E70 : 2804 JR Z,4E76 4E72 : 04 INC B 4E73 : 23 INC HL 4E74 : 18F2 JR 4E68 4E76 : 04 INC B 4E77 : 05 DEC B 4E78 : C8 RET Z 4E79 : 2B DEC HL 4E7A : 7E LD A,(HL) 4E7B : FE20 CP 20 4E7D : 28F8 JR Z,4E77 4E7F : C9 RET 4E80 : F5 PUSH AF 4E81 : D5 PUSH DE 4E82 : 7E LD A,(HL) 4E83 : FE2C CP 2C 4E85 : 2805 JR Z,4E8C 4E87 : CDC04E CALL 4EC0 4E8A : 3007 JR NC,4E93 4E8C : E5 PUSH HL 4E8D : CD2D31 CALL 312D 4E90 : E1 POP HL 4E91 : 1812 JR 4EA5 4E93 : FE26 CP 26 4E95 : 2008 JR NZ,4E9F 4E97 : CD6C56 CALL 566C 4E9A : CDDB31 CALL 31DB 4E9D : 1806 JR 4EA5 4E9F : CD4835 CALL 3548 4EA2 : DC7630 CALL C,3076 4EA5 : D1 POP DE 4EA6 : F1 POP AF 4EA7 : B7 OR A 4EA8 : C24123 JP NZ,2341 4EAB : E5 PUSH HL 4EAC : EB EX DE,HL 4EAD : CD2432 CALL 3224 4EB0 : 73 LD (HL),E 4EB1 : 23 INC HL 4EB2 : 72 LD (HL),D 4EB3 : E1 POP HL 4EB4 : C9 RET 4EB5 : CDD325 CALL 25D3 4EB8 : FE2C CP 2C 4EBA : C8 RET Z 4EBB : CDCB4E CALL 4ECB 4EBE : 3F CCF 4EBF : C9 RET 4EC0 : 08 EX AF,AF' 4EC1 : 3807 JR C,4ECA 4EC3 : 08 EX AF,AF' 4EC4 : FE0D CP 0D 4EC6 : 37 SCF 4EC7 : C8 RET Z 4EC8 : B7 OR A 4EC9 : C9 RET 4ECA : 08 EX AF,AF' 4ECB : E5 PUSH HL 4ECC : D5 PUSH DE 4ECD : ED5B8C72 LD DE,(728C) 4ED1 : B7 OR A 4ED2 : ED52 SBC HL,DE 4ED4 : 3F CCF 4ED5 : D1 POP DE 4ED6 : E1 POP HL 4ED7 : C9 RET 4ED8 : 2A8A72 LD HL,(728A) 4EDB : 7E LD A,(HL) 4EDC : FE2C CP 2C 4EDE : 281A JR Z,4EFA 4EE0 : FEF8 CP F8 4EE2 : DC6B30 CALL C,306B 4EE5 : 23 INC HL 4EE6 : E5 PUSH HL 4EE7 : DDE1 POP IX 4EE9 : CD452A CALL 2A45 4EEC : DC6D30 CALL C,306D 4EEF : 7B LD A,E 4EF0 : FE04 CP 04 4EF2 : 20F5 JR NZ,4EE9 4EF4 : DD2B DEC IX 4EF6 : DD228C72 LD (728C),IX 4EFA : 23 INC HL 4EFB : C9 RET 4EFC : 010500 LD BC,0005 4EFF : FD09 ADD IY,BC 4F01 : CD2B4F CALL 4F2B ;RESUME 4F04 : DC8130 CALL C,3081 4F07 : FE10 CP 10 4F09 : 28F1 JR Z,4EFC 4F0B : CD9D29 CALL 299D 4F0E : 219372 LD HL,7293 4F11 : CBE6 SET 4,(HL) 4F13 : CD2B4F CALL 4F2B ;RETURN 4F16 : DC6C30 CALL C,306C 4F19 : CD5D4F CALL 4F5D 4F1C : 010500 LD BC,0005 4F1F : FD09 ADD IY,BC 4F21 : 2A7C72 LD HL,(727C) 4F24 : 7E LD A,(HL) 4F25 : FEF8 CP F8 4F27 : D0 RET NC 4F28 : C3A94B JP 4BA9 4F2B : FD7E00 LD A,(IY+00) 4F2E : FE10 CP 10 4F30 : C8 RET Z 4F31 : 4F LD C,A 4F32 : E6F0 AND F0 4F34 : 280D JR Z,4F43 4F36 : FE40 CP 40 4F38 : 3F CCF 4F39 : D8 RET C 4F3A : FE20 CP 20 4F3C : 380D JR C,4F4B 4F3E : 010500 LD BC,0005 4F41 : 1804 JR 4F47 4F43 : 79 LD A,C 4F44 : CDF64A CALL 4AF6 4F47 : FD09 ADD IY,BC 4F49 : 18E0 JR 4F2B 4F4B : 79 LD A,C 4F4C : FE1F CP 1F 4F4E : 2807 JR Z,4F57 4F50 : D611 SUB 11 4F52 : 329272 LD (7292),A 4F55 : 79 LD A,C 4F56 : C9 RET 4F57 : 21A472 LD HL,72A4 4F5A : CBA6 RES 4,(HL) 4F5C : C9 RET 4F5D : FD6E03 LD L,(IY+03) 4F60 : FD6604 LD H,(IY+04) 4F63 : 227872 LD (7278),HL 4F66 : FD6E01 LD L,(IY+01) 4F69 : FD6602 LD H,(IY+02) 4F6C : 227E72 LD (727E),HL 4F6F : C9 RET 4F70 : EF RST 28 ;RESTORE 4F71 : FEF8 CP F8 4F73 : 3804 JR C,4F79 4F75 : ED5B6A72 LD DE,(726A) 4F79 : DCD328 CALL C,28D3 4F7C : 1B DEC DE 4F7D : ED538A72 LD (728A),DE 4F81 : C9 RET 4F82 : CD052B CALL 2B05 ;REPEAT 4F85 : 01FBFF LD BC,FFFB 4F88 : FD09 ADD IY,BC 4F8A : 3E20 LD A,20 4F8C : C3B24B JP 4BB2 4F8F : FD7E00 LD A,(IY+00) ;UNTIL 4F92 : FE20 CP 20 4F94 : C47F30 CALL NZ,307F 4F97 : CD6F2A CALL 2A6F 4F9A : B7 OR A 4F9B : 2808 JR Z,4FA5 4F9D : FE02 CP 02 4F9F : C46B30 CALL NZ,306B 4FA2 : 1A LD A,(DE) 4FA3 : 57 LD D,A 4FA4 : 5F LD E,A 4FA5 : 7A LD A,D 4FA6 : B3 OR E 4FA7 : CA5D4F JP Z,4F5D 4FAA : 010500 LD BC,0005 4FAD : FD09 ADD IY,BC 4FAF : C9 RET 4FB0 : 2A7E72 LD HL,(727E) ;STOP 4FB3 : ED5B7872 LD DE,(7278) 4FB7 : 229F72 LD (729F),HL 4FBA : CDC329 CALL 29C3 4FBD : AF XOR A 4FBE : 329472 LD (7294),A 4FC1 : D5 PUSH DE 4FC2 : 21D04F LD HL,4FD0 4FC5 : CD415D CALL 5D41 4FC8 : D1 POP DE 4FC9 : CDFD25 CALL 25FD 4FCC : C1 POP BC 4FCD : C3CD20 JP 20CD 4FD0 : DM 'Stop at ' 4FD8 : DB 00 4FD9 : CD772C CALL 2C77 ;SWAP 4FDC : E5 PUSH HL 4FDD : 47 LD B,A 4FDE : C5 PUSH BC 4FDF : EF RST 28 4FE0 : FECE CP CE 4FE2 : C46B30 CALL NZ,306B 4FE5 : CD772C CALL 2C77 4FE8 : E3 EX (SP),HL 4FE9 : BC CP H 4FEA : C47630 CALL NZ,3076 4FED : FE04 CP 04 4FEF : 201C JR NZ,500D 4FF1 : 79 LD A,C 4FF2 : BD CP L 4FF3 : 2810 JR Z,5005 4FF5 : D1 POP DE 4FF6 : 3003 JR NC,4FFB 4FF8 : E1 POP HL 4FF9 : 1803 JR 4FFE 4FFB : 7D LD A,L 4FFC : E1 POP HL 4FFD : EB EX DE,HL 4FFE : 4E LD C,(HL) 4FFF : B9 CP C 5000 : DC7830 CALL C,3078 5003 : 1802 JR 5007 5005 : E1 POP HL 5006 : D1 POP DE 5007 : 4F LD C,A 5008 : 0600 LD B,00 500A : 03 INC BC 500B : 180E JR 501B 500D : FE00 CP 00 500F : 2005 JR NZ,5016 5011 : 010200 LD BC,0002 5014 : 1803 JR 5019 5016 : 010800 LD BC,0008 5019 : E1 POP HL 501A : D1 POP DE 501B : 1A LD A,(DE) 501C : EDA0 LDI 501E : 2B DEC HL 501F : 77 LD (HL),A 5020 : 23 INC HL 5021 : EA1B50 JP PE,501B 5024 : C9 RET 5025 : CD7342 CALL 4273 ;CONSOLE 5028 : 3809 JR C,5033 502A : 211A70 LD HL,701A 502D : CBFE SET 7,(HL) 502F : 2002 JR NZ,5033 5031 : CBBE RES 7,(HL) 5033 : CD8642 CALL 4286 5036 : 3809 JR C,5041 5038 : 211A70 LD HL,701A 503B : CBE6 SET 4,(HL) 503D : 2002 JR NZ,5041 503F : CBA6 RES 4,(HL) 5041 : CD8642 CALL 4286 5044 : D4640C CALL NC,0C64 5047 : CD8642 CALL 4286 504A : D4330E CALL NC,0E33 504D : CDAC41 CALL 41AC 5050 : 3808 JR C,505A 5052 : 7B LD A,E 5053 : E603 AND 03 5055 : C611 ADD A,11 5057 : CD8310 CALL 1083 505A : CD8642 CALL 4286 505D : 3809 JR C,5068 505F : 219470 LD HL,7094 5062 : CBD6 SET 2,(HL) 5064 : 2002 JR NZ,5068 5066 : CB96 RES 2,(HL) 5068 : CDAC41 CALL 41AC 506B : D8 RET C 506C : 7B LD A,E 506D : 321970 LD (7019),A 5070 : C9 RET 5071 : CDD441 CALL 41D4 ;LEN 5074 : 7B LD A,E 5075 : 329072 LD (7290),A 5078 : C9 RET 5079 : E7 RST 20 ;CLOSE 507A : 3807 JR C,5083 507C : CD6E60 CALL 606E 507F : D0 RET NC 5080 : C38E30 JP 308E 5083 : FECC CP CC 5085 : 2047 JR NZ,50CE 5087 : CD8941 CALL 4189 508A : CD8B5E CALL 5E8B 508D : 38F1 JR C,5080 508F : EF RST 28 5090 : FECE CP CE 5092 : C0 RET NZ 5093 : E7 RST 20 5094 : 18ED JR 5083 5096 : CDFF50 CALL 50FF ;OPEN 5099 : 3AC973 LD A,(73C9) 509C : 322071 LD (7120),A 509F : E7 RST 20 50A0 : 116B30 LD DE,306B 50A3 : FED1 CP D1 50A5 : DC0242 CALL C,4202 50A8 : EB EX DE,HL 50A9 : E5 PUSH HL 50AA : 211851 LD HL,5118 50AD : FEDA CP DA 50AF : 2023 JR NZ,50D4 50B1 : E5 PUSH HL 50B2 : EF RST 28 50B3 : E7 RST 20 50B4 : E1 POP HL 50B5 : FEDC CP DC 50B7 : 23 INC HL 50B8 : 23 INC HL 50B9 : 2816 JR Z,50D1 50BB : FEDD CP DD 50BD : 23 INC HL 50BE : 23 INC HL 50BF : 2810 JR Z,50D1 50C1 : FEDE CP DE 50C3 : 23 INC HL 50C4 : 23 INC HL 50C5 : 280A JR Z,50D1 50C7 : CD9141 CALL 4191 50CA : 7A LD A,D 50CB : 53 LD D,E 50CC : 180C JR 50DA 50CE : CD6B30 CALL 306B 50D1 : E5 PUSH HL 50D2 : EF RST 28 50D3 : E1 POP HL 50D4 : 7E LD A,(HL) 50D5 : 23 INC HL 50D6 : 56 LD D,(HL) 50D7 : F5 PUSH AF 50D8 : D5 PUSH DE 50D9 : 21F5D5 LD HL,D5F5 50DC : EF RST 28 50DD : FEDB CP DB 50DF : 20ED JR NZ,50CE 50E1 : EF RST 28 50E2 : FECC CP CC 50E4 : 20E8 JR NZ,50CE 50E6 : CDD741 CALL 41D7 50E9 : C1 POP BC 50EA : 50 LD D,B 50EB : D5 PUSH DE 50EC : E7 RST 20 50ED : FED1 CP D1 50EF : 110001 LD DE,0100 50F2 : CC8941 CALL Z,4189 50F5 : 42 LD B,D 50F6 : 4B LD C,E 50F7 : D1 POP DE 50F8 : F1 POP AF 50F9 : E1 POP HL 50FA : CBBF RES 7,A 50FC : C31749 JP 4917 50FF : AF XOR A ;priprava hlavicky 5100 : 328E70 LD (708E),A ;nuluj SYSFMT 5103 : 212071 LD HL,7120 ;vynuluj bafr hlavicky 5106 : 013F00 LD BC,003F 5109 : CD6008 CALL 0860 510C : 2AB072 LD HL,(72B0) ;zkopiruj hledane jmeno 510F : 113371 LD DE,7133 ;do bafru 5112 : 011A00 LD BC,001A 5115 : EDB0 LDIR 5117 : C9 RET ;tabulka vyznamovych bajtu pro OPEN FOR smer 5118 : DB 09,53 ;neni uvedeno FOR smer 511A : DB 04,22 ;FOR INPUT 511C : DB 0A,31 ;FOR OUTPUT 511E : DB 0A,37 ;FOR APPEND 5120 : CD8F51 CALL 518F ;PUT 5123 : E7 RST 20 5124 : D0 RET NC 5125 : D5 PUSH DE 5126 : FECE CP CE 5128 : 2001 JR NZ,512B 512A : EF RST 28 512B : CD6F2A CALL 2A6F 512E : EB EX DE,HL 512F : B7 OR A 5130 : 0602 LD B,02 5132 : 280A JR Z,513E 5134 : FE02 CP 02 5136 : 0608 LD B,08 5138 : 280A JR Z,5144 513A : 46 LD B,(HL) 513B : 23 INC HL 513C : 1806 JR 5144 513E : 220D74 LD (740D),HL 5141 : 210D74 LD HL,740D 5144 : D1 POP DE 5145 : D5 PUSH DE 5146 : B7 OR A 5147 : 04 INC B 5148 : 05 DEC B 5149 : C43B5E CALL NZ,5E3B 514C : D1 POP DE 514D : 30D4 JR NC,5123 514F : C38E30 JP 308E 5152 : CD8F51 CALL 518F ;GET 5155 : E7 RST 20 5156 : D0 RET NC 5157 : D5 PUSH DE 5158 : FECE CP CE 515A : 2001 JR NZ,515D 515C : EF RST 28 515D : CD772C CALL 2C77 5160 : B7 OR A 5161 : 0602 LD B,02 5163 : 2809 JR Z,516E 5165 : FE02 CP 02 5167 : 0608 LD B,08 5169 : 2803 JR Z,516E 516B : 71 LD (HL),C 516C : 41 LD B,C 516D : 23 INC HL 516E : D1 POP DE 516F : D5 PUSH DE 5170 : B7 OR A 5171 : 04 INC B 5172 : 05 DEC B 5173 : C4455E CALL NZ,5E45 5176 : D1 POP DE 5177 : 30DC JR NC,5155 5179 : 18D4 JR 514F 517B : CD8F51 CALL 518F ;RECORD 517E : D5 PUSH DE 517F : 110000 LD DE,0000 5182 : CD956D CALL 6D95 5185 : D5 PUSH DE 5186 : C1 POP BC 5187 : D1 POP DE 5188 : CD4A5E CALL 5E4A 518B : DA8E30 JP C,308E 518E : C9 RET 518F : E7 RST 20 5190 : FECC CP CC 5192 : 3AA972 LD A,(72A9) 5195 : 5F LD E,A 5196 : C0 RET NZ 5197 : EF RST 28 5198 : CD8E41 CALL 418E 519B : AF XOR A 519C : B2 OR D 519D : C46E30 CALL NZ,306E 51A0 : C9 RET 51A1 : 110000 LD DE,0000 ;CLS 51A4 : CD7841 CALL 4178 51A7 : 7B LD A,E 51A8 : C39413 JP 1394 51AB : E7 RST 20 ;VIEW 51AC : D25313 JP NC,1353 51AF : CD8B42 CALL 428B 51B2 : D5 PUSH DE 51B3 : EF RST 28 51B4 : FECE CP CE 51B6 : C46B30 CALL NZ,306B 51B9 : CD4343 CALL 4343 51BC : CD8B42 CALL 428B 51BF : E1 POP HL 51C0 : 7A LD A,D 51C1 : 55 LD D,L 51C2 : 6F LD L,A 51C3 : CD5C13 CALL 135C 51C6 : D0 RET NC 51C7 : CD6E30 CALL 306E 51CA : CD8B42 CALL 428B ;LOCATE 51CD : C3DD13 JP 13DD 51D0 : 015404 LD BC,0454 ;SCOD 51D3 : 1803 JR 51D8 51D5 : 014504 LD BC,0445 ;SCOL 51D8 : C5 PUSH BC 51D9 : CD5D52 CALL 525D 51DC : D5 PUSH DE 51DD : CD8341 CALL 4183 51E0 : 43 LD B,E 51E1 : 4B LD C,E 51E2 : CF RST 08 51E3 : 17 RLA 51E4 : DC7C30 CALL C,307C 51E7 : D1 POP DE 51E8 : 7B LD A,E 51E9 : C9 RET 51EA : 110000 LD DE,0000 ;MAG 51ED : CDBE41 CALL 41BE 51F0 : 7B LD A,E 51F1 : FE04 CP 04 51F3 : DA5C04 JP C,045C 51F6 : CD6E30 CALL 306E 51F9 : 1E0E LD E,0E ;FCOL 51FB : CDBE41 CALL 41BE 51FE : 7B LD A,E 51FF : E60F AND 0F 5201 : 47 LD B,A 5202 : C3830C JP 0C83 5205 : 1E00 LD E,00 ;BCOL 5207 : CDBE41 CALL 41BE 520A : 43 LD B,E 520B : C3970C JP 0C97 520E : CD9141 CALL 4191 ;COLOR 5211 : D5 PUSH DE 5212 : CDC941 CALL 41C9 5215 : CF RST 08 5216 : E1 POP HL 5217 : E6E0 AND E0 5219 : 2820 JR Z,523B 521B : CB6F BIT 5,A 521D : CC7C30 CALL Z,307C 5220 : 7B LD A,E 5221 : 2600 LD H,00 5223 : 29 ADD HL,HL 5224 : 29 ADD HL,HL 5225 : 29 ADD HL,HL 5226 : ED5B9770 LD DE,(7097) 522A : 19 ADD HL,DE 522B : 0E03 LD C,03 522D : 0608 LD B,08 522F : D7 RST 10 5230 : 23 INC HL 5231 : 10FC DJNZ 522F 5233 : 11F807 LD DE,07F8 5236 : 19 ADD HL,DE 5237 : 0D DEC C 5238 : 20F3 JR NZ,522D 523A : C9 RET 523B : 4B LD C,E 523C : 7D LD A,L 523D : 0F RRCA 523E : 0F RRCA 523F : 0F RRCA 5240 : E61F AND 1F 5242 : 47 LD B,A 5243 : C3D30E JP 0ED3 ;LOC 5246 : CF RST 08 5247 : 17 RLA 5248 : DC7C30 CALL C,307C 524B : E7 RST 20 524C : CD5D52 CALL 525D 524F : FECA CP CA 5251 : C46B30 CALL NZ,306B 5254 : 7B LD A,E 5255 : F5 PUSH AF 5256 : CD7752 CALL 5277 5259 : F1 POP AF 525A : C3CE03 JP 03CE 525D : 0601 LD B,01 525F : FECD CP CD 5261 : 2808 JR Z,526B 5263 : 05 DEC B 5264 : FECC CP CC 5266 : 2803 JR Z,526B 5268 : C5 PUSH BC 5269 : 1802 JR 526D 526B : C5 PUSH BC 526C : EF RST 28 526D : CDD441 CALL 41D4 5270 : 08 EX AF,AF' 5271 : 7B LD A,E 5272 : E61F AND 1F 5274 : 08 EX AF,AF' 5275 : C1 POP BC 5276 : C9 RET 5277 : C5 PUSH BC 5278 : CDAB42 CALL 42AB 527B : D41343 CALL NC,4313 527E : DC7D30 CALL C,307D 5281 : C1 POP BC 5282 : 04 INC B 5283 : 05 DEC B 5284 : C8 RET Z 5285 : C3E542 JP 42E5 5288 : CD0242 CALL 4202 ;STCHR 528B : E7 RST 20 528C : FECA CP CA 528E : C46B30 CALL NZ,306B 5291 : 1A LD A,(DE) 5292 : B7 OR A 5293 : 283A JR Z,52CF 5295 : 0F RRCA 5296 : 0F RRCA 5297 : 0F RRCA 5298 : 0F RRCA 5299 : F5 PUSH AF 529A : FE10 CP 10 529C : 3031 JR NC,52CF 529E : EB EX DE,HL 529F : 46 LD B,(HL) 52A0 : CB08 RRC B 52A2 : CB08 RRC B 52A4 : 23 INC HL 52A5 : 110D74 LD DE,740D 52A8 : C5 PUSH BC 52A9 : D5 PUSH DE 52AA : 0604 LD B,04 52AC : CDA725 CALL 25A7 52AF : E3 EX (SP),HL 52B0 : 72 LD (HL),D 52B1 : 23 INC HL 52B2 : 73 LD (HL),E 52B3 : 23 INC HL 52B4 : E3 EX (SP),HL 52B5 : D1 POP DE 52B6 : C1 POP BC 52B7 : 10EF DJNZ 52A8 52B9 : CD8641 CALL 4186 52BC : D5 PUSH DE 52BD : CD6341 CALL 4163 52C0 : C1 POP BC 52C1 : F1 POP AF 52C2 : 47 LD B,A 52C3 : 7B LD A,E 52C4 : 210D74 LD HL,740D 52C7 : FE07 CP 07 52C9 : 3007 JR NC,52D2 52CB : CD590E CALL 0E59 52CE : D0 RET NC 52CF : CD6E30 CALL 306E 52D2 : 3E01 LD A,01 52D4 : 2802 JR Z,52D8 52D6 : 3E04 LD A,04 52D8 : 1E03 LD E,03 52DA : 57 LD D,A 52DB : C5 PUSH BC 52DC : E5 PUSH HL 52DD : D5 PUSH DE 52DE : CD590E CALL 0E59 52E1 : D1 POP DE 52E2 : E1 POP HL 52E3 : C1 POP BC 52E4 : 38E9 JR C,52CF 52E6 : 14 INC D 52E7 : 7A LD A,D 52E8 : 1D DEC E 52E9 : 20F0 JR NZ,52DB 52EB : C9 RET 52EC : 1E00 LD E,00 ;GMODE 52EE : CDBE41 CALL 41BE 52F1 : 300B JR NC,52FE 52F3 : FECE CP CE 52F5 : 280B JR Z,5302 52F7 : AF XOR A 52F8 : CD3462 CALL 6234 52FB : AF XOR A 52FC : 1809 JR 5307 52FE : 7B LD A,E 52FF : CD3462 CALL 6234 5302 : CD7A42 CALL 427A 5305 : D8 RET C 5306 : 7B LD A,E 5307 : 322172 LD (7221),A 530A : C9 RET 530B : CDAC42 CALL 42AC ;GMOVE 530E : C3CD63 JP 63CD 5311 : CDAC42 CALL 42AC ;PLOT 5314 : 3829 JR C,533F 5316 : C30A63 JP 630A 5319 : CDAC42 CALL 42AC ;DRAW 531C : 3821 JR C,533F 531E : E5 PUSH HL 531F : D5 PUSH DE 5320 : E7 RST 20 5321 : FECE CP CE 5323 : 200E JR NZ,5333 5325 : CDAB42 CALL 42AB 5328 : 3815 JR C,533F 532A : D9 EXX 532B : D1 POP DE 532C : E1 POP HL 532D : D9 EXX 532E : CDD763 CALL 63D7 5331 : 1805 JR 5338 5333 : D1 POP DE 5334 : E1 POP HL 5335 : CDC063 CALL 63C0 5338 : E7 RST 20 5339 : FECF CP CF 533B : C0 RET NZ 533C : EF RST 28 533D : 18DA JR 5319 533F : CD7D30 CALL 307D 5342 : CDAC42 CALL 42AC ;PAINT 5345 : 38F8 JR C,533F 5347 : E5 PUSH HL 5348 : D5 PUSH DE 5349 : 211E74 LD HL,741E 534C : E5 PUSH HL 534D : 23 INC HL 534E : E5 PUSH HL 534F : 010010 LD BC,1000 5352 : C5 PUSH BC 5353 : CDB541 CALL 41B5 5356 : C1 POP BC 5357 : 3807 JR C,5360 5359 : E1 POP HL 535A : 73 LD (HL),E 535B : 23 INC HL 535C : E5 PUSH HL 535D : 0C INC C 535E : 10F2 DJNZ 5352 5360 : E1 POP HL 5361 : CD4343 CALL 4343 5364 : E1 POP HL 5365 : 71 LD (HL),C 5366 : D1 POP DE 5367 : E1 POP HL 5368 : C36F65 JP 656F 536B : 1E00 LD E,00 ;GCOPY 536D : CDBE41 CALL 41BE 5370 : 7B LD A,E 5371 : FE02 CP 02 5373 : DAE867 JP C,67E8 5376 : CD6E30 CALL 306E 5379 : CD0B3E CALL 3E0B ;ATN 537C : C32638 JP 3826 537F : CD0554 CALL 5405 ;ABS 5382 : DAFC37 JP C,37FC 5385 : AF XOR A 5386 : C3342E JP 2E34 5389 : 110238 LD DE,3802 ;PI 538C : 3E02 LD A,02 538E : C9 RET 538F : CD0554 CALL 5405 ;RND 5392 : 300B JR NC,539F 5394 : CDB92A CALL 2AB9 5397 : D5 PUSH DE 5398 : CDEA3E CALL 3EEA 539B : D1 POP DE 539C : C32233 JP 3322 539F : 7B LD A,E 53A0 : B2 OR D 53A1 : C8 RET Z 53A2 : CD8243 CALL 4382 53A5 : 2A6773 LD HL,(7367) 53A8 : 7D LD A,L 53A9 : 84 ADD A,H 53AA : 67 LD H,A 53AB : 23 INC HL 53AC : ED5F LD A,R 53AE : 85 ADD A,L 53AF : 6F LD L,A 53B0 : 7C LD A,H 53B1 : E67F AND 7F 53B3 : 67 LD H,A 53B4 : 226773 LD (7367),HL 53B7 : 13 INC DE 53B8 : 7A LD A,D 53B9 : B7 OR A 53BA : F40B2F CALL P,2F0B 53BD : EB EX DE,HL 53BE : AF XOR A 53BF : C9 RET 53C0 : CD0554 CALL 5405 ;SGN 53C3 : 380D JR C,53D2 53C5 : 7A LD A,D 53C6 : B3 OR E 53C7 : C8 RET Z 53C8 : AF XOR A 53C9 : CB7A BIT 7,D 53CB : 110100 LD DE,0001 53CE : C8 RET Z 53CF : 1B DEC DE 53D0 : 1B DEC DE 53D1 : C9 RET 53D2 : 3A0B73 LD A,(730B) 53D5 : 57 LD D,A 53D6 : 5F LD E,A 53D7 : CDC553 CALL 53C5 53DA : C3DB31 JP 31DB 53DD : CD2842 CALL 4228 ;XCHG 53E0 : 7B LD A,E 53E1 : 5A LD E,D 53E2 : 57 LD D,A 53E3 : AF XOR A 53E4 : C9 RET 53E5 : CD4242 CALL 4242 ;REG 53E8 : 216272 LD HL,7262 53EB : 7B LD A,E 53EC : FE04 CP 04 53EE : D46E30 CALL NC,306E 53F1 : 87 ADD A,A 53F2 : 5F LD E,A 53F3 : AF XOR A 53F4 : 57 LD D,A 53F5 : 19 ADD HL,DE 53F6 : 5E LD E,(HL) 53F7 : 23 INC HL 53F8 : 56 LD D,(HL) 53F9 : C9 RET 53FA : CD6642 CALL 4266 ;CDBL 53FD : 3E02 LD A,02 53FF : C9 RET 5400 : CD2842 CALL 4228 ;CINT 5403 : AF XOR A 5404 : C9 RET 5405 : CDE258 CALL 58E2 5408 : CD6F2A CALL 2A6F 540B : F5 PUSH AF 540C : EF RST 28 540D : FEBE CP BE 540F : C46B30 CALL NZ,306B 5412 : F1 POP AF 5413 : B7 OR A 5414 : C8 RET Z 5415 : FE02 CP 02 5417 : C47630 CALL NZ,3076 541A : 1803 JR 541F 541C : CD6642 CALL 4266 541F : EB EX DE,HL 5420 : CDEE30 CALL 30EE 5423 : 37 SCF 5424 : C9 RET 5425 : CD5442 CALL 4254 ;ASCII 5428 : EB EX DE,HL 5429 : 7E LD A,(HL) 542A : 11FFFF LD DE,FFFF 542D : B7 OR A 542E : C8 RET Z 542F : 23 INC HL 5430 : 13 INC DE 5431 : 5E LD E,(HL) 5432 : AF XOR A 5433 : C9 RET 5434 : CDE258 CALL 58E2 ;INSTR 5437 : E7 RST 20 5438 : E5 PUSH HL 5439 : CD6F2A CALL 2A6F 543C : E1 POP HL 543D : 227C72 LD (727C),HL 5440 : 110100 LD DE,0001 5443 : FE04 CP 04 5445 : D5 PUSH DE 5446 : 280B JR Z,5453 5448 : CDBE41 CALL 41BE 544B : EB EX DE,HL 544C : E3 EX (SP),HL 544D : EF RST 28 544E : FECE CP CE 5450 : C46B30 CALL NZ,306B 5453 : CD0242 CALL 4202 5456 : D5 PUSH DE 5457 : CD5942 CALL 4259 545A : E1 POP HL 545B : C1 POP BC 545C : 79 LD A,C 545D : B7 OR A 545E : 2001 JR NZ,5461 5460 : 3C INC A 5461 : 4F LD C,A 5462 : 7E LD A,(HL) 5463 : 08 EX AF,AF' 5464 : 7E LD A,(HL) 5465 : 91 SUB C 5466 : 3827 JR C,548F 5468 : 47 LD B,A 5469 : 1A LD A,(DE) 546A : B7 OR A 546B : 79 LD A,C 546C : 2822 JR Z,5490 546E : 78 LD A,B 546F : 0600 LD B,00 5471 : 09 ADD HL,BC 5472 : 4F LD C,A 5473 : 1A LD A,(DE) 5474 : 47 LD B,A 5475 : 79 LD A,C 5476 : 3C INC A 5477 : B8 CP B 5478 : 3815 JR C,548F 547A : E5 PUSH HL 547B : D5 PUSH DE 547C : 13 INC DE 547D : 1A LD A,(DE) 547E : BE CP (HL) 547F : 2003 JR NZ,5484 5481 : 23 INC HL 5482 : 10F8 DJNZ 547C 5484 : D1 POP DE 5485 : E1 POP HL 5486 : 2804 JR Z,548C 5488 : 23 INC HL 5489 : 0D DEC C 548A : 18E7 JR 5473 548C : 08 EX AF,AF' 548D : 91 SUB C 548E : 16AF LD D,0AF 5490 : 5F LD E,A 5491 : AF XOR A 5492 : 57 LD D,A 5493 : C9 RET 5494 : CD5E42 CALL 425E ;LEFT$ 5497 : D5 PUSH DE 5498 : CD4742 CALL 4247 549B : 4B LD C,E 549C : D1 POP DE 549D : 210100 LD HL,0001 54A0 : 183C JR 54DE 54A2 : CD5E42 CALL 425E ;RIGHT$ 54A5 : D5 PUSH DE 54A6 : CD4742 CALL 4247 54A9 : 4B LD C,E 54AA : D1 POP DE 54AB : 1A LD A,(DE) 54AC : 91 SUB C 54AD : 3001 JR NC,54B0 54AF : AF XOR A 54B0 : 3C INC A 54B1 : 6F LD L,A 54B2 : 2600 LD H,00 54B4 : 1828 JR 54DE 54B6 : CD5E42 CALL 425E ;MID$ 54B9 : D5 PUSH DE 54BA : CDC441 CALL 41C4 54BD : 1C INC E 54BE : 1D DEC E 54BF : 2001 JR NZ,54C2 54C1 : 1C INC E 54C2 : 08 EX AF,AF' 54C3 : E3 EX (SP),HL 54C4 : 7E LD A,(HL) 54C5 : E3 EX (SP),HL 54C6 : D5 PUSH DE 54C7 : 93 SUB E 54C8 : 3C INC A 54C9 : 5F LD E,A 54CA : 08 EX AF,AF' 54CB : E7 RST 20 54CC : FEBE CP BE 54CE : 2805 JR Z,54D5 54D0 : CD4742 CALL 4247 54D3 : 1806 JR 54DB 54D5 : 23 INC HL 54D6 : 227C72 LD (727C),HL 54D9 : 1EFF LD E,0FF 54DB : 4B LD C,E 54DC : E1 POP HL 54DD : D1 POP DE 54DE : 1A LD A,(DE) 54DF : 95 SUB L 54E0 : 3805 JR C,54E7 54E2 : 3C INC A 54E3 : B9 CP C 54E4 : 3003 JR NC,54E9 54E6 : FEAF CP AF 54E8 : 4F LD C,A 54E9 : 19 ADD HL,DE 54EA : CDD42A CALL 2AD4 54ED : 1B DEC DE 54EE : D5 PUSH DE 54EF : 1A LD A,(DE) 54F0 : 4F LD C,A 54F1 : 13 INC DE 54F2 : B7 OR A 54F3 : 2804 JR Z,54F9 54F5 : 0600 LD B,00 54F7 : EDB0 LDIR 54F9 : D1 POP DE 54FA : 3E04 LD A,04 54FC : C9 RET 54FD : CD5442 CALL 4254 ;LEN($) 5500 : 1A LD A,(DE) 5501 : 5F LD E,A 5502 : AF XOR A 5503 : 57 LD D,A 5504 : C9 RET 5505 : CD2842 CALL 4228 ;CHR$ 5508 : 7B LD A,E 5509 : 0E01 LD C,01 550B : F5 PUSH AF 550C : CDD42A CALL 2AD4 550F : F1 POP AF 5510 : 12 LD (DE),A 5511 : 183F JR 5552 5513 : CD9756 CALL 5697 ;HEX$ 5516 : D5 PUSH DE 5517 : 0E04 LD C,04 5519 : CDD42A CALL 2AD4 551C : EB EX DE,HL 551D : D1 POP DE 551E : E5 PUSH HL 551F : CD5226 CALL 2652 5522 : 182D JR 5551 5524 : CD4C42 CALL 424C ;RPT$ 5527 : D5 PUSH DE 5528 : CD5942 CALL 4259 552B : C1 POP BC 552C : EB EX DE,HL 552D : 7E LD A,(HL) 552E : 23 INC HL 552F : 47 LD B,A 5530 : C5 PUSH BC 5531 : B7 OR A 5532 : 2807 JR Z,553B 5534 : AF XOR A 5535 : 81 ADD A,C 5536 : DC6E30 CALL C,306E 5539 : 10FA DJNZ 5535 553B : 4F LD C,A 553C : CDD42A CALL 2AD4 553F : C1 POP BC 5540 : B7 OR A 5541 : 280F JR Z,5552 5543 : D5 PUSH DE 5544 : 79 LD A,C 5545 : 48 LD C,B 5546 : 0600 LD B,00 5548 : C5 PUSH BC 5549 : E5 PUSH HL 554A : EDB0 LDIR 554C : E1 POP HL 554D : C1 POP BC 554E : 3D DEC A 554F : 20F7 JR NZ,5548 5551 : D1 POP DE 5552 : 1B DEC DE 5553 : 3E04 LD A,04 5555 : C9 RET 5556 : CD6B42 CALL 426B ;NUM$ 5559 : EB EX DE,HL 555A : CDEE30 CALL 30EE 555D : CDB92A CALL 2AB9 5560 : E7 RST 20 5561 : FEBE CP BE 5563 : CA0D56 JP Z,560D 5566 : D5 PUSH DE 5567 : 110100 LD DE,0001 556A : CD6F41 CALL 416F 556D : 7B LD A,E 556E : B2 OR D 556F : CC6E30 CALL Z,306E 5572 : D5 PUSH DE 5573 : 1E00 LD E,00 5575 : CDB841 CALL 41B8 5578 : D5 PUSH DE 5579 : EF RST 28 557A : FEBE CP BE 557C : C46B30 CALL NZ,306B 557F : D1 POP DE 5580 : 43 LD B,E 5581 : D1 POP DE 5582 : 4B LD C,E 5583 : E1 POP HL 5584 : D5 PUSH DE 5585 : CDEE30 CALL 30EE 5588 : D1 POP DE 5589 : AF XOR A 558A : CB0A RRC D 558C : DA0E56 JP C,560E 558F : 78 LD A,B 5590 : 81 ADD A,C 5591 : C5 PUSH BC 5592 : 4F LD C,A 5593 : CDD42A CALL 2AD4 5596 : 78 LD A,B 5597 : B7 OR A 5598 : 2001 JR NZ,559B 559A : 3C INC A 559B : 323373 LD (7333),A 559E : D5 PUSH DE 559F : EB EX DE,HL 55A0 : CD7C3F CALL 3F7C 55A3 : 69 LD L,C 55A4 : AF XOR A 55A5 : CB7D BIT 7,L 55A7 : 2801 JR Z,55AA 55A9 : 3D DEC A 55AA : 67 LD H,A 55AB : 112373 LD DE,7323 55AE : 19 ADD HL,DE 55AF : D1 POP DE 55B0 : C1 POP BC 55B1 : D5 PUSH DE 55B2 : 59 LD E,C 55B3 : AF XOR A 55B4 : 57 LD D,A 55B5 : 1B DEC DE 55B6 : ED52 SBC HL,DE 55B8 : D1 POP DE 55B9 : 2B DEC HL 55BA : CD3756 CALL 5637 55BD : 23 INC HL 55BE : 280D JR Z,55CD 55C0 : D5 PUSH DE 55C1 : 1B DEC DE 55C2 : 1A LD A,(DE) 55C3 : 13 INC DE 55C4 : 47 LD B,A 55C5 : 3E2A LD A,2A 55C7 : 12 LD (DE),A 55C8 : 13 INC DE 55C9 : 10FC DJNZ 55C7 55CB : 183C JR 5609 55CD : D5 PUSH DE 55CE : 13 INC DE 55CF : 0D DEC C 55D0 : 0C INC C 55D1 : 0D DEC C 55D2 : 2818 JR Z,55EC 55D4 : CD3756 CALL 5637 55D7 : 3E30 LD A,30 55D9 : 380B JR C,55E6 55DB : 7E LD A,(HL) 55DC : 2008 JR NZ,55E6 55DE : 79 LD A,C 55DF : 3D DEC A 55E0 : 3E20 LD A,20 55E2 : 2002 JR NZ,55E6 55E4 : 3E30 LD A,30 55E6 : 23 INC HL 55E7 : 12 LD (DE),A 55E8 : 13 INC DE 55E9 : 0D DEC C 55EA : 18E4 JR 55D0 55EC : 04 INC B 55ED : 05 DEC B 55EE : 2819 JR Z,5609 55F0 : 3E2E LD A,2E 55F2 : 12 LD (DE),A 55F3 : 13 INC DE 55F4 : 05 DEC B 55F5 : 04 INC B 55F6 : 05 DEC B 55F7 : 2810 JR Z,5609 55F9 : CD3756 CALL 5637 55FC : 3E30 LD A,30 55FE : 2803 JR Z,5603 5600 : 3801 JR C,5603 5602 : 7E LD A,(HL) 5603 : 23 INC HL 5604 : 12 LD (DE),A 5605 : 13 INC DE 5606 : 05 DEC B 5607 : 18EC JR 55F5 5609 : D1 POP DE 560A : 1B DEC DE 560B : 1827 JR 5634 560D : EF RST 28 560E : F5 PUSH AF 560F : 0E14 LD C,14 5611 : CDD42A CALL 2AD4 5614 : EB EX DE,HL 5615 : F1 POP AF 5616 : E5 PUSH HL 5617 : B7 OR A 5618 : 2805 JR Z,561F 561A : CD8B3F CALL 3F8B 561D : 1803 JR 5622 561F : CD703F CALL 3F70 5622 : E1 POP HL 5623 : E5 PUSH HL 5624 : 0614 LD B,14 5626 : 0E00 LD C,00 5628 : 7E LD A,(HL) 5629 : 23 INC HL 562A : B7 OR A 562B : 2803 JR Z,5630 562D : 0C INC C 562E : 10F8 DJNZ 5628 5630 : E1 POP HL 5631 : 2B DEC HL 5632 : 71 LD (HL),C 5633 : EB EX DE,HL 5634 : 3E04 LD A,04 5636 : C9 RET 5637 : D5 PUSH DE 5638 : E5 PUSH HL 5639 : 112373 LD DE,7323 563C : B7 OR A 563D : ED52 SBC HL,DE 563F : 380F JR C,5650 5641 : E1 POP HL 5642 : E5 PUSH HL 5643 : 113173 LD DE,7331 5646 : ED52 SBC HL,DE 5648 : 3009 JR NC,5653 564A : 67 LD H,A 564B : AF XOR A 564C : 3C INC A 564D : 7C LD A,H 564E : 1808 JR 5658 5650 : BF CP A 5651 : 1805 JR 5658 5653 : AF XOR A 5654 : 3D DEC A 5655 : 37 SCF 5656 : 1800 JR 5658 5658 : E1 POP HL 5659 : D1 POP DE 565A : C9 RET 565B : CD5442 CALL 4254 ;VAL 565E : CD4058 CALL 5840 5661 : 04 INC B 5662 : 05 DEC B 5663 : 2816 JR Z,567B 5665 : CDD325 CALL 25D3 5668 : FE26 CP 26 566A : 200B JR NZ,5677 566C : 23 INC HL 566D : CD9D25 CALL 259D 5670 : DC6F30 CALL C,306F 5673 : C5 PUSH BC 5674 : D1 POP DE 5675 : AF XOR A 5676 : C9 RET 5677 : CD4835 CALL 3548 567A : D0 RET NC 567B : C33C31 JP 313C 567E : CD4242 CALL 4242 ;RDST$ 5681 : 4B LD C,E 5682 : CDD42A CALL 2AD4 5685 : 41 LD B,C 5686 : 2AA670 LD HL,(70A6) 5689 : EB EX DE,HL 568A : C5 PUSH BC 568B : E5 PUSH HL 568C : CDEC0E CALL 0EEC 568F : D1 POP DE 5690 : 1B DEC DE 5691 : F1 POP AF 5692 : 90 SUB B 5693 : 12 LD (DE),A 5694 : 3E04 LD A,04 5696 : C9 RET 5697 : CDE258 CALL 58E2 569A : CDA756 CALL 56A7 569D : EF RST 28 569E : FEBE CP BE 56A0 : C46B30 CALL NZ,306B 56A3 : C9 RET 56A4 : CD4343 CALL 4343 56A7 : CD6F2A CALL 2A6F 56AA : B7 OR A 56AB : C8 RET Z 56AC : FE02 CP 02 56AE : C46E30 CALL NZ,306E 56B1 : EB EX DE,HL 56B2 : CDEE30 CALL 30EE 56B5 : C32E32 JP 322E 56B8 : FDE5 PUSH IY ;CALL 56BA : CDA456 CALL 56A4 56BD : 21CB56 LD HL,56CB 56C0 : E5 PUSH HL 56C1 : D5 PUSH DE 56C2 : 216272 LD HL,7262 56C5 : CD826D CALL 6D82 56C8 : C31F6E JP 6E1F 56CB : CD316E CALL 6E31 56CE : FDE1 POP IY 56D0 : C9 RET 56D1 : E7 RST 20 ;EVENT 56D2 : 219372 LD HL,7293 56D5 : 11D672 LD DE,72D6 56D8 : D6C8 SUB C8 56DA : 2820 JR Z,56FC 56DC : 3D DEC A 56DD : 2823 JR Z,5702 56DF : CD9141 CALL 4191 56E2 : 1601 LD D,01 56E4 : ED53D772 LD (72D7),DE 56E8 : 110100 LD DE,0001 56EB : CD6F41 CALL 416F 56EE : 3AD672 LD A,(72D6) 56F1 : E680 AND 80 56F3 : CBBA RES 7,D 56F5 : B2 OR D 56F6 : 57 LD D,A 56F7 : ED53D572 LD (72D5),DE 56FB : C9 RET 56FC : CBDE SET 3,(HL) 56FE : EB EX DE,HL 56FF : CBBE RES 7,(HL) 5701 : C9 RET 5702 : CB9E RES 3,(HL) 5704 : EB EX DE,HL 5705 : CBFE SET 7,(HL) 5707 : C9 RET 5708 : CDD741 CALL 41D7 ;SG 570B : 7B LD A,E 570C : FE04 CP 04 570E : 3038 JR NC,5748 5710 : F5 PUSH AF 5711 : 11FFFF LD DE,FFFF 5714 : CD6C41 CALL 416C 5717 : D5 PUSH DE 5718 : 1EFF LD E,0FF 571A : CDB541 CALL 41B5 571D : E1 POP HL 571E : F1 POP AF 571F : 47 LD B,A 5720 : 7B LD A,E 5721 : 1C INC E 5722 : 280A JR Z,572E 5724 : FE10 CP 10 5726 : 3020 JR NC,5748 5728 : 3E10 LD A,10 572A : 93 SUB E 572B : CD3A1A CALL 1A3A 572E : 23 INC HL 572F : 7C LD A,H 5730 : B5 OR L 5731 : C8 RET Z 5732 : 2B DEC HL 5733 : 78 LD A,B 5734 : FE03 CP 03 5736 : 280D JR Z,5745 5738 : 7C LD A,H 5739 : E6FC AND FC 573B : 200B JR NZ,5748 573D : 29 ADD HL,HL 573E : 29 ADD HL,HL 573F : 29 ADD HL,HL 5740 : 29 ADD HL,HL 5741 : EB EX DE,HL 5742 : C3241A JP 1A24 5745 : 7D LD A,L 5746 : FE08 CP 08 5748 : D46E30 CALL NC,306E 574B : F6E0 OR E0 574D : D320 OUT (20),A 574F : C9 RET 5750 : CD9141 CALL 4191 ;SLEEP 5753 : ED53E772 LD (72E7),DE 5757 : 1E3C LD E,3C 5759 : CDB541 CALL 41B5 575C : 53 LD D,E 575D : ED53DD72 LD (72DD),DE 5761 : AF XOR A 5762 : 57 LD D,A 5763 : 3C INC A 5764 : 21E972 LD HL,72E9 5767 : 5F LD E,A 5768 : 77 LD (HL),A 5769 : ED53DB72 LD (72DB),DE 576D : CB46 BIT 0,(HL) 576F : 20FC JR NZ,576D 5771 : C9 RET 5772 : 2AE772 LD HL,(72E7) ;EVENT 2 5775 : 2B DEC HL 5776 : 7C LD A,H 5777 : B5 OR L 5778 : 22E772 LD (72E7),HL 577B : C0 RET NZ 577C : 21E972 LD HL,72E9 577F : 77 LD (HL),A 5780 : 3D DEC A 5781 : 32DC72 LD (72DC),A 5784 : C9 RET 5785 : CD9141 CALL 4191 ;WAIT 5788 : ED533670 LD (7036),DE 578C : 1E3C LD E,3C 578E : CDB541 CALL 41B5 5791 : 7B LD A,E 5792 : 323870 LD (7038),A 5795 : C9 RET 5796 : CD9141 CALL 4191 ;OUT 5799 : D5 PUSH DE 579A : CD6C41 CALL 416C 579D : C1 POP BC 579E : D8 RET C 579F : C5 PUSH BC 57A0 : ED59 OUT (C),E 57A2 : 18F6 JR 579A 57A4 : CDA456 CALL 56A4 ;POKE 57A7 : D5 PUSH DE 57A8 : CD6C41 CALL 416C 57AB : E1 POP HL 57AC : D8 RET C 57AD : 73 LD (HL),E 57AE : 23 INC HL 57AF : E5 PUSH HL 57B0 : 18F6 JR 57A8 57B2 : CDA456 CALL 56A4 ;VPOKE 57B5 : D5 PUSH DE 57B6 : CD6C41 CALL 416C 57B9 : E1 POP HL 57BA : D8 RET C 57BB : 7B LD A,E 57BC : CBBC RES 7,H 57BE : D7 RST 10 57BF : 23 INC HL 57C0 : E5 PUSH HL 57C1 : 18F3 JR 57B6 57C3 : 21A472 LD HL,72A4 ;CALC 57C6 : CB66 BIT 4,(HL) 57C8 : C46B30 CALL NZ,306B 57CB : CDE258 CALL 58E2 57CE : CD0242 CALL 4202 57D1 : EF RST 28 57D2 : FEBE CP BE 57D4 : 20F2 JR NZ,57C8 57D6 : CD4058 CALL 5840 57D9 : 113076 LD DE,7630 57DC : 3E29 LD A,29 57DE : CDAF23 CALL 23AF 57E1 : CD4C22 CALL 224C 57E4 : 213376 LD HL,7633 57E7 : 7E LD A,(HL) 57E8 : 110000 LD DE,0000 57EB : 3C INC A 57EC : C8 RET Z 57ED : E5 PUSH HL 57EE : E7 RST 20 57EF : E3 EX (SP),HL 57F0 : 227C72 LD (727C),HL 57F3 : 21A472 LD HL,72A4 57F6 : CBE6 SET 4,(HL) 57F8 : E5 PUSH HL 57F9 : CD6F2A CALL 2A6F 57FC : E1 POP HL 57FD : CBA6 RES 4,(HL) 57FF : E1 POP HL 5800 : 227C72 LD (727C),HL 5803 : C9 RET 5804 : 21A472 LD HL,72A4 ;EXE 5807 : CB66 BIT 4,(HL) 5809 : 20BD JR NZ,57C8 580B : CD0242 CALL 4202 580E : CD4058 CALL 5840 5811 : ED4B7872 LD BC,(7278) 5815 : 113076 LD DE,7630 5818 : 3EFF LD A,0FF 581A : 12 LD (DE),A 581B : 13 INC DE 581C : D5 PUSH DE 581D : CD5F21 CALL 215F 5820 : E1 POP HL 5821 : D8 RET C 5822 : E5 PUSH HL 5823 : 1600 LD D,00 5825 : 19 ADD HL,DE 5826 : 2B DEC HL 5827 : EB EX DE,HL 5828 : 213B58 LD HL,583B 582B : 010500 LD BC,0005 582E : EDB0 LDIR 5830 : 21A472 LD HL,72A4 5833 : CBE6 SET 4,(HL) 5835 : D1 POP DE 5836 : 3E1F LD A,1F 5838 : C3D24C JP 4CD2 583B : DB FE,03,00,35,FF 5840 : EB EX DE,HL 5841 : 110D74 LD DE,740D 5844 : D5 PUSH DE 5845 : 46 LD B,(HL) 5846 : CDDA25 CALL 25DA 5849 : 3E0D LD A,0D 584B : 12 LD (DE),A 584C : E1 POP HL 584D : C9 RET 584E : ED5B8472 LD DE,(7284) ;ERR 5852 : AF XOR A 5853 : 57 LD D,A 5854 : C9 RET 5855 : ED5B8672 LD DE,(7286) ;ERRL 5859 : AF XOR A 585A : C9 RET 585B : ED5B8872 LD DE,(7288) ;ERRL$ 585F : 3E04 LD A,04 5861 : C9 RET 5862 : CD7342 CALL 4273 ;THETA 5865 : 325F73 LD (735F),A 5868 : C9 RET 5869 : CD4242 CALL 4242 ;FRE 586C : 7B LD A,E 586D : B7 OR A 586E : 2835 JR Z,58A5 5870 : 3D DEC A 5871 : 2829 JR Z,589C 5873 : 3D DEC A 5874 : 2821 JR Z,5897 5876 : 3D DEC A 5877 : 2809 JR Z,5882 5879 : 3D DEC A 587A : 2833 JR Z,58AF 587C : 3D DEC A 587D : 2835 JR Z,58B4 587F : CD6E30 CALL 306E 5882 : FDE5 PUSH IY 5884 : E1 POP HL 5885 : ED5B6E72 LD DE,(726E) 5889 : ED52 SBC HL,DE 588B : 39 ADD HL,SP 588C : ED5B7472 LD DE,(7274) 5890 : B7 OR A 5891 : ED52 SBC HL,DE 5893 : EB EX DE,HL 5894 : C3F731 JP 31F7 5897 : 210000 LD HL,0000 589A : 18EF JR 588B 589C : ED5B6E72 LD DE,(726E) 58A0 : FDE5 PUSH IY 58A2 : E1 POP HL 58A3 : 18EB JR 5890 58A5 : 2A7672 LD HL,(7276) 58A8 : 23 INC HL 58A9 : ED5B7072 LD DE,(7270) 58AD : 18E1 JR 5890 58AF : 2A7672 LD HL,(7276) 58B2 : 18DF JR 5893 58B4 : 2A1670 LD HL,(7016) 58B7 : 2B DEC HL 58B8 : 18D9 JR 5893 58BA : CDAC08 CALL 08AC ;INKEY$ 58BD : F5 PUSH AF 58BE : 0E01 LD C,01 58C0 : CDD42A CALL 2AD4 58C3 : F1 POP AF 58C4 : 12 LD (DE),A 58C5 : 1B DEC DE 58C6 : 3002 JR NC,58CA 58C8 : AF XOR A 58C9 : 12 LD (DE),A 58CA : 3E04 LD A,04 58CC : C9 RET 58CD : ED5B4370 LD DE,(7043) ;TIME 58D1 : AF XOR A 58D2 : C9 RET 58D3 : CDE258 CALL 58E2 ;VARPTR 58D6 : CD772C CALL 2C77 58D9 : E5 PUSH HL 58DA : EF RST 28 58DB : FEBE CP BE 58DD : 2007 JR NZ,58E6 58DF : AF XOR A 58E0 : D1 POP DE 58E1 : C9 RET 58E2 : EF RST 28 58E3 : FEBD CP BD 58E5 : C8 RET Z 58E6 : CD6B30 CALL 306B 58E9 : CD2842 CALL 4228 ;INP 58EC : 4B LD C,E 58ED : ED58 IN E,(C) 58EF : AF XOR A 58F0 : 57 LD D,A 58F1 : C9 RET 58F2 : CD9756 CALL 5697 ;PEEK 58F5 : 1A LD A,(DE) 58F6 : 5F LD E,A 58F7 : 18F6 JR 58EF 58F9 : CD9756 CALL 5697 ;VPEEK 58FC : EB EX DE,HL 58FD : 7C LD A,H 58FE : E63F AND 3F 5900 : 67 LD H,A 5901 : DF RST 18 5902 : 18F2 JR 58F6 5904 : CDA456 CALL 56A4 ;POKEW 5907 : D5 PUSH DE 5908 : CD6F41 CALL 416F 590B : 380A JR C,5917 590D : E3 EX (SP),HL 590E : F3 DI 590F : 73 LD (HL),E 5910 : 23 INC HL 5911 : 72 LD (HL),D 5912 : 23 INC HL 5913 : FB EI 5914 : E3 EX (SP),HL 5915 : 18F1 JR 5908 5917 : D1 POP DE 5918 : C9 RET 5919 : CD9756 CALL 5697 ;PEEKW 591C : EB EX DE,HL 591D : F3 DI 591E : 5E LD E,(HL) 591F : 23 INC HL 5920 : 56 LD D,(HL) 5921 : FB EI 5922 : AF XOR A 5923 : C9 RET ;tabulka prikazu 5924 : DB 29,00,02 5928 : DB 01,"'",02,01,"!",02,05,"$",0A 5930 : DB 04,'AUTO',3A,04,'BCOL',0D,04,'CONT',1E 5942 : DB 07,'CONSOLE',3C,05,'COLOR',1D,05,'CLOSE',0C 5959 : DB 05,'CLIST',0B,05,'CLEAR',3B,03,'CLS',1C 596C : DB 05,'CHAIN',4B,04,'CALL',04,04,'DATA',3D 597F : DB 04,'DRAW',0E,03,'DEL',1F,03,'DIM',20,03,'END',4D 5994 : DB 03,'EXE',4C,05,'EVENT',21,03,'FOR',3E,04,'FCOL',4E 59AB : DB 02,'FX',24,04,'GOTO',23,05,'GOSUB',3F,05,'GINIT',41 59C3 : DB 05,'GMOVE',40,05,'GMODE',4F,05,'GCOPY',22 59D8 : DB 03,'GET',26,05,'INPUT',25,02,'IF',0F,04,'KILL',10 59EE : DB 04,'LIST',27,03,'LEN',28,03,'LET',43,06,'LOCATE',42 5A06 : DB 03,'LOC',44,03,'MAG',2A,04,'NEXT',11,03,'NEW',57 5A1B : DB 06,'NOLIST',12,03,'OLD',2C,04,'OPEN',50,03,'OUT',2B 5A33 : DB 02,'ON',2D,05,'PRINT',46,04,'PLOT',45,05,'PAINT',52 5A4B : DB 05,'POKEW',51,04,'POKE',2E,03,'PUT',14,03,'RUN',2F 5A62 : DB 09,'RANDOMIZE',35,06,'RETURN',32,06,'REPEAT',33 5A7D : DB 07,'RESTORE',34,06,'RESUME',13,05,'RENUM',30 5A95 : DB 04,'READ',01,03,'REM',31,06,'RECORD',36 5AA6 : DB 04,'STOP',16,04,'STEP',49,05,'STCHR',54 5ABB : DB 05,'SLEEP',15,04,'SAVE',47,04,'SCOD',48 5ACE : DB 04,'SCOL',53,02,'SG',37,04,'SWAP',18 5ADE : DB 05,'TRACE',19,04,'TYPE',17,04,'TAPE',38 5AF1 : DB 05,'THETA',39,05,'UNTIL',1A,06,'VERIFY',55 5B07 : DB 05,'VPOKE',1B,05,'VSAVE',4A,04,'VIEW',56 5B1B : DB 04,'WAIT',2D,01,'?',00 ;tabulka funkci 5B24 : DB FF,01,0D,CC,01,'#',BD,01,'(',BE,01,')',A2,01,'*',A6 5B34 : DB 01,'+',CE,01,',',A7,01,'-',A3,01,'/',FE,01,':',CF 5B43 : DB 01,';',AB,02,'<=',AE,02,'<>',AA,01,'<',AB 5B55 : DB 02,'=<',AD,02,'>=',AD,02,'=>',A8,01,'=',AE 5B60 : DB 02,'><',AC,01,'>',CD,01,'@',A1,01,'^',01 5B6D : DB 03,'ABS',12,05,'ASCII',DB,02,'AS',AF,03,'AND',DE 5B82 : DB 06,'APPEND',02,03,'ATN',DF,03,'ALL',C5, 5B94 : DB 06,'CURSOR',03,04,'CDBL',13,04,'CHR$',04,'CINT',1E 5BAE : DB 04,'CALC',05,03,'COS',D3,03,'DBL',FC,04,'ELSE',D8 5BC4 : DB 05,'ERROR',21,05,'ERRL$',20,04,'ERRL',1F 5BB8 : DB 03,'ERR',D9,05,'EVENT',06,03,'EXP',DA,03,'FOR',22 5BEE : DB 03,'FRE',07,03,'FIX',D6,04,'GOTO',D5,05,'GOSUB',14 5C05 : DB 04,'HEX$',DC,05,'INPUT',24,03,'INP',08,03,'INT',23 5C1C : DB 06,'INKEY$',15,05,'INSTR',17,03,'LEN',16 5C30 : DB 05,'LEFT$',0A,03,'LOG',09,02,'LN',18,04,'MID$',D2 5C46 : DB 04,'MODE',A5,03,'MOD',BF,03,'NOT',19,04,'NUM$',DD 5C5C : DB 06,'OUTPUT',C8,02,'ON',C9,03,'OFF',B0,02,'OR',0B 5C71 : DB 02,'PI',26,05,'PEEKW',25,04,'PEEK',D7 5C82 : DB 07,'RESTORE',D1,06,'RECORD',27,03,'REG',1B 5C98 : DB 06,'RIGHT$',1C,04,'RPT$',0C,03,'RND',1A 5CAB : DB 05,'RDST$',D0,04,'STEP',0D,03,'SGN',0E,03,'SIN',0F 5CC2 : DB 03,'SQR',D4,03,'STR',FD,04,'THEN',28,04,'TIME',C4 5CD8 : DB 03,'TAB',10,03,'TAN',CA,02,'TO',1D,03,'VAL',29 5CEB : DB 06,'VARPTR',2A,05,'VPEEK',B1,03,'XOR',11 5DFF : DB 04,'XCHG',00 ;tabulka FUNC klaves 5D05 : DW 5930,5D04,593C,5979,598F,59A0,59AF,5C05,59DD,5D04 5D19 : DW 5C1C,59EE,5D04,5A10,5A2E,5A37,5A8E,5A5D,5AAE,59B5 5D2D : DW 5C12,5B15,5A95,5973,5A6D,5B94 5D39 : 3AA772 LD A,(72A7) 5D3C : 5F LD E,A 5D3D : AF XOR A 5D3E : C3405E JP 5E40 5D41 : 0600 LD B,00 5D43 : 3AA772 LD A,(72A7) 5D46 : 1810 JR 5D58 5D48 : 06FF LD B,0FF 5D4A : 3AA972 LD A,(72A9) 5D4D : 5F LD E,A 5D4E : 3EFF LD A,0FF 5D50 : C3405E JP 5E40 5D53 : 0600 LD B,00 5D55 : 3AA972 LD A,(72A9) 5D58 : 5F LD E,A 5D59 : C32F5E JP 5E2F 5D5C : 06FF LD B,0FF 5D5E : 3AAB72 LD A,(72AB) 5D61 : 18EA JR 5D4D 5D63 : 0600 LD B,00 5D65 : 3AAB72 LD A,(72AB) 5D68 : 18EE JR 5D58 5D6A : B7 OR A 5D6B : 280B JR Z,5D78 5D6D : CDA907 CALL 07A9 5D70 : DC8030 CALL C,3080 5D73 : 0D DEC C 5D74 : C0 RET NZ 5D75 : CD8230 CALL 3082 5D78 : E5 PUSH HL 5D79 : 210000 LD HL,0000 5D7C : 223670 LD (7036),HL 5D7F : CD8906 CALL 0689 5D82 : CD9E11 CALL 119E 5D85 : E1 POP HL 5D86 : C36F06 JP 066F 5D89 : CDFF41 CALL 41FF 5D8C : 21CB73 LD HL,73CB 5D8F : F3 DI 5D90 : 46 LD B,(HL) 5D91 : 3605 LD (HL),05 5D93 : E5 PUSH HL 5D94 : C5 PUSH BC 5D95 : EB EX DE,HL 5D96 : CDE75E CALL 5EE7 5D99 : D1 POP DE 5D9A : E1 POP HL 5D9B : 72 LD (HL),D 5D9C : FB EI 5D9D : DC5F30 CALL C,305F 5DA0 : 78 LD A,B 5DA1 : FE05 CP 05 5DA3 : C45F30 CALL NZ,305F 5DA6 : 79 LD A,C 5DA7 : CDB36D CALL 6DB3 5DAA : DC8030 CALL C,3080 5DAD : 3A1F71 LD A,(711F) 5DB0 : 212171 LD HL,7121 5DB3 : 110D74 LD DE,740D 5DB6 : D5 PUSH DE 5DB7 : 12 LD (DE),A 5DB8 : 13 INC DE 5DB9 : 010900 LD BC,0009 5DBC : EDB0 LDIR 5DBE : EB EX DE,HL 5DBF : 0E04 LD C,04 5DC1 : CD6008 CALL 0860 5DC4 : E1 POP HL 5DC5 : CD686C CALL 6C68 5DC8 : DC8E30 CALL C,308E 5DCB : C9 RET 5DCC : E5 PUSH HL ;otevreni kanalu E 5DCD : D5 PUSH DE 5DCE : D9 EXX 5DCF : 08 EX AF,AF' 5DD0 : D1 POP DE 5DD1 : CDF95F CALL 5FF9 5DD4 : DC6E30 CALL C,306E 5DD7 : 7E LD A,(HL) 5DD8 : 3C INC A ;Err 102, kanal je jiz otevren 5DD9 : C45D30 CALL NZ,305D ;na SP je cislo kanalu, 5DDC : E3 EX (SP),HL ;v HL je str se jmenem 5DDD : CDE75E CALL 5EE7 ;odeparuje zarizeni a presune 5DE0 : DDE1 POP IX ;jmeno na 7121 5DE2 : DC5F30 CALL C,305F ;Err 104, spatne jmeno 5DE5 : B7 OR A 5DE6 : CB5E BIT 3,(HL) ;je zakaz znovuotevreni? 5DE8 : CC725F CALL Z,5F72 ;je, tak se podivej jestli uz 5DEB : DC5E30 CALL C,305E ;neni otevreno a hlas Err 103 5DEE : CB66 BIT 4,(HL) ;je zarizeni typu DRIVE? 5DF0 : 79 LD A,C ;cislo mechaniky 5DF1 : C4B36D CALL NZ,6DB3 ;ano je, zjistime pripravenost 5DF4 : DA885E JP C,5E88 ;Err 23 5DF7 : 1E00 LD E,00 5DF9 : 08 EX AF,AF' 5DFA : F5 PUSH AF 5DFB : 08 EX AF,AF' 5DFC : B7 OR A 5DFD : CB76 BIT 6,(HL) 5DFF : C4FC6C CALL NZ,6CFC 5E02 : DC8E30 CALL C,308E 5E05 : 08 EX AF,AF' 5E06 : F1 POP AF 5E07 : 08 EX AF,AF' 5E08 : DD7101 LD (IX+01),C 5E0B : DD7302 LD (IX+02),E 5E0E : DD7503 LD (IX+03),L 5E11 : DD7404 LD (IX+04),H 5E14 : AF XOR A 5E15 : DD7705 LD (IX+05),A 5E18 : 0E06 LD C,06 5E1A : CDB05E CALL 5EB0 5E1D : C5 PUSH BC 5E1E : 21275E LD HL,5E27 5E21 : E5 PUSH HL 5E22 : DDE5 PUSH IX 5E24 : E1 POP HL 5E25 : 183D JR 5E64 5E27 : C1 POP BC 5E28 : 387F JR C,5EA9 5E2A : DD7000 LD (IX+00),B 5E2D : 187A JR 5EA9 5E2F : C5 PUSH BC 5E30 : D5 PUSH DE 5E31 : E5 PUSH HL 5E32 : 21CD5E LD HL,5ECD 5E35 : E3 EX (SP),HL 5E36 : 08 EX AF,AF' 5E37 : 3E0A LD A,0A 5E39 : 181A JR 5E55 5E3B : 08 EX AF,AF' 5E3C : 3E0C LD A,0C 5E3E : 1815 JR 5E55 5E40 : 08 EX AF,AF' 5E41 : 3E0E LD A,0E 5E43 : 1810 JR 5E55 5E45 : 08 EX AF,AF' 5E46 : 3E10 LD A,10 5E48 : 180B JR 5E55 5E4A : 1600 LD D,00 5E4C : 08 EX AF,AF' 5E4D : 3E12 LD A,12 5E4F : 1804 JR 5E55 5E51 : D5 PUSH DE 5E52 : 08 EX AF,AF' 5E53 : 3E14 LD A,14 5E55 : D5 PUSH DE 5E56 : D9 EXX 5E57 : D1 POP DE 5E58 : 4F LD C,A 5E59 : CDF95F CALL 5FF9 5E5C : DC6E30 CALL C,306E 5E5F : 7E LD A,(HL) 5E60 : 3C INC A 5E61 : CC5C30 CALL Z,305C 5E64 : 23 INC HL 5E65 : C5 PUSH BC 5E66 : 4E LD C,(HL) 5E67 : 23 INC HL 5E68 : 7E LD A,(HL) 5E69 : 23 INC HL 5E6A : 5E LD E,(HL) 5E6B : 23 INC HL 5E6C : 56 LD D,(HL) 5E6D : EB EX DE,HL 5E6E : F5 PUSH AF 5E6F : B7 OR A 5E70 : CB66 BIT 4,(HL) 5E72 : 79 LD A,C 5E73 : C4B36D CALL NZ,6DB3 5E76 : 380E JR C,5E86 5E78 : F1 POP AF 5E79 : C1 POP BC 5E7A : 0600 LD B,00 5E7C : 09 ADD HL,BC 5E7D : 4E LD C,(HL) 5E7E : 23 INC HL 5E7F : 46 LD B,(HL) 5E80 : C5 PUSH BC 5E81 : D9 EXX 5E82 : 5F LD E,A 5E83 : 08 EX AF,AF' 5E84 : B7 OR A 5E85 : C9 RET 5E86 : C1 POP BC 5E87 : C1 POP BC 5E88 : 3E17 LD A,17 5E8A : C9 RET 5E8B : D5 PUSH DE 5E8C : D9 EXX 5E8D : 08 EX AF,AF' 5E8E : D1 POP DE 5E8F : CDF95F CALL 5FF9 5E92 : DC6E30 CALL C,306E 5E95 : 7E LD A,(HL) 5E96 : 3C INC A 5E97 : C8 RET Z 5E98 : E5 PUSH HL 5E99 : 11A45E LD DE,5EA4 5E9C : D5 PUSH DE 5E9D : 0E08 LD C,08 5E9F : CDB05E CALL 5EB0 5EA2 : 18C0 JR 5E64 5EA4 : E1 POP HL 5EA5 : 3802 JR C,5EA9 5EA7 : 36FF LD (HL),0FF 5EA9 : 21A826 LD HL,26A8 5EAC : 222570 LD (7025),HL 5EAF : C9 RET 5EB0 : E5 PUSH HL 5EB1 : F3 DI 5EB2 : 21C05E LD HL,5EC0 5EB5 : 222570 LD (7025),HL 5EB8 : 21F273 LD HL,73F2 5EBB : 360A LD (HL),0A 5EBD : FB EI 5EBE : E1 POP HL 5EBF : C9 RET 5EC0 : 21F273 LD HL,73F2 5EC3 : 35 DEC (HL) 5EC4 : CCA95E CALL Z,5EA9 5EC7 : CD3603 CALL 0336 5ECA : C31B02 JP 021B 5ECD : D1 POP DE 5ECE : 50 LD D,B 5ECF : C1 POP BC 5ED0 : 4A LD C,D 5ED1 : D8 RET C 5ED2 : E5 PUSH HL 5ED3 : F5 PUSH AF 5ED4 : CDF95F CALL 5FF9 5ED7 : 110500 LD DE,0005 5EDA : 19 ADD HL,DE 5EDB : F1 POP AF 5EDC : EE0D XOR 0D 5EDE : 2803 JR Z,5EE3 5EE0 : 78 LD A,B 5EE1 : 91 SUB C 5EE2 : 86 ADD A,(HL) 5EE3 : 77 LD (HL),A 5EE4 : E1 POP HL 5EE5 : B7 OR A 5EE6 : C9 RET 5EE7 : CD8B5F CALL 5F8B 5EEA : 7E LD A,(HL) 5EEB : B7 OR A 5EEC : 2807 JR Z,5EF5 5EEE : E5 PUSH HL 5EEF : CD545F CALL 5F54 5EF2 : E1 POP HL 5EF3 : 3029 JR NC,5F1E 5EF5 : 3ACB73 LD A,(73CB) 5EF8 : 47 LD B,A 5EF9 : DD219D60 LD IX,609D 5EFD : B7 OR A 5EFE : 280D JR Z,5F0D 5F00 : CD635F CALL 5F63 5F03 : 383D JR C,5F42 5F05 : 1A LD A,(DE) 5F06 : CB7F BIT 7,A 5F08 : 2801 JR Z,5F0B 5F0A : 04 INC B 5F0B : 10F3 DJNZ 5F00 5F0D : 46 LD B,(HL) 5F0E : 23 INC HL 5F0F : CD445F CALL 5F44 5F12 : D8 RET C 5F13 : 21CB73 LD HL,73CB 5F16 : 5E LD E,(HL) 5F17 : 23 INC HL 5F18 : 4E LD C,(HL) 5F19 : 23 INC HL 5F1A : 56 LD D,(HL) 5F1B : B7 OR A 5F1C : 181C JR 5F3A 5F1E : 23 INC HL 5F1F : 05 DEC B 5F20 : CD975F CALL 5F97 5F23 : 381D JR C,5F42 5F25 : CDDA5F CALL 5FDA 5F28 : CDEB5F CALL 5FEB 5F2B : 7E LD A,(HL) 5F2C : FE3A CP 3A 5F2E : 37 SCF 5F2F : 2011 JR NZ,5F42 5F31 : 23 INC HL 5F32 : D5 PUSH DE 5F33 : C5 PUSH BC 5F34 : CD445F CALL 5F44 5F37 : C1 POP BC 5F38 : D1 POP DE 5F39 : D8 RET C 5F3A : DDE5 PUSH IX 5F3C : B7 OR A 5F3D : E1 POP HL 5F3E : 7A LD A,D 5F3F : 321F71 LD (711F),A 5F42 : 43 LD B,E 5F43 : C9 RET 5F44 : 78 LD A,B 5F45 : B7 OR A 5F46 : C8 RET Z 5F47 : FE0A CP 0A 5F49 : 3F CCF 5F4A : D8 RET C 5F4B : 112171 LD DE,7121 5F4E : 48 LD C,B 5F4F : 0600 LD B,00 5F51 : EDB0 LDIR 5F53 : C9 RET 5F54 : 7E LD A,(HL) 5F55 : B7 OR A 5F56 : 37 SCF 5F57 : C8 RET Z 5F58 : 47 LD B,A 5F59 : 23 INC HL 5F5A : 7E LD A,(HL) 5F5B : 23 INC HL 5F5C : FE3A CP 3A 5F5E : C8 RET Z 5F5F : 10F9 DJNZ 5F5A 5F61 : 37 SCF 5F62 : C9 RET 5F63 : DD5E01 LD E,(IX+01) 5F66 : DD5602 LD D,(IX+02) 5F69 : 7B LD A,E 5F6A : B2 OR D 5F6B : 37 SCF 5F6C : C8 RET Z 5F6D : D5 PUSH DE 5F6E : DDE1 POP IX 5F70 : B7 OR A 5F71 : C9 RET 5F72 : C5 PUSH BC 5F73 : D5 PUSH DE 5F74 : E5 PUSH HL 5F75 : 216973 LD HL,7369 5F78 : 110600 LD DE,0006 5F7B : 0E10 LD C,10 5F7D : 7E LD A,(HL) 5F7E : B8 CP B 5F7F : 37 SCF 5F80 : 2805 JR Z,5F87 5F82 : 19 ADD HL,DE 5F83 : 0D DEC C 5F84 : 20F7 JR NZ,5F7D 5F86 : B7 OR A 5F87 : E1 POP HL 5F88 : D1 POP DE 5F89 : C1 POP BC 5F8A : C9 RET 5F8B : E5 PUSH HL 5F8C : 212171 LD HL,7121 5F8F : 010900 LD BC,0009 5F92 : CD6008 CALL 0860 5F95 : E1 POP HL 5F96 : C9 RET 5F97 : C5 PUSH BC 5F98 : 0E00 LD C,00 5F9A : 119D60 LD DE,609D 5F9D : E5 PUSH HL 5F9E : D5 PUSH DE 5F9F : DDE1 POP IX 5FA1 : 0603 LD B,03 5FA3 : 1A LD A,(DE) 5FA4 : 17 RLA 5FA5 : 381A JR C,5FC1 5FA7 : 13 INC DE 5FA8 : 13 INC DE 5FA9 : 13 INC DE 5FAA : 1A LD A,(DE) 5FAB : B7 OR A 5FAC : 280E JR Z,5FBC 5FAE : C5 PUSH BC 5FAF : 47 LD B,A 5FB0 : 7E LD A,(HL) 5FB1 : CD8500 CALL 0085 5FB4 : B8 CP B 5FB5 : C1 POP BC 5FB6 : 13 INC DE 5FB7 : 23 INC HL 5FB8 : 2006 JR NZ,5FC0 5FBA : 10EE DJNZ 5FAA 5FBC : E3 EX (SP),HL 5FBD : E1 POP HL 5FBE : 1817 JR 5FD7 5FC0 : 0C INC C 5FC1 : CD635F CALL 5F63 5FC4 : E1 POP HL 5FC5 : 30D6 JR NC,5F9D 5FC7 : DD219D60 LD IX,609D 5FCB : 3ACB73 LD A,(73CB) 5FCE : 47 LD B,A 5FCF : 4F LD C,A 5FD0 : CD635F CALL 5F63 5FD3 : 3802 JR C,5FD7 5FD5 : 10F9 DJNZ 5FD0 5FD7 : 59 LD E,C 5FD8 : C1 POP BC 5FD9 : C9 RET 5FDA : 3ACC73 LD A,(73CC) 5FDD : 4F LD C,A 5FDE : 7E LD A,(HL) 5FDF : CD8500 CALL 0085 5FE2 : D641 SUB 41 5FE4 : D8 RET C 5FE5 : FE08 CP 08 5FE7 : D0 RET NC 5FE8 : 23 INC HL 5FE9 : 4F LD C,A 5FEA : C9 RET 5FEB : 3ACD73 LD A,(73CD) 5FEE : 57 LD D,A 5FEF : 7E LD A,(HL) 5FF0 : D630 SUB 30 5FF2 : D8 RET C 5FF3 : FE0A CP 0A 5FF5 : D0 RET NC 5FF6 : 23 INC HL 5FF7 : 57 LD D,A 5FF8 : C9 RET 5FF9 : 7B LD A,E 5FFA : FE10 CP 10 5FFC : 3F CCF 5FFD : D8 RET C 5FFE : 87 ADD A,A 5FFF : 87 ADD A,A 6000 : 83 ADD A,E 6001 : 83 ADD A,E 6002 : 5F LD E,A 6003 : 1600 LD D,00 6005 : 216973 LD HL,7369 6008 : 19 ADD HL,DE 6009 : C9 RET 600A : 216973 LD HL,7369 600D : 0610 LD B,10 600F : 110600 LD DE,0006 6012 : 3EFF LD A,0FF 6014 : 77 LD (HL),A 6015 : 19 ADD HL,DE 6016 : 10FC DJNZ 6014 6018 : 21CB73 LD HL,73CB 601B : 3E04 LD A,04 601D : 77 LD (HL),A 601E : 21CE73 LD HL,73CE 6021 : 3E80 LD A,80 6023 : 77 LD (HL),A 6024 : 3AA772 LD A,(72A7) 6027 : 5F LD E,A 6028 : D5 PUSH DE 6029 : 3AA872 LD A,(72A8) 602C : 47 LD B,A 602D : CD3B60 CALL 603B 6030 : D1 POP DE 6031 : 3AA972 LD A,(72A9) 6034 : BB CP E 6035 : C8 RET Z 6036 : 5F LD E,A 6037 : 3AAA72 LD A,(72AA) 603A : 47 LD B,A 603B : CDF95F CALL 5FF9 603E : DC6030 CALL C,3060 6041 : E5 PUSH HL 6042 : 119D60 LD DE,609D 6045 : D5 PUSH DE 6046 : DDE1 POP IX 6048 : C5 PUSH BC 6049 : 04 INC B 604A : 05 DEC B 604B : 2808 JR Z,6055 604D : CD635F CALL 5F63 6050 : DC5F30 CALL C,305F 6053 : 10F8 DJNZ 604D 6055 : C1 POP BC 6056 : EB EX DE,HL 6057 : DDE1 POP IX 6059 : AF XOR A 605A : 4F LD C,A 605B : 57 LD D,A 605C : C3E55D JP 5DE5 605F : 3AA772 LD A,(72A7) 6062 : 5F LD E,A 6063 : D5 PUSH DE 6064 : CD8B5E CALL 5E8B 6067 : D1 POP DE 6068 : 3AA872 LD A,(72A8) 606B : 47 LD B,A 606C : 18CD JR 603B 606E : 111000 LD DE,0010 6071 : 1D DEC E 6072 : D5 PUSH DE 6073 : CD8B5E CALL 5E8B 6076 : D1 POP DE 6077 : 3801 JR C,607A 6079 : 57 LD D,A 607A : 1C INC E 607B : 1D DEC E 607C : 20F3 JR NZ,6071 607E : 7A LD A,D 607F : B7 OR A 6080 : C8 RET Z 6081 : 37 SCF 6082 : C9 RET 6083 : C5 PUSH BC 6084 : E5 PUSH HL 6085 : AF XOR A 6086 : 216973 LD HL,7369 6089 : 110600 LD DE,0006 608C : 0610 LD B,10 608E : 4E LD C,(HL) 608F : 19 ADD HL,DE 6090 : 0C INC C 6091 : 2806 JR Z,6099 6093 : 3C INC A 6094 : 10F8 DJNZ 608E 6096 : CD5B30 CALL 305B 6099 : E1 POP HL 609A : C1 POP BC 609B : 5F LD E,A 609C : C9 RET ;tabulky zarizeni 609D : DB 08 ;<0> 609E : DW 60B3 60A0 : DM 'CNS' 60A3 : DW 5EE5,5EE5,619F,6137,5D6A,6137,6137,613A 60B3 : DB 08 ;<1> 60B4 : DW 60C9 60B6 : DM 'GRP' 60B9 : DW 5EE5,5EE5,61A4,6137,6137,6137,6137,613A 60C9 : DB 08 ;<2> 60CA : DW 60DF 60CC : DM 'PRT' 60CF : DW 5EE5,5EE5,619A,6137,6137,6137,6137,6140 60DF : DB 08 ;<3> 60E0 : DW 60F5 60E2 : DM 'PRI' 60E5 : DW 5EE5,5EE5,6195,6137,6137,6137,6137,6140 60F5 : DB 00 ;<4> 60F6 : DW 610B 60F8 : DM 'CMT' 60FB : DW 69BD,6B39,6ABF,6AEE,6AD7,6B0E,6137,6146 610B : DB 78 ;<5> 610C : DW 6121 610E : DM 'FX',00 6111 : DW 6C7A,6CA6,6CD2,6CB4,6CE1,6CC3,6CF0,6146 6121 : DB 08 ;<6> 6122 : DW 73CE 6124 : DM 'SIO' 6127 : DW 6BF3,5EE5,6C12,5EE5,6C38,5EE5,6137,6146 6137 : CD6030 CALL 3060 613A : D1 POP DE 613B : 3AA770 LD A,(70A7) 613E : 5F LD E,A 613F : C9 RET 6140 : D1 POP DE 6141 : 3A5C70 LD A,(705C) 6144 : 5F LD E,A 6145 : C9 RET 6146 : D1 POP DE 6147 : CDF95F CALL 5FF9 614A : DC6E30 CALL C,306E 614D : 7E LD A,(HL) 614E : FEFF CP FF 6150 : CC5C30 CALL Z,305C 6153 : 110500 LD DE,0005 6156 : 19 ADD HL,DE 6157 : 7E LD A,(HL) 6158 : 5F LD E,A 6159 : AF XOR A 615A : 57 LD D,A 615B : C9 RET 615C : DD218661 LD IX,6186 6160 : 1804 JR 6166 6162 : DD218D69 LD IX,698D 6166 : 3A5A70 LD A,(705A) 6169 : 5F LD E,A 616A : 7E LD A,(HL) 616B : 23 INC HL 616C : B7 OR A 616D : C8 RET Z 616E : FE0D CP 0D 6170 : 2807 JR Z,6179 6172 : E5 PUSH HL 6173 : 217E61 LD HL,617E 6176 : E3 EX (SP),HL 6177 : DDE9 JP (IX) 6179 : CD9917 CALL 1799 617C : 05 DEC B 617D : C9 RET 617E : CD8417 CALL 1784 6181 : 05 DEC B 6182 : 20E6 JR NZ,616A 6184 : 7A LD A,D 6185 : C9 RET 6186 : FE20 CP 20 6188 : 3008 JR NC,6192 618A : 4F LD C,A 618B : 3A9470 LD A,(7094) 618E : CB4F BIT 1,A 6190 : 79 LD A,C 6191 : C0 RET NZ 6192 : C39917 JP 1799 6195 : CD6261 CALL 6162 6198 : B7 OR A 6199 : C9 RET 619A : CD5C61 CALL 615C 619D : B7 OR A 619E : C9 RET 619F : CD6310 CALL 1063 61A2 : B7 OR A 61A3 : C9 RET 61A4 : CD0665 CALL 6506 61A7 : B7 OR A 61A8 : C9 RET 61A9 : 21D261 LD HL,61D2 61AC : 220E70 LD (700E),HL 61AF : 213967 LD HL,6739 61B2 : 22EA72 LD (72EA),HL 61B5 : 3EFF LD A,0FF 61B7 : 322072 LD (7220),A 61BA : 215763 LD HL,6357 61BD : 221E72 LD (721E),HL 61C0 : CDC361 CALL 61C3 61C3 : AF XOR A 61C4 : 67 LD H,A 61C5 : 6F LD L,A 61C6 : 22B070 LD (70B0),HL 61C9 : 22B270 LD (70B2),HL 61CC : CD2662 CALL 6226 61CF : C3310E JP 0E31 ;tabulka CTRL klaves 61D2 : DW 6524,6524,13D5,12BF,130A,12B3,12F9,1176,0FAB 61E4 : DW 1158,10F0,13B6,1393,10ED,13DA,0F19,0F1E,6212 61F6 : DW 6217,621C,6221,0C5C,0E2E,10ED,13BB,0C62,0E31 6208 : DW 6524,10FC,10FF,10F9,10F6 6212 : CD440C CALL 0C44 6215 : 180F JR 6226 6217 : CD1F0B CALL 0B1F 621A : 180A JR 6226 621C : CDD80D CALL 0DD8 621F : 1805 JR 6226 6221 : CD040D CALL 0D04 6224 : 1800 JR 6226 6226 : 060E LD B,0E 6228 : CD830C CALL 0C83 622B : AF XOR A 622C : 67 LD H,A 622D : 6F LD L,A 622E : 22B270 LD (70B2),HL 6231 : 22B070 LD (70B0),HL 6234 : FE08 CP 08 6236 : D46E30 CALL NC,306E 6239 : 21AF70 LD HL,70AF 623C : 5F LD E,A 623D : 7E LD A,(HL) 623E : E6F8 AND F8 6240 : B3 OR E 6241 : F3 DI 6242 : 77 LD (HL),A 6243 : CF RST 08 6244 : EB EX DE,HL 6245 : 2600 LD H,00 6247 : E620 AND 20 6249 : 2810 JR Z,625B 624B : 29 ADD HL,HL 624C : 29 ADD HL,HL 624D : 016762 LD BC,6267 6250 : 09 ADD HL,BC 6251 : 11B470 LD DE,70B4 6254 : 010400 LD BC,0004 6257 : EDB0 LDIR 6259 : FB EI 625A : C9 RET 625B : 218C62 LD HL,628C 625E : 22B470 LD (70B4),HL 6261 : 22B670 LD (70B6),HL 6264 : B7 OR A 6265 : FB EI 6266 : C9 RET 6267 : DW 636C,64AA,6367,64A7,636A,64A4,6369,649D 6277 : DW 64A7,64A7,64A4,64A4,64A1,64A1,649D,649D 6287 : CF RST 08 6288 : E620 AND 20 628A : 2003 JR NZ,628F 628C : CD7C30 CALL 307C 628F : CD2662 CALL 6226 6292 : CDB613 CALL 13B6 6295 : 0EFF LD C,0FF 6297 : C5 PUSH BC 6298 : ED5BA670 LD DE,(70A6) 629C : 79 LD A,C 629D : CDD762 CALL 62D7 62A0 : AF XOR A 62A1 : 010800 LD BC,0008 62A4 : C5 PUSH BC 62A5 : E5 PUSH HL 62A6 : CD010E CALL 0E01 62A9 : E1 POP HL 62AA : CBEC SET 5,H 62AC : C1 POP BC 62AD : CD010E CALL 0E01 62B0 : C1 POP BC 62B1 : 2AA870 LD HL,(70A8) 62B4 : 79 LD A,C 62B5 : D7 RST 10 62B6 : 0D DEC C 62B7 : C5 PUSH BC 62B8 : CDFC10 CALL 10FC 62BB : ED5BA670 LD DE,(70A6) 62BF : 2AA070 LD HL,(70A0) 62C2 : 19 ADD HL,DE 62C3 : 7A LD A,D 62C4 : B3 OR E 62C5 : C1 POP BC 62C6 : C8 RET Z 62C7 : 7D LD A,L 62C8 : E607 AND 07 62CA : 20CB JR NZ,6297 62CC : B2 OR D 62CD : 20C8 JR NZ,6297 62CF : 18C4 JR 6295 62D1 : D5 PUSH DE 62D2 : CDB114 CALL 14B1 62D5 : D1 POP DE 62D6 : D8 RET C 62D7 : 6F LD L,A 62D8 : 3AA070 LD A,(70A0) 62DB : 83 ADD A,E 62DC : E6F8 AND F8 62DE : 0F RRCA 62DF : 0F RRCA 62E0 : 0F RRCA 62E1 : 67 LD H,A 62E2 : 29 ADD HL,HL 62E3 : 29 ADD HL,HL 62E4 : 29 ADD HL,HL 62E5 : C9 RET 62E6 : 7C LD A,H 62E7 : B2 OR D 62E8 : 37 SCF 62E9 : C0 RET NZ 62EA : 55 LD D,L 62EB : 7A LD A,D 62EC : E607 AND 07 62EE : 47 LD B,A 62EF : 7B LD A,E 62F0 : E607 AND 07 62F2 : 4F LD C,A 62F3 : C5 PUSH BC 62F4 : CB3A SRL D 62F6 : CB3A SRL D 62F8 : CB3A SRL D 62FA : CB3B SRL E 62FC : CB3B SRL E 62FE : CB3B SRL E 6300 : CDD162 CALL 62D1 6303 : C1 POP BC 6304 : D8 RET C 6305 : 50 LD D,B 6306 : 0600 LD B,00 6308 : 09 ADD HL,BC 6309 : C9 RET 630A : 3A9470 LD A,(7094) 630D : ED53B070 LD (70B0),DE 6311 : 22B270 LD (70B2),HL 6314 : E620 AND 20 6316 : CC7C30 CALL Z,307C 6319 : 015763 LD BC,6357 631C : ED431E72 LD (721E),BC 6320 : 3EFF LD A,0FF 6322 : 322072 LD (7220),A 6325 : CDE662 CALL 62E6 6328 : 3F CCF 6329 : D0 RET NC 632A : DF RST 18 632B : 47 LD B,A 632C : CBEC SET 5,H 632E : DF RST 18 632F : 4F LD C,A 6330 : E5 PUSH HL 6331 : 5A LD E,D 6332 : 1600 LD D,00 6334 : 2A1E72 LD HL,(721E) 6337 : 19 ADD HL,DE 6338 : 3A2072 LD A,(7220) 633B : A6 AND A,(HL) 633C : 5F LD E,A 633D : 3A9F70 LD A,(709F) 6340 : E6F0 AND F0 6342 : 57 LD D,A 6343 : 0F RRCA 6344 : 0F RRCA 6345 : 0F RRCA 6346 : 0F RRCA 6347 : B2 OR D 6348 : 57 LD D,A 6349 : 2AB470 LD HL,(70B4) 634C : CDFE05 CALL 05FE 634F : E1 POP HL 6350 : D8 RET C 6351 : D7 RST 10 6352 : CBAC RES 5,H 6354 : 78 LD A,B 6355 : D7 RST 10 6356 : C9 RET 6357 : DB 80,40,20,10,08,04,02,01,FF,7F,3F,1F,0F,07,03,01 6367 : B0 OR B 6368 : DB 21 ;LD HL,A02F 6369 : 2F CPL 636A : A0 AND A,B 636B : 57 LD D,A 636C : 210FF0 LD HL,F00F 636F : 0C INC C 6370 : 280D JR Z,637F 6372 : 0D DEC C 6373 : 2810 JR Z,6385 6375 : 78 LD A,B 6376 : 0F RRCA 6377 : 0F RRCA 6378 : 0F RRCA 6379 : 0F RRCA 637A : A8 XOR B 637B : 2808 JR Z,6385 637D : 1810 JR 638F 637F : 78 LD A,B 6380 : 0F RRCA 6381 : 0F RRCA 6382 : 0F RRCA 6383 : 0F RRCA 6384 : 47 LD B,A 6385 : 4B LD C,E 6386 : 7A LD A,D 6387 : A4 AND A,H 6388 : 57 LD D,A 6389 : 78 LD A,B 638A : A5 AND A,L 638B : B2 OR D 638C : 47 LD B,A 638D : 79 LD A,C 638E : C9 RET 638F : 79 LD A,C 6390 : A3 AND A,E 6391 : 2805 JR Z,6398 6393 : AB XOR E 6394 : 2011 JR NZ,63A7 6396 : 1803 JR 639B 6398 : 7C LD A,H 6399 : 65 LD H,L 639A : 6F LD L,A 639B : 78 LD A,B 639C : 0F RRCA 639D : 0F RRCA 639E : 0F RRCA 639F : 0F RRCA 63A0 : AA XOR D 63A1 : A4 AND A,H 63A2 : 20E2 JR NZ,6386 63A4 : 79 LD A,C 63A5 : AB XOR E 63A6 : C9 RET 63A7 : 7A LD A,D 63A8 : 0F RRCA 63A9 : 0F RRCA 63AA : 0F RRCA 63AB : 0F RRCA 63AC : AA XOR D 63AD : 200E JR NZ,63BD 63AF : 7B LD A,E 63B0 : 2F CPL 63B1 : A1 AND A,C 63B2 : 28D1 JR Z,6385 63B4 : B3 OR E 63B5 : 3C INC A 63B6 : 28C7 JR Z,637F 63B8 : 7B LD A,E 63B9 : B1 OR C 63BA : 4F LD C,A 63BB : 18DE JR 639B 63BD : 42 LD B,D 63BE : 79 LD A,C 63BF : C9 RET 63C0 : D9 EXX 63C1 : 2AB270 LD HL,(70B2) 63C4 : ED5BB070 LD DE,(70B0) 63C8 : D9 EXX 63C9 : CDD763 CALL 63D7 63CC : D8 RET C 63CD : F3 DI 63CE : 22B270 LD (70B2),HL 63D1 : ED53B070 LD (70B0),DE 63D5 : FB EI 63D6 : C9 RET 63D7 : 3A9470 LD A,(7094) 63DA : 1F RRA 63DB : 1F RRA 63DC : D9 EXX 63DD : EB EX DE,HL 63DE : E5 PUSH HL 63DF : D5 PUSH DE 63E0 : D9 EXX 63E1 : C1 POP BC 63E2 : B7 OR A 63E3 : ED42 SBC HL,BC 63E5 : C1 POP BC 63E6 : 37 SCF 63E7 : E8 RET PE 63E8 : F2EF63 JP P,63EF 63EB : CD2E2E CALL 2E2E 63EE : B7 OR A 63EF : 1F RRA 63F0 : EB EX DE,HL 63F1 : ED42 SBC HL,BC 63F3 : 37 SCF 63F4 : E8 RET PE 63F5 : F2FC63 JP P,63FC 63F8 : CD2E2E CALL 2E2E 63FB : B7 OR A 63FC : 1F RRA 63FD : E5 PUSH HL 63FE : ED52 SBC HL,DE 6400 : E1 POP HL 6401 : 380D JR C,6410 6403 : EB EX DE,HL 6404 : 4F LD C,A 6405 : 87 ADD A,A 6406 : 87 ADD A,A 6407 : CB21 SLA C 6409 : 1F RRA 640A : CB21 SLA C 640C : 1F RRA 640D : D9 EXX 640E : EB EX DE,HL 640F : D9 EXX 6410 : 1F RRA 6411 : 010000 LD BC,0000 6414 : D5 PUSH DE 6415 : D9 EXX 6416 : C1 POP BC 6417 : 03 INC BC 6418 : C5 PUSH BC 6419 : D5 PUSH DE 641A : E5 PUSH HL 641B : CB7F BIT 7,A 641D : 2801 JR Z,6420 641F : EB EX DE,HL 6420 : 47 LD B,A 6421 : 08 EX AF,AF' 6422 : CD1963 CALL 6319 6425 : E1 POP HL 6426 : D1 POP DE 6427 : C1 POP BC 6428 : D8 RET C 6429 : 0B DEC BC 642A : 78 LD A,B 642B : B1 OR C 642C : 283D JR Z,646B 642E : 13 INC DE 642F : 08 EX AF,AF' 6430 : CB6F BIT 5,A 6432 : 2002 JR NZ,6436 6434 : 1B DEC DE 6435 : 1B DEC DE 6436 : D9 EXX 6437 : E5 PUSH HL 6438 : B7 OR A 6439 : ED4A ADC HL,BC 643B : E24164 JP PO,6441 643E : E1 POP HL 643F : 37 SCF 6440 : C9 RET 6441 : 44 LD B,H 6442 : 4D LD C,L 6443 : FA6764 JP M,6467 6446 : B7 OR A 6447 : ED6A ADC HL,HL 6449 : EA3E64 JP PE,643E 644C : ED52 SBC HL,DE 644E : 3817 JR C,6467 6450 : 2004 JR NZ,6456 6452 : CB6F BIT 5,A 6454 : 2811 JR Z,6467 6456 : 60 LD H,B 6457 : 69 LD L,C 6458 : ED52 SBC HL,DE 645A : 44 LD B,H 645B : 4D LD C,L 645C : E1 POP HL 645D : D9 EXX 645E : 23 INC HL 645F : CB77 BIT 6,A 6461 : 20B5 JR NZ,6418 6463 : 2B DEC HL 6464 : 2B DEC HL 6465 : 18B1 JR 6418 6467 : E1 POP HL 6468 : D9 EXX 6469 : 18AD JR 6418 646B : 08 EX AF,AF' 646C : B7 OR A 646D : CB7F BIT 7,A 646F : C8 RET Z 6470 : EB EX DE,HL 6471 : C9 RET 6472 : 3A9470 LD A,(7094) 6475 : CB6F BIT 5,A 6477 : CC7C30 CALL Z,307C 647A : CDE662 CALL 62E6 647D : D8 RET C 647E : DF RST 18 647F : 47 LD B,A 6480 : CBEC SET 5,H 6482 : DF RST 18 6483 : 4F LD C,A 6484 : B7 OR A 6485 : C9 RET 6486 : C5 PUSH BC 6487 : CD7264 CALL 6472 648A : D1 POP DE 648B : D8 RET C 648C : 7A LD A,D 648D : E5 PUSH HL 648E : 2AB670 LD HL,(70B6) 6491 : 57 LD D,A 6492 : CDFE05 CALL 05FE 6495 : E1 POP HL 6496 : D8 RET C 6497 : D7 RST 10 6498 : CBAC RES 5,H 649A : 78 LD A,B 649B : D7 RST 10 649C : C9 RET 649D : 7B LD A,E 649E : 2F CPL 649F : A1 AND A,C 64A0 : 217BA9 LD HL,A97B 64A3 : 217BA1 LD HL,A17B 64A6 : 217BB1 LD HL,B17B 64A9 : 217BB7 LD HL,B77B 64AC : 212172 LD HL,7221 64AF : CB46 BIT 0,(HL) 64B1 : C0 RET NZ 64B2 : 4F LD C,A 64B3 : 7A LD A,D 64B4 : E6F0 AND F0 64B6 : 57 LD D,A 64B7 : 78 LD A,B 64B8 : E60F AND 0F 64BA : B2 OR D 64BB : 47 LD B,A 64BC : 79 LD A,C 64BD : C9 RET 64BE : D5 PUSH DE 64BF : F5 PUSH AF 64C0 : CDD162 CALL 62D1 64C3 : F1 POP AF 64C4 : EB EX DE,HL 64C5 : 6F LD L,A 64C6 : 2600 LD H,00 64C8 : 29 ADD HL,HL 64C9 : 29 ADD HL,HL 64CA : 29 ADD HL,HL 64CB : ED4B9D70 LD BC,(709D) 64CF : 09 ADD HL,BC 64D0 : EB EX DE,HL 64D1 : 0608 LD B,08 64D3 : C5 PUSH BC 64D4 : EB EX DE,HL 64D5 : DF RST 18 64D6 : EB EX DE,HL 64D7 : 13 INC DE 64D8 : D5 PUSH DE 64D9 : 5F LD E,A 64DA : 3A9F70 LD A,(709F) 64DD : F5 PUSH AF 64DE : CD7E64 CALL 647E 64E1 : F1 POP AF 64E2 : CD8D64 CALL 648D 64E5 : 23 INC HL 64E6 : D1 POP DE 64E7 : C1 POP BC 64E8 : 10E9 DJNZ 64D3 64EA : D1 POP DE 64EB : C31611 JP 1116 64EE : ED5BA670 LD DE,(70A6) 64F2 : FE20 CP 20 64F4 : 3008 JR NC,64FE 64F6 : 219470 LD HL,7094 64F9 : CB4E BIT 1,(HL) 64FB : CA7310 JP Z,1073 64FE : CDBE64 CALL 64BE 6501 : ED53A670 LD (70A6),DE 6505 : C9 RET 6506 : 0E00 LD C,00 6508 : 7E LD A,(HL) 6509 : B7 OR A 650A : C8 RET Z 650B : 23 INC HL 650C : 0C INC C 650D : 05 DEC B 650E : FE0D CP 0D 6510 : 280D JR Z,651F 6512 : E5 PUSH HL 6513 : C5 PUSH BC 6514 : F5 PUSH AF 6515 : CDEE64 CALL 64EE 6518 : F1 POP AF 6519 : C1 POP BC 651A : E1 POP HL 651B : 04 INC B 651C : 10EA DJNZ 6508 651E : C9 RET 651F : C5 PUSH BC 6520 : CD8310 CALL 1083 6523 : C1 POP BC 6524 : C9 RET 6525 : 3A9470 LD A,(7094) 6528 : CB6F BIT 5,A 652A : CC7C30 CALL Z,307C 652D : CDE662 CALL 62E6 6530 : 3EFF LD A,0FF 6532 : D8 RET C 6533 : 5A LD E,D 6534 : DF RST 18 6535 : CBEC SET 5,H 6537 : 47 LD B,A 6538 : DF RST 18 6539 : 1600 LD D,00 653B : 215763 LD HL,6357 653E : 19 ADD HL,DE 653F : 4F LD C,A 6540 : A6 AND A,(HL) 6541 : 78 LD A,B 6542 : 160F LD D,0F 6544 : 2807 JR Z,654D 6546 : 37 SCF 6547 : 1F RRA 6548 : 1F RRA 6549 : 1F RRA 654A : 1F RRA 654B : 161F LD D,1F 654D : A2 AND A,D 654E : C9 RET 654F : F3 DI 6550 : 2A2672 LD HL,(7226) 6553 : 22B070 LD (70B0),HL 6556 : 2A2872 LD HL,(7228) 6559 : 22B270 LD (70B2),HL 655C : FB EI 655D : C9 RET 655E : E5 PUSH HL 655F : F3 DI 6560 : 2AB070 LD HL,(70B0) 6563 : 222672 LD (7226),HL 6566 : 2AB270 LD HL,(70B2) 6569 : 222872 LD (7228),HL 656C : FB EI 656D : E1 POP HL 656E : C9 RET 656F : CD5E65 CALL 655E 6572 : 3AA270 LD A,(70A2) 6575 : 87 ADD A,A 6576 : 87 ADD A,A 6577 : 87 ADD A,A 6578 : 3D DEC A 6579 : 321974 LD (7419),A 657C : ED731774 LD (7417),SP 6580 : AF XOR A 6581 : 321474 LD (7414),A 6584 : 321374 LD (7413),A 6587 : E5 PUSH HL 6588 : CDDE66 CALL 66DE 658B : 221174 LD (7411),HL 658E : 220D74 LD (740D),HL 6591 : E1 POP HL 6592 : D8 RET C 6593 : CDAF66 CALL 66AF 6596 : CD5266 CALL 6652 6599 : CD4066 CALL 6640 659C : 3003 JR NC,65A1 659E : CD8866 CALL 6688 65A1 : 2A0F74 LD HL,(740F) 65A4 : 221574 LD (7415),HL 65A7 : 2A0D74 LD HL,(740D) 65AA : E5 PUSH HL 65AB : CDDE66 CALL 66DE 65AE : 301D JR NC,65CD 65B0 : 23 INC HL 65B1 : 221174 LD (7411),HL 65B4 : C1 POP BC 65B5 : 2A1574 LD HL,(7415) 65B8 : B7 OR A 65B9 : ED42 SBC HL,BC 65BB : 38E1 JR C,659E 65BD : CD0167 CALL 6701 65C0 : 3805 JR C,65C7 65C2 : 220D74 LD (740D),HL 65C5 : 183C JR 6603 65C7 : 2B DEC HL 65C8 : CDCF66 CALL 66CF 65CB : 18D1 JR 659E 65CD : 221174 LD (7411),HL 65D0 : 220D74 LD (740D),HL 65D3 : 44 LD B,H 65D4 : 4D LD C,L 65D5 : E1 POP HL 65D6 : D5 PUSH DE 65D7 : E5 PUSH HL 65D8 : 03 INC BC 65D9 : 37 SCF 65DA : ED42 SBC HL,BC 65DC : 44 LD B,H 65DD : 4D LD C,L 65DE : 03 INC BC 65DF : 3818 JR C,65F9 65E1 : 3A1474 LD A,(7414) 65E4 : 2F CPL 65E5 : CD4366 CALL 6643 65E8 : 2A0D74 LD HL,(740D) 65EB : CD0667 CALL 6706 65EE : 3009 JR NC,65F9 65F0 : D9 EXX 65F1 : 2A0D74 LD HL,(740D) 65F4 : D9 EXX 65F5 : CDD566 CALL 66D5 65F8 : 37 SCF 65F9 : E1 POP HL 65FA : D1 POP DE 65FB : 3806 JR C,6603 65FD : CD8066 CALL 6680 6600 : CD5266 CALL 6652 6603 : CDAF66 CALL 66AF 6606 : 44 LD B,H 6607 : 4D LD C,L 6608 : 2A1574 LD HL,(7415) 660B : 03 INC BC 660C : 37 SCF 660D : ED42 SBC HL,BC 660F : 380E JR C,661F 6611 : 23 INC HL 6612 : CD0167 CALL 6701 6615 : 381A JR C,6631 6617 : CD5266 CALL 6652 661A : CD8066 CALL 6680 661D : 18A3 JR 65C2 661F : 010300 LD BC,0003 6622 : 09 ADD HL,BC 6623 : 3815 JR C,663A 6625 : CD5266 CALL 6652 6628 : 2A1574 LD HL,(7415) 662B : 23 INC HL 662C : 220D74 LD (740D),HL 662F : 180C JR 663D 6631 : D9 EXX 6632 : 2A0F74 LD HL,(740F) 6635 : D9 EXX 6636 : 2B DEC HL 6637 : CDD566 CALL 66D5 663A : 2A0D74 LD HL,(740D) 663D : C39965 JP 6599 6640 : 3A1474 LD A,(7414) 6643 : B7 OR A 6644 : 2006 JR NZ,664C 6646 : 3A1974 LD A,(7419) 6649 : 13 INC DE 664A : BB CP E 664B : C9 RET 664C : 7A LD A,D 664D : B3 OR E 664E : 1B DEC DE 664F : C0 RET NZ 6650 : 37 SCF 6651 : C9 RET 6652 : DDE1 POP IX 6654 : D5 PUSH DE 6655 : D9 EXX 6656 : 2A0D74 LD HL,(740D) 6659 : ED5B0F74 LD DE,(740F) 665D : 63 LD H,E 665E : D1 POP DE 665F : CD4066 CALL 6640 6662 : 3819 JR C,667D 6664 : E5 PUSH HL 6665 : 2A7272 LD HL,(7272) 6668 : 015400 LD BC,0054 666B : 09 ADD HL,BC 666C : ED72 SBC HL,SP 666E : E1 POP HL 666F : 300C JR NC,667D 6671 : E5 PUSH HL 6672 : 211374 LD HL,7413 6675 : 34 INC (HL) 6676 : E1 POP HL 6677 : 3A1474 LD A,(7414) 667A : 57 LD D,A 667B : E5 PUSH HL 667C : D5 PUSH DE 667D : D9 EXX 667E : DDE5 PUSH IX 6680 : 3A1474 LD A,(7414) 6683 : 2F CPL 6684 : 321474 LD (7414),A 6687 : C9 RET 6688 : 211374 LD HL,7413 668B : 7E LD A,(HL) 668C : B7 OR A 668D : 2818 JR Z,66A7 668F : 35 DEC (HL) 6690 : DDE1 POP IX 6692 : E1 POP HL 6693 : 7C LD A,H 6694 : 2600 LD H,00 6696 : 54 LD D,H 6697 : E3 EX (SP),HL 6698 : 5C LD E,H 6699 : 62 LD H,D 669A : 220D74 LD (740D),HL 669D : ED530F74 LD (740F),DE 66A1 : 321474 LD (7414),A 66A4 : D1 POP DE 66A5 : DDE9 JP (IX) 66A7 : ED7B1774 LD SP,(7417) 66AB : C34F65 JP 654F 66AE : D1 POP DE 66AF : D5 PUSH DE 66B0 : CD1767 CALL 6717 66B3 : 23 INC HL 66B4 : 3012 JR NC,66C8 66B6 : 3A9470 LD A,(7094) 66B9 : CB6F BIT 5,A 66BB : 28F1 JR Z,66AE 66BD : 1C INC E 66BE : CB5B BIT 3,E 66C0 : 20EC JR NZ,66AE 66C2 : CD2067 CALL 6720 66C5 : 23 INC HL 66C6 : 38F5 JR C,66BD 66C8 : 2B DEC HL 66C9 : 2B DEC HL 66CA : D1 POP DE 66CB : 220F74 LD (740F),HL 66CE : 23 INC HL 66CF : D9 EXX 66D0 : 2A1174 LD HL,(7411) 66D3 : 2B DEC HL 66D4 : D9 EXX 66D5 : D5 PUSH DE 66D6 : CD5B67 CALL 675B 66D9 : D1 POP DE 66DA : 2A0F74 LD HL,(740F) 66DD : C9 RET 66DE : D5 PUSH DE 66DF : CD1767 CALL 6717 66E2 : D1 POP DE 66E3 : 3F CCF 66E4 : D8 RET C 66E5 : D5 PUSH DE 66E6 : 2B DEC HL 66E7 : CD1767 CALL 6717 66EA : 3012 JR NC,66FE 66EC : 3A9470 LD A,(7094) 66EF : CB6F BIT 5,A 66F1 : 28EF JR Z,66E2 66F3 : 1C INC E 66F4 : 1D DEC E 66F5 : 28EB JR Z,66E2 66F7 : 2B DEC HL 66F8 : 1D DEC E 66F9 : CD2067 CALL 6720 66FC : 38F5 JR C,66F3 66FE : 23 INC HL 66FF : D1 POP DE 6700 : C9 RET 6701 : 23 INC HL 6702 : C5 PUSH BC 6703 : 44 LD B,H 6704 : 4D LD C,L 6705 : E1 POP HL 6706 : D5 PUSH DE 6707 : C5 PUSH BC 6708 : CD1767 CALL 6717 670B : C1 POP BC 670C : D1 POP DE 670D : 3F CCF 670E : D0 RET NC 670F : 23 INC HL 6710 : 0B DEC BC 6711 : 78 LD A,B 6712 : B1 OR C 6713 : 20F1 JR NZ,6706 6715 : 37 SCF 6716 : C9 RET 6717 : E5 PUSH HL 6718 : CD2565 CALL 6525 671B : 3F CCF 671C : 3019 JR NC,6737 671E : 1805 JR 6725 6720 : E5 PUSH HL 6721 : 79 LD A,C 6722 : CD3965 CALL 6539 6725 : C5 PUSH BC 6726 : D5 PUSH DE 6727 : E60F AND 0F 6729 : CD4C67 CALL 674C 672C : 111E74 LD DE,741E 672F : 2AEA72 LD HL,(72EA) 6732 : DCFE05 CALL C,05FE 6735 : D1 POP DE 6736 : C1 POP BC 6737 : E1 POP HL 6738 : C9 RET 6739 : EB EX DE,HL 673A : 34 INC (HL) 673B : 35 DEC (HL) 673C : 2004 JR NZ,6742 673E : B7 OR A 673F : C0 RET NZ 6740 : 37 SCF 6741 : C9 RET 6742 : B7 OR A 6743 : 4E LD C,(HL) 6744 : 0600 LD B,00 6746 : 23 INC HL 6747 : EDB1 CPIR 6749 : C8 RET Z 674A : 37 SCF 674B : C9 RET 674C : 47 LD B,A 674D : 3A9F70 LD A,(709F) 6750 : 1F RRA 6751 : 1F RRA 6752 : 1F RRA 6753 : 1F RRA 6754 : A8 XOR B 6755 : E60F AND 0F 6757 : 78 LD A,B 6758 : C8 RET Z 6759 : 37 SCF 675A : C9 RET 675B : 015F63 LD BC,635F 675E : ED431E72 LD (721E),BC 6762 : AF XOR A 6763 : 3D DEC A 6764 : 322072 LD (7220),A 6767 : E5 PUSH HL 6768 : D9 EXX 6769 : D1 POP DE 676A : E5 PUSH HL 676B : 010700 LD BC,0007 676E : 09 ADD HL,BC 676F : B7 OR A 6770 : ED52 SBC HL,DE 6772 : F28967 JP P,6789 6775 : D9 EXX 6776 : E1 POP HL 6777 : E5 PUSH HL 6778 : D5 PUSH DE 6779 : CD2563 CALL 6325 677C : D1 POP DE 677D : D9 EXX 677E : E1 POP HL 677F : 010800 LD BC,0008 6782 : 09 ADD HL,BC 6783 : 7D LD A,L 6784 : E6F8 AND F8 6786 : 6F LD L,A 6787 : 18E1 JR 676A 6789 : 7B LD A,E 678A : A1 AND A,C 678B : 85 ADD A,L 678C : B9 CP C 678D : 38E6 JR C,6775 678F : 7B LD A,E 6790 : A1 AND A,C 6791 : 4F LD C,A 6792 : 215F63 LD HL,635F 6795 : 09 ADD HL,BC 6796 : 7E LD A,(HL) 6797 : 2F CPL 6798 : 37 SCF 6799 : 1F RRA 679A : 322072 LD (7220),A 679D : D9 EXX 679E : E1 POP HL 679F : C32563 JP 6325 67A2 : 210350 LD HL,5003 67A5 : 225A70 LD (705A),HL 67A8 : AF XOR A 67A9 : 322272 LD (7222),A 67AC : 21B867 LD HL,67B8 67AF : 11EC72 LD DE,72EC 67B2 : 011A00 LD BC,001A 67B5 : EDB0 LDIR 67B7 : C9 RET ;inicializacni tabulka systemovych promennych PRT a PRI 67B8 : DB 00 67B9 : DW 68C3,6879,6944,67C1 67C1 : DB 03,1B,'A',0C,00 67C6 : DW 67C8 67C8 : DB 03,1B,'A',08,00 67CD : DW 67CF 67CF : DB 02,1B,'K' 67D2 : FE02 CP 02 67D4 : 3F CCF 67D5 : D8 RET C 67D6 : 32EC72 LD (72EC),A 67D9 : 214469 LD HL,6944 67DC : 22F172 LD (72F1),HL 67DF : B7 OR A 67E0 : C8 RET Z 67E1 : 215C69 LD HL,695C 67E4 : 22F172 LD (72F1),HL 67E7 : C9 RET 67E8 : CDD267 CALL 67D2 67EB : D8 RET C 67EC : CDAD68 CALL 68AD 67EF : 110000 LD DE,0000 67F2 : ED4BA270 LD BC,(70A2) 67F6 : 79 LD A,C 67F7 : 83 ADD A,E 67F8 : 3D DEC A 67F9 : 5F LD E,A 67FA : C5 PUSH BC 67FB : 69 LD L,C 67FC : 2600 LD H,00 67FE : 29 ADD HL,HL 67FF : 29 ADD HL,HL 6800 : 29 ADD HL,HL 6801 : 3AEC72 LD A,(72EC) 6804 : B7 OR A 6805 : 2801 JR Z,6808 6807 : 29 ADD HL,HL 6808 : 23 INC HL 6809 : 23 INC HL 680A : 224E74 LD (744E),HL 680D : 3E01 LD A,01 680F : CD5A68 CALL 685A 6812 : C1 POP BC 6813 : 3E40 LD A,40 6815 : 05 DEC B 6816 : 2002 JR NZ,681A 6818 : CBFF SET 7,A 681A : 324D74 LD (744D),A 681D : 04 INC B 681E : C5 PUSH BC 681F : ED4B4E74 LD BC,(744E) 6823 : CD7568 CALL 6875 6826 : CDBB68 CALL 68BB 6829 : C1 POP BC 682A : C5 PUSH BC 682B : D5 PUSH DE 682C : D5 PUSH DE 682D : C5 PUSH BC 682E : CDDA68 CALL 68DA 6831 : 214D74 LD HL,744D 6834 : CBB6 RES 6,(HL) 6836 : C1 POP BC 6837 : D1 POP DE 6838 : 1D DEC E 6839 : 0D DEC C 683A : 20F0 JR NZ,682C 683C : CDBB68 CALL 68BB 683F : CD7068 CALL 6870 6842 : CBF6 SET 6,(HL) 6844 : D1 POP DE 6845 : C1 POP BC 6846 : CB46 BIT 0,(HL) 6848 : CBC6 SET 0,(HL) 684A : 28D2 JR Z,681E 684C : 14 INC D 684D : 10C4 DJNZ 6813 684F : CDA868 CALL 68A8 6852 : 3AEC72 LD A,(72EC) 6855 : FE02 CP 02 6857 : D0 RET NC 6858 : 3E80 LD A,80 685A : ED4B4E74 LD BC,(744E) 685E : F5 PUSH AF 685F : CD7568 CALL 6875 6862 : F1 POP AF 6863 : CDBD68 CALL 68BD 6866 : 0D DEC C 6867 : 20FA JR NZ,6863 6869 : 04 INC B 686A : 05 DEC B 686B : 2803 JR Z,6870 686D : 05 DEC B 686E : 18F3 JR 6863 6870 : 3E0D LD A,0D 6872 : C39917 JP 1799 6875 : 2AEF72 LD HL,(72EF) 6878 : E9 JP (HL) 6879 : C5 PUSH BC 687A : 2A0173 LD HL,(7301) 687D : CDB068 CALL 68B0 6880 : 3A2272 LD A,(7222) 6883 : CB47 BIT 0,A 6885 : 2803 JR Z,688A 6887 : 78 LD A,B 6888 : 41 LD B,C 6889 : 4F LD C,A 688A : 79 LD A,C 688B : CD9068 CALL 6890 688E : 78 LD A,B 688F : C1 POP BC 6890 : F5 PUSH AF 6891 : DB50 IN A,(50) 6893 : CB4F BIT 1,A 6895 : 28FA JR Z,6891 6897 : F1 POP AF 6898 : F5 PUSH AF 6899 : D340 OUT (40),A 689B : 3E01 LD A,01 689D : D350 OUT (50),A 689F : 3E0B LD A,0B 68A1 : 3D DEC A 68A2 : 20FD JR NZ,68A1 68A4 : D350 OUT (50),A 68A6 : F1 POP AF 68A7 : C9 RET 68A8 : 2AF372 LD HL,(72F3) 68AB : 1803 JR 68B0 68AD : 2AFA72 LD HL,(72FA) 68B0 : C5 PUSH BC 68B1 : 46 LD B,(HL) 68B2 : 23 INC HL 68B3 : 7E LD A,(HL) 68B4 : CD9068 CALL 6890 68B7 : 10F9 DJNZ 68B2 68B9 : C1 POP BC 68BA : C9 RET 68BB : 3EFF LD A,0FF 68BD : E5 PUSH HL 68BE : 2AED72 LD HL,(72ED) 68C1 : E3 EX (SP),HL 68C2 : C9 RET 68C3 : C5 PUSH BC 68C4 : 4F LD C,A 68C5 : 3A2272 LD A,(7222) 68C8 : CB4F BIT 1,A 68CA : 79 LD A,C 68CB : 2807 JR Z,68D4 68CD : 0608 LD B,08 68CF : CB09 RRC C 68D1 : 17 RLA 68D2 : 10FB DJNZ 68CF 68D4 : CD9068 CALL 6890 68D7 : 79 LD A,C 68D8 : C1 POP BC 68D9 : C9 RET 68DA : 2AF172 LD HL,(72F1) 68DD : E9 JP (HL) 68DE : 0602 LD B,02 68E0 : C5 PUSH BC 68E1 : D5 PUSH DE 68E2 : E5 PUSH HL 68E3 : CDB114 CALL 14B1 68E6 : 3819 JR C,6901 68E8 : E1 POP HL 68E9 : D1 POP DE 68EA : D5 PUSH DE 68EB : 4F LD C,A 68EC : 3AA070 LD A,(70A0) 68EF : 83 ADD A,E 68F0 : 0F RRCA 68F1 : 0F RRCA 68F2 : 0F RRCA 68F3 : E603 AND 03 68F5 : 3C INC A 68F6 : 5F LD E,A 68F7 : CD0B69 CALL 690B 68FA : EB EX DE,HL 68FB : D1 POP DE 68FC : C1 POP BC 68FD : 14 INC D 68FE : 10E0 DJNZ 68E0 6900 : C9 RET 6901 : AF XOR A 6902 : E1 POP HL 6903 : 011000 LD BC,0010 6906 : CD6108 CALL 0861 6909 : 18EF JR 68FA 690B : 0601 LD B,01 690D : 3A9470 LD A,(7094) 6910 : E620 AND 20 6912 : 280E JR Z,6922 6914 : 7B LD A,E 6915 : C5 PUSH BC 6916 : F5 PUSH AF 6917 : CD750E CALL 0E75 691A : EB EX DE,HL 691B : F1 POP AF 691C : C603 ADD A,03 691E : C1 POP BC 691F : C3750E JP 0E75 6922 : 3C INC A 6923 : C5 PUSH BC 6924 : CD750E CALL 0E75 6927 : CF RST 08 6928 : 17 RLA 6929 : EB EX DE,HL 692A : C1 POP BC 692B : 3A9F70 LD A,(709F) 692E : 380E JR C,693E 6930 : 79 LD A,C 6931 : 0F RRCA 6932 : 0F RRCA 6933 : 0F RRCA 6934 : E61F AND 1F 6936 : F680 OR 80 6938 : 47 LD B,A 6939 : E5 PUSH HL 693A : CDD30E CALL 0ED3 693D : E1 POP HL 693E : 010800 LD BC,0008 6941 : C36108 JP 0861 6944 : 210D74 LD HL,740D 6947 : CDDE68 CALL 68DE 694A : 211474 LD HL,7414 694D : 0608 LD B,08 694F : 7E LD A,(HL) 6950 : 2B DEC HL 6951 : CDBD68 CALL 68BD 6954 : 10F9 DJNZ 694F 6956 : 214D74 LD HL,744D 6959 : CBC6 SET 0,(HL) 695B : C9 RET 695C : 210D74 LD HL,740D 695F : E5 PUSH HL 6960 : CDDE68 CALL 68DE 6963 : E1 POP HL 6964 : 0608 LD B,08 6966 : 3A4D74 LD A,(744D) 6969 : 4F LD C,A 696A : 7E LD A,(HL) 696B : CB41 BIT 0,C 696D : 2002 JR NZ,6971 696F : ED6F RLD 6971 : 1604 LD D,04 6973 : 1F RRA 6974 : CB1B RR E 6976 : CB2B SRA E 6978 : 15 DEC D 6979 : 20F8 JR NZ,6973 697B : 73 LD (HL),E 697C : 23 INC HL 697D : 10EB DJNZ 696A 697F : 2B DEC HL 6980 : 0608 LD B,08 6982 : 7E LD A,(HL) 6983 : CDBD68 CALL 68BD 6986 : CDBD68 CALL 68BD 6989 : 2B DEC HL 698A : 10F6 DJNZ 6982 698C : C9 RET 698D : E5 PUSH HL 698E : C5 PUSH BC 698F : F5 PUSH AF 6990 : 010800 LD BC,0008 6993 : CD7568 CALL 6875 6996 : F1 POP AF 6997 : 4F LD C,A 6998 : 212672 LD HL,7226 699B : 0601 LD B,01 699D : 1E00 LD E,00 699F : E5 PUSH HL 69A0 : CD0B69 CALL 690B 69A3 : E1 POP HL 69A4 : 0E08 LD C,08 69A6 : E5 PUSH HL 69A7 : 0608 LD B,08 69A9 : CB06 RLC (HL) 69AB : 17 RLA 69AC : 23 INC HL 69AD : 10FA DJNZ 69A9 69AF : CDBD68 CALL 68BD 69B2 : E1 POP HL 69B3 : 0D DEC C 69B4 : 20F0 JR NZ,69A6 69B6 : 215C70 LD HL,705C 69B9 : 34 INC (HL) 69BA : C1 POP BC 69BB : E1 POP HL 69BC : C9 RET 69BD : 5F LD E,A 69BE : 2A1A51 LD HL,(511A) 69C1 : ED52 SBC HL,DE 69C3 : 280A JR Z,69CF 69C5 : 2A1C51 LD HL,(511C) 69C8 : B7 OR A 69C9 : ED52 SBC HL,DE 69CB : 3E69 LD A,69 69CD : 37 SCF 69CE : C0 RET NZ 69CF : 3A2071 LD A,(7120) 69D2 : CB57 BIT 2,A 69D4 : 281F JR Z,69F5 69D6 : 300A JR NC,69E2 69D8 : CD996A CALL 6A99 69DB : 3E12 LD A,12 69DD : D8 RET C 69DE : 3E20 LD A,20 69E0 : 180E JR 69F0 69E2 : 3E40 LD A,40 69E4 : 32D173 LD (73D1),A 69E7 : CD106A CALL 6A10 69EA : D8 RET C 69EB : CDAB6A CALL 6AAB 69EE : 3E30 LD A,30 69F0 : CD7E17 CALL 177E 69F3 : 1815 JR 6A0A 69F5 : 300D JR NC,6A04 69F7 : F3 DI 69F8 : CD311A CALL 1A31 69FB : 212071 LD HL,7120 69FE : CDC315 CALL 15C3 6A01 : AF XOR A 6A02 : 1806 JR 6A0A 6A04 : CD106A CALL 6A10 6A07 : D8 RET C 6A08 : 3E10 LD A,10 6A0A : 218E70 LD HL,708E 6A0D : B6 OR (HL) 6A0E : 77 LD (HL),A 6A0F : C9 RET 6A10 : 212171 LD HL,7121 ;sem se nahraje hlavicka, 6A13 : 110D74 LD DE,740D ;ale ted je tu hledane jmeno, 6A16 : 010900 LD BC,0009 ;takze ho presuneme do bafru 6A19 : 34 INC (HL) ;je na prvnim znaku ve jmenu 6A1A : 35 DEC (HL) ;neco? 6A1B : 3E3F LD A,3F ;priprav '?' 6A1D : 2001 JR NZ,6A20 ;je, nejaky jmeno tedy je 6A1F : 77 LD (HL),A ;zadny text neni, proto bude 6A20 : EDB0 LDIR ;alespon '?' 6A22 : 12 LD (DE),A ;ukoncit znakem '?' 6A23 : 212071 LD HL,7120 ;kam nacist 6A26 : 110D74 LD DE,740D ;s cim porovnat 6A29 : CD8715 CALL 1587 ;a cteme IDT z CMT 6A2C : 3012 JR NC,6A40 ;nebyla chyba 6A2E : FE85 CP 85 ;byl ? 6A30 : 28F1 JR Z,6A23 ;ano, tak dalsi hlavicku 6A32 : FE83 CP 83 ;je jine jmeno? 6A34 : 3E12 LD A,12 ;priprav Err 18 6A36 : 37 SCF 6A37 : C0 RET NZ ;neni jine jmeno, tedy Err 18 6A38 : 21816A LD HL,6A81 ;vypis Skip jmeno pripona 6A3B : CD506A CALL 6A50 6A3E : 18E3 JR 6A23 ;a cti dalsi hlavicku 6A40 : 3A2071 LD A,(7120) 6A43 : CDD248 CALL 48D2 ;vypocti pozoci bytu podle att 6A46 : 4F LD C,A 6A47 : 3AD173 LD A,(73D1) ;porovnej s zadanym typem 6A4A : A1 AND A,C 6A4B : 28EB JR Z,6A38 ;neni to ono, znovu 6A4D : 217A6A LD HL,6A7A ;vypis Find jmeno pripona 6A50 : CD415D CALL 5D41 6A53 : 212171 LD HL,7121 6A56 : 0609 LD B,09 6A58 : CD435D CALL 5D43 6A5B : CD1C6B CALL 6B1C 6A5E : CD6C6A CALL 6A6C 6A61 : 0602 LD B,02 6A63 : CD435D CALL 5D43 6A66 : 21886A LD HL,6A88 6A69 : C3415D JP 5D41 6A6C : 3A2071 LD A,(7120) 6A6F : CDDD48 CALL 48DD 6A72 : 0600 LD B,00 6A74 : 218A6A LD HL,6A8A 6A77 : 09 ADD HL,BC 6A78 : 09 ADD HL,BC 6A79 : C9 RET 6A7A : DM 'Find "' 6A80 : DB 00 6A81 : DM 'Skip "' 6A87 : DB 00 6A88 : DB '"',0D 6A8A : DB 'CM','VM','BI','BG','SC','BF','DT',00 6A99 : CDAB6A CALL 6AAB 6A9C : 212071 LD HL,7120 6A9F : F3 DI 6AA0 : CDC315 CALL 15C3 6AA3 : DC4100 CALL C,0041 6AA6 : AF XOR A 6AA7 : 328F70 LD (708F),A 6AAA : C9 RET 6AAB : 3E9F LD A,9F 6AAD : 329170 LD (7091),A 6AB0 : 215177 LD HL,7751 6AB3 : 229270 LD (7092),HL 6AB6 : AF XOR A 6AB7 : 329070 LD (7090),A 6ABA : 3C INC A 6ABB : 328F70 LD (708F),A 6ABE : C9 RET 6ABF : CDE26B CALL 6BE2 6AC2 : 7E LD A,(HL) 6AC3 : 23 INC HL 6AC4 : B7 OR A 6AC5 : C8 RET Z 6AC6 : 4F LD C,A 6AC7 : C5 PUSH BC 6AC8 : E5 PUSH HL 6AC9 : CD646B CALL 6B64 6ACC : E1 POP HL 6ACD : C1 POP BC 6ACE : 05 DEC B 6ACF : 79 LD A,C 6AD0 : FE0D CP 0D 6AD2 : C8 RET Z 6AD3 : 04 INC B 6AD4 : 10EC DJNZ 6AC2 6AD6 : C9 RET 6AD7 : CDEA6B CALL 6BEA 6ADA : E5 PUSH HL 6ADB : C5 PUSH BC 6ADC : CDB86B CALL 6BB8 6ADF : C1 POP BC 6AE0 : E1 POP HL 6AE1 : D8 RET C 6AE2 : B7 OR A 6AE3 : C8 RET Z 6AE4 : 05 DEC B 6AE5 : 77 LD (HL),A 6AE6 : 23 INC HL 6AE7 : FE0D CP 0D 6AE9 : C8 RET Z 6AEA : 04 INC B 6AEB : 10ED DJNZ 6ADA 6AED : C9 RET 6AEE : 3A8E70 LD A,(708E) 6AF1 : CB6F BIT 5,A 6AF3 : 2009 JR NZ,6AFE 6AF5 : F3 DI 6AF6 : 0E02 LD C,02 6AF8 : CDEB15 CALL 15EB 6AFB : 3E12 LD A,12 6AFD : C9 RET 6AFE : CDE26B CALL 6BE2 6B01 : 7E LD A,(HL) 6B02 : E5 PUSH HL 6B03 : C5 PUSH BC 6B04 : CD646B CALL 6B64 6B07 : C1 POP BC 6B08 : E1 POP HL 6B09 : D8 RET C 6B0A : 23 INC HL 6B0B : 10F4 DJNZ 6B01 6B0D : C9 RET 6B0E : 3A8E70 LD A,(708E) 6B11 : CB6F BIT 5,A 6B13 : 2014 JR NZ,6B29 6B15 : F3 DI 6B16 : CD5016 CALL 1650 6B19 : 3E12 LD A,12 6B1B : D8 RET C 6B1C : C5 PUSH BC 6B1D : E5 PUSH HL 6B1E : 21276B LD HL,6B27 6B21 : CD415D CALL 5D41 6B24 : E1 POP HL 6B25 : C1 POP BC 6B26 : C9 RET 6B27 : DB '.',00 6B29 : CDEA6B CALL 6BEA 6B2C : C5 PUSH BC 6B2D : E5 PUSH HL 6B2E : CDB86B CALL 6BB8 6B31 : E1 POP HL 6B32 : C1 POP BC 6B33 : D8 RET C 6B34 : 77 LD (HL),A 6B35 : 23 INC HL 6B36 : 10F4 DJNZ 6B2C 6B38 : C9 RET 6B39 : 3A8E70 LD A,(708E) 6B3C : CB6F BIT 5,A 6B3E : 200A JR NZ,6B4A 6B40 : CB67 BIT 4,A 6B42 : C41E18 CALL NZ,181E 6B45 : CD7E17 CALL 177E 6B48 : FB EI 6B49 : C9 RET 6B4A : CB67 BIT 4,A 6B4C : C0 RET NZ 6B4D : F3 DI 6B4E : 3A8F70 LD A,(708F) 6B51 : B7 OR A 6B52 : C47A6B CALL NZ,6B7A 6B55 : F3 DI 6B56 : 3E45 LD A,45 6B58 : 010F01 LD BC,010F 6B5B : 219170 LD HL,7091 6B5E : CDED15 CALL 15ED 6B61 : B7 OR A 6B62 : 182A JR 6B8E 6B64 : 2A9270 LD HL,(7092) 6B67 : ED5B8F70 LD DE,(708F) 6B6B : 1600 LD D,00 6B6D : 19 ADD HL,DE 6B6E : 77 LD (HL),A 6B6F : 7B LD A,E 6B70 : 219170 LD HL,7091 6B73 : 3C INC A 6B74 : BE CP (HL) 6B75 : 328F70 LD (708F),A 6B78 : 3F CCF 6B79 : D0 RET NC 6B7A : F3 DI 6B7B : CD7617 CALL 1776 6B7E : 218F70 LD HL,708F 6B81 : 46 LD B,(HL) 6B82 : 3600 LD (HL),00 6B84 : 2A9270 LD HL,(7092) 6B87 : 0E0F LD C,0F 6B89 : CDE815 CALL 15E8 6B8C : 3E12 LD A,12 6B8E : CD7E17 CALL 177E 6B91 : FB EI 6B92 : C9 RET 6B93 : F3 DI 6B94 : CDCF6B CALL 6BCF 6B97 : DC4100 CALL C,0041 6B9A : 2A9270 LD HL,(7092) 6B9D : CD4D16 CALL 164D 6BA0 : CD7E17 CALL 177E 6BA3 : 300E JR NC,6BB3 6BA5 : F5 PUSH AF 6BA6 : CD1E18 CALL 181E 6BA9 : F1 POP AF 6BAA : FE85 CP 85 6BAC : 3E12 LD A,12 6BAE : 37 SCF 6BAF : C0 RET NZ 6BB0 : 3E98 LD A,98 6BB2 : C9 RET 6BB3 : FB EI 6BB4 : AF XOR A 6BB5 : 328F70 LD (708F),A 6BB8 : 3A8F70 LD A,(708F) 6BBB : 219070 LD HL,7090 6BBE : BE CP (HL) 6BBF : 30D2 JR NC,6B93 6BC1 : 2A9270 LD HL,(7092) 6BC4 : 5F LD E,A 6BC5 : 1600 LD D,00 6BC7 : 19 ADD HL,DE 6BC8 : 3C INC A 6BC9 : 328F70 LD (708F),A 6BCC : 7E LD A,(HL) 6BCD : B7 OR A 6BCE : C9 RET 6BCF : CDD116 CALL 16D1 6BD2 : D8 RET C 6BD3 : F5 PUSH AF 6BD4 : CDD116 CALL 16D1 6BD7 : C1 POP BC 6BD8 : D8 RET C 6BD9 : 90 SUB B 6BDA : C602 ADD A,02 6BDC : FE05 CP 05 6BDE : 30EF JR NC,6BCF 6BE0 : B7 OR A 6BE1 : C9 RET 6BE2 : 3A8E70 LD A,(708E) 6BE5 : CB67 BIT 4,A 6BE7 : C8 RET Z 6BE8 : 1806 JR 6BF0 6BEA : 3A8E70 LD A,(708E) 6BED : CB67 BIT 4,A 6BEF : C0 RET NZ 6BF0 : CD6030 CALL 3060 6BF3 : 16CE LD D,0CE 6BF5 : 3E40 LD A,40 6BF7 : 1E37 LD E,37 6BF9 : 0E61 LD C,61 6BFB : ED79 OUT (C),A 6BFD : E3 EX (SP),HL 6BFE : E3 EX (SP),HL 6BFF : ED51 OUT (C),D 6C01 : E3 EX (SP),HL 6C02 : ED59 OUT (C),E 6C04 : E3 EX (SP),HL 6C05 : E3 EX (SP),HL 6C06 : ED79 OUT (C),A 6C08 : E3 EX (SP),HL 6C09 : E3 EX (SP),HL 6C0A : ED51 OUT (C),D 6C0C : E3 EX (SP),HL 6C0D : 1E17 LD E,17 6C0F : ED59 OUT (C),E 6C11 : C9 RET 6C12 : 7E LD A,(HL) 6C13 : 23 INC HL 6C14 : B7 OR A 6C15 : 280C JR Z,6C23 6C17 : CD2C6C CALL 6C2C 6C1A : 05 DEC B 6C1B : FE0D CP 0D 6C1D : 2804 JR Z,6C23 6C1F : 04 INC B 6C20 : 10F0 DJNZ 6C12 6C22 : B7 OR A 6C23 : F5 PUSH AF 6C24 : DB61 IN A,(61) 6C26 : CB57 BIT 2,A 6C28 : 28FA JR Z,6C24 6C2A : F1 POP AF 6C2B : C9 RET 6C2C : F5 PUSH AF 6C2D : CD5E6C CALL 6C5E 6C30 : CB47 BIT 0,A 6C32 : 28F9 JR Z,6C2D 6C34 : F1 POP AF 6C35 : D360 OUT (60),A 6C37 : C9 RET 6C38 : 3E27 LD A,27 6C3A : D361 OUT (61),A 6C3C : CD546C CALL 6C54 6C3F : B7 OR A 6C40 : 280A JR Z,6C4C 6C42 : 77 LD (HL),A 6C43 : 23 INC HL 6C44 : 05 DEC B 6C45 : FE0D CP 0D 6C47 : 2803 JR Z,6C4C 6C49 : 04 INC B 6C4A : 10F0 DJNZ 6C3C 6C4C : F5 PUSH AF 6C4D : 3E07 LD A,07 6C4F : D361 OUT (61),A 6C51 : F1 POP AF 6C52 : B7 OR A 6C53 : C9 RET 6C54 : CD5E6C CALL 6C5E 6C57 : CB4F BIT 1,A 6C59 : 28F9 JR Z,6C54 6C5B : DB60 IN A,(60) 6C5D : C9 RET 6C5E : DB61 IN A,(61) 6C60 : E638 AND 38 6C62 : DB61 IN A,(61) 6C64 : C8 RET Z 6C65 : CD8730 CALL 3087 6C68 : CD116E CALL 6E11 6C6B : 060E LD B,0E 6C6D : CD3B6E CALL 6E3B 6C70 : CDEB6D CALL 6DEB 6C73 : DB 0B,'DEL' 6C77 : C3066D JP 6D06 6C7A : D5 PUSH DE 6C7B : 211F71 LD HL,711F 6C7E : CD116E CALL 6E11 6C81 : 0640 LD B,40 6C83 : CD3B6E CALL 6E3B 6C86 : CDEB6D CALL 6DEB 6C89 : DB 0B,'OPN' 6C8D : CD066D CALL 6D06 6C90 : D1 POP DE 6C91 : D8 RET C 6C92 : 212071 LD HL,7120 6C95 : CD116E CALL 6E11 6C98 : 063F LD B,3F 6C9A : CD436E CALL 6E43 6C9D : CDEB6D CALL 6DEB 6CA0 : DB 0D,'RDC' 6CA4 : 1860 JR 6D06 6CA6 : 1600 LD D,00 6CA8 : CD116E CALL 6E11 6CAB : CDEB6D CALL 6DEB 6CAE : DB 09,'CLS' 6CB2 : 1852 JR 6D06 6CB4 : CD116E CALL 6E11 6CB7 : CD3B6E CALL 6E3B 6CBA : CDEB6D CALL 6DEB 6CBD : DB 0B,'WBI' 6CC1 : 1845 JR 6D08 6CC3 : CD116E CALL 6E11 6CC6 : CD436E CALL 6E43 6CC9 : CDEB6D CALL 6DEB 6CCC : DB 0D,'RBI' 6CD0 : 1836 JR 6D08 6CD2 : CD116E CALL 6E11 6CD5 : CD3B6E CALL 6E3B 6CD8 : CDEB6D CALL 6DEB 6CDB : DB 0B,'WTX' 6CDF : 1827 JR 6D08 6CE1 : CD116E CALL 6E11 6CE4 : CD436E CALL 6E43 6CE7 : CDEB6D CALL 6DEB 6CEA : DB 0D,'RTX' 6CEE : 1818 JR 6D08 6CF0 : CD116E CALL 6E11 6CF3 : CDEB6D CALL 6DEB 6CF6 : DB 09,'MAP' 6CFA : 180A JR 6D06 6CFC : CD116E CALL 6E11 6CFF : CDEB6D CALL 6DEB 6D02 : DB 09,'CHN' 6D06 : AF XOR A 6D07 : DB 01 ;LD BC,013E 6D08 : 3E01 LD A,01 6D0A : 32ED73 LD (73ED),A 6D0D : CD4B6E CALL 6E4B 6D10 : D8 RET C 6D11 : C31F6E JP 6E1F 6D14 : CDFA6D CALL 6DFA 6D17 : CDD441 CALL 41D4 6D1A : 7B LD A,E 6D1B : CDB36D CALL 6DB3 6D1E : DC8030 CALL C,3080 6D21 : CDF441 CALL 41F4 6D24 : 21E173 LD HL,73E1 6D27 : EB EX DE,HL 6D28 : 23 INC HL 6D29 : 010300 LD BC,0003 6D2C : EDB0 LDIR 6D2E : EB EX DE,HL 6D2F : CD826D CALL 6D82 6D32 : 3E09 LD A,09 6D34 : 32D373 LD (73D3),A 6D37 : CD956D CALL 6D95 6D3A : 3810 JR C,6D4C 6D3C : EB EX DE,HL 6D3D : 22D973 LD (73D9),HL 6D40 : 21D373 LD HL,73D3 6D43 : CBCE SET 1,(HL) 6D45 : CDC941 CALL 41C9 6D48 : 7B LD A,E 6D49 : 32D873 LD (73D8),A 6D4C : CD956D CALL 6D95 6D4F : 3810 JR C,6D61 6D51 : EB EX DE,HL 6D52 : 22DC73 LD (73DC),HL 6D55 : 21D373 LD HL,73D3 6D58 : CBD6 SET 2,(HL) 6D5A : CDC941 CALL 41C9 6D5D : 7B LD A,E 6D5E : 32DB73 LD (73DB),A 6D61 : CDAC41 CALL 41AC 6D64 : 7B LD A,E 6D65 : 32ED73 LD (73ED),A 6D68 : 218E70 LD HL,708E 6D6B : CB1E RR (HL) 6D6D : 1F RRA 6D6E : CB16 RL (HL) 6D70 : CD4B6E CALL 6E4B 6D73 : 218E70 LD HL,708E 6D76 : CB86 RES 0,(HL) 6D78 : 2A6272 LD HL,(7262) 6D7B : CB45 BIT 0,L 6D7D : 7C LD A,H 6D7E : C28E30 JP NZ,308E 6D81 : C9 RET 6D82 : 0604 LD B,04 6D84 : C5 PUSH BC 6D85 : E5 PUSH HL 6D86 : 5E LD E,(HL) 6D87 : 23 INC HL 6D88 : 56 LD D,(HL) 6D89 : CD956D CALL 6D95 6D8C : E1 POP HL 6D8D : 73 LD (HL),E 6D8E : 23 INC HL 6D8F : 72 LD (HL),D 6D90 : 23 INC HL 6D91 : C1 POP BC 6D92 : 10F0 DJNZ 6D84 6D94 : C9 RET 6D95 : E7 RST 20 6D96 : 3F CCF 6D97 : D8 RET C 6D98 : D5 PUSH DE 6D99 : FECE CP CE 6D9B : 2001 JR NZ,6D9E 6D9D : EF RST 28 6D9E : E7 RST 20 6D9F : FECE CP CE 6DA1 : D1 POP DE 6DA2 : 37 SCF 6DA3 : C8 RET Z 6DA4 : C3A456 JP 56A4 6DA7 : 3EC1 LD A,0C1 6DA9 : D373 OUT (73),A 6DAB : AF XOR A 6DAC : D371 OUT (71),A 6DAE : 3EF0 LD A,0F0 6DB0 : D371 OUT (71),A 6DB2 : C9 RET 6DB3 : C5 PUSH BC 6DB4 : E5 PUSH HL 6DB5 : D5 PUSH DE 6DB6 : 47 LD B,A 6DB7 : CD4003 CALL 0340 6DBA : 3E3C LD A,3C 6DBC : 2AEE73 LD HL,(73EE) 6DBF : CD1903 CALL 0319 6DC2 : 78 LD A,B 6DC3 : CBF7 SET 6,A 6DC5 : D371 OUT (71),A 6DC7 : 213C70 LD HL,703C 6DCA : DB72 IN A,(72) 6DCC : CB6F BIT 5,A 6DCE : 2804 JR Z,6DD4 6DD0 : DB70 IN A,(70) 6DD2 : DB72 IN A,(72) 6DD4 : CB7E BIT 7,(HL) 6DD6 : 37 SCF 6DD7 : 200B JR NZ,6DE4 6DD9 : E6F7 AND F7 6DDB : FE83 CP 83 6DDD : 20EB JR NZ,6DCA 6DDF : 78 LD A,B 6DE0 : 32D273 LD (73D2),A 6DE3 : B7 OR A 6DE4 : CD4003 CALL 0340 6DE7 : D1 POP DE 6DE8 : E1 POP HL 6DE9 : C1 POP BC 6DEA : C9 RET 6DEB : E3 EX (SP),HL 6DEC : 7E LD A,(HL) 6DED : 32D373 LD (73D3),A 6DF0 : 23 INC HL 6DF1 : 11E173 LD DE,73E1 6DF4 : 010300 LD BC,0003 6DF7 : EDB0 LDIR 6DF9 : E3 EX (SP),HL 6DFA : 21E173 LD HL,73E1 6DFD : 22D673 LD (73D6),HL 6E00 : 3E0B LD A,0B 6E02 : 32D573 LD (73D5),A 6E05 : 3E08 LD A,08 6E07 : 32DE73 LD (73DE),A 6E0A : 216272 LD HL,7262 6E0D : 22DF73 LD (73DF),HL 6E10 : C9 RET 6E11 : F3 DI 6E12 : ED73F073 LD (73F0),SP 6E16 : 31EC73 LD SP,73EC 6E19 : E5 PUSH HL 6E1A : D5 PUSH DE 6E1B : C5 PUSH BC 6E1C : F5 PUSH AF 6E1D : 180C JR 6E2B 6E1F : F3 DI 6E20 : ED73F073 LD (73F0),SP 6E24 : 316272 LD SP,7262 6E27 : F1 POP AF 6E28 : C1 POP BC 6E29 : D1 POP DE 6E2A : E1 POP HL 6E2B : ED7BF073 LD SP,(73F0) 6E2F : FB EI 6E30 : C9 RET 6E31 : F3 DI 6E32 : ED73F073 LD (73F0),SP 6E36 : 316A72 LD SP,726A 6E39 : 18DE JR 6E19 6E3B : 78 LD A,B 6E3C : 32D873 LD (73D8),A 6E3F : 22D973 LD (73D9),HL 6E42 : C9 RET 6E43 : 78 LD A,B 6E44 : 32DB73 LD (73DB),A 6E47 : 22DC73 LD (73DC),HL 6E4A : C9 RET 6E4B : 2AD373 LD HL,(73D3) 6E4E : 65 LD H,L 6E4F : 22D373 LD (73D3),HL 6E52 : CD856E CALL 6E85 6E55 : 3807 JR C,6E5E 6E57 : 3AD473 LD A,(73D4) 6E5A : B7 OR A 6E5B : 20F5 JR NZ,6E52 6E5D : C9 RET 6E5E : FE64 CP 64 6E60 : 2818 JR Z,6E7A 6E62 : FE65 CP 65 6E64 : 280D JR Z,6E73 6E66 : FE66 CP 66 6E68 : 37 SCF 6E69 : C0 RET NZ 6E6A : CDEB6D CALL 6DEB 6E6D : DB 09,'TRA' 6E71 : 1807 JR 6E7A 6E73 : CDEB6D CALL 6DEB 6E76 : DB 0D,'TDA' 6E7A : 3AD273 LD A,(73D2) 6E7D : CDB36D CALL 6DB3 6E80 : 30C9 JR NC,6E4B 6E82 : 3E6B LD A,6B 6E84 : C9 RET 6E85 : DB72 IN A,(72) 6E87 : CB57 BIT 2,A 6E89 : 20FA JR NZ,6E85 6E8B : DB72 IN A,(72) 6E8D : 47 LD B,A 6E8E : DB72 IN A,(72) 6E90 : A8 XOR B 6E91 : E603 AND 03 6E93 : 20F0 JR NZ,6E85 6E95 : 78 LD A,B 6E96 : 2AD373 LD HL,(73D3) 6E99 : E603 AND 03 6E9B : 282F JR Z,6ECC 6E9D : 3D DEC A 6E9E : 283D JR Z,6EDD 6EA0 : 3D DEC A 6EA1 : 2818 JR Z,6EBB 6EA3 : CB45 BIT 0,L 6EA5 : 2843 JR Z,6EEA 6EA7 : CB84 RES 0,H 6EA9 : 22D373 LD (73D3),HL 6EAC : 7D LD A,L 6EAD : E60E AND 0E 6EAF : AC XOR H 6EB0 : 2038 JR NZ,6EEA 6EB2 : 3AD273 LD A,(73D2) 6EB5 : F6F0 OR F0 6EB7 : D371 OUT (71),A 6EB9 : 1836 JR 6EF1 6EBB : CB4D BIT 1,L 6EBD : 282B JR Z,6EEA 6EBF : CB8C RES 1,H 6EC1 : 22D373 LD (73D3),HL 6EC4 : 7D LD A,L 6EC5 : E60C AND 0C 6EC7 : AC XOR H 6EC8 : 2020 JR NZ,6EEA 6ECA : 1831 JR 6EFD 6ECC : CB54 BIT 2,H 6ECE : 281A JR Z,6EEA 6ED0 : CB94 RES 2,H 6ED2 : 22D373 LD (73D3),HL 6ED5 : 7D LD A,L 6ED6 : E608 AND 08 6ED8 : AC XOR H 6ED9 : 200F JR NZ,6EEA 6EDB : 1833 JR 6F10 6EDD : CB5C BIT 3,H 6EDF : 2809 JR Z,6EEA 6EE1 : CB9C RES 3,H 6EE3 : 22D373 LD (73D3),HL 6EE6 : 7C LD A,H 6EE7 : B7 OR A 6EE8 : 2839 JR Z,6F23 6EEA : CDA76D CALL 6DA7 6EED : 3E6B LD A,6B 6EEF : 37 SCF 6EF0 : C9 RET 6EF1 : AF XOR A 6EF2 : 32EC73 LD (73EC),A 6EF5 : 3AD573 LD A,(73D5) 6EF8 : 2AD673 LD HL,(73D6) 6EFB : 180C JR 6F09 6EFD : 3A8E70 LD A,(708E) 6F00 : 32EC73 LD (73EC),A 6F03 : 3AD873 LD A,(73D8) 6F06 : 2AD973 LD HL,(73D9) 6F09 : 47 LD B,A 6F0A : CD346F CALL 6F34 6F0D : 3E64 LD A,64 6F0F : C9 RET 6F10 : 3A8E70 LD A,(708E) 6F13 : 32EC73 LD (73EC),A 6F16 : 3ADB73 LD A,(73DB) 6F19 : 47 LD B,A 6F1A : 2ADC73 LD HL,(73DC) 6F1D : CD536F CALL 6F53 6F20 : 3E65 LD A,65 6F22 : C9 RET 6F23 : AF XOR A 6F24 : 32EC73 LD (73EC),A 6F27 : 3ADE73 LD A,(73DE) 6F2A : 47 LD B,A 6F2B : 2ADF73 LD HL,(73DF) 6F2E : CD536F CALL 6F53 6F31 : 3E66 LD A,66 6F33 : C9 RET 6F34 : 48 LD C,B 6F35 : 78 LD A,B 6F36 : CD926F CALL 6F92 6F39 : 3AEC73 LD A,(73EC) 6F3C : 57 LD D,A 6F3D : 3AED73 LD A,(73ED) 6F40 : A2 AND A,D 6F41 : 2802 JR Z,6F45 6F43 : DF RST 18 6F44 : 167E LD D,7E 6F46 : CD9C6F CALL 6F9C 6F49 : D8 RET C 6F4A : 81 ADD A,C 6F4B : 4F LD C,A 6F4C : 23 INC HL 6F4D : 10EA DJNZ 6F39 6F4F : ED44 NEG 6F51 : 1849 JR 6F9C 6F53 : CD7C6F CALL 6F7C 6F56 : B8 CP B 6F57 : 37 SCF 6F58 : C0 RET NZ 6F59 : 48 LD C,B 6F5A : CD846F CALL 6F84 6F5D : D8 RET C 6F5E : 08 EX AF,AF' 6F5F : 3AEC73 LD A,(73EC) 6F62 : 57 LD D,A 6F63 : 3AED73 LD A,(73ED) 6F66 : A2 AND A,D 6F67 : 2803 JR Z,6F6C 6F69 : 08 EX AF,AF' 6F6A : D7 RST 10 6F6B : 110877 LD DE,7708 6F6E : 81 ADD A,C 6F6F : 4F LD C,A 6F70 : 23 INC HL 6F71 : 10E7 DJNZ 6F5A 6F73 : CD846F CALL 6F84 6F76 : D8 RET C 6F77 : 81 ADD A,C 6F78 : 37 SCF 6F79 : C0 RET NZ 6F7A : B7 OR A 6F7B : C9 RET 6F7C : DB72 IN A,(72) 6F7E : CB6F BIT 5,A 6F80 : 28FA JR Z,6F7C 6F82 : 180A JR 6F8E 6F84 : DB72 IN A,(72) 6F86 : CB6F BIT 5,A 6F88 : 28FA JR Z,6F84 6F8A : CB57 BIT 2,A 6F8C : 37 SCF 6F8D : C8 RET Z 6F8E : DB70 IN A,(70) 6F90 : B7 OR A 6F91 : C9 RET 6F92 : F5 PUSH AF 6F93 : DB72 IN A,(72) 6F95 : CB7F BIT 7,A 6F97 : 28FA JR Z,6F93 6F99 : F1 POP AF 6F9A : 180C JR 6FA8 6F9C : 08 EX AF,AF' 6F9D : DB72 IN A,(72) 6F9F : CB7F BIT 7,A 6FA1 : 28FA JR Z,6F9D 6FA3 : CB57 BIT 2,A 6FA5 : 37 SCF 6FA6 : C8 RET Z 6FA7 : 08 EX AF,AF' 6FA8 : D370 OUT (70),A 6FAA : B7 OR A 6FAB : C9 RET 6FAC : DB 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 6FBD : DB 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 6FCE : DB 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 6FDF : DB 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 6FF0 : DB 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 6FFF : DB 37 ;pro kontrolni soucet 7000 : End of disassembly