Google
 

Trailing-Edge - PDP-10 Archives - -
There are no other files named in the archive.
00100	COMMENT    VALID 00002 PAGES
00200	C REC  PAGE   DESCRIPTION
00300	C00001 00001
00400	C00002 00002	DSCR SPARES
00500	C00005 ENDMK
00600	C;
     
00100	DSCR SPARES
00200	DES
00300		THIS AREA CONTAINS MANY SPARE HERE TABLE ENTRIES.
00400		TO USE A SPARE:
00500		PUT A HEREFK(FOO,FOOFAK) WHERE YOU WANT FOO.
00600		SAY (IN THIS FILE)
00700			HERE(FOO)
00800				JRST FOOFAK
00900		THEN YOU CAN COME BACK & CLEAN UP LATER (WHEN PUTTING UP A NEW
01000		SAISGX.
01100	
01200	
01300	UP <
01400	HERE(CV6STR)
01500		JRST	CV6ST.
01600	NOTENX<
01700	HERE(ERENAME)
01800		JRST	ERENA.
01900			ERR <DRYROT IN HERE SPARES>
02000	>;NOTENX
02100	HERE(CVASTR)
02200		JRST	CVAST.
02300	NRC <
02400	HERE($RECFN)
02500		JRST	$RECF.
02600	HERE($RCINI)
02700		JRST	$RCIN.
02800	>;NRC
02900	
03000	;;%CD%	JFR 6-7-75 PDQ'S NEW RECORD STUFF
03100	HERE($RMARK)
03200		JRST	$RMAR.
03300	;; %CD% ^
03400	
03500	HERE(SPLICE)		;FANCY STRING MAKER
03600		JRST	SPLIC.
03700	HERE(SPLPRT)		;CONSTRUCT AND OUTSTR USING SPLICE
03800		JRST	SPLPR.
03900	HERE(EDFILE)	;CALL EDITOR
04000		JRST	EDFIL.
04100	NOTENX<
04200	NOSTANFORD<
04300	HERE(BACKUP)
04400		JRST	BACKU.
04500	>;NOSTANFORD
04600	>;NOTENX
04700	
04800	HERE(SETPRINT)
04900		JRST	SETPR.
05000	HERE(GETPRINT)
05100		JRST	GETPR.
05200	HERE($PINT)
05300		JRST 	$PINT.
05400	HERE($PREL)
05500		JRST	$PREL.
05600	HERE($PITM)
05700		JRST	$PITM.
05800	HERE($PSET)
05900		JRST	$PSET.
06000	HERE($PLST)
06100		JRST	$PLST.
06200	HERE($PREC)
06300		JRST	$PREC.
06400	HERE($PSTR)
06500		JRST	$PSTR.
06600	TYMSHR <
06700	HERE(CHNIOR)
06800		JRST CHNCR.
06900	HERE(CHNIOV)
07000		JRST CHNCV.
07100	HERE (IONEOU)
07200		JRST IONOU.
07300	HERE (AUXCLV)
07400		JRST AUXCV.
07500	HERE (AUXCLR)
07600		JRST AUXCR.
07700	HERE (CALLI)
07800		JRST CALLI.
07900	>
08000	HERE(SCANC)
08100		JRST	SCANC.
08200	
08300	HERE($$DERR)
08400		JRST	$$DER.
08500	NOTENX<
08600	IFN <<SEGS>&1>,<
08700	HERE(TMPIN)
08800		JRST	TMPIN.
08900	HERE(TMPOUT)
09000		JRST	TMPOU.
09100	>; ifn thing
09200	>;NOTENX
09300	
09400	HERE(CVEL)
09500		JRST	CVEL.
09600	HERE($PLRL)
09700		JRST	$PLRL.
09800	HERE(LREALIN)
09900		JRST	LREA.IN
10000	HERE(LREALSCAN)
10100		JRST	LREA.SCAN
10200	TENX<
10300	HERE(SACTF)
10400		JRST $SACTF
10500	HERE(RCUSR)
10600		JRST $RCUSR
10700	HERE(RCDIR)
10800		JRST $RCDIR
10900	HERE(ACCES)
11000		JRST $ACCES
11100	HERE(RSCAN)
11200		JRST $RSCAN
11300	HERE(CLOSF$)
11400		JRST CLOSF.
11500	HERE(DELF$)
11600		JRST DELF.
11700	HERE(IDTIM$)
11800		JRST IDTIM.
11900	HERE(ERSTRING)
12000		JRST ERSTR.
12100	> ;TENX
12200	>;UP
12210	CRYPT<
12250	HERE(SETCRYPT)
12260		JRST SETCR$
12270	>;CRYPT
12300	
12400	;MORE CAN BE ADDED, UP TO THE CAPACITY OF THE XFER VECTOR
12500	
12600	;;END IT ALL
12700	IFN SEGS,<LIT
12800		VAR
12900	STANFO <
13000		0		;BECAUSE OF THE INCREDIBLE LOSSAGE IN THE PETIT CHANNEL
13100	>;STANFO
13200		DEPHASE 
13300		END	UPWRT>
13400		END
13500	
13600