TITLE	SYSMAK - MAKE JOB 1 BECOME THE NEW SYSTEM WITH A BLT
SUBTTL	D. PLUMER/RAP  TS3.19  6 SEP 68  V002
XP	VSYSMK,002
		;PUT VERSION NUMBER IN GLOB LISTING AND LOADER STORAGE MAP

;ASSUMES THE NEW SYSTEM IS LOADED AS USER JOB 1 (THE ONLY JOB AND IN CORE).
;  DISABLES INTERRUPTS THEN MOVES THE ENTIRE JOB (STARTING AT ITS RELATIVE
;  LOCATION 30) INTO THE MONITOR AREA STARTING AT ABSOLUTE LOCATION 30.  THEN HALTS.
;  CONTINUE WILL START NEW SYSTEM AT 140.
;  ALSO SETS DDT SYMBOL TABLE POINTER (ABSOLUTE LOCATION 36).


ENTRY	SYSMAK

INTERNAL	MAKEND

EXTERNAL	JBTAD1,JOBSYM,APRRST,DDTSYM

SYSMAK:	CONO	APR,APRRST		;I/O RESET.
	MOVE	JDAT,JBTAD1		;ADDRESS OF FIRST JOB
	MOVE	TAC,JOBSYM(JDAT)	;GET S.T. POINTER AS SET BY LOADER.
	MOVEM	TAC,DDTSYM(JDAT)	;WILL GO IN ABSOLUTE LOCATION 36 WHEN
					; THE JOB IS MOVED DOWN.
	MOVSI	TAC,30(JDAT)		;CREATE BLT POINTER.
	ADDI	TAC,30			;TRANSFER STARTS AT RELATIVE AND
					; ABSOLUTE LOCATIONS 30, RESPECTIVELY.
	HLRZ	TAC1,JDAT		;END TRANSFER AT JOBREL ABSOLUTE ADDRESS.
	MOVE	AC2,[BLT TAC,(TAC1)]
	MOVE	AC3,[JRST 4,140]	;EXECUTE BLOCK TRANSFER AND 
	JRST	AC2			; HALT IN THE ACCUMULATORS.
	LIT

MAKEND:

END:	END