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