Google
 

Trailing-Edge - PDP-10 Archives - BB-JF18A-BM - sources/rms/rmsevc.mac
There are 3 other files named rmsevc.mac in the archive. Click here to see a list.
	TITLE	RMS		; RMS entry vector definition

;
;	COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1983, 1986.
;	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 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 THAT IS NOT SUPPLIED BY DIGITAL.
;

;++
; FACILITY:	RMS
;
; ABSTRACT:
;
;	RMSEVC provides an entry vector definition for RMS.EXE
;	and RMSCOB.EXE.  This is necessary for linking the 
;	RMS201.REL library into an .EXE file, because LINK v5.1
;	no longer defines entry vectors with the /START switch.
;	
;	Note:  The length of the RMS entry vector (normally 5)
;	is here hardcoded rather than defined as an external.
;	This is to work around a MACRO bug wherein MACRO refuses
;	to make a proper entry vector definition when the left
;	halfword is an external symbol.
;
; ENVIRONMENT:	User mode, interrupts disabled, called by JSYS.
;
; AUTHOR: Ron Lusk , CREATION DATE: 14-Feb-83
;
; MODIFIED BY:
;	Ron Lusk, 1-Jun-83
; 01	- Change global names
;	Andy Nourse 5-aug-83
; 71	- Add copyright notice.
;	Andy Nourse, 20-Sep-83
; 424	- Put copyright notice in never-neverland lowsegment.
;	  The high segment already has one.
;--
;
; EQUATED SYMBOLS:
;
	VCLENG==5		; Work around MACRO bug
;
; EXTERNAL REFERENCES:

	EXTERN	RMS$EV		; Location defined in RMSDSP
 ;   Add a copyright notice to .REL file
 ;   It will go in the low segment, so it will go away.		;D424
 ;
 
 SMNCPY:ASCIZ\
 
	COPYRIGHT  (C)  DIGITAL  EQUIPMENT  CORPORATION  1983, 1986.
	ALL RIGHTS RESERVED.

 \ ;[71]
 ;
;
;   Define the entry vector
;
	END	VCLENG,,RMS$EV	; End of Module RMS