mim/development/mim/vaxc/asmdefs.mud

   1 <GDECL (SPECIAL-OPS BRANCH-INS CASE-INS MIM-CALLS)
   2        <UVECTOR [REST FIX]>>
   3
   4 <NEWTYPE EFF-ADDR FIX>
   5
   6 <NEWTYPE LADDR LIST '<<PRIMTYPE LIST> EFF-ADDR EFF-ADDR>>
   7
   8 <MSETG MAXVAL <* 32 1024>>
   9
  10 <MSETG MINVAL <- ,MAXVAL>>
  11
  12 <GDECL (CODE-LIST) <LIST CODEVEC [REST CODEVEC]>>
  13
  14 <ENV-COND
  15  ((ENVIRONMENT MDL) <PUTPROP CODEVEC DECL '<UVECTOR [REST FIX]>>)
  16  (T <PUT-DECL CODEVEC '<UVECTOR [REST FIX]>>)>
  17
  18 <GDECL (CURRENT-CODE) CODEVEC (CODE-COUNT) FIX>
  19
  20 <MSETG CODEVEC-LENGTH 1024>
  21
  22 <NEWTYPE SPEC-LABEL FIX>
  23
  24
  25 <GDECL (LABEL-TABLE) <LIST [REST LABEL-REF]>
  26        (OUTST-LABEL-TABLE) <VECTOR [REST LABEL-REF]>
  27        (CURRENT-SLABEL) FIX>
  28
  29 <MSETG MAX-OUTST-LABELS 128>
  30
  31 <NEWSTRUC PTN-SAVE VECTOR
  32           PTNS-CODE CODEVEC
  33           PTNS-VAR VARTBL
  34           PTNS-KIND ATOM
  35           PTNS-USE BOOLEAN
  36           PTNS-SUBS <LIST [REST PTN-SAVE]>>
  37
  38 <GDECL (PTNS-TABLE) <LIST [REST PTN-SAVE]> (PTNS-COUNT) FIX>
  39
  40 <NEWSTRUC CONSTANT-INFO UVECTOR
  41           "REST"
  42           CONSTANT-INFO-NUM FIX
  43           CONSTANT-INFO-CODELOC FIX>
  44
  45 <MSETG CONSTANT-TABLE-SIZE 1024>
  46
  47 <MSETG CONSTANT-TABLE-INCREMENT 128>
  48
  49 <GDECL (CONSTANT-TABLE) <UVECTOR [REST FIX]> (CONSTANT-POINTER) FIX>
  50
  51 <NEWSTRUC PATCH VECTOR
  52           PATCH-CODE CODEVEC
  53           PATCH-TYPE ATOM>
  54
  55 <GDECL (PATCH-TABLE) <LIST [REST PATCH]> (NUM-PATCH) FIX>
  56
  57 <GDECL (SAVED-CODE-COUNT) <OR FALSE FIX> (SAVED-CODE-STACK) <LIST [REST FIX]>>
  58
  59 <NEWSTRUC INT-ENTRY VECTOR
  60           IE-NUMBER-ARGS FIX
  61           IE-LABEL-REF LABEL-REF>
  62
  63 <NEWSTRUC CALL-ENTRY VECTOR
  64           CET-MSUBR-NAME ATOM
  65           CET-DISPATCH <UVECTOR [REST FIX]>>
  66
  67 <GDECL (INTERNAL-ENTRY-TABLE) <LIST [REST INT-ENTRY]>
  68        (CALL-ENTRY-TABLE) <LIST [REST CALL-ENTRY]>>
  69
  70 <NEWSTRUC UNRESOLVED-CALL VECTOR
  71           UC-NAME ATOM
  72           UC-NUMBER-ARGS FIX
  73           UC-CODE-PTR FIX
  74           UC-CALL-BYTEOFF FIX>
  75
  76 <GDECL (CALL-TABLE) <VECTOR [REST <OR FALSE UNRESOLVED-CALL>]>
  77        (CALL-POINTER) FIX
  78        (UNRESOLVED-CALLS-TABLE) <LIST [REST UNRESOLVED-CALL]>>
  79
  80 <MSETG CT-NUMBER-CALLS 100>
  81
  82 <GDECL (PUSH-LABEL-TABLE MOVE-LABEL-TABLE) <VECTOR [REST <OR FALSE LABEL-REF>]>
  83        (PUSH-LABEL-COUNT MOVE-LABEL-COUNT MAX-NUMBER-PASSES) FIX>
  84
  85 <SETG MAX-NUMBER-PASSES 5>
  86
  87 <MSETG JUMP-EXTENT <- <* 32 1024> 1>>
  88
  89 <MSETG CALL-SEQUENCE-LENGTH 10>
  90
  91 <MSETG 0BIT-TABLE ![0 -1 0 -1 0 -1 0 -1 0 -1 0 -1 0 -1 -1 -1!]>
  92
  93 <GDECL (LABEL-POINTER) <LIST [REST LABEL-REF]> (LABEL-OFFSET) FIX>
  94
  95 <GDECL (UNRESOLVED-CALL-TABLE) <LIST [REST UNRESOLVED-CALL]>>
  96
  97 <GDECL (PF-BYTEOFF PF-PTR) FIX>
  98
  99 <GDECL (CCNAME-TABLE) <VECTOR [REST STRING]>>