<sys.unsupported>/muddleboot.mid.5

   1 TITLE SUBSYS -- Tops-20 Muddle Subsystem Bootstrapper
   2
   3         .DECSAV
   4
   5 IF1,[   PRINTC /Type in Muddle version: /
   6         .TTYMAC A
   7         DEFINE MUDNAM
   8           ASCIZ /PS:<MDL>MDL!A!.EXE/
   9          TERMIN
  10          TERMIN
  11 ]
  12
  13         O=0
  14         A=1
  15         B=2
  16         C=3
  17         D=4
  18         E=5
  19
  20         LOC     140
  21
  22 START:  TDZA    17,17
  23          MOVEI  17,1
  24         MOVSI   A,(GJ%OLD\GJ%SHT)
  25         HRROI   B,[MUDNAM]
  26         GTJFN
  27          JRST   NOMDL
  28         HRLI    A,400000
  29         MOVE    BLTPTR,[LOADGO,,B]
  30         BLT     BLTPTR,BLTPTR
  31         JRST    B
  32
  33 LOADGO: GET                             ; LOAD INTERPRETER
  34         MOVEI   A,400000
  35         GEVEC                           ; CONS STARTING ADDRESS
  36         ADD     B,17
  37         MOVEI   17,0
  38         JRST    (B)                     ; JRST TO START+1 IN INTERPRETER
  39
  40 BLTPTR=.-LOADGO+1
  41
  42 \f
  43
  44 NOMDL:  MOVE    B,A
  45         HRROI   A,[ASCIZ /No Muddle Interpreter? (/]
  46         PSOUT
  47         HRROI   A,[MUDNAM]
  48         PSOUT
  49         HRROI   A,[ASCIZ /): /]
  50         PSOUT
  51         HRRZI   A,-1
  52         HRLI    B,400000
  53         MOVEI   C,0
  54         ERSTR           ; PRINT ERROR
  55          HALTF  ;UNDEFINED ERROR.
  56          HALTF  ;CHOMPING DEST.
  57          HALTF  ;WON.
  58         JRST    .-1
  59
  60         END     START