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