mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-25 17:34:06 +00:00
46 lines
1.4 KiB
Plaintext
46 lines
1.4 KiB
Plaintext
$nolist
|
|
|
|
/*
|
|
|
|
modified 3/28/81 R. Silberstein
|
|
|
|
*/
|
|
|
|
dcl
|
|
pass byte external, /* current pass no, 1,2,3 */
|
|
|
|
/* address counters */
|
|
|
|
cip addr external, /* current instruction pointer */
|
|
csegtype byte external, /* current segment type, code,data,
|
|
stack or extra data */
|
|
|
|
/* print output parameters */
|
|
|
|
print$on byte external, /* on/off flag */
|
|
printswitchoff byte external, /* set/reset by NOLIST/LIST */
|
|
IFLIST BYTE EXTERNAL, /* SET/RESET BY IFLIST/NOIFLIST */
|
|
maxcol byte external, /* pagewidth */
|
|
printdevice byte external, /* printfile device */
|
|
simform byte external, /* true if formfeed simulation */
|
|
|
|
/* io error status */
|
|
|
|
errors addr external, /* counts no of errors */
|
|
eofset byte external, /* true if end-of-file found */
|
|
|
|
/* Mischellaneous variables: */
|
|
|
|
errorprinted byte external, /* true if an error is printed */
|
|
fullsymbtab byte external, /* full if symboltable is full */
|
|
include$on byte external, /* true if INCLUDEfile input */
|
|
IFLEVEL BYTE EXTERNAL, /* IF-ENDIF NESTING LEVEL */
|
|
help(5) byte external, /* ascii number scratch area */
|
|
i byte external; /* scratch variable */
|
|
|
|
globalinit: procedure external; /* initiate some globals */
|
|
end globalinit;
|
|
|
|
|
|
$list
|