MISOSYS Disassembler - Disk Version 3.0 PAGE 00001 ADDR CONTENTS LINE# LABEL INSTRUCTION ASCII 00001 M0000 EQU 0000H 00002 M0006 EQU 0006H 00003 M0008 EQU 0008H 00004 M000A EQU 000AH 00005 M001B EQU 001BH 00006 M001F EQU 001FH 00007 M0020 EQU 0020H 00008 M0040 EQU 0040H 00009 M004C EQU 004CH 00010 M0060 EQU 0060H 00011 M0100 EQU 0100H 00012 M021A EQU 021AH 00013 M0323 EQU 0323H 00014 M03D4 EQU 03D4H 00015 M040B EQU 040BH 00016 M0458 EQU 0458H 00017 M047D EQU 047DH 00018 M0A12 EQU 0A12H 00019 M2400 EQU 2400H 00020 M37E0 EQU 37E0H ; Interrupt latch 00021 M37E1 EQU 37E1H ; Disk select / Drive 0 latch 00022 M37EC EQU 37ECH ; FDC Command/Status Register 00023 M37ED EQU 37EDH ; FDC Track Register 00024 M37EE EQU 37EEH ; FDC Sector Register 00025 M37EF EQU 37EFH ; FDC Data Register 00026 M3801 EQU 3801H ; Keyboard row 1 00027 M3802 EQU 3802H ; Keyboard row 2 00028 M3810 EQU 3810H ; Keyboard row 5 00029 M3840 EQU 3840H ; Keyboard row 7 00030 M387F EQU 387FH ; Keyboard row 7? 00031 SCRN EQU 3C00H ; Screen start address 00032 M3C35 EQU 3C35H 00033 ORG 400CH 400C C3C24B 00034 JP M4BC2 ; DOS Function Call Restart 400F C30946 00035 JP M4609 ; The DEBUG Restart 4012 C3F245 00036 JP M45F2 ; Interrupt received Restart 00037 M4016 EQU 4016H 00038 M401D EQU 401DH 00039 M401E EQU 401EH 00040 M4020 EQU 4020H 00041 M4022 EQU 4022H 00042 M4025 EQU 4025H ; 00043 ORG 402DH 402D C30044 00044 JP M4400 ; Jump to main body of SYS0 4030 3E43 00045 LD A,43H ; Select SYS1/SYS module to load, option 2 4032 EF 00046 RST 28H o 4033 C3DB4A 00047 JP M4ADB ; Jump to starting point 00048 M4036 EQU 4036H ; 00049 ORG 403EH 403E 00 00050 NOP . 403F 00 00051 NOP . 4040 00 00052 M4040 NOP . ; Cyclic counter for Interrupts ; Clock 4041 00 00053 M4041 NOP . ; Secs 4042 00 00054 NOP . ; Minutes 4043 00 00055 M4043 NOP . ; Hours 4044 00 00056 NOP . ; Years 4045 00 00057 NOP . ; Days 4046 00 00058 M4046 NOP . ; Months ; Load address for DOS System Modules 4047 00 00059 NOP . 4048 52 00060 LD D,D R 4049 FF 00061 M4049 RST 38H . ; HIMEM value 404A FF 00062 RST 38H . ; 404B 00 00063 NOP . ; Current Interrupt Status Bytes Level 2 404C 00 00064 NOP . ; Interrupt Sub-routine Vectors 404D 00 00065 NOP . ; Routine Address for Interrupt Bit 0 404E 00 00066 NOP . ; 404F 00 00067 NOP . ; Routine Address for Interrupt Bit 1 4050 00 00068 NOP . ; 4051 00 00069 NOP . ; Routine Address for Interrupt Bit 2 4052 00 00070 NOP . 4053 F5 00071 M4053 PUSH AF u ; Routine Address for Interrupt Bit 3 4054 07 00072 RLCA . ; 4055 DCE847 00073 CALL C,M47E8 \hG ; ??; Routine Address for Interrupt Bit 4, 5 4058 F1 00074 POP AF q ; 4059 C9 00075 RET I ; Routine Address for Interrupt Bit 6 (disk) 405A 00 00076 NOP . 405B 00 00077 NOP . ; Routine Address for Interrupt Bit 7 (clock) 405C 00 00078 NOP . ; ; Temporary DOS routine (Converts DE to ASCII) 00079 ORG 4063H 4063 7A 00080 LD A,D z 4064 CD6840 00081 CALL M4068 Mh@ 4067 7B 00082 LD A,E . 4068 F5 00083 M4068 PUSH AF u 4069 0F 00084 RRCA . 406A 0F 00085 RRCA . 406B 0F 00086 RRCA . 406C 0F 00087 RRCA . 406D CD7140 00088 CALL M4071 Mq@ 4070 F1 00089 POP AF q 4071 E60F 00090 M4071 AND 0FH f. 4073 C690 00091 ADD A,90H F. 4075 27 00092 DAA ' 4076 CE40 00093 ADC A,'@' N@ 4078 27 00094 DAA ' 4079 77 00095 LD (HL),A w 407A 23 00096 INC HL # 407B C9 00097 RET I ; Storage parameters for Time Checking 407C 3B 00098 M407C DEC SP ; 407D 3B 00099 DEC SP ; 407E 17 00100 RLA . 407F 00 00101 NOP . 00102 M4200 EQU 4200H 00103 M4202 EQU 4202H 00104 M42A0 EQU 42A0H 00105 M42A1 EQU 42A1H 00106 M42A2 EQU 42A2H 00107 M42A3 EQU 42A3H 00108 M42A5 EQU 42A5H 00109 M42A6 EQU 42A6H 00110 M42A7 EQU 42A7H 00111 M42A8 EQU 42A8H 00112 M42A9 EQU 42A9H 00113 M42D0 EQU 42D0H 00114 M42E0 EQU 42E0H 00115 M42EF EQU 42EFH 00116 M42F0 EQU 42F0H 00117 M42F2 EQU 42F2H 00118 M42F8 EQU 42F8H 00119 M42F9 EQU 42F9H 00120 M42FA EQU 42FAH 00121 M42FD EQU 42FDH 00122 M42FE EQU 42FEH 00123 M42FF EQU 42FFH 00124 ORG 4308H 4308 00 00125 M4308 NOP . 4309 00 00126 M4309 NOP . 430A 112303 00127 M430A LD DE,M0323 .#. 00128 M430C EQU $-1 430D 23 00129 M430D INC HL # 430E 0A 00130 M430E LD A,(BC) . 430F 02 00131 M430F LD (BC),A . 4310 00 00132 M4310 NOP . 4311 00 00133 M4311 NOP . 4312 C3B045 00134 M4312 JP M45B0 C0E ; control byte for Break key 4315 010000 00135 LD BC,M0000 ... 00136 M4317 EQU $-1 00137 M4318 EQU 4318H 00138 ORG 4368H ; SYSTEM Storage 4368 00139 DB 0A5H,'@',00H,00H,00H 00140 M4369 EQU $-4 00141 M436C EQU $-1 436D 00142 DB 00H,00H,00H,'Z',11H,'#' 00143 M436E EQU $-5 00144 M4370 EQU $-3 ; PDRIVE Storage drive 0 00145 M4371 EQU $-2 4373 00146 DB 03H,'#',0AH,02H,00H,00H 4379 00147 DB 11H,02H ; PDRIVE Storage drive 1 4381 DB 0FFH,01H,00H 437E 00148 DB 01H,00H,00H,00H,00H,0FFH 00149 M4380 EQU $-4 4384 00150 DB 00H ; PDRIVE Storage drive 2 4385 DB 0FFH,01H,00H,01H 4389 00151 DB 00H,00H,00H,00H,0FFH 438E 00152 DB 00H, ; PDRIVE Storage drive 3 438F DB 0FFH,01H,00H,01H 4393 00153 DB 00H,00H,00H,00H,0FFH 4398 00154 DB 00H,'qC',00H 00155 M4399 EQU $-3 439C 00 00156 NOP . 439D 00 00157 NOP . 439E 00 00158 NOP . 439F 04 00159 M439F INC B . 43A0 010001 00160 M43A0 LD BC,M0100 ... 00161 M43A1 EQU $-2 00162 M43A2 EQU $-1 43A3 00 00163 NOP . 43A4 010000 00164 LD BC,M0000 ... 43A7 0D 00165 DEC C . 43A8 0D 00166 DEC C . 00167 M43A9 EQU 43A9H 00168 M43AB EQU 43ABH 00169 M43AC EQU 43ACH 00170 ORG 43B2H 43B2 00 00171 M43B2 NOP . 43B3 00 00172 NOP . 43B4 00 00173 NOP . 43B5 FF 00174 RST 38H . 43B6 FF 00175 RST 38H . 43B7 FC4C00 00176 CALL M,M004C .L. ; Check the value in register A to see a key was pressed 43BA 00 00177 NOP . 43BB 00 00178 NOP . 43BC FF 00179 RST 38H . 43BD FF 00180 RST 38H . 43BE 00 00181 NOP . 43BF 00 00182 NOP . 43C0 00 00183 NOP . 43C1 00 00184 NOP . 43C2 00 00185 NOP . 43C3 FF 00186 RST 38H . 43C4 FF 00187 RST 38H . 43C5 00 00188 NOP . 43C6 00 00189 NOP . 43C7 00 00190 NOP . 43C8 00 00191 NOP . 43C9 00 00192 NOP . 43CA FF 00193 RST 38H . 43CB FF 00194 RST 38H . 43CC 00 00195 NOP . 43CD 00 00196 NOP . 43CE 80 00197 M43CE ADD A,B . 43CF 2800 00198 JR Z,M43D1 (. 43D1 00 00199 M43D1 NOP . 43D2 42 00200 LD B,D B 43D3 00 00201 NOP . 43D4 00 00202 NOP . 43D5 FF 00203 RST 38H . 43D6 00 00204 NOP . 43D7 00 00205 NOP . 43D8 00 00206 M43D8 NOP . 43D9 00 00207 NOP . 43DA 40 00208 LD B,B @ 43DB 00 00209 NOP . 43DC 00 00210 M43DC NOP . 43DD 00 00211 NOP . 43DE FF 00212 RST 38H . 43DF FF 00213 RST 38H . 00214 ORG 4400H 4400 3E23 00215 M4400 LD A,23H ># ; No-Error exit 4402 EF 00216 RST 28H o 4403 00 00217 NOP . 4404 00 00218 NOP . 4405 3E63 00219 M4405 LD A,63H >c ; Enter DOS and execute a command 4407 EF 00220 RST 28H o 4408 C8 00221 RET Z H 4409 F5 00222 M4409 PUSH AF u ; DOS Error Exit 440A 3E26 00223 LD A,26H >& 440C EF 00224 RST 28H o 440D C30946 00225 M440D JP M4609 C.F ; Enter DEBUG 4410 3E65 00226 LD A,65H >e ; Enqueue a user timer interrupt 4412 EF 00227 RST 28H o 4413 3E85 00228 LD A,85H >. ; Dequeue a user timer interrupt routine 4415 EF 00229 RST 28H o 4416 C36247 00230 JP M4762 CbG ; Keep drives rotating 4419 3EC3 00231 LD A,0C3H >C ; DOS-CALL Execute a DOS command and return 441B EF 00232 RST 28H o 441C 3E83 00233 LD A,83H >. ; Extract a filespec 441E EF 00234 RST 28H o 441F 00 00235 NOP . 4420 3E44 00236 LD A,44H >D ; Open a FCB to new or existing disk file 4422 EF 00237 RST 28H o 4423 00 00238 NOP . 4424 3E24 00239 LD A,24H >$ ; Open a FCB to a existing file 4426 EF 00240 RST 28H o 4427 82 00241 DB 82H . ; referrs to NEWDOS/80 Version 2 4428 3E25 00242 LD A,25H >% ; Close a FCB 442A EF 00243 RST 28H o 442B 01 DB 01H ; refers to 01 for Model I 442C 3E45 00244 LD A,45H ; Kill FCB's associated file 442E EF 00245 RST 28H o 442F 00 00246 NOP . 4430 3EA4 00247 LD A,0A4H >$ ; Load a program file 4432 EF 00248 RST 28H o 4433 3EC4 00249 LD A,0C4H >D ; Load and commence execution of a program file 4435 EF 00250 RST 28H o 4436 C3FC49 00251 M4436 JP M49FC C.I ; Read sector or logical record from disk 4439 C3364A 00252 JP M4A36 C6J ; Write sector or logical record to disk 443C C3324A 00253 JP M4A32 C2J ; Write sector or logical record to disk with verify read 443F C34C4B 00254 JP M4B4C CLK ; Position FCB to start of file 4442 C3734B 00255 JP M4B73 CsK ; Position FCB to specified file record 4445 C3624B 00256 JP M4B62 CbK ; Position FCB back one record 4448 C3544B 00257 JP M4B54 CTK ; Position FCB to EOF 444B C30948 00258 JP M4809 C.H ; Allocate File space 444E C3474B 00259 JP M4B47 CGK ; Position FCB to specified RBA 4451 3EC5 00260 LD A,0C5H >E ; Write the EOF value from the FCB to the directory 4453 EF 00261 RST 28H o 4454 00 00262 NOP . 4455 00 00263 NOP . 4456 00 00264 NOP . 4457 3E2A 00265 M4457 LD A,2AH >* 4459 18AE 00266 JR M4409 .. ; DOS error exit 445B C37647 00267 JP M4776 CvG ; Select and power up the specified drive 445E C3EC47 00268 JP M47EC ClG ; Test for mounted diskette 4461 3E2B 00269 LD A,2BH >+ ; *name routine enqueue 4463 EF 00270 RST 28H o 4464 3E4B 00271 LD A,4BH >K ; *name routine dequeue 4466 EF 00272 RST 28H o 4467 C3A64B 00273 M4467 JP M4BA6 C&K ; Send message to the display 446A C3BC4B 00274 JP M4BBC C# ; Insert default name extension into filespec 4475 EF 00278 RST 28H o 4476 00 00279 NOP . 4477 00 00280 NOP . 4478 00 00281 NOP . 4479 00 00282 NOP . 447A 00 00283 NOP . 447B 00 00284 NOP . 447C 18D9 00285 JR M4457 .Y 447E AF 00286 XOR A / 447F C9 00287 RET I 4480 82 00288 M4480 ADD A,D . 4481 2000 00289 JR NZ,M4483 . 4483 00 00290 M4483 NOP . 4484 42 00291 LD B,D B 4485 00 00292 NOP . 4486 00 00293 NOP . 4487 FF 00294 RST 38H . 4488 00 00295 NOP . 4489 00 00296 NOP . 448A 02 00297 LD (BC),A . 448B 00 00298 NOP . 448C FF 00299 RST 38H . 448D FF 00300 RST 38H . 448E FF 00301 RST 38H . 448F FF 00302 RST 38H . 4490 FF 00303 RST 38H . 4491 FF 00304 RST 38H . 4492 FF 00305 RST 38H . 4493 FF 00306 RST 38H . 4494 FF 00307 RST 38H . 4495 FF 00308 RST 38H . 4496 FF 00309 RST 38H . 4497 FF 00310 RST 38H . 4498 FF 00311 RST 38H . 4499 FF 00312 RST 38H . 449A FF 00313 RST 38H . 449B FF 00314 RST 38H . 449C FF 00315 RST 38H . 449D FF 00316 RST 38H . 449E FF 00317 RST 38H . 449F FF 00318 RST 38H . 44A0 00 00319 NOP . 44A1 00 00320 NOP . 44A2 2801 00321 JR Z,M44A5 (. 44A4 21353C 00322 LD HL,M3C35 !5< ; Convert clock time to HH:MM:SS character format 00323 M44A5 EQU $-2 44A7 114340 00324 M44A7 LD DE,M4043 .C@ ; Interrupt Jump for Undefined Interrupt (3680H) 44AA 063A 00325 LD B,':' .: 44AC 0E03 00326 M44AC LD C,03H .. 44AE 362F 00327 M44AE LD (HL),'/' 6/ 44B0 1A 00328 LD A,(DE) . 44B1 34 00329 M44B1 INC (HL) 4 44B2 D60A 00330 SUB 0AH V. 44B4 30FB 00331 JR NC,M44B1 0. 44B6 23 00332 INC HL # 44B7 C63A 00333 ADD A,':' F: 44B9 77 00334 LD (HL),A w 44BA 23 00335 INC HL # 44BB 1B 00336 DEC DE . 44BC 0D 00337 DEC C . 44BD C8 00338 RET Z H 44BE 70 00339 LD (HL),B p 44BF 23 00340 INC HL # 44C0 18EC 00341 JR M44AE .l ; Convert the date to MM/DD/YY character format 44C2 114640 00342 M44C2 LD DE,M4046 .F@ ; Interrupt Jump for Time Clock (3529H) 44C5 062F 00343 LD B,'/' ./ 44C7 18E3 00344 JR M44AC .c 44C9 EB 00345 M44C9 EX DE,HL k 44CA 44 00346 LD B,H D 44CB 2801 00347 JR Z,M44CE (. 44CD 214140 00348 LD HL,M4041 !A@ 00349 M44CE EQU $-2 44D0 E5 00350 PUSH HL e 44D1 11AC43 00351 LD DE,M43AC .,C 44D4 010600 00352 LD BC,M0006 ... 44D7 EDB0 00353 LDIR m0 44D9 117C40 00354 LD DE,M407C ..@ 44DC E1 00355 POP HL a 44DD 0603 00356 LD B,03H .. 44DF 34 00357 M44DF INC (HL) 4 44E0 1A 00358 LD A,(DE) . 44E1 96 00359 SUB (HL) . 44E2 D0 00360 RET NC P 44E3 71 00361 LD (HL),C q 44E4 13 00362 INC DE . 44E5 23 00363 INC HL # 44E6 10F7 00364 DJNZ M44DF .w 44E8 23 00365 INC HL # 44E9 34 00366 INC (HL) 4 44EA C9 00367 RET I 44EB 00 00368 NOP . 44EC 00 00369 NOP . 44ED 14 00370 INC D . 44EE 01DDE5 00371 LD BC,ME5DD .]e 44F1 E1 00372 POP HL a 44F2 111D40 00373 LD DE,M401D ..@ ; DCB Type Value ( 07 ) 44F5 DF 00374 RST 18H _ ; The Compare HL/DE Restart 44F6 C8 00375 RET Z H 44F7 3A2240 00376 LD A,(M4022) :"@ ; Character under Cursor storage 44FA B7 00377 OR A 7 44FB C8 00378 RET Z H 44FC 2A2040 00379 LD HL,(M4020) * @ ; Cursor Position - least significant byte 44FF BE 00380 CP (HL) > 4500 365F 00381 LD (HL),'_' 6_ 00382 M4501 EQU $-1 4502 C9 00383 M4502 RET I 4503 77 00384 LD (HL),A w 4504 C9 00385 RET I 4505 180C 00386 M4505 JR M4513 .. 4507 CD5348 00387 CALL M4853 MSH 450A 79 00388 LD A,C y 450B D620 00389 SUB ' ' V 450D FE60 00390 CP '`' .` 450F 79 00391 LD A,C y 4510 DA7D04 00392 JP C,M047D Z.. 4513 C35804 00393 M4513 JP M0458 CX. 4516 3A6943 00394 M4516 LD A,(M4369) :iC ; System area 4519 EE20 00395 XOR ' ' n 451B E668 00396 AND 'h' fh 451D 3ECB 00397 LD A,0CBH >K 451F CCDD49 00398 CALL Z,M49DD L]I 4522 C8 00399 RET Z H 4523 21BE45 00400 LD HL,M45BE !>E 4526 36C9 00401 LD (HL),0C9H 6I 4528 E5 00402 PUSH HL e 4529 213640 00403 LD HL,M4036 !6@ 00404 M452A EQU $-2 452C 7E 00405 LD A,(HL) . 452D B7 00406 OR A 7 452E 3E00 00407 LD A,00H >. 00408 M452F EQU $-1 4530 2003 00409 JR NZ,M4535 . 4532 328045 00410 LD (M4580),A 2.E 4535 AF 00411 M4535 XOR A / 4536 F600 00412 OR 00H v. 00413 M4537 EQU $-1 4538 1809 00414 M4538 JR M4543 .. 453A B6 00415 OR (HL) 6 453B 2004 00416 JR NZ,M4541 . 453D 3D 00417 DEC A = 453E 327345 00418 M453E LD (M4573),A 2sE 4541 3600 00419 M4541 LD (HL),00H 6. 4543 2E36 00420 M4543 LD L,'6' .6 4545 010138 00421 LD BC,M3801 ..8 4548 16FF 00422 LD D,0FFH .. 454A 0A 00423 M454A LD A,(BC) . 454B 5F 00424 LD E,A _ 454C AE 00425 XOR (HL) . 454D 73 00426 LD (HL),E s 454E A3 00427 AND E # 454F 200D 00428 JR NZ,M455E . 4551 7A 00429 LD A,D z 4552 C608 00430 ADD A,08H F. 4554 57 00431 LD D,A W 4555 2C 00432 INC L , 4556 CB01 00433 RLC C K. 4558 F24A45 00434 JP P,M454A rJE 455B AF 00435 XOR A / 455C 180F 00436 JR M456D .. 455E 5F 00437 M455E LD E,A _ 455F 14 00438 M455F INC D . 4560 0F 00439 RRCA . 4561 30FC 00440 JR NC,M455F 0. 4563 C5 00441 PUSH BC E 4564 D5 00442 PUSH DE U 4565 222A45 00443 LD (M452A),HL "*E 4568 CD0B04 00444 CALL M040B M.. 456B E1 00445 POP HL a 456C C1 00446 POP BC A 456D B7 00447 M456D OR A 7 456E 57 00448 LD D,A W 456F 2818 00449 JR Z,M4589 (. 4571 7C 00450 LD A,H . 4572 FEFF 00451 CP 0FFH .. 00452 M4573 EQU $-1 4574 327345 00453 LD (M4573),A 2sE 4577 3E00 00454 LD A,00H >. 00455 M4578 EQU $-1 4579 2006 00456 JR NZ,M4581 . 457B 0A 00457 LD A,(BC) . 457C A5 00458 AND L % 457D 28EE 00459 M457D JR Z,M456D (n 457F 3EFF 00460 LD A,0FFH >. 00461 M4580 EQU $-1 4581 323745 00462 M4581 LD (M4537),A 27E 4584 3E02 00463 LD A,02H >. 4586 328045 00464 LD (M4580),A 2.E 4589 CDBF45 00465 M4589 CALL M45BF M?E 458C E1 00466 POP HL a 458D 3600 00467 LD (HL),00H 6. 458F FE1F 00468 CP 1FH .. 00469 M4590 EQU $-1 4591 281D 00470 JR Z,M45B0 (. 4593 C9 00471 M4593 RET I 4594 E6DF 00472 AND 0DFH f_ ; clear only bit 5; 4596 D641 00473 SUB 'A' VA 4598 FE1A 00474 CP 1AH .. 459A 79 00475 LD A,C y 459B 3815 00476 JR C,M45B2 8. 459D FE20 00477 CP ' ' . 459F C0 00478 RET NZ @ 45A0 217F38 00479 LD HL,M387F !.8 ; Keyboard 0x3840-0x38&F, row Space,Arrows,Break,Clear,Enter 45A3 7E 00480 LD A,(HL) . 45A4 23 00481 INC HL # 45A5 A6 00482 AND (HL) & 45A6 0F 00483 RRCA . 45A7 79 00484 LD A,C y 45A8 D0 00485 RET NC P 45A9 21B445 00486 LD HL,M45B4 !4E 45AC 7E 00487 LD A,(HL) . 45AD EEC9 00488 XOR 0C9H nI ; 0b11001001 45AF 77 00489 LD (HL),A w 45B0 AF 00490 M45B0 XOR A / 45B1 C9 00491 RET I 45B2 EE20 00492 M45B2 XOR ' ' n 45B4 C9 00493 M45B4 RET I 45B5 FE61 00494 CP 'a' .a 45B7 D8 00495 RET C X 45B8 FE7B 00496 CP '{' .. 45BA D0 00497 RET NC P 45BB D620 00498 SUB ' ' V 45BD C9 00499 RET I 45BE 00 00500 M45BE NOP . 45BF 216943 00501 M45BF LD HL,M4369 !iC ; in System storage 45C2 7E 00502 LD A,(HL) . 45C3 E66C 00503 AND 'l' fl 45C5 2026 00504 JR NZ,M45ED & 45C7 3A0138 00505 LD A,(M3801) :.8 45CA FED0 00506 CP 0D0H .P 45CC 1805 00507 M45CC JR M45D3 .. 45CE 3EE3 00508 LD A,0E3H >c ; row G F E D C B A @ 45D0 0E04 00509 LD C,04H .. 45D2 EF 00510 RST 28H o 45D3 3A1038 00511 M45D3 LD A,(M3810) :.8 ; row 7 6 5 4 3 2 1 0 45D6 FE0E 00512 CP 0EH .. 45D8 180E 00513 M45D8 JR M45E8 .. 45DA 3ABE45 00514 LD A,(M45BE) :>E 45DD D6C9 00515 SUB 0C9H VI 45DF CA0D44 00516 JP Z,M440D J.D ; jump to Enter DEBUG 45E2 F1 00517 POP AF q 45E3 C1 00518 POP BC A 45E4 D1 00519 POP DE Q 45E5 E1 00520 POP HL a 45E6 1822 00521 JR M460A ." 45E8 3A0238 00522 M45E8 LD A,(M3802) :.8 45EB FE1C 00523 CP 1CH .. 45ED 7A 00524 M45ED LD A,D z 45EE C9 00525 M45EE RET I ; 45EF 3EA5 00526 LD A,0A5H >% 45F1 EF 00527 RST 28H o ; 45F2 F5 00528 M45F2 PUSH AF u 45F3 E5 00529 PUSH HL e 45F4 D5 00530 PUSH DE U 45F5 C5 00531 PUSH BC E 45F6 3AE037 00532 LD A,(M37E0) :`7 45F9 07 00533 RLCA . 45FA CD5340 00534 CALL M4053 MS@ 45FD DC1046 00535 CALL C,M4610 \.F 4600 CDBE45 00536 CALL M45BE M>E 4603 C1 00537 POP BC A 4604 D1 00538 POP DE Q 4605 E1 00539 POP HL a 4606 F1 00540 POP AF q 4607 FB 00541 EI . 4608 C9 00542 RET I ; 4609 F5 00543 M4609 PUSH AF u 460A 3E27 00544 M460A LD A,27H >' ; Load and enter DEBUG 460C EF 00545 RST 28H o 460D 70 00546 M460D LD (HL),B p 460E 23 00547 INC HL # 460F E9 00548 JP (HL) i 4610 214040 00549 M4610 LD HL,M4040 !@@ 4613 34 00550 INC (HL) 4 4614 213745 00551 LD HL,M4537 !7E 4617 7E 00552 LD A,(HL) . 4618 B7 00553 OR A 7 4619 2801 00554 JR Z,M461C (. 461B 35 00555 DEC (HL) 5 461C 21C944 00556 M461C LD HL,M44C9 !ID 461F 7C 00557 M461F LD A,H . 4620 B5 00558 OR L 5 4621 C8 00559 RET Z H 4622 5E 00560 LD E,(HL) ^ 4623 23 00561 INC HL # 4624 56 00562 LD D,(HL) V 4625 D5 00563 PUSH DE U 4626 23 00564 INC HL # 4627 46 00565 LD B,(HL) F 4628 23 00566 INC HL # 4629 35 00567 DEC (HL) 5 462A CC0D46 00568 CALL Z,M460D L.F 462D E1 00569 POP HL a 462E 18EF 00570 JR M461F .o 4630 3E88 00571 M4630 LD A,88H >. 4632 180E 00572 JR M4642 .. 4634 E5 00573 M4634 PUSH HL e 4635 2601 00574 LD H,01H &. 4637 CD3046 00575 CALL M4630 M0F 463A E1 00576 POP HL a 463B C9 00577 RET I ; write to disk 463C 3EA9 00578 M463C LD A,0A9H >) 00579 M463D EQU $-1 463E 1802 00580 JR M4642 .. 4640 3EA8 00581 M4640 LD A,0A8H >( 4642 32C446 00582 M4642 LD (M46C4),A 2DF 4645 E620 00583 AND ' ' f 4647 C5 00584 PUSH BC E 4648 011A02 00585 LD BC,M021A ... 464B 2805 00586 JR Z,M4652 (. 464D 3E08 00587 LD A,08H >. 464F 01120A 00588 LD BC,M0A12 ... 4652 323147 00589 M4652 LD (M4731),A 21G 4655 ED43FC46 00590 LD (M46FC),BC mC.F 4659 060A 00591 LD B,0AH .. 00592 M465A EQU $-1 465B CD7347 00593 CALL M4773 MsG 465E 2018 00594 JR NZ,M4678 . 4660 C5 00595 M4660 PUSH BC E 4661 D5 00596 PUSH DE U 4662 E5 00597 PUSH HL e 4663 3A0E43 00598 LD A,(M430E) :.C 4666 EB 00599 EX DE,HL k 4667 CDB44C 00600 CALL M4CB4 M4L 466A 55 00601 LD D,L U 466B 5F 00602 LD E,A _ 466C 210D43 00603 LD HL,M430D !.C 466F 7A 00604 LD A,D z 4670 BE 00605 CP (HL) > 4671 3809 00606 JR C,M467C 8. 4673 3E14 00607 LD A,14H >. 4675 E1 00608 POP HL a 4676 D1 00609 POP DE Q 4677 C1 00610 POP BC A 4678 B7 00611 M4678 OR A 7 4679 C33747 00612 JP M4737 C7G 467C 3A1143 00613 M467C LD A,(M4311) :.C 467F 47 00614 LD B,A G 4680 CB40 00615 BIT 0,B K@ 4682 2805 00616 JR Z,M4689 (. 4684 21C446 00617 LD HL,M46C4 !DF 4687 CB8E 00618 RES 1,(HL) K. 4689 210943 00619 M4689 LD HL,M4309 !.C 468C CB48 00620 BIT 1,B KH 468E 2801 00621 JR Z,M4691 (. 4690 14 00622 INC D . 4691 D5 00623 M4691 PUSH DE U 4692 CB50 00624 BIT 2,B KP 4694 2802 00625 JR Z,M4698 (. 4696 CB02 00626 RLC D K. 4698 CB70 00627 M4698 BIT 6,B Kp 469A 2809 00628 JR Z,M46A5 (. 469C CB09 00629 RRC C K. 469E 7B 00630 LD A,E . 469F 91 00631 SUB C . 46A0 3803 00632 JR C,M46A5 8. 46A2 5F 00633 LD E,A _ 46A3 CBDE 00634 SET 3,(HL) K^ 46A5 CD6747 00635 M46A5 CALL M4767 MgG 46A8 CB60 00636 BIT 4,B K` 46AA 2801 00637 JR Z,M46AD (. 46AC 1C 00638 INC E . 46AD ED53EE37 00639 M46AD LD (M37EE),DE mSn7 46B1 0E18 00640 LD C,18H .. 46B3 CD4747 00641 CALL M4747 MGG 46B6 F1 00642 POP AF q 46B7 C1 00643 POP BC A 46B8 C5 00644 PUSH BC E 46B9 32ED37 00645 LD (M37ED),A 2m7 46BC D5 00646 PUSH DE U 46BD 11EF37 00647 LD DE,M37EF .o7 46C0 21EC37 00648 LD HL,M37EC !l7 46C3 3600 00649 LD (HL),00H 6. 00650 M46C4 EQU $-1 46C5 CDE347 00651 CALL M47E3 McG 46C8 F3 00652 DI s 46C9 CB46 00653 BIT 0,(HL) KF 46CB 284A 00654 JR Z,M4717 (J 46CD 3AC446 00655 LD A,(M46C4) :DF 46D0 CB6F 00656 BIT 5,A Ko 46D2 2822 00657 JR Z,M46F6 (" 46D4 3E83 00658 M46D4 LD A,83H >. 46D6 A6 00659 AND (HL) & 46D7 E2D446 00660 JP PO,M46D4 bTF 46DA 0A 00661 LD A,(BC) . 46DB 12 00662 LD (DE),A . ; data to FDC_DR - write 46DC 03 00663 INC BC . 46DD 0A 00664 LD A,(BC) . 46DE 32E846 00665 LD (M46E8),A 2hF 46E1 03 00666 INC BC . 46E2 3E01 00667 LD A,01H >. 46E4 BE 00668 M46E4 CP (HL) > 46E5 28FD 00669 JR Z,M46E4 (. 46E7 3E00 00670 LD A,00H >. 00671 M46E8 EQU $-1 46E9 12 00672 LD (DE),A . 46EA 0A 00673 LD A,(BC) . 46EB 03 00674 INC BC . 46EC CB4E 00675 BIT 1,(HL) KN 46EE 200C 00676 JR NZ,M46FC . 46F0 CB4E 00677 BIT 1,(HL) KN 46F2 2008 00678 JR NZ,M46FC . 46F4 1809 00679 JR M46FF .. 46F6 3E83 00680 M46F6 LD A,83H >. 46F8 A6 00681 AND (HL) & 46F9 E2F646 00682 JP PO,M46F6 bvF 46FC 1A 00683 M46FC LD A,(DE) . 46FD 02 00684 LD (BC),A . 46FE 03 00685 INC BC . 46FF CB4E 00686 M46FF BIT 1,(HL) KN 4701 20F9 00687 JR NZ,M46FC y 4703 CB4E 00688 BIT 1,(HL) KN 4705 20F5 00689 JR NZ,M46FC u 4707 CB4E 00690 BIT 1,(HL) KN 4709 20F1 00691 JR NZ,M46FC q 470B CB46 00692 BIT 0,(HL) KF 470D 2808 00693 JR Z,M4717 (. 470F CB4E 00694 BIT 1,(HL) KN 4711 20E9 00695 JR NZ,M46FC i 4713 CB7E 00696 BIT 7,(HL) K. 4715 28E8 00697 JR Z,M46FF (h 4717 7E 00698 M4717 LD A,(HL) . 4718 36D0 00699 LD (HL),0D0H 6P 471A 23 00700 INC HL # 471B C1 00701 POP BC A 471C 70 00702 LD (HL),B p 471D E1 00703 POP HL a 471E D1 00704 POP DE Q 471F C1 00705 POP BC A 4720 FB 00706 EI . 4721 E6FC 00707 AND 0FCH f. 4723 2812 00708 JR Z,M4737 (. 4725 4F 00709 LD C,A O 4726 E69C 00710 AND 9CH f. 4728 2806 00711 JR Z,M4730 (. 472A 4F 00712 LD C,A O 472B 87 00713 ADD A,A . 472C 2802 00714 JR Z,M4730 (. 472E 100A 00715 DJNZ M473A .. 4730 3E00 00716 M4730 LD A,00H >. 00717 M4731 EQU $-1 4732 3C 00718 M4732 INC A < 4733 CB09 00719 RRC C K. 4735 30FB 00720 JR NC,M4732 0. 4737 FB 00721 M4737 EI . 4738 C1 00722 POP BC A 4739 C9 00723 RET I 473A CB61 00724 M473A BIT 4,C Ka 473C C44247 00725 CALL NZ,M4742 DBG 473F C36046 00726 JP M4660 C`F 4742 CB40 00727 M4742 BIT 0,B K@ 4744 C8 00728 RET Z H 4745 0E08 00729 LD C,08H .. 4747 3A0C43 00730 M4747 LD A,(M430C) :.C 474A E603 00731 AND 03H f. 474C B1 00732 OR C 1 474D 32EC37 00733 M474D LD (M37EC),A 2l7 4750 CDE347 00734 M4750 CALL M47E3 McG 4753 CB47 00735 BIT 0,A KG 4755 C8 00736 RET Z H 4756 07 00737 RLCA . 4757 3805 00738 JR C,M475E 8. 4759 CD6747 00739 M4759 CALL M4767 MgG 475C 18F2 00740 JR M4750 .r 475E 3ED0 00741 M475E LD A,0D0H >P 4760 18EB 00742 JR M474D .k 4762 3AEC37 00743 M4762 LD A,(M37EC) :l7 4765 07 00744 RLCA . 4766 D8 00745 RET C X 4767 3A0943 00746 M4767 LD A,(M4309) :.C 476A 32E137 00747 LD (M37E1),A 2a7 476D C9 00748 RET I 476E DD7E06 00749 M476E LD A,(IX+06H) ].. 4771 1803 00750 JR M4776 .. ; Select and power up the specified drive 4773 3A0843 00751 M4773 LD A,(M4308) :.C 4776 E5 00752 M4776 PUSH HL e 4777 D5 00753 PUSH DE U 4778 C5 00754 PUSH BC E 4779 FE01 00755 CP 01H .. 00756 M477A EQU $-1 477B 4F 00757 LD C,A O 477C 3E20 00758 LD A,' ' > 477E 305E 00759 JR NC,M47DE 0^ 4780 CD5E47 00760 CALL M475E M^G 4783 210843 00761 LD HL,M4308 !.C 4786 7E 00762 LD A,(HL) . 4787 71 00763 LD (HL),C q 4788 B9 00764 CP C 9 4789 F5 00765 PUSH AF u 478A 6F 00766 LD L,A o 478B 3AED37 00767 LD A,(M37ED) :m7 478E 77 00768 LD (HL),A w 478F 69 00769 LD L,C i 4790 E5 00770 PUSH HL e 4791 41 00771 LD B,C A 4792 3E80 00772 LD A,80H >. 4794 04 00773 INC B . 4795 07 00774 M4795 RLCA . 4796 10FD 00775 DJNZ M4795 .. 4798 320943 00776 LD (M4309),A 2.C 479B 79 00777 LD A,C y 479C 07 00778 RLCA . 479D 07 00779 RLCA . 479E 81 00780 ADD A,C . 479F 87 00781 ADD A,A . 47A0 C671 00782 ADD A,'q' Fq 47A2 6F 00783 LD L,A o 47A3 229943 00784 LD (M4399),HL ".C 47A6 0E08 00785 LD C,08H .. 47A8 110A43 00786 LD DE,M430A ..C 47AB EDB0 00787 LDIR m0 47AD 21EC37 00788 LD HL,M37EC !l7 47B0 5E 00789 LD E,(HL) ^ 47B1 F3 00790 DI s 47B2 3A1143 00791 LD A,(M4311) :.C 47B5 F6FE 00792 OR 0FEH v. 47B7 77 00793 LD (HL),A w 47B8 36D0 00794 LD (HL),0D0H 6P 47BA FB 00795 EI . 47BB 23 00796 INC HL # 47BC C1 00797 POP BC A 47BD 0A 00798 LD A,(BC) . 47BE 77 00799 LD (HL),A w 47BF 23 00800 INC HL # 47C0 3A1043 00801 LD A,(M4310) :.C 47C3 77 00802 LD (HL),A w 47C4 CD5E47 00803 CALL M475E M^G 47C7 CD5947 00804 CALL M4759 MYG 47CA 0680 00805 LD B,80H .. 47CC CB7B 00806 BIT 7,E K. 47CE C4ED4C 00807 CALL NZ,M4CED DmL 47D1 F1 00808 POP AF q 47D2 2809 00809 JR Z,M47DD (. 47D4 3A0C43 00810 LD A,(M430C) :.C 47D7 07 00811 RLCA . 47D8 060C 00812 LD B,0CH .. 47DA DCED4C 00813 CALL C,M4CED \mL 47DD AF 00814 M47DD XOR A / 47DE C1 00815 M47DE POP BC A 47DF D1 00816 POP DE Q 47E0 E1 00817 POP HL a 47E1 B7 00818 OR A 7 47E2 C9 00819 RET I 47E3 3E06 00820 M47E3 LD A,06H >. 00821 M47E4 EQU $-1 47E5 3D 00822 M47E5 DEC A = 47E6 20FD 00823 JR NZ,M47E5 . 47E8 3AEC37 00824 M47E8 LD A,(M37EC) :l7 47EB C9 00825 RET I 47EC CD7647 00826 M47EC CALL M4776 MvG ; Test for mounted diskette 47EF C0 00827 RET NZ @ 47F0 E5 00828 PUSH HL e 47F1 D5 00829 PUSH DE U 47F2 C5 00830 PUSH BC E 47F3 110000 00831 LD DE,M0000 ... 00832 M47F4 EQU $-2 47F6 21EC37 00833 LD HL,M37EC !l7 47F9 46 00834 LD B,(HL) F 47FA 7E 00835 M47FA LD A,(HL) . 47FB A8 00836 XOR B ( 47FC E602 00837 AND 02H f. 47FE 20DD 00838 JR NZ,M47DD ] 4800 1B 00839 DEC DE . 4801 7A 00840 LD A,D z 4802 B3 00841 OR E 3 4803 20F5 00842 JR NZ,M47FA u 4805 3E08 00843 LD A,08H >. 4807 18D5 00844 JR M47DE .U 4809 CD8049 00845 M4809 CALL M4980 M.I ; Allocate File space 480C CDB749 00846 M480C CALL M49B7 M7I 480F AF 00847 XOR A / 4810 32BB48 00848 M4810 LD (M48BB),A 2;H 4813 CD6E47 00849 M4813 CALL M476E MnG 4816 205A 00850 JR NZ,M4872 Z 4818 CD6849 00851 CALL M4968 MhI 481B EB 00852 EX DE,HL k 481C DD7E00 00853 LD A,(IX+00H) ].. 481F 0F 00854 RRCA . 4820 0F 00855 RRCA . 4821 3830 00856 JR C,M4853 80 4823 0F 00857 RRCA . 4824 3E2D 00858 M4824 LD A,'-' >- 4826 384A 00859 JR C,M4872 8J 4828 EB 00860 EX DE,HL k 4829 CDB24C 00861 CALL M4CB2 M2L 482C 0E0E 00862 LD C,0EH .. 482E EB 00863 EX DE,HL k 482F DDE5 00864 PUSH IX ]e 4831 E1 00865 POP HL a 4832 09 00866 ADD HL,BC . 4833 F5 00867 PUSH AF u 4834 E5 00868 PUSH HL e 4835 D5 00869 PUSH DE U 4836 3E08 00870 LD A,08H >. 4838 08 00871 M4838 EX AF,AF' . 4839 7E 00872 LD A,(HL) . 483A 3C 00873 INC A < 483B 23 00874 INC HL # 483C 2854 00875 JR Z,M4892 (T 483E 7E 00876 LD A,(HL) . 483F CDE948 00877 CALL M48E9 MiH 4842 3031 00878 JR NC,M4875 01 4844 09 00879 ADD HL,BC . 4845 EB 00880 EX DE,HL k 4846 AE 00881 XOR (HL) . 4847 07 00882 RLCA . 4848 07 00883 RLCA . 4849 07 00884 RLCA . 484A 83 00885 ADD A,E . 484B 5F 00886 LD E,A _ 484C F1 00887 POP AF q 484D F1 00888 POP AF q 484E F1 00889 POP AF q 484F 2B 00890 DEC HL + 4850 CD7C4C 00891 CALL M4C7C M.L 4853 DD6E03 00892 M4853 LD L,(IX+03H) ]n. 4856 DD6604 00893 LD H,(IX+04H) ]f. 4859 AF 00894 XOR A / 485A C9 00895 RET I 485B C1 00896 M485B POP BC A 485C C1 00897 POP BC A 485D E1 00898 POP HL a 485E ED52 00899 SBC HL,DE mR 4860 09 00900 ADD HL,BC . 4861 44 00901 LD B,H D 4862 4D 00902 LD C,L M 4863 F5 00903 PUSH AF u 4864 CD2F49 00904 CALL M492F M/I 4867 2009 00905 M4867 JR NZ,M4872 . 4869 3EFF 00906 LD A,0FFH >. 00907 M486A EQU $-1 486B 23 00908 INC HL # 486C BE 00909 CP (HL) > 486D 2B 00910 DEC HL + 486E 282F 00911 JR Z,M489F (/ 4870 3E2C 00912 M4870 LD A,',' >, 4872 C3CD49 00913 M4872 JP M49CD CMI 4875 EB 00914 M4875 EX DE,HL k 4876 23 00915 INC HL # 4877 DDCB015E 00916 BIT 3,(IX+01H) ]K.^ 487B 37 00917 SCF 7 487C 28A6 00918 JR Z,M4824 (& 487E 08 00919 EX AF,AF' . 487F FE05 00920 CP 05H .. 4881 200C 00921 JR NZ,M488F . 4883 4E 00922 LD C,(HL) N 4884 23 00923 INC HL # 4885 46 00924 LD B,(HL) F 4886 23 00925 INC HL # 4887 D1 00926 POP DE Q 4888 D5 00927 PUSH DE U 4889 EB 00928 EX DE,HL k 488A ED42 00929 SBC HL,BC mB 488C EB 00930 EX DE,HL k 488D 3803 00931 JR C,M4892 8. 488F 3D 00932 M488F DEC A = 4890 20A6 00933 JR NZ,M4838 & 4892 010000 00934 M4892 LD BC,M0000 ... 4895 D1 00935 POP DE Q 4896 CD4B49 00936 CALL M494B MKI 4899 20CC 00937 JR NZ,M4867 L 489B DD7E07 00938 LD A,(IX+07H) ].. 489E F5 00939 PUSH AF u 489F F1 00940 M489F POP AF q 48A0 326A48 00941 LD (M486A),A 2jH 48A3 CB66 00942 M48A3 BIT 4,(HL) Kf 48A5 28C9 00943 JR Z,M4870 (I 48A7 D5 00944 PUSH DE U 48A8 C5 00945 PUSH BC E 48A9 7D 00946 LD A,L . 48AA C616 00947 ADD A,16H F. 48AC 6F 00948 LD L,A o 48AD E5 00949 PUSH HL e 48AE 7E 00950 M48AE LD A,(HL) . 48AF FEFE 00951 CP 0FEH .. 48B1 23 00952 INC HL # 48B2 7E 00953 LD A,(HL) . 48B3 23 00954 INC HL # 48B4 3810 00955 JR C,M48C6 8. 48B6 28A3 00956 JR Z,M485B (# 48B8 3E3E 00957 LD A,'>' >> 48BA 1800 00958 JR M48BC .. 00959 M48BB EQU $-1 48BC F1 00960 M48BC POP AF q 48BD 3E64 00961 LD A,'d' >d 48BF CDDD49 00962 CALL M49DD M]I 48C2 C1 00963 POP BC A 48C3 D1 00964 POP DE Q 48C4 18DD 00965 JR M48A3 .] 48C6 CB65 00966 M48C6 BIT 4,L Ke 48C8 28A6 00967 JR Z,M4870 (& 48CA CDE948 00968 CALL M48E9 MiH 48CD EB 00969 EX DE,HL k 48CE 30DE 00970 JR NC,M48AE 0^ 48D0 C1 00971 POP BC A 48D1 D1 00972 POP DE Q 48D2 F1 00973 POP AF q 48D3 E1 00974 POP HL a 48D4 F1 00975 POP AF q 48D5 C5 00976 PUSH BC E 48D6 010800 00977 LD BC,M0008 ... 48D9 7A 00978 LD A,D z 48DA B3 00979 OR E 3 48DB 2805 00980 JR Z,M48E2 (. 48DD 09 00981 ADD HL,BC . 48DE 73 00982 LD (HL),E s 48DF 23 00983 INC HL # 48E0 72 00984 LD (HL),D r 48E1 23 00985 INC HL # 48E2 EB 00986 M48E2 EX DE,HL k 48E3 E1 00987 POP HL a 48E4 EDB0 00988 LDIR m0 48E6 C31348 00989 JP M4813 C.H 48E9 E61F 00990 M48E9 AND 1FH f. 48EB 4F 00991 LD C,A O 48EC 0600 00992 LD B,00H .. 48EE 03 00993 INC BC . 48EF EB 00994 EX DE,HL k 48F0 ED42 00995 SBC HL,BC mB 48F2 C9 00996 RET I 48F3 3A0242 00997 M48F3 LD A,(M4202) :.B 48F6 2A9943 00998 LD HL,(M4399) *.C 48F9 77 00999 LD (HL),A w 48FA 3A3049 01000 LD A,(M4930) :0I 48FD CD744C 01001 M48FD CALL M4C74 MtL 4900 CD3046 01002 CALL M4630 M0F 4903 2002 01003 M4903 JR NZ,M4907 . 4905 F631 01004 OR '1' v1 4907 FE06 01005 M4907 CP 06H .. 4909 C9 01006 RET I 490A D5 01007 M490A PUSH DE U 490B C5 01008 PUSH BC E 490C CDFD48 01009 CALL M48FD M.H 490F 280B 01010 JR Z,M491C (. 4911 110000 01011 M4911 LD DE,M0000 ... 4914 CD3046 01012 CALL M4630 M0F 4917 CCF348 01013 CALL Z,M48F3 LsH 491A 3E11 01014 LD A,11H >. 491C C1 01015 M491C POP BC A 491D D1 01016 POP DE Q 491E C9 01017 RET I 491F 3A3049 01018 M491F LD A,(M4930) :0I 4922 D5 01019 PUSH DE U 4923 C5 01020 PUSH BC E 4924 CD744C 01021 CALL M4C74 MtL 4927 B4 01022 OR H 4 4928 CDB84A 01023 CALL M4AB8 M8J 492B 3E12 01024 LD A,12H >. 492D 18ED 01025 JR M491C .m 492F 2EFF 01026 M492F LD L,0FFH .. 01027 M4930 EQU $-1 4931 1805 01028 JR M4938 .. 4933 DD7E07 01029 M4933 LD A,(IX+07H) ].. 4936 2EFF 01030 M4936 LD L,0FFH .. 4938 F5 01031 M4938 PUSH AF u 4939 E61F 01032 AND 1FH f. 493B 3C 01033 INC A < 493C 3C 01034 INC A < 493D BD 01035 CP L = 493E C40A49 01036 CALL NZ,M490A D.I 4941 E1 01037 POP HL a 4942 C0 01038 RET NZ @ 4943 3EE0 01039 LD A,0E0H >` 4945 A4 01040 AND H $ 4946 6F 01041 LD L,A o 4947 2642 01042 LD H,'B' &B 4949 BF 01043 CP A ? 494A C9 01044 RET I 494B CD6E47 01045 M494B CALL M476E MnG 494E CC3349 01046 CALL Z,M4933 L3I 4951 C0 01047 RET NZ @ 4952 E5 01048 PUSH HL e 4953 C616 01049 ADD A,16H F. 4955 6F 01050 LD L,A o 4956 DD7E0E 01051 LD A,(IX+0EH) ].. 4959 BE 01052 CP (HL) > 495A E1 01053 POP HL a 495B 2803 01054 JR Z,M4960 (. 495D 3C 01055 INC A < 495E 2005 01056 JR NZ,M4965 . 4960 7E 01057 M4960 LD A,(HL) . 4961 E690 01058 AND 90H f. 4963 FE10 01059 CP 10H .. 4965 3E2D 01060 M4965 LD A,'-' >- 4967 C9 01061 RET I 4968 DD4E05 01062 M4968 LD C,(IX+05H) ]N. 496B DD6E0A 01063 LD L,(IX+0AH) ]n. 496E DD660B 01064 LD H,(IX+0BH) ]f. 4971 7C 01065 LD A,H . 4972 DDBE0D 01066 CP (IX+0DH) ]>. 4975 C0 01067 RET NZ @ 4976 7D 01068 LD A,L . 4977 DDBE0C 01069 CP (IX+0CH) ]>. 497A C0 01070 RET NZ @ 497B 79 01071 LD A,C y 497C DDBE08 01072 CP (IX+08H) ]>. 497F C9 01073 RET I 4980 1A 01074 M4980 LD A,(DE) . 4981 07 01075 RLCA . 4982 3E26 01076 LD A,'&' >& 4984 3001 01077 JR NC,M4987 0. 4986 AF 01078 XOR A / 4987 08 01079 M4987 EX AF,AF' . 4988 E3 01080 EX (SP),HL c 4989 22A649 01081 LD (M49A6),HL "&I 498C E1 01082 POP HL a 498D FDE5 01083 PUSH IY .e 498F E5 01084 PUSH HL e 4990 D5 01085 PUSH DE U 4991 C5 01086 PUSH BC E 4992 F5 01087 PUSH AF u 4993 D5 01088 PUSH DE U 4994 DDE3 01089 EX (SP),IX ]c 4996 E5 01090 PUSH HL e 4997 2ACE49 01091 LD HL,(M49CE) *NI 499A E3 01092 EX (SP),HL c 499B ED73CE49 01093 LD (M49CE),SP msNI 499F FD218043 01094 LD IY,M4380 .!.C ; PDRIVE 1 storage area, byte 4 (5th byte) 49A3 08 01095 EX AF,AF' . 49A4 B7 01096 OR A 7 49A5 CC0000 01097 CALL Z,M0000 L.. ; restart 01098 M49A6 EQU $-2 49A8 E1 01099 M49A8 POP HL a 49A9 22CE49 01100 LD (M49CE),HL "NI 49AC 08 01101 EX AF,AF' . 49AD DDE1 01102 POP IX ]a 49AF F1 01103 POP AF q 49B0 C1 01104 POP BC A 49B1 D1 01105 POP DE Q 49B2 E1 01106 POP HL a 49B3 FDE1 01107 POP IY .a 49B5 08 01108 EX AF,AF' . 49B6 C9 01109 RET I 49B7 0605 01110 M49B7 LD B,05H .. 49B9 DD7E01 01111 M49B9 LD A,(IX+01H) ].. 49BC E607 01112 AND 07H f. 49BE B8 01113 CP B 8 49BF D8 01114 RET C X 49C0 3E25 01115 LD A,'%' >% 49C2 1809 01116 JR M49CD .. 49C4 CD6849 01117 M49C4 CALL M4968 MhI 49C7 D8 01118 RET C X 49C8 3E1C 01119 LD A,1CH >. 49CA 2801 01120 JR Z,M49CD (. 49CC 3C 01121 INC A < 49CD 310000 01122 M49CD LD SP,M0000 1.. 01123 M49CE EQU $-2 49D0 B7 01124 OR A 7 49D1 18D5 01125 JR M49A8 .U 49D3 C20944 01126 JP NZ,M4409 B.D ; Jump to DOS Error Exit 49D6 AF 01127 XOR A / 49D7 20F4 01128 JR NZ,M49CD t 49D9 E3 01129 EX (SP),HL c 49DA 7C 01130 LD A,H . 49DB 4D 01131 LD C,L M 49DC E1 01132 POP HL a 49DD EF 01133 M49DD RST 28H o 49DE DDCB017E 01134 M49DE BIT 7,(IX+01H) ]K.. 49E2 C8 01135 RET Z H 49E3 D1 01136 POP DE Q 49E4 DD4609 01137 LD B,(IX+09H) ]F. 49E7 F5 01138 M49E7 PUSH AF u 49E8 E5 01139 PUSH HL e 49E9 C5 01140 PUSH BC E 49EA 4E 01141 LD C,(HL) N 49EB CDED4A 01142 CALL M4AED MmJ 49EE 20DD 01143 JR NZ,M49CD ] 49F0 5F 01144 LD E,A _ 49F1 C1 01145 POP BC A 49F2 E1 01146 POP HL a 49F3 F1 01147 POP AF q 49F4 3001 01148 JR NC,M49F7 0. 49F6 73 01149 LD (HL),E s 49F7 23 01150 M49F7 INC HL # 49F8 10ED 01151 DJNZ M49E7 .m 49FA AF 01152 XOR A / 49FB C9 01153 RET I 49FC CD8049 01154 M49FC CALL M4980 M.I ; Read sector or logical record from disk 49FF 37 01155 SCF 7 4A00 CDDE49 01156 CALL M49DE M^I 4A03 CD194A 01157 CALL M4A19 M.J 4A06 2803 01158 JR Z,M4A0B (. 4A08 FE06 01159 CP 06H .. 4A0A C0 01160 RET NZ @ 4A0B DD340A 01161 M4A0B INC (IX+0AH) ]4. 4A0E 2003 01162 JR NZ,M4A13 . 4A10 DD340B 01163 INC (IX+0BH) ]4. 4A13 DDCB01EE 01164 M4A13 SET 5,(IX+01H) ]K.n 4A17 B7 01165 OR A 7 4A18 C9 01166 RET I 4A19 0606 01167 M4A19 LD B,06H .. 4A1B CDB949 01168 CALL M49B9 M9I 4A1E CDC449 01169 CALL M49C4 MDI 4A21 3EB6 01170 M4A21 LD A,0B6H >6 4A23 CD1048 01171 CALL M4810 M.H 4A26 CD3046 01172 CALL M4630 M0F 4A29 DDCB01AE 01173 M4A29 RES 5,(IX+01H) ]K.. 4A2D DDCB01A6 01174 M4A2D RES 4,(IX+01H) ]K.& 4A31 C9 01175 RET I 4A32 3EF6 01176 M4A32 LD A,0F6H >v ; Write sector or logical record to disk with verify read 4A34 1802 01177 JR M4A38 .. 4A36 3EE6 01178 M4A36 LD A,0E6H >f ; Write sector or logical record to disk 4A38 328B4A 01179 M4A38 LD (M4A8B),A 2.J 4A3B CD8049 01180 CALL M4980 M.I 4A3E CDDE49 01181 CALL M49DE M^I 4A41 CD674A 01182 M4A41 CALL M4A67 MgJ 4A44 C0 01183 RET NZ @ 4A45 DD7E05 01184 LD A,(IX+05H) ].. 4A48 B7 01185 OR A 7 4A49 CC0B4A 01186 CALL Z,M4A0B L.J 4A4C CD6849 01187 M4A4C CALL M4968 MhI 4A4F 3006 01188 JR NC,M4A57 0. 4A51 DDCB0176 01189 BIT 6,(IX+01H) ]K.v 4A55 2009 01190 JR NZ,M4A60 . 4A57 DD7108 01191 M4A57 LD (IX+08H),C ]q. 4A5A DD750C 01192 LD (IX+0CH),L ]u. 4A5D DD740D 01193 LD (IX+0DH),H ]t. 4A60 AF 01194 M4A60 XOR A / 4A61 C9 01195 RET I 4A62 DDCB0166 01196 M4A62 BIT 4,(IX+01H) ]K.f 4A66 C8 01197 RET Z H 4A67 CD0C48 01198 M4A67 CALL M480C M.H 4A6A DDCB026E 01199 BIT 5,(IX+02H) ]K.n 4A6E 2018 01200 JR NZ,M4A88 . 4A70 DDCB004E 01201 BIT 1,(IX+00H) ]K.N 4A74 2012 01202 JR NZ,M4A88 . 4A76 E5 01203 PUSH HL e 4A77 CD4B49 01204 CALL M494B MKI 4A7A 2003 01205 JR NZ,M4A7F . 4A7C 23 01206 INC HL # 4A7D CBEE 01207 SET 5,(HL) Kn 4A7F CC1F49 01208 M4A7F CALL Z,M491F L.I 4A82 E1 01209 POP HL a 4A83 C0 01210 RET NZ @ 4A84 DDCB02EE 01211 SET 5,(IX+02H) ]K.n 4A88 DD7E01 01212 M4A88 LD A,(IX+01H) ].. 4A8B E690 01213 M4A8B AND 90H f. 4A8D DDCB0046 01214 BIT 0,(IX+00H) ]K.F 4A91 CDB84A 01215 CALL M4AB8 M8J 4A94 C0 01216 RET NZ @ 4A95 AF 01217 XOR A / 4A96 1895 01218 JR M4A2D .. 4A98 2812 01219 M4A98 JR Z,M4AAC (. 4A9A C5 01220 PUSH BC E 4A9B CD0C48 01221 CALL M480C M.H 4A9E CD6849 01222 CALL M4968 MhI 4AA1 2001 01223 JR NZ,M4AA4 . 4AA3 B7 01224 OR A 7 4AA4 C4214A 01225 M4AA4 CALL NZ,M4A21 D!J 4AA7 C1 01226 POP BC A 4AA8 C0 01227 RET NZ @ 4AA9 CD294A 01228 CALL M4A29 M)J 4AAC CD0B4B 01229 M4AAC CALL M4B0B M.K 4AAF 71 01230 LD (HL),C q 4AB0 DDCB01E6 01231 SET 4,(IX+01H) ]K.f 4AB4 288B 01232 JR Z,M4A41 (. 4AB6 1894 01233 JR M4A4C .. 4AB8 4F 01234 M4AB8 LD C,A O 4AB9 0603 01235 LD B,03H .. 01236 M4ABA EQU $-1 4ABB 200D 01237 JR NZ,M4ACA . 4ABD CD4046 01238 M4ABD CALL M4640 M@F 4AC0 C0 01239 RET NZ @ 4AC1 79 01240 LD A,C y 4AC2 B7 01241 OR A 7 4AC3 C43446 01242 CALL NZ,M4634 D4F 4AC6 C8 01243 RET Z H 4AC7 10F4 01244 DJNZ M4ABD .t 4AC9 C9 01245 RET I 4ACA CD3C46 01246 M4ACA CALL M463C M. 4B88 2006 01355 JR NZ,M4B90 . 4B8A 7D 01356 LD A,L . 4B8B DDBE0A 01357 CP (IX+0AH) ]>. 4B8E 2811 01358 JR Z,M4BA1 (. 4B90 E5 01359 M4B90 PUSH HL e 4B91 C5 01360 PUSH BC E 4B92 CD624A 01361 CALL M4A62 MbJ 4B95 C1 01362 POP BC A 4B96 E1 01363 POP HL a 4B97 C0 01364 RET NZ @ 4B98 CD134A 01365 CALL M4A13 M.J 4B9B DD750A 01366 LD (IX+0AH),L ]u. 4B9E DD740B 01367 LD (IX+0BH),H ]t. 4BA1 DD7105 01368 M4BA1 LD (IX+05H),C ]q. 4BA4 AF 01369 XOR A / 4BA5 C9 01370 RET I 4BA6 D5 01371 M4BA6 PUSH DE U ; Send message to the display 4BA7 111D40 01372 LD DE,M401D ..@ 4BAA E5 01373 M4BAA PUSH HL e ; Send message to the selected device 4BAB 7E 01374 M4BAB LD A,(HL) . 4BAC FE03 01375 CP 03H .. ; ETX 4BAE 2809 01376 JR Z,M4BB9 (. ; End of Text means we're ready 4BB0 CD1B00 01377 CALL M001B M.. ; ROM video and printer routine 4BB3 7E 01378 LD A,(HL) . 4BB4 FE0D 01379 CP 0DH .. ; CR 4BB6 23 01380 INC HL # 4BB7 20F2 01381 JR NZ,M4BAB r ; Next char 4BB9 E1 01382 M4BB9 POP HL a 4BBA D1 01383 POP DE Q 4BBB C9 01384 RET I 4BBC D5 01385 M4BBC PUSH DE U ; Send message to the printer 4BBD 112540 01386 LD DE,M4025 .%@ ; THE DCB Type Value ( 06 ) 4BC0 18E8 01387 JR M4BAA .h 4BC2 33 01388 M4BC2 INC SP 3 ; DOS Function Call Restart 4BC3 33 01389 INC SP 3 ; Restore stack from RST28 call 4BC4 FE20 01390 CP ' ' . 4BC6 DA1243 01391 JP C,M4312 Z.C ; A < 20 ? then Jump to (XOR A and RET) 4BC9 E5 01392 PUSH HL e 4BCA D5 01393 PUSH DE U 4BCB C5 01394 PUSH BC E 4BCC F5 01395 PUSH AF u 4BCD 216943 01396 LD HL,M4369 !iC ; SYSTEM Storage 4BD0 CBF6 01397 SET 6,(HL) Kv ; Set a bit at 0x4369, System storage ?set RST mode? 4BD2 21BE45 01398 LD HL,M45BE !>E 4BD5 3600 01399 LD (HL),00H 6. 4BD7 FB 01400 EI . 4BD8 E61F 01401 AND 1FH f. ; leave only lower 5 bits; the SYS*/SYS module 4BDA 211743 01402 LD HL,M4317 !.C 4BDD BE 01403 CP (HL) > 4BDE 2839 01404 JR Z,M4C19 (9 4BE0 77 01405 LD (HL),A w 4BE1 E607 01406 AND 07H f. 4BE3 4F 01407 LD C,A O 4BE4 AF 01408 XOR A / 4BE5 32D843 01409 LD (M43D8),A 2XC 4BE8 CD7647 01410 CALL M4776 MvG 4BEB 7E 01411 LD A,(HL) . 4BEC 91 01412 SUB C . 4BED 07 01413 RLCA . 4BEE 07 01414 RLCA . 4BEF 81 01415 ADD A,C . 4BF0 CD3649 01416 CALL M4936 M6I 4BF3 2019 01417 JR NZ,M4C0E . 4BF5 CB76 01418 BIT 6,(HL) Kv 4BF7 2815 01419 JR Z,M4C0E (. 4BF9 C616 01420 ADD A,16H F. 4BFB 6F 01421 LD L,A o 4BFC 5E 01422 LD E,(HL) ^ 4BFD 23 01423 INC HL # 4BFE 56 01424 LD D,(HL) V 4BFF ED53DC43 01425 LD (M43DC),DE mS\C 4C03 21CE43 01426 LD HL,M43CE !NC 4C06 CD284C 01427 CALL M4C28 M(L 4C09 221E4C 01428 LD (M4C1E),HL ".L 4C0C 280B 01429 JR Z,M4C19 (. 4C0E 3A1743 01430 M4C0E LD A,(M4317) :.C ; somewhere in DOS Sector Buffer 4C11 FE06 01431 CP 06H .. 4C13 3E2E 01432 LD A,'.' >. 4C15 C20944 01433 JP NZ,M4409 B.D ; Jump to DOS Error Exit 4C18 76 01434 HALT v ; Unknown parameter set defined with RST 28H? Probably best to freeze. 4C19 F1 01435 M4C19 POP AF q 4C1A C1 01436 POP BC A 4C1B D1 01437 POP DE Q 4C1C E1 01438 POP HL a 4C1D CD0000 01439 CALL M0000 M.. 01440 M4C1E EQU $-2 4C20 E5 01441 PUSH HL e 4C21 216943 01442 LD HL,M4369 !iC ; system storage 4C24 CBB6 01443 RES 6,(HL) K6 4C26 E1 01444 POP HL a 4C27 C9 01445 RET I 4C28 226A4C 01446 M4C28 LD (M4C6A),HL "jL 4C2B 11FF42 01447 LD DE,M42FF ..B 4C2E CD654C 01448 M4C2E CALL M4C65 MeL 4C31 4F 01449 LD C,A O 4C32 3E1F 01450 LD A,1FH >. 4C34 B9 01451 CP C 9 4C35 3E22 01452 LD A,'"' >" 4C37 D8 01453 RET C X 4C38 CD654C 01454 CALL M4C65 MeL 4C3B 47 01455 LD B,A G 4C3C CD654C 01456 CALL M4C65 MeL 4C3F 6F 01457 LD L,A o 4C40 61 01458 LD H,C a 4C41 0D 01459 DEC C . 4C42 2809 01460 JR Z,M4C4D (. 4C44 0D 01461 DEC C . 4C45 201A 01462 JR NZ,M4C61 . 4C47 CD654C 01463 CALL M4C65 MeL 4C4A 67 01464 LD H,A g 4C4B AF 01465 XOR A / 4C4C C9 01466 RET I 4C4D CD654C 01467 M4C4D CALL M4C65 MeL 4C50 67 01468 LD H,A g 4C51 05 01469 DEC B . 4C52 05 01470 DEC B . 4C53 CD654C 01471 M4C53 CALL M4C65 MeL 4C56 77 01472 LD (HL),A w 4C57 BE 01473 CP (HL) > 4C58 23 01474 INC HL # 4C59 2806 01475 JR Z,M4C61 (. 4C5B 3E24 01476 LD A,'$' >$ 4C5D 0C 01477 INC C . 4C5E 0D 01478 DEC C . 4C5F 2862 01479 JR Z,M4CC3 (b 4C61 10F0 01480 M4C61 DJNZ M4C53 .p 4C63 18C9 01481 JR M4C2E .I 4C65 1C 01482 M4C65 INC E . 4C66 1A 01483 LD A,(DE) . 4C67 C0 01484 RET NZ @ 4C68 D5 01485 PUSH DE U 4C69 110000 01486 LD DE,M0000 ... 01487 M4C6A EQU $-2 4C6C CD3644 01488 CALL M4436 M6D 4C6F D1 01489 POP DE Q 4C70 2029 01490 JR NZ,M4C9B ) 4C72 1A 01491 LD A,(DE) . 4C73 C9 01492 RET I 4C74 323049 01493 M4C74 LD (M4930),A 20I 4C77 1E00 01494 LD E,00H .. 4C79 2A9943 01495 LD HL,(M4399) *.C 4C7C 4F 01496 M4C7C LD C,A O 4C7D 6E 01497 LD L,(HL) n 4C7E 3A0F43 01498 LD A,(M430F) :.C 4C81 CD924C 01499 CALL M4C92 M.L 4C84 47 01500 LD B,A G 4C85 57 01501 LD D,A W 4C86 19 01502 ADD HL,DE . 4C87 3E05 01503 LD A,05H >. 4C89 CD944C 01504 CALL M4C94 M.L 4C8C 09 01505 ADD HL,BC . 4C8D EB 01506 EX DE,HL k 4C8E 210042 01507 LD HL,M4200 !.B 4C91 C9 01508 RET I 4C92 2600 01509 M4C92 LD H,00H &. 4C94 C5 01510 M4C94 PUSH BC E 4C95 CD9D4C 01511 CALL M4C9D M.L 4C98 7C 01512 LD A,H . 4C99 65 01513 LD H,L e 4C9A 69 01514 LD L,C i 4C9B C1 01515 M4C9B POP BC A 4C9C C9 01516 RET I 4C9D D5 01517 M4C9D PUSH DE U 4C9E EB 01518 EX DE,HL k 4C9F 0E80 01519 LD C,80H .. 4CA1 210000 01520 LD HL,M0000 !.. 4CA4 0F 01521 M4CA4 RRCA . 4CA5 3001 01522 JR NC,M4CA8 0. 4CA7 19 01523 ADD HL,DE . 4CA8 CB3C 01524 M4CA8 SRL H K< 4CAA CB1D 01525 RR L K. 4CAC CB19 01526 RR C K. 4CAE 30F4 01527 JR NC,M4CA4 0t 4CB0 D1 01528 POP DE Q 4CB1 C9 01529 RET I 4CB2 3E05 01530 M4CB2 LD A,05H >. 4CB4 4F 01531 M4CB4 LD C,A O 4CB5 0610 01532 LD B,10H .. 4CB7 AF 01533 XOR A / 4CB8 29 01534 M4CB8 ADD HL,HL ) 4CB9 17 01535 RLA . 4CBA 3803 01536 JR C,M4CBF 8. 4CBC B9 01537 CP C 9 4CBD 3802 01538 JR C,M4CC1 8. 4CBF 91 01539 M4CBF SUB C . 4CC0 2C 01540 INC L , 4CC1 10F5 01541 M4CC1 DJNZ M4CB8 .u 4CC3 B7 01542 M4CC3 OR A 7 4CC4 C9 01543 RET I 4CC5 E5 01544 PUSH HL e ; iterator through template, like the PDRIVE parameter line at 0x512B 4CC6 0A 01545 M4CC6 LD A,(BC) . 4CC7 B7 01546 OR A 7 4CC8 03 01547 INC BC . 4CC9 2003 01548 JR NZ,M4CCE . 4CCB E3 01549 EX (SP),HL c 4CCC E1 01550 POP HL a 4CCD C9 01551 RET I 4CCE BE 01552 M4CCE CP (HL) > ; part of routine above 4CCF 23 01553 INC HL # 4CD0 28F4 01554 JR Z,M4CC6 (t 4CD2 E1 01555 POP HL a 4CD3 1814 01556 JR M4CE9 .. 4CD5 7E 01557 M4CD5 LD A,(HL) . 4CD6 FE0D 01558 CP 0DH .. 4CD8 C8 01559 RET Z H 4CD9 7E 01560 LD A,(HL) . 4CDA FE2C 01561 CP ',' ., 4CDC 23 01562 INC HL # 4CDD 280A 01563 JR Z,M4CE9 (. 4CDF FE20 01564 CP ' ' . 4CE1 2B 01565 DEC HL + 4CE2 37 01566 SCF 7 4CE3 2005 01567 JR NZ,M4CEA . 4CE5 23 01568 M4CE5 INC HL # 4CE6 BE 01569 CP (HL) > 4CE7 28FC 01570 JR Z,M4CE5 (. 4CE9 B7 01571 M4CE9 OR A 7 4CEA 3E34 01572 M4CEA LD A,'4' >4 4CEC C9 01573 RET I 4CED 50 01574 M4CED LD D,B P 4CEE 1E01 01575 LD E,01H .. 01576 M4CEF EQU $-1 4CF0 42 01577 M4CF0 LD B,D B 4CF1 CD6000 01578 CALL M0060 M`. 4CF4 1D 01579 DEC E . 4CF5 20F9 01580 JR NZ,M4CF0 y 4CF7 C9 01581 RET I 4CF8 CB40 01582 M4CF8 BIT 0,B K@ 4CFA C0 01583 RET NZ @ 4CFB 79 01584 LD A,C y 4CFC C9 01585 RET I 4CFD A4 01586 AND H $ 4CFE 4B 01587 LD C,E K 4CFF 00 01588 NOP . ; The entry address. Also the end of the persistent part of SYS0/SYS 4D00 A5 01589 M4D00 AND L % ; Magic byte. Must be A5H or start is aborted 'NO SYS' 4D01 ED56 01590 IM 1 mV ; interrupt mode 1 4D03 21FFFF 01591 LD HL,MFFFF !.. 4D06 7E 01592 M4D06 LD A,(HL) . 4D07 2F 01593 CPL / 4D08 77 01594 LD (HL),A w 4D09 BE 01595 CP (HL) > 4D0A 2B 01596 DEC HL + 4D0B 20F9 01597 JR NZ,M4D06 y 4D0D 2F 01598 CPL / 4D0E 23 01599 INC HL # 4D0F 77 01600 LD (HL),A w 4D10 22A943 01601 LD (M43A9),HL ")C 4D13 224940 01602 LD (M4049),HL "I@ ; Interrupt Jump for I/O during IPL (43A2H) 4D16 21AB43 01603 LD HL,M43AB !+C 4D19 3EA5 01604 LD A,0A5H >% 4D1B BE 01605 CP (HL) > 4D1C 2009 01606 JR NZ,M4D27 . 4D1E 23 01607 INC HL # 4D1F 114140 01608 LD DE,M4041 .A@ 4D22 010600 01609 LD BC,M0006 ... 4D25 EDB0 01610 LDIR m0 4D27 FD218043 01611 M4D27 LD IY,M4380 .!.C ; PDRIVE 1 storage area, byte 4 (5th byte) 4D2B ED4BFE42 01612 LD BC,(M42FE) mK.B 4D2F FD70F8 01613 LD (IY+0F8H),B .px 4D32 FD71F3 01614 LD (IY+0F3H),C .qs 4D35 3AFD42 01615 LD A,(M42FD) :.B 4D38 FD77F7 01616 LD (IY+0F7H),A .ww 4D3B 118044 01617 LD DE,M4480 ..D 4D3E CD3644 01618 CALL M4436 M6D 4D41 C2D34D 01619 JP NZ,M4DD3 BSM 4D44 3AEF42 01620 LD A,(M42EF) :oB ; inside DOS Sector buffer 4D47 FEA5 01621 CP 0A5H .% 4D49 C2D14D 01622 JP NZ,M4DD1 BQM 4D4C 21F842 01623 LD HL,M42F8 !xB ; from 4D4F 115B50 01624 LD DE,M505B .[P ; to 4D52 010800 01625 LD BC,M0008 ... ; amount 4D55 EDB0 01626 LDIR m0 4D57 2AF042 01627 LD HL,(M42F0) *pB ; inside DOS Sector buffer 4D5A 226C43 01628 LD (M436C),HL "lC ; store byte in System Storage area 4D5D 2AF242 01629 LD HL,(M42F2) *rB ; inside DOS Sector buffer 4D60 226E43 01630 LD (M436E),HL "nC ; store byte in System Storage area 4D63 3AA042 01631 LD A,(M42A0) : B ; inside DOS Sector buffer 4D66 329F43 01632 LD (M439F),A 2.C 4D69 327A47 01633 LD (M477A),A 2zG 4D6C 3D 01634 DEC A = 4D6D FE04 01635 CP 04H .. 4D6F 3060 01636 JR NC,M4DD1 0` 4D71 3AA142 01637 LD A,(M42A1) :!B 4D74 32BA4A 01638 LD (M4ABA),A 2:J 4D77 3AA242 01639 LD A,(M42A2) :"B 4D7A 32A043 01640 LD (M43A0),A 2 C 4D7D 3AA342 01641 LD A,(M42A3) :#B 4D80 32A143 01642 LD (M43A1),A 2!C 4D83 3AA642 01643 LD A,(M42A6) :&B 4D86 325A46 01644 LD (M465A),A 2ZF 4D89 3AA942 01645 LD A,(M42A9) :)B 4D8C 32A243 01646 LD (M43A2),A 2"C 4D8F 32EF4C 01647 LD (M4CEF),A 2oL 4D92 2E06 01648 LD L,06H .. 4D94 110024 01649 LD DE,M2400 ..$ 4D97 F5 01650 PUSH AF u 4D98 CD924C 01651 CALL M4C92 M.L 4D9B B4 01652 OR H 4 4D9C 2033 01653 JR NZ,M4DD1 3 4D9E 7D 01654 LD A,L . 4D9F 32E447 01655 LD (M47E4),A 2dG 4DA2 F1 01656 POP AF q 4DA3 EB 01657 EX DE,HL k 4DA4 CD944C 01658 CALL M4C94 M.L 4DA7 B7 01659 OR A 7 4DA8 2027 01660 JR NZ,M4DD1 ' 4DAA 22F447 01661 LD (M47F4),HL "tG 4DAD 3AA842 01662 LD A,(M42A8) :(B 4DB0 327043 01663 LD (M4370),A 2pC 4DB3 2A4940 01664 LD HL,(M4049) *I@ ; Interrupt Jump for I/O during IPL (43A2H) 4DB6 ED5BD042 01665 LD DE,(M42D0) m[PB 4DBA 7A 01666 LD A,D z 4DBB B3 01667 OR E 3 4DBC 2806 01668 JR Z,M4DC4 (. 4DBE B7 01669 OR A 7 4DBF ED52 01670 SBC HL,DE mR 4DC1 3801 01671 JR C,M4DC4 8. 4DC3 EB 01672 EX DE,HL k 4DC4 224940 01673 M4DC4 LD (M4049),HL "I@ 4DC7 AF 01674 XOR A / 4DC8 117143 01675 LD DE,M4371 .qC ; start PDRIVE table 4DCB DD210042 01676 LD IX,M4200 ]!.B 4DCF 1806 01677 JR M4DD7 .. 4DD1 3E27 01678 M4DD1 LD A,27H >' 4DD3 F5 01679 M4DD3 PUSH AF u 4DD4 3E46 01680 LD A,'F' >F 4DD6 EF 01681 RST 28H o 4DD7 010A00 01682 M4DD7 LD BC,M000A ... 4DDA F5 01683 PUSH AF u 4DDB FDBE1F 01684 CP (IY+1FH) .>. 4DDE 3005 01685 JR NC,M4DE5 0. 4DE0 DDE5 01686 PUSH IX ]e 4DE2 E1 01687 POP HL a 4DE3 EDB0 01688 LDIR m0 4DE5 DD7E02 01689 M4DE5 LD A,(IX+02H) ].. 4DE8 E61C 01690 AND 1CH f. 4DEA 28E5 01691 JR Z,M4DD1 (e 4DEC 0E10 01692 LD C,10H .. 4DEE DD09 01693 ADD IX,BC ]. 4DF0 F1 01694 POP AF q 4DF1 3C 01695 INC A < 4DF2 FE0A 01696 CP 0AH .. 4DF4 38E1 01697 JR C,M4DD7 8a 4DF6 3AFA42 01698 LD A,(M42FA) :zB 4DF9 CB7F 01699 BIT 7,A K. 4DFB 2805 01700 JR Z,M4E02 (. 4DFD 3EAB 01701 LD A,0ABH >+ 4DFF 323D46 01702 LD (M463D),A 2=F 4E02 ED4BF842 01703 M4E02 LD BC,(M42F8) mKxB 4E06 ED5B6C43 01704 LD DE,(M436C) m[lC 4E0A CB73 01705 BIT 6,E Ks ; store byte in System Storage area 4E0C 2808 01706 JR Z,M4E16 (. 4E0E FDCBE9D6 01707 SET 2,(IY+0E9H) .KiV 4E12 FDCBEDB6 01708 RES 6,(IY+0EDH) .Km6 4E16 CB41 01709 M4E16 BIT 0,C KA 4E18 280E 01710 JR Z,M4E28 (. 4E1A 3E20 01711 LD A,' ' > 4E1C 323845 01712 LD (M4538),A 28E 4E1F 3AA742 01713 LD A,(M42A7) :'B 4E22 327845 01714 LD (M4578),A 2xE 4E25 322F45 01715 LD (M452F),A 2/E 4E28 3AA542 01716 M4E28 LD A,(M42A5) :%B 4E2B B7 01717 OR A 7 4E2C 2803 01718 JR Z,M4E31 (. 4E2E 320145 01719 LD (M4501),A 2.E 4E31 CB49 01720 M4E31 BIT 1,C KI 4E33 2813 01721 JR Z,M4E48 (. 4E35 3A4038 01722 LD A,(M3840) :@8 4E38 CB5F 01723 BIT 3,A K_ 4E3A 200C 01724 JR NZ,M4E48 . 4E3C 211645 01725 LD HL,M4516 !.E 4E3F 221640 01726 LD (M4016),HL ".@ 4E42 210545 01727 LD HL,M4505 !.E 4E45 221E40 01728 LD (M401E),HL ".@ 4E48 21003C 01729 M4E48 LD HL,SCRN !.< ; Start of screen memory 4E4B 3E61 01730 LD A,'a' >a 4E4D 77 01731 LD (HL),A w 4E4E BE 01732 CP (HL) > 4E4F 3620 01733 LD (HL),' ' 6 4E51 2017 01734 JR NZ,M4E6A . 4E53 CB50 01735 BIT 2,B KP 4E55 280A 01736 JR Z,M4E61 (. 4E57 3E4F 01737 LD A,'O' >O 4E59 329345 01738 LD (M4593),A 2.E 4E5C 3E38 01739 LD A,'8' >8 4E5E 320545 01740 LD (M4505),A 2.E 4E61 CB48 01741 M4E61 BIT 1,B KH 4E63 2005 01742 JR NZ,M4E6A . 4E65 3E00 01743 LD A,00H >. 4E67 32B445 01744 LD (M45B4),A 24E 4E6A CB40 01745 M4E6A BIT 0,B K@ 4E6C 2805 01746 JR Z,M4E73 (. 4E6E 3EC8 01747 LD A,0C8H >H 4E70 320245 01748 LD (M4502),A 2.E 4E73 CB79 01749 M4E73 BIT 7,C Ky 4E75 2005 01750 JR NZ,M4E7C . 4E77 3E3E 01751 LD A,'>' >> 4E79 327D45 01752 LD (M457D),A 2.E 4E7C CB71 01753 M4E7C BIT 6,C Kq 4E7E 2805 01754 JR Z,M4E85 (. 4E80 3EC0 01755 LD A,0C0H >@ 4E82 32EE45 01756 LD (M45EE),A 2nE 4E85 CB61 01757 M4E85 BIT 4,C Ka 4E87 2805 01758 JR Z,M4E8E (. 4E89 3E20 01759 LD A,' ' > 4E8B 32CC45 01760 LD (M45CC),A 2LE 4E8E CB51 01761 M4E8E BIT 2,C KQ 4E90 2804 01762 JR Z,M4E96 (. 4E92 AF 01763 XOR A / 4E93 329045 01764 LD (M4590),A 2.E 4E96 CB69 01765 M4E96 BIT 5,C Ki 4E98 2805 01766 JR Z,M4E9F (. 4E9A 3E20 01767 LD A,' ' > 4E9C 32D845 01768 LD (M45D8),A 2XE 4E9F CB6B 01769 M4E9F BIT 5,E Kk 4EA1 2804 01770 JR Z,M4EA7 (. 4EA3 FDCBE9E6 01771 SET 4,(IY+0E9H) .Kif 4EA7 21A84F 01772 M4EA7 LD HL,M4FA8 !(O 4EAA CD6744 01773 CALL M4467 MgD 4EAD 3AF942 01774 LD A,(M42F9) :yB 4EB0 CB6F 01775 BIT 5,A Ko 4EB2 2818 01776 JR Z,M4ECC (. 4EB4 F3 01777 DI s 4EB5 21B243 01778 LD HL,M43B2 !2C 4EB8 22DC4A 01779 LD (M4ADC),HL "\J 4EBB 111D40 01780 LD DE,M401D ..@ ; Interrupt Sub-routine Vector 4EBE 73 01781 LD (HL),E s 4EBF 23 01782 INC HL # 4EC0 72 01783 LD (HL),D r 4EC1 23 01784 INC HL # 4EC2 1A 01785 LD A,(DE) . 4EC3 77 01786 LD (HL),A w 4EC4 23 01787 INC HL # 4EC5 3EC0 01788 LD A,0C0H >@ 4EC7 12 01789 LD (DE),A . 4EC8 AF 01790 XOR A / 4EC9 77 01791 LD (HL),A w 4ECA 23 01792 INC HL # 4ECB 77 01793 LD (HL),A w 4ECC FB 01794 M4ECC EI . 4ECD 21AB4F 01795 LD HL,M4FAB !+O 4ED0 CD6744 01796 CALL M4467 MgD 4ED3 3AAB43 01797 LD A,(M43AB) :+C 4ED6 FEA5 01798 CP 0A5H .% 4ED8 3AF942 01799 LD A,(M42F9) :yB 4EDB 2002 01800 JR NZ,M4EDF . 4EDD CBBF 01801 RES 7,A K? ; clear bit 7 4EDF E6C0 01802 M4EDF AND 0C0H f@ ; clear bits 0-5 4EE1 C43D4F 01803 CALL NZ,M4F3D D=O ; if bit 6 is 1 call 4EE4 218950 01804 LD HL,M5089 !.P 4EE7 E5 01805 PUSH HL e 4EE8 CDC244 01806 CALL M44C2 MBD 4EEB 219350 01807 LD HL,M5093 !.P 4EEE CDA744 01808 CALL M44A7 M'D 4EF1 E1 01809 POP HL a 4EF2 CD6744 01810 CALL M4467 MgD 4EF5 AF 01811 XOR A / 4EF6 323049 01812 LD (M4930),A 20I 4EF9 21054F 01813 LD HL,M4F05 !.O 4EFC E5 01814 PUSH HL e 4EFD D5 01815 PUSH DE U 4EFE C5 01816 PUSH BC E 4EFF 210042 01817 LD HL,M4200 !.B 4F02 C31149 01818 JP M4911 C.I 4F05 C2D34D 01819 M4F05 JP NZ,M4DD3 BSM 4F08 111843 01820 LD DE,M4318 ..C 4F0B D5 01821 PUSH DE U 4F0C C5 01822 PUSH BC E 4F0D 21E042 01823 LD HL,M42E0 !`B 4F10 012000 01824 LD BC,M0020 . . 4F13 EDB0 01825 LDIR m0 4F15 21AB43 01826 LD HL,M43AB !+C 4F18 36A5 01827 LD (HL),0A5H 6% 4F1A C1 01828 POP BC A 4F1B E1 01829 POP HL a 4F1C AF 01830 XOR A / 4F1D FDCBEC76 01831 BIT 6,(IY+0ECH) .Klv 4F21 2014 01832 JR NZ,M4F37 . 4F23 3A5C50 01833 LD A,(M505C) :\P 4F26 CB5F 01834 BIT 3,A K_ 4F28 280D 01835 JR Z,M4F37 (. 4F2A 3A4038 01836 LD A,(M3840) :@8 ; Keyboard row Space|RghtA|LftA |DownA| UpA | Brk | Cls |Enter 4F2D 0F 01837 RRCA . 4F2E DA0044 01838 JP C,M4400 Z.D ; SYS0/SYS Start address 4F31 7E 01839 LD A,(HL) . 4F32 FE0D 01840 CP 0DH .. ; CR 4F34 CA0044 01841 JP Z,M4400 J.D ; SYS0/SYS Start address 4F37 CD6744 01842 M4F37 CALL M4467 MgD 4F3A C30544 01843 JP M4405 C.D ; Enter DOS and execute a command 4F3D 216350 01844 M4F3D LD HL,M5063 !cP 4F40 CD644F 01845 CALL M4F64 MdO 4F43 019C50 01846 LD BC,M509C ..P 4F46 114640 01847 LD DE,M4046 .F@ 4F49 3E2F 01848 LD A,'/' >/ 4F4B CD6F4F 01849 CALL M4F6F MoO 4F4E 20ED 01850 JR NZ,M4F3D m 4F50 217650 01851 M4F50 LD HL,M5076 !vP 4F53 CD644F 01852 CALL M4F64 MdO 4F56 01A250 01853 LD BC,M50A2 ."P 4F59 114340 01854 LD DE,M4043 .C@ 4F5C 3E3A 01855 LD A,':' >: 4F5E CD6F4F 01856 CALL M4F6F MoO 4F61 20ED 01857 JR NZ,M4F50 m 4F63 C9 01858 RET I 4F64 CD6744 01859 M4F64 CALL M4467 MgD 4F67 211843 01860 LD HL,M4318 !.C 4F6A 0609 01861 LD B,09H .. 4F6C C34000 01862 JP M0040 C@. ; Jump to the keyboard input routine 4F6F 32A04F 01863 M4F6F LD (M4FA0),A 2 O 4F72 F3 01864 DI s 4F73 C5 01865 PUSH BC E 4F74 0603 01866 LD B,03H .. 4F76 7E 01867 M4F76 LD A,(HL) . 4F77 D630 01868 SUB '0' V0 4F79 FE0A 01869 CP 0AH .. ; LF 4F7B 23 01870 INC HL # 4F7C 3026 01871 JR NC,M4FA4 0& 4F7E 4F 01872 LD C,A O 4F7F 07 01873 RLCA . 4F80 07 01874 RLCA . 4F81 81 01875 ADD A,C . 4F82 87 01876 ADD A,A . 4F83 4F 01877 LD C,A O 4F84 7E 01878 LD A,(HL) . 4F85 D630 01879 SUB '0' V0 4F87 FE0A 01880 CP 0AH .. 4F89 23 01881 INC HL # 4F8A 3018 01882 JR NC,M4FA4 0. 4F8C 81 01883 ADD A,C . 4F8D 12 01884 LD (DE),A . 4F8E 1B 01885 DEC DE . 4F8F E3 01886 EX (SP),HL c 4F90 96 01887 SUB (HL) . 4F91 23 01888 INC HL # 4F92 BE 01889 CP (HL) > 4F93 23 01890 INC HL # 4F94 300E 01891 JR NC,M4FA4 0. 4F96 E3 01892 EX (SP),HL c 4F97 1005 01893 DJNZ M4F9E .. 4F99 C1 01894 POP BC A 4F9A FB 01895 EI . 4F9B C3D54C 01896 JP M4CD5 CUL 4F9E 7E 01897 M4F9E LD A,(HL) . 4F9F FE00 01898 CP 00H .. 01899 M4FA0 EQU $-1 4FA1 23 01900 INC HL # 4FA2 28D2 01901 JR Z,M4F76 (R 4FA4 FB 01902 M4FA4 EI . 4FA5 F1 01903 POP AF q 4FA6 B7 01904 OR A 7 4FA7 C9 01905 RET I 4FA8 01906 M4FA8 DB 1CH,1FH,03H,0BFH,0B4H ; Boot banner 1st line 01907 M4FAB EQU $-2 4FAD 01908 DB 80H,0BFH,' ',0BEH,83H 4FB2 01909 DB 83H,0BDH,' ',0BFH,80H 4FB7 01910 DB 80H,0BFH,' ',0BFH,83H 4FBC 01911 DB 83H,0BDH,' ',0BEH,83H 4FC1 01912 DB 83H,0BDH,' ',0BEH,83H 4FC6 01913 DB 83H,8DH,' ',80H,80H,0B8H 4FCC 01914 DB 87H,' ',0BEH,83H,83H 4FD1 01915 DB 0BDH,' ',0BEH,83H,83H 4FD6 01916 DB 0BDH,' APPARAT, IN' 4FE4 01917 DB 'C.',0AH,0BFH 4FE7 DB 82H,0ADH ; Boot banner 2nd line 4FEA 01918 DB 0BFH,' ',0BFH,83H,83H 4FEF 01919 DB 0B3H,' ',0BFH,9EH,0ADH 4FF4 01920 DB 0BFH,' ',0BFH,80H,80H 4FF9 01921 DB 0BFH,' ',0BFH,80H,80H 4FFE 01922 DB 0BFH,' ',0B2H,83H,83H 5003 01923 DB 0BDH,' ',0A0H,9EH,81H 5008 01924 DB 80H,' ',0BEH,83H,83H 500D 01925 DB 0BDH,' ',0BFH,80H,80H 5012 01926 DB 0BFH,' VERSION 2.' 5020 01927 DB '0',0AH 5022 DB 83H,80H,80H,83H ; Boot banner 3rd line 5026 01928 DB ' ',82H,83H,83H,81H,' ' 502C 01929 DB 83H,80H,80H,83H,' ',83H 5032 01930 DB 83H,83H,81H,' ',82H,83H 5038 01931 DB 83H,81H,' ',82H,83H,83H 503E 01932 DB 81H,' ',83H,80H,80H,80H 5044 01933 DB ' ',82H,83H,83H,81H,' ' 504A 01934 DB 82H,83H,83H,81H,' ' 5050 01935 DB ' MODEL I',0AH,0DH,00H 01936 M505B EQU $-1 505C 00 01937 M505C NOP . 505D 00 01938 NOP . 505E 00 01939 NOP . 505F 00 01940 NOP . 5060 00 01941 NOP . 5061 00 01942 NOP . 5062 00 01943 NOP . 5063 01944 M5063 DB 'DATE? (MM/DD/YY) ' 5075 01945 DB 03H,'TIME? (HH:MM:' 01946 M5076 EQU $-14 5084 01947 DB 'SS) ',03H,'MM/DD/Y' 01948 M5089 EQU $-7 5090 01949 DB 'Y HH:MM:SS',0DH,01H 01950 M5093 EQU $-10 01951 M509C EQU $-1 509D 0C 01952 INC C . 509E 011F00 01953 LD BC,M001F ... 50A1 64 01954 LD H,H d 50A2 00 01955 M50A2 NOP . 50A3 1800 01956 JR M50A5 .. 50A5 3C 01957 M50A5 INC A < 50A6 00 01958 NOP . 50A7 3C 01959 INC A < 50A8 00 01960 NOP . 50A9 00 01961 NOP . 50AA 00 01962 NOP . 50AB 00 01963 NOP . 50AC 00 01964 NOP . 50AD 00 01965 NOP . 50AE 00 01966 NOP . 50AF 00 01967 NOP . 50B0 00 01968 NOP . 50B1 00 01969 NOP . 50B2 00 01970 NOP . 50B3 00 01971 NOP . 50B4 00 01972 NOP . 50B5 00 01973 NOP . 50B6 00 01974 NOP . 50B7 00 01975 NOP . 50B8 00 01976 NOP . 50B9 00 01977 NOP . 50BA 00 01978 NOP . 50BB 00 01979 NOP . 50BC 00 01980 NOP . 50BD 00 01981 NOP . 50BE 00 01982 NOP . 50BF 00 01983 NOP . 50C0 00 01984 NOP . 50C1 00 01985 NOP . 50C2 00 01986 NOP . 50C3 00 01987 NOP . 50C4 00 01988 NOP . 50C5 00 01989 NOP . 50C6 00 01990 NOP . 50C7 00 01991 NOP . 50C8 00 01992 NOP . 50C9 00 01993 NOP . 50CA 00 01994 NOP . 50CB 00 01995 NOP . 50CC 00 01996 NOP . 50CD 00 01997 NOP . 50CE 00 01998 NOP . 50CF 00 01999 NOP . 50D0 00 02000 NOP . 50D1 00 02001 NOP . 50D2 00 02002 NOP . 50D3 00 02003 NOP . 50D4 00 02004 NOP . 50D5 00 02005 NOP . 50D6 00 02006 NOP . 50D7 00 02007 NOP . 50D8 00 02008 NOP . 50D9 00 02009 NOP . 50DA 00 02010 NOP . 50DB 00 02011 NOP . 50DC 00 02012 NOP . 50DD 00 02013 NOP . 50DE 00 02014 NOP . 50DF 00 02015 NOP . 50E0 00 02016 NOP . 50E1 00 02017 NOP . 50E2 00 02018 NOP . 50E3 00 02019 NOP . 50E4 00 02020 NOP . 50E5 00 02021 NOP . 50E6 00 02022 NOP . 50E7 00 02023 NOP . 50E8 00 02024 NOP . 50E9 00 02025 NOP . 50EA 00 02026 NOP . 50EB 00 02027 NOP . 50EC 00 02028 NOP . 50ED 00 02029 NOP . 50EE 00 02030 NOP . 50EF 00 02031 NOP . 50F0 00 02032 NOP . 50F1 00 02033 NOP . 50F2 00 02034 NOP . 50F3 00 02035 NOP . 50F4 00 02036 NOP . 50F5 00 02037 NOP . 50F6 00 02038 NOP . 50F7 00 02039 NOP . 50F8 00 02040 NOP . 50F9 00 02041 NOP . 50FA 00 02042 NOP . 50FB 00 02043 NOP . 50FC 00 02044 NOP . 50FD 00 02045 NOP . 50FE 00 02046 NOP . 50FF 00 02047 NOP . 5100 00 02048 NOP . 5101 00 02049 NOP . 5102 00 02050 NOP . 5103 00 02051 NOP . 5104 00 02052 NOP . 5105 00 02053 NOP . 5106 00 02054 NOP . 5107 00 02055 NOP . 5108 00 02056 NOP . 5109 00 02057 NOP . 510A 00 02058 NOP . 510B 00 02059 NOP . 510C 00 02060 NOP . 510D 00 02061 NOP . 510E 00 02062 NOP . 510F 00 02063 NOP . 5110 00 02064 NOP . 5111 00 02065 NOP . 5112 00 02066 NOP . 5113 00 02067 NOP . 5114 00 02068 NOP . 5115 00 02069 NOP . 5116 00 02070 NOP . 5117 00 02071 NOP . 5118 00 02072 NOP . 5119 00 02073 NOP . 511A 00 02074 NOP . 511B 00 02075 NOP . 511C 00 02076 NOP . 511D 00 02077 NOP . 511E 00 02078 NOP . 511F 00 02079 NOP . 5120 00 02080 NOP . 5121 00 02081 NOP . 5122 00 02082 NOP . 5123 00 02083 NOP . 5124 00 02084 NOP . 5125 00 02085 NOP . 5126 00 02086 NOP . 5127 00 02087 NOP . 5128 00 02088 NOP . 5129 00 02089 NOP . 512A 00 02090 NOP . 512B 00 02091 NOP . 512C 00 02092 NOP . 512D 00 02093 NOP . 512E 00 02094 NOP . 512F 00 02095 NOP . 5130 00 02096 NOP . 5131 00 02097 NOP . 5132 00 02098 NOP . 5133 00 02099 NOP . 5134 00 02100 NOP . 5135 00 02101 NOP . 5136 00 02102 NOP . 5137 00 02103 NOP . 5138 00 02104 NOP . 5139 00 02105 NOP . 513A 00 02106 NOP . 513B 00 02107 NOP . 513C 00 02108 NOP . 513D 00 02109 NOP . 513E 00 02110 NOP . 513F 00 02111 NOP . 5140 00 02112 NOP . 5141 00 02113 NOP . 5142 00 02114 NOP . 5143 00 02115 NOP . 5144 00 02116 NOP . 5145 00 02117 NOP . 5146 00 02118 NOP . 5147 00 02119 NOP . 5148 00 02120 NOP . 5149 00 02121 NOP . 514A 00 02122 NOP . 514B 00 02123 NOP . 514C 00 02124 NOP . 514D 00 02125 NOP . 514E 00 02126 NOP . 514F 00 02127 NOP . 5150 00 02128 NOP . 5151 00 02129 NOP . 5152 00 02130 NOP . 5153 00 02131 NOP . 5154 00 02132 NOP . 5155 00 02133 NOP . 5156 00 02134 NOP . 5157 00 02135 NOP . 5158 00 02136 NOP . 5159 00 02137 NOP . 515A 00 02138 NOP . 515B 00 02139 NOP . 515C 00 02140 NOP . 515D 00 02141 NOP . 515E 00 02142 NOP . 515F 00 02143 NOP . 5160 00 02144 NOP . 5161 00 02145 NOP . 5162 00 02146 NOP . 5163 00 02147 NOP . 5164 00 02148 NOP . 5165 00 02149 NOP . 5166 00 02150 NOP . 5167 00 02151 NOP . 5168 00 02152 NOP . 5169 00 02153 NOP . 516A 00 02154 NOP . 516B 00 02155 NOP . 516C 00 02156 NOP . 516D 00 02157 NOP . 516E 00 02158 NOP . 516F 00 02159 NOP . 5170 00 02160 NOP . 5171 00 02161 NOP . 5172 00 02162 NOP . 5173 00 02163 NOP . 5174 00 02164 NOP . 5175 00 02165 NOP . 5176 00 02166 NOP . 5177 00 02167 NOP . 5178 00 02168 NOP . 5179 00 02169 NOP . 517A 00 02170 NOP . 517B 00 02171 NOP . 517C 00 02172 NOP . 517D 00 02173 NOP . 517E 00 02174 NOP . 517F 00 02175 NOP . 5180 00 02176 NOP . 5181 00 02177 NOP . 5182 00 02178 NOP . 5183 00 02179 NOP . 5184 00 02180 NOP . 5185 00 02181 NOP . 5186 00 02182 NOP . 5187 00 02183 NOP . 5188 00 02184 NOP . 5189 00 02185 NOP . 518A 00 02186 NOP . 518B 00 02187 NOP . 518C 00 02188 NOP . 518D 00 02189 NOP . 518E 00 02190 NOP . 518F 00 02191 NOP . 5190 00 02192 NOP . 5191 00 02193 NOP . 5192 00 02194 NOP . 5193 00 02195 NOP . 5194 00 02196 NOP . 5195 00 02197 NOP . 5196 00 02198 NOP . 5197 00 02199 NOP . 5198 00 02200 NOP . 5199 00 02201 NOP . 519A 00 02202 NOP . 519B 00 02203 NOP . 519C 00 02204 NOP . 519D 00 02205 NOP . 519E 00 02206 NOP . 519F 00 02207 NOP . 51A0 00 02208 NOP . 51A1 00 02209 NOP . 51A2 00 02210 NOP . 51A3 00 02211 NOP . 51A4 00 02212 NOP . 51A5 00 02213 NOP . 51A6 00 02214 NOP . 51A7 00 02215 NOP . 51A8 00 02216 NOP . 51A9 00 02217 NOP . 51AA 00 02218 NOP . 51AB 00 02219 NOP . 51AC 00 02220 NOP . 51AD 00 02221 NOP . 51AE 00 02222 NOP . 51AF 00 02223 NOP . 51B0 00 02224 NOP . 51B1 00 02225 NOP . 51B2 00 02226 NOP . 51B3 00 02227 NOP . 51B4 00 02228 NOP . 51B5 00 02229 NOP . 51B6 00 02230 NOP . 51B7 00 02231 NOP . 51B8 00 02232 NOP . 51B9 00 02233 NOP . 51BA 00 02234 NOP . 51BB 00 02235 NOP . 51BC 00 02236 NOP . 51BD 00 02237 NOP . 51BE 00 02238 NOP . 51BF 00 02239 NOP . 51C0 00 02240 NOP . 51C1 00 02241 NOP . 51C2 00 02242 NOP . 51C3 00 02243 NOP . 51C4 00 02244 NOP . 51C5 00 02245 NOP . 51C6 00 02246 NOP . 51C7 00 02247 NOP . 51C8 00 02248 NOP . 51C9 00 02249 NOP . 51CA 00 02250 NOP . 51CB 00 02251 NOP . 51CC 00 02252 NOP . 51CD 00 02253 NOP . 51CE 00 02254 NOP . 51CF 00 02255 NOP . 51D0 00 02256 NOP . 51D1 00 02257 NOP . 51D2 00 02258 NOP . 51D3 00 02259 NOP . 51D4 00 02260 NOP . 51D5 00 02261 NOP . 51D6 00 02262 NOP . 51D7 00 02263 NOP . 51D8 00 02264 NOP . 51D9 00 02265 NOP . 51DA 00 02266 NOP . 02267 ME5DD EQU 0E5DDH 02268 MFFFF EQU 0FFFFH 02269 END M4D00