perm filename SPARES[S,AIL]8 blob sn#109755 filedate 1974-07-08 generic text, type T, neo UTF8
COMMENT ⊗   VALID 00002 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	DSCR SPARES
 00005 ENDMK
⊗;
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(STCLER)
		JRST	.STCLR
	HERE(SGINS)
		JRST	.SGINS
	HERE(SGREM)
		JRST	.SGREM
NOTENX<
	HERE(INOUT)
		JRST	.INOUT
	HERE(TTYUP)
		JRST	.TTYUP
>;NOTENX
	HERE(.SONTP)
		JRST	..SONT
	HERE(ERMSBF)
		JRST	.ERMBF
REC <
	HERE($GETB)
		JRST	$GETB.
	HERE($DELB)
		JRST	$DELB.
	HERE($GET1B)
		JRST	$GET1.
	HERE($DEL1B)
		JRST	$DEL1.
	HERE($FSADD)
		JRST	$FSAD.
	HERE($FUNLK)
		JRST	$FUNL.
	HERE($FSINS)
		JRST	$FSIN.
	HERE($FSINI)
		JRST	$FSI..
	HERE($FXG)
		JRST	$FXG.
	HERE($FXGET)
		JRST	$FXGE.
	HERE($FXD)
		JRST	$FXD.
	HERE($FXDEL)
		JRST	$FXDE.
	HERE($FXSPC)
		JRST	$FXSP.
	HERE($FXBLD)
		JRST	$FXBL.
	HERE($REC$)
		JRST	$REC$.
	HERE($RERR)
		JRST	$RERR.
	HERE(FLDKIL)
		JRST	.FLDKI

>;REC
	HERE($PRINT)
		JRST	$PRIN.
	HERE($$PRIN)
		JRST	$$PRI.
	HERE(P.FIN)
		JRST	P.FIN.
RGC <
	HERE($ENQR)
		JRST	$ENQR.
	HERE($RECGC)
		JRST	$RECG.
	HERE($M1FLD)
		JRST	$M1FL.

>;RGC
		ERR <DRYROT IN HERE SPARES>
>;UP

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

;;END IT ALL
IFN SEGS,<LIT
	VAR
	DEPHASE 
	END	UPWRT>
	END