1 TITLE SUBSYS -- Tops-20 Muddle Subsystem Bootstrapper
5 IF1,[ PRINTC /Type in Muddle version: /
8 ASCIZ /PS:<MDL>MDL!A!.EXE/
24 MOVSI A,(GJ%OLD\GJ%SHT)
29 MOVE BLTPTR,[LOADGO,,B]
33 LOADGO: GET ; LOAD INTERPRETER
35 GEVEC ; CONS STARTING ADDRESS
38 JRST (B) ; JRST TO START+1 IN INTERPRETER
45 HRROI A,[ASCIZ /No Muddle Interpreter? (/]
55 HALTF ;UNDEFINED ERROR.