mim/development/mim/20c/mimoc20defs.mud

   1 <BLOCK (<ROOT>)> <NEWTYPE LOSE FIX><ENDBLOCK>
   2
   3 <GDECL (THE-BIG-LABELS PRE-NAMES PRE-OPTS) LIST>
   4
   5 <GDECL (STACK-DEPTH) FIX (WINNING-VICTIM) <OR FALSE FIX>>
   6
   7 <GDECL (COMPARERS) <VECTOR [REST ATOM]>>
   8
   9 <GDECL (NEXT-FLUSH CODE-LENGTH GLUE-PC) FIX>
  10
  11 <GDECL (TYPE-WORDS TYPE-LENGTHS) <VECTOR [REST ATOM FIX]>>
  12
  13 <NEWTYPE I$TERMIN WORD>
  14
  15 <NEWTYPE JSYS FIX>
  16
  17 <NEWTYPE GCAL ATOM>
  18
  19 <NEWTYPE GFRM ATOM>
  20
  21 <NEWTYPE ADECL VECTOR>
  22
  23 <NEWTYPE SGFRM ATOM>
  24
  25 <NEWTYPE SBFRM ATOM>
  26
  27 <NEWTYPE SBRCAL ATOM>
  28
  29 <NEWTYPE LAB
  30          VECTOR
  31          '!<<PRIMTYPE VECTOR> ATOM
  32                               <OR FALSE FIX>
  33                               <OR ATOM FALSE>
  34                               <LIST [REST LABSTATE]>
  35                               <OR FALSE LABSTATE>
  36                               FIX
  37                               LIST
  38                               LIST>>
  39
  40 <SETG LAB-NAM <OFFSET 1 LAB>>
  41
  42 <SETG LAB-IND <OFFSET 2 LAB>>
  43
  44 <SETG LAB-LOOP <OFFSET 3 LAB>>
  45
  46 <SETG LAB-STATE <OFFSET 4 LAB>>
  47
  48 <SETG LAB-FINAL-STATE <OFFSET 5 LAB>>
  49
  50 <SETG LAB-VISIT-MARK <OFFSET 6 LAB>>
  51
  52 <SETG LAB-CODE-PNTR <OFFSET 7 LAB>>
  53
  54 <SETG LAB-DEAD-VARS <OFFSET 8 LAB>>
  55
  56 <MANIFEST LAB-NAM LAB-IND LAB-LOOP LAB-STATE LAB-FINAL-STATE LAB-VISIT-MARK
  57           LAB-CODE-PNTR LAB-DEAD-VARS>
  58
  59 <NEWTYPE ACSTATE
  60          VECTOR
  61          '<<PRIMTYPE VECTOR> AC
  62                              <OR LOCAL FALSE>
  63                              <OR ATOM FALSE>
  64                              <OR ATOM FALSE>
  65                              ATOM>>
  66
  67 <SETG ACS-AC <OFFSET 1 ACSTATE>>
  68
  69 <SETG ACS-LOCAL <OFFSET 2 ACSTATE>>
  70
  71 <SETG ACS-STORED <OFFSET 3 ACSTATE>>
  72
  73 <SETG ACS-TYPE <OFFSET 4 ACSTATE>>
  74
  75 <SETG ACS-CODE <OFFSET 5 ACSTATE>>
  76
  77 <MANIFEST ACS-AC ACS-LOCAL ACS-STORED ACS-TYPE ACS-CODE>
  78
  79 <NEWTYPE LABSTATE VECTOR '!<<PRIMTYPE VECTOR> [6 ACSTATE]>>
  80
  81 <NEWTYPE XGLOC ATOM>
  82
  83 <NEWTYPE T$UNBOUND WORD>
  84
  85 <NEWTYPE INST VECTOR>
  86
  87 <NEWTYPE REF VECTOR>
  88
  89 <NEWTYPE XTYPE-C ATOM>
  90
  91 <NEWTYPE XTYPE-W ATOM>
  92
  93 <NEWTYPE CHANNEL-ROUTINE LIST>
  94
  95 <NEWTYPE LOCAL
  96          VECTOR
  97          '<<PRIMTYPE VECTOR> ATOM <OR FALSE ATOM> LOCAL-NAME <OR FALSE ATOM>
  98                              <OR FALSE ACSTATE> <OR FALSE ACSTATE>>>
  99
 100 <NEWTYPE LOCAL-NAME FIX>
 101
 102 <NEWTYPE CONST-W-LOCAL LIST>
 103
 104 <NEWTYPE CONSTANT WORD>
 105
 106 <NEWTYPE CONSTANT-LABEL FIX>
 107
 108 <SETG LATM <OFFSET 1 LOCAL>>
 109
 110 <SETG LUPD <OFFSET 2 LOCAL>>
 111
 112 <SETG LNAME <OFFSET 3 LOCAL>>
 113
 114 <SETG LDECL <OFFSET 4 LOCAL>>
 115
 116 <SETG LAST-ACST <OFFSET 5 LOCAL>>
 117
 118 <SETG LAST-ACSV <OFFSET 6 LOCAL>>
 119
 120 <MANIFEST LATM LUPD LNAME LDECL LAST-ACST LAST-ACSV>
 121
 122 <SETG MAX-IMMEDIATE 262143>
 123
 124 <NEWTYPE AC
 125          VECTOR
 126          '<<PRIMTYPE VECTOR> ATOM
 127                              <OR LOSE FALSE ATOM>
 128                              ATOM
 129                              FIX
 130                              <OR FALSE ATOM>
 131                              <OR FALSE ATOM>>>
 132
 133 <GDECL (ACA-AC AC-BOTH) <OR AC FALSE>>
 134
 135 <SETG AC-NAME <OFFSET 1 AC>>
 136
 137 <SETG AC-ITEM <OFFSET 2 AC>>
 138
 139 <SETG AC-CODE <OFFSET 3 AC>>
 140
 141 <SETG AC-TIME <OFFSET 4 AC>>
 142
 143 <SETG AC-UPDATE <OFFSET 5 AC>>
 144
 145 <SETG AC-TYPE <OFFSET 6 AC>>
 146
 147 <MANIFEST AC-NAME AC-ITEM AC-CODE AC-TIME AC-UPDATE AC-TYPE>
 148
 149 <GDECL (AC-PAIR-TABLE AC-TABLE)
 150        <VECTOR [REST AC]>
 151        (AC-STAMP VISIT-COUNT)
 152        FIX
 153        (NULL-STATES)
 154        <VECTOR [REST ACSTATE]>>
 155
 156 <GDECL (MVECTOR FINAL-LOCALS TYPED-LOCALS LABELS CLABELS)
 157        LIST
 158        (LBLSEQ CONSTSEQ NRARGS MAX-IMMEDIATE)
 159        FIX
 160        (ICALL-TAGS CODE LOCALS ICALL-TEMPS ALL-ICALL-TEMPS ALL-TEMP-CC TEMP-CC)
 161        LIST
 162        (FREE-CONSTS CONSTANT-VECTOR) <LIST [REST CONSTANT-BUCKET]>
 163        (ICALL-FLAG)
 164        <OR FALSE FIX>>
 165
 166 <GDECL (ACS) <VECTOR [REST ATOM FIX]>>
 167 <DEFMAC WIDTH-MUNG ('CHANX 'W) <FORM M-HLEN .CHANX .W>>
 168
 169 <SETG OUTPUT-LENGTH 1024>
 170
 171 <MANIFEST OUTPUT-LENGTH>
 172
 173 <NEWTYPE CONSTANT-BUCKET VECTOR
 174          '<<PRIMTYPE VECTOR> <OR ATOM CONSTANT CONST-W-LOCAL> FIX CONSTANT-LABEL
 175                              FIX>>
 176
 177 <MSETG CB-VAL <OFFSET 1 CONSTANT-BUCKET>>
 178
 179 <MSETG CB-HASH <OFFSET 2 CONSTANT-BUCKET>>
 180
 181 <MSETG CB-LAB <OFFSET 3 CONSTANT-BUCKET>>
 182
 183 <MSETG CB-LOC <OFFSET 4 CONSTANT-BUCKET>>
 184
 185 <MSETG CONSTANT-TABLE-LENGTH 1001>
 186
 187 <GDECL (CONSTANT-TABLE) <VECTOR [REST <LIST [REST CONSTANT-BUCKET]>]>>
 188
 189 <NEWTYPE MBUCK VECTOR '<<PRIMTYPE VECTOR> ANY FIX FIX>>
 190
 191 <MSETG MV-VAL <OFFSET 1 MBUCK>>
 192
 193 <MSETG MV-HASH <OFFSET 2 MBUCK>>
 194
 195 <MSETG MV-LOC <OFFSET 3 MBUCK>>
 196
 197 <MSETG MV-TABLE-LENGTH 391>
 198
 199 <GDECL (MV-TABLE) <VECTOR [REST <LIST [REST MBUCK]>]> (MV-COUNT) FIX>
 200
 201 <NEWTYPE SUBR-INFO VECTOR>
 202
 203 <MSETG KNOWN-ARGS 2>