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 >
Wrap
Text File
|
1990-04-23
|
1KB
|
46 lines
(* J.W. 23.04.90
Programm setzt Formatier Byte, d.h. das Byte, das beim
Formatieren in die leeren Sektoren geschrieben wird.
/c : CP/M Formatierbyte 0E5h
/d : DOS Formatierbyte 0F6h
*)
MODULE sfb; (* Set Format Byte *)
FROM SYSTEM IMPORT FLAT,PTR,ADDRESS,WORD;
FROM System IMPORT GetArg;
FROM Strings IMPORT CompareStr;
FROM InOut IMPORT WriteString,WriteLn;
VAR p1:ADDRESS;
p2:POINTER TO ADDRESS;
s:ARRAY [0..80] OF CHAR;
FrmByte,i:CARDINAL;
w:WORD;
BEGIN
p2:=PTR(LONG(4*1EH)); (* Zeiger auf Disk Parameter Table *)
p1:=p2^;
INC(p1,8); (* 9.ter Eintrag der Tabelle *)
w:=p1^;
GetArg(s,i);
IF CompareStr(s,"/C")=0 THEN
FrmByte:=0E5H
ELSIF CompareStr(s,"/c")=0 THEN
FrmByte:=0E5H
ELSIF
CompareStr(s,"/D")=0 THEN
FrmByte:=0F6H
ELSIF
CompareStr(s,"/d")=0 THEN
FrmByte:=0F6H
ELSE
WriteString("Usage: SFB /C | /D ");WriteLn;
FrmByte:=0F6H
END;
(* (w AND 0F0H) OR FrmByte *)
w:=WORD((BITSET(w) * {8..15}) + BITSET(FrmByte));
p1^:=w;
END sfb.