Google
 

Trailing-Edge - PDP-10 Archives - BB-D480F-BB_1985_short - forbot.mac
There are 7 other files named forbot.mac in the archive. Click here to see a list.
	SEARCH	MTHPRM,FORPRM
	TV	FORBOT	BOTTOM OF SHARABLE FOROTS 10,(4210)

;COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1981, 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 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.

COMMENT	\

***** Begin Revision History *****

4023	JLC	24-Jun-83
	New module for vestigial JOBDAT and entry vector.

4066	JLC	11-Jan-84
	Add start address for TOPS-10.

4072	JLC	24-Jan-84
	Move the TOPS-10 version number here.

4111	JLC	16-Mar-84
	Moved the FOROTS transfer vector here, so it only appears
	in the hiseg.

4210	JLC	2-APR-84
	Initialize the first word of FOROTS' data area so the
	pages exist in the .EXE file, thus giving an appropriate
	error message (Can't overlay existing pages) if the users
	program extends into the data area.

***** End V10 Development *****

***** End Revision History *****
\

	EXTERN	%VER

	INTERN	%EVEC

	SEGMENT	DATA

BOTTOM:	1			;[4210] INITIALIZE .LOW. SO THAT USER
				;GETS REASONABLE ERROR IF PROGRAM
				;EXTENDS INTO FOROTS' DATA PAGES


	SEGMENT	CODE

	SUBTTL	DISPATCH VECTOR

DEFINE	X (E) <
	EXTERN E'.
	SIXBIT	/E'./
	PORTAL	E'.
> ;END X


FORBOT:	FORVEC

;TOPS-20 ENTRY VECTOR

IF20,<

%EVEC:	FORBOT			;START ADDRESS OF DISPATCH VECTOR
	0			;REENTER ADDRESS
	%VER			;VERSION NUMBER

	END	<3,,%EVEC>

> ;END IF20

;TOPS-10 VERSION NUMBER

IF10,<

%EVEC==.

	LOC	137
	%VER
	RELOC

	END	%EVEC
> ;END IF10