Google
 

Trailing-Edge - PDP-10 Archives - BB-D351B-SM - sources/init1.p11
There are 8 other files named init1.p11 in the archive. Click here to see a list.
.SBTTL	INITIALIZATION -- PHASE 1
;
; THIS IS THE FIRST SECTION OF THE INITIALIZATION CODE.
;  THE INITIALIZATION HAS BEEN BROKEN UP INTO TWO PHASES
;  SO THAT THE EARLY PHASE CAN BE OVERLAYED BY BUFFERS.
; AFTER INITIALIZATION THIS MODULE BECOMES FREE STORAGE.
;
.REPT 0


                          COPYRIGHT (c) 1980, 1979
            DIGITAL EQUIPMENT CORPORATION, maynard, mass.

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.

.ENDR
;
;
;
;
;	REVISION HISTORY
;
;
; 3(001) BS		ADD EDIT NUMBERS
; 4(002) 28-JUN-79 JW	Don't enable parity checking if no parity unit

;
VINIT1=002
;
;
VEDIT=VEDIT+VINIT1
;
;
;


	.$$LOC=.

	.=JOBVER+4

	.WORD	VEDIT

	.=.$$LOC
;
; START HERE AFTER LOADING.
;
BEGIN:	RESET			;RESET THE UNIBUS
	MOV	#PDL,SP		;SET UP PUSH-DOWN LIST
	MOV	#LOWZ1,R0	;CLEAR LOWER CORE
11$:	CLR	(R0)+
	CMP	#LOWZ2,R0	;CLEARED ENOUGH?
	BNE	11$		;NO, CLEAR THE REST.
	JSR	PC,CHK.11	;DO ONCE-ONLY CHECK OF HARDWARE
	.WORD	MYNAME		;POINT TO NAME OF PROGRAM
;
; HERE WHEN HARDWARE TESTS ARE DONE
;
CKDONE:	TST	NDQ11S		;IS THERE AT LEAST ONE DQ11?
	BNE	11$		;YES.
	JSR	R0,CKTCRL	;NO, GIVE MESSAGE
	.ASCIZ	\ ?No synchronous lines?? \
	.EVEN
	STOPCD	NDQ		;NO DQ11S FOUND
;
; HERE IF THERE IS AT LEAST ONE DQ11.
;
11$:	JSR	R0,CKTCRL	;PRINT STARTUP MESSAGE
	.ASCII	\Starting \
	PGMNAM			;NAME OF PROGRAM
	.BYTE	0		;BE SURE THE STRING TERMINATES
	.EVEN			;BE SURE WE'RE ON A WORD BOUNDRY
;
;			; CONTINUED ON NEXT PAGE
;
;
; DO FINAL INITIALIZATION OF THE DN60 CORE IMAGE.
;  THE CORE USED BY THESE INSTRUCTIONS WILL BE RECLAIMED FOR
;  BUFFER SPACE BY SECTION INIT2.
;
	MOV	#NXMNRM,NXMGO	;BUS ERROR ACTION IS NORMAL
	MOV	#KW.INE,CLKWRD	;ENABLE THE KW11-L CLOCK
.IIF NDF,FT.MF,MOV	#MP.ENB,MP.REG	;ENABLE MEMORY PARITY ERRORS 4(002)
	MOV	#-1,DLGONE	;NOTE THE DL10 IS NOT RUNNING YET
.IIF NE,FTRACE,MOV #TRCTBS,TRCPTR ;INITIALIZE TRACE TABLE POINTER
	MOV	#CHDATL,D60CSZ	;REPORT CHUNK DATA LENGTH
	MOV	#XLOPTN,D60OPN ;REPORT TRANSLATION OPTIONS AVAILABLE
	JMP	DN60		;GO RUN THE PROGRAM.
;