Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - sort.c05
There are 2 other files named sort.c05 in the archive. Click here to see a list.
 REP 1/1	;05C1
	SUBTTL	D.M.NIXON/DZN/DLC/BRF	4-Jun-81
 WIT
	SUBTTL	D.M.NIXON/DZN/DLC/BRF/GCS	19-May-82
 REP 12/1	;05C2
	;COPYRIGHT (C) 1975, 1981 BY
 WIT
	;COPYRIGHT (C) 1975, 1981, 1982 BY
 REP 46/49	;05C3
		CAML	T1,T2			;[C20] [C17] SKIP BLT IF UNNECESSARY
 WIT
	;**;[501] @CLRBLK + 39L  Replace 1 line.   GCS   19-May-82
		CAMLE	T1,T2			;[501] [C20] [C17] SKIP BLT IF UNNECESSARY
 REP 51/78	;05C4
	IFN FTOPS20,<
 WIT
	;**;[472] Delete 1 line at CUTBAK.	GCS	24-Nov-81
 REP 56/78	;05C5
		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