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