Google
 

Trailing-Edge - PDP-10 Archives - CFS_TSU04_19910205_1of1 - update/cblsrc/c8xshr.mac
There is 1 other file named c8xshr.mac in the archive. Click here to see a list.
; UPD ID= 1491 on 1/18/84 at 3:45 PM by JBLAU                           
; UPD ID= 1034 on 4/28/83 at 11:01 PM by NIXON                          
TITLE	C8XSHR	- COBOL OTS SHAREABLE DISPATCH TABLE AND LOWSEG PRESETS

	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

;AUTHOR	D.B.TOLMAN

	SEARCH	LBLPRM,COMUNI
IFE TOPS20,< SEARCH UUOSYM >
IFN TOPS20,< SEARCH MONSYM >

	%%COMU==:%%COMU
	%%LBLP==:%%LBLP

	TWOSEG	HI.ORG
	.COPYRIGHT		;Put standard copyright statement in REL file
	
	DBMS==:DBMS
	MCS==:MCS

;	DEFINE THE DISPATCH TABLE AND LOW SEG PRESETS

;	AC DEFINITIONS A'LA CBLIO FOR LOW SEG VALUES
	AC1==1
	AC2==2
	AC6==6

;	IT MUST BE AT THE BEGINNING OF LIBOL.SHR

	PURHI%

;[1106] The following definition is moved to COMUNI
;[1106]IFE TOPS20,<		;DEFINE ABSOLUTE LOCATION OF RMS VECTOR
;[1106]				; IN NON /R CASE ON THE -10
;[1106]	RMS$10==:526010
;[1106]>;END IFE TOPS20
;	DEFINE THE LOW SEGMENT LOCATION NAMES

	PURLO%

	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

	LIBIMP==:0		;RESOLVE GLOBAL WHICH CAUSES LIBREL
				;(COBOTS.LOW) TO BE LOADED IN /R CASE
	END