perm filename SPARES[S,AIL]26 blob
sn#257778 filedate 1977-01-14 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.
HERE($$DERR)
JRST $$DER.
NOTENX<
HERE(TMPIN)
JRST TMPIN.
HERE(TMPOUT)
JRST TMPOU.
>;NOTENX
HERE(CVEL)
JRST CVEL.
HERE($PLRL)
JRST $PLRL.
>;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