4 <ENTRY FGETBITS-ANA FPUTBITS-ANA BITLOG>
6 <USE "SYMANA" "CHKDCL" "COMPDEC">
8 "MUDDLE BITS,GETBITS,PUTBITS,ANDB,XORB,EQVB AND ORB COMPILER ROUTINES."
11 <GFCN
\1aFGETBITS-ANA ("VALUE" ANY NODE ANY) N4 R5>
21 <CALL '
\1aPGBITS 4 = TEMP7>
25 <COND (<AND <GASSIGNED? FGETBITS> <GASSIGNED? FGETBITS-ANA>> <PUTPROP ,FGETBITS ANALYSIS ,FGETBITS-ANA>)>
28 <GFCN
\1aFPUTBITS-ANA ("VALUE" ANY ANY ANY) N4 R5>
38 <CALL '
\1aPGBITS 4 = TEMP7>
42 <COND (<AND <GASSIGNED? FPUTBITS> <GASSIGNED? FPUTBITS-ANA>> <PUTPROP ,FPUTBITS ANALYSIS ,FPUTBITS-ANA>)>
45 <GFCN
\1aPGBITS ("VALUE" ANY NODE ANY ANY FIX) NOD4 RTYP5 NARG6 COD7>
46 <TEMP K8:LIST NAM9 TEMP12 TEMP20:FIX>
48 <NTHUV NOD4 5 = K8 (TYPE LIST)>
53 <CALL '
\1aSEGFLUSH 2 = TEMP12>
54 <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE19>
57 <LENL K8 = STACK (TYPE FIX)>
63 <PUTUV NOD4 1 COD7 (TYPE FIX)>
66 <NTHL K8 1 = STACK (TYPE NODE)>
71 <RESTL K8 1 = TEMP12 (TYPE LIST)>
72 <NTHL TEMP12 1 = STACK (TYPE NODE)>
78 <RESTL K8 1 = TEMP12 (TYPE LIST)>
79 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
80 <NTHL TEMP12 1 = STACK (TYPE NODE)>
86 <SET TEMP20 4 (TYPE FIX)>
87 <LOOP (TEMP12 VALUE) (TEMP20 VALUE)>
89 <EMPL? TEMP12 + PHRASE19>
90 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
91 <SUB TEMP20 1 = TEMP20 (TYPE FIX)>
92 <GRTR? TEMP20 0 + TAG21 (TYPE FIX)>
93 <EMPL? TEMP12 - PHRASE19>
96 <RESTL K8 1 = TEMP12 (TYPE LIST)>
98 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
99 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
100 <NTHL TEMP12 1 = STACK (TYPE NODE)>
102 <PUSH <PRIMTYPE FIX>>
111 <CALL '
\1aTYPE-OK? 2 = TEMP12>
116 <GFCN
\1aBITLOG ("VALUE" ANY NODE ANY) NOD4 RTYP5>
117 <TEMP K6 LN7 NL8:LIST TEMP13 IC9 NP10:LIST TEMP3:LBIND TEMP39>
119 <NTHUV NOD4 5 = K6 (TYPE LIST)>
120 <LENL K6 = LN7 (TYPE FIX)>
123 <NTHUV NOD4 9 = TEMP13>
124 <ACALL TEMP13 0 = TEMP13>
125 <CHTYPE TEMP13 <TYPE-CODE FIX> = IC9>
128 <GETS 'BIND = TEMP3 (TYPE LBIND)>
129 <BBIND 'CN 'NODE 'FIX>
133 <CALL '
\1aSEGFLUSH 2 = TEMP13>
134 <TYPE? TEMP13 <TYPE-CODE FALSE> - PHRASE48>
136 <VEQUAL? LN7 0 - PHRASE17 (TYPE FIX)>
138 <PUTUV NOD4 1 2 (TYPE FIX)>
139 <PUTUV NOD4 5 () (TYPE LIST)>
141 <NTHUV NOD4 9 = TEMP13>
142 <ACALL TEMP13 0 = TEMP13>
143 <PUTUV NOD4 4 TEMP13>
147 <PUTUV NOD4 1 47 (TYPE FIX)>
148 <SET TEMP13 K6 (TYPE LIST)>
153 <EMPL? TEMP13 + MAPAP26>
157 <PUSH <PRIMTYPE WORD>>
158 <NTHUV NOD4 4 = STACK>
160 <NTHUV K6 1 = LN7 (TYPE FIX)>
161 <VEQUAL? LN7 2 - PHRASE34 (TYPE FIX)>
163 <NTHR 'CN 2 = LN7 (RECORD-TYPE ATOM) (TYPE LBIND)>
164 <PUTR LN7 1 K6 (RECORD-TYPE LBIND)>
172 <ACALL LN7 2 = TEMP39>
174 <CHTYPE TEMP39 <TYPE-CODE FIX> = IC9>
178 <NTHUV K6 1 = TEMP39 (TYPE FIX)>
179 <VEQUAL? TEMP39 47 - PHRASE40 (TYPE FIX)>
181 <NTHUV K6 9 = TEMP39>
183 <EQUAL? TEMP39 LN7 - PHRASE40>
185 <FRAME '
\1aCOMBINE-LOGICAL-OPS>
192 <CALL '
\1aCOMBINE-LOGICAL-OPS 4 = IC9>
195 <RESTL NP10 1 = LN7 (TYPE LIST)>
196 <EMPL? LN7 + PHRASE45>
208 <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
211 <RESTL NL8 1 = NL8 (TYPE LIST)>
212 <EMPL? NL8 - PHRASE47 (TYPE LIST)>
213 <PUTUV NOD4 1 2 (TYPE FIX)>
216 <PUTUV NOD4 5 () (TYPE LIST)>
220 <NTHR 'CN 2 = TEMP13 (RECORD-TYPE ATOM) (TYPE LBIND)>
221 <NTHR TEMP13 1 = TEMP13 (RECORD-TYPE LBIND)>
222 <TYPE? TEMP13 <TYPE-CODE UNBOUND> + PHRASE50>
224 <CHTYPE IC9 <TYPE-CODE WORD> = K6>
226 <NTHR 'CN 2 = TEMP13 (RECORD-TYPE ATOM) (TYPE LBIND)>
227 <NTHR TEMP13 1 = TEMP13 (RECORD-TYPE LBIND)>
230 <NTHR 'CN 2 = TEMP13 (RECORD-TYPE ATOM) (TYPE LBIND)>
231 <NTHR TEMP13 1 = TEMP13 (RECORD-TYPE LBIND)>
232 <CONS TEMP13 () = TEMP13>
233 <PUTREST NP10 TEMP13>
236 <PUTUV NOD4 5 NL8 (TYPE LIST)>
243 <CALL '
\1aTYPE-OK? 2 = TEMP13>
252 <GFCN
\1aCOMBINE-LOGICAL-OPS ("VALUE" ANY NODE NODE LIST ANY) P4 N5 NP6 IC7>
253 <TEMP TEMP19:LIST NN20:NODE TEMP23 TEMP25>
255 <NTHUV N5 5 = TEMP19 (TYPE LIST)>
260 <EMPL? TEMP19 + MAPAP12>
261 <NTHL TEMP19 1 = NN20>
262 <NTHUV NN20 1 = TEMP23 (TYPE FIX)>
263 <VEQUAL? TEMP23 2 - PHRASE22 (TYPE FIX)>
266 <NTHUV P4 9 = TEMP23>
269 <NTHUV NN20 4 = STACK>
270 <ACALL TEMP23 2 = TEMP25>
272 <CHTYPE TEMP25 <TYPE-CODE FIX> = IC7>
278 <NTHUV NN20 1 = TEMP25 (TYPE FIX)>
279 <VEQUAL? TEMP25 47 - PHRASE28 (TYPE FIX)>
281 <NTHUV NN20 9 = TEMP25>
282 <NTHUV P4 9 = TEMP23>
283 <EQUAL? TEMP25 TEMP23 - PHRASE28>
285 <FRAME '
\1aCOMBINE-LOGICAL-OPS>
292 <CALL '
\1aCOMBINE-LOGICAL-OPS 4 = IC7>
295 <RESTL NP6 1 = TEMP23 (TYPE LIST)>
296 <EMPL? TEMP23 + PHRASE33>
309 <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
314 <END
\1aCOMBINE-LOGICAL-OPS>
315 <COND (<GASSIGNED? BITLOG> <PUTPROP ,ANDB ANALYSIS ,BITLOG> <PUTPROP ,ORB ANALYSIS ,BITLOG> <PUTPROP ,XORB ANALYSIS ,BITLOG> <PUTPROP ,EQVB ANALYSIS ,BITLOG>)>