perm filename SPARES[S,AIL]25 blob sn#248605 filedate 1976-11-24 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	DSCR SPARES
C00005 ENDMK
C⊗;
DSCR SPARES
DES
	THIS AREA CONTAINS MANY SPARE HERE TABLE ENTRIES.
	TO USE A SPARE:
	PUT A HEREFK(FOO,FOOFAK) WHERE YOU WANT FOO.
	SAY (IN THIS FILE)
		HERE(FOO)
			JRST FOOFAK
	THEN YOU CAN COME BACK & CLEAN UP LATER (WHEN PUTTING UP A NEW
	SAISGX.
⊗

UP <
HERE(CV6STR)
	JRST	CV6ST.
NOTENX<
HERE(ERENAME)
	JRST	ERENA.
		ERR <DRYROT IN HERE SPARES>
>;NOTENX
HERE(CVASTR)
	JRST	CVAST.
NRC <
HERE($RECFN)
	JRST	$RECF.
HERE($RCINI)
	JRST	$RCIN.
>;NRC

;;%CD%	JFR 6-7-75 PDQ'S NEW RECORD STUFF
HERE($RMARK)
	JRST	$RMAR.
;; %CD% ↑

HERE(SPLICE)		;FANCY STRING MAKER
	JRST	SPLIC.
HERE(SPLPRT)		;CONSTRUCT AND OUTSTR USING SPLICE
	JRST	SPLPR.
HERE(EDFILE)	;CALL EDITOR
	JRST	EDFIL.
NOTENX<
NOSTANFORD<
HERE(BACKUP)
	JRST	BACKU.
>;NOSTANFORD
>;NOTENX

HERE(SETPRINT)
	JRST	SETPR.
HERE(GETPRINT)
	JRST	GETPR.
HERE($PINT)
	JRST 	$PINT.
HERE($PREL)
	JRST	$PREL.
HERE($PITM)
	JRST	$PITM.
HERE($PSET)
	JRST	$PSET.
HERE($PLST)
	JRST	$PLST.
HERE($PREC)
	JRST	$PREC.
HERE($PSTR)
	JRST	$PSTR.
TYMSHR <
HERE(CHNIOR)
	JRST CHNCR.
HERE(CHNIOV)
	JRST CHNCV.
HERE (IONEOU)
	JRST IONOU.
HERE (AUXCLV)
	JRST AUXCV.
HERE (AUXCLR)
	JRST AUXCR.
HERE (CALLI)
	JRST CALLI.
>
HERE(SCANC)
	JRST	SCANC.
NOTENX<
IFN <<¬SEGS>&1>, <;;=F7= LDE  -- keep hiseg at 13 K
HERE(TMPIN)
	JRST	TMPIN.
HERE(TMPOUT)
	JRST	TMPOU.
>; IFN <<¬SEGS>&1> =F7= ↑
>;NOTENX

HERE($$DERR)
	JRST	$$DER.

>;UP

;MORE CAN BE ADDED, UP TO THE CAPACITY OF THE XFER VECTOR

;;END IT ALL
IFN SEGS,<LIT
	VAR
STANFO <
	0		;BECAUSE OF THE INCREDIBLE LOSSAGE IN THE PETIT CHANNEL
>;STANFO
	DEPHASE 
	END	UPWRT>
	END