home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 04 / tinydir.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-03-13  |  1.4 KB  |  37 lines
  1. {---------------------------------------------------------------------------}
  2. { CP/M-Directory auf Bildschirm ausgeben. Moegl. Erweiterungen der Prozedur
  3.   s. Begleittext.
  4.   Pascal-System: Turbo Pascal 3.0   Betriebssystem: CP/M 3.0                }
  5.  
  6. PROCEDURE TinyDir;
  7.  
  8. VAR FCB : ARRAY[0..35] OF CHAR;                { File Control Block         }
  9.     DMA : ARRAY[0..3,0..31] OF CHAR;           { Direct Memory Access Array }
  10.     i, x: BYTE;                                { Hilfsvariablen             }
  11.     s   : STRING[1];                           { Eingabe-String             }
  12.  
  13. BEGIN
  14.   BDOS(26, ADDR(DMA));                        { DMA-Adresse setzen          }
  15.   WRITE('Drive: '); READLN(S);                { Drive-Bezeichnung abfragen  }
  16.   FCB := '-???????????                        ';     { FCB setzen, 36 Bytes }
  17.   IF s <> '' THEN
  18.     FCB[0] := s[1]                            { Drive-Bezeichnung einsetzen }
  19.   ELSE
  20.     FCB[0] := '@';                             { leer fuer default Drive    }
  21.   x := BDOS(17, ADDR(FCB));                    { Nach erstem Eintrag suchen }
  22.   IF x < 4 THEN
  23.     FOR i:= 1 TO 11 DO WRITE(DMA[x,i])
  24.   ELSE
  25.     WRITE('No File');
  26.   WRITELN;
  27.   WHILE x < 4 DO
  28.   BEGIN
  29.     x := BDOS(18);                      { Nach weiteren Eintragungen suchen }
  30.     IF x < 4 THEN
  31.       FOR i := 1 TO 11 DO WRITE(DMA[x,i]);
  32.     WRITELN;
  33.   END;
  34. END;
  35.  
  36. {---------------------------------------------------------------------------}
  37.