Google
 

Trailing-Edge - PDP-10 Archives - BB-D868D-BM - language-sources/glxini.mac
There are 31 other files named glxini.mac in the archive. Click here to see a list.
TITLE GLXINI - Bootstrap code for GALAXY runtime system
SUBTTL Irwin L. Goverman/ILG/PJT/DC 2-Jul-79

;
;
;                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.


;This module is loaded in the low segment of any program
;	using the GALAXY library code, GLXLIB.

	SEARCH	GLXMAC			;SEARCH GLXMAC FOR SYMBOL DEFS
	PROLOG(GLXINI,INI)

	INIEDT==7			;EDIT LEVEL FOR MODULE
SUBTTL Table of Contents

;               TABLE OF CONTENTS FOR GLXINI
;
;
;                        SECTION                                   PAGE
;    1. Table of Contents.........................................   2
;    2. Revision History..........................................   3
;    3. Global Storage............................................   4
;    4. Local Definitions.........................................   4
;    5. I%INIT - Initialize the runtime system....................   5
;    6. ACQLIB - Acquire the run-time system......................   6
;    7. CHKLIB - Routine to test if library is in place...........   8
;    8. TRYSEG - Routine to fetch runtime system..................   9
SUBTTL	Revision History

COMMENT \

Revision History

EDIT	GCO	DISCRIPTION

0002		Changed I%INIT so it can accept a zero length IB and
		to pass the major change level in S2 instead of IB.PID
0004		Changed PROLOG to process GLXINI as a library component
0005		Pull PFH out of GLXINI. It now lives in the sharable
		high segment
0006		using stkvars to provide space for string for gtjfn
		change tryseg to get the entire exe file instead of 
		certain pages
0007		Define %%.GLX external to pick it up from the main program

 \ ;end of revision history
SUBTTL Local Definitions

	SYSPRM	PSOUT,<TTCALL 3,0(S1)>	;TOPS-10 STRING OUTPUT
	SYSPRM HALTF,<EXIT 1,>		;EXIT

	OTSLEN==^D20			;LENGTH OF OTS BUFFER ON THE -20
SUBTTL I%INIT - Initialize the runtime system


;Entry point for segment and module initialization

;CALL IS:	S1/ Length of IB (Runtime Initialization Block)
;		S2/ Address of IB

		ENTRY	I%INIT

I%INIT:	JFCL .+1			;ACCEPT NEW STYLE $CALL ENTRY
	PUSH	P,S1			;SAVE INPUT ARGS AWAY
	PUSH	P,S2			;
	PUSHJ	P,ACQLIB		;ACQUIRE THE LIBRARY SYSTEM
	POP	P,S2			;RESTORE ARGUMENTS
	POP	P,S1			;
	HRLI	S2,%%.GLX##		;LOAD MAJOR CHANGE LEVEL
SEGIN:
TOPS20<
	PUSHJ	P,I%INI1		;CONTINUE INITIALIZATION
>;END TOPS20
TOPS10<
	MOVE	T1,[XWD -2,.GTUPM]	;Get UPM word for our high seg
	GETTAB	T1,			;Ask the monitor
	HRLI	T1,CORG			;Monitor won't give it, assume 400000
	HLRZS	T1			;Get high seg start adr
	PUSHJ	P,I%INI1-CORG(T1)	;Fire up the library, wherever it is
>;END TOPS10
	$RETT				;RETURN TO CALLER
SUBTTL ACQLIB - Acquire the run-time system

;If the OTS segment is not in place, we must go out and find it

;CALL IS:	No arguments
;
;TRUE RETURN:	Always, since everthing else is fatal

ACQLIB:	PUSHJ	P,CHKLIB		;SEE IF LIBRARY "PRE-LOADED"
	JUMPT	.RETT			;IF THERE, DON'T GET IT NOW
