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