Google
 

Trailing-Edge - PDP-10 Archives - BB-H506E-SM - cobol/source/libshr.mac
There are 5 other files named libshr.mac in the archive. Click here to see a list.
; UPD ID= 3546 on 5/11/81 at 3:41 PM by NIXON                           
TITLE	LIBSHR	- LIBOL.SHR DISPATCH TABLE AND LOWSEG PRESETS



	SEARCH	COPYRT
	SALL

;COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1975, 1985
;ALL RIGHTS RESERVED.
;
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH LICENSE.

;AUTHOR	D.B.TOLMAN

	SEARCH	LBLPRM,COMUNI
IFE TOPS20,< SEARCH UUOSYM >

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

	TWOSEG	HI.ORG
	
	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%

IFE TOPS20,<		;DEFINE ABSOLUTE LOCATION OF RMS VECTOR
			; IN NON /R CASE ON THE -10
	RMS$10==:526010
>;END IFE TOPS20

;	DEFINE THE LOW SEGMENT LOCATION NAMES

	PURLO%

	FIXNUM==:FIXNUM		;LENGTH OF INFORMATION HEADER BLOCK

IFN ANS74,<
;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
				;(LIBOL.LOW) TO BE LOADED IN /R CASE

	.COPYRIGHT		;Put COPYRIGHT statement in .REL file.

	END