perm filename FOO2.PD8[10X,AIL] blob
sn#191910 filedate 1975-12-13 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00004 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002
C00016 00003 TTYIN STRING OWN+BILTIN 2 0
C00026 00004 INDEXFILE INTEGR OWN 1 0
C00039 ENDMK
C⊗;
COMMENT β
MUMBLE THIS IS THE FILE OF FUNCTION NAMES
FOR THE INITIAL SYMBOL TABLE MAKER ;
<ASSIGN>
UNTYPE←←0
<DEFINITIONS>
INF
XOR
AND
NOT
IN
OR
COMMENT
EQV
UNION
INTER
SETO
SETC
SWAP
LEQ
NEQ
GEQ
ASSOC
MUMBLE Here must be described in some detail the precise meaning
of all this malarky ;
MUMBLE $ MEANS MAY BE DEFAULTED ;
MUMBLE the second number in the parameters line is the number of value
string parameters. BAIL needs this. ;
<FUNCTIONS>
MUMBLE this is not a real entry, edit it out for BAIPDn
M UNTYPE OWN 0 0
;
OUT UNTYPE OWN+BILTIN 2 1
VALINT (CHANNEL) INTEGR VALUE
VALSTR (STRING) STRING VALUE
BREAKSET UNTYPE OWN+BILTIN 3 1
VALINT (TABLE) INTEGR VALUE
VALSTR (STRING) STRING VALUE
VALINT (CONDITIONS) INTEGR VALUE
INPUT STRING OWN 2 0
VALINT (CHANNEL) INTEGR VALUE
VALINT (TABLE) INTEGR VALUE
LOOKUP UNTYPE OWN+BILTIN 3 1
VALINT (CHANNEL) INTEGR VALUE
VALSTR (FILENAME) STRING VALUE
REFINT (FLAG) INTEGR REFRNC
MUMBLE this is probably not in the segment, so edit it out for BAIPDn
WR_INI UNTYPE OWN 4 2
VALSTR (DEVICE) STRING VALUE
VALSTR (FILENAME) STRING VALUE
VALINT (CHANNEL) INTEGR VALUE
VALINT (MAXLENGTH) INTEGR VALUE
;
OPEN UNTYPE OWN+BILTIN 8 1
VALINT (CHANNEL) INTEGR VALUE
VALSTR (DEVICE) STRING VALUE
VALINT (MODE) INTEGR VALUE
VALINT (INBUFS) INTEGR VALUE
VALINT (OUTBUFS) INTEGR VALUE
REFINT (COUNT) INTEGR REFRNC
REFINT (BRCHAR) INTEGR REFRNC
REFINT (EOF) INTEGR REFRNC
SETPL UNTYPE OWN+BILTIN 4 0
VALINT (CHANNEL) INTEGR VALUE
REFINT (LINNUM) INTEGR REFRNC
REFINT (PAGNUM) INTEGR REFRNC
REFINT (SOSNUM) INTEGR REFRNC
POINT INTEGR OWN+BILTIN+CONOK X3 0
VALINT (BYTESIZE) INTEGR VALUE
REFINT (ADDRESS) INTEGR REFRNC
VALINT (BYTEPOS) INTEGR VALUE
MUMBLE edit for BAIPDn
.BBPP. INTEGR OWN+BILTIN 3 0
VALINT (BYTESIZE) INTEGR VALUE
REFINT (ADDRESS) INTEGR REFRNC
VALINT (BYTEPOS) INTEGR VALUE
.$PINT UNTYPE OWN 1 0
VALINT (ARG) INTEGR VALUE
.$PREL UNTYPE OWN 1 0
VALREL (ARG) FLOTNG VALUE
.$PITM UNTYPE OWN 1 0
VALITM (ARG) ITMVAR VALUE
.$PSET UNTYPE OWN 1 0
VALSET (ARG) SET VALUE
.$PLST UNTYPE OWN 1 0
VALLST (ARG) LSTBIT+SET VALUE
.$PSTR UNTYPE OWN 1 0
VALSTR (ARG) STRING VALUE
.$PREC UNTYPE OWN 1 0
VALPTR (ARG) PNTVAR VALUE
;
SETPRINT UNTYPE OWN 2 1
VALSTR (FILE) STRING VALUE
VALINT (MODE) INTEGR VALUE
GETPRINT INTEGR OWN 0 0
EQU INTEGR OWN+BILTIN+CONOK X2 2
VALSTR (ARG1) STRING VALUE
VALSTR (ARG2) STRING VALUE
CVS STRING OWN+BILTIN+CONOK X1 0
VALINT (NUMBER) INTEGR VALUE
CVD INTEGR OWN+BILTIN+CONOK X1 1
VALSTR (STRING) STRING VALUE
SCAN STRING OWN+CONOK X3 0
REFSTR (STRING) STRING REFRNC
VALINT (TABLE) INTEGR VALUE
REFINT (BRCHAR) INTEGR REFRNC
RELEASE UNTYPE OWN+BILTIN 2 0
VALINT (CHANNEL) INTEGR VALUE
VALINT (INHIBITS) $ INTEGR VALUE
LINOUT UNTYPE OWN+BILTIN 2 0
VALINT (CHANNEL) INTEGR VALUE
VALINT (LINENO) INTEGR VALUE
CLOSE UNTYPE OWN+BILTIN 2 0
VALINT (CHANNEL) INTEGR VALUE
VALINT (INHIBIT) $ INTEGR VALUE
CLOSO UNTYPE OWN+BILTIN 2 0
VALINT (CHANNEL) INTEGR VALUE
VALINT (INHIBIT) $ INTEGR VALUE
CLOSIN UNTYPE OWN+BILTIN 2 0
VALINT (CHANNEL) INTEGR VALUE
VALINT (INHIBIT) $ INTEGR VALUE
CVOS STRING OWN+BILTIN+CONOK X1 0
VALARI (NUMBER) INTEGR+FLOTNG VALUE
ENTER UNTYPE OWN+BILTIN 3 0
VALINT (CHANNEL) INTEGR VALUE
VALSTR (NAME) STRING VALUE
REFINT (FAIL-FLG) INTEGR REFRNC
MTAPE UNTYPE OWN+BILTIN 2 0
VALINT (CHANNEL) INTEGR VALUE
VALINT (OPER) INTEGR VALUE
WORDIN INTEGR OWN+BILTIN 1 0
VALINT (CHANNEL) INTEGR VALUE
WORDOUT UNTYPE OWN+BILTIN 2 0
VALINT (CHANNEL) INTEGR VALUE
VALARI (ARG) INTEGR+FLOTNG VALUE
CVO INTEGR OWN+BILTIN+CONOK X1 1
VALSTR (STRING) STRING VALUE
USETI UNTYPE OWN+BILTIN 2 0
VALINT (CHANN) INTEGR VALUE
VALINT (BLOCK) INTEGR VALUE
USETO UNTYPE OWN+BILTIN 2 0
VALINT (CHANNEL) INTEGR VALUE
VALINT (BLOCK) INTEGR VALUE
CVSIX INTEGR OWN+BILTIN+CONOK X1 1
VALSTR (STRING) STRING VALUE
CVFIL INTEGR OWN+BILTIN+CONOK X3 1
VALSTR (INPUT) STRING VALUE
REFINT (EXTEN) INTEGR REFRNC
REFINT (PPN) INTEGR REFRNC
CALL INTEGR OWN+BILTIN 2 1
VALINT (INPUT-VAL) INTEGR VALUE
VALSTR (STRING-DESCR) STRING VALUE
RENAME UNTYPE OWN+BILTIN 4 1
VALINT (CHANNEL) INTEGR VALUE
VALSTR (FILE-NAME) STRING VALUE
VALINT (PROTECTION) INTEGR VALUE
REFINT (FLAG) INTEGR REFRNC
MUMBLE NOT FOR TENEX
ERENAME UNTYPE OWN+BILTIN 7 1
VALINT (CHANNEL) INTEGR VALUE
VALSTR (FILE-NAME) STRING VALUE
VALINT (PROTECTION) INTEGR VALUE
VALINT (DATE) INTEGR VALUE
VALINT (TIME) INTEGR VALUE
VALINT (MODE) INTEGR VALUE
REFINT (FLAG) INTEGR REFRNC
;
EDFILE UNTYPE OWN 4 1
VALSTR (FILNAM) STRING VALUE
VALINT (ASCLIN) INTEGR VALUE
VALINT (PAGE) INTEGR VALUE
VALINT (BITS) $ INTEGR VALUE
CVASC INTEGR OWN+BILTIN+CONOK X1 1
VALSTR (STRING-IN) STRING VALUE
CVSTR STRING OWN+BILTIN+CONOK X1 0
VALINT (INTEGR-IN) INTEGR VALUE
CVASTR STRING OWN+BILTIN+CONOK X1 0
VALINT (INTEGR-IN) INTEGR VALUE
CVXSTR STRING OWN+BILTIN+CONOK X1 0
VALINT (INTEGR-IN) INTEGR VALUE
CV6STR STRING OWN+BILTIN+CONOK X1 0
VALINT (INTEGR-IN) INTEGR VALUE
MUMBLE edit (2) for BAIPDn
.SUBSR STRING OWN+BILTIN+CONOK X3 1
VALSTR (THESTRING) STRING VALUE
VALINT (FOR) INTEGR VALUE
VALINT (START) INTEGR VALUE
.SUBST STRING OWN+BILTIN+CONOK X3 1
VALSTR (THESTRING) STRING VALUE
VALINT (TO) INTEGR VALUE
VALINT (START) INTEGR VALUE
;
SETBREAK UNTYPE OWN+BILTIN 4 3
VALINT (TABLE) INTEGR VALUE
VALSTR (BRCHARS) STRING VALUE
VALSTR (OMITS) STRING VALUE
VALSTR (MODES) STRING VALUE
GETBREAK INTEGR OWN+BILTIN 0 0
RELBREAK UNTYPE OWN+BILTIN 1 0
VALINT (TABLE) INTEGR VALUE
STDBRK UNTYPE OWN+BILTIN 1 0
VALINT (CHANNEL) INTEGR VALUE
ARRYIN UNTYPE OWN+BILTIN 3 0
VALINT (CHANNEL) INTEGR VALUE
REFANY (WHERE) INTEGR+FLOTNG+ITMVAR REFRNC
VALINT (COUNT) INTEGR VALUE
ARRYOUT UNTYPE OWN+BILTIN 3 0
VALINT (CHANNEL) INTEGR VALUE
REFANY (WHERE) INTEGR+FLOTNG+ITMVAR REFRNC
VALINT (COUNT) INTEGR VALUE
SETFORMAT UNTYPE OWN+BILTIN 2 0
VALINT (WIDTH) INTEGR VALUE
VALINT (DIGS) INTEGR VALUE
CVG STRING OWN+BILTIN+CONOK X1 0
VALREL (NUMBER) FLOTNG VALUE
CVF STRING OWN+BILTIN+CONOK X1 0
VALREL (NUMBER) FLOTNG VALUE
CVE STRING OWN+BILTIN+CONOK X1 0
VALREL (NUMBER) FLOTNG VALUE
REALIN FLOTNG OWN+BILTIN 1 0
VALINT (CHANNEL) INTEGR VALUE
INTIN INTEGR OWN+BILTIN 1 0
VALINT (CHANNEL) INTEGR VALUE
REALSCAN FLOTNG OWN+BILTIN+CONOK X2 0
REFSTR (ST-NUM) STRING REFRNC
REFINT (FLAG-BREAK) INTEGR REFRNC
INTSCAN INTEGR OWN+BILTIN+CONOK X2 0
REFSTR (ST-NUM) STRING REFRNC
REFINT (FLAG-BREAK) INTEGR REFRNC
ARRINFO INTEGR OWN+BILTIN 2 0
ARRALL (ARRAY) INTEGR+FLOTNG+SET+LSTBIT+ITMVAR+STRING REFRNC+SBSCRP
VALINT (CODE) INTEGR VALUE
ARRBLT UNTYPE OWN+BILTIN 3 0
REFALL (DEST) INTEGR+FLOTNG+ITMVAR+SET REFRNC
REFALL (SOURCE) INTEGR+FLOTNG+ITMVAR+SET REFRNC
VALINT (HOWMANY) INTEGR VALUE
ARRTRAN UNTYPE OWN+BILTIN 2 0
ARRMST (ARRDST) INTEGR+FLOTNG+ITMVAR+SET+LSTBIT+STRING+PNTVAR REFRNC+SBSCRP
ARRMST (ARRSRC) INTEGR+FLOTNG+ITMVAR+SET+LSTBIT+STRING+PNTVAR REFRNC+SBSCRP
ARRCLR UNTYPE OWN+BILTIN 2 0
ARRMST (ARRAY) INTEGR+FLOTNG+PNTVAR+SET+LSTBIT+ITMVAR+STRING REFRNC+SBSCRP
VALARI (VAL) $ INTEGR+FLOTNG+PNTVAR VALUE
CODE INTEGR OWN+BILTIN 2 0
VALINT (INST) INTEGR VALUE
REFINT (ADDR) INTEGR REFRNC
USERERR UNTYPE OWN+BILTIN 4 2
VALINT (VALUE) INTEGR VALUE
VALINT (CODE) INTEGR VALUE
VALSTR (MSG) STRING VALUE
VALSTR (RESPONSE) $ STRING VALUE
ERMSBF UNTYPE OWN+BILTIN 1 0
VALINT (CHARS) INTEGR VALUE
CVSI ITMVAR OWN 2 1
VALSTR (PNAME) STRING VALUE
REFINT (FLAG) INTEGR REFRNC
CVIS STRING OWN 2 0
VALITM (ITEMNO) ITMVAR VALUE
REFINT (FLAG) INTEGR REFRNC
NEW_PNAME UNTYPE OWN 2 1
VALITM (ITEM) ITMVAR VALUE
VALSTR (STRING) STRING VALUE
DEL_PNAME UNTYPE OWN 1 0
VALTIM (ITEM) ITMVAR VALUE
TYPEIT INTEGR OWN+BILTIN 1 0
VALITM (ITEM) ITMVAR VALUE
LISTX INTEGR OWN 3 0
VALLST (LIST) LSTBIT+SET VALUE
VALITM (ITEM) ITMVAR VALUE
VALINT (OCCURENCE) INTEGR VALUE
INCHRW INTEGR OWN+BILTIN 0 0
INCHRS INTEGR OWN+BILTIN 0 0
INCHWL STRING OWN+BILTIN 0 0
INCHSL STRING OWN+BILTIN 1 0
REFINT (FLAG) INTEGR REFRNC
INSTR STRING OWN+BILTIN 1 0
VALINT (BRCHAR) INTEGR VALUE
INSTRL STRING OWN+BILTIN 1 0
VALINT (BRCHAR) INTEGR VALUE
INSTRS STRING OWN+BILTIN 2 0
REFINT (FLAG) INTEGR REFRNC
VALINT (BRCHAR) INTEGR VALUE
TTYIN STRING OWN+BILTIN 2 0
VALINT (TABLE) INTEGR VALUE
REFINT (BRCHAR) INTEGR REFRNC
TTYINL STRING OWN+BILTIN 2 0
VALINT (TABLE) INTEGR VALUE
REFINT (BRCHAR) INTEGR REFRNC
TTYINS STRING OWN+BILTIN 2 0
VALINT (TABLE) INTEGR VALUE
REFINT (BRCHAR) INTEGR REFRNC
OUTCHR UNTYPE OWN+BILTIN 1 0
VALINT (CHAR) INTEGR VALUE
OUTSTR UNTYPE OWN+BILTIN 1 1
VALSTR (STR) STRING VALUE
$PRINT STRING OWN 2 1
VALSTR (STR) STRING VALUE
VALINT (CTL) $ INTEGR VALUE
GETFORMAT UNTYPE OWN+BILTIN 2 0
REFINT (WDTH) INTEGR REFRNC
REFINT (DIGS) INTEGR REFRNC
GETCHAN INTEGR OWN+BILTIN 0 0
MUMBLE FILEINFO NOT FOR TENEX
FILEINFO UNTYPE OWN+BILTIN 1 0
ARRINT (ARRAY) INTEGR REFRNC+SBSCRP
;
USERCON UNTYPE OWN+BILTIN 3 0
REFINT (INDEX) INTEGR REFRNC
REFINT (VALUE) INTEGR REFRNC
VALINT (FLAG) INTEGR VALUE
MUMBLE CHNCDB NOT FOR TENEX
CHNCDB INTEGR OWN+BILTIN 1 0
VALINT (CHAN) INTEGR VALUE
;
MUMBLE NWORLD RUNTIMES ;
MAINPR UNTYPE OWN 0 0
RESUME ITMVAR OWN 3 0
VALITM (PROCESS) ITMVAR VALUE
VALITM (RETVAL) $ ITMVAR VALUE
VALINT (OPTS) $ INTEGR VALUE
ASKNTC ITMVAR OWN 2 0
VALITM (ETYP) ITMVAR VALUE
VALINT (OPTS) $ INTEGR VALUE
CAUSE1 ITMVAR OWN 3 0
VALITM (ETYP) ITMVAR VALUE
VALITM (ENOT) $ ITMVAR VALUE
VALINT (OPTS) $ INTEGR VALUE
MKEVTT UNTYPE OWN 1 0
VALITM (ETYP) ITMVAR VALUE
JOIN UNTYPE OWN 1 0
VALSET (JSET) SET VALUE
SUSPEND ITMVAR OWN 1 0
VALITM (PROCESS) ITMVAR VALUE
TERMINATE UNTYPE OWN 1 0
VALITM (PROCESS) ITMVAR VALUE
MYPROC ITMVAR OWN+BILTIN 0 0
CALLER ITMVAR OWN 1 0
VALITM (PROCESS) ITMVAR VALUE
INTSET UNTYPE OWN 2 0
VALITM (IPROCSS) ITMVAR VALUE
VALINT (OPTS) INTEGR VALUE
INTTBL UNTYPE OWN 1 0
VALINT (SIZE) INTEGR VALUE
MUMBLE
INTMOD UNTYPE OWN 0 0
;
CLKMOD UNTYPE OWN 0 0
DFRINT UNTYPE OWN 0 0
DDFINT UNTYPE OWN 0 0
DFR1IN UNTYPE OWN 1 0
VALINT (AOBJNP) INTEGR VALUE
ENABLE UNTYPE OWN 1 0
VALINT (INDEX) INTEGR VALUE
DISABLE UNTYPE OWN 1 0
VALINT (INDEX) INTEGR VALUE
INTMAP UNTYPE OWN 3 0
VALINT (INDEX) INTEGR VALUE
REFPRC (PROC) PROCED REFRNC
VALINT (PARAM) INTEGR VALUE
DFCPKT INTEGR OWN 4 0
VALINT (ADDR) INTEGR VALUE
VALITM (TYP) ITMVAR VALUE
VALITM (NOTC) ITMVAR VALUE
VALINT (OPTS) INTEGR VALUE
URSCHD INTEGR OWN 0 0
PRISET UNTYPE OWN 2 0
VALITM (PROCESS) ITMVAR VALUE
VALINT (PRIORITY) INTEGR VALUE
PSTATUS INTEGR OWN 1 0
VALITM (PROCESS) ITMVAR VALUE
INTPRO UNTYPE OWN 0 0
ANSWER INTEGR OWN 3 0
VALITM (ETYP) ITMVAR VALUE
VALITM (ENOT) ITMVAR VALUE
VALITM (PROCESS) ITMVAR VALUE
MUMBLE THE TRIGONOMETRIC ROUTINES, AND MISC. NUMERICAL;
LOG FLOTNG OWN+BILTIN+FNYNAM 1 0
VALREL (ARG) FLOTNG VALUE
EXP FLOTNG OWN+BILTIN+FNYNAM 1 0
VALREL (ARG) FLOTNG VALUE
MUMBLE edit through TRIGINI for BAIPDn
SIN FLOTNG OWN+BILTIN+FNYNAM 1 0
VALREL (ARG) FLOTNG VALUE
SIND FLOTNG OWN+BILTIN+FNYNAM 1 0
VALREL (ARG) FLOTNG VALUE
COS FLOTNG OWN+BILTIN+FNYNAM 1 0
VALREL (ARG) FLOTNG VALUE
COSD FLOTNG OWN+BILTIN+FNYNAM 1 0
VALREL (ARG) FLOTNG VALUE
SQRT FLOTNG OWN+BILTIN+FNYNAM 1 0
VALREL (ARG) FLOTNG VALUE
ATAN2 FLOTNG OWN+BILTIN+FNYNAM 2 0
VALREL (ARG) FLOTNG VALUE
VALREL (ARG) FLOTNG VALUE
ATAN FLOTNG OWN+BILTIN+FNYNAM 1 0
VALREL (ARG) FLOTNG VALUE
ACOS FLOTNG OWN+BILTIN+FNYNAM 1 0
VALREL (ARG) FLOTNG VALUE
ASIN FLOTNG OWN+BILTIN+FNYNAM 1 0
VALREL (ARG) FLOTNG VALUE
TANH FLOTNG OWN+BILTIN+FNYNAM 1 0
VALREL (ARG) FLOTNG VALUE
COSH FLOTNG OWN+BILTIN+FNYNAM 1 0
VALREL (ARG) FLOTNG VALUE
SINH FLOTNG OWN+BILTIN+FNYNAM 1 0
VALREL (ARG) FLOTNG VALUE
RAN FLOTNG OWN+BILTIN+FNYNAM 1 0
VALINT (ARG) INTEGR VALUE
TRIGINI UNTYPE OWN 1 0
VALLOC (LOC) INTEGR VALUE
;
MUMBLE NOT FOR TENEX, THRU INOUT
GETSTS INTEGR OWN+BILTIN 1 0
VALINT (CHNL) INTEGR VALUE
SETSTS UNTYPE OWN+BILTIN 2 0
VALINT (CHNL) INTEGR VALUE
VALINT (BITS) INTEGR VALUE
INOUT UNTYPE OWN+BILTIN 3 0
VALINT (INCHN) INTEGR VALUE
VALINT (OUTCH) INTEGR VALUE
VALINT (EXT) INTEGR VALUE
;
TTYUP INTEGR OWN+BILTIN 1 0
VALINT (ARG) INTEGR VALUE
CLRBUF UNTYPE OWN+BILTIN 0 0
MUMBLE **** THE FOLLOWING ARE FOR CMU ****
INITSEA INTEGR OWN 1 0
VALINT (SEAPAR) INTEGR VALUE
SEAINIT INTEGR OWN 1 0
VALINT (SEAPAR) INTEGR VALUE
SEAREL UNTYPE OWN 0 0
ARDINIT UNTYPE OWN 0 0
CHARSZ UNTYPE OWN 1 0
VALINT (SIZE) INTEGR VALUE
ARDSTR UNTYPE OWN 1 1
VALSTR (STR) STRING VALUE
CHRMOD UNTYPE OWN 0 0
CLEAR UNTYPE OWN 0 0
SETPNT UNTYPE OWN 2 0
VALINT (X) INTEGR VALUE
VALINT (Y) INTEGR VALUE
INVVEC UNTYPE OWN 2 0
VALINT (DX) INTEGR VALUE
VALINT (DY) INTEGR VALUE
VISVEC UNTYPE OWN 2 0
VALINT (DX) INTEGR VALUE
VALINT (DY) INTEGR VALUE
DOTVEC UNTYPE OWN 2 0
VALINT (DX) INTEGR VALUE
VALINT (DY) INTEGR VALUE
SVEC UNTYPE OWN 2 0
VALINT (DX) INTEGR VALUE
VALINT (DY) INTEGR VALUE
MOUSEW UNTYPE OWN 3 0
REFINT (X) INTEGR REFRNC
REFINT (Y) INTEGR REFRNC
REFINT (TYPE) INTEGR REFRNC
MOUSES UNTYPE OWN 3 0
REFINT (X) INTEGR REFRNC
REFINT (Y) INTEGR REFRNC
REFINT (TYPE) INTEGR REFRNC
CHRMOD UNTYPE OWN 0 0
GRUMBLE **** END OF CMU ADDITIONS **** ;
MUMBLE **** ROUTINES FOR ALL TENEX SITES *****
< A semicolon here gets the tenex routines >;
CVJFN INTEGR OWN+BILTIN 1 0
VALINT (CHAN) INTEGR VALUE
ODTIM STRING OWN 2 0
VALINT (DT) INTEGR VALUE
VALINT (FORMAT) INTEGR VALUE
IDTIM INTEGR OWN 1 0
VALSTR (DT) STRING VALUE
RUNTM INTEGR OWN 2 0
VALINT (FORK) INTEGR VALUE
REFINT (CONSOLE) INTEGR REFRNC
GTAD INTEGR OWN+BILTIN 0 0
GJINF INTEGR OWN 3 0
REFINT (LOGDIR) INTEGR REFRNC
REFINT (CONDIR) INTEGR REFRNC
REFINT (TTYNO) INTEGR REFRNC
STDIR INTEGR OWN 2 1
VALSTR (DIRECTORY) STRING VALUE
VALINT (DOREC) INTEGR VALUE
DIRST STRING OWN 1 0
VALINT (DIRNO) INTEGR VALUE
RUNPRG INTEGR OWN 3 1
VALSTR (PROGRAM) STRING VALUE
VALINT (INCREM) INTEGR VALUE
VALINT (NEWFRK) INTEGR VALUE
OPENFILE INTEGR OWN 2 2
VALSTR (FILE) STRING VALUE
VALSTR (MODES) STRING VALUE
SETINPUT UNTYPE OWN 4 0
VALINT (CHAN) INTEGR VALUE
REFINT (COUNT) INTEGR REFRNC
REFINT (BRK) INTEGR REFRNC
REFINT (EOF) INTEGR REFRNC
INDEXFILE INTEGR OWN 1 0
VALINT (CHAN) INTEGR VALUE
SETCHAN INTEGR OWN+BILTIN 3 0
VALINT (CHAN) INTEGR VALUE
VALINT (GTFLAGS) INTEGR VALUE
VALINT (OPFLAGS) INTEGR VALUE
GTJFN INTEGR OWN 2 1
VALSTR (FILE) STRING VALUE
VALINT (FLAGS) INTEGR VALUE
GTJFNL INTEGR OWN 10 7
VALSTR (ORIG) STRING VALUE
VALINT (FLAGS) INTEGR VALUE
VALINT (IOJFS) INTEGR VALUE
VALSTR (DEV) STRING VALUE
VALSTR (DIR) STRING VALUE
VALSTR (NAM) STRING VALUE
VALSTR (EXT) STRING VALUE
VALSTR (PROT) STRING VALUE
VALSTR (ACC) STRING VALUE
VALINT (DJFN) INTEGR VALUE
GNJFN INTEGR OWN 1 0
VALINT (CHAN) INTEGR VALUE
DELF UNTYPE OWN 1 0
VALINT (CHAN) INTEGR VALUE
DELNF INTEGR OWN 2 0
VALINT (CHAN) INTEGR VALUE
VALINT (NUM) INTEGR VALUE
UNDELETE UNTYPE OWN 1 0
VALINT (CHAN) INTEGR VALUE
SIZEF INTEGR OWN 1 0
VALINT (CHAN) INTEGR VALUE
JFNS STRING OWN 2 0
VALINT (CHAN) INTEGR VALUE
VALINT (FLAGS) INTEGR VALUE
OPENF UNTYPE OWN 2 0
VALINT (CHAN) INTEGR VALUE
VALINT (FLAGS) INTEGR VALUE
CFILE INTEGR OWN 1 0
VALINT (CHAN) INTEGR VALUE
CLOSF UNTYPE OWN 1 0
VALINT (CHAN) INTEGR VALUE
RLJFN UNTYPE OWN 1 0
VALINT (CHAN) INTEGR VALUE
GTSTS INTEGR OWN 1 0
VALINT (CHAN) INTEGR VALUE
STSTS INTEGR OWN 2 0
VALINT (CHAN) INTEGR VALUE
VALINT (STAT) INTEGR VALUE
RNAMF INTEGR OWN 2 0
VALINT (CHAN1) INTEGR VALUE
VALINT (CHAN2) INTEGR VALUE
CNDIR INTEGR OWN 2 0
VALINT (DIR) INTEGR VALUE
VALSTR (PW) STRING VALUE
ASND INTEGR OWN 1 0
VALINT (DEV) INTEGR VALUE
RELD INTEGR OWN 1 0
VALINT (DEV) INTEGR VALUE
GDSTS INTEGR OWN 2 0
VALINT (CHAN) INTEGR VALUE
REFINT (WDCNT) INTEGR REFRNC
SDSTS INTEGR OWN 2 0
VALINT (CHAN) INTEGR VALUE
VALINT (STAT) INTEGR VALUE
STDEV INTEGR OWN 1 1
VALSTR (DEV) STRING VALUE
DEVST STRING OWN 1 0
VALINT (DEV) INTEGR VALUE
CHAROUT UNTYPE OWN+BILTIN 2 0
VALINT (CHAN) INTEGR VALUE
VALINT (CHAR) INTEGR VALUE
GTFDB UNTYPE OWN 2 0
VALINT (CHAN) INTEGR VALUE
ARRINT (ARR) INTEGR REFRNC+SBSCRP
CHFDB UNTYPE OWN+BILTIN 4 0
VALINT (CHAN) INTEGR VALUE
VALINT (DISPL) INTEGR VALUE
VALINT (MASK) INTEGR VALUE
VALINT (CBITS) INTEGR VALUE
MTOPR UNTYPE OWN+BILTIN 3 0
VALINT (CHAN) INTEGR VALUE
VALINT (FUNCTION) INTEGR VALUE
VALINT (VAL) INTEGR VALUE
SFPTR UNTYPE OWN+BILTIN 2 0
VALINT (CHAN) INTEGR VALUE
VALINT (POINTER) INTEGR VALUE
RFPTR INTEGR OWN+BILTIN 1 0
VALINT (CHAN) INTEGR VALUE
RCHPTR INTEGR OWN+BILTIN 1 0
VALINT (CHAN) INTEGR VALUE
SCHPTR UNTYPE OWN+BILTIN 2 0
VALINT (CHAN) INTEGR VALUE
VALINT (PTR) INTEGR VALUE
RWDPTR INTEGR OWN+BILTIN 1 0
VALINT (CHAN) INTEGR VALUE
SWDPTR UNTYPE OWN+BILTIN 2 0
VALINT (CHAN) INTEGR VALUE
VALINT (PTR) INTEGR VALUE
BKJFN UNTYPE OWN+BILTIN 1 0
VALINT (CHAN) INTEGR VALUE
RFBSZ INTEGR OWN+BILTIN 1 0
VALINT (CHAN) INTEGR VALUE
DEVTYPE INTEGR OWN 1 0
VALINT (CHAN) INTEGR VALUE
DVCHR INTEGR OWN 3 0
VALINT (CHAN) INTEGR VALUE
REFINT (AC1) INTEGR REFRNC
REFINT (AC3) INTEGR REFRNC
ERSTR INTEGR OWN 2 0
VALINT (ERRNO) INTEGR VALUE
VALINT (FORK) INTEGR VALUE
RFMOD INTEGR OWN+BILTIN 1 0
VALINT (CHAN) INTEGR VALUE
SFMOD UNTYPE OWN+BILTIN 2 0
VALINT (CHAN) INTEGR VALUE
VALINT (MODE) INTEGR VALUE
RFCOC UNTYPE OWN+BILTIN 3 0
VALINT (CHAN) INTEGR VALUE
REFINT (AC2) INTEGR REFRNC
REFINT (AC3) INTEGR REFRNC
SFCOC UNTYPE OWN+BILTIN 3 0
VALINT (CHAN) INTEGR VALUE
VALINT (AC2) INTEGR VALUE
VALINT (AC3) INTEGR VALUE
STPAR UNTYPE OWN+BILTIN 2 0
VALINT (CHAN) INTEGR VALUE
VALINT (BITS) INTEGR VALUE
STI UNTYPE OWN+BILTIN 2 0
VALINT (CHAN) INTEGR VALUE
VALINT (BITS) INTEGR VALUE
GTTYP INTEGR OWN+BILTIN 2 0
VALINT (CHAN) INTEGR VALUE
REFINT (BUFS) INTEGR REFRNC
SETEDIT INTEGR OWN+BILTIN 2 0
VALINT (CHAN) INTEGR VALUE
VALINT (MODE) INTEGR VALUE
STTYP UNTYPE OWN+BILTIN 2 0
VALINT (CHAN) INTEGR VALUE
VALINT (BITS) INTEGR VALUE
PMAP UNTYPE OWN+BILTIN 3 0
VALINT (AC1) INTEGR VALUE
VALINT (AC2) INTEGR VALUE
VALINT (AC3) INTEGR VALUE
INTTY STRING OWN+BILTIN 0 0
PBIN INTEGR OWN+BILTIN 0 0
PBOUT UNTYPE OWN+BILTIN 1 0
VALINT (CHAR) INTEGR VALUE
PSOUT UNTYPE OWN+BILTIN 1 1
VALSTR (STR) STRING VALUE
CHARIN INTEGR OWN+BILTIN 1 0
VALINT (CHAN) INTEGR VALUE
SINI STRING OWN+BILTIN 3 0
VALINT (CHAN) INTEGR VALUE
VALINT (MAXL) INTEGR VALUE
VALINT (BRK) INTEGR VALUE
ATI UNTYPE OWN 2 0
VALINT (CHNL) INTEGR VALUE
VALINT (CODE) INTEGR VALUE
DTI UNTYPE OWN 1 0
VALINT (CODE) INTEGR VALUE
RTIW INTEGR OWN 3 0
VALINT (CHNL) INTEGR VALUE
REFINT (AC2) INTEGR REFRNC
REFINT (AC3) INTEGR REFRNC
STIW INTEGR OWN 3 0
VALINT (CHNL) INTEGR VALUE
VALINT (AC2) INTEGR VALUE
VALINT (AC3) INTEGR VALUE
GTRPW INTEGR OWN 2 0
VALINT (FORK) INTEGR VALUE
REFINT (AC2) INTEGR REFRNC
PSIMAP UNTYPE OWN 4 0
VALINT (CHNL) INTEGR VALUE
REFPROC (PROC) PROCED REFRNC
VALINT (PARM) INTEGR VALUE
VALINT (LEVL) INTEGR VALUE
PSIDISMS UNTYPE OWN 2 0
VALINT (CHNL) INTEGR VALUE
VALINT (TIME) INTEGR VALUE
PSIRUNTM UNTYPE OWN 2 0
VALINT (CHNL) INTEGR VALUE
VALINT (TIME) INTEGR VALUE
KPSITIME UNTYPE OWN 1 0
VALINT (CHNL) INTEGR VALUE
MUMBLE ***** end of TENEX *****
;
MUMBLE ***** ROUTINES for IMSSS only *****
< A semicolon here gets IMSSS >;
DSKIN UNTYPE OWN+BILTIN 4 0
VALINT (MODULE) INTEGR VALUE
VALINT (RECNO) INTEGR VALUE
VALINT (COUNT) INTEGR VALUE
REFANY (LOC) INTEGR+FLOTNG+ITMVAR REFRNC
DSKOUT UNTYPE OWN+BILTIN 4 0
VALINT (MODULE) INTEGR VALUE
VALINT (RECNO) INTEGR VALUE
VALINT (COUNT) INTEGR VALUE
REFANY (LOC) INTEGR+FLOTNG+ITMVAR REFRNC
PBTIN INTEGR OWN+BILTIN 1 0
VALINT (SECONDS) INTEGR VALUE
MUMBLE ***** END OF IMSSS ONLY *****
;
MUMBLE THESE FOLLOWING DO NOT GO IN THE EXPORT VERSION.
PTYGET INTEGR OWN+BILTIN 0 0
PTYREL UNTYPE OWN+BILTIN 1 0
VALINT (LINE) INTEGR VALUE
PTYGTL INTEGR OWN+BILTIN 1 0
VALINT (LINE) INTEGR VALUE
PTYSTL UNTYPE OWN+BILTIN 2 0
VALINT (LINE) INTEGR VALUE
VALINT (CHAR) INTEGR VALUE
PTIFRE INTEGR OWN+BILTIN 1 0
VALINT (LINE) INTEGR VALUE
PTOCNT INTEGR OWN+BILTIN 1 0
VALINT (LINE) INTEGR VALUE
PTCHRW INTEGR OWN+BILTIN 1 0
VALINT (LINE) INTEGR VALUE
PTCHRS INTEGR OWN+BILTIN 1 0
VALINT (LINE) INTEGR VALUE
PTOCHS UNTYPE OWN+BILTIN 2 0
VALINT (LINE) INTEGR VALUE
VALINT (CHAR) INTEGR VALUE
PTOCHW UNTYPE OWN+BILTIN 2 0
VALINT (LINE) INTEGR VALUE
VALINT (CHAR) INTEGR VALUE
PTOSTR UNTYPE OWN+BILTIN 2 1
VALINT (LINE) INTEGR VALUE
VALSTR (INFO) STRING VALUE
BACKUP UNTYPE OWN+BILTIN 0 0
LODED UNTYPE OWN+BILTIN 1 1
VALSTR (RELINE) STRING VALUE
PTYALL STRING OWN+BILTIN 1 0
VALINT (LINE) INTEGR VALUE
PTYSTR STRING OWN+BILTIN 2 0
VALINT (LINE) INTEGR VALUE
VALINT (BRCHAR) INTEGR VALUE
PTYIN STRING OWN+BILTIN 3 0
VALINT (LINE) INTEGR VALUE
VALINT (BKTBL) INTEGR VALUE
REFINT (BRCHAR) INTEGR REFRNC
IFGLOBAL INTEGR OWN+BILTIN 1 0
VALITM (ITM) ITMVAR VALUE
;
MUMBLE edit for BAIPDn
ISSUE INTEGR OWN 4 3
VALINT (DIRECT) INTEGR VALUE
VALSTR (SRC) STRING VALUE
VALSTR (DES) STRING VALUE
VALSTR (NAME) STRING VALUE
QUEUE INTEGR OWN 2 0
VALINT (DIR) INTEGR VALUE
VALINT (UNQ) INTEGR VALUE
GET_DATA STRING OWN 2 0
VALINT (DIR) INTEGR VALUE
VALINT (UNQ) INTEGR VALUE
PUT_DATA UNTYPE OWN 3 1
VALINT (DIR) INTEGR VALUE
VALINT (UNQ) INTEGR VALUE
VALSTR (STR) STRING VALUE
GET_BIT INTEGR OWN 1 0
VALINT (UNQ) INTEGR VALUE
GET_ENTRY INTEGR OWN 4 3
VALINT (DIR) INTEGR VALUE
VALSTR (SRC) STRING VALUE
VALSTR (DES) STRING VALUE
VALSTR (NAM) STRING VALUE
GET_SET SET OWN 4 3
VALINT (DIR) INTEGR VALUE
VALSTR (SRC) STRING VALUE
VALSTR (DES) STRING VALUE
VALSTR (NAM) STRING VALUE
;
MUMBLE **** END OF THINGS NOT EXPORTED **** ;
MUMBLE This is redefined during compile initialization;
MUMBLE <name><sp><# params><sp><body, where ¬i is param i and ¬0 is end>;
<MACROS>
COMPILER_BANNER 0 ¬0
<END>
β