Trailing-Edge
-
PDP-10 Archives
-
ap-c800d-sb
-
dsort.mac
There are 5 other files named dsort.mac in the archive. Click here to see a list.
; UPD ID= 1109 on 6/29/78 at 2:04 PM
TITLE SORT -- DUMMY COBOL SORT
SUBTTL DON LEWINE/DMN
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1977, 1979 BY DIGITAL EQUIPMENT CORPORATION
SEARCH LBLPRM
IFN TOPS20,<HISEG>
ENTRY ENDS., MCLOS., MERGE., PMERG., PSORT., RELES., RETRN.
EXTERN KILL.
ENDS.: MCLOS.: MERGE.: PMERG.: PSORT.: RELES.: RETRN.:
IFN TOPS20,<
SEARCH MONSYM
HRROI 1,MSG
PSOUT
JRST KILL.
IFN ANS68,<
MSG: ASCIZ "
? This version of COBOL-68 does not include SORT-20. To obtain
SORT-20 contact your local Digital office and order option
QT007.
After you get SORT-20, update SYS:LIBOL.REL and SYS:LIBO12.EXE.
See SORT.CTL for details.
"
>
IFN ANS74,<
MSG: ASCIZ "
? This version of COBOL-74 does not include SORT-20. To obtain
SORT-20 contact your local Digital office and order option
QT007.
After you get SORT-20, update SYS:C74LIB.REL and SYS:C74OT2.EXE.
See SORT.CTL for details.
"
>
>
IFE TOPS20,<
OUTSTR MSG
JRST KILL.
IFN ANS68,<
MSG: ASCIZ "
? This version of COBOL-68 does not include SORT-10. To obtain
SORT-10 contact your local Digital office and order option
QH300.
After you get SORT-10, update SYS:LIBOL.REL
See SORT.CTL for details.
"
>
IFN ANS74,<
MSG: ASCIZ "
? This version of COBOL-74 does not include SORT-10. To obtain
SORT-10 contact your local Digital office and order option
QH300.
After you get SORT-10, update SYS:C74LIB.REL
See SORT.CTL for details.
"
>
>
END