Google
 

Trailing-Edge - PDP-10 Archives - bb-jr93e-bb - 7,6/ap017/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