DISKMON.ASM
FILE INFORMATION
FILENAME(S): DISKMON.ASM
FILE TYPE(S): PRG
FILE SIZE: 17.2K
FIRST SEEN: 2025-11-30 01:12:33
APPEARS ON: 2 disk(s)
FILE HASH
a3c302f326c8fc6ad9b47678e0a6e98c1af9c2866fdea70adb3e4af597895c20
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| L686S9CD | DISKMON.ASM | PRG | C64er | 21 | 7 | DOWNLOAD FILE |
| 128 ER DISKETTE | DISKMON.ASM | PRG | BrainSkull, Markus Geier | 17 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 61 5C 82 5C E8 03 2E A8 22 93 41 55 46 20 46 4C |a\.\....".AUF FL|
00000010: 4F 50 50 59 20 20 3D 31 20 3F 22 2C 46 4C 4F 50 |OPPY =1 ?",FLOP|
00000020: 50 59 00 94 5C F2 03 2E 9F 46 4C 4F 50 50 59 2E |PY..\....FLOPPY.|
00000030: 45 51 2E 31 00 AB 5C FC 03 20 2E 93 22 44 49 53 |EQ.1..\.. .."DIS|
00000040: 4B 4D 4F 4E 2E 45 58 45 22 2C 38 00 B2 5C 06 04 |KMON.EXE",8..\..|
00000050: 2E 9D 00 D3 5C 10 04 2E A8 22 41 55 46 20 44 52 |....\...."AUF DR|
00000060: 55 43 4B 45 52 20 3D 31 20 3F 22 2C 44 52 55 43 |UCKER =1 ?",DRUC|
00000070: 4B 45 52 00 E6 5C 1A 04 2E 9F 44 52 55 43 4B 45 |KER..\....DRUCKE|
00000080: 52 2E 45 51 2E 31 00 F1 5C 24 04 20 2E A3 31 2C |R.EQ.1..\$. ..1,|
00000090: 34 00 01 5D 2E 04 20 2E C6 32 37 2C 30 2C 31 34 |4..].. ..27,0,14|
000000A0: 37 00 09 5D 38 04 20 2E 9C 00 16 5D 42 04 20 2E |7..]8. ....]B. .|
000000B0: A3 31 2C 34 2C 37 00 25 5D 4C 04 20 2E A4 41 2C |.1,4,7.%]L. ..A,|
000000C0: 32 2C 34 2C 37 00 2C 5D 56 04 2E 9E 00 37 5D 60 |2,4,7.,]V....7]`|
000000D0: 04 20 2E A3 31 2C 33 00 44 5D 6A 04 20 2E A4 41 |. ..1,3.D]j. ..A|
000000E0: 2C 32 2C 33 00 4B 5D 74 04 2E 9D 00 83 5D 7E 04 |,2,3.K]t.....]~.|
000000F0: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000120: 2A 2A 2A 00 BB 5D 88 04 3B 2A 20 20 20 20 20 20 |***..]..;* |
00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000150: 20 20 20 20 20 20 20 20 20 20 2A 00 F3 5D 92 04 | *..]..|
00000160: 3B 2A 20 20 20 20 20 20 20 20 20 20 20 20 C4 49 |;* .I|
00000170: 53 4B 4D 4F 4E 49 54 4F 52 20 46 55 45 52 20 C3 |SKMONITOR FUER .|
00000180: 31 32 38 20 20 20 20 20 20 20 20 20 20 20 20 20 |128 |
00000190: 20 20 2A 00 2B 5E 9C 04 3B 2A 20 20 20 20 20 20 | *.+^..;* |
000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001C0: 20 20 20 20 20 20 20 20 20 20 2A 00 63 5E A6 04 | *.c^..|
000001D0: 3B 2A 20 20 20 D6 45 52 53 49 4F 4E 20 31 2E 31 |;* .ERSION 1.1|
000001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001F0: 20 20 20 20 20 32 2E 36 2E 31 39 38 36 20 20 20 | 2.6.1986 |
00000200: 20 20 2A 00 9B 5E B0 04 3B 2A 20 20 20 20 20 20 | *..^..;* |
00000210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000230: 20 20 20 20 20 20 20 20 20 20 2A 00 D3 5E BA 04 | *..^..|
00000240: 3B 2A 20 20 20 28 C3 29 20 CD 49 43 48 41 45 4C |;* (.) .ICHAEL|
00000250: 20 C2 41 55 45 52 20 20 C1 49 4E 44 4F 52 46 45 | .AUER .INDORFE|
00000260: 52 53 54 52 2E 20 38 36 20 20 20 20 20 20 20 20 |RSTR. 86 |
00000270: 20 20 2A 00 0B 5F C4 04 3B 2A 20 20 20 20 20 20 | *.._..;* |
00000280: 20 38 30 30 30 20 CD 55 45 4E 43 48 45 4E 20 32 | 8000 .UENCHEN 2|
00000290: 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |1 |
000002A0: 20 20 20 20 20 20 20 20 20 20 2A 00 43 5F CE 04 | *.C_..|
000002B0: 3B 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |;* |
000002C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002E0: 20 20 2A 00 7B 5F D8 04 3B 2A 2A 2A 2A 2A 2A 2A | *.{_..;*******|
000002F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000300: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 81 5F E2 04 |***********.._..|
00000320: 3B 00 9A 5F EC 04 3B 20 C1 53 53 45 4D 42 4C 45 |;.._..; .SSEMBLE|
00000330: 52 3A 20 D4 CF D0 2D C1 D3 D3 00 A0 5F F6 04 3B |R: ...-....._..;|
00000340: 00 D8 5F 00 05 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.._..;----------|
00000350: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000360: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000370: 2D 2D 2D 2D 2D 2D 2D 2D 00 F3 5F 0A 05 3B 20 C2 |--------.._..; .|
00000380: 45 44 49 45 4E 55 4E 47 53 41 4E 4C 45 49 54 55 |EDIENUNGSANLEITU|
00000390: 4E 47 3A 00 0E 60 14 05 3B 20 3D 3D 3D 3D 3D 3D |NG:..`..; ======|
000003A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 14 |==============..|
000003B0: 60 1E 05 3B 00 4B 60 28 05 3B 20 C5 53 20 53 54 |`..;.K`(.; .S ST|
000003C0: 45 48 45 4E 20 41 4C 4C 45 20 CB 4F 4D 4D 41 4E |EHEN ALLE .OMMAN|
000003D0: 44 4F 20 44 45 53 20 45 49 4E 47 45 42 41 55 54 |DO DES EINGEBAUT|
000003E0: 45 4E 20 CD 4F 4E 49 54 4F 52 53 00 87 60 32 05 |EN .ONITORS..`2.|
000003F0: 3B 20 5A 55 52 20 D6 45 52 46 55 45 47 55 4E 47 |; ZUR .ERFUEGUNG|
00000400: 2E 20 C4 C9 D3 CB CD CF CE 20 49 53 54 20 4D 49 |. ....... IST MI|
00000410: 54 20 53 45 49 4E 45 4E 20 DA 55 53 41 54 5A 42 |T SEINEN .USATZB|
00000420: 45 46 45 48 4C 45 4E 00 AE 60 3C 05 3B 20 56 4F |EFEHLEN..`<.; VO|
00000430: 4C 4C 20 49 4E 20 44 45 4E 20 CD 4F 4E 49 54 4F |LL IN DEN .ONITO|
00000440: 52 20 45 49 4E 47 45 42 55 4E 44 45 4E 2E 00 E4 |R EINGEBUNDEN...|
00000450: 60 46 05 3B 20 C1 4C 4C 45 20 C4 C9 D3 CB CD CF |`F.; .LLE ......|
00000460: CE 2D C2 45 46 45 48 4C 45 20 42 45 47 49 4E 4E |.-.EFEHLE BEGINN|
00000470: 45 4E 20 4D 49 54 20 44 45 4D 20 DA 45 49 43 48 |EN MIT DEM .EICH|
00000480: 45 4E 20 5E 00 20 61 50 05 3B 20 28 D0 46 45 49 |EN ^. aP.; (.FEI|
00000490: 4C 20 41 55 46 57 41 45 52 54 53 29 20 47 45 46 |L AUFWAERTS) GEF|
000004A0: 4F 4C 47 54 20 56 4F 4E 20 45 49 4E 45 4D 20 57 |OLGT VON EINEM W|
000004B0: 45 49 54 45 52 45 4E 20 C2 45 46 45 48 4C 53 2D |EITEREN .EFEHLS-|
000004C0: 00 2F 61 5A 05 3B 20 5A 45 49 43 48 45 4E 2E 00 |./aZ.; ZEICHEN..|
000004D0: 66 61 64 05 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |fad.;-----------|
000004E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000004F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000500: 2D 2D 2D 2D 2D 2D 00 A4 61 6E 05 3B 20 5E CD 20 |------..an.; ^. |
00000510: 4F 44 45 52 20 4E 55 52 20 5E 20 20 20 20 20 20 |ODER NUR ^ |
00000520: 20 20 20 20 20 20 20 20 20 20 20 20 20 CC 49 53 | .IS|
00000530: 54 45 54 20 44 45 4E 20 45 49 4E 47 45 4C 45 53 |TET DEN EINGELES|
00000540: 45 4E 45 4E 00 D4 61 78 05 3B 20 20 20 20 20 20 |ENEN..ax.; |
00000550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000560: 20 20 20 20 20 20 20 20 20 20 20 C2 4C 4F 43 4B | .LOCK|
00000570: 20 41 55 46 00 10 62 82 05 3B 20 5E D2 20 D3 50 | AUF..b..; ^. .P|
00000580: 55 52 20 D3 45 4B 54 4F 52 20 28 28 C4 45 56 29 |UR .EKTOR ((.EV)|
00000590: 28 20 C4 52 56 29 29 20 20 20 20 CC 49 45 53 54 |( .RV)) .IEST|
000005A0: 20 44 45 4E 20 41 4E 47 45 47 45 42 45 4E 45 4E | DEN ANGEGEBENEN|
000005B0: 00 47 62 8C 05 3B 20 20 20 20 20 20 20 20 20 20 |.Gb..; |
000005C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005D0: 20 20 20 20 20 20 20 C2 4C 4F 43 4B 20 49 4E 20 | .LOCK IN |
000005E0: 44 41 53 20 D2 C1 CD 00 86 62 96 05 3B 20 5E D7 |DAS .....b..; ^.|
000005F0: 20 D3 50 55 52 20 D3 45 4B 54 4F 52 20 28 28 C4 | .PUR .EKTOR ((.|
00000600: 45 56 29 28 20 C4 52 56 29 29 20 20 20 20 D3 43 |EV)( .RV)) .C|
00000610: 48 52 45 49 42 54 20 44 45 4E 20 41 4E 47 45 47 |HREIBT DEN ANGEG|
00000620: 45 42 45 4E 45 4E 00 C2 62 A0 05 3B 20 20 20 20 |EBENEN..b..; |
00000630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000640: 20 20 20 20 20 20 20 20 20 20 20 20 20 C2 4C 4F | .LO|
00000650: 43 4B 20 5A 55 52 55 45 43 4B 20 41 55 46 20 44 |CK ZURUECK AUF D|
00000660: 49 45 00 F1 62 AA 05 3B 20 20 20 20 20 20 20 20 |IE..b..; |
00000670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000680: 20 20 20 20 20 20 20 20 20 C4 49 53 4B 45 54 54 | .ISKETT|
00000690: 45 00 30 63 B4 05 3B 20 5E CE 20 20 20 20 20 20 |E.0c..; ^. |
000006A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006B0: 20 20 20 20 20 20 20 20 CC 45 53 45 20 4E 41 45 | .ESE NAE|
000006C0: 43 48 53 54 45 4E 20 4C 4F 47 49 53 43 48 45 4E |CHSTEN LOGISCHEN|
000006D0: 00 64 63 BE 05 3B 20 20 20 20 20 20 20 20 20 20 |.dc..; |
000006E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006F0: 20 20 20 20 20 20 20 C2 4C 4F 43 4B 20 49 4E 53 | .LOCK INS|
00000700: 20 D2 C1 CD 00 A5 63 C8 05 3B 20 5E C7 20 C4 45 | .....c..; ^. .E|
00000710: 56 28 20 C4 52 56 29 20 20 20 20 20 20 20 20 20 |V( .RV) |
00000720: 20 20 20 20 20 20 20 20 20 20 20 CE 45 55 45 20 | .EUE |
00000730: C6 4C 4F 50 50 59 2D C7 45 52 41 45 54 45 41 44 |.LOPPY-.ERAETEAD|
00000740: 52 45 53 53 45 00 D4 63 D2 05 3B 20 20 20 20 20 |RESSE..c..; |
00000750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000760: 20 20 20 20 20 20 20 20 20 20 20 20 45 49 4E 47 | EING|
00000770: 45 42 45 4E 00 14 64 DC 05 3B 20 5E C4 20 C4 52 |EBEN..d..; ^. .R|
00000780: 56 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |V |
00000790: 20 20 20 20 20 20 20 20 20 20 20 CE 45 55 45 20 | .EUE |
000007A0: C4 52 49 56 45 4E 55 4D 4D 45 52 20 45 49 4E 47 |.RIVENUMMER EING|
000007B0: 45 42 45 4E 00 1A 64 E6 05 3B 00 58 64 F0 05 3B |EBEN..d..;.Xd..;|
000007C0: 20 5E D0 20 C4 45 56 20 20 20 20 20 20 20 20 20 | ^. .EV |
000007D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007E0: 20 C1 55 53 47 41 42 45 20 41 55 46 20 C4 52 55 | .USGABE AUF .RU|
000007F0: 43 4B 45 52 20 C4 45 56 00 87 64 FA 05 3B 20 20 |CKER .EV..d..; |
00000800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 | U|
00000820: 4D 4C 45 49 54 45 4E 00 C6 64 04 06 3B 20 5E C2 |MLEITEN..d..; ^.|
00000830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 C1 55 | .U|
00000850: 53 47 41 42 45 20 57 49 45 44 45 52 20 41 55 46 |SGABE WIEDER AUF|
00000860: 20 C2 49 4C 44 2D 00 01 65 0E 06 3B 20 20 20 20 | .ILD-..e..; |
00000870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000880: 20 20 20 20 20 20 20 20 20 20 20 20 20 53 43 48 | SCH|
00000890: 49 52 4D 20 5A 55 52 55 45 43 4B 4C 45 49 54 45 |IRM ZURUECKLEITE|
000008A0: 4E 00 07 65 18 06 3B 00 45 65 22 06 3B 20 5E 2B |N..e..;.Ee".; ^+|
000008B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4E 41 | NA|
000008D0: 45 43 48 53 54 45 4E 20 50 48 59 53 4B 41 4C 49 |ECHSTEN PHYSKALI|
000008E0: 53 43 48 45 4E 00 77 65 2C 06 3B 20 20 20 20 20 |SCHEN.we,.; |
000008F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000900: 20 20 20 20 20 20 20 20 20 20 20 20 C2 4C 4F 43 | .LOC|
00000910: 4B 20 4C 45 53 45 4E 00 7D 65 36 06 3B 00 BC 65 |K LESEN.}e6.;..e|
00000920: 40 06 3B 20 5E 2D 20 20 20 20 20 20 20 20 20 20 |@.; ^- |
00000930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000940: 20 20 20 20 56 4F 52 48 45 52 49 47 45 4E 20 50 | VORHERIGEN P|
00000950: 48 59 53 4B 41 4C 49 53 43 48 45 4E 00 EE 65 4A |HYSKALISCHEN..eJ|
00000960: 06 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.; |
00000970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000980: 20 20 20 C2 4C 4F 43 4B 20 4C 45 53 45 4E 00 F4 | .LOCK LESEN..|
00000990: 65 54 06 3B 00 1D 66 5E 06 3B 20 C7 45 4B 4C 41 |eT.;..f^.; .EKLA|
000009A0: 4D 4D 45 52 54 45 20 C1 4E 47 41 42 45 4E 20 53 |MMERTE .NGABEN S|
000009B0: 49 4E 44 20 4F 50 54 49 4F 4E 41 4C 2E 00 23 66 |IND OPTIONAL..#f|
000009C0: 68 06 3B 00 5F 66 72 06 3B 20 D3 50 55 52 20 3D |h.;._fr.; .PUR =|
000009D0: 20 D3 50 55 52 4E 55 4D 4D 45 52 20 49 4E 20 C8 | .PURNUMMER IN .|
000009E0: 45 58 41 44 45 5A 49 4D 41 4C 20 20 20 28 31 35 |EXADEZIMAL (15|
000009F0: 37 31 3A 20 24 30 31 20 2D 3E 20 24 34 36 29 00 |71: $01 -> $46).|
00000A00: 9B 66 7C 06 3B 20 20 20 20 20 20 20 20 20 20 20 |.f|.; |
00000A10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A20: 20 20 20 20 20 20 20 20 20 28 31 35 34 31 3A 20 | (1541: |
00000A30: 24 30 31 20 2D 3E 20 24 32 33 29 00 DA 66 86 06 |$01 -> $23)..f..|
00000A40: 3B 20 D3 45 4B 20 20 3D 20 D3 45 4B 54 4F 52 45 |; .EK = .EKTORE|
00000A50: 4E 4E 55 4D 4D 45 52 20 49 4E 20 C8 45 58 20 20 |NNUMMER IN .EX |
00000A60: 20 20 20 20 20 28 24 30 31 20 2D 3E 20 24 31 34 | ($01 -> $14|
00000A70: 20 41 42 48 41 45 4E 47 49 47 00 12 67 90 06 3B | ABHAENGIG..g..;|
00000A80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000AA0: 20 20 20 20 20 56 4F 4E 20 44 45 52 20 D3 50 55 | VON DER .PU|
00000AB0: 52 29 00 48 67 9A 06 3B 20 C4 45 56 20 20 3D 20 |R).Hg..; .EV = |
00000AC0: C7 45 52 41 45 54 45 4E 55 4D 4D 45 52 20 49 4E |.ERAETENUMMER IN|
00000AD0: 20 C8 45 58 20 20 20 20 20 20 20 20 28 24 30 34 | .EX ($04|
00000AE0: 20 2D 3E 20 24 31 C6 29 00 7E 67 A4 06 3B 20 C4 | -> $1.).~g..; .|
00000AF0: 52 56 20 20 3D 20 C4 52 49 56 45 4E 55 4D 4D 45 |RV = .RIVENUMME|
00000B00: 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |R |
00000B10: 20 20 28 24 30 30 20 2D 3E 20 24 30 31 29 00 BC | ($00 -> $01)..|
00000B20: 67 AE 06 3B 20 20 20 20 20 20 20 20 20 20 20 20 |g..; |
00000B30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B40: 20 20 20 20 20 20 20 20 46 55 45 52 20 C4 4F 50 | FUER .OP|
00000B50: 50 45 4C 4C 41 55 46 57 45 52 4B 45 00 C2 67 B8 |PELLAUFWERKE..g.|
00000B60: 06 3B 00 EA 67 C2 06 3B 20 CC 41 44 45 4E 20 55 |.;..g..; .ADEN U|
00000B70: 4E 44 20 D3 54 41 52 54 45 4E 20 44 45 53 20 D0 |ND .TARTEN DES .|
00000B80: 52 4F 47 52 41 4D 4D 45 53 3A 00 F0 67 CC 06 3B |ROGRAMMES:..g..;|
00000B90: 00 30 68 D6 06 3B 20 CD 49 54 20 C2 CF CF D4 20 |.0h..; .IT .... |
00000BA0: 22 C4 C9 D3 CB CD CF CE 22 20 3C C3 D2 3E 20 57 |"......." <..> W|
00000BB0: 49 52 44 20 C4 C9 D3 CB CD CF CE 20 47 45 4C 41 |IRD ....... GELA|
00000BC0: 44 45 4E 20 55 4E 44 20 49 4E 49 54 49 41 4C 2D |DEN UND INITIAL-|
00000BD0: 00 3D 68 E0 06 3B 20 53 49 45 52 54 2E 00 7F 68 |.=h..; SIERT...h|
00000BE0: EA 06 3B 20 CE 41 43 48 20 C1 55 46 52 55 46 20 |..; .ACH .UFRUF |
00000BF0: 44 45 53 20 CD 4F 4E 49 54 4F 52 53 20 53 54 45 |DES .ONITORS STE|
00000C00: 48 45 4E 20 44 41 4E 4E 20 41 4C 4C 45 20 DA 55 |HEN DANN ALLE .U|
00000C10: 53 41 54 5A 42 45 46 45 48 4C 45 20 5A 55 52 00 |SATZBEFEHLE ZUR.|
00000C20: 91 68 F4 06 3B 20 D6 45 52 46 55 45 47 55 4E 47 |.h..; .ERFUEGUNG|
00000C30: 2E 00 D2 68 FE 06 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D |...h..;---------|
00000C40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000C50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000C60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000C70: 2D 2D 00 D8 68 08 07 3B 00 10 69 12 07 3B 20 C4 |--..h..;..i..; .|
00000C80: 49 45 20 CC 41 42 45 4C 4E 41 4D 45 4E 20 53 49 |IE .ABELNAMEN SI|
00000C90: 4E 44 20 44 45 4D 20 46 4F 4C 47 45 4E 44 45 4E |ND DEM FOLGENDEN|
00000CA0: 20 C2 55 43 48 20 45 4E 54 4E 4F 4D 4D 45 4E 3A | .UCH ENTNOMMEN:|
00000CB0: 00 4C 69 1C 07 3B 20 C3 31 32 38 20 D2 CF CD 2D |.Li..; .128 ...-|
00000CC0: CC 49 53 54 49 4E 47 20 CF 50 45 52 41 54 49 4E |.ISTING .PERATIN|
00000CD0: 47 20 D3 59 53 54 45 4D 20 56 4F 4E 20 D3 43 48 |G .YSTEM VON .CH|
00000CE0: 49 4E 45 49 53 20 45 54 20 41 4C 2E 00 6C 69 26 |INEIS ET AL..li&|
00000CF0: 07 3B 20 CD 41 52 4B 54 26 D4 45 43 48 4E 49 4B |.; .ARKT&.ECHNIK|
00000D00: 20 D6 45 52 4C 41 47 20 31 39 38 36 00 72 69 30 | .ERLAG 1986.ri0|
00000D10: 07 3B 00 99 69 3A 07 2E 8F 54 4F 3D 24 36 30 3B |.;..i:...TO=$60;|
00000D20: 41 42 47 45 4C 45 47 54 45 52 20 57 45 52 54 20 |ABGELEGTER WERT |
00000D30: 56 4F 4E 20 50 41 52 53 45 00 C0 69 44 07 2E 8F |VON PARSE..iD...|
00000D40: 54 58 54 50 54 52 3D 24 37 41 3B 5A 45 49 47 45 |TXTPTR=$7A;ZEIGE|
00000D50: 52 20 49 4E 20 45 49 4E 47 41 42 45 54 45 58 54 |R IN EINGABETEXT|
00000D60: 00 DC 69 4E 07 2E 8F 53 54 41 54 55 53 3D 24 39 |..iN...STATUS=$9|
00000D70: 30 3B 49 2F 4F 2D 53 54 41 54 55 53 00 01 6A 58 |0;I/O-STATUS..jX|
00000D80: 07 2E 8F 44 46 4C 54 4F 3D 24 39 41 3B 41 55 53 |...DFLTO=$9A;AUS|
00000D90: 47 41 42 45 47 45 52 41 45 54 45 4E 55 4D 4D 45 |GABEGERAETENUMME|
00000DA0: 52 00 07 6A 62 07 3B 00 25 6A 6C 07 2E 8F 42 55 |R..jb.;.%jl...BU|
00000DB0: 46 3D 24 30 32 30 30 3B 45 49 4E 47 41 42 45 50 |F=$0200;EINGABEP|
00000DC0: 55 46 46 45 52 00 53 6A 76 07 2E 8F 49 4D 4F 4E |UFFER.Sjv...IMON|
00000DD0: 43 44 3D 24 30 33 32 45 3B 49 4E 44 2E 20 53 50 |CD=$032E;IND. SP|
00000DE0: 52 55 4E 47 20 49 4E 20 44 45 4E 20 4D 4F 4E 49 |RUNG IN DEN MONI|
00000DF0: 54 4F 52 00 77 6A 80 07 2E 8F 43 4D 44 4E 4F 3D |TOR.wj....CMDNO=|
00000E00: 24 30 41 42 32 3B 58 2D 52 45 47 49 53 54 45 52 |$0AB2;X-REGISTER|
00000E10: 20 52 45 54 54 45 4E 00 7D 6A 8A 07 3B 00 A6 6A | RETTEN.}j..;..j|
00000E20: 94 07 2E 8F 42 55 46 46 45 52 3D 24 31 33 30 30 |....BUFFER=$1300|
00000E30: 3B 50 55 46 46 45 52 20 46 55 45 52 20 44 49 53 |;PUFFER FUER DIS|
00000E40: 4B 42 4C 4F 43 4B 00 AC 6A 9E 07 3B 00 CA 6A A8 |KBLOCK..j..;..j.|
00000E50: 07 2E 8F 52 45 41 44 59 3D 24 34 44 33 46 3B 52 |...READY=$4D3F;R|
00000E60: 45 41 44 59 2D 4D 4F 44 55 53 00 F9 6A B2 07 2E |EADY-MODUS..j...|
00000E70: 8F 4D 4F 4E 43 4D 44 3D 24 42 30 30 36 3B 4D 4F |.MONCMD=$B006;MO|
00000E80: 4E 49 54 4F 52 2D 4B 4F 4D 4D 41 4E 44 4F 20 41 |NITOR-KOMMANDO A|
00000E90: 55 53 46 55 45 48 52 45 4E 00 20 6B BC 07 2E 8F |USFUEHREN. k....|
00000EA0: 4D 41 49 4E 3D 24 42 30 38 42 3B 4D 4F 4E 49 54 |MAIN=$B08B;MONIT|
00000EB0: 4F 52 20 57 41 52 54 45 53 43 48 4C 45 49 46 45 |OR WARTESCHLEIFE|
00000EC0: 00 48 6B C6 07 2E 8F 45 52 52 4F 52 3D 24 42 30 |.Hk....ERROR=$B0|
00000ED0: 42 43 3B 4D 4F 4E 49 54 4F 52 20 46 45 48 4C 45 |BC;MONITOR FEHLE|
00000EE0: 52 52 4F 55 54 49 4E 45 00 6E 6B D0 07 2E 8F 50 |RROUTINE.nk....P|
00000EF0: 41 52 53 45 3D 24 42 37 41 37 3B 4F 50 45 52 41 |ARSE=$B7A7;OPERA|
00000F00: 4E 44 45 4E 20 45 52 4D 49 54 54 45 4C 4E 00 99 |NDEN ERMITTELN..|
00000F10: 6B DA 07 2E 8F 50 55 54 48 58 53 3D 24 42 38 41 |k....PUTHXS=$B8A|
00000F20: 35 3B 41 43 43 55 20 2D 3E 20 32 20 41 53 43 49 |5;ACCU -> 2 ASCI|
00000F30: 49 2D 5A 45 49 43 48 45 4E 00 C4 6B E4 07 2E 8F |I-ZEICHEN..k....|
00000F40: 43 52 4C 46 3D 24 42 38 42 34 3B 41 55 53 47 41 |CRLF=$B8B4;AUSGA|
00000F50: 42 45 20 27 43 41 52 52 49 41 47 45 20 52 45 54 |BE 'CARRIAGE RET|
00000F60: 55 52 4E 27 00 EC 6B EE 07 2E 8F 47 4E 43 3D 24 |URN'..k....GNC=$|
00000F70: 42 38 45 39 3B 48 4F 4C 45 20 5A 45 49 43 48 45 |B8E9;HOLE ZEICHE|
00000F80: 4E 20 41 55 53 20 50 55 46 46 45 52 00 14 6C F8 |N AUS PUFFER..l.|
00000F90: 07 2E 8F 44 49 53 4B 53 31 3D 24 42 41 44 46 3B |...DISKS1=$BADF;|
00000FA0: 44 49 53 4B 2D 53 54 41 54 55 53 20 41 4E 5A 45 |DISK-STATUS ANZE|
00000FB0: 49 47 45 4E 00 1A 6C 02 08 3B 00 41 6C 0C 08 2E |IGEN..l..;.Al...|
00000FC0: 8F 44 45 43 41 53 43 3D 24 46 39 46 42 3B 57 41 |.DECASC=$F9FB;WA|
00000FD0: 4E 44 4C 45 20 48 45 58 20 2D 3E 20 41 53 43 49 |NDLE HEX -> ASCI|
00000FE0: 49 00 6E 6C 16 08 2E 8F 4B 53 54 42 4E 4B 3D 24 |I.nl....KSTBNK=$|
00000FF0: 46 46 36 38 3B 42 41 4E 4B 20 46 55 45 52 20 44 |FF68;BANK FUER D|
00001000: 49 53 4B 2D 49 2F 4F 20 53 45 54 5A 45 4E 00 A1 |ISK-I/O SETZEN..|
00001010: 6C 20 08 2E 8F 4B 50 52 49 4D 4D 3D 24 46 46 37 |l ...KPRIMM=$FF7|
00001020: 44 3B 54 45 58 54 20 41 55 53 47 45 42 45 4E 20 |D;TEXT AUSGEBEN |
00001030: 55 4E 44 20 55 45 42 45 52 53 50 52 49 4E 47 45 |UND UEBERSPRINGE|
00001040: 4E 00 C4 6C 2A 08 2E 8F 4B 53 54 4C 46 53 3D 24 |N..l*...KSTLFS=$|
00001050: 46 46 42 41 3B 4C 41 2C 46 41 2C 53 41 20 53 45 |FFBA;LA,FA,SA SE|
00001060: 54 5A 45 4E 00 EA 6C 34 08 2E 8F 4B 53 54 4E 41 |TZEN..l4...KSTNA|
00001070: 4D 3D 24 46 46 42 44 3B 46 4E 4C 45 4E 2C 46 4E |M=$FFBD;FNLEN,FN|
00001080: 41 44 52 20 53 45 54 5A 45 4E 00 10 6D 3E 08 2E |ADR SETZEN..m>..|
00001090: 8F 4B 4F 50 45 4E 3D 24 46 46 43 30 3B 4C 4F 47 |.KOPEN=$FFC0;LOG|
000010A0: 2E 20 46 49 4C 45 20 45 52 4F 45 46 46 4E 45 4E |. FILE EROEFFNEN|
000010B0: 00 38 6D 48 08 2E 8F 4B 43 4C 4F 53 45 3D 24 46 |.8mH...KCLOSE=$F|
000010C0: 46 43 33 3B 4C 4F 47 2E 20 46 49 4C 45 20 53 43 |FC3;LOG. FILE SC|
000010D0: 48 4C 49 45 53 53 45 4E 00 60 6D 52 08 2E 8F 4B |HLIESSEN.`mR...K|
000010E0: 43 48 4B 49 4E 3D 24 46 46 43 36 3B 45 49 4E 47 |CHKIN=$FFC6;EING|
000010F0: 41 42 45 4B 41 4E 41 4C 20 4F 45 46 46 4E 45 4E |ABEKANAL OEFFNEN|
00001100: 00 88 6D 5C 08 2E 8F 4B 43 4B 4F 55 54 3D 24 46 |..m\...KCKOUT=$F|
00001110: 46 43 39 3B 41 55 53 47 41 42 45 4B 41 4E 41 4C |FC9;AUSGABEKANAL|
00001120: 20 4F 45 46 46 4E 45 4E 00 AC 6D 66 08 2E 8F 4B | OEFFNEN..mf...K|
00001130: 43 4C 52 43 48 3D 24 46 46 43 43 3B 4B 41 4E 41 |CLRCH=$FFCC;KANA|
00001140: 4C 20 53 43 48 4C 49 45 53 53 45 4E 00 D7 6D 70 |L SCHLIESSEN..mp|
00001150: 08 2E 8F 4B 42 41 53 49 4E 3D 24 46 46 43 46 3B |...KBASIN=$FFCF;|
00001160: 48 4F 4C 45 20 5A 45 49 43 48 45 4E 20 56 4F 4E |HOLE ZEICHEN VON|
00001170: 20 44 45 56 49 43 45 00 02 6E 7A 08 2E 8F 4B 42 | DEVICE..nz...KB|
00001180: 53 4F 55 54 3D 24 46 46 44 32 3B 53 45 4E 44 45 |SOUT=$FFD2;SENDE|
00001190: 20 5A 45 49 43 48 45 4E 20 41 4E 20 44 45 56 49 | ZEICHEN AN DEVI|
000011A0: 43 45 00 08 6E 84 08 3B 00 18 6E 8E 08 3B 20 4B |CE..n..;..n..; K|
000011B0: 4F 4E 53 54 41 4E 54 45 00 1E 6E 98 08 3B 00 49 |ONSTANTE..n..;.I|
000011C0: 6E A2 08 2E 8F 43 4D 44 41 4E 5A 3D 31 30 3B 41 |n....CMDANZ=10;A|
000011D0: 4E 5A 41 48 4C 20 44 45 52 20 44 49 53 4B 4D 4F |NZAHL DER DISKMO|
000011E0: 4E 2D 42 45 46 45 48 4C 45 00 71 6E AC 08 2E 8F |N-BEFEHLE.qn....|
000011F0: 52 44 43 4D 44 3D 36 3B 4E 55 4D 4D 45 52 20 44 |RDCMD=6;NUMMER D|
00001200: 45 53 20 31 2E 20 4C 45 53 45 42 45 46 45 48 4C |ES 1. LESEBEFEHL|
00001210: 53 00 7E 6E B6 08 20 2E 90 24 31 34 30 30 00 84 |S.~n.. ..$1400..|
00001220: 6E C0 08 3B 00 C6 6E CA 08 3B 2D 2D 2D 2D 2D 2D |n..;..n..;------|
00001230: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001240: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001250: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001260: 2D 2D 2D 2D 2D 2D 00 EF 6E D4 08 3B 20 20 20 20 |------..n..; |
00001270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001280: 20 49 4E 49 54 49 41 4C 49 53 49 45 52 45 4E 00 | INITIALISIEREN.|
00001290: 31 6F DE 08 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |1o..;-----------|
000012A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000012B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000012C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000012D0: 2D 00 37 6F E8 08 3B 00 60 6F F2 08 53 54 41 52 |-.7o..;.`o..STAR|
000012E0: 54 20 81 49 4D 4F 4E 43 44 3B 52 45 54 54 45 20 |T .IMONCD;RETTE |
000012F0: 53 50 52 55 4E 47 56 45 4B 54 4F 52 20 55 4E 44 |SPRUNGVEKTOR UND|
00001300: 00 84 6F FC 08 20 82 47 4F 4D 4F 4E 2B 31 3B 53 |..o.. .GOMON+1;S|
00001310: 45 54 5A 45 20 49 48 4E 20 41 55 46 20 44 49 53 |ETZE IHN AUF DIS|
00001320: 4B 4D 4F 4E 00 93 6F 06 09 20 81 49 4D 4F 4E 43 |KMON..o.. .IMONC|
00001330: 44 2B 31 00 A1 6F 10 09 20 82 47 4F 4D 4F 4E 2B |D+1..o.. .GOMON+|
00001340: 32 00 B2 6F 1A 09 20 81 23 3C 28 44 53 4B 4D 4F |2..o.. .#<(DSKMO|
00001350: 4E 29 00 BF 6F 24 09 20 82 49 4D 4F 4E 43 44 00 |N)..o$. .IMONCD.|
00001360: D0 6F 2E 09 20 81 23 3E 28 44 53 4B 4D 4F 4E 29 |.o.. .#>(DSKMON)|
00001370: 00 DF 6F 38 09 20 82 49 4D 4F 4E 43 44 2B 31 00 |..o8. .IMONCD+1.|
00001380: EC 6F 42 09 20 97 4B 50 52 49 4D 4D 00 12 70 4C |.oB. .KPRIMM..pL|
00001390: 09 20 2E 91 31 33 2C 22 44 49 53 4B 4D 4F 4E 20 |. ..13,"DISKMON |
000013A0: 49 4E 49 54 49 41 4C 49 53 49 45 52 54 22 2C 37 |INITIALISIERT",7|
000013B0: 2C 30 00 1D 70 56 09 20 83 23 24 46 46 00 29 70 |,0..pV. .#$FF.)p|
000013C0: 60 09 20 96 52 45 41 44 59 00 2F 70 6A 09 3B 00 |`. .READY./pj.;.|
000013D0: 71 70 74 09 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |qpt.;-----------|
000013E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000013F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001400: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001410: 2D 00 98 70 7E 09 3B 20 20 20 20 20 20 20 20 20 |-..p~.; |
00001420: 20 20 20 20 20 20 20 20 20 20 20 20 53 50 52 55 | SPRU|
00001430: 4E 47 4C 45 49 53 54 45 00 DA 70 88 09 3B 2D 2D |NGLEISTE..p..;--|
00001440: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001450: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001460: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001470: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 E0 70 92 09 3B |----------..p..;|
00001480: 00 06 71 9C 09 47 4F 4D 4F 31 20 97 4B 43 4C 52 |..q..GOMO1 .KCLR|
00001490: 43 48 3B 41 55 53 47 41 42 45 4B 41 4E 41 4C 20 |CH;AUSGABEKANAL |
000014A0: 41 55 46 20 42 53 00 0D 71 A6 09 20 A1 00 31 71 |AUF BS..q.. ..1q|
000014B0: B0 09 47 4F 4D 4F 4E 20 96 4D 4F 4E 43 4D 44 3B |..GOMON .MONCMD;|
000014C0: 57 45 49 54 45 52 20 49 4D 20 4D 4F 4E 49 54 4F |WEITER IM MONITO|
000014D0: 52 00 37 71 BA 09 3B 00 62 71 C4 09 47 4F 4D 41 |R.7q..;.bq..GOMA|
000014E0: 49 4E 20 96 4D 41 49 4E 3B 57 45 49 54 45 52 20 |IN .MAIN;WEITER |
000014F0: 49 4E 20 4D 4F 4E 49 54 4F 52 53 43 48 4C 45 49 |IN MONITORSCHLEI|
00001500: 46 45 00 68 71 CE 09 3B 00 87 71 D8 09 47 4F 45 |FE.hq..;..q..GOE|
00001510: 52 52 20 96 45 52 52 4F 52 3B 46 45 48 4C 45 52 |RR .ERROR;FEHLER|
00001520: 4D 45 4C 44 55 4E 47 00 8D 71 E2 09 3B 00 CF 71 |MELDUNG..q..;..q|
00001530: EC 09 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..;-------------|
00001540: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001550: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001560: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.|
00001570: FE 71 F6 09 3B 20 20 20 20 20 20 20 20 20 20 20 |.q..; |
00001580: 20 20 20 20 50 52 55 45 46 45 20 4F 42 20 44 49 | PRUEFE OB DI|
00001590: 53 4B 4D 4F 4E 2D 4B 4F 4D 4D 41 4E 44 4F 00 40 |SKMON-KOMMANDO.@|
000015A0: 72 00 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |r..;------------|
000015B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000015C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000015D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000015E0: 00 46 72 0A 0A 3B 00 53 72 14 0A 44 53 4B 4D 4F |.Fr..;.Sr..DSKMO|
000015F0: 4E 20 A0 00 6E 72 1E 0A 20 85 23 22 40 22 3B 44 |N ..nr.. .#"@";D|
00001600: 49 53 4B 2D 4B 4F 4D 4D 41 4E 44 4F 20 3F 00 7A |ISK-KOMMANDO ?.z|
00001610: 72 28 0A 20 B8 47 4F 4D 4F 31 00 85 72 32 0A 20 |r(. .GOMO1..r2. |
00001620: 85 23 22 4C 22 00 91 72 3C 0A 20 B8 47 4F 4D 4F |.#"L"..r<. .GOMO|
00001630: 31 00 9C 72 46 0A 20 85 23 22 53 22 00 A8 72 50 |1..rF. .#"S"..rP|
00001640: 0A 20 B8 47 4F 4D 4F 31 00 B3 72 5A 0A 20 85 23 |. .GOMO1..rZ. .#|
00001650: 22 56 22 00 BF 72 64 0A 20 B8 47 4F 4D 4F 31 00 |"V"..rd. .GOMO1.|
00001660: E2 72 6E 0A 20 97 43 48 4B 50 52 49 3B 41 55 53 |.rn. .CHKPRI;AUS|
00001670: 47 41 42 45 20 41 55 46 20 44 52 55 43 4B 45 52 |GABE AUF DRUCKER|
00001680: 20 3F 00 E9 72 78 0A 20 A1 00 02 73 82 0A 20 85 | ?..rx. ...s.. .|
00001690: 23 22 5E 22 3B 44 49 53 4B 4D 4F 4E 2D 43 4D 44 |#"^";DISKMON-CMD|
000016A0: 20 3F 00 28 73 8C 0A 20 B7 47 4F 4D 4F 4E 3B 4E | ?.(s.. .GOMON;N|
000016B0: 45 49 4E 20 3D 3E 20 57 45 49 54 45 52 20 49 4D |EIN => WEITER IM|
000016C0: 20 4D 4F 4E 49 54 4F 52 00 4B 73 96 0A 20 97 47 | MONITOR.Ks.. .G|
000016D0: 4E 43 3B 50 52 55 45 46 45 20 4E 41 45 43 48 53 |NC;PRUEFE NAECHS|
000016E0: 54 45 53 20 5A 45 49 43 48 45 4E 00 6F 73 A0 0A |TES ZEICHEN.os..|
000016F0: 20 B8 44 53 50 4C 59 4D 3B 4E 45 49 4E 20 3D 3E | .DSPLYM;NEIN =>|
00001700: 20 5A 45 49 47 45 20 42 4C 4F 43 4B 20 41 4E 00 | ZEIGE BLOCK AN.|
00001710: 96 73 AA 0A 20 83 23 43 4D 44 41 4E 5A 3B 41 4E |.s.. .#CMDANZ;AN|
00001720: 5A 41 48 4C 20 44 45 52 20 42 45 46 45 48 4C 5A |ZAHL DER BEFEHLZ|
00001730: 45 49 43 48 45 4E 00 C1 73 B4 0A 44 53 4B 4D 4F |EICHEN..s..DSKMO|
00001740: 31 20 85 43 4D 44 53 2C 58 3B 4D 49 54 20 54 41 |1 .CMDS,X;MIT TA|
00001750: 42 45 4C 4C 45 20 56 45 52 47 4C 45 49 43 48 45 |BELLE VERGLEICHE|
00001760: 4E 00 E5 73 BE 0A 20 B7 44 53 4B 4D 4F 32 3B 4E |N..s.. .DSKMO2;N|
00001770: 49 43 48 54 20 47 4C 45 49 43 48 20 3D 3E 20 57 |ICHT GLEICH => W|
00001780: 45 49 54 45 52 00 0C 74 C8 0A 20 88 43 4D 44 4E |EITER..t.. .CMDN|
00001790: 4F 3B 42 45 46 45 48 4C 53 4E 55 4D 4D 45 52 20 |O;BEFEHLSNUMMER |
000017A0: 46 55 45 52 20 53 50 41 45 54 45 52 00 34 74 D2 |FUER SPAETER.4t.|
000017B0: 0A 20 81 41 44 52 48 2C 58 3B 41 44 52 45 53 53 |. .ADRH,X;ADRESS|
000017C0: 45 20 41 55 46 20 53 54 41 50 45 4C 20 55 4D 20 |E AUF STAPEL UM |
000017D0: 44 41 4E 4E 00 5C 74 DC 0A 20 A0 3B 4D 49 54 20 |DANN.\t.. .;MIT |
000017E0: 52 54 53 20 44 49 45 20 52 4F 55 54 49 4E 45 20 |RTS DIE ROUTINE |
000017F0: 41 4E 5A 55 53 50 52 49 4E 47 45 4E 00 69 74 E6 |ANZUSPRINGEN.it.|
00001800: 0A 20 81 41 44 52 4C 2C 58 00 70 74 F0 0A 20 A0 |. .ADRL,X.pt.. .|
00001810: 00 77 74 FA 0A 20 A4 00 7D 74 04 0B 3B 00 8A 74 |.wt.. ..}t..;..t|
00001820: 0E 0B 44 53 4B 4D 4F 32 20 AF 00 AA 74 18 0B 20 |..DSKMO2 ...t.. |
00001830: B1 44 53 4B 4D 4F 31 3B 57 45 49 54 45 52 20 56 |.DSKMO1;WEITER V|
00001840: 45 52 47 4C 45 49 43 48 45 4E 00 C0 74 22 0B 20 |ERGLEICHEN..t". |
00001850: B2 47 4F 45 52 52 3B 3D 3E 20 46 45 48 4C 45 52 |.GOERR;=> FEHLER|
00001860: 00 C6 74 2C 0B 3B 00 08 75 36 0B 3B 2D 2D 2D 2D |..t,.;..u6.;----|
00001870: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001880: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001890: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000018A0: 2D 2D 2D 2D 2D 2D 2D 2D 00 38 75 40 0B 3B 20 20 |--------.8u@.; |
000018B0: 20 20 20 20 20 20 41 4C 54 45 4E 20 4C 4F 47 49 | ALTEN LOGI|
000018C0: 53 43 48 45 4E 20 42 4C 4F 43 4B 20 57 49 45 44 |SCHEN BLOCK WIED|
000018D0: 45 52 20 4C 45 53 45 4E 00 7A 75 4A 0B 3B 2D 2D |ER LESEN.zuJ.;--|
000018E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000018F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001900: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001910: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 80 75 54 0B 3B |----------..uT.;|
00001920: 00 B0 75 5E 0B 4F 4C 44 42 4C 4B 20 81 4F 4C 44 |..u^.OLDBLK .OLD|
00001930: 53 45 43 3B 41 4C 54 45 4E 20 53 45 4B 54 4F 52 |SEC;ALTEN SEKTOR|
00001940: 20 55 4E 44 20 42 4C 4F 43 4B 20 48 4F 4C 45 4E | UND BLOCK HOLEN|
00001950: 00 BD 75 68 0B 20 82 53 41 56 53 45 43 00 CA 75 |..uh. .SAVSEC..u|
00001960: 72 0B 20 81 4F 4C 44 54 52 4B 00 D7 75 7C 0B 20 |r. .OLDTRK..u|. |
00001970: 82 53 41 56 54 52 4B 00 E4 75 86 0B 20 96 44 53 |.SAVTRK..u.. .DS|
00001980: 4B 49 4F 31 00 EA 75 90 0B 3B 00 2C 76 9A 0B 3B |KIO1..u..;.,v..;|
00001990: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000019A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000019B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000019C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 56 76 A4 |------------.Vv.|
000019D0: 0B 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.; |
000019E0: 20 20 20 20 20 20 20 20 42 4C 4F 43 4B 20 41 4E | BLOCK AN|
000019F0: 5A 45 49 47 45 4E 00 98 76 AE 0B 3B 2D 2D 2D 2D |ZEIGEN..v..;----|
00001A00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001A10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001A20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001A30: 2D 2D 2D 2D 2D 2D 2D 2D 00 9E 76 B8 0B 3B 00 B1 |--------..v..;..|
00001A40: 76 C2 0B 44 53 50 4C 59 4D 20 97 4B 50 52 49 4D |v..DSPLYM .KPRIM|
00001A50: 4D 00 C6 76 CC 0B 20 2E 91 31 33 2C 22 53 50 55 |M..v.. ..13,"SPU|
00001A60: 52 3A 20 22 2C 30 00 D3 76 D6 0B 20 81 53 41 56 |R: ",0..v.. .SAV|
00001A70: 54 52 4B 00 F4 76 E0 0B 20 97 50 55 54 48 58 53 |TRK..v.. .PUTHXS|
00001A80: 3B 47 45 42 45 20 53 50 55 52 4E 55 4D 4D 45 52 |;GEBE SPURNUMMER|
00001A90: 20 41 55 53 00 01 77 EA 0B 20 97 4B 50 52 49 4D | AUS..w.. .KPRIM|
00001AA0: 4D 00 17 77 F4 0B 20 2E 91 22 20 20 53 45 4B 54 |M..w.. .." SEKT|
00001AB0: 4F 52 3A 20 22 2C 30 00 24 77 FE 0B 20 81 53 41 |OR: ",0.$w.. .SA|
00001AC0: 56 53 45 43 00 47 77 08 0C 20 97 50 55 54 48 58 |VSEC.Gw.. .PUTHX|
00001AD0: 53 3B 47 45 42 45 20 53 45 4B 54 4F 52 4E 55 4D |S;GEBE SEKTORNUM|
00001AE0: 4D 45 52 20 41 55 53 00 4D 77 12 0C 3B 00 58 77 |MER AUS.Mw..;.Xw|
00001AF0: 1C 0C 20 83 23 24 30 43 00 86 77 26 0C 44 53 50 |.. .#$0C..w&.DSP|
00001B00: 4C 59 31 20 81 4D 54 45 58 54 2C 58 3B 53 43 48 |LY1 .MTEXT,X;SCH|
00001B10: 52 45 49 42 45 20 4D 2D 41 44 52 45 53 53 45 20 |REIBE M-ADRESSE |
00001B20: 49 4E 20 44 45 4E 00 99 77 30 0C 20 82 42 55 46 |IN DEN..w0. .BUF|
00001B30: 2C 58 3B 50 55 46 46 45 52 00 A0 77 3A 0C 20 AF |,X;PUFFER..w:. .|
00001B40: 00 AD 77 44 0C 20 B1 44 53 50 4C 59 31 00 B4 77 |..wD. .DSPLY1..w|
00001B50: 4E 0C 20 A2 00 D7 77 58 0C 20 88 54 58 54 50 54 |N. ...wX. .TXTPT|
00001B60: 52 3B 4B 4F 52 52 49 47 49 45 52 45 20 54 45 58 |R;KORRIGIERE TEX|
00001B70: 54 5A 45 49 47 45 52 00 FA 77 62 0C 20 97 47 4E |TZEIGER..wb. .GN|
00001B80: 43 3B 4C 45 53 45 20 45 52 53 54 45 53 20 5A 45 |C;LESE ERSTES ZE|
00001B90: 49 43 48 45 4E 20 28 3D 4D 29 00 17 78 6C 0C 20 |ICHEN (=M)..xl. |
00001BA0: 96 47 4F 4D 4F 4E 3B 5A 45 49 47 45 20 42 45 52 |.GOMON;ZEIGE BER|
00001BB0: 45 49 43 48 20 41 4E 00 1D 78 76 0C 3B 00 5F 78 |EICH AN..xv.;._x|
00001BC0: 80 0C 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..;-------------|
00001BD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001BE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001BF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.|
00001C00: 8A 78 8A 0C 3B 20 20 20 20 20 20 20 20 20 20 20 |.x..; |
00001C10: 20 20 20 20 20 20 20 4C 45 53 45 2F 53 43 48 52 | LESE/SCHR|
00001C20: 45 49 42 45 20 42 4C 4F 43 4B 00 CC 78 94 0C 3B |EIBE BLOCK..x..;|
00001C30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001C40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001C50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001C60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 D2 78 9E |------------..x.|
00001C70: 0C 3B 00 F3 78 A8 0C 44 53 4B 49 4F 20 97 47 45 |.;..x..DSKIO .GE|
00001C80: 54 50 41 52 3B 48 4F 4C 45 20 50 41 52 41 4D 45 |TPAR;HOLE PARAME|
00001C90: 54 45 52 00 F9 78 B2 0C 3B 00 2D 79 BC 0C 3B 3D |TER..x..;.-y..;=|
00001CA0: 3D 3D 3E 20 4F 45 46 46 4E 45 20 4B 4F 4D 4D 41 |==> OEFFNE KOMMA|
00001CB0: 4E 44 4F 4B 41 4E 41 4C 20 31 35 20 55 4E 44 20 |NDOKANAL 15 UND |
00001CC0: 44 41 54 45 4E 4B 41 4E 41 4C 20 31 33 00 33 79 |DATENKANAL 13.3y|
00001CD0: C6 0C 3B 00 5F 79 D0 0C 44 53 4B 49 4F 31 20 97 |..;._y..DSKIO1 .|
00001CE0: 4B 43 4C 52 43 48 3B 53 45 54 5A 45 20 49 4E 2D |KCLRCH;SETZE IN-|
00001CF0: 2F 4F 55 54 20 41 55 46 20 4E 4F 52 4D 41 4C 00 |/OUT AUF NORMAL.|
00001D00: 75 79 DA 0C 20 81 23 30 3B 46 49 4C 45 4E 55 4D |uy.. .#0;FILENUM|
00001D10: 4D 45 52 20 30 00 7C 79 E4 0C 20 99 00 8C 79 EE |MER 0.|y.. ...y.|
00001D20: 0C 20 88 54 4F 2B 32 3B 42 41 4E 4B 00 B2 79 F8 |. .TO+2;BANK..y.|
00001D30: 0C 20 97 4B 53 54 42 4E 4B 3B 53 45 54 5A 45 20 |. .KSTBNK;SETZE |
00001D40: 42 41 4E 4B 20 46 55 45 52 20 44 49 53 4B 2D 49 |BANK FUER DISK-I|
00001D50: 2F 4F 00 C5 79 02 0D 20 84 23 31 35 3B 4B 41 4E |/O..y.. .#15;KAN|
00001D60: 41 4C 20 31 35 00 E1 79 0C 0D 20 83 44 45 56 49 |AL 15..y.. .DEVI|
00001D70: 43 45 3B 47 45 52 41 45 54 45 41 44 52 45 53 53 |CE;GERAETEADRESS|
00001D80: 45 00 FE 79 16 0D 20 97 4B 53 54 4C 46 53 3B 53 |E..y.. .KSTLFS;S|
00001D90: 45 54 5A 45 20 50 41 52 41 4D 45 54 45 52 00 16 |ETZE PARAMETER..|
00001DA0: 7A 20 0D 20 81 23 30 3B 4B 45 49 4E 20 46 49 4C |z . .#0;KEIN FIL|
00001DB0: 45 4E 41 4D 45 4E 00 23 7A 2A 0D 20 97 4B 53 54 |ENAMEN.#z*. .KST|
00001DC0: 4E 41 4D 00 3B 7A 34 0D 20 97 4B 4F 50 45 4E 3B |NAM.;z4. .KOPEN;|
00001DD0: 4F 45 46 46 4E 45 20 46 49 4C 45 00 52 7A 3E 0D |OEFFNE FILE.Rz>.|
00001DE0: 20 B6 43 4C 4F 53 45 43 3B 46 45 48 4C 45 52 20 | .CLOSEC;FEHLER |
00001DF0: 3D 3E 00 6A 7A 48 0D 20 81 23 31 33 3B 46 49 4C |=>.jzH. .#13;FIL|
00001E00: 45 4E 55 4D 4D 45 52 20 31 33 00 7A 7A 52 0D 20 |ENUMMER 13.zzR. |
00001E10: 9B 3B 4B 41 4E 41 4C 20 31 33 00 95 7A 5C 0D 20 |.;KANAL 13..z\. |
00001E20: 83 44 45 56 49 43 45 3B 47 45 52 41 45 54 45 4E |.DEVICE;GERAETEN|
00001E30: 55 4D 4D 45 52 00 A2 7A 66 0D 20 97 4B 53 54 4C |UMMER..zf. .KSTL|
00001E40: 46 53 00 BB 7A 70 0D 20 81 23 31 3B 46 49 4C 45 |FS..zp. .#1;FILE|
00001E50: 4E 41 4D 45 4E 4C 41 45 4E 47 45 00 D9 7A 7A 0D |NAMENLAENGE..zz.|
00001E60: 20 83 23 3C 28 44 41 44 52 29 3B 46 49 4C 45 4E | .#<(DADR);FILEN|
00001E70: 41 4D 45 4E 3D 20 22 23 22 00 E8 7A 84 0D 20 84 |AMEN= "#"..z.. .|
00001E80: 23 3E 28 44 41 44 52 29 00 F5 7A 8E 0D 20 97 4B |#>(DADR)..z.. .K|
00001E90: 53 54 4E 41 4D 00 0D 7B 98 0D 20 97 4B 4F 50 45 |STNAM..{.. .KOPE|
00001EA0: 4E 3B 4F 45 46 46 4E 45 20 46 49 4C 45 00 23 7B |N;OEFFNE FILE.#{|
00001EB0: A2 0D 20 B6 43 4C 4F 53 45 43 3B 46 45 48 4C 45 |.. .CLOSEC;FEHLE|
00001EC0: 52 3D 3E 00 44 7B AC 0D 20 81 43 4D 44 4E 4F 3B |R=>.D{.. .CMDNO;|
00001ED0: 41 55 46 20 44 49 53 4B 20 53 43 48 52 45 49 42 |AUF DISK SCHREIB|
00001EE0: 45 4E 20 3F 00 56 7B B6 0D 20 B8 57 52 49 54 45 |EN ?.V{.. .WRITE|
00001EF0: 3B 4A 41 20 3D 3E 00 5C 7B C0 0D 3B 00 9E 7B CA |;JA =>.\{..;..{.|
00001F00: 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------|
00001F10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001F20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001F30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 CD |--------------..|
00001F40: 7B D4 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 |{..; |
00001F50: 20 20 20 20 20 20 4C 45 53 45 20 42 4C 4F 43 4B | LESE BLOCK|
00001F60: 20 56 4F 4E 20 44 49 53 4B 45 54 54 45 00 0F 7C | VON DISKETTE..||
00001F70: DE 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..;-------------|
00001F80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001F90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001FA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.|
00001FB0: 15 7C E8 0D 3B 00 20 7C F2 0D 20 81 23 22 31 22 |.|..;. |.. .#"1"|
00001FC0: 00 45 7C FC 0D 20 97 53 4E 44 43 4D 44 3B 42 4C |.E|.. .SNDCMD;BL|
00001FD0: 4F 43 4B 52 45 41 44 2D 42 45 46 45 48 4C 20 53 |OCKREAD-BEFEHL S|
00001FE0: 45 4E 44 45 4E 00 57 7C 06 0E 20 83 23 31 33 3B |ENDEN.W|.. .#13;|
00001FF0: 46 49 4C 45 20 31 33 00 78 7C 10 0E 20 97 4B 43 |FILE 13.x|.. .KC|
00002000: 48 4B 49 4E 3B 45 49 4E 47 41 42 45 20 56 4F 52 |HKIN;EINGABE VOR|
00002010: 42 45 52 45 49 54 45 4E 00 81 7C 1A 0E 20 83 23 |BEREITEN..|.. .#|
00002020: 30 00 AC 7C 24 0E 52 45 41 44 20 97 4B 42 41 53 |0..|$.READ .KBAS|
00002030: 49 4E 3B 48 4F 4C 45 20 5A 45 49 43 48 45 4E 20 |IN;HOLE ZEICHEN |
00002040: 56 4F 4E 20 44 49 53 4B 45 54 54 45 00 D1 7C 2E |VON DISKETTE..|.|
00002050: 0E 20 82 42 55 46 46 45 52 2C 58 3B 53 43 48 52 |. .BUFFER,X;SCHR|
00002060: 45 49 42 45 20 45 53 20 49 4E 20 50 55 46 46 45 |EIBE ES IN PUFFE|
00002070: 52 00 E7 7C 38 0E 20 81 53 54 41 54 55 53 3B 46 |R..|8. .STATUS;F|
00002080: 45 48 4C 45 52 20 3F 00 FA 7C 42 0E 20 B7 43 4C |EHLER ?..|B. .CL|
00002090: 4F 53 45 43 3B 4A 41 20 3D 3E 00 0A 7D 4C 0E 20 |OSEC;JA =>..}L. |
000020A0: A2 3B 46 45 52 54 49 47 20 3F 00 24 7D 56 0E 20 |.;FERTIG ?.$}V. |
000020B0: B7 52 45 41 44 3B 4E 45 49 4E 20 3D 3E 20 57 45 |.READ;NEIN => WE|
000020C0: 49 54 45 52 00 2A 7D 60 0E 3B 00 60 7D 6A 0E 3B |ITER.*}`.;.`}j.;|
000020D0: 3D 3D 3E 20 53 43 48 4C 49 45 53 53 45 20 44 41 |==> SCHLIESSE DA|
000020E0: 54 45 4E 4B 41 4E 41 4C 20 31 33 20 55 4E 44 20 |TENKANAL 13 UND |
000020F0: 4B 4F 4D 4D 41 4E 44 4F 4B 41 4E 41 4C 20 31 35 |KOMMANDOKANAL 15|
00002100: 00 66 7D 74 0E 3B 00 95 7D 7E 0E 43 4C 4F 53 45 |.f}t.;..}~.CLOSE|
00002110: 43 20 97 4B 43 4C 52 43 48 3B 4E 4F 52 4D 41 4C |C .KCLRCH;NORMAL|
00002120: 45 20 45 49 4E 2D 2F 41 55 53 47 41 42 45 20 53 |E EIN-/AUSGABE S|
00002130: 45 54 5A 45 4E 00 AD 7D 88 0E 20 81 23 31 33 3B |ETZEN..}.. .#13;|
00002140: 46 49 4C 45 4E 55 4D 4D 45 52 20 31 33 00 B4 7D |FILENUMMER 13..}|
00002150: 92 0E 20 A7 00 D1 7D 9C 0E 20 97 4B 43 4C 4F 53 |.. ...}.. .KCLOS|
00002160: 45 3B 53 43 48 4C 49 45 53 53 45 20 4B 41 4E 41 |E;SCHLIESSE KANA|
00002170: 4C 00 DC 7D A6 0E 20 97 43 52 4C 46 00 E2 7D B0 |L..}.. .CRLF..}.|
00002180: 0E 3B 00 FF 7D BA 0E 3B 3D 3D 3E 20 4C 45 53 45 |.;..}..;==> LESE|
00002190: 20 44 49 53 4B 53 54 41 54 55 53 20 45 49 4E 00 | DISKSTATUS EIN.|
000021A0: 05 7E C4 0E 3B 00 1E 7E CE 0E 20 83 23 30 3B 48 |.~..;..~.. .#0;H|
000021B0: 4F 4C 45 20 44 49 53 4B 53 54 41 54 55 53 00 2B |OLE DISKSTATUS.+|
000021C0: 7E D8 0E 20 97 4B 43 48 4B 49 4E 00 38 7E E2 0E |~.. .KCHKIN.8~..|
000021D0: 20 B6 43 4C 4F 53 45 46 00 45 7E EC 0E 20 97 4B | .CLOSEF.E~.. .K|
000021E0: 42 41 53 49 4E 00 52 7E F6 0E 20 82 45 52 52 46 |BASIN.R~.. .ERRF|
000021F0: 4C 47 00 5E 7E 00 0F 20 B7 53 54 41 54 31 00 6F |LG.^~.. .STAT1.o|
00002200: 7E 0A 0F 53 54 41 54 20 97 4B 42 41 53 49 4E 00 |~..STAT .KBASIN.|
00002210: 87 7E 14 0F 53 54 41 54 31 20 85 23 31 33 3B 52 |.~..STAT1 .#13;R|
00002220: 45 54 55 52 4E 20 3F 00 A1 7E 1E 0F 20 B8 43 4C |ETURN ?..~.. .CL|
00002230: 4F 53 45 46 3B 4A 41 20 3D 3E 20 46 45 52 54 49 |OSEF;JA => FERTI|
00002240: 47 00 AE 7E 28 0F 20 97 4B 42 53 4F 55 54 00 BB |G..~(. .KBSOUT..|
00002250: 7E 32 0F 20 81 53 54 41 54 55 53 00 D5 7E 3C 0F |~2. .STATUS..~<.|
00002260: 20 87 23 25 31 30 31 31 31 31 31 31 3B 46 45 52 | .#%10111111;FER|
00002270: 54 49 47 20 3F 00 EF 7E 46 0F 20 B8 53 54 41 54 |TIG ?..~F. .STAT|
00002280: 3B 4E 45 49 4E 20 3D 3E 20 57 45 49 54 45 52 00 |;NEIN => WEITER.|
00002290: 14 7F 50 0F 43 4C 4F 53 45 46 20 97 4B 43 4C 52 |..P.CLOSEF .KCLR|
000022A0: 43 48 3B 53 43 48 4C 49 45 53 53 45 20 4B 41 4E |CH;SCHLIESSE KAN|
000022B0: 41 45 4C 45 00 37 7F 5A 0F 20 97 43 48 4B 50 52 |AELE.7.Z. .CHKPR|
000022C0: 49 3B 41 55 53 47 41 42 45 20 41 55 46 20 44 52 |I;AUSGABE AUF DR|
000022D0: 55 43 4B 45 52 20 3F 00 4D 7F 64 0F 20 81 23 30 |UCKER ?.M.d. .#0|
000022E0: 3B 46 49 4C 45 4E 55 4D 4D 45 52 20 30 00 54 7F |;FILENUMMER 0.T.|
000022F0: 6E 0F 20 A7 00 74 7F 78 0F 20 97 4B 43 4C 4F 53 |n. ..t.x. .KCLOS|
00002300: 45 3B 53 43 48 4C 49 45 53 53 45 20 4B 41 4E 41 |E;SCHLIESSE KANA|
00002310: 4C 20 31 35 00 8F 7F 82 0F 20 81 45 52 52 46 4C |L 15..... .ERRFL|
00002320: 47 3B 44 49 53 4B 2D 46 45 48 4C 45 52 20 3F 00 |G;DISK-FEHLER ?.|
00002330: 9A 7F 8C 0F 20 85 23 22 30 22 00 AD 7F 96 0F 20 |.... .#"0"..... |
00002340: B7 43 4C 4F 53 45 44 3B 4A 41 20 3D 3E 00 CA 7F |.CLOSED;JA =>...|
00002350: A0 0F 20 81 43 4D 44 4E 4F 3B 42 4C 4F 43 4B 20 |.. .CMDNO;BLOCK |
00002360: 41 4E 5A 45 49 47 45 4E 20 3F 00 E7 7F AA 0F 20 |ANZEIGEN ?..... |
00002370: 85 23 52 44 43 4D 44 3B 31 2E 20 4C 45 53 45 42 |.#RDCMD;1. LESEB|
00002380: 45 46 45 48 4C 20 3F 00 FB 7F B4 0F 20 B5 43 4C |EFEHL ?..... .CL|
00002390: 4F 53 45 44 3B 4E 45 49 4E 3D 3E 00 17 80 BE 0F |OSED;NEIN=>.....|
000023A0: 20 96 44 53 50 4C 59 4D 3B 5A 45 49 47 45 20 42 | .DSPLYM;ZEIGE B|
000023B0: 4C 4F 43 4B 20 41 4E 00 3C 80 C8 0F 43 4C 4F 53 |LOCK AN.<...CLOS|
000023C0: 45 44 20 96 47 4F 4D 41 49 4E 3B 57 45 49 54 45 |ED .GOMAIN;WEITE|
000023D0: 52 20 49 4D 20 4D 4F 4E 49 54 4F 52 00 42 80 D2 |R IM MONITOR.B..|
000023E0: 0F 3B 00 84 80 DC 0F 3B 2D 2D 2D 2D 2D 2D 2D 2D |.;.....;--------|
000023F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002400: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002410: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002420: 2D 2D 2D 2D 00 B4 80 E6 0F 3B 20 20 20 20 20 20 |----.....; |
00002430: 20 20 20 20 20 20 20 20 20 53 43 48 52 45 49 42 | SCHREIB|
00002440: 45 20 42 4C 4F 43 4B 20 41 55 46 20 44 49 53 4B |E BLOCK AUF DISK|
00002450: 45 54 54 45 00 F6 80 F0 0F 3B 2D 2D 2D 2D 2D 2D |ETTE.....;------|
00002460: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002470: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002480: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002490: 2D 2D 2D 2D 2D 2D 00 FC 80 FA 0F 3B 00 19 81 04 |------.....;....|
000024A0: 10 57 52 49 54 45 20 83 23 31 33 3B 46 49 4C 45 |.WRITE .#13;FILE|
000024B0: 4E 55 4D 4D 45 52 20 31 33 00 3A 81 0E 10 20 97 |NUMMER 13.:... .|
000024C0: 4B 43 4B 4F 55 54 3B 42 45 52 45 49 54 45 20 41 |KCKOUT;BEREITE A|
000024D0: 55 53 47 41 42 45 20 56 4F 52 00 51 81 18 10 20 |USGABE VOR.Q... |
000024E0: B6 43 4C 4F 53 45 43 3B 46 45 48 4C 45 52 20 3D |.CLOSEC;FEHLER =|
000024F0: 3E 00 5A 81 22 10 20 83 23 31 00 80 81 2C 10 57 |>.Z.". .#1...,.W|
00002500: 52 49 54 45 31 20 81 42 55 46 46 45 52 2C 58 3B |RITE1 .BUFFER,X;|
00002510: 48 4F 4C 45 20 5A 45 49 43 48 45 4E 20 55 4E 44 |HOLE ZEICHEN UND|
00002520: 00 96 81 36 10 20 97 4B 42 53 4F 55 54 3B 53 45 |...6. .KBSOUT;SE|
00002530: 4E 44 45 20 45 53 00 A3 81 40 10 20 B6 43 4C 4F |NDE ES...@. .CLO|
00002540: 53 45 43 00 B3 81 4A 10 20 A2 3B 46 45 52 54 49 |SEC...J. .;FERTI|
00002550: 47 20 3F 00 D2 81 54 10 20 B7 57 52 49 54 45 31 |G ?...T. .WRITE1|
00002560: 3B 4E 45 49 4E 20 3D 3E 20 4E 41 45 43 48 53 54 |;NEIN => NAECHST|
00002570: 45 53 00 DF 81 5E 10 20 81 42 55 46 46 45 52 00 |ES...^. .BUFFER.|
00002580: EC 81 68 10 20 97 4B 42 53 4F 55 54 00 03 82 72 |..h. .KBSOUT...r|
00002590: 10 20 B6 43 4C 4F 53 45 43 3B 46 45 48 4C 45 52 |. .CLOSEC;FEHLER|
000025A0: 20 3D 3E 00 2C 82 7C 10 20 97 4B 43 4C 52 43 48 | =>.,.|. .KCLRCH|
000025B0: 3B 4E 4F 52 4D 41 4C 45 20 45 49 4E 2D 2F 41 55 |;NORMALE EIN-/AU|
000025C0: 53 47 41 42 45 20 53 45 54 5A 45 4E 00 37 82 86 |SGABE SETZEN.7..|
000025D0: 10 20 81 23 22 32 22 00 5E 82 90 10 20 97 53 4E |. .#"2".^... .SN|
000025E0: 44 43 4D 44 3B 42 4C 4F 43 4B 2D 57 52 49 54 45 |DCMD;BLOCK-WRITE|
000025F0: 20 42 45 46 45 48 4C 20 53 45 4E 44 45 4E 00 71 | BEFEHL SENDEN.q|
00002600: 82 9A 10 57 52 49 54 45 32 20 96 43 4C 4F 53 45 |...WRITE2 .CLOSE|
00002610: 43 00 77 82 A4 10 3B 00 B9 82 AE 10 3B 2D 2D 2D |C.w...;.....;---|
00002620: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002630: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002640: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002650: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 E9 82 B8 10 3B 20 |---------.....; |
00002660: 20 20 20 20 20 20 20 20 20 20 4E 41 45 43 48 53 | NAECHS|
00002670: 54 45 4E 20 4C 4F 47 49 53 43 48 45 4E 20 42 4C |TEN LOGISCHEN BL|
00002680: 4F 43 4B 20 4C 45 53 45 4E 00 2B 83 C2 10 3B 2D |OCK LESEN.+...;-|
00002690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000026A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000026B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000026C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 31 83 CC 10 |-----------.1...|
000026D0: 3B 00 57 83 D6 10 4E 45 58 42 4C 4B 20 81 42 55 |;.W...NEXBLK .BU|
000026E0: 46 46 45 52 3B 4B 4F 4D 4D 54 20 4E 4F 43 48 20 |FFER;KOMMT NOCH |
000026F0: 45 49 4E 45 52 20 3F 00 73 83 E0 10 20 B8 4E 4F |EINER ?.s... .NO|
00002700: 42 4C 4B 3B 4E 45 49 4E 20 3D 3E 20 4D 45 4C 44 |BLK;NEIN => MELD|
00002710: 55 4E 47 00 97 83 EA 10 20 83 53 41 56 54 52 4B |UNG..... .SAVTRK|
00002720: 3B 41 4C 54 45 20 53 50 55 52 4E 55 4D 4D 45 52 |;ALTE SPURNUMMER|
00002730: 20 52 45 54 54 45 4E 00 A4 83 F4 10 20 88 4F 4C | RETTEN..... .OL|
00002740: 44 54 52 4B 00 CA 83 FE 10 20 83 53 41 56 53 45 |DTRK..... .SAVSE|
00002750: 43 3B 41 4C 54 45 20 53 45 4B 54 4F 52 4E 55 4D |C;ALTE SEKTORNUM|
00002760: 4D 45 52 20 52 45 54 54 45 4E 00 D7 83 08 11 20 |MER RETTEN..... |
00002770: 88 4F 4C 44 53 45 43 00 E4 83 12 11 20 82 53 41 |.OLDSEC..... .SA|
00002780: 56 54 52 4B 00 F3 83 1C 11 20 81 42 55 46 46 45 |VTRK..... .BUFFE|
00002790: 52 2B 31 00 00 84 26 11 20 82 53 41 56 53 45 43 |R+1...&. .SAVSEC|
000027A0: 00 0D 84 30 11 20 96 44 53 4B 49 4F 31 00 13 84 |...0. .DSKIO1...|
000027B0: 3A 11 3B 00 25 84 44 11 4E 4F 42 4C 4B 20 97 4B |:.;.%.D.NOBLK .K|
000027C0: 50 52 49 4D 4D 00 45 84 4E 11 20 2E 91 31 33 2C |PRIMM.E.N. ..13,|
000027D0: 22 4B 45 49 4E 20 42 4C 4F 43 4B 20 4D 45 48 52 |"KEIN BLOCK MEHR|
000027E0: 22 2C 37 2C 30 00 52 84 58 11 20 96 47 4F 4D 41 |",7,0.R.X. .GOMA|
000027F0: 49 4E 00 58 84 62 11 3B 00 9A 84 6C 11 3B 2D 2D |IN.X.b.;...l.;--|
00002800: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002810: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002820: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002830: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 CA 84 76 11 3B |----------...v.;|
00002840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4E | N|
00002850: 45 55 45 20 46 4C 4F 50 50 59 41 44 52 45 53 53 |EUE FLOPPYADRESS|
00002860: 45 20 45 49 4E 47 45 42 45 4E 00 0C 85 80 11 3B |E EINGEBEN.....;|
00002870: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002880: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002890: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000028A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 12 85 8A |------------....|
000028B0: 11 3B 00 24 85 94 11 47 45 54 44 45 56 20 97 47 |.;.$...GETDEV .G|
000028C0: 45 54 44 56 00 31 85 9E 11 20 96 47 4F 4D 41 49 |ETDV.1... .GOMAI|
000028D0: 4E 00 37 85 A8 11 3B 00 79 85 B2 11 3B 2D 2D 2D |N.7...;.y...;---|
000028E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000028F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002900: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002910: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 A7 85 BC 11 3B 20 |---------.....; |
00002920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4E 45 | NE|
00002930: 55 45 20 44 52 49 56 45 4E 55 4D 4D 45 52 20 45 |UE DRIVENUMMER E|
00002940: 49 4E 47 45 42 45 4E 00 E9 85 C6 11 3B 2D 2D 2D |INGEBEN.....;---|
00002950: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002960: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002970: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002980: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 EF 85 D0 11 3B 00 |---------.....;.|
00002990: 01 86 DA 11 47 45 54 44 52 56 20 97 47 45 54 44 |....GETDRV .GETD|
000029A0: 52 00 0E 86 E4 11 20 96 47 4F 4D 41 49 4E 00 14 |R..... .GOMAIN..|
000029B0: 86 EE 11 3B 00 56 86 F8 11 3B 2D 2D 2D 2D 2D 2D |...;.V...;------|
000029C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000029D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000029E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000029F0: 2D 2D 2D 2D 2D 2D 00 87 86 02 12 3B 20 20 20 20 |------.....; |
00002A00: 20 20 20 20 20 20 20 20 20 20 20 41 55 53 47 41 | AUSGA|
00002A10: 42 45 20 41 55 46 20 44 52 55 43 4B 45 52 20 55 |BE AUF DRUCKER U|
00002A20: 4D 4C 45 49 54 45 4E 00 C9 86 0C 12 3B 2D 2D 2D |MLEITEN.....;---|
00002A30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002A40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002A50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002A60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 CF 86 16 12 3B 00 |---------.....;.|
00002A70: E1 86 20 12 50 52 49 4E 54 20 97 43 4C 4F 50 52 |.. .PRINT .CLOPR|
00002A80: 49 00 EC 86 2A 12 20 97 43 52 4C 46 00 0B 87 34 |I...*. .CRLF...4|
00002A90: 12 20 97 50 41 52 53 45 3B 48 4F 4C 45 20 50 52 |. .PARSE;HOLE PR|
00002AA0: 49 4E 54 45 52 4E 55 4D 4D 45 52 00 33 87 3E 12 |INTERNUMMER.3.>.|
00002AB0: 20 B7 50 52 49 4E 54 31 3B 4B 45 49 4E 45 20 4E | .PRINT1;KEINE N|
00002AC0: 45 55 45 20 47 45 52 41 45 54 45 20 41 44 52 45 |EUE GERAETE ADRE|
00002AD0: 53 53 45 00 4C 87 48 12 20 83 23 34 3B 53 54 41 |SSE.L.H. .#4;STA|
00002AE0: 4E 44 41 52 44 44 52 55 43 4B 45 52 00 6D 87 52 |NDARDDRUCKER.m.R|
00002AF0: 12 20 2E 91 24 32 43 3B 32 20 42 59 54 45 53 20 |. ..$2C;2 BYTES |
00002B00: 55 45 42 45 52 53 50 52 49 4E 47 45 4E 00 8A 87 |UEBERSPRINGEN...|
00002B10: 5C 12 50 52 49 4E 54 31 20 83 54 4F 3B 44 52 55 |\.PRINT1 .TO;DRU|
00002B20: 43 4B 45 52 4E 55 4D 4D 45 52 00 A1 87 66 12 20 |CKERNUMMER...f. |
00002B30: 8B 23 34 3B 50 52 55 45 46 45 20 4E 55 4D 4D 45 |.#4;PRUEFE NUMME|
00002B40: 52 00 AE 87 70 12 20 B6 50 52 49 4E 54 30 00 CA |R...p. .PRINT0..|
00002B50: 87 7A 12 50 52 49 45 52 52 20 96 47 4F 45 52 52 |.z.PRIERR .GOERR|
00002B60: 3B 3D 3E 20 46 45 48 4C 45 52 00 D9 87 84 12 50 |;=> FEHLER.....P|
00002B70: 52 49 4E 54 30 20 8B 23 38 00 E6 87 8E 12 20 B6 |RINT0 .#8..... .|
00002B80: 50 52 49 45 52 52 00 F3 87 98 12 20 88 53 41 56 |PRIERR..... .SAV|
00002B90: 50 52 49 00 0C 88 A2 12 20 81 23 34 3B 4C 4F 47 |PRI..... .#4;LOG|
00002BA0: 2E 20 46 49 4C 45 4E 55 4D 4D 45 52 00 22 88 AC |. FILENUMMER."..|
00002BB0: 12 20 84 23 30 3B 53 45 4B 2E 20 41 44 52 45 53 |. .#0;SEK. ADRES|
00002BC0: 53 45 00 2F 88 B6 12 20 97 4B 53 54 4C 46 53 00 |SE./... .KSTLFS.|
00002BD0: 38 88 C0 12 20 81 23 30 00 45 88 CA 12 20 97 4B |8... .#0.E... .K|
00002BE0: 53 54 4E 41 4D 00 51 88 D4 12 20 97 4B 4F 50 45 |STNAM.Q... .KOPE|
00002BF0: 4E 00 5E 88 DE 12 20 B5 50 52 49 4E 54 32 00 75 |N.^... .PRINT2.u|
00002C00: 88 E8 12 20 96 47 4F 4D 41 49 4E 3B 46 45 48 4C |... .GOMAIN;FEHL|
00002C10: 45 52 20 3D 3E 00 84 88 F2 12 50 52 49 4E 54 32 |ER =>.....PRINT2|
00002C20: 20 83 23 34 00 9F 88 FC 12 20 97 4B 43 4B 4F 55 | .#4..... .KCKOU|
00002C30: 54 3B 4B 41 4E 41 4C 20 4F 45 46 46 4E 45 4E 00 |T;KANAL OEFFNEN.|
00002C40: B8 88 06 13 20 81 23 31 3B 53 45 54 5A 45 20 50 |.... .#1;SETZE P|
00002C50: 52 49 4E 54 46 4C 41 47 00 C5 88 10 13 20 82 50 |RINTFLAG..... .P|
00002C60: 52 49 46 4C 47 00 D2 88 1A 13 20 96 47 4F 4D 41 |RIFLG..... .GOMA|
00002C70: 49 4E 00 D8 88 24 13 3B 00 1A 89 2E 13 3B 2D 2D |IN...$.;.....;--|
00002C80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002C90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002CA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002CB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 4A 89 38 13 3B |----------.J.8.;|
00002CC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 41 55 53 | AUS|
00002CD0: 47 41 42 45 20 57 49 45 44 45 52 20 41 55 46 20 |GABE WIEDER AUF |
00002CE0: 42 49 4C 44 53 43 48 49 52 4D 00 8C 89 42 13 3B |BILDSCHIRM...B.;|
00002CF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002D00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002D10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002D20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 92 89 4C |------------...L|
00002D30: 13 3B 00 A1 89 56 13 42 53 20 97 43 4C 4F 50 52 |.;...V.BS .CLOPR|
00002D40: 49 00 C0 89 60 13 20 96 47 4F 4D 41 49 4E 3B 57 |I...`. .GOMAIN;W|
00002D50: 45 49 54 45 52 20 49 4D 20 4D 4F 4E 49 54 4F 52 |EITER IM MONITOR|
00002D60: 00 C6 89 6A 13 3B 00 EF 89 74 13 43 4C 4F 50 52 |...j.;...t.CLOPR|
00002D70: 49 20 81 50 52 49 46 4C 47 3B 41 55 53 47 41 42 |I .PRIFLG;AUSGAB|
00002D80: 45 20 41 55 46 20 44 52 55 43 4B 45 52 20 3F 00 |E AUF DRUCKER ?.|
00002D90: 04 8A 7E 13 20 B8 43 4C 4F 50 52 31 3B 4E 45 49 |..~. .CLOPR1;NEI|
00002DA0: 4E 20 3D 3E 00 11 8A 88 13 20 97 4B 43 4C 52 43 |N =>..... .KCLRC|
00002DB0: 48 00 24 8A 92 13 20 81 23 34 3B 46 49 4C 45 4E |H.$... .#4;FILEN|
00002DC0: 52 2E 20 34 00 2B 8A 9C 13 20 A7 00 4A 8A A6 13 |R. 4.+... ..J...|
00002DD0: 20 97 4B 43 4C 4F 53 45 3B 53 43 48 4C 49 45 53 | .KCLOSE;SCHLIES|
00002DE0: 53 45 20 4B 41 4E 41 4C 20 34 00 53 8A B0 13 20 |SE KANAL 4.S... |
00002DF0: 81 23 30 00 78 8A BA 13 20 82 50 52 49 46 4C 47 |.#0.x... .PRIFLG|
00002E00: 3B 53 45 54 5A 45 20 50 52 49 4E 54 46 4C 41 47 |;SETZE PRINTFLAG|
00002E10: 20 5A 55 52 55 45 43 4B 00 85 8A C4 13 43 4C 4F | ZURUECK.....CLO|
00002E20: 50 52 31 20 A4 00 8B 8A CE 13 3B 00 CD 8A D8 13 |PR1 ......;.....|
00002E30: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |;---------------|
00002E40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002E50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002E60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 05 8B |-------------...|
00002E70: E2 13 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |..; |
00002E80: 20 4E 41 45 43 48 53 54 45 52 20 50 48 59 53 49 | NAECHSTER PHYSI|
00002E90: 4B 41 4C 49 53 43 48 45 4E 20 42 4C 4F 43 4B 20 |KALISCHEN BLOCK |
00002EA0: 4C 45 53 45 4E 00 47 8B EC 13 3B 2D 2D 2D 2D 2D |LESEN.G...;-----|
00002EB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002EC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002ED0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002EE0: 2D 2D 2D 2D 2D 2D 2D 00 4D 8B F6 13 3B 00 70 8B |-------.M...;.p.|
00002EF0: 00 14 50 4C 55 53 20 83 53 41 56 53 45 43 3B 48 |..PLUS .SAVSEC;H|
00002F00: 4F 4C 45 20 53 45 4B 54 4F 52 4E 55 4D 4D 45 52 |OLE SEKTORNUMMER|
00002F10: 00 8C 8B 0A 14 20 A2 3B 45 52 48 4F 45 48 45 20 |..... .;ERHOEHE |
00002F20: 53 45 4B 54 4F 52 4E 55 4D 4D 45 52 00 99 8B 14 |SEKTORNUMMER....|
00002F30: 14 20 88 53 41 56 53 45 43 00 C2 8B 1E 14 20 97 |. .SAVSEC..... .|
00002F40: 43 48 4B 53 45 43 3B 48 4F 4C 45 20 4D 41 58 2E |CHKSEC;HOLE MAX.|
00002F50: 20 53 45 4B 54 4F 52 4E 55 4D 4D 45 52 20 46 55 | SEKTORNUMMER FU|
00002F60: 45 52 00 E5 8B 28 14 20 85 53 41 56 53 45 43 3B |ER...(. .SAVSEC;|
00002F70: 44 49 45 53 45 20 53 50 55 52 2E 20 4B 4F 52 52 |DIESE SPUR. KORR|
00002F80: 45 4B 54 20 3F 00 F7 8B 32 14 20 B6 50 4C 55 53 |EKT ?...2. .PLUS|
00002F90: 31 3B 4A 41 20 3D 3E 00 1C 8C 3C 14 20 83 53 41 |1;JA =>...<. .SA|
00002FA0: 56 54 52 4B 3B 4B 4F 52 52 49 47 49 45 52 45 20 |VTRK;KORRIGIERE |
00002FB0: 53 45 4B 54 4F 52 4E 55 4D 4D 45 52 00 23 8C 46 |SEKTORNUMMER.#.F|
00002FC0: 14 20 A2 00 30 8C 50 14 20 88 53 41 56 54 52 4B |. ..0.P. .SAVTRK|
00002FD0: 00 39 8C 5A 14 20 83 23 30 00 4F 8C 64 14 20 88 |.9.Z. .#0.O.d. .|
00002FE0: 53 41 56 53 45 43 3B 53 45 4B 54 4F 52 20 30 00 |SAVSEC;SEKTOR 0.|
00002FF0: 61 8C 6E 14 50 4C 55 53 31 20 96 44 53 4B 49 4F |a.n.PLUS1 .DSKIO|
00003000: 31 00 67 8C 78 14 3B 00 A9 8C 82 14 3B 2D 2D 2D |1.g.x.;.....;---|
00003010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 E0 8C 8C 14 3B 20 |---------.....; |
00003050: 20 20 20 20 20 20 20 20 20 20 20 56 4F 52 48 45 | VORHE|
00003060: 52 49 47 45 4E 20 50 48 59 53 49 4B 41 4C 49 53 |RIGEN PHYSIKALIS|
00003070: 43 48 45 4E 20 42 4C 4F 43 4B 20 4C 45 53 45 4E |CHEN BLOCK LESEN|
00003080: 00 22 8D 96 14 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |."...;----------|
00003090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000030A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000030B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000030C0: 2D 2D 00 28 8D A0 14 3B 00 4C 8D AA 14 4D 49 4E |--.(...;.L...MIN|
000030D0: 55 53 20 83 53 41 56 53 45 43 3B 48 4F 4C 45 20 |US .SAVSEC;HOLE |
000030E0: 53 45 4B 54 4F 52 4E 55 4D 4D 45 52 00 71 8D B4 |SEKTORNUMMER.q..|
000030F0: 14 20 B8 4D 49 4E 55 53 31 3B 49 53 54 20 45 53 |. .MINUS1;IST ES|
00003100: 20 53 45 4B 54 4F 52 20 30 20 3F 20 4A 41 20 3D | SEKTOR 0 ? JA =|
00003110: 3E 00 90 8D BE 14 20 AF 3B 45 52 4E 49 45 44 52 |>..... .;ERNIEDR|
00003120: 49 47 45 20 53 45 4B 54 4F 52 4E 55 4D 4D 45 52 |IGE SEKTORNUMMER|
00003130: 00 9D 8D C8 14 20 88 53 41 56 53 45 43 00 AA 8D |..... .SAVSEC...|
00003140: D2 14 20 96 44 53 4B 49 4F 31 00 B0 8D DC 14 3B |.. .DSKIO1.....;|
00003150: 00 CD 8D E6 14 4D 49 4E 55 53 31 20 83 53 41 56 |.....MINUS1 .SAV|
00003160: 54 52 4B 3B 48 4F 4C 45 20 53 50 55 52 00 ED 8D |TRK;HOLE SPUR...|
00003170: F0 14 20 AF 3B 4E 41 45 43 48 53 54 45 20 4E 49 |.. .;NAECHSTE NI|
00003180: 45 44 52 49 47 45 52 45 20 53 50 55 52 00 07 8E |EDRIGERE SPUR...|
00003190: FA 14 20 B7 4D 49 4E 55 53 32 3B 4E 4F 43 48 20 |.. .MINUS2;NOCH |
000031A0: 4E 49 43 48 54 20 30 00 0E 8E 04 15 20 A2 00 37 |NICHT 0..... ..7|
000031B0: 8E 0E 15 4D 49 4E 55 53 32 20 88 53 41 56 54 52 |...MINUS2 .SAVTR|
000031C0: 4B 3B 4E 45 55 45 20 53 50 55 52 20 41 42 53 50 |K;NEUE SPUR ABSP|
000031D0: 45 49 43 48 45 52 4E 00 5F 8E 18 15 20 97 43 48 |EICHERN._... .CH|
000031E0: 4B 53 45 43 3B 48 4F 4C 45 20 48 4F 45 43 48 53 |KSEC;HOLE HOECHS|
000031F0: 54 45 20 53 45 4B 54 4F 52 4E 55 4D 4D 45 52 00 |TE SEKTORNUMMER.|
00003200: 6C 8E 22 15 20 82 53 41 56 53 45 43 00 79 8E 2C |l.". .SAVSEC.y.,|
00003210: 15 20 96 44 53 4B 49 4F 31 00 7F 8E 36 15 3B 00 |. .DSKIO1...6.;.|
00003220: C1 8E 40 15 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..@.;-----------|
00003230: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003240: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003250: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003260: 2D 00 EA 8E 4A 15 3B 20 20 20 20 20 20 20 20 20 |-...J.; |
00003270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 | S|
00003280: 55 42 52 4F 55 54 49 4E 45 4E 00 2C 8F 54 15 3B |UBROUTINEN.,.T.;|
00003290: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000032A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000032B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000032C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 32 8F 5E |------------.2.^|
000032D0: 15 3B 00 4A 8F 68 15 3B 3D 3D 3E 20 48 4F 4C 45 |.;.J.h.;==> HOLE|
000032E0: 20 50 41 52 41 4D 45 54 45 52 00 50 8F 72 15 3B | PARAMETER.P.r.;|
000032F0: 00 6D 8F 7C 15 47 45 54 50 41 52 20 97 50 41 52 |.m.|.GETPAR .PAR|
00003300: 53 45 3B 53 50 55 52 20 48 4F 4C 45 4E 00 8E 8F |SE;SPUR HOLEN...|
00003310: 86 15 20 B8 47 45 54 50 31 3B 47 4C 45 49 43 48 |.. .GETP1;GLEICH|
00003320: 45 4E 20 42 4C 4F 43 4B 20 4C 45 53 45 4E 00 97 |EN BLOCK LESEN..|
00003330: 8F 90 15 20 81 54 4F 00 B1 8F 9A 15 20 B8 47 45 |... .TO..... .GE|
00003340: 54 45 52 52 3B 30 3F 20 46 45 48 4C 45 52 20 3D |TERR;0? FEHLER =|
00003350: 3E 00 C9 8F A4 15 20 85 23 37 31 3B 47 52 4F 45 |>..... .#71;GROE|
00003360: 53 53 45 52 20 37 30 20 3F 00 E3 8F AE 15 20 B6 |SSER 70 ?..... .|
00003370: 47 45 54 45 52 52 3B 4A 41 20 3D 3E 20 46 45 48 |GETERR;JA => FEH|
00003380: 4C 45 52 00 08 90 B8 15 20 83 53 41 56 54 52 4B |LER..... .SAVTRK|
00003390: 3B 52 45 54 54 45 20 41 4C 54 45 20 53 45 4B 54 |;RETTE ALTE SEKT|
000033A0: 4F 52 4E 55 4D 4D 45 52 00 15 90 C2 15 20 88 4F |ORNUMMER..... .O|
000033B0: 4C 44 54 52 4B 00 22 90 CC 15 20 82 53 41 56 54 |LDTRK."... .SAVT|
000033C0: 52 4B 00 3B 90 D6 15 20 97 50 41 52 53 45 3B 53 |RK.;... .PARSE;S|
000033D0: 45 4B 54 4F 52 20 48 4F 4C 45 4E 00 5D 90 E0 15 |EKTOR HOLEN.]...|
000033E0: 20 B8 47 45 54 50 31 3B 47 4C 45 49 43 48 45 4E | .GETP1;GLEICHEN|
000033F0: 20 53 45 4B 54 4F 52 20 4C 45 53 45 4E 00 82 90 | SEKTOR LESEN...|
00003400: EA 15 20 83 53 41 56 53 45 43 3B 52 45 54 54 45 |.. .SAVSEC;RETTE|
00003410: 20 41 4C 54 45 20 53 45 4B 54 4F 52 4E 55 4D 4D | ALTE SEKTORNUMM|
00003420: 45 52 00 8B 90 F4 15 20 81 54 4F 00 98 90 FE 15 |ER..... .TO.....|
00003430: 20 82 53 41 56 53 45 43 00 B9 90 08 16 20 97 43 | .SAVSEC..... .C|
00003440: 48 4B 53 45 43 3B 50 52 55 45 46 45 20 53 45 4B |HKSEC;PRUEFE SEK|
00003450: 54 4F 52 4E 55 4D 4D 45 52 00 E0 90 12 16 20 85 |TORNUMMER..... .|
00003460: 53 41 56 53 45 43 3B 4B 4C 45 49 4E 45 52 20 41 |SAVSEC;KLEINER A|
00003470: 4C 53 20 4D 41 58 2E 20 53 45 4B 54 4F 52 20 3F |LS MAX. SEKTOR ?|
00003480: 00 ED 90 1C 16 20 B8 47 45 54 50 41 31 00 09 91 |..... .GETPA1...|
00003490: 26 16 20 B5 47 45 54 45 52 52 3B 4E 45 49 4E 20 |&. .GETERR;NEIN |
000034A0: 3D 3E 20 46 45 48 4C 45 52 00 1C 91 30 16 47 45 |=> FEHLER...0.GE|
000034B0: 54 50 41 31 20 88 4F 4C 44 53 45 43 00 41 91 3A |TPA1 .OLDSEC.A.:|
000034C0: 16 47 45 54 44 56 20 97 50 41 52 53 45 3B 47 45 |.GETDV .PARSE;GE|
000034D0: 52 41 45 54 45 4E 55 4D 4D 45 52 20 48 4F 4C 45 |RAETENUMMER HOLE|
000034E0: 4E 00 4D 91 44 16 20 B8 47 45 54 50 31 00 56 91 |N.M.D. .GETP1.V.|
000034F0: 4E 16 20 83 54 4F 00 74 91 58 16 20 8B 23 38 3B |N. .TO.t.X. .#8;|
00003500: 50 52 55 45 46 45 20 47 45 52 41 45 54 45 4E 55 |PRUEFE GERAETENU|
00003510: 4D 4D 45 52 00 81 91 62 16 20 B5 47 45 54 45 52 |MMER...b. .GETER|
00003520: 52 00 8B 91 6C 16 20 8B 23 33 32 00 98 91 76 16 |R...l. .#32...v.|
00003530: 20 B6 47 45 54 45 52 52 00 A5 91 80 16 20 88 44 | .GETERR..... .D|
00003540: 45 56 49 43 45 00 CB 91 8A 16 47 45 54 44 52 20 |EVICE.....GETDR |
00003550: 97 50 41 52 53 45 3B 4C 41 55 46 57 45 52 4B 4E |.PARSE;LAUFWERKN|
00003560: 55 4D 4D 45 52 20 48 4F 4C 45 4E 00 D7 91 94 16 |UMMER HOLEN.....|
00003570: 20 B8 47 45 54 50 31 00 E0 91 9E 16 20 81 54 4F | .GETP1..... .TO|
00003580: 00 02 92 A8 16 20 B8 47 45 54 50 32 3B 50 52 55 |..... .GETP2;PRU|
00003590: 45 46 45 20 4C 41 55 46 57 45 52 4B 4E 55 4D 4D |EFE LAUFWERKNUMM|
000035A0: 45 52 00 0B 92 B2 16 20 85 23 31 00 18 92 BC 16 |ER..... .#1.....|
000035B0: 20 B7 47 45 54 45 52 52 00 2A 92 C6 16 47 45 54 | .GETERR.*...GET|
000035C0: 50 32 20 82 53 41 56 44 52 56 00 36 92 D0 16 47 |P2 .SAVDRV.6...G|
000035D0: 45 54 50 31 20 A4 00 3C 92 DA 16 3B 00 4E 92 E4 |ETP1 ..<...;.N..|
000035E0: 16 47 45 54 45 52 52 20 96 47 4F 45 52 52 00 54 |.GETERR .GOERR.T|
000035F0: 92 EE 16 3B 00 7F 92 F8 16 3B 3D 3D 3E 20 53 45 |...;.....;==> SE|
00003600: 4E 44 45 20 55 2D 4B 4F 4D 4D 41 4E 44 4F 53 54 |NDE U-KOMMANDOST|
00003610: 52 49 4E 47 20 5A 55 52 20 46 4C 4F 50 50 59 00 |RING ZUR FLOPPY.|
00003620: 85 92 02 17 3B 00 AA 92 0C 17 53 4E 44 43 4D 44 |....;.....SNDCMD|
00003630: 20 82 43 4D 44 53 54 52 2B 31 3B 55 2D 42 45 46 | .CMDSTR+1;U-BEF|
00003640: 45 48 4C 53 4E 55 4D 4D 45 52 00 D5 92 16 17 20 |EHLSNUMMER..... |
00003650: 81 53 41 56 54 52 4B 3B 57 41 4E 44 4C 45 20 53 |.SAVTRK;WANDLE S|
00003660: 50 55 52 4E 55 4D 4D 45 52 20 55 4E 44 20 53 45 |PURNUMMER UND SE|
00003670: 4B 54 4F 52 2D 00 FC 92 20 17 20 97 44 45 43 41 |KTOR-... . .DECA|
00003680: 53 43 3B 57 41 4E 44 4C 45 20 56 4F 4E 20 48 45 |SC;WANDLE VON HE|
00003690: 58 20 4E 41 43 48 20 41 53 43 49 49 00 08 93 2A |X NACH ASCII...*|
000036A0: 17 20 88 54 52 41 43 4B 00 16 93 34 17 20 82 54 |. .TRACK...4. .T|
000036B0: 52 41 43 4B 2B 31 00 23 93 3E 17 20 81 53 41 56 |RACK+1.#.>. .SAV|
000036C0: 53 45 43 00 4A 93 48 17 20 97 44 45 43 41 53 43 |SEC.J.H. .DECASC|
000036D0: 3B 57 41 4E 44 4C 45 20 56 4F 4E 20 48 45 58 20 |;WANDLE VON HEX |
000036E0: 4E 41 43 48 20 41 53 43 49 49 00 57 93 52 17 20 |NACH ASCII.W.R. |
000036F0: 88 53 45 43 54 4F 52 00 66 93 5C 17 20 82 53 45 |.SECTOR.f.\. .SE|
00003700: 43 54 4F 52 2B 31 00 90 93 66 17 20 81 53 41 56 |CTOR+1...f. .SAV|
00003710: 44 52 56 3B 44 41 53 53 45 4C 42 45 20 46 55 45 |DRV;DASSELBE FUE|
00003720: 52 20 4C 41 55 46 57 45 52 4B 4E 55 4D 4D 45 52 |R LAUFWERKNUMMER|
00003730: 00 B7 93 70 17 20 97 44 45 43 41 53 43 3B 57 41 |...p. .DECASC;WA|
00003740: 4E 44 4C 45 20 56 4F 4E 20 48 45 58 20 4E 41 43 |NDLE VON HEX NAC|
00003750: 48 20 41 53 43 49 49 00 C3 93 7A 17 20 82 44 52 |H ASCII...z. .DR|
00003760: 49 56 45 00 D6 93 84 17 20 83 23 30 3B 46 49 4C |IVE..... .#0;FIL|
00003770: 45 4E 52 2E 20 30 00 F7 93 8E 17 20 97 4B 43 4B |ENR. 0..... .KCK|
00003780: 4F 55 54 3B 42 45 52 45 49 54 45 20 41 55 53 47 |OUT;BEREITE AUSG|
00003790: 41 42 45 20 56 4F 52 00 12 94 98 17 20 B5 53 4E |ABE VOR..... .SN|
000037A0: 44 43 31 3B 4B 45 49 4E 20 46 45 48 4C 45 52 20 |DC1;KEIN FEHLER |
000037B0: 3D 3E 00 1F 94 A2 17 20 96 43 4C 4F 53 45 43 00 |=>..... .CLOSEC.|
000037C0: 25 94 AC 17 3B 00 33 94 B6 17 53 4E 44 43 31 20 |%...;.3...SNDC1 |
000037D0: 83 23 30 00 61 94 C0 17 53 45 4E 44 43 31 20 81 |.#0.a...SENDC1 .|
000037E0: 43 4D 44 53 54 52 2C 58 3B 53 45 4E 44 45 20 4B |CMDSTR,X;SENDE K|
000037F0: 4F 4D 4D 41 4E 44 4F 53 54 52 49 4E 47 20 5A 55 |OMMANDOSTRING ZU|
00003800: 52 00 75 94 CA 17 20 97 4B 42 53 4F 55 54 3B 46 |R.u... .KBSOUT;F|
00003810: 4C 4F 50 50 59 00 7C 94 D4 17 20 A2 00 8F 94 DE |LOPPY.|... .....|
00003820: 17 20 8B 23 31 33 3B 46 45 52 54 49 47 20 3F 00 |. .#13;FERTIG ?.|
00003830: B6 94 E8 17 20 B7 53 45 4E 44 43 31 3B 4E 45 49 |.... .SENDC1;NEI|
00003840: 4E 20 3D 3E 20 4E 41 45 43 48 53 54 45 53 20 5A |N => NAECHSTES Z|
00003850: 45 49 43 48 45 4E 00 DF 94 F2 17 20 96 4B 43 4C |EICHEN..... .KCL|
00003860: 52 43 48 3B 4E 4F 52 4D 41 4C 45 20 45 49 4E 2D |RCH;NORMALE EIN-|
00003870: 2F 41 55 53 47 41 42 45 20 53 45 54 5A 45 4E 00 |/AUSGABE SETZEN.|
00003880: E5 94 FC 17 3B 00 27 95 06 18 3B 2D 2D 2D 2D 2D |....;.'...;-----|
00003890: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000038A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000038B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000038C0: 2D 2D 2D 2D 2D 2D 2D 00 55 95 10 18 3B 20 20 20 |-------.U...; |
000038D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 | D|
000038E0: 52 55 43 4B 45 52 41 55 53 47 41 42 45 20 50 52 |RUCKERAUSGABE PR|
000038F0: 55 45 46 45 4E 00 97 95 1A 18 3B 2D 2D 2D 2D 2D |UEFEN.....;-----|
00003900: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003910: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003920: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003930: 2D 2D 2D 2D 2D 2D 2D 00 9D 95 24 18 3B 00 C6 95 |-------...$.;...|
00003940: 2E 18 43 48 4B 50 52 49 20 81 50 52 49 46 4C 47 |..CHKPRI .PRIFLG|
00003950: 3B 41 55 53 47 41 42 45 20 41 55 46 20 44 52 55 |;AUSGABE AUF DRU|
00003960: 43 4B 45 52 20 3F 00 DB 95 38 18 20 B8 43 48 4B |CKER ?...8. .CHK|
00003970: 50 52 31 3B 4E 45 49 4E 20 3D 3E 00 FF 95 42 18 |PR1;NEIN =>...B.|
00003980: 20 97 4B 43 4C 52 43 48 3B 41 55 53 47 41 42 45 | .KCLRCH;AUSGABE|
00003990: 20 41 55 46 20 42 49 4C 44 53 43 48 49 52 4D 00 | AUF BILDSCHIRM.|
000039A0: 1A 96 4C 18 20 97 43 52 4C 46 3B 52 45 54 55 52 |..L. .CRLF;RETUR|
000039B0: 4E 20 41 55 53 47 45 42 45 4E 00 37 96 56 18 20 |N AUSGEBEN.7.V. |
000039C0: 83 23 34 3B 41 55 53 47 41 42 45 20 41 55 46 20 |.#4;AUSGABE AUF |
000039D0: 44 52 55 43 4B 45 52 00 44 96 60 18 20 97 4B 43 |DRUCKER.D.`. .KC|
000039E0: 4B 4F 55 54 00 51 96 6A 18 43 48 4B 50 52 31 20 |KOUT.Q.j.CHKPR1 |
000039F0: A4 00 57 96 74 18 3B 00 99 96 7E 18 3B 2D 2D 2D |..W.t.;...~.;---|
00003A00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003A10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003A20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003A30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 D3 96 88 18 3B 20 |---------.....; |
00003A40: 20 20 20 20 20 20 20 20 53 55 42 52 4F 55 54 49 | SUBROUTI|
00003A50: 4E 45 20 5A 55 4D 20 46 45 53 54 53 54 45 4C 4C |NE ZUM FESTSTELL|
00003A60: 45 4E 20 44 45 52 20 53 45 4B 54 4F 52 4E 55 4D |EN DER SEKTORNUM|
00003A70: 4D 45 52 00 15 97 92 18 3B 2D 2D 2D 2D 2D 2D 2D |MER.....;-------|
00003A80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003A90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003AA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003AB0: 2D 2D 2D 2D 2D 00 1B 97 9C 18 3B 00 38 97 A6 18 |-----.....;.8...|
00003AC0: 43 48 4B 53 45 43 20 81 53 41 56 54 52 4B 3B 48 |CHKSEC .SAVTRK;H|
00003AD0: 4F 4C 45 20 53 50 55 52 00 59 97 B0 18 20 84 23 |OLE SPUR.Y... .#|
00003AE0: 37 3B 41 4E 5A 41 48 4C 20 44 45 52 20 45 49 4E |7;ANZAHL DER EIN|
00003AF0: 54 52 41 45 47 45 20 49 4E 00 96 97 BA 18 3B 20 |TRAEGE IN.....; |
00003B00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003B10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003B20: 20 20 20 53 50 55 52 2D 2F 53 45 4B 54 4F 52 54 | SPUR-/SEKTORT|
00003B30: 41 42 45 4C 4C 45 00 C2 97 C4 18 43 48 4B 53 45 |ABELLE.....CHKSE|
00003B40: 31 20 85 54 52 4B 54 41 42 2C 59 3B 56 45 52 47 |1 .TRKTAB,Y;VERG|
00003B50: 4C 45 49 43 48 45 20 53 50 55 52 4E 55 4D 4D 45 |LEICHE SPURNUMME|
00003B60: 52 4E 00 DF 97 CE 18 20 B5 43 48 4B 53 45 32 3B |RN..... .CHKSE2;|
00003B70: 4B 4C 45 49 4E 45 52 20 3F 20 4A 41 20 3D 3E 00 |KLEINER ? JA =>.|
00003B80: E6 97 D8 18 20 A3 00 08 98 E2 18 20 B1 43 48 4B |.... ...... .CHK|
00003B90: 53 45 31 3B 4E 4F 43 48 20 4E 49 43 48 54 20 46 |SE1;NOCH NICHT F|
00003BA0: 45 52 54 49 47 20 3D 3E 00 2F 98 EC 18 43 48 4B |ERTIG =>./...CHK|
00003BB0: 53 45 32 20 81 53 45 43 54 41 42 2C 59 3B 4C 41 |SE2 .SECTAB,Y;LA|
00003BC0: 44 45 20 53 45 4B 54 4F 52 4E 55 4D 4D 45 52 00 |DE SEKTORNUMMER.|
00003BD0: 36 98 F6 18 20 A4 00 3C 98 00 19 3B 00 7E 98 0A |6... ..<...;.~..|
00003BE0: 19 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------|
00003BF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003C00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003C10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 A5 |--------------..|
00003C20: 98 14 19 3B 20 20 20 20 20 20 20 20 20 20 20 20 |...; |
00003C30: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 41 42 | TAB|
00003C40: 45 4C 4C 45 4E 00 E7 98 1E 19 3B 2D 2D 2D 2D 2D |ELLEN.....;-----|
00003C50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003C60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003C70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003C80: 2D 2D 2D 2D 2D 2D 2D 00 ED 98 28 19 3B 00 2A 99 |-------...(.;.*.|
00003C90: 32 19 3B 20 42 45 44 49 4E 47 54 20 44 55 52 43 |2.; BEDINGT DURC|
00003CA0: 48 20 44 49 45 20 46 4F 52 4D 20 44 45 52 20 47 |H DIE FORM DER G|
00003CB0: 45 57 41 45 48 4C 54 45 4E 20 41 42 46 52 41 47 |EWAEHLTEN ABFRAG|
00003CC0: 45 20 53 49 4E 44 20 44 49 45 00 5C 99 3C 19 3B |E SIND DIE.\.<.;|
00003CD0: 20 57 45 52 54 45 20 49 4E 20 44 45 52 20 54 41 | WERTE IN DER TA|
00003CE0: 42 45 4C 4C 45 20 54 52 4B 54 41 42 20 55 4D 20 |BELLE TRKTAB UM |
00003CF0: 45 49 4E 53 20 45 52 48 4F 45 48 54 00 62 99 46 |EINS ERHOEHT.b.F|
00003D00: 19 3B 00 87 99 50 19 54 52 4B 54 41 42 20 2E 91 |.;...P.TRKTAB ..|
00003D10: 37 31 2C 36 36 2C 36 30 2C 35 33 2C 33 36 2C 33 |71,66,60,53,36,3|
00003D20: 31 2C 32 35 2C 31 38 00 AC 99 5A 19 53 45 43 54 |1,25,18...Z.SECT|
00003D30: 41 42 20 2E 91 31 36 2C 31 37 2C 31 38 2C 32 30 |AB ..16,17,18,20|
00003D40: 2C 31 36 2C 31 37 2C 31 38 2C 32 30 00 B2 99 64 |,16,17,18,20...d|
00003D50: 19 3B 00 C6 99 6E 19 3B 20 42 45 46 45 48 4C 54 |.;...n.; BEFEHLT|
00003D60: 41 42 45 4C 4C 45 00 CC 99 78 19 3B 00 EB 99 82 |ABELLE...x.;....|
00003D70: 19 43 4D 44 53 20 2E 91 22 57 22 3B 42 4C 4F 43 |.CMDS .."W";BLOC|
00003D80: 4B 20 53 43 48 52 45 49 42 45 4E 00 05 9A 8C 19 |K SCHREIBEN.....|
00003D90: 20 2E 91 22 4D 22 3B 42 4C 4F 43 4B 20 41 4E 5A | .."M";BLOCK ANZ|
00003DA0: 45 49 47 45 4E 00 2C 9A 96 19 20 2E 91 22 47 22 |EIGEN.,... .."G"|
00003DB0: 3B 4E 45 55 45 20 46 4C 4F 50 50 59 2D 4E 55 4D |;NEUE FLOPPY-NUM|
00003DC0: 4D 45 52 20 45 49 4E 47 45 42 45 4E 00 54 9A A0 |MER EINGEBEN.T..|
00003DD0: 19 20 2E 91 22 44 22 3B 4E 45 55 45 20 4C 41 55 |. .."D";NEUE LAU|
00003DE0: 46 57 45 52 4B 4E 55 4D 4D 45 52 20 45 49 4E 47 |FWERKNUMMER EING|
00003DF0: 45 42 45 4E 00 7A 9A AA 19 20 2E 91 22 50 22 3B |EBEN.z... .."P";|
00003E00: 41 55 53 47 41 42 45 20 41 55 46 20 44 52 55 43 |AUSGABE AUF DRUC|
00003E10: 4B 45 52 20 4C 45 49 54 45 4E 00 A3 9A B4 19 20 |KER LEITEN..... |
00003E20: 2E 91 22 42 22 3B 41 55 53 47 41 42 45 20 41 55 |.."B";AUSGABE AU|
00003E30: 46 20 42 49 4C 44 53 43 48 49 52 4D 20 4C 45 49 |F BILDSCHIRM LEI|
00003E40: 54 45 4E 00 BA 9A BE 19 20 2E 91 22 52 22 3B 42 |TEN..... .."R";B|
00003E50: 4C 4F 43 4B 20 4C 45 53 45 4E 00 DF 9A C8 19 20 |LOCK LESEN..... |
00003E60: 2E 91 22 4E 22 3B 4C 45 53 45 20 4E 41 45 43 48 |.."N";LESE NAECH|
00003E70: 53 54 45 4E 20 4C 4F 47 2E 20 42 4C 4F 43 4B 00 |STEN LOG. BLOCK.|
00003E80: 02 9B D2 19 20 2E 91 22 4C 22 3B 41 4C 54 45 4E |.... .."L";ALTEN|
00003E90: 20 42 4C 4F 43 4B 20 57 49 45 44 45 52 4C 45 53 | BLOCK WIEDERLES|
00003EA0: 45 4E 00 26 9B DC 19 20 2E 91 22 2B 22 3B 4E 41 |EN.&... .."+";NA|
00003EB0: 45 43 48 53 54 45 4E 20 50 48 59 53 49 4B 41 4C |ECHSTEN PHYSIKAL|
00003EC0: 49 53 43 48 45 4E 00 5C 9B E6 19 3B 20 20 20 20 |ISCHEN.\...; |
00003ED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003EE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003EF0: 20 42 4C 4F 43 4B 20 4C 45 53 45 4E 00 85 9B F0 | BLOCK LESEN....|
00003F00: 19 20 2E 91 22 2D 22 3B 56 4F 52 48 45 52 47 45 |. .."-";VORHERGE|
00003F10: 48 45 4E 44 45 4E 20 50 48 59 53 49 4B 41 4C 49 |HENDEN PHYSIKALI|
00003F20: 53 43 48 45 4E 00 BB 9B FA 19 3B 20 20 20 20 20 |SCHEN.....; |
00003F30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003F40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003F50: 42 4C 4F 43 4B 20 4C 45 53 45 4E 00 C1 9B 04 1A |BLOCK LESEN.....|
00003F60: 3B 00 DF 9B 0E 1A 3B 20 41 44 52 45 53 53 45 4E |;.....; ADRESSEN|
00003F70: 20 44 45 52 20 52 4F 55 54 49 4E 45 4E 2D 31 00 | DER ROUTINEN-1.|
00003F80: E5 9B 18 1A 3B 00 09 9C 22 1A 41 44 52 48 20 2E |....;...".ADRH .|
00003F90: 91 3E 28 44 53 4B 49 4F 29 3B 42 4C 4F 43 4B 20 |.>(DSKIO);BLOCK |
00003FA0: 53 43 48 52 45 49 42 45 4E 00 29 9C 2C 1A 20 2E |SCHREIBEN.).,. .|
00003FB0: 91 3E 28 44 53 50 4C 59 4D 29 3B 42 4C 4F 43 4B |.>(DSPLYM);BLOCK|
00003FC0: 20 41 4E 5A 45 49 47 45 4E 00 53 9C 36 1A 20 2E | ANZEIGEN.S.6. .|
00003FD0: 91 3E 28 47 45 54 44 45 56 29 3B 4E 45 55 45 20 |.>(GETDEV);NEUE |
00003FE0: 46 4C 4F 50 50 59 2D 4E 55 4D 4D 45 52 20 48 4F |FLOPPY-NUMMER HO|
00003FF0: 4C 45 4E 00 78 9C 40 1A 20 2E 91 3E 28 47 45 54 |LEN.x.@. ..>(GET|
00004000: 44 52 56 29 3B 4E 45 55 45 20 4C 41 55 46 57 45 |DRV);NEUE LAUFWE|
00004010: 52 4B 4E 55 4D 4D 45 52 00 9C 9C 4A 1A 20 2E 91 |RKNUMMER...J. ..|
00004020: 3E 28 50 52 49 4E 54 29 3B 41 55 53 47 41 42 45 |>(PRINT);AUSGABE|
00004030: 20 41 55 46 20 44 52 55 43 4B 45 52 00 C0 9C 54 | AUF DRUCKER...T|
00004040: 1A 20 2E 91 3E 28 42 53 29 3B 41 55 53 47 41 42 |. ..>(BS);AUSGAB|
00004050: 45 20 41 55 46 20 42 49 4C 44 53 43 48 49 52 4D |E AUF BILDSCHIRM|
00004060: 00 DC 9C 5E 1A 20 2E 91 3E 28 44 53 4B 49 4F 29 |...^. ..>(DSKIO)|
00004070: 3B 42 4C 4F 43 4B 20 4C 45 53 45 4E 00 02 9D 68 |;BLOCK LESEN...h|
00004080: 1A 20 2E 91 3E 28 4E 45 58 42 4C 4B 29 3B 4E 41 |. ..>(NEXBLK);NA|
00004090: 45 43 48 53 54 45 52 20 4C 4F 47 2E 20 42 4C 4F |ECHSTER LOG. BLO|
000040A0: 43 4B 00 28 9D 72 1A 20 2E 91 3E 28 4F 4C 44 42 |CK.(.r. ..>(OLDB|
000040B0: 4C 4B 29 3B 56 4F 52 48 45 52 47 45 52 20 4C 4F |LK);VORHERGER LO|
000040C0: 47 2E 20 42 4C 4F 43 4B 00 4F 9D 7C 1A 20 2E 91 |G. BLOCK.O.|. ..|
000040D0: 3E 28 50 4C 55 53 29 3B 4E 41 45 43 48 53 54 45 |>(PLUS);NAECHSTE|
000040E0: 52 20 50 48 59 53 49 4B 2E 20 42 4C 4F 43 4B 00 |R PHYSIK. BLOCK.|
000040F0: 78 9D 86 1A 20 2E 91 3E 28 4D 49 4E 55 53 29 3B |x... ..>(MINUS);|
00004100: 56 4F 52 48 45 52 49 47 45 52 20 50 48 59 53 49 |VORHERIGER PHYSI|
00004110: 4B 2E 20 42 4C 4F 43 4B 00 7E 9D 90 1A 3B 00 A4 |K. BLOCK.~...;..|
00004120: 9D 9A 1A 41 44 52 4C 20 2E 91 3C 28 44 53 4B 49 |...ADRL ..<(DSKI|
00004130: 4F 2D 31 29 3B 42 4C 4F 43 4B 20 53 43 48 52 45 |O-1);BLOCK SCHRE|
00004140: 49 42 45 4E 00 C6 9D A4 1A 20 2E 91 3C 28 44 53 |IBEN..... ..<(DS|
00004150: 50 4C 59 4D 2D 31 29 3B 42 4C 4F 43 4B 20 41 4E |PLYM-1);BLOCK AN|
00004160: 5A 45 49 47 45 4E 00 F0 9D AE 1A 20 2E 91 3C 28 |ZEIGEN..... ..<(|
00004170: 47 45 54 44 45 56 2D 31 29 3B 4E 45 55 45 20 46 |GETDEV-1);NEUE F|
00004180: 4C 4F 50 50 59 2D 41 44 52 2E 20 48 4F 4C 45 4E |LOPPY-ADR. HOLEN|
00004190: 00 17 9E B8 1A 20 2E 91 3C 28 47 45 54 44 52 56 |..... ..<(GETDRV|
000041A0: 2D 31 29 3B 4E 45 55 45 20 4C 41 55 46 57 45 52 |-1);NEUE LAUFWER|
000041B0: 4B 4E 55 4D 4D 45 52 00 3D 9E C2 1A 20 2E 91 3C |KNUMMER.=... ..<|
000041C0: 28 50 52 49 4E 54 2D 31 29 3B 41 55 53 47 41 42 |(PRINT-1);AUSGAB|
000041D0: 45 20 41 55 46 20 44 52 55 43 4B 45 52 00 63 9E |E AUF DRUCKER.c.|
000041E0: CC 1A 20 2E 91 3C 28 42 53 2D 31 29 3B 41 55 53 |.. ..<(BS-1);AUS|
000041F0: 47 41 42 45 20 41 55 46 20 42 49 4C 44 53 43 48 |GABE AUF BILDSCH|
00004200: 49 52 4E 00 81 9E D6 1A 20 2E 91 3C 28 44 53 4B |IRN..... ..<(DSK|
00004210: 49 4F 2D 31 29 3B 42 4C 4F 43 4B 20 4C 45 53 45 |IO-1);BLOCK LESE|
00004220: 4E 00 A9 9E E0 1A 20 2E 91 3C 28 4E 45 58 42 4C |N..... ..<(NEXBL|
00004230: 4B 2D 31 29 3B 4E 41 45 43 48 53 54 45 52 20 4C |K-1);NAECHSTER L|
00004240: 4F 47 2E 20 42 4C 4F 43 4B 00 D2 9E EA 1A 20 2E |OG. BLOCK..... .|
00004250: 91 3C 28 4F 4C 44 42 4C 4B 2D 31 29 3B 56 4F 52 |.<(OLDBLK-1);VOR|
00004260: 48 45 52 49 47 45 52 20 4C 4F 47 2E 20 42 4C 4F |HERIGER LOG. BLO|
00004270: 43 4B 00 FB 9E F4 1A 20 2E 91 3C 28 50 4C 55 53 |CK..... ..<(PLUS|
00004280: 2D 31 29 3B 4E 41 45 43 48 53 54 45 52 20 50 48 |-1);NAECHSTER PH|
00004290: 59 53 49 4B 2E 20 42 4C 4F 43 4B 00 23 9F FE 1A |YSIK. BLOCK.#...|
000042A0: 20 2E 91 3C 28 4D 49 4E 55 53 2D 31 29 3B 56 4F | ..<(MINUS-1);VO|
000042B0: 52 48 45 52 2E 20 50 48 59 53 49 4B 2E 20 42 4C |RHER. PHYSIK. BL|
000042C0: 4F 43 4B 00 29 9F 08 1B 3B 00 37 9F 12 1B 3B 20 |OCK.)...;.7...; |
000042D0: 53 54 52 49 4E 47 53 00 3D 9F 1C 1B 3B 00 5A 9F |STRINGS.=...;.Z.|
000042E0: 26 1B 43 4D 44 53 54 52 20 2E 91 22 55 31 3A 31 |&.CMDSTR .."U1:1|
000042F0: 33 20 30 20 31 38 20 30 30 22 00 60 9F 30 1B 3B |3 0 18 00".`.0.;|
00004300: 00 81 9F 3A 1B 2E 8F 44 52 49 56 45 3D 43 4D 44 |...:...DRIVE=CMD|
00004310: 53 54 52 2B 36 3B 44 52 49 56 45 4E 55 4D 4D 45 |STR+6;DRIVENUMME|
00004320: 52 00 A1 9F 44 1B 2E 8F 54 52 41 43 4B 3D 43 4D |R...D...TRACK=CM|
00004330: 44 53 54 52 2B 38 3B 53 50 55 52 4E 55 4D 4D 45 |DSTR+8;SPURNUMME|
00004340: 52 00 C5 9F 4E 1B 2E 8F 53 45 43 54 4F 52 3D 43 |R...N...SECTOR=C|
00004350: 4D 44 53 54 52 2B 31 31 3B 53 45 4B 54 4F 52 4E |MDSTR+11;SEKTORN|
00004360: 55 4D 4D 45 52 00 CB 9F 58 1B 3B 00 DA 9F 62 1B |UMMER...X.;...b.|
00004370: 44 41 44 52 20 2E 91 22 23 22 00 E0 9F 6C 1B 3B |DADR .."#"...l.;|
00004380: 00 FC 9F 76 1B 4D 54 45 58 54 20 2E 91 22 4D 20 |...v.MTEXT .."M |
00004390: 31 33 30 30 20 31 33 46 46 22 2C 30 00 02 A0 80 |1300 13FF",0....|
000043A0: 1B 3B 00 12 A0 8A 1B 3B 20 56 41 52 49 41 42 4C |.;.....; VARIABL|
000043B0: 45 4E 00 18 A0 94 1B 3B 00 3B A0 9E 1B 44 45 56 |EN.....;.;...DEV|
000043C0: 49 43 45 20 2E 91 38 3B 46 4C 4F 50 50 59 47 45 |ICE ..8;FLOPPYGE|
000043D0: 52 41 45 54 45 4E 55 4D 4D 45 52 00 59 A0 A8 1B |RAETENUMMER.Y...|
000043E0: 53 41 56 44 52 56 20 2E 91 30 3B 4C 41 55 46 57 |SAVDRV ..0;LAUFW|
000043F0: 45 52 4B 4E 55 4D 4D 45 52 00 6E A0 B2 1B 53 41 |ERKNUMMER.n...SA|
00004400: 56 54 52 4B 20 2E 91 31 38 3B 53 50 55 52 00 84 |VTRK ..18;SPUR..|
00004410: A0 BC 1B 53 41 56 53 45 43 20 2E 91 31 3B 53 45 |...SAVSEC ..1;SE|
00004420: 4B 54 4F 52 00 A3 A0 C6 1B 4F 4C 44 54 52 4B 20 |KTOR.....OLDTRK |
00004430: 2E 91 31 38 3B 56 4F 52 48 45 52 49 47 45 20 53 |..18;VORHERIGE S|
00004440: 50 55 52 00 C4 A0 D0 1B 4F 4C 44 53 45 43 20 2E |PUR.....OLDSEC .|
00004450: 91 30 3B 56 4F 52 48 45 52 49 47 45 52 20 53 45 |.0;VORHERIGER SE|
00004460: 4B 54 4F 52 00 E9 A0 DA 1B 53 41 56 50 52 49 20 |KTOR.....SAVPRI |
00004470: 2E 91 34 3B 44 52 55 43 4B 45 52 47 45 41 52 45 |..4;DRUCKERGEARE|
00004480: 54 45 41 44 52 45 53 53 45 00 12 A1 E4 1B 50 52 |TEADRESSE.....PR|
00004490: 49 46 4C 47 20 2E 91 30 3B 46 4C 41 47 2C 20 41 |IFLG ..0;FLAG, A|
000044A0: 55 53 47 41 42 45 20 41 55 46 20 44 52 55 43 4B |USGABE AUF DRUCK|
000044B0: 45 52 00 37 A1 EE 1B 45 52 52 46 4C 47 20 2E 91 |ER.7...ERRFLG ..|
000044C0: 22 30 22 3B 46 4C 41 47 20 46 55 45 52 20 44 49 |"0";FLAG FUER DI|
000044D0: 53 4B 45 52 52 4F 52 00 00 00 |SKERROR... |
A\.\....".AUF FLOPPY =1 ?",FLOPPY..\...
.FLOPPY.EQ.1..\.. .."DISKMON.EXE",8..\..
...S\...."AUF DRUCKER =1 ?",DRUCKER..\..
..DRUCKER.EQ.1..\$. ..1,4..].. .F27,0,14
7..]8. ....]B. ..1,4,7.%]L. ..A,2,4,7.,]
V....7]`. ..1,3.D]J. ..A,2,3.K]T.....]~.
;***************************************
***********..]..;*
*..]..;*
DISKMONITOR FUER C128
*.+^..;*
*.C^..;* VERSION 1.1
2.6.1986 *..^..
;*
*.S^..;* (C) MICHAEL BAUER
AINDORFERSTR. 86 *.._D.;*
8000 MUENCHEN 21
*.C_N.;*
*.{_X.;***************
***********************************.._..
;.._..; ASSEMBLER: TOP-ASS. _..;.X_..;--
----------------------------------------
--------.._..; BEDIENUNGSANLEITUNG:..`..
; ====================..`..;.K`(.; ES ST
EHEN ALLE KOMMANDO DES EINGEBAUTEN MONIT
ORS..`2.; ZUR VERFUEGUNG. DISKMON IST MI
T SEINEN ZUSATZBEFEHLEN..`<.; VOLL IN DE
N MONITOR EINGEBUNDEN...`F.; ALLE DISKMO
N-BEFEHLE BEGINNEN MIT DEM ZEICHEN ^. AP
.; (PFEIL AUFWAERTS) GEFOLGT VON EINEM W
EITEREN BEFEHLS-./AZ.; ZEICHEN..FAD.;---
----------------------------------------
------..AN.; ^M ODER NUR ^
LISTET DEN EINGELESENEN.TAX.;
BLOCK AUF..B.
.; ^R SPUR SEKTOR ((DEV)( DRV)) LIEST
DEN ANGEGEBENEN.GB..;
BLOCK IN DAS RAM..B..; ^W
SPUR SEKTOR ((DEV)( DRV)) SCHREIBT D
EN ANGEGEBENEN.BB .;
BLOCK ZURUECK AUF DIE..B..;
DISKETT
E.0C..; ^N
LESE NAECHSTEN LOGISCHEN.DC..;
BLOCK INS RAM..CH
.; ^G DEV( DRV) NEUE
FLOPPY-GERAETEADRESSE.TCR.;
EINGEBEN..D..; ^D DR
V NEUE DRIVENUM
MER EINGEBEN..D..;.XD..; ^P DEV
AUSGABE AUF DRUCKER DEV
..D..; U
MLEITEN.FD..; ^B
AUSGABE WIEDER AUF BILD-..E..;
SCHIRM ZURU
ECKLEITEN..E..;.EE".; ^+
NAECHSTEN PHYSKALISCHEN.WE
,.; BLOC
K LESEN.}E6.;..E@.; ^-
VORHERIGEN PHYSKALISCHEN..EJ
.; BLOCK
LESEN..ET.;..F^.; GEKLAMMERTE ANGABEN S
IND OPTIONAL..#FH.;._FR.; SPUR = SPURNUM
MER IN HEXADEZIMAL (1571: $01 -> $46).
.F|.;
(1541: $01 -> $23).ZF..; SEK = SEKTORE
NNUMMER IN HEX ($01 -> $14 ABHAENG
IG..G..;
VON DER SPUR).HG..; DEV = GERAETEN
UMMER IN HEX ($04 -> $1F).~G..; D
RV = DRIVENUMMER ($00 -
> $01)..G..;
FUER DOPPELLAUFWERKE.BG..;..GB.;
LADEN UND STARTEN DES PROGRAMMES:..GL.;
.0HV.; MIT BOOT "DISKMON" <CR> WIRD DISK
MON GELADEN UND INITIAL-.=H..; SIERT..H
..; NACH AUFRUF DES MONITORS STEHEN DANN
ALLE ZUSATZBEFEHLE ZUR..H..; VERFUEGUNG
..RH..;---------------------------------
--------------------------.XH..;..I..; D
IE LABELNAMEN SIND DEM FOLGENDEN BUCH EN
TNOMMEN:.LI..; C128 ROM-LISTING OPERATIN
G SYSTEM VON SCHINEIS ET AL..LI&.; MARKT
&TECHNIK VERLAG 1986.RI0.;..I:...TO=$60;
ABGELEGTER WERT VON PARSE..ID...TXTPTR=$
7A;ZEIGER IN EINGABETEXT..IN...STATUS=$9
0;I/O-STATUS..JX...DFLTO=$9A;AUSGABEGERA
ETENUMMER..JB.;.%JL...BUF=$0200;EINGABEP
UFFER.SJV...IMONCD=$032E;IND. SPRUNG IN
DEN MONITOR.WJ....CMDNO=$0AB2;X-REGISTER
RETTEN.}J..;..J....BUFFER=$1300;PUFFER
FUER DISKBLOCK..J..;.JJ....READY=$4D3F;R
EADY-MODUS..J....MONCMD=$B006;MONITOR-KO
MMANDO AUSFUEHREN. K....MAIN=$B08B;MONIT
OR WARTESCHLEIFE.HKF...ERROR=$B0BC;MONIT
OR FEHLERROUTINE.NKP...PARSE=$B7A7;OPERA
NDEN ERMITTELN..KZ...PUTHXS=$B8A5;ACCU -
> 2 ASCII-ZEICHEN.DK....CRLF=$B8B4;AUSGA
BE 'CARRIAGE RETURN'..K....GNC=$B8E9;HOL
E ZEICHEN AUS PUFFER..L....DISKS1=$BADF;
DISK-STATUS ANZEIGEN..L..;.AL....DECASC=
$F9FB;WANDLE HEX -> ASCII.NL....KSTBNK=$
FF68;BANK FUER DISK-I/O SETZEN..L ...KPR
IMM=$FF7D;TEXT AUSGEBEN UND UEBERSPRINGE
N.DL*...KSTLFS=$FFBA;LA,FA,SA SETZEN..L4
...KSTNAM=$FFBD;FNLEN,FNADR SETZEN..M>..
.KOPEN=$FFC0;LOG. FILE EROEFFNEN.8MH...K
CLOSE=$FFC3;LOG. FILE SCHLIESSEN.`MR...K
CHKIN=$FFC6;EINGABEKANAL OEFFNEN..M\...K
CKOUT=$FFC9;AUSGABEKANAL OEFFNEN..MF...K
CLRCH=$FFCC;KANAL SCHLIESSEN.WMP...KBASI
N=$FFCF;HOLE ZEICHEN VON DEVICE..NZ...KB
SOUT=$FFD2;SENDE ZEICHEN AN DEVICE..N..;
..N..; KONSTANTE..N..;.IN....CMDANZ=10;A
NZAHL DER DISKMON-BEFEHLE.QN....RDCMD=6;
NUMMER DES 1. LESEBEFEHLS.~N.. ..$1400..
N..;.FNJ.;------------------------------
------------------------------..NT.;
INITIALISIEREN.1O..;---
----------------------------------------
-----------------.7O..;.`O..START .IMONC
D;RETTE SPRUNGVEKTOR UND..O.. .GOMON+1;S
ETZE IHN AUF DISKMON..O.. .IMONCD+1..O..
.GOMON+2..O.. .#<(DSKMON)..O$. .IMONCD.
PO.. .#>(DSKMON)..O8. .IMONCD+1..OB. .KP
RIMM..PL. ..13,"DISKMON INITIALISIERT",7
,0..PV. .#$FF.)P`. .READY./PJ.;.QPT.;---
----------------------------------------
-----------------..P~.;
SPRUNGLEISTE.ZP..;------------------
----------------------------------------
--..P..;..Q..GOMO1 .KCLRCH;AUSGABEKANAL
AUF BS..Q.. ..1Q..GOMON .MONCMD;WEITER I
M MONITOR.7Q..;.BQD.GOMAIN .MAIN;WEITER
IN MONITORSCHLEIFE.HQN.;..QX.GOERR .ERRO
R;FEHLERMELDUNG..Q..;.OQ..;-------------
----------------------------------------
-------..Q..; PRUEFE OB DI
SKMON-KOMMANDO.@R..;--------------------
----------------------------------------
.FR..;.SR..DSKMON .NR.. .#"@";DISK-KOMM
ANDO ?.ZR(. .GOMO1..R2. .#"L"..R<. .GOMO
1..RF. .#"S"..RP. .GOMO1..RZ. .#"V"..RD.
.GOMO1..RN. .CHKPRI;AUSGABE AUF DRUCKER
?..RX. ...S.. .#"^";DISKMON-CMD ?.(S..
.GOMON;NEIN => WEITER IM MONITOR.KS.. .G
NC;PRUEFE NAECHSTES ZEICHEN.OS . .DSPLYM
;NEIN => ZEIGE BLOCK AN..S.. .#CMDANZ;AN
ZAHL DER BEFEHLZEICHEN.AS..DSKMO1 .CMDS,
X;MIT TABELLE VERGLEICHEN..S.. .DSKMO2;N
ICHT GLEICH => WEITER..TH. .CMDNO;BEFEHL
SNUMMER FUER SPAETER.4TR. .ADRH,X;ADRESS
E AUF STAPEL UM DANN.\T.. ;MIT RTS DIE
ROUTINE ANZUSPRINGEN.IT.. .ADRL,X.PT..
.WT.. ..}T..;..T..DSKMO2 ...T.. .DSKMO1;
WEITER VERGLEICHEN..T". .GOERR;=> FEHLER
.FT,.;..U6.;----------------------------
--------------------------------.8U@.;
ALTEN LOGISCHEN BLOCK WIEDER LESEN
.ZUJ.;----------------------------------
--------------------------..UT.;..U^.OLD
BLK .OLDSEC;ALTEN SEKTOR UND BLOCK HOLEN
..UH. .SAVSEC.JUR. .OLDTRK.WU|. .SAVTRK.
.U.. .DSKIO1..U..;.,V..;----------------
----------------------------------------
----.VV..; BLOCK AN
ZEIGEN..V..;----------------------------
--------------------------------..V..;..
VB.DSPLYM .KPRIMM.FVL. ..13,"SPUR: ",0.S
VV. .SAVTRK..V.. .PUTHXS;GEBE SPURNUMMER
AUS..W.. .KPRIMM..W.. .." SEKTOR: ",0.
$W.. .SAVSEC.GW.. .PUTHXS;GEBE SEKTORNUM
MER AUS.MW..;.XW.. .#$0C..W&.DSPLY1 .MTE
XT,X;SCHREIBE M-ADRESSE IN DEN..W0. .BUF
,X;PUFFER. W:. ...WD. .DSPLY1..WN. ..WWX
. .TXTPTR;KORRIGIERE TEXTZEIGER..WB. .GN
C;LESE ERSTES ZEICHEN (=M)..XL. .GOMON;Z
EIGE BEREICH AN..XV.;._X..;-------------
----------------------------------------
-------..X..; LESE/SCHR
EIBE BLOCK.LX..;------------------------
------------------------------------.RX.
.;..X..DSKIO .GETPAR;HOLE PARAMETER..X..
;.-Y..;===> OEFFNE KOMMANDOKANAL 15 UND
DATENKANAL 13.3YF.;._YP.DSKIO1 .KCLRCH;S
ETZE IN-/OUT AUF NORMAL.UYZ. .#0;FILENUM
MER 0.|Y.. ...Y.. .TO+2;BANK..Y.. .KSTBN
K;SETZE BANK FUER DISK-I/O.EY.. .#15;KAN
AL 15..Y.. .DEVICE;GERAETEADRESSE..Y.. .
KSTLFS;SETZE PARAMETER..Z . .#0;KEIN FIL
ENAMEN.#Z*. .KSTNAM.;Z4. .KOPEN;OEFFNE F
ILE.RZ>. .CLOSEC;FEHLER =>.JZH. .#13;FIL
ENUMMER 13.ZZR. .;KANAL 13..Z\. .DEVICE;
GERAETENUMMER..ZF. .KSTLFS..ZP. .#1;FILE
NAMENLAENGE.YZZ. .#<(DADR);FILENAMEN= "#
"..Z.. .#>(DADR)..Z.. .KSTNAM..{.. .KOPE
N;OEFFNE FILE.#{.. .CLOSEC;FEHLER=>.D{..
.CMDNO;AUF DISK SCHREIBEN ?.V{.. .WRITE
;JA =>.\{..;..{J.;----------------------
--------------------------------------.M
{T.; LESE BLOCK VON DIS
KETTE..|..;-----------------------------
-------------------------------..|..;. |
.. .#"1".E|.. .SNDCMD;BLOCKREAD-BEFEHL S
ENDEN.W|.. .#13;FILE 13.X|.. .KCHKIN;EIN
GABE VORBEREITEN..|.. .#0..|$.READ .KBAS
IN;HOLE ZEICHEN VON DISKETTE.Q|.. .BUFFE
R,X;SCHREIBE ES IN PUFFER..|8. .STATUS;F
EHLER ?..|B. .CLOSEC;JA =>..}L. .;FERTIG
?.$}V. .READ;NEIN => WEITER.*}`.;.`}J.;
==> SCHLIESSE DATENKANAL 13 UND KOMMANDO
KANAL 15.F}T.;..}~.CLOSEC .KCLRCH;NORMAL
E EIN-/AUSGABE SETZEN..}.. .#13;FILENUMM
ER 13..}.. ..Q}.. .KCLOSE;SCHLIESSE KANA
L..}.. .CRLF..}..;..}..;==> LESE DISKSTA
TUS EIN..~D.;..~N. .#0;HOLE DISKSTATUS.+
~X. .KCHKIN.8~.. .CLOSEF.E~.. .KBASIN.R~
.. .ERRFLG.^~.. .STAT1.O~..STAT .KBASIN.
.~..STAT1 .#13;RETURN ?..~.. .CLOSEF;JA
=> FERTIG..~(. .KBSOUT..~2. .STATUS.U~<.
.#%10111111;FERTIG ?..~F. .STAT;NEIN =>
WEITER..P.CLOSEF .KCLRCH;SCHLIESSE KAN
AELE.7Z. .CHKPRI;AUSGABE AUF DRUCKER ?.
MD. .#0;FILENUMMER 0.TN. ..TX. .KCLOS
E;SCHLIESSE KANAL 15.... .ERRFLG;DISK-F
EHLER ?.... .#"0".... .CLOSED;JA =>.J
. .CMDNO;BLOCK ANZEIGEN ?.... .#RDCMD;
1. LESEBEFEHL ?.... .CLOSED;NEIN=>.....
.DSPLYM;ZEIGE BLOCK AN.<.H.CLOSED .GOMA
IN;WEITER IM MONITOR.B.R.;.....;--------
----------------------------------------
------------.....; SCHREIB
E BLOCK AUF DISKETTE.....;--------------
----------------------------------------
------.....;.....WRITE .#13;FILENUMMER 1
3.:... .KCKOUT;BEREITE AUSGABE VOR.Q...
.CLOSEC;FEHLER =>.Z.". .#1...,.WRITE1 .B
UFFER,X;HOLE ZEICHEN UND...6. .KBSOUT;SE
NDE ES...@. .CLOSEC...J. .;FERTIG ?.R.T.
.WRITE1;NEIN => NAECHSTES...^. .BUFFER.
..H. .KBSOUT...R. .CLOSEC;FEHLER =>.,.|.
.KCLRCH;NORMALE EIN-/AUSGABE SETZEN.7..
. .#"2".^... .SNDCMD;BLOCK-WRITE BEFEHL
SENDEN.Q...WRITE2 .CLOSEC.W...;.....;---
----------------------------------------
-----------------.....; NAECHS
TEN LOGISCHEN BLOCK LESEN.+.B.;---------
----------------------------------------
-----------.1.L.;.W.V.NEXBLK .BUFFER;KOM
MT NOCH EINER ?.S... .NOBLK;NEIN => MELD
UNG..... .SAVTRK;ALTE SPURNUMMER RETTEN.
.... .OLDTRK.J... .SAVSEC;ALTE SEKTORNUM
MER RETTEN.W... .OLDSEC..... .SAVTRK....
. .BUFFER+1...&. .SAVSEC...0. .DSKIO1...
:.;.%.D.NOBLK .KPRIMM.E.N. ..13,"KEIN BL
OCK MEHR",7,0.R.X. .GOMAIN.X.B.;...L.;--
----------------------------------------
------------------.J.V.; N
EUE FLOPPYADRESSE EINGEBEN.....;--------
----------------------------------------
------------.....;.$...GETDEV .GETDV.1..
. .GOMAIN.7...;.Y...;-------------------
----------------------------------------
-.....; NEUE DRIVENUMMER E
INGEBEN...F.;---------------------------
---------------------------------...P.;.
..Z.GETDRV .GETDR..... .GOMAIN.....;.V..
.;--------------------------------------
----------------------.....;
AUSGABE AUF DRUCKER UMLEITEN.I...;---
----------------------------------------
-----------------.O...;... .PRINT .CLOPR
I...*. .CRLF...4. .PARSE;HOLE PRINTERNUM
MER.3.>. .PRINT1;KEINE NEUE GERAETE ADRE
SSE.L.H. .#4;STANDARDDRUCKER.M.R. ..$2C;
2 BYTES UEBERSPRINGEN...\.PRINT1 .TO;DRU
CKERNUMMER...F. .#4;PRUEFE NUMMER...P. .
PRINT0.J.Z.PRIERR .GOERR;=> FEHLER.Y...P
RINT0 .#8..... .PRIERR..... .SAVPRI.....
.#4;LOG. FILENUMMER."... .#0;SEK. ADRES
SE./... .KSTLFS.8... .#0.E.J. .KSTNAM.Q.
T. .KOPEN.^... .PRINT2.U... .GOMAIN;FEHL
ER =>.....PRINT2 .#4..... .KCKOUT;KANAL
OEFFNEN..... .#1;SETZE PRINTFLAG.E... .P
RIFLG.R... .GOMAIN.X.$.;.....;----------
----------------------------------------
----------.J.8.; AUSGABE WIE
DER AUF BILDSCHIRM...B.;----------------
----------------------------------------
----...L.;...V.BS .CLOPRI...`. .GOMAIN;W
EITER IM MONITOR.F.J.;...T.CLOPRI .PRIFL
G;AUSGABE AUF DRUCKER ?...~. .CLOPR1;NEI
N =>..... .KCLRCH.$... .#4;FILENR. 4.+..
. ..J... .KCLOSE;SCHLIESSE KANAL 4.S...
.#0.X... .PRIFLG;SETZE PRINTFLAG ZURUECK
...D.CLOPR1 ....N.;.M.X.;---------------
----------------------------------------
-----.....; NAECHSTER PHYSI
KALISCHEN BLOCK LESEN.G...;-------------
----------------------------------------
-------.M...;.P...PLUS .SAVSEC;HOLE SEKT
ORNUMMER..... .;ERHOEHE SEKTORNUMMER....
. .SAVSEC.B... .CHKSEC;HOLE MAX. SEKTORN
UMMER FUER...(. .SAVSEC;DIESE SPUR. KORR
EKT ?...2. .PLUS1;JA =>...<. .SAVTRK;KOR
RIGIERE SEKTORNUMMER.#.F. ..0.P. .SAVTRK
.9.Z. .#0.O.D. .SAVSEC;SEKTOR 0.A.N.PLUS
1 .DSKIO1.G.X.;.....;-------------------
----------------------------------------
-.....; VORHERIGEN PHYSIKALIS
CHEN BLOCK LESEN."...;------------------
----------------------------------------
--.(. .;.L...MINUS .SAVSEC;HOLE SEKTORNU
MMER.Q... .MINUS1;IST ES SEKTOR 0 ? JA =
>..... .;ERNIEDRIGE SEKTORNUMMER...H. .S
AVSEC...R. .DSKIO1.....;.M...MINUS1 .SAV
TRK;HOLE SPUR..... .;NAECHSTE NIEDRIGERE
SPUR..... .MINUS2;NOCH NICHT 0..... ..7
...MINUS2 .SAVTRK;NEUE SPUR ABSPEICHERN.
_... .CHKSEC;HOLE HOECHSTE SEKTORNUMMER.
L.". .SAVSEC.Y.,. .DSKIO1..6.;.A.@.;---
----------------------------------------
-----------------...J.;
SUBROUTINEN.,.T.;----------------
----------------------------------------
----.2.^.;.J.H.;==> HOLE PARAMETER.P.R.;
.M.|.GETPAR .PARSE;SPUR HOLEN..... .GETP
1;GLEICHEN BLOCK LESEN..... .TO..... .GE
TERR;0? FEHLER =>.I... .#71;GROESSER 70
?..... .GETERR;JA => FEHLER..... .SAVTRK
;RETTE ALTE SEKTORNUMMER...B. .OLDTRK.".
L. .SAVTRK.;.V. .PARSE;SEKTOR HOLEN.]...
.GETP1;GLEICHEN SEKTOR LESEN..... .SAVS
EC;RETTE ALTE SEKTORNUMMER..... .TO.....
.SAVSEC..... .CHKSEC;PRUEFE SEKTORNUMME
R..... .SAVSEC;KLEINER ALS MAX. SEKTOR ?
..... .GETPA1...&. .GETERR;NEIN => FEHLE
R...0.GETPA1 .OLDSEC.A.:.GETDV .PARSE;GE
RAETENUMMER HOLEN.M.D. .GETP1.V.N. .TO.T
.X. .#8;PRUEFE GERAETENUMMER...B. .GETER
R...L. .#32...V. .GETERR..... .DEVICE.K.
..GETDR .PARSE;LAUFWERKNUMMER HOLEN.W...
.GETP1..... .TO..... .GETP2;PRUEFE LAUF
WERKNUMMER..... .#1..... .GETERR.*.F.GET
P2 .SAVDRV.6.P.GETP1 ..<.Z.;.N...GETERR
.GOERR.T...;....;==> SENDE U-KOMMANDOST
RING ZUR FLOPPY.....;.....SNDCMD .CMDSTR
+1;U-BEFEHLSNUMMER.U... .SAVTRK;WANDLE S
PURNUMMER UND SEKTOR-... . .DECASC;WANDL
E VON HEX NACH ASCII...*. .TRACK...4. .T
RACK+1.#.>. .SAVSEC.J.H. .DECASC;WANDLE
VON HEX NACH ASCII.W.R. .SECTOR.F.\. .SE
CTOR+1...F. .SAVDRV;DASSELBE FUER LAUFWE
RKNUMMER...P. .DECASC;WANDLE VON HEX NAC
H ASCII.C.Z. .DRIVE.V... .#0;FILENR. 0..
... .KCKOUT;BEREITE AUSGABE VOR..... .SN
DC1;KEIN FEHLER =>..... .CLOSEC.%...;.3.
..SNDC1 .#0.A...SENDC1 .CMDSTR,X;SENDE K
OMMANDOSTRING ZUR.U.J. .KBSOUT;FLOPPY.|.
T. ...... .#13;FERTIG ?..... .SENDC1;NEI
N => NAECHSTES ZEICHEN..... .KCLRCH;NORM
ALE EIN-/AUSGABE SETZEN.....;.'...;-----
----------------------------------------
---------------.U...; D
RUCKERAUSGABE PRUEFEN.....;-------------
----------------------------------------
-------...$.;.F...CHKPRI .PRIFLG;AUSGABE
AUF DRUCKER ?...8. .CHKPR1;NEIN =>...B.
.KCLRCH;AUSGABE AUF BILDSCHIRM...L. .CR
LF;RETURN AUSGEBEN.7.V. .#4;AUSGABE AUF
DRUCKER.D.`. .KCKOUT.Q.J.CHKPR1 ..W.T.;.
..~.;-----------------------------------
-------------------------.S...;
SUBROUTINE ZUM FESTSTELLEN DER SEKTORNUM
MER.....;-------------------------------
-----------------------------.....;.8...
CHKSEC .SAVTRK;HOLE SPUR.Y... .#7;ANZAHL
DER EINTRAEGE IN.....;
SPUR-/SEKTORTABELLE.B
.D.CHKSE1 .TRKTAB,Y;VERGLEICHE SPURNUMME
RN...N. .CHKSE2;KLEINER ? JA =>...X. ...
... .CHKSE1;NOCH NICHT FERTIG =>./...CHK
SE2 .SECTAB,Y;LADE SEKTORNUMMER.6... ..<
...;.~...;------------------------------
------------------------------.....;
TABELLEN.....;-----
----------------------------------------
---------------...(.;.*.2.; BEDINGT DURC
H DIE FORM DER GEWAEHLTEN ABFRAGE SIND D
IE.\.<.; WERTE IN DER TABELLE TRKTAB UM
EINS ERHOEHT.B.F.;...P.TRKTAB ..71,66,60
,53,36,31,25,18...Z.SECTAB ..16,17,18,20
,16,17,18,20...D.;.F.N.; BEFEHLTABELLE.L
.X.;.....CMDS .."W";BLOCK SCHREIBEN.....
.."M";BLOCK ANZEIGEN.,... .."G";NEUE FL
OPPY-NUMMER EINGEBEN.T. . .."D";NEUE LAU
FWERKNUMMER EINGEBEN.Z... .."P";AUSGABE
AUF DRUCKER LEITEN..... .."B";AUSGABE AU
F BILDSCHIRM LEITEN..... .."R";BLOCK LES
EN...H. .."N";LESE NAECHSTEN LOG. BLOCK.
..R. .."L";ALTEN BLOCK WIEDERLESEN.&...
.."+";NAECHSTEN PHYSIKALISCHEN.\...;
BLOCK L
ESEN..... .."-";VORHERGEHENDEN PHYSIKALI
SCHEN.....;
BLOCK LESEN.A...;.....; ADRESSEN
DER ROUTINEN-1.....;...".ADRH ..>(DSKIO
);BLOCK SCHREIBEN.).,. ..>(DSPLYM);BLOCK
ANZEIGEN.S.6. ..>(GETDEV);NEUE FLOPPY-N
UMMER HOLEN.X.@. ..>(GETDRV);NEUE LAUFWE
RKNUMMER...J. ..>(PRINT);AUSGABE AUF DRU
CKER...T. ..>(BS);AUSGABE AUF BILDSCHIRM
...^. ..>(DSKIO);BLOCK LESEN...H. ..>(NE
XBLK);NAECHSTER LOG. BLOCK.(.R. ..>(OLDB
LK);VORHERGER LOG. BLOCK.O.|. ..>(PLUS);
NAECHSTER PHYSIK. BLOCK.X... ..>(MINUS);
VORHERIGER PHYSIK. BLOCK.~...;.....ADRL
..<(DSKIO-1);BLOCK SCHREIBEN.F... ..<(DS
PLYM-1);BLOCK ANZEIGEN..... ..<(GETDEV-1
);NEUE FLOPPY-ADR. HOLEN..... ..<(GETDRV
-1);NEUE LAUFWERKNUMMER.=.B. ..<(PRINT-1
);AUSGABE AUF DRUCKER.C.L. ..<(BS-1);AUS
GABE AUF BILDSCHIRN...V. ..<(DSKIO-1);BL
OCK LESEN..... ..<(NEXBLK-1);NAECHSTER L
OG. BLOCK.R... ..<(OLDBLK-1);VORHERIGER
LOG. BLOCK..... ..<(PLUS-1);NAECHSTER PH
YSIK. BLOCK.#... ..<(MINUS-1);VORHER. PH
YSIK. BLOCK.)...;.7...; STRINGS.=...;.Z.
&.CMDSTR .."U1:13 0 18 00".`.0.;...:...D
RIVE=CMDSTR+6;DRIVENUMMER...D...TRACK=CM
DSTR+8;SPURNUMMER.E.N...SECTOR=CMDSTR+11
;SEKTORNUMMER.K.X.;.Z.B.DADR .."#"...L.;
...V.MTEXT .."M 1300 13FF",0.. ..;.. ..;
VARIABLEN.. ..;.; ..DEVICE ..8;FLOPPYGE
RAETENUMMER.Y ..SAVDRV ..0;LAUFWERKNUMME
R.N ..SAVTRK ..18;SPUR.. ..SAVSEC ..1;SE
KTOR.. F.OLDTRK ..18;VORHERIGE SPUR.D P.
OLDSEC ..0;VORHERIGER SEKTOR.. Z.SAVPRI
..4;DRUCKERGEARETEADRESSE.....PRIFLG ..0
;FLAG, AUSGABE AUF DRUCKER.7...ERRFLG ..
"0";FLAG FUER DISKERROR...
> CLICK IMAGE PREVIEW FOR FULL MODAL