perm filename FOO2.MS[MEW,AIL] blob
sn#091954 filedate 1974-03-19 generic text, type T, neo UTF8
1) FOO2 vs. 2) FOO2[S,AIL] SRCCOM 03-19-74 02:05 PAGES 1,1
******** FOO2 **** PAGE 1
1) COMMENT ⊗ VALID 00004 PAGES
1) RECORD PAGE DESCRIPTION
1) 00001 00001
1) 00002 00002
1) 00014 00003 TTYIN STRING OWN+BILTIN 2
1) 00024 00004
1) 00034 ENDMK
1) ⊗;
1) COMMENT β
*** FOO2[S,AIL] *** PAGE 1
2) COMMENT ⊗ VALID 00003 PAGES
2) C REC PAGE DESCRIPTION
2) C00001 00001
2) C00002 00002
2) C00014 00003 TTYIN STRING OWN+BILTIN 2
2) C00026 ENDMK
2) C⊗;
2) COMMENT β
******** FOO2 **** PAGE 3
1) GRUMBLE **** END OF CMU ADDITIONS **** ;
1) MUMBLE **** ROUTINES FOR ALL TENEX SITES *****
1) < A semicolon here gets the tenex routines >
1) CVJFN INTEGR OWN+BILTIN 1
1) VALINT (CHAN) INTEGR VALUE
1) ODTIM STRING OWN 2
1) VALINT (DT) INTEGR VALUE
1) VALINT (FORMAT) INTEGR VALUE
1) IDTIM INTEGR OWN 1
1) VALSTR (DT) STRING VALUE
1) RUNTM INTEGR OWN 2
1) VALINT (FORK) INTEGR VALUE
1) REFINT (CONSOLE) INTEGR REFRNC
1) GTAD INTEGR OWN+BILTIN 0
1) GJINF INTEGR OWN 3
1) REFINT (LOGDIR) INTEGR REFRNC
1) REFINT (CONDIR) INTEGR REFRNC
1) REFINT (TTYNO) INTEGR REFRNC
1) STDIR INTEGR OWN 2
1) VALSTR (DIRECTORY) STRING VALUE
1) VALINT (DOREC) INTEGR VALUE
1) DIRST STRING OWN 1
1) VALINT (DIRNO) INTEGR VALUE
1) RUNPRG INTEGR OWN 3
1) VALSTR (PROGRAM) STRING VALUE
1) VALINT (INCREM) INTEGR VALUE
1) FOO2 vs. 2) FOO2[S,AIL] SRCCOM 03-19-74 02:05 PAGES 3,3
1) VALINT (NEWFRK) INTEGR VALUE
1) OPENFILE INTEGR OWN 2
1) VALSTR (FILE) STRING VALUE
1) VALSTR (MODES) STRING VALUE
1) SETINPUT UNTYPE OWN 4
1) VALINT (CHAN) INTEGR VALUE
1) REFINT (COUNT) INTEGR REFRNC
1) REFINT (BRK) INTEGR REFRNC
1) REFINT (EOF) INTEGR REFRNC
1) INDEXFILE INTEGR OWN 1
1) VALINT (CHAN) INTEGR VALUE
1) GTJFN INTEGR OWN 2
1) VALSTR (FILE) STRING VALUE
1) VALINT (FLAGS) INTEGR VALUE
1) GNJFN INTEGR OWN 1
1) VALINT (CHAN) INTEGR VALUE
1) DELF UNTYPE OWN 1
1) VALINT (CHAN) INTEGR VALUE
1) UNDELETE UNTYPE OWN 1
1) VALINT (CHAN) INTEGR VALUE
1) SIZEF INTEGR OWN 1
1) VALINT (CHAN) INTEGR VALUE
1) JFNS STRING OWN 2
1) VALINT (CHAN) INTEGR VALUE
1) VALINT (FLAGS) INTEGR VALUE
1) OPENF UNTYPE OWN 2
1) VALINT (CHAN) INTEGR VALUE
1) VALINT (FLAGS) INTEGR VALUE
1) CFILE INTEGR OWN 1
1) VALINT (CHAN) INTEGR VALUE
1) CLOSF UNTYPE OWN 1
1) VALINT (CHAN) INTEGR VALUE
1) RLJFN UNTYPE OWN 1
1) VALINT (CHAN) INTEGR VALUE
1) GTSTS INTEGR OWN 1
1) VALINT (CHAN) INTEGR VALUE
1) STSTS INTEGR OWN 2
1) VALINT (CHAN) INTEGR VALUE
1) VALINT (STAT) INTEGR VALUE
1) RNAMF INTEGR OWN 2
1) VALINT (CHAN1) INTEGR VALUE
1) VALINT (CHAN2) INTEGR VALUE
1) CNDIR INTEGR OWN 2
1) VALINT (DIR) INTEGR VALUE
1) VALSTR (PW) STRING VALUE
1) ASND INTEGR OWN 1
1) VALINT (DEV) INTEGR VALUE
1) RELD INTEGR OWN 1
1) FOO2 vs. 2) FOO2[S,AIL] SRCCOM 03-19-74 02:05 PAGES 3,3
1) VALINT (DEV) INTEGR VALUE
1) GDSTS INTEGR OWN 2
1) VALINT (CHAN) INTEGR VALUE
1) REFINT (WDCNT) INTEGR REFRNC
1) SDSTS INTEGR OWN 2
1) VALINT (CHAN) INTEGR VALUE
1) VALINT (STAT) INTEGR VALUE
1) STDEV INTEGR OWN 1
1) VALSTR (DEV) STRING VALUE
1) DEVST STRING OWN 1
1) VALINT (DEV) INTEGR VALUE
1) CHAROUT UNTYPE OWN+BILTIN 2
1) VALINT (CHAN) INTEGR VALUE
1) VALINT (CHAR) INTEGR VALUE
1) GTFDB UNTYPE OWN 2
1) VALINT (CHAN) INTEGR VALUE
1) ARRINT (ARR) INTEGR REFRNC+SBSCRP
1) MTOPR UNTYPE OWN+BILTIN 3
1) VALINT (CHAN) INTEGR VALUE
1) VALINT (FUNCTION) INTEGR VALUE
1) VALINT (VAL) INTEGR VALUE
1) SFPTR UNTYPE OWN+BILTIN 2
1) VALINT (CHAN) INTEGR VALUE
1) VALINT (POINTER) INTEGR VALUE
1) RFPTR INTEGR OWN+BILTIN 1
1) VALINT (CHAN) INTEGR VALUE
1) BKJFN UNTYPE OWN+BILTIN 1
1) VALINT (CHAN) INTEGR VALUE
1) RFBSZ INTEGR OWN+BILTIN 1
1) VALINT (CHAN) INTEGR VALUE
1) DEVTYPE INTEGR OWN 1
1) VALINT (CHAN) INTEGR VALUE
1) DVCHR INTEGR OWN 3
1) VALINT (CHAN) INTEGR VALUE
1) REFINT (AC1) INTEGR REFRNC
1) REFINT (AC3) INTEGR REFRNC
1) ERSTR INTEGR OWN 2
1) VALINT (ERRNO) INTEGR VALUE
1) VALINT (FORK) INTEGR VALUE
1) RFMOD INTEGR OWN+BILTIN 1
1) VALINT (CHAN) INTEGR VALUE
1) SFMOD UNTYPE OWN+BILTIN 2
1) VALINT (CHAN) INTEGR VALUE
1) VALINT (MODE) INTEGR VALUE
1) RFCOC UNTYPE OWN+BILTIN 3
1) VALINT (CHAN) INTEGR VALUE
1) REFINT (AC2) INTEGR REFRNC
1) REFINT (AC3) INTEGR REFRNC
1) FOO2 vs. 2) FOO2[S,AIL] SRCCOM 03-19-74 02:05 PAGES 3,3
1) SFCOC UNTYPE OWN+BILTIN 3
1) VALINT (CHAN) INTEGR VALUE
1) VALINT (AC2) INTEGR VALUE
1) VALINT (AC3) INTEGR VALUE
1) PMAP UNTYPE OWN+BILTIN 3
1) VALINT (AC1) INTEGR VALUE
1) VALINT (AC2) INTEGR VALUE
1) VALINT (AC3) INTEGR VALUE
1) INTTY STRING OWN+BILTIN 0
1) PBIN INTEGR OWN+BILTIN 0
1) PBOUT UNTYPE OWN+BILTIN 1
1) VALINT (CHAR) INTEGR VALUE
1) PSOUT UNTYPE OWN+BILTIN 1
1) VALSTR (STR) STRING VALUE
1) CHARIN INTEGR OWN+BILTIN 1
1) VALINT (CHAN) INTEGR VALUE
1) SINI STRING OWN+BILTIN 3
1) VALINT (CHAN) INTEGR VALUE
1) VALINT (MAXL) INTEGR VALUE
1) VALINT (BRK) INTEGR VALUE
1) ATI UNTYPE OWN 2
1) VALINT (CODE) INTEGR VALUE
1) VALINT (CHNL) INTEGR VALUE
1) DTI UNTYPE OWN 1
1) VALINT (CHNL) INTEGR VALUE
1) GRUMBLE ***** end of TENEX *****
1) ;
1) MUMBLE ***** ROUTINES for IMSSS only *****
1) < A semicolon here gets IMSSS >
1) DSKIN UNTYPE OWN+BILTIN 4
1) VALINT (MODULE) INTEGR VALUE
1) VALINT (RECNO) INTEGR VALUE
1) VALINT (COUNT) INTEGR VALUE
1) REFANY (LOC) INTEGR+FLOTNG+ITMVAR REFRNC
1) DSKOUT UNTYPE OWN+BILTIN 4
1) VALINT (MODULE) INTEGR VALUE
1) VALINT (RECNO) INTEGR VALUE
1) VALINT (COUNT) INTEGR VALUE
1) REFANY (LOC) INTEGR+FLOTNG+ITMVAR REFRNC
1) PBTIN INTEGR OWN+BILTIN 1
1) VALINT (SECONDS) INTEGR VALUE
1) GRUMBLE ***** END OF IMSSS ONLY *****
1) ;
1) MUMBLE THESE FOLLOWING DO NOT GO IN THE EXPORT VERSION.
*** FOO2[S,AIL] *** PAGE 3
2) **** END OF CMU ADDITIONS **** ;
2) MUMBLE THESE FOLLOWING DO NOT GO IN THE EXPORT VERSION.
1) FOO2 vs. 2) FOO2[S,AIL] SRCCOM 03-19-74 02:05 PAGES 3,3