Google
 

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