Trailing-Edge
-
PDP-10 Archives
-
BB-L014E-BM
-
autopatch/forini.c05
There are no other files named forini.c05 in the archive.
REP 2/1 ;05C1
TITLE FORINI GETSEG FOROTS, 6(2033)
WIT
TITLE FORINI GETSEG FOROTS, 6(2121)
INS 46/1 ;05C2
2121 RJD 28-Oct-82
Move the definition of SRTADR from FORSRT to this module
and clear SRTADR+1 during RESET. This allows for a
program which has called SORT to be restarted with a
START command.
INS 56/1 ;05C3
IF20,< INTERN SRTADR > ;[2121]
REP 88/1 ;05C4
IF20,<
WIT
IF20,< SETZM SRTADR+1 ;[2121] ZERO SORT FOR RESTART
INS 19/4 ;05C5
SRTADR: BLOCK 1 ;[2121] SORT'S ADDRESS
Z ;[2121] MUST BE ZERO FIRST TIME
SUM 219145