X-Git-Url: https://jxself.org/git/?p=pdp10-muddle.git;a=blobdiff_plain;f=%3Csys.unsupported%3E%2Fmuddleboot.mid.5;fp=%3Csys.unsupported%3E%2Fmuddleboot.mid.5;h=fdd5b0352e13c0ab74d82a7467b4be96bfbfd45b;hp=0000000000000000000000000000000000000000;hb=4ac271f03b0b4ece4802d0fd08b45f73bec17924;hpb=3395a5e4ef72d59cdb6832af7808dc9c2cf2a413

diff --git a/<sys.unsupported>/muddleboot.mid.5 b/<sys.unsupported>/muddleboot.mid.5
new file mode 100644
index 0000000..fdd5b03
--- /dev/null
+++ b/<sys.unsupported>/muddleboot.mid.5
@@ -0,0 +1,60 @@
+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