TITLE TMSRLD
	JOBSA=120
TMSRLD:	TTCALL 3,[ASCIZ/START BOOTSTRAP LOADER IN THE PDP-8
THEN TYPE <CR> /]
	TTCALL 4,0
	TTCALL 11,
	CAIE 15
	JRST TMSRLD
	INIT 1,17
	SIXBIT /ECM0/
	0
	JRST ECM0NA
	ENTER 1,[0]
	JRST NOENTR
	OUTPUT 1,CL
	TTCALL 3,[ASCIZ/LOADED!!/]
	CALLI 1,12
CL:	IOWD 10000,TMSR
	0
TMSR:	BLOCK 10000

INITI:	TTCALL 3,[ASCIZ/TMSRLD MUST BE INITIALIZED BY READING A FRESH COPY OF TMSR
LOAD THE PDP-8 WITH TMSR AND ANYTHING ELSE TO BE LOADED BY TMSRLD
START TMSR AND TYPE <CR> WHEN READY./]
	TTCALL 4,
	TTCALL 11,
	CAIE 15
	JRST INITI
	INIT 1,17
	SIXBIT /ECM0/
	0
	JRST ECM0NA
	LOOKUP 1,[0]
	JRST NOENTR
	INPUT 1,CL
	MOVEI TMSRLD
	HRRM JOBSA
	TTCALL 3,[ASCIZ/
NOW SAVE THIS PROGRAM AS TMSRLD/]
	CALLI 1,12

ECM0NA:	TTCALL 3,[ASCIZ/ECM0 NOT AVAILABLE!/]
	CALLI 1,12
NOENTR:	TTCALL 3,[ASCIZ/UNEXPLAINABLE ERROR, TRY AGAIN!/]
	CALLI 1,12
	END INITI