Google
 
Trailing-Edge - PDP-10 Archives - BB-L014E-BM - autopatch/sort.c04
There are no other files named sort.c04 in the archive.
 REP 1/1	;04C1
	SUBTTL	D.M.NIXON/DZN/DLC/BRF	4-Jun-81
 WIT
	SUBTTL	D.M.NIXON/DZN/DLC/BRF/GCS	24-Nov-81
 REP 51/78	;04C2
	IFN FTOPS20,<
 WIT
	;**;[472] Delete 1 line at CUTBAK.	GCS	24-Nov-81
 REP 56/78	;04C3
		PUSHJ	P,FUNCT.	;[C13] CUT BACK CORE
	;	SKIPE	STATUS		;[C13] OK?
	;	JRST	E$$FMR		;[C13] NO, COMPLAIN
	>
 WIT
	;**;[472] Insert 5 lines at CUTBAK + 4L.	GCS	24-Nov-81
	IFE  FTOPS20!FTCOBOL,<		;[472] IF TOPS10 FORTRAN VIRTUAL
	     IFN  FTVM,<		;[472] MEMORY SORT(FSORT)...
		SKIPA			;[472] THEN DON'T CUT BACK CORE.
	     >;END IFN FTVM		;[472] FORSRT WILL DO IT FOR FSORT.
	>;END IFE FTOPS20!FTCOBOL
		PUSHJ	P,FUNCT.	;[C13] CUT BACK CORE
	;**;[472] Delete 3 lines at CUTBAK + 5L.	GCS	24-Nov-81
 SUM 259440