Trailing-Edge
-
PDP-10 Archives
-
decuslib10-12
-
43,50552/fnames.def
There are no other files named fnames.def in the archive.
{**** FNAMES.DEF ****}
const
blank3 = ' ';
blank6 = ' ';
type
fchar3 = packed array [1..3] of char;
fchar6 = packed array [1..6] of char;
filename = record
spec : packed array [1..50] of char; { enough! }
device : fchar6;
name : fchar6;
ext : fchar3;
p : integer;
pn : integer;
end;
procedure genspec (var f : filename); extern;
procedure anspec (var f : filename); extern;
procedure defspec (var f : filename;
d : filename); extern;
procedure forspec (var f : filename;
d : filename); extern;
procedure blankspec (var f : filename); extern.