1 TITLE SUBSYS -- Tops-20 Muddle Subsystem Bootstrapper
18 JOBPTR: 440700,,JOBNAM
25 JOBNAM: ASCIZ /MUDDLE/
31 JUMPE A,NOJCL ; NO JCL, FLUSH
34 MOVE B,[440700,,SAVFIL]
37 MOVE B,[440700,,SAVFIL]
54 CAME A,[ASCII /MUDSU/]
56 MOVE A,[ASCII /MUDDL/]
64 MOVEI 0,(A) ;JFN TO SAVE FILE
66 MOVE B,[440000,,240000]
67 OPENF ; HAS TO BE OPEN
71 ; set access back to beginning
75 ; create muddle version number
79 CAIE E,"X ; "X" SIGNALS START OF VERSION NUMBER
82 CAIN E,40 ; SPACE SIGNALS END OF VERSION
91 GTJFN ; JFN TO INTERPRETER
94 MOVE BLTPTR,[LOADGO,,B]
98 LOADGO: GET ; LOAD INTERPRETER
100 GEVEC ; CONS STARTING ADDRESS
101 JRST 1(B) ; JRST TO START+1 IN INTERPRETER
106 ; junk past here is only used if there are errors
107 NOJCL: HRROI A,[ASCIZ /You must specify the SAVE file to load.
114 HRROI A,[ASCIZ /Can't find SAVE file? (/]
118 HRROI A,[ASCIZ /): /]
123 HRROI A,[ASCIZ /Can't OPENF SAVE file? (/]
129 HRROI A,[ASCIZ /No Muddle Interpreter? (/]
138 HALTF ;UNDEFINED ERROR.
139 HALTF ;CHOMPING DEST.
143 FILE: ASCIZ /PS:<MDL>MDLXXX.EXE/