Trailing-Edge
-
PDP-10 Archives
-
bb-y390o-bm_tops20_v41_atpch_20
-
autopatch/forsrt.c17
There are 10 other files named forsrt.c17 in the archive. Click here to see a list.
REP 3/1 ;17C1
TV SORT - FORTRAN interface to stand-alone SORT, 10(4227)
SUBTTL D.M.NIXON/DMN/DZN/BRF/EGM/BL/RJD/CDM/JLC/AHM 5-Dec-82
WIT
TV SORT - FORTRAN interface to stand-alone SORT, 11(5032)
SUBTTL D.M.NIXON/DMN/DZN/BRF/EGM/BL/RJD/CDM/JLC/AHM/TGS 10-Mar-87
INS 158/1 ;17C2
5032 TGS 10-Mar-87 SPR:NONE
When looking for a first free section for SORT to
live in, start looking from section 2 upwards (previously
we started with section 1). This avoids a possible
invocation collision if a section 0 program first calls
SORT in section 1 and then calls RMS, which maps a section
0 program together with section 1, thus destroying SORT
and causing an illegal instruction on a subsequent SORT
call. Note that this is not a problem if the program
has been compiled /EXTEND. To revert to the old SORT
placement, change the line at SORT5A: back to SETZ P3,.
REP 5/6 ;17C3
SORT5A: SETZ P3, ;[10] NOW FIND A FREE SECTION FOR SORT
WIT
SORT5A: MOVEI P3,1 ;[10][5032]FIND A FREE SECTION FOR SORT
SUM 164930