1 <GDECL (SPECIAL-OPS BRANCH-INS CASE-INS MIM-CALLS)
6 <NEWTYPE LADDR LIST '<<PRIMTYPE LIST> EFF-ADDR EFF-ADDR>>
8 <MSETG MAXVAL <* 32 1024>>
10 <MSETG MINVAL <- ,MAXVAL>>
12 <GDECL (CODE-LIST) <LIST CODEVEC [REST CODEVEC]>>
15 ((ENVIRONMENT MDL) <PUTPROP CODEVEC DECL '<UVECTOR [REST FIX]>>)
16 (T <PUT-DECL CODEVEC '<UVECTOR [REST FIX]>>)>
18 <GDECL (CURRENT-CODE) CODEVEC (CODE-COUNT) FIX>
20 <MSETG CODEVEC-LENGTH 1024>
22 <NEWTYPE SPEC-LABEL FIX>
25 <GDECL (LABEL-TABLE) <LIST [REST LABEL-REF]>
26 (OUTST-LABEL-TABLE) <VECTOR [REST LABEL-REF]>
29 <MSETG MAX-OUTST-LABELS 128>
31 <NEWSTRUC PTN-SAVE VECTOR
36 PTNS-SUBS <LIST [REST PTN-SAVE]>>
38 <GDECL (PTNS-TABLE) <LIST [REST PTN-SAVE]> (PTNS-COUNT) FIX>
40 <NEWSTRUC CONSTANT-INFO UVECTOR
43 CONSTANT-INFO-CODELOC FIX>
45 <MSETG CONSTANT-TABLE-SIZE 1024>
47 <MSETG CONSTANT-TABLE-INCREMENT 128>
49 <GDECL (CONSTANT-TABLE) <UVECTOR [REST FIX]> (CONSTANT-POINTER) FIX>
51 <NEWSTRUC PATCH VECTOR
55 <GDECL (PATCH-TABLE) <LIST [REST PATCH]> (NUM-PATCH) FIX>
57 <GDECL (SAVED-CODE-COUNT) <OR FALSE FIX> (SAVED-CODE-STACK) <LIST [REST FIX]>>
59 <NEWSTRUC INT-ENTRY VECTOR
61 IE-LABEL-REF LABEL-REF>
63 <NEWSTRUC CALL-ENTRY VECTOR
65 CET-DISPATCH <UVECTOR [REST FIX]>>
67 <GDECL (INTERNAL-ENTRY-TABLE) <LIST [REST INT-ENTRY]>
68 (CALL-ENTRY-TABLE) <LIST [REST CALL-ENTRY]>>
70 <NEWSTRUC UNRESOLVED-CALL VECTOR
76 <GDECL (CALL-TABLE) <VECTOR [REST <OR FALSE UNRESOLVED-CALL>]>
78 (UNRESOLVED-CALLS-TABLE) <LIST [REST UNRESOLVED-CALL]>>
80 <MSETG CT-NUMBER-CALLS 100>
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>
85 <SETG MAX-NUMBER-PASSES 5>
87 <MSETG JUMP-EXTENT <- <* 32 1024> 1>>
89 <MSETG CALL-SEQUENCE-LENGTH 10>
91 <MSETG 0BIT-TABLE ![0 -1 0 -1 0 -1 0 -1 0 -1 0 -1 0 -1 -1 -1!]>
93 <GDECL (LABEL-POINTER) <LIST [REST LABEL-REF]> (LABEL-OFFSET) FIX>
95 <GDECL (UNRESOLVED-CALL-TABLE) <LIST [REST UNRESOLVED-CALL]>>
97 <GDECL (PF-BYTEOFF PF-PTR) FIX>
99 <GDECL (CCNAME-TABLE) <VECTOR [REST STRING]>>