Trailing-Edge
-
PDP-10 Archives
-
decuslib20-01
-
decus/20-0003/extern.pas
There is 1 other file named extern.pas in the archive. Click here to see a list.
(* type declaratil{n needed for newpage *)
type
mempage=array[0:777B]of integer;
pagept=^mempage;
(* external declarations for procedures built into the runtimes *)
function erstat(var f:file):integer;extern;
procedure quit; extern;
procedure analys(var f:file);extern;
procedure clreof(var f:file);extern;
procedure psidefine(ch,lev:integer;procedure proc); extern;
procedure psienable(ch:integer); extern;
procedure psidisable(ch: integer); extern;
function to6(a:alfa):integer; extern;
procedure from6(i:integer;var a:alfa); extern;
function curjfn(var f:file):integer; extern;
procedure setjfn(var f:file;i:integer); extern;
procedure entercrit; extern;
procedure leavecrit; extern;
procedure newpage(var p:integer;var d:pagept); extern;
procedure retpage(p:integer); extern;
function lstrec(var f:file):integer; extern.