5 <DECLARE ("VALUE" DATUM!-COMPDEC!-PACKAGE NODE!-COMPDEC!-PACKAGE ANY)>
12 TAG1 <SUBM M* (P) > ; 6
17 <MOVE B* (TP) -6> ; (1)
18 <PUSH TP* <TYPE-WORD LIST>> ; [8]
19 <PUSH TP* (B) 9> ; [9]
22 <PUSH TP* (PVP) 4> ; [10]
23 <PUSH TP* (PVP) 5> ; [11]
24 <PUSH TP* (TP) -1> ; (10) [12]
25 <PUSH TP* (TP) -1> ; (11) [13]
29 <MOVE B* (TP) -4> ; (9)
31 <PUSH TP* <MQUOTE %<TYPE-W NODE!-COMPDEC!-PACKAGE VECTOR>>>; [14]
32 <PUSH TP* (D) 1> ; [15]
33 <PUSH TP* <MQUOTE %<TYPE-W NODE!-COMPDEC!-PACKAGE VECTOR>>>; [16]
34 <PUSH TP* (B) 1> ; [17]
35 <PUSH TP* (TP) -1> ; (16) [18]
36 <PUSH TP* (TP) -1> ; (17) [19]
37 <MCALL 1 NTH-REST-PUT?>
40 <MOVE B* (TP) -4> ; (15)
44 <MOVE PVP* <MQUOTE T> -1>
45 <MOVE TVP* <MQUOTE T>>
47 TAG2 <MOVE PVP* <TYPE-WORD FALSE>> ; 41
49 TAG3 <PUSH TP* PVP> ; 43 [20]
55 TAG4 <MOVEI PVP* 0> ; 49
56 TAG5 <PUSH TP* <TYPE-WORD FIX>> ; 50 [22]
58 <PUSH TP* (B) 4> ; [24]
59 <PUSH TP* (B) 5> ; [25]
64 <PUSH TP* <MQUOTE %<TYPE-W NODE!-COMPDEC!-PACKAGE VECTOR>>>; [26]
65 <PUSH TP* (TP) -25> ; (1) [27]
67 <MOVEM A* (TP) -19> ; (6)
68 <MOVEM B* (TP) -18> ; (7)
72 <MCALL 1 GET-COMMON-DATUM>
75 <PUSH TP* (TP) -25> ; (2) [28]
76 <PUSH TP* (TP) -25> ; (3) [29]
78 <MOVEM A* (TP) -21> ; (4)
79 <MOVEM B* (TP) -20> ; (5)
81 TAG6 <PUSH TP* [<(%<TYPE-CODE ATOM>) -1>]> ; 76 [26]
82 <PUSH TP* <MQUOTE COMMON-SUB>> ; [27]
83 <PUSH TP* <TYPE-WORD FALSE>> ; [28]
85 <PUSH TP* <MQUOTE (<OR FALSE COMMON!-COMPDEC!-PACKAGE>)> -1>; [30]
86 <PUSH TP* <MQUOTE (<OR FALSE COMMON!-COMPDEC!-PACKAGE>)>>; [31]
88 <MOVE B* <MQUOTE %<RGLOC RESTERS T>>>
90 <MOVE D* <MQUOTE %<RGLOC STYPES!-COMPDEC!-PACKAGE T>>>
92 <MOVE PVP* <TYPE-WORD UVECTOR>>
94 <MOVE D* (TP) -18> ; (13)
96 TAG10 <CAMN D* (TVP) > ; 91
99 TAG8 <MOVE D* <TYPE-WORD FALSE>> ; 94
102 TAG9 <MOVE D* <TYPE-WORD UVECTOR>> ; 97
104 TAG11 <HLRE D* PVP> ; 99
113 <PUSH TP* (D) -2> ; [32]
114 <PUSH TP* (D) -1> ; [33]
115 <PUSH TP* <MQUOTE %<TYPE-W NODE!-COMPDEC!-PACKAGE VECTOR>>>; [34]
116 <PUSH TP* (TP) -33> ; (1) [35]
117 <PUSH TP* (TP) -33> ; (2) [36]
118 <PUSH TP* (TP) -33> ; (3) [37]
119 <PUSH TP* (TP) -27> ; (10) [38]
120 <PUSH TP* (TP) -27> ; (11) [39]
121 <PUSH TP* (TP) -27> ; (12) [40]
122 <PUSH TP* (TP) -27> ; (13) [41]
123 <PUSH TP* (TP) -21> ; (20) [42]
124 <PUSH TP* (TP) -21> ; (21) [43]
125 <PUSH TP* (TP) -21> ; (22) [44]
126 <PUSH TP* (TP) -21> ; (23) [45]
127 <MOVE B* (TP) -36> ; (9)
128 <PUSH TP* <MQUOTE %<TYPE-W NODE!-COMPDEC!-PACKAGE VECTOR>>>; [46]
129 <PUSH TP* (B) 1> ; [47]
130 <PUSH TP* (TP) -33> ; (14) [48]
131 <PUSH TP* (TP) -33> ; (15) [49]
132 <PUSH TP* <MQUOTE T> -1> ; [50]
133 <PUSH TP* <MQUOTE T>> ; [51]
134 <PUSH TP* <TYPE-WORD FALSE>> ; [52]
135 <PUSH TP* [0]> ; [53]
136 <PUSH TP* (TP) -29> ; (24) [54]
137 <PUSH TP* (TP) -29> ; (25) [55]
139 <MOVE D* (TP) -3> ; (28)
140 <MOVE PVP* (TP) -2> ; (29)
143 <MOVEM A* (TP) -21> ; (4)
144 <MOVEM B* (TP) -20> ; (5)
145 <MOVEM D* (TP) -19> ; (6)
146 <MOVEM PVP* (TP) -18> ; (7)
147 TAG7 <PUSH TP* <MQUOTE REST> -1> ; 142 [26]
148 <PUSH TP* <MQUOTE REST>> ; [27]
149 <PUSH TP* (TP) -11> ; (16) [28]
150 <PUSH TP* (TP) -11> ; (17) [29]
151 <PUSH TP* (TP) -23> ; (6) [30]
152 <PUSH TP* (TP) -23> ; (7) [31]
153 <PUSH TP* (TP) -29> ; (2) [32]
154 <PUSH TP* (TP) -29> ; (3) [33]
155 <PUSH TP* (TP) -29> ; (4) [34]
156 <PUSH TP* (TP) -29> ; (5) [35]
157 <PUSH TP* (TP) -15> ; (20) [36]
158 <PUSH TP* (TP) -15> ; (21) [37]
159 <PUSH TP* (TP) -15> ; (22) [38]
160 <PUSH TP* (TP) -15> ; (23) [39]
161 <PUSH TP* (TP) -27> ; (12) [40]
162 <PUSH TP* (TP) -27> ; (13) [41]
163 <PUSH TP* (TP) -23> ; (18) [42]
164 <PUSH TP* (TP) -23> ; (19) [43]
165 <MCALL *11* HACK-COMMON>
166 <MOVE B* (TP) -20> ; (5)
167 <SUB TP* [<(26) 26>]>
168 <MOVE A* <MQUOTE %<TYPE-W DATUM!-COMPDEC!-PACKAGE LIST>>>