Trailing-Edge
-
PDP-10 Archives
-
CFS_TSU04_19910205_1of1
-
update/cblsrc/librel.mac
There are 7 other files named librel.mac in the archive. Click here to see a list.
; UPD ID= 1033 on 4/28/83 at 11:01 PM by NIXON
TITLE LIBREL COBOL OTS IMPURE LOW SEG DATA D.B.TOLMAN/DMN
SEARCH COPYRT
SALL
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
COPYRIGHT (C) 1975, 1983, 1984 BY DIGITAL EQUIPMENT CORPORATION
.COPYRIGHT ;Put standard copyright statement in REL file
SEARCH LBLPRM,COMUNI
IFE TOPS20,< SEARCH UUOSYM >
IFN TOPS20,< SEARCH MONSYM>
%%LBLP==:%%LBLP
%%COMU==:%%COMU
MCS==:MCS
;GENERATE THE LO SEG WITH PRESETS IF ANY
; DEFINE AC'S LIKE CBLIO
AC1==1
AC2==2
AC6==6
IMPLO%
FIXNUM==:FIXNUM ;LENGTH OF INFORMATION HEADER BLOCK
;In COBOL-74 version 12A and earlier FIXNUM was one word less (%DB.)
;Define FIXNMA to be the previous size of FIXNUM so that old programs
;can run with 12B OTS.
FIXNMA==:FIXNUM-1
ENTRY LIBIMP
LIBIMP: BLOCK 0 ;CAUSES LIBREL TO BE LOADED IN /R CASE
END