TITLE SUBSYS -- Tops-20 Muddle Subsystem Bootstrapper

	.DECSAV

IF1,[	PRINTC /Type in Muddle version: /
	.TTYMAC A
	DEFINE MUDNAM
	  ASCIZ /PS:<MDL>MDL!A!.EXE/
	 TERMIN
	 TERMIN
]

	O=0
	A=1
	B=2
	C=3
	D=4
	E=5

	LOC	140

START:	TDZA	17,17
	 MOVEI	17,1
	MOVSI	A,(GJ%OLD\GJ%SHT)
	HRROI	B,[MUDNAM]
	GTJFN
	 JRST	NOMDL
	HRLI	A,400000
	MOVE	BLTPTR,[LOADGO,,B]
	BLT	BLTPTR,BLTPTR
	JRST	B

LOADGO:	GET				; LOAD INTERPRETER
	MOVEI	A,400000
	GEVEC				; CONS STARTING ADDRESS
	ADD	B,17
	MOVEI	17,0
	JRST	(B)			; JRST TO START+1 IN INTERPRETER

BLTPTR=.-LOADGO+1



NOMDL:	MOVE	B,A
	HRROI	A,[ASCIZ /No Muddle Interpreter? (/]
	PSOUT
	HRROI	A,[MUDNAM]
	PSOUT
	HRROI	A,[ASCIZ /): /]
	PSOUT
	HRRZI	A,-1
	HRLI	B,400000
	MOVEI	C,0
	ERSTR		; PRINT ERROR
	 HALTF	;UNDEFINED ERROR.
	 HALTF	;CHOMPING DEST.
	 HALTF	;WON.
	JRST	.-1

	END	START