home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 011-020 / amok11 / trackdisksupport / trackdisksupport.liesmich < prev    next >
Encoding:
Text File  |  1993-11-04  |  2.4 KB  |  76 lines
  1.  
  2.  
  3.             TrackDiskSupport
  4.          ======================
  5.  
  6.  
  7.        © 1988 by Fridtjof Siebert
  8.                  Nobileweg 67
  9.                  D-7000 Stuttgart-40
  10.  
  11.  
  12.   TrackDiskSupport unterstützt die Benutzung des trackdisk.device.
  13.  
  14.   `TrackDemo' ist ein Demoprogramm dazu. Es schreibt nichts auf die
  15.   eingelegten Disketten, kann also bedenkenlos durch Doppelklick gestartet
  16.   werden.
  17.  
  18.   Es gibt für fast alle TrackDisk-commandos entsprechende Prozeduren. Um
  19.   sie zu benutzen muß zunächst das Device mit OpenTrackDisk() geöffnet
  20.   werden. Dabei wird die Nummer des Laufwerks (0 bis 3 für DF0: bis DF3:)
  21.   übergeben.
  22.  
  23.   Wird ein Device nicht mehr benötigt, so sollte es mit CloseTrackDisk()
  24.   geschlossen werden.
  25.  
  26.   Die Fehlernummern, die von den Prozeduren zurückgegeben werden, können
  27.   aus TrackDisk importiert werden.
  28.  
  29.   Um Block 105 aus DF2: zu lesen gibt man folgendes ein:
  30.  
  31.  
  32.     FROM TrackDiskSupport IMPORT OpenTrackDisk, ReadBlock, GetDiskChange,
  33.                                  CloseTrackDisk;
  34.  
  35.     VAR
  36.       Buffer: POINTER TO ARRAY[0..511] OF CHAR;
  37.  
  38.     BEGIN
  39.       AllocMem(Buffer,SIZE(Buffer^),TRUE); (* Chip! *)
  40.  
  41.       IF OpenTrackDisk(2,FALSE)=0 THEN
  42.         IF ReadBlock(2,105,Buffer,1,GetDiskChange(2))=0 THEN
  43.  
  44.           (* tu etwas mit den Daten in Buffer^ *)
  45.  
  46.         END;
  47.         CloseTrackDisk(2);
  48.       END;
  49.     END test.
  50.  
  51.   Die `2' steht jeweils für Laufwerk DF2:. FALSE beim Öffnen der TrackDisk
  52.   verhindert das öffnen, wenn ein 5.25 Zoll Laufwerk angeschlossen ist. Die
  53.   `1' beim Lesen des Blocks gibt die Zahl der zu lesenden Blöcke an.
  54.   GetDiskChange(2) muß übergeben werden, um den Wert, der zur
  55.   Identifizierung von Diskettenwechseln benutzt wird, zu setzten. Sollen
  56.   mehrere Tracks von der gleichen Diskette gelesen werden, muß dieser Wert
  57.   in einer Variablen gespeichert werden und beim Lesen jeweils übergeben
  58.   werden.
  59.  
  60.   Genaueres zu den Prozeduren steht im Definitionsmodul und im Libraries &
  61.   Devices Manual. Wem das nicht genug ist, der kann in dem Beispielprogramm
  62.   `TrackDemo' sehen, wie die Prozeduren verwendet werden.
  63.  
  64. CopyRight:
  65.  
  66.   Die Prozeduren sind Public-Domain und dürfen frei von anderen
  67.   PD-Programmen importiert werden. Soll ein Programm, daß dieses Modul
  68.   importiert, kommerziell genutzt oder vertrieben werden, so ist eine
  69.   schriftliche Genehmigung von mir nötig.
  70.  
  71.   Ich übernehme keinerlei Haftung für die Korrektheit und
  72.   Funktionsfähigkeit der Prozeduren.
  73.  
  74. --- Fridtjof
  75.  
  76.