Google
 

Trailing-Edge - PDP-10 Archives - BB-D868D-BM - language-sources/glxots.mac
There are 31 other files named glxots.mac in the archive. Click here to see a list.
TITLE GLXOTS - Primary Module for GALAXY Runtime System
SUBTTL	Irwin L. Goverman/ILG/PJT 11-Oct-78

;
;
;                COPYRIGHT (c) 1975,1976,1977,1978,1979
;                    DIGITAL EQUIPMENT CORPORATION
;
;     THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY  BE  USED
;     AND COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE
;     AND WITH THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE.   THIS
;     SOFTWARE  OR ANY OTHER COPIES THEREOF MAY NOT BE PROVIDED OR
;     OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.  NO  TITLE  TO
;     AND OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
;
;     THE INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE
;     WITHOUT  NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT
;     BY DIGITAL EQUIPMENT CORPORATION.
;
;     DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY
;     OF  ITS  SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT SUPPLIED BY
;     DIGITAL.

	OTSEDT==3			;MODULE EDIT

	SEARCH	GLXMAC			;LOAD COMMON DEFINITIONS
	PROLOG(GLXOTS,OTS)		;

;The purpose of this module is to provide a common access mechanism
;	for the GALAXY object time system. When the library is loaded correctly
;	this module starts at location VORG, defined in GLXMAC.
;	The only code in this module is the library dispatch vector
;	which is used to find routines and variables in the library.
;

; In the case of the library being loaded as a .REL file,
;	this module generates no code, since there is no need for an
;	dispatch vector
SUBTTL Table of Contents

;               TABLE OF CONTENTS FOR GLXOTS
;
;
;                        SECTION                                   PAGE
;    1. Table of Contents.........................................   2
;    2. Internal Loading Instructions.............................   3
;    3. Library Dispatch Vector...................................   4
SUBTTL	Check for neccessity of this module

;Since GLXOTS is the first module loaded, define the start of the data space
	$GDATA	D%BEG,0			;Start things off

	$DATA	OTSDAT,0		;Dummy data slot for OTS

;If we're going to link this library, we don't need any of this vector
IFE GLXPURE,<PASS2
	END>;END IFE GLXPURE
SUBTTL Library Dispatch Vector

;This vector is used by all non-OTS modules to dispatch to the
;	proper routines in the OTS.  This vector also contains addresses
;	of variables which are in the data area (starting at DORG) and
;	which must be referenced by non-OTS code.

;This vector must start at absolute address VORG, which is defined in GLXMAC

	DEFINE CDO(A),<
	   IFB <A>,<	PUSHJ P,S..IRE>
	   IFNB <A>,<	JRST	A>
	 > ;END OF CDO DEFINITION

LDISP::	LIBVEC
	LDISPL==:.-LDISP


	$STOP(IRE,Illegal routine executed)	;FOR NON-EXISTENT ROUTINES
	$STOP(ORE,Obsolete routine executed)
OTS%L:	END