Trailing-Edge
-
PDP-10 Archives
-
-
There are no other files named in the archive.
00100 COMMENT VALID 00002 PAGES
00200 C REC PAGE DESCRIPTION
00300 C00001 00001
00400 C00002 00002 DSCR SPARES
00500 C00005 ENDMK
00600 C;
00100 DSCR SPARES
00200 DES
00300 THIS AREA CONTAINS MANY SPARE HERE TABLE ENTRIES.
00400 TO USE A SPARE:
00500 PUT A HEREFK(FOO,FOOFAK) WHERE YOU WANT FOO.
00600 SAY (IN THIS FILE)
00700 HERE(FOO)
00800 JRST FOOFAK
00900 THEN YOU CAN COME BACK & CLEAN UP LATER (WHEN PUTTING UP A NEW
01000 SAISGX.
01100
01200
01300 UP <
01400 HERE(CV6STR)
01500 JRST CV6ST.
01600 NOTENX<
01700 HERE(ERENAME)
01800 JRST ERENA.
01900 ERR <DRYROT IN HERE SPARES>
02000 >;NOTENX
02100 HERE(CVASTR)
02200 JRST CVAST.
02300 NRC <
02400 HERE($RECFN)
02500 JRST $RECF.
02600 HERE($RCINI)
02700 JRST $RCIN.
02800 >;NRC
02900
03000 ;;%CD% JFR 6-7-75 PDQ'S NEW RECORD STUFF
03100 HERE($RMARK)
03200 JRST $RMAR.
03300 ;; %CD% ^
03400
03500 HERE(SPLICE) ;FANCY STRING MAKER
03600 JRST SPLIC.
03700 HERE(SPLPRT) ;CONSTRUCT AND OUTSTR USING SPLICE
03800 JRST SPLPR.
03900 HERE(EDFILE) ;CALL EDITOR
04000 JRST EDFIL.
04100 NOTENX<
04200 NOSTANFORD<
04300 HERE(BACKUP)
04400 JRST BACKU.
04500 >;NOSTANFORD
04600 >;NOTENX
04700
04800 HERE(SETPRINT)
04900 JRST SETPR.
05000 HERE(GETPRINT)
05100 JRST GETPR.
05200 HERE($PINT)
05300 JRST $PINT.
05400 HERE($PREL)
05500 JRST $PREL.
05600 HERE($PITM)
05700 JRST $PITM.
05800 HERE($PSET)
05900 JRST $PSET.
06000 HERE($PLST)
06100 JRST $PLST.
06200 HERE($PREC)
06300 JRST $PREC.
06400 HERE($PSTR)
06500 JRST $PSTR.
06600 TYMSHR <
06700 HERE(CHNIOR)
06800 JRST CHNCR.
06900 HERE(CHNIOV)
07000 JRST CHNCV.
07100 HERE (IONEOU)
07200 JRST IONOU.
07300 HERE (AUXCLV)
07400 JRST AUXCV.
07500 HERE (AUXCLR)
07600 JRST AUXCR.
07700 HERE (CALLI)
07800 JRST CALLI.
07900 >
08000 HERE(SCANC)
08100 JRST SCANC.
08200
08300 HERE($$DERR)
08400 JRST $$DER.
08500 NOTENX<
08600 IFN <<SEGS>&1>,<
08700 HERE(TMPIN)
08800 JRST TMPIN.
08900 HERE(TMPOUT)
09000 JRST TMPOU.
09100 >; ifn thing
09200 >;NOTENX
09300
09400 HERE(CVEL)
09500 JRST CVEL.
09600 HERE($PLRL)
09700 JRST $PLRL.
09800 HERE(LREALIN)
09900 JRST LREA.IN
10000 HERE(LREALSCAN)
10100 JRST LREA.SCAN
10200 TENX<
10300 HERE(SACTF)
10400 JRST $SACTF
10500 HERE(RCUSR)
10600 JRST $RCUSR
10700 HERE(RCDIR)
10800 JRST $RCDIR
10900 HERE(ACCES)
11000 JRST $ACCES
11100 HERE(RSCAN)
11200 JRST $RSCAN
11300 HERE(CLOSF$)
11400 JRST CLOSF.
11500 HERE(DELF$)
11600 JRST DELF.
11700 HERE(IDTIM$)
11800 JRST IDTIM.
11900 HERE(ERSTRING)
12000 JRST ERSTR.
12100 > ;TENX
12200 >;UP
12210 CRYPT<
12250 HERE(SETCRYPT)
12260 JRST SETCR$
12270 >;CRYPT
12300
12400 ;MORE CAN BE ADDED, UP TO THE CAPACITY OF THE XFER VECTOR
12500
12600 ;;END IT ALL
12700 IFN SEGS,<LIT
12800 VAR
12900 STANFO <
13000 0 ;BECAUSE OF THE INCREDIBLE LOSSAGE IN THE PETIT CHANNEL
13100 >;STANFO
13200 DEPHASE
13300 END UPWRT>
13400 END
13500
13600