TOPS10 <
	SKIPN	DEBUGW			;CHECK IF WE ARE DEBUGGING...
	JRST	ACQL.0			;IF NOT,,LOAD THE LIBRARY FROM SYS.
	SETOM	S1			;WE WANT FIRST STRUCTURE IN SEARCH LIST.
	MOVE	S2,[1,,1]		;SET UP JOBSTR PARMS.
	JOBSTR	S2,			;GET STRUCTURE.
	 JRST	ACQL.0			;FAILED,,TRY SYS.
	SETZM	S2			;SET UP PARM FOR TRYSEG.
	PUSHJ	P,TRYSEG		;TRY TO LOAD THE LIBRARY 
	JUMPT	ACQL.3			;IF SUCCESSFULL,, RETURN.

ACQL.0:	HRROI	S1,.GTRDV		;GET RUN DEVICE
	GETTAB	S1,			;
	 SETZ	S1,			;IF FAILS, CLEAR IT
	JUMPE	S1,ACQL.1		;IF NO NAME OR FAILED, TRY OTHER PLACES
	HRROI	S2,.GTRDI		;AND DIRECTORY
	GETTAB	S2,			;
	  SETZ	S2,			;IF GETTAB FAILS, ZERO RESULT
	JUMPE	S2,ACQL.1		;IF FAILS, OR ZERO, TRY OTHER PLACES
	PUSHJ	P,TRYSEG		;TRY TO GET HIGH SEGMENT
	JUMPT	ACQL.3			;IF IT WORKS, RETURN
ACQL.1:	DMOVE	S1,[EXP SIXBIT/DSK/,0]	;TRY DSK:
	PUSHJ	P,TRYSEG		;
	JUMPT	ACQL.3			;IF IT WORKS,RETURN NOW
ACQL.2:	DMOVE	S1,[EXP SIXBIT/SYS/,0]	;TRY TO GET IT FROM SYS:
	PUSHJ	P,TRYSEG		;
	JUMPT	ACQL.3			;IF IT WORKED, WE ARE SET
	OUTSTR	[ASCIZ \? GLXINI - Unable to obtain run-time system
\]
	EXIT	1,			;GIVE A STOP
	JRST	.-1			;DONT CONTINUE

ACQL.3:	PUSHJ	P,MRGDAT		;And get the data space for it too!
	POPJ	P,
> ;END TOPS10 CONDITIONAL
TOPS20 <

	MOVE	S1,[OTSLEN,,OTSLEN]	;ALLOCATE
	ADD	P,S1			;   OTSLEN WORDS
	PUSH	P,[EXP [MOVE S1,[OTSLEN,,OTSLEN] ;  ON THE
			SUB  P,S1	;		STACK AND
			POPJ P, ]]	;		  RELEASE THEM WHEN DONE

	MOVX	S1,.FHSLF		;FOR MYSELF,
	GEVEC				;GET THE ENTRY VECTOR WORD
	PUSH	P,S2			;AND SAVE IT
	PUSH	P,T1			;ALSO USE T1 IN JFNS BELOW
	MOVEI	S1,.			;get THIS ADDRESS
	ADR2PG	S1			;CONVERT TO A PAGE NUMBER
ACQL.1:	HRLI	S1,.FHSLF		;FOR THIS PROCESS, THIS PAGE
	RMAP				;OBTAIN THE FILE HANDLE
	HLRZ	S2,S1			;GET JFN ISOLATED
	ANDI	S1,-1			;GET PAGE NUMBER ISOLATED
	CAXN	S2,.FHSLF		;IF PAGE IS NOT MAPPED,
	SOJGE	S1,ACQL.1		;TRY NEXT LOWER PAGE
	JUMPL	S1,ACQL.2		;IF NO PAGES MAPPED, GIVE UP
	HRROI	S1,-OTSLEN(P)		;POINT TO BUFFER TO CREATE INTO
	MOVX	T1,<INSVL.(.JSAOF,JS%DEV)+INSVL.(.JSAOF,JS%DIR)+JS%PAF>
	JFNS				;CREATE DEV:<DIRECTORY> STRING
	  ERJMP	ACQL.2			;IF CANNOT CREATE STRING, TRY CURRENT DIR.
	HRROI	S2,-OTSLEN(P)		;GET PTR TO THE START OF THE FILE BUFFER
	PUSHJ	P,TRYSEG		;TRY TO GET THE OTS THERE
	JUMPT	ACQL.3			;DID IT WORK?
ACQL.2:	MOVEI	S1,-OTSLEN(P)		;POINT TO THE DEV:<DIRECTORY> STRING
	TLO	S1,(POINT 7,0)		;GEN A BYTE POINTER TO IT
	HRROI	S2,-OTSLEN(P)		;GET PTR TO THE START OF THE FILE BUFFER
	PUSHJ	P,TRYSEG		;LOOK UP THE SEGMENT
	JUMPT	ACQL.3			;FOUND IN CURRENT DIRECTORY
	MOVE	S1,[ASCIZ .SYS:.]	;NEXT TRY "SYS"
	MOVEM	S1,-OTSLEN(P)
	MOVEI	S1,-OTSLEN(P)		;POINT TO THE DEV:<DIRECTORY> STRING
	TLO	S1,(POINT 7,0,27)	;GEN A BYTE POINTER TO IT
	HRROI	S2,-OTSLEN(P)		;GET PTR TO THE START OF THE FILE BUFFER
	PUSHJ	P,TRYSEG		;TRY TO GET SYS:LIBRARY
	JUMPT	ACQL.3			;THATS THE LAST PLACE WE LOOK
	HRROI	S1,[ASCIZ \? GLXINI - Unable to obtain run-time system
\]
	PSOUT
	HALTF
	JRST	.-1			;DO NOT CONTINUE

ACQL.3:	POP	P,T1			;RESTORE CALLERS T1
	POP	P,S2			;RESTORE ENTRY VECTOR WORD
	MOVX	S1,.FHSLF		;FOR OURSELF, IT WAS DESTROYED
	SEVEC				;BY THE "GET" ON THE LIBRARY
	HLLOS	115			;TELL DDT THAT SYMBOLS ARE THERE
	$RETT				;THEN TAKE SUCCESSFUL RETURN
> ;END TOPS20 CONDITIONAL
SUBTTL CHKLIB - Routine to test if library is in place

;CHKLIB	looks for the first page of the OTS library. If this page
;	is there, it is assumed that the library was loaded with the
;	calling program, or has been pre-merged.

;CALL IS:	No arguments
;
;TRUE RETURN:	Library is in place
;
;FALSE RETURN:	Library is not there

CHKLIB:

TOPS10 <
	HRRZ	S1,.JBHRL		;Get highest addr in high seg
	SKIPN	S1			;Is there a segment? Yes, skip
	TDZA	TF,TF			;LOAD "FALSE" INTO TF
	MOVX	TF,TRUE			;ELSE ITS THERE
	POPJ	P,			;RETURN IN EITHER CASE
> ;END TOPS10 CONDITIONAL

TOPS20 <
	MOVX	S1,CORG/PAGSIZ		;FIRST PAGE OF LIBRARY
	HRLI	S1,.FHSLF		;FOR THIS PROCESS,
	RPACS				;READ THE ACCESS BITS
	  ERJMP .+2			;IF FAILS, SAY OTS NOT THERE
	TXNN	S2,PA%PEX		;CHECK FOR PAGE'S EXISTENCE
	TDZA	TF,TF			;IF PAGES DON'T EXIST, RETURN
	MOVX	TF,TRUE			;ELSE TRUE,INDICATING OTS IN PLACE
	POPJ	P,			;RETURN
> ;END TOPS10 CONDITIONAL
SUBTTL TRYSEG - Routine to fetch runtime system

;CALL IS:	S1/ Device to get runtime system from
;		S2/ Directory to get runtime system from
;TRUE RETURN:	Segment is in place
;FALSE RETURN:	Segment could not be obtained

TOPS10 <
TRYSEG:	MOVEM	S1,RUNB+0		;STORE DEVICE
	MOVEM	S2,RUNB+4		; AND DIRECTORY
	MOVE	S1,[0,,RUNAC+0]		;BLT THE ACS AWAY
	BLT	S1,RUNAC+17		;STORE THEM
	MOVX	S1,OTSNAM		;NAME OF OTS
	MOVEM	S1,RUNB+1		;STORE THE FILE NAME
	SETZM	RUNB+2			;CLEAR EXT
	SETZM	RUNB+3			;AND OTHER STUFF
	SETZM	RUNB+5
	MOVEI	S1,RUNB			;GET LOCATION OF BLOCK
	GETSEG	S1,
	  TDZA	TF,TF			;IF FAILS, FAKE A FALSE
	MOVX	TF,TRUE			;ELSE LOAD A "TRUE"
	MOVE	S1,[RUNAC+S2,,S2]	;RESTORE SOME ACS
	BLT	S1,17			;
	POPJ	P,			;RETURN IT

RUNB:	BLOCK	6			;GETSEG BLOCK
RUNAC:	BLOCK	20			;ACS

;On the -10, MRGDAT finishes up the GET of the library space.
MRGDAT:	MOVE	0,[XWD 0,RUNAC+0]	;Make a BLT ptr
	BLT	0,RUNAC+17		;Dump the ACs
	MOVEI	S1,RUNB			;Aim at arg block that succeeded
	MERGE.	S1,			;Slurp in the dirty pages
	$STOP	(MUF,MERGE. UUO Failed)
	MOVE	S1,[RUNAC+S2,,S2]	;RESTORE SOME ACS
	BLT	S1,17			;
	POPJ	P,			;RETURN IT
> ;END TOPS10 CONDITIONAL
;CALL IS:	S1/ Byte pointer to store OTS name
;		S2/ The DEV:<DIRECTORY>FILE-NAME string address
;
;TRUE RETURN:	Segment is in place
;FALSE RETURN:	Segment could not be obtained

TOPS20 <

TRYSEG:	MOVE	T1,S1			;GET THE OUTPUT BYTE POINTER IN T1
	MOVE	TF,S2			;SAVE THE POINTER TO THE FILE BUFFER
	MOVE	S2,[POINT 7,OTSNAM]	;GET POINTER TO LIBRARY NAME
	
TRYS.1:	ILDB	S1,S2			;GET A BYTE OF OTS NAME
	IDPB	S1,T1			;STORE IT INTO NAME
	JUMPN	S1,TRYS.1		;REPEAT TILL NAME IS DONE

	MOVX	S1,GJ%SHT+GJ%OLD	;SHORT GTJFN, OLD FILE
	MOVE	S2,TF			;RESTORE THE PTR TO THE FILE NAME
	GTJFN				;TRY TO GET A HANDLE ON THE FILE
	  JRST	TRYS.2			;FAKE A FALSE RETURN
	TXO	S1,GT%ADR		;SET BIT FOR ADDRESS SELECTION
	HRLI	S1,.FHSLF		;FOR MYSELF
	MOVE	S2,[1,,760]		;ALL PAGES FROM 1 TO 760
	GET				;GET THE SEGMENT
	  ERJMP	TRYS.2			;IF GET FAILS, RETURN FALSE
	MOVX	TF,TRUE			;IF GET WORKS, GIVE A
	SKIPA				;GOOD RETURN
TRYS.2:	MOVX	TF,FALSE		;HERE FOR FALSE RETURN
	POPJ	P,			;AND RETURN
> ;END TOPS20 CONDITIONAL
INI%L:
	END