home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / z / zsim20.zip / SFB.MOD < prev    next >
Text File  |  1990-04-23  |  1KB  |  46 lines
  1.  
  2. (* J.W. 23.04.90
  3.    Programm setzt Formatier Byte, d.h. das Byte, das beim
  4.    Formatieren in die leeren Sektoren geschrieben wird.
  5.    /c :  CP/M Formatierbyte 0E5h
  6.    /d :  DOS  Formatierbyte 0F6h
  7. *)
  8.  
  9. MODULE sfb; (* Set Format Byte *)
  10.  
  11. FROM SYSTEM IMPORT FLAT,PTR,ADDRESS,WORD;
  12. FROM System IMPORT GetArg;
  13. FROM Strings IMPORT CompareStr;
  14. FROM InOut IMPORT WriteString,WriteLn;
  15.  
  16. VAR p1:ADDRESS;
  17.     p2:POINTER TO ADDRESS;
  18.     s:ARRAY [0..80] OF CHAR;
  19.     FrmByte,i:CARDINAL;
  20.     w:WORD;
  21. BEGIN
  22.      p2:=PTR(LONG(4*1EH)); (* Zeiger auf Disk Parameter Table *)
  23.      p1:=p2^;
  24.      INC(p1,8); (* 9.ter Eintrag der Tabelle *)
  25.      w:=p1^;
  26.      GetArg(s,i);
  27.      IF CompareStr(s,"/C")=0 THEN
  28.         FrmByte:=0E5H
  29.      ELSIF CompareStr(s,"/c")=0 THEN
  30.         FrmByte:=0E5H
  31.      ELSIF
  32.         CompareStr(s,"/D")=0 THEN
  33.         FrmByte:=0F6H
  34.      ELSIF
  35.         CompareStr(s,"/d")=0 THEN
  36.         FrmByte:=0F6H
  37.      ELSE
  38.         WriteString("Usage: SFB /C | /D ");WriteLn;
  39.         FrmByte:=0F6H
  40.      END;
  41.      (* (w AND 0F0H) OR FrmByte *)
  42.      w:=WORD((BITSET(w) * {8..15}) + BITSET(FrmByte));
  43.  
  44.      p1^:=w;
  45. END sfb.
  46.