Trailing-Edge
-
PDP-10 Archives
-
decuslib10-12
-
43,50552/list.def
There are no other files named list.def in the archive.
{------------------------------------------------------------------------}
{-------------------------------/ \----}
{---- ----! Const, Type and Procedure !----}
{---- L I S T . D E F ----! definitions for LIST version !----}
{---- ----! 1.1, the listing module. !----}
{-------------------------------\ /----}
{------------------------------------------------------------------------}
TYPE
fname = PACKED ARRAY [1..50] OF char;
ch3 = PACKED ARRAY [1..3] OF char;
PROCEDURE lstini ( write : boolean;
defext : ch3;
lines : integer;
header : string); EXTERN;
PROCEDURE lstput ( c : char); EXTERN;
PROCEDURE lststr ( str : string;
length : integer); EXTERN;
PROCEDURE lstint ( value : integer;
width : integer); EXTERN;
PROCEDURE lstxch ( c : char); EXTERN;
PROCEDURE lstnumber ( on : boolean); EXTERN;
PROCEDURE lston; EXTERN;
PROCEDURE lstoff; EXTERN;
PROCEDURE lstsln ( line : integer); EXTERN;
FUNCTION lstgln : integer; EXTERN;
PROCEDURE lstspn ( page : integer); EXTERN;
FUNCTION lstgpn : integer; EXTERN;
FUNCTION lstgfp : integer; EXTERN;
PROCEDURE lstpag; EXTERN;
PROCEDURE lstneed ( lines : integer); EXTERN;
PROCEDURE lstnl; EXTERN.