2 <GDECL (LOOKAHEAD?) <OR ATOM FALSE>>
4 <SETG ARITH '[ADD!-MIMOP SUB!-MIMOP MUL!-MIMOP DIV!-MIMOP ADDF!-MIMOP SUBF!-MIMOP MULF!-MIMOP DIVF!-MIMOP AND!-MIMOP OR!-MIMOP XOR!-MIMOP EQV!-MIMOP]>
6 <SETG EMPU '[EMPUV?!-MIMOP EMPUU?!-MIMOP EMPUS?!-MIMOP EMPUB?!-MIMOP]>
8 <SETG LENU '[LENUV!-MIMOP LENUU!-MIMOP LENUS!-MIMOP LENUB!-MIMOP]>
10 <SETG NTHU '[NTHUV!-MIMOP NTHUU!-MIMOP NTHUS!-MIMOP NTHUB!-MIMOP]>
12 <SETG PUTU '[PUTUV!-MIMOP PUTUU!-MIMOP PUTUS!-MIMOP PUTUB!-MIMOP]>
14 <SETG RESTU '[RESTUV!-MIMOP RESTUU!-MIMOP RESTUS!-MIMOP RESTUB!-MIMOP]>
16 <PUTPROP RESTUV!-MIMOP PUT-PAIR PUTUV!-MIMOP>
18 <PUTPROP PUTUV!-MIMOP PUT-PAIR RESTUV!-MIMOP>
20 <PUTPROP RESTUU!-MIMOP PUT-PAIR PUTUU!-MIMOP>
22 <PUTPROP PUTUU!-MIMOP PUT-PAIR RESTUU!-MIMOP>
24 <PUTPROP RESTUS!-MIMOP PUT-PAIR PUTUS!-MIMOP>
26 <PUTPROP PUTUS!-MIMOP PUT-PAIR RESTUS!-MIMOP>
28 <PUTPROP RESTUB!-MIMOP PUT-PAIR PUTUB!-MIMOP>
30 <PUTPROP PUTUB!-MIMOP PUT-PAIR RESTUB!-MIMOP>
32 <PUTPROP RESTUV!-MIMOP PAIR NTHUV!-MIMOP>
34 <PUTPROP NTHUV!-MIMOP PAIR RESTUV!-MIMOP>
36 <PUTPROP RESTUU!-MIMOP PAIR NTHUU!-MIMOP>
38 <PUTPROP NTHUU!-MIMOP PAIR RESTUU!-MIMOP>
40 <PUTPROP RESTUS!-MIMOP PAIR NTHUS!-MIMOP>
42 <PUTPROP NTHUS!-MIMOP PAIR RESTUS!-MIMOP>
44 <PUTPROP RESTUB!-MIMOP PAIR NTHUB!-MIMOP>
46 <PUTPROP NTHUB!-MIMOP PAIR RESTUB!-MIMOP>
48 <GDECL (ARITH NTHU PUTU RESTU LENU EMPU) <VECTOR [REST ATOM]>>
50 <NEWSTRUC OP-INFO (VECTOR) OP-ARGS VECTOR OP-RES <OR ATOM VARTBL> OP-HINT <OR LIST ATOM FALSE> OP-BRANCH <OR ATOM FALSE> OP-DIR ATOM>
52 <SETG OP-INFO [<IVECTOR 5 <>> T <> <> T]>
55 <GFCN
\1aNTH-LOOK-AHEAD ("VALUE" <OR ATOM FALSE> ATOM ANY ANY <OR VARTBL ATOM> "OPTIONAL" ANY ANY) CINS7 STRUC18 OFF19 RES10 HINT11 STYPE112>
56 <OPT-DISPATCH 4 %<> OPT4 OPT5 OPT6>
62 <TEMP TEMP3:LBIND TEMP40 OP-INFO16 (ADDVAL17 0) (ELTYPE120 %<>) (ELTYPE221 %<>) (EMPTY?22 %<>) ARGVEC23:VECTOR (ARITH?24 %<>) (ILDB?25 %<>) (IDPB?27 %<>) (RES1?31 %<>) (RES2?32 %<>) (STYPE234 %<>) (NOPUT?38 %<>) TEMP65 NXT15 INCINS14 TEMP92 STRUC218 OFF219>
64 <GETS 'BIND = TEMP3 (TYPE LBIND)>
65 <GEN-LVAL 'CODPTR = TEMP40>
66 <BBIND 'L <LIST [REST <OR ATOM FORM>]> 'FIX TEMP40>
68 <GVAL 'OP-INFO = OP-INFO16>
69 <NTHUV OP-INFO16 1 = ARGVEC23 (TYPE VECTOR)>
70 <GVAL 'LOOKAHEAD? = TEMP40>
71 <TYPE? TEMP40 <TYPE-CODE FALSE> - PHRASE44>
73 <SET TEMP40 %<> (TYPE FALSE)>
76 <TYPE? STYPE112 <TYPE-CODE FALSE> + PHRASE46>
77 <FRAME '
\1aPARSE-HINT>
80 <PUSH 'STRUCTURE-TYPE>
81 <CALL '
\1aPARSE-HINT 2 = STYPE112>
84 <VEQUAL? CINS7 'NTHUV!-MIMOP - PHRASE50>
85 <SET STYPE112 'VECTOR (TYPE ATOM)>
88 <VEQUAL? CINS7 'NTHUU!-MIMOP - PHRASE51>
89 <SET STYPE112 'UVECTOR (TYPE ATOM)>
92 <VEQUAL? CINS7 'NTHUS!-MIMOP - PHRASE52>
93 <SET STYPE112 'STRING (TYPE ATOM)>
96 <VEQUAL? CINS7 'NTHUB!-MIMOP - PHRASE53>
97 <SET STYPE112 'BYTES (TYPE ATOM)>
100 <VEQUAL? CINS7 'NTHL!-MIMOP - PHRASE54>
101 <SET STYPE112 'LIST (TYPE ATOM)>
103 <VEQUAL? CINS7 'ILDB!-MIMOP - PHRASE56>
106 <SET OFF19 1 (TYPE FIX)>
108 <GVAL 'NTHU = TEMP40>
109 <EMPUV? TEMP40 + TAG61>
110 <LOOP (CINS7 VALUE) (TEMP40 LENGTH VALUE)>
112 <NTHUV TEMP40 1 = TEMP65>
113 <VEQUAL? TEMP65 CINS7 + BOOL60>
115 <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
116 <EMPUV? TEMP40 - TAG62>
118 <VEQUAL? CINS7 'ILDB!-MIMOP + BOOL60>
119 <VEQUAL? CINS7 'NTHL!-MIMOP - PHRASE58>
121 <NTHR 'L 2 = TEMP40 (RECORD-TYPE ATOM) (TYPE LBIND)>
122 <NTHR TEMP40 1 = TEMP40 (RECORD-TYPE LBIND)>
123 <EMPL? TEMP40 + PHRASE58>
124 <RESTL TEMP40 1 = TEMP40 (TYPE LIST)>
125 <EMPL? TEMP40 + PHRASE58>
126 <RESTL TEMP40 1 = TEMP40 (TYPE LIST)>
127 <EMPL? TEMP40 + PHRASE58>
129 <TYPE? RES10 <TYPE-CODE VARTBL> - PHRASE58>
130 <TYPE? STRUC18 <TYPE-CODE VARTBL> - PHRASE58>
131 <VEQUAL? RES10 STRUC18 + PHRASE58>
132 <FRAME '
\1aGET-NEXT-INST>
133 <NTHR 'L 2 = TEMP40 (RECORD-TYPE ATOM) (TYPE LBIND)>
134 <NTHR TEMP40 1 = STACK (RECORD-TYPE LBIND)>
136 <CALL '
\1aGET-NEXT-INST 1 = NXT15>
137 <TYPE? NXT15 <TYPE-CODE FORM> - PHRASE58>
138 <NTHL NXT15 1 = INCINS14>
139 <GVAL 'ARITH = TEMP40>
140 <TYPE? INCINS14 <TYPE-CODE ATOM> - TAG74>
141 <EMPUV? TEMP40 + TAG74>
142 <LOOP (INCINS14 VALUE) (TEMP40 LENGTH VALUE)>
144 <NTHUV TEMP40 1 = TEMP65>
145 <VEQUAL? TEMP65 INCINS14 + TAG75>
147 <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
148 <EMPUV? TEMP40 - TAG76>
150 <SET ARITH?24 %<> (TYPE FALSE)>
153 <SET ARITH?24 TEMP40>
156 <VEQUAL? ARITH?24 0 - TAG79>
157 <GVAL 'RESTU = TEMP40>
158 <TYPE? INCINS14 <TYPE-CODE ATOM> - PHRASE72>
159 <EMPUV? TEMP40 + PHRASE72>
160 <LOOP (INCINS14 VALUE) (TEMP40 LENGTH VALUE)>
162 <NTHUV TEMP40 1 = TEMP65>
163 <VEQUAL? TEMP65 INCINS14 + TAG79>
165 <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
166 <EMPUV? TEMP40 - TAG80>
173 <CALL '
\1aPARSE-OP 2>
174 <NTHUV OP-INFO16 1 = TEMP40 (TYPE VECTOR)>
175 <NTHUV TEMP40 1 = TEMP40>
176 <EQUAL? TEMP40 RES10 - PHRASE58>
178 <NTHUV OP-INFO16 2 = TEMP40>
179 <EQUAL? TEMP40 RES10 - PHRASE58>
181 <NTHUV OP-INFO16 1 = TEMP40 (TYPE VECTOR)>
182 <NTHUV TEMP40 2 = ADDVAL17>
184 <TYPE? ADDVAL17 <TYPE-CODE FALSE> + PHRASE58>
185 <FRAME '
\1aGET-NEXT-INST>
186 <NTHR 'L 2 = TEMP40 (RECORD-TYPE ATOM) (TYPE LBIND)>
187 <NTHR TEMP40 1 = STACK (RECORD-TYPE LBIND)>
189 <CALL '
\1aGET-NEXT-INST 1 = NXT15>
190 <TYPE? NXT15 <TYPE-CODE FORM> - PHRASE58>
193 <SET INCINS14 %<> (TYPE FALSE)>
195 <TYPE? ARITH?24 <TYPE-CODE FALSE> + TAG93>
196 <GVAL 'LOGIC = TEMP40>
197 <TYPE INCINS14 = TEMP65>
198 <EMPUV? TEMP40 + TAG93>
199 <LOOP (INCINS14 VALUE) (TEMP65 VALUE) (TEMP40 LENGTH VALUE)>
201 <NTHUV TEMP40 1 = TEMP92>
202 <TYPE? TEMP92 TEMP65 - TAG91>
203 <VEQUAL? TEMP92 INCINS14 + TAG89>
206 <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
207 <EMPUV? TEMP40 - TAG90>
210 <SET TEMP40 [STRING BYTES] (TYPE VECTOR)>
211 <TYPE? STYPE112 <TYPE-CODE ATOM> - TAG93>
212 <LOOP (STYPE112 VALUE) (TEMP40 LENGTH VALUE)>
214 <NTHUV TEMP40 1 = TEMP65>
215 <VEQUAL? TEMP65 STYPE112 + PHRASE58>
217 <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
218 <EMPUV? TEMP40 - TAG94>
220 <NTH1 NXT15 = TEMP92>
221 <GVAL 'PUTU = TEMP40>
222 <TYPE? TEMP92 <TYPE-CODE ATOM> - TAG97>
223 <EMPUV? TEMP40 + TAG97>
224 <LOOP (TEMP92 VALUE) (TEMP40 LENGTH VALUE)>
226 <NTHUV TEMP40 1 = TEMP65>
227 <VEQUAL? TEMP65 TEMP92 + PHRASE103>
229 <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
230 <EMPUV? TEMP40 - TAG98>
232 <EQUAL? TEMP92 'PUTL!-MIMOP + PHRASE103>
233 <EQUAL? TEMP92 'IDPB!-MIMOP - TAG100>
234 <SET IDPB?27 'T (TYPE ATOM)>
237 <SET IDPB?27 %<> (TYPE FALSE)>
239 <VEQUAL? IDPB?27 0 - PHRASE103>
240 <TYPE? ARITH?24 <TYPE-CODE FALSE> + PHRASE58>
241 <SET TEMP92 %<> (TYPE FALSE)>
242 <SET NOPUT?38 'T (TYPE ATOM)>
245 <VEQUAL? NOPUT?38 0 - PHRASE105>
250 <CALL '
\1aPARSE-OP 2>
251 <NTHUV OP-INFO16 1 = ARGVEC23 (TYPE VECTOR)>
252 <VEQUAL? IDPB?27 0 + PHRASE108>
253 <NTHUV ARGVEC23 2 = TEMP40>
254 <EQUAL? TEMP40 RES10 - PHRASE58>
258 <NTHUV ARGVEC23 3 = TEMP40>
259 <EQUAL? TEMP40 RES10 - PHRASE58>
262 <VEQUAL? NOPUT?38 0 - PHRASE110>
263 <FRAME '
\1aWILL-DIE?>
265 <NTHR 'L 2 = TEMP40 (RECORD-TYPE ATOM) (TYPE LBIND)>
266 <NTHR TEMP40 1 = STACK (RECORD-TYPE LBIND)>
268 <CALL '
\1aWILL-DIE? 2 = TEMP40>
269 <TYPE? TEMP40 <TYPE-CODE FALSE> - PHRASE110>
271 <TYPE? ARITH?24 <TYPE-CODE FALSE> + PHRASE58>
273 <SET NOPUT?38 'T (TYPE ATOM)>
274 <SET TEMP92 %<> (TYPE FALSE)>
278 <VEQUAL? NOPUT?38 0 - PHRASE117>
279 <NTHUV ARGVEC23 1 = STRUC218>
281 <VEQUAL? NOPUT?38 0 + PHRASE119>
282 <FRAME '
\1aPROTECT-VAL>
284 <CALL '
\1aPROTECT-VAL 1>
287 <VEQUAL? IDPB?27 0 + PHRASE121>
288 <FRAME '
\1aPARSE-HINT>
289 <NTHUV OP-INFO16 3 = STACK>
290 <PUSH 'STRUCTURE-TYPE>
291 <CALL '
\1aPARSE-HINT 2 = STYPE234>
294 <EQUAL? TEMP92 'PUTUV!-MIMOP - PHRASE123>
295 <SET STYPE234 'VECTOR (TYPE ATOM)>
298 <EQUAL? TEMP92 'PUTL!-MIMOP - PHRASE124>
299 <SET STYPE234 'LIST (TYPE ATOM)>
302 <EQUAL? TEMP92 'PUTUU!-MIMOP - PHRASE125>
303 <SET STYPE234 'UVECTOR (TYPE ATOM)>
304 <SET ELTYPE221 'FIX (TYPE ATOM)>
307 <EQUAL? TEMP92 'PUTUS!-MIMOP - PHRASE126>
308 <SET STYPE234 'STRING (TYPE ATOM)>
309 <SET ELTYPE221 'CHARACTER (TYPE ATOM)>
312 <EQUAL? TEMP92 'PUTUB!-MIMOP - PHRASE127>
313 <SET ELTYPE221 'FIX (TYPE ATOM)>
314 <SET STYPE234 'BYTES (TYPE ATOM)>
316 <VEQUAL? IDPB?27 0 + PHRASE129>
317 <SET OFF219 1 (TYPE FIX)>
318 <NTHUV ARGVEC23 3 = IDPB?27>
322 <VEQUAL? NOPUT?38 0 - PHRASE132>
323 <NTHUV ARGVEC23 2 = OFF219>
325 <NTHUV OP-INFO16 3 = TEMP40>
326 <TYPE? TEMP40 <TYPE-CODE FALSE> + PHRASE132>
328 <FRAME '
\1aPARSE-HINT>
329 <NTHUV OP-INFO16 3 = STACK>
332 <CALL '
\1aPARSE-HINT 2 = ELTYPE221>
334 <TYPE? HINT11 <TYPE-CODE FALSE> + PHRASE135>
335 <TYPE? HINT11 <TYPE-CODE ATOM> - PHRASE137>
336 <SET ELTYPE120 HINT11>
340 <FRAME '
\1aPARSE-HINT>
344 <CALL '
\1aPARSE-HINT 2 = ELTYPE120>
347 <EQUAL? STYPE112 'BYTES - PHRASE139>
348 <SET ELTYPE120 'FIX (TYPE ATOM)>
351 <EQUAL? STYPE112 'STRING - PHRASE140>
352 <SET ELTYPE120 'CHARACTER (TYPE ATOM)>
355 <EQUAL? STYPE112 'UVECTOR - PHRASE141>
356 <SET ELTYPE120 'FIX (TYPE ATOM)>
358 <GVAL 'RESTU = TEMP40>
359 <TYPE? INCINS14 <TYPE-CODE ATOM> - PHRASE143>
360 <EMPUV? TEMP40 + PHRASE143>
361 <LOOP (INCINS14 VALUE) (TEMP40 LENGTH VALUE)>
363 <NTHUV TEMP40 1 = TEMP65>
364 <VEQUAL? TEMP65 INCINS14 + TAG145>
366 <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
367 <EMPUV? TEMP40 - TAG146>
370 <TYPE? ELTYPE120 <TYPE-CODE FALSE> + BOOL148>
371 <TYPE? ELTYPE221 <TYPE-CODE FALSE> + BOOL148>
372 <EQUAL? ELTYPE120 ELTYPE221 + PHRASE143>
374 <TYPE? ILDB?25 <TYPE-CODE FALSE> - BOOL149>
375 <TYPE? IDPB?27 <TYPE-CODE FALSE> - BOOL149>
376 <EQUAL? STRUC18 STRUC218 - BOOL149>
377 <EQUAL? OFF19 OFF219 + PHRASE143>
379 <SET TEMP40 %<> (TYPE FALSE)>
382 <FRAME '
\1aNTH-AOS-PUT-GEN>
395 <VEQUAL? NOPUT?38 0 + TAG154>
396 <SET TEMP65 %<> (TYPE FALSE)>
406 <NTHR 'L 2 = TEMP65 (RECORD-TYPE ATOM) (TYPE LBIND)>
407 <NTHR TEMP65 1 = STACK (RECORD-TYPE LBIND)>
415 <VEQUAL? NOPUT?38 0 + TAG159>
416 <SET TEMP65 %<> (TYPE FALSE)>
419 <SET TEMP65 STYPE234>
426 <VEQUAL? NOPUT?38 0 + TAG162>
428 <SET TEMP65 %<> (TYPE FALSE)>
431 <SET TEMP65 ELTYPE221>
436 <CALL '
\1aNTH-AOS-PUT-GEN 15 = TEMP40>
437 <VEQUAL? TEMP40 0 + PHRASE345>
438 <SET TEMP40 'NORMAL (TYPE ATOM)>
441 <GEN-LVAL 'CODPTR = TEMP65>
442 <NTHR 'L 2 = TEMP92 (RECORD-TYPE ATOM) (TYPE LBIND)>
443 <PUTR TEMP92 1 TEMP65 (RECORD-TYPE LBIND)>
445 <VEQUAL? CINS7 'ILDB!-MIMOP + TAG173>
446 <GVAL 'NTHU = TEMP65>
447 <EMPUV? TEMP65 + TAG170>
448 <LOOP (CINS7 VALUE) (TEMP65 LENGTH VALUE)>
450 <NTHUV TEMP65 1 = TEMP92>
451 <VEQUAL? TEMP92 CINS7 + TAG173>
453 <RESTUV TEMP65 1 = TEMP65 (TYPE VECTOR)>
454 <EMPUV? TEMP65 - TAG171>
456 <VEQUAL? CINS7 'NTHL!-MIMOP + TAG173>
457 <SET TEMP40 %<> (TYPE FALSE)>
460 <NTHR 'L 2 = TEMP65 (RECORD-TYPE ATOM) (TYPE LBIND)>
461 <NTHR TEMP65 1 = TEMP65 (RECORD-TYPE LBIND)>
462 <EMPL? TEMP65 + TAG177>
463 <RESTL TEMP65 1 = TEMP65 (TYPE LIST)>
464 <EMPL? TEMP65 - TAG174>
467 <SET TEMP40 %<> (TYPE FALSE)>
470 <FRAME '
\1aGET-NEXT-INST>
471 <NTHR 'L 2 = TEMP65 (RECORD-TYPE ATOM) (TYPE LBIND)>
472 <NTHR TEMP65 1 = STACK (RECORD-TYPE LBIND)>
474 <CALL '
\1aGET-NEXT-INST 1 = NXT15>
475 <TYPE? NXT15 <TYPE-CODE FORM> + TAG181>
476 <SET TEMP40 %<> (TYPE FALSE)>
479 <NTHL NXT15 1 = TEMP65>
480 <GVAL 'LENU = TEMP92>
481 <TYPE? TEMP65 <TYPE-CODE ATOM> - TAG187>
482 <EMPUV? TEMP92 + TAG187>
483 <LOOP (TEMP65 VALUE) (TEMP92 LENGTH VALUE)>
485 <NTHUV TEMP92 1 = TEMP40>
486 <VEQUAL? TEMP40 TEMP65 + BOOL186>
488 <RESTUV TEMP92 1 = TEMP92 (TYPE VECTOR)>
489 <EMPUV? TEMP92 - TAG188>
491 <NTHL NXT15 1 = TEMP65>
492 <EQUAL? TEMP65 'EMPL?!-MIMOP - TAG192>
494 <SET TEMP92 'T (TYPE ATOM)>
497 <NTHL NXT15 1 = TEMP65>
498 <GVAL 'EMPU = TEMP92>
499 <TYPE? TEMP65 <TYPE-CODE ATOM> - TAG193>
500 <EMPUV? TEMP92 + TAG193>
501 <LOOP (TEMP65 VALUE) (TEMP92 LENGTH VALUE)>
503 <NTHUV TEMP92 1 = TEMP40>
504 <VEQUAL? TEMP40 TEMP65 + TAG194>
506 <RESTUV TEMP92 1 = TEMP92 (TYPE VECTOR)>
507 <EMPUV? TEMP92 - TAG195>
509 <SET TEMP92 %<> (TYPE FALSE)>
511 <SET EMPTY?22 TEMP92>
513 <TYPE? EMPTY?22 <TYPE-CODE FALSE> + PHRASE184>
518 <CALL '
\1aPARSE-OP 2>
519 <NTHUV OP-INFO16 1 = ARGVEC23 (TYPE VECTOR)>
520 <NTHUV ARGVEC23 1 = TEMP92>
521 <EQUAL? TEMP92 RES10 - PHRASE184>
523 <NTHUV ARGVEC23 1 = TEMP92>
524 <NTHUV OP-INFO16 2 = TEMP65>
525 <EQUAL? TEMP92 TEMP65 + BOOL203>
527 <FRAME '
\1aWILL-DIE?>
529 <NTHR 'L 2 = TEMP65 (RECORD-TYPE ATOM) (TYPE LBIND)>
530 <NTHR TEMP65 1 = STACK (RECORD-TYPE LBIND)>
532 <CALL '
\1aWILL-DIE? 2 = TEMP65>
533 <TYPE? TEMP65 <TYPE-CODE FALSE> + PHRASE184>
535 <TYPE? EMPTY?22 <TYPE-CODE FALSE> + BOOL203>
536 <NTHUV OP-INFO16 4 = TEMP65>
537 <NTHR 'L 2 = ELTYPE120 (RECORD-TYPE ATOM) (TYPE LBIND)>
538 <NTHR ELTYPE120 1 = ELTYPE120 (RECORD-TYPE LBIND)>
539 <TYPE TEMP65 = TEMP92>
540 <EMPL? ELTYPE120 + TAG205>
541 <LOOP (TEMP65 VALUE) (TEMP92 VALUE) (ELTYPE120 VALUE)>
543 <NTHL ELTYPE120 1 = TEMP40>
544 <TYPE? TEMP40 TEMP92 - TAG208>
545 <VEQUAL? TEMP40 TEMP65 + TAG206>
548 <RESTL ELTYPE120 1 = ELTYPE120 (TYPE LIST)>
549 <EMPL? ELTYPE120 - TAG207>
551 <SET ELTYPE120 %<> (TYPE FALSE)>
553 <VEQUAL? ELTYPE120 0 + PHRASE184>
554 <FRAME '
\1aWILL-DIE?>
558 <CALL '
\1aWILL-DIE? 2 = TEMP92>
559 <TYPE? TEMP92 <TYPE-CODE FALSE> + PHRASE184>
562 <NTHR 'L 2 = TEMP92 (RECORD-TYPE ATOM) (TYPE LBIND)>
563 <NTHR TEMP92 1 = ARITH?24 (RECORD-TYPE LBIND)>
565 <TYPE? EMPTY?22 <TYPE-CODE FALSE> + PHRASE215>
568 <NTHR 'L 2 = TEMP92 (RECORD-TYPE ATOM) (TYPE LBIND)>
569 <NTHR TEMP92 1 = STACK (RECORD-TYPE LBIND)>
571 <GEN-LVAL 'CODPTR = STACK>
572 <CALL '
\1aFLUSH-TO 2>
573 <FRAME '
\1aNTH-LENGTH-COMP-GEN>
583 <NTHL NXT15 1 = STACK>
587 <CALL '
\1aNTH-LENGTH-COMP-GEN 7>
588 <SET TEMP40 'CONDITIONAL-BRANCH (TYPE ATOM)>
591 <NTHUV OP-INFO16 2 = ADDVAL17>
592 <NTHR 'L 2 = TEMP65 (RECORD-TYPE ATOM) (TYPE LBIND)>
593 <NTHR TEMP65 1 = TEMP65 (RECORD-TYPE LBIND)>
594 <EMPL? TEMP65 + PHRASE224>
595 <RESTL TEMP65 1 = TEMP65 (TYPE LIST)>
596 <EMPL? TEMP65 + PHRASE224>
597 <RESTL TEMP65 1 = TEMP65 (TYPE LIST)>
598 <EMPL? TEMP65 + PHRASE224>
600 <FRAME '
\1aGET-NEXT-INST>
601 <NTHR 'L 2 = TEMP65 (RECORD-TYPE ATOM) (TYPE LBIND)>
602 <NTHR TEMP65 1 = STACK (RECORD-TYPE LBIND)>
604 <CALL '
\1aGET-NEXT-INST 1 = NXT15>
605 <TYPE? NXT15 <TYPE-CODE FORM> - PHRASE224>
606 <NTHL NXT15 1 = TEMP65>
607 <SET TEMP40 [LESS?!-MIMOP GRTR?!-MIMOP VEQUAL?!-MIMOP] (TYPE VECTOR)>
608 <TYPE? TEMP65 <TYPE-CODE ATOM> - PHRASE224>
609 <LOOP (TEMP65 VALUE) (TEMP40 LENGTH VALUE)>
611 <NTHUV TEMP40 1 = ELTYPE120>
612 <VEQUAL? ELTYPE120 TEMP65 + TAG231>
614 <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
615 <EMPUV? TEMP40 - TAG232>
621 <CALL '
\1aPARSE-OP 2>
622 <NTHUV OP-INFO16 1 = ARGVEC23 (TYPE VECTOR)>
623 <NTHUV ARGVEC23 1 = TEMP40>
624 <EQUAL? ADDVAL17 TEMP40 - PHRASE237>
626 <NTHL NXT15 1 = ELTYPE120>
628 <NTHUV ARGVEC23 2 = ELTYPE221>
630 <TYPE? ELTYPE221 <TYPE-CODE FALSE> + PHRASE224>
633 <NTHUV ARGVEC23 2 = TEMP40>
634 <EQUAL? TEMP40 ADDVAL17 - PHRASE224>
636 <NTHUV ARGVEC23 1 = ELTYPE221>
638 <NTHL NXT15 1 = ELTYPE120>
640 <EQUAL? ELTYPE120 'LESS?!-MIMOP - PHRASE240>
641 <SET ELTYPE120 'GRTR?!-MIMOP (TYPE ATOM)>
644 <EQUAL? ELTYPE120 'GRTR?!-MIMOP - PHRASE241>
645 <SET ELTYPE120 'LESS?!-MIMOP (TYPE ATOM)>
647 <FRAME '
\1aWILL-DIE?>
649 <NTHR 'L 2 = TEMP40 (RECORD-TYPE ATOM) (TYPE LBIND)>
650 <NTHR TEMP40 1 = TEMP40 (RECORD-TYPE LBIND)>
651 <RESTL TEMP40 1 = STACK (TYPE LIST)>
653 <CALL '
\1aWILL-DIE? 2 = TEMP40>
654 <TYPE? TEMP40 <TYPE-CODE FALSE> + PHRASE224>
657 <NTHR 'L 2 = TEMP40 (RECORD-TYPE ATOM) (TYPE LBIND)>
658 <NTHR TEMP40 1 = STACK (RECORD-TYPE LBIND)>
660 <GEN-LVAL 'CODPTR = STACK>
661 <CALL '
\1aFLUSH-TO 2>
662 <FRAME '
\1aNTH-LENGTH-COMP-GEN>
677 <CALL '
\1aNTH-LENGTH-COMP-GEN 7>
678 <SET TEMP40 'CONDITIONAL-BRANCH (TYPE ATOM)>
684 <GEN-LVAL 'CODPTR = STACK>
685 <CALL '
\1aFLUSH-TO 2>
686 <FRAME '
\1aNTH-LENGTH-GEN>
697 <CALL '
\1aNTH-LENGTH-GEN 5>
698 <SET TEMP40 'NORMAL (TYPE ATOM)>
701 <NTHL NXT15 1 = TEMP40>
702 <EQUAL? TEMP40 'ILDB!-MIMOP + BOOL258>
703 <GVAL 'NTHU = ELTYPE120>
704 <TYPE? TEMP40 <TYPE-CODE ATOM> - TAG259>
705 <EMPUV? ELTYPE120 + TAG259>
706 <LOOP (TEMP40 VALUE) (ELTYPE120 LENGTH VALUE)>
708 <NTHUV ELTYPE120 1 = ADDVAL17>
709 <VEQUAL? ADDVAL17 TEMP40 + BOOL258>
711 <RESTUV ELTYPE120 1 = ELTYPE120 (TYPE VECTOR)>
712 <EMPUV? ELTYPE120 - TAG260>
714 <EQUAL? TEMP40 'NTHL!-MIMOP - PHRASE256>
716 <NTHR 'L 2 = ADDVAL17 (RECORD-TYPE ATOM) (TYPE LBIND)>
717 <NTHR ADDVAL17 1 = ADDVAL17 (RECORD-TYPE LBIND)>
718 <RESTL ADDVAL17 1 = ELTYPE120 (TYPE LIST)>
720 <EMPL? ELTYPE120 + PHRASE256 (TYPE LIST)>
725 <CALL '
\1aPARSE-OP 2>
726 <EQUAL? TEMP40 'ILDB!-MIMOP - PHRASE267>
727 <FRAME '
\1aPARSE-HINT>
728 <NTHUV OP-INFO16 3 = STACK>
729 <PUSH 'STRUCTURE-TYPE>
730 <CALL '
\1aPARSE-HINT 2 = STYPE234>
731 <TYPE? STYPE234 <TYPE-CODE FALSE> + PHRASE256>
734 <EQUAL? TEMP40 'NTHL!-MIMOP - PHRASE269>
735 <SET STYPE234 'LIST (TYPE ATOM)>
740 <NTHR TEMP40 3 = ELTYPE120 (RECORD-TYPE ATOM)>
742 <RESTUS ELTYPE120 3 = STACK (TYPE STRING)>
744 <PUSH ["UV" VECTOR "UU" UVECTOR "US" STRING "UB" BYTES]>
745 <CALL '
\1aMEMBER 2 = STACK>
747 <CALL '
\1aNTH 2 = STYPE234>
748 <TYPE? STYPE234 <TYPE-CODE FALSE> + PHRASE256>
750 <NTHUV OP-INFO16 1 = ARGVEC23 (TYPE VECTOR)>
751 <NTHUV ARGVEC23 1 = STRUC218>
752 <TYPE? STRUC218 <TYPE-CODE FALSE> + PHRASE256>
753 <EQUAL? STYPE112 STYPE234 + TAG284>
754 <SET ELTYPE120 [VECTOR UVECTOR LIST] (TYPE VECTOR)>
755 <TYPE? STYPE112 <TYPE-CODE ATOM> - TAG277>
756 <LOOP (STYPE112 VALUE) (ELTYPE120 LENGTH VALUE)>
758 <NTHUV ELTYPE120 1 = ADDVAL17>
759 <VEQUAL? ADDVAL17 STYPE112 + TAG274>
761 <RESTUV ELTYPE120 1 = ELTYPE120 (TYPE VECTOR)>
762 <EMPUV? ELTYPE120 - TAG275>
765 <SET ELTYPE120 [VECTOR UVECTOR LIST] (TYPE VECTOR)>
766 <TYPE? STYPE234 <TYPE-CODE ATOM> - TAG277>
767 <LOOP (STYPE234 VALUE) (ELTYPE120 LENGTH VALUE)>
769 <NTHUV ELTYPE120 1 = ADDVAL17>
770 <VEQUAL? ADDVAL17 STYPE234 + TAG284>
772 <RESTUV ELTYPE120 1 = ELTYPE120 (TYPE VECTOR)>
773 <EMPUV? ELTYPE120 - TAG278>
775 <SET ELTYPE120 [STRING BYTES] (TYPE VECTOR)>
776 <TYPE? STYPE112 <TYPE-CODE ATOM> - PHRASE256>
777 <LOOP (STYPE112 VALUE) (ELTYPE120 LENGTH VALUE)>
779 <NTHUV ELTYPE120 1 = ADDVAL17>
780 <VEQUAL? ADDVAL17 STYPE112 + TAG281>
782 <RESTUV ELTYPE120 1 = ELTYPE120 (TYPE VECTOR)>
783 <EMPUV? ELTYPE120 - TAG282>
786 <SET ELTYPE120 [STRING BYTES] (TYPE VECTOR)>
787 <TYPE? STYPE234 <TYPE-CODE ATOM> - PHRASE256>
788 <LOOP (STYPE234 VALUE) (ELTYPE120 LENGTH VALUE)>
790 <NTHUV ELTYPE120 1 = ADDVAL17>
791 <VEQUAL? ADDVAL17 STYPE234 + TAG284>
793 <RESTUV ELTYPE120 1 = ELTYPE120 (TYPE VECTOR)>
794 <EMPUV? ELTYPE120 - TAG285>
797 <NTHUV ARGVEC23 2 = OFF219>
798 <TYPE? OFF219 <TYPE-CODE FALSE> + PHRASE256>
799 <NTHUV OP-INFO16 2 = TEMP40>
800 <FRAME '
\1aWILL-DIE?>
802 <NTHR 'L 2 = ELTYPE120 (RECORD-TYPE ATOM) (TYPE LBIND)>
803 <NTHR ELTYPE120 1 = ELTYPE120 (RECORD-TYPE LBIND)>
804 <RESTL ELTYPE120 1 = STACK (TYPE LIST)>
806 <CALL '
\1aWILL-DIE? 2 = ELTYPE120>
807 <TYPE? ELTYPE120 <TYPE-CODE FALSE> + PHRASE256>
809 <FRAME '
\1aGET-NEXT-INST>
810 <NTHR 'L 2 = ELTYPE120 (RECORD-TYPE ATOM) (TYPE LBIND)>
811 <NTHR ELTYPE120 1 = STACK (RECORD-TYPE LBIND)>
813 <CALL '
\1aGET-NEXT-INST 1 = NXT15>
814 <TYPE? NXT15 <TYPE-CODE FORM> - PHRASE256>
815 <NTHL NXT15 1 = ELTYPE120>
816 <SET ADDVAL17 [LESS?!-MIMOP GRTR?!-MIMOP VEQUAL?!-MIMOP] (TYPE VECTOR)>
817 <TYPE? ELTYPE120 <TYPE-CODE ATOM> - PHRASE256>
818 <LOOP (ELTYPE120 VALUE) (ADDVAL17 LENGTH VALUE)>
820 <NTHUV ADDVAL17 1 = ELTYPE221>
821 <VEQUAL? ELTYPE221 ELTYPE120 + TAG293>
823 <RESTUV ADDVAL17 1 = ADDVAL17 (TYPE VECTOR)>
824 <EMPUV? ADDVAL17 - TAG294>
828 <TYPE RES10 = ELTYPE120>
829 <LOOP (RES10 VALUE) (ELTYPE120 VALUE) (ADDVAL17 VALUE)>
831 <NTHL ADDVAL17 1 = ELTYPE221>
832 <TYPE? ELTYPE221 ELTYPE120 - TAG300>
833 <VEQUAL? ELTYPE221 RES10 + TAG301>
836 <RESTL ADDVAL17 1 = ADDVAL17 (TYPE LIST)>
837 <EMPL? ADDVAL17 - TAG299>
839 <TYPE TEMP40 = ELTYPE120>
840 <LOOP (TEMP40 VALUE) (ELTYPE120 VALUE) (ADDVAL17 VALUE)>
842 <NTHL ADDVAL17 1 = ELTYPE221>
843 <TYPE? ELTYPE221 ELTYPE120 - TAG303>
844 <VEQUAL? ELTYPE221 TEMP40 + TAG301>
847 <RESTL ADDVAL17 1 = ADDVAL17 (TYPE LIST)>
848 <EMPL? ADDVAL17 - TAG302>
854 <CALL '
\1aPARSE-OP 2>
855 <NTHUV OP-INFO16 4 = ADDVAL17>
856 <NTHR 'L 2 = ELTYPE120 (RECORD-TYPE ATOM) (TYPE LBIND)>
857 <NTHR ELTYPE120 1 = ELTYPE120 (RECORD-TYPE LBIND)>
858 <TYPE ADDVAL17 = ELTYPE221>
859 <EMPL? ELTYPE120 + TAG308>
860 <LOOP (ADDVAL17 VALUE) (ELTYPE221 VALUE) (ELTYPE120 VALUE)>
862 <NTHL ELTYPE120 1 = EMPTY?22>
863 <TYPE? EMPTY?22 ELTYPE221 - TAG311>
864 <VEQUAL? EMPTY?22 ADDVAL17 + TAG309>
867 <RESTL ELTYPE120 1 = ELTYPE120 (TYPE LIST)>
868 <EMPL? ELTYPE120 - TAG310>
870 <SET ELTYPE120 %<> (TYPE FALSE)>
874 <VEQUAL? ELTYPE120 0 + BOOL307>
875 <FRAME '
\1aWILL-DIE?>
879 <CALL '
\1aWILL-DIE? 2 = ELTYPE120>
880 <TYPE? ELTYPE120 <TYPE-CODE FALSE> - PHRASE306>
883 <SET TEMP40 %<> (TYPE FALSE)>
887 <NTHR 'L 2 = ELTYPE120 (RECORD-TYPE ATOM) (TYPE LBIND)>
888 <NTHR ELTYPE120 1 = STACK (RECORD-TYPE LBIND)>
890 <GEN-LVAL 'CODPTR = STACK>
891 <CALL '
\1aFLUSH-TO 2>
892 <FRAME '
\1aSLOT-COMPARE>
893 <NTHUV ARGVEC23 1 = ELTYPE221>
894 <EQUAL? ELTYPE221 RES10 - PHRASE324>
896 <SET RES1?31 1 (TYPE FIX)>
897 <SET ELTYPE221 STRUC18>
900 <NTHUV ARGVEC23 1 = ADDVAL17>
901 <EQUAL? ADDVAL17 TEMP40 - PHRASE325>
903 <SET RES2?32 1 (TYPE FIX)>
904 <SET ELTYPE221 STRUC218>
907 <NTHUV ARGVEC23 1 = ELTYPE221>
911 <NTHUV ARGVEC23 2 = ELTYPE221>
912 <EQUAL? ELTYPE221 RES10 - PHRASE327>
913 <DEAD ELTYPE221 RES10>
914 <SET RES1?31 2 (TYPE FIX)>
915 <SET ELTYPE221 STRUC18>
919 <NTHUV ARGVEC23 2 = ADDVAL17>
920 <EQUAL? ADDVAL17 TEMP40 - PHRASE328>
921 <DEAD ADDVAL17 TEMP40>
922 <SET RES2?32 2 (TYPE FIX)>
923 <SET ELTYPE221 STRUC218>
927 <NTHUV ARGVEC23 2 = ELTYPE221>
932 <NTHL NXT15 1 = STACK>
936 <EQUAL? RES1?31 1 - PHRASE330>
937 <SET ELTYPE221 OFF19>
940 <EQUAL? RES2?32 1 + TAG332>
941 <SET ELTYPE221 %<> (TYPE FALSE)>
944 <SET ELTYPE221 OFF219>
948 <EQUAL? RES1?31 1 - PHRASE334>
949 <SET ELTYPE221 STYPE112>
952 <EQUAL? RES2?32 1 + TAG336>
953 <SET ELTYPE221 %<> (TYPE FALSE)>
956 <SET ELTYPE221 STYPE234>
960 <EQUAL? RES1?31 2 - PHRASE338>
961 <SET ELTYPE221 OFF19>
965 <EQUAL? RES2?32 2 + TAG340>
966 <SET ELTYPE221 %<> (TYPE FALSE)>
969 <SET ELTYPE221 OFF219>
974 <EQUAL? RES1?31 2 - PHRASE342>
976 <SET ELTYPE221 STYPE112>
980 <EQUAL? RES2?32 2 + TAG344>
982 <SET ELTYPE221 %<> (TYPE FALSE)>
985 <SET ELTYPE221 STYPE234>
990 <CALL '
\1aSLOT-COMPARE 8>
991 <SET TEMP40 'CONDITIONAL-BRANCH (TYPE ATOM)>
994 <NTH1 NXT15 = ELTYPE221>
995 <SET TEMP40 [GRTR?!-MIMOP LESS?!-MIMOP VEQUAL?!-MIMOP] (TYPE VECTOR)>
996 <TYPE? ELTYPE221 <TYPE-CODE ATOM> - TAG347>
997 <LOOP (ELTYPE221 VALUE) (TEMP40 LENGTH VALUE)>
999 <NTHUV TEMP40 1 = ADDVAL17>
1000 <VEQUAL? ADDVAL17 ELTYPE221 + TAG348>
1002 <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
1003 <EMPUV? TEMP40 - TAG349>
1005 <SET TEMP40 %<> (TYPE FALSE)>
1008 <FRAME '
\1aPARSE-OP>
1011 <CALL '
\1aPARSE-OP 2>
1012 <NTHUV ARGVEC23 1 = ELTYPE221>
1013 <EQUAL? ELTYPE221 RES10 + TAG353>
1015 <NTHUV ARGVEC23 2 = ELTYPE221>
1016 <EQUAL? ELTYPE221 RES10 + TAG353>
1018 <SET TEMP40 %<> (TYPE FALSE)>
1021 <FRAME '
\1aWILL-DIE?>
1023 <NTHR 'L 2 = ELTYPE221 (RECORD-TYPE ATOM) (TYPE LBIND)>
1024 <NTHR ELTYPE221 1 = STACK (RECORD-TYPE LBIND)>
1026 <CALL '
\1aWILL-DIE? 2 = TEMP40>
1027 <TYPE? TEMP40 <TYPE-CODE FALSE> + PHRASE345>
1028 <NTHUV OP-INFO16 4 = ELTYPE221>
1029 <NTHR 'L 2 = ADDVAL17 (RECORD-TYPE ATOM) (TYPE LBIND)>
1030 <NTHR ADDVAL17 1 = ADDVAL17 (RECORD-TYPE LBIND)>
1031 <TYPE ELTYPE221 = EMPTY?22>
1032 <EMPL? ADDVAL17 + TAG358>
1033 <LOOP (ELTYPE221 VALUE) (EMPTY?22 VALUE) (ADDVAL17 VALUE)>
1035 <NTHL ADDVAL17 1 = TEMP40>
1036 <TYPE? TEMP40 EMPTY?22 - TAG361>
1037 <VEQUAL? TEMP40 ELTYPE221 + TAG359>
1040 <RESTL ADDVAL17 1 = ADDVAL17 (TYPE LIST)>
1041 <EMPL? ADDVAL17 - TAG360>
1043 <SET ELTYPE120 %<> (TYPE FALSE)>
1046 <SET ELTYPE120 ADDVAL17>
1049 <SET TEMP40 ELTYPE120>
1050 <VEQUAL? TEMP40 0 + PHRASE345>
1051 <FRAME '
\1aWILL-DIE?>
1055 <CALL '
\1aWILL-DIE? 2 = TEMP40>
1056 <TYPE? TEMP40 <TYPE-CODE FALSE> + PHRASE345>
1057 <NTHUV ARGVEC23 1 = ADDVAL17>
1058 <EQUAL? ADDVAL17 RES10 - PHRASE368>
1060 <SET RES1?31 'T (TYPE ATOM)>
1063 <NTHUV ARGVEC23 2 = ADDVAL17>
1064 <EQUAL? ADDVAL17 RES10 - PHRASE369>
1065 <DEAD ADDVAL17 RES10>
1066 <SET RES2?32 'T (TYPE ATOM)>
1068 <FRAME '
\1aFLUSH-TO>
1069 <NTHR 'L 2 = ADDVAL17 (RECORD-TYPE ATOM) (TYPE LBIND)>
1070 <NTHR ADDVAL17 1 = STACK (RECORD-TYPE LBIND)>
1072 <GEN-LVAL 'CODPTR = STACK>
1073 <CALL '
\1aFLUSH-TO 2>
1074 <FRAME '
\1aSLOT-COMPARE>
1075 <VEQUAL? RES1?31 0 + PHRASE377>
1076 <SET EMPTY?22 STRUC18>
1079 <NTHUV ARGVEC23 1 = EMPTY?22>
1083 <VEQUAL? RES2?32 0 + PHRASE379>
1084 <SET EMPTY?22 STRUC18>
1088 <NTHUV ARGVEC23 2 = EMPTY?22>
1093 <NTHL NXT15 1 = STACK>
1097 <SET EMPTY?22 RES1?31>
1098 <VEQUAL? EMPTY?22 0 + PHRASE381>
1099 <SET EMPTY?22 OFF19>
1103 <SET EMPTY?22 RES1?31>
1105 <VEQUAL? EMPTY?22 0 + PHRASE383>
1106 <SET EMPTY?22 STYPE112>
1110 <SET EMPTY?22 RES2?32>
1111 <VEQUAL? EMPTY?22 0 + PHRASE385>
1112 <SET EMPTY?22 OFF19>
1117 <SET EMPTY?22 RES2?32>
1119 <VEQUAL? EMPTY?22 0 + PHRASE387>
1120 <SET EMPTY?22 STYPE112>
1125 <CALL '
\1aSLOT-COMPARE 8>
1126 <SET TEMP40 'CONDITIONAL-BRANCH (TYPE ATOM)>
1134 <END
\1aNTH-LOOK-AHEAD>
1137 <GFCN
\1aFLUSH-TO ("VALUE" FIX LIST LIST) NL4 OL5>
1138 <TEMP TEMP6:FIX TEMP7:FIX>
1140 <LENL OL5 = TEMP6 (TYPE FIX)>
1142 <LENL NL4 = TEMP7 (TYPE FIX)>
1144 <SUB TEMP6 TEMP7 = TEMP6 (TYPE FIX)>
1146 <SETG 'FLUSH-NEXT TEMP6>
1152 <GFCN
\1aGET-NEXT-INST ("VALUE" ANY LIST) LL4>
1159 <NTHL LL4 1 = FROB8>
1162 <CALL '
\1aGETPROP 2 = TEMP13>
1163 <TYPE? TEMP13 <TYPE-CODE FALSE> - PHRASE11>
1165 <RESTL LL4 1 = TEMP13 (TYPE LIST)>
1172 <RESTL LL4 1 = LL4 (TYPE LIST)>
1173 <EMPL? LL4 - AGAIN9 (TYPE LIST)>
1175 <END
\1aGET-NEXT-INST>
1178 <GFCN
\1aPARSE-OP ("VALUE" OP-INFO FORM OP-INFO) FRM4 OP-INFO5>
1179 <TEMP ARGVEC6:VECTOR (RES?7 %<>) (BRANCH?9 %<>) TEMP21:LIST X22 TEMP35>
1181 <NTHUV OP-INFO5 1 = ARGVEC6 (TYPE VECTOR)>
1182 <PUTUV OP-INFO5 3 %<>>
1183 <PUTUV OP-INFO5 4 %<>>
1184 <PUTUV OP-INFO5 2 'T>
1185 <RESTL FRM4 1 = TEMP21 (TYPE LIST)>
1187 <CHTYPE TEMP21 <TYPE-CODE LIST> = TEMP21>
1191 <EMPL? TEMP21 + MAPAP14>
1192 <NTHL TEMP21 1 = X22>
1193 <TYPE? X22 <TYPE-CODE LIST> - BOOL25>
1194 <EMPL? X22 - PHRASE24 (TYPE LIST)>
1196 <VEQUAL? RES?7 0 + PHRASE27>
1197 <SET RES?7 %<> (TYPE FALSE)>
1198 <PUTUV OP-INFO5 2 X22>
1202 <VEQUAL? BRANCH?9 0 + PHRASE28>
1203 <SET BRANCH?9 %<> (TYPE FALSE)>
1204 <PUTUV OP-INFO5 4 X22>
1208 <EQUAL? X22 '- + BOOL30>
1209 <EQUAL? X22 '+ - PHRASE29>
1211 <PUTUV OP-INFO5 5 X22>
1213 <SET BRANCH?9 'T (TYPE ATOM)>
1216 <TYPE? X22 <TYPE-CODE RES-IND> - PHRASE31>
1217 <SET RES?7 'T (TYPE ATOM)>
1220 <EMPUV? ARGVEC6 + PHRASE37 (TYPE VECTOR)>
1221 <PUTUV ARGVEC6 1 X22>
1223 <RESTUV ARGVEC6 1 = ARGVEC6 (TYPE VECTOR)>
1226 <NTHL X22 1 = TEMP35>
1227 <EQUAL? TEMP35 'TYPE + BOOL34>
1229 <NTHL X22 1 = TEMP35>
1230 <EQUAL? TEMP35 'STRUCTURE-TYPE - PHRASE33>
1233 <PUTUV OP-INFO5 3 X22>
1237 <NTHL X22 1 = TEMP35>
1238 <EQUAL? TEMP35 'BRANCH-FALSE - PHRASE36>
1240 <RESTL X22 1 = TEMP35 (TYPE LIST)>
1242 <NTHL TEMP35 1 = TEMP35>
1243 <PUTUV OP-INFO5 4 TEMP35>
1245 <PUTUV OP-INFO5 5 '- (TYPE ATOM)>
1248 <NTHL X22 1 = TEMP35>
1249 <EQUAL? TEMP35 'BRANCH-TRUE - PHRASE37>
1251 <RESTL X22 1 = TEMP35 (TYPE LIST)>
1253 <NTHL TEMP35 1 = TEMP35>
1254 <PUTUV OP-INFO5 4 TEMP35>
1256 <PUTUV OP-INFO5 5 '+ (TYPE ATOM)>
1258 <RESTL TEMP21 1 = TEMP21 (TYPE LIST)>
1266 <GFCN
\1aWILL-DIE? ("VALUE" <OR ATOM FALSE> ANY "OPTIONAL" LIST ATOM) ARG7 MIML8 BEG-LABEL9>
1267 <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
1273 <TEMP TEMP17 TEMP25 TEMP27:FIX ITM33 NXT32 XP104 X105 LABEL13>
1275 <TYPE? MIML8 <TYPE-CODE UNBOUND> - TAG15>
1276 <GEN-LVAL 'CODPTR = MIML8>
1278 <GEN-LVAL 'CODPTR = TEMP17>
1279 <EQUAL? TEMP17 MIML8 - PHRASE23>
1280 <GVAL 'FLUSH-NEXT = TEMP17>
1283 <GVAL 'FLUSH-NEXT = TEMP25>
1287 <CALL '
\1aLENGTH 1 = TEMP27>
1288 <LENL MIML8 = TEMP17 (TYPE FIX)>
1289 <SUB TEMP27 TEMP17 = TEMP27 (TYPE FIX)>
1291 <SUB TEMP25 TEMP27 = TEMP17 (TYPE FIX)>
1292 <DEAD TEMP25 TEMP27>
1296 <GVAL 'LOOKAHEAD? = TEMP17>
1297 <TYPE? TEMP17 <TYPE-CODE FALSE> + EXIT31>
1301 <EMPL? MIML8 - PHRASE38 (TYPE LIST)>
1304 <EMPL? MIML8 + TAG41>
1305 <RESTL MIML8 1 = TEMP25 (TYPE LIST)>
1306 <EMPL? TEMP25 - PHRASE53>
1309 <NTHL MIML8 1 = ITM33>
1310 <TYPE? ITM33 <TYPE-CODE FORM> - TAG47>
1311 <NTHL ITM33 1 = TEMP25>
1312 <EQUAL? TEMP25 'JUMP!-MIMOP + PHRASE53>
1315 <LOOP (TEMP25 VALUE)>
1317 <NTHL TEMP25 1 = TEMP17>
1318 <TYPE? TEMP17 <TYPE-CODE ATOM> - TAG46>
1319 <VEQUAL? TEMP17 '+ + PHRASE53>
1322 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
1323 <EMPL? TEMP25 - TAG45>
1325 <LOOP (TEMP25 VALUE)>
1327 <NTHL TEMP25 1 = TEMP17>
1328 <TYPE? TEMP17 <TYPE-CODE ATOM> - TAG49>
1329 <VEQUAL? TEMP17 '- + PHRASE53>
1332 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
1333 <EMPL? TEMP25 - TAG48>
1335 <TYPE? ITM33 <TYPE-CODE FORM> - PHRASE51>
1336 <NTHL ITM33 1 = TEMP25>
1337 <EQUAL? TEMP25 'RETURN!-MIMOP - PHRASE51>
1339 <RESTL ITM33 1 = TEMP25 (TYPE LIST)>
1341 <NTHL TEMP25 1 = TEMP25>
1342 <EQUAL? TEMP25 ARG7 - PHRASE51>
1348 <NTHL MIML8 1 = NXT32>
1349 <TYPE? NXT32 <TYPE-CODE ATOM> - PHRASE68>
1350 <FRAME '
\1aGET-LREF>
1353 <CALL '
\1aGET-LREF 2 = ITM33>
1354 <NTHUV ITM33 7 = TEMP25 (TYPE LIST)>
1355 <TYPE? ARG7 <TYPE-CODE VARTBL> - PHRASE57>
1356 <EMPL? TEMP25 + PHRASE57>
1357 <LOOP (ARG7 VALUE) (TEMP25 VALUE)>
1359 <NTHL TEMP25 1 = TEMP17>
1360 <VEQUAL? TEMP17 ARG7 + TAG58>
1362 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
1363 <EMPL? TEMP25 - TAG59>
1368 <NTHUV ITM33 8 = TEMP25 (TYPE LIST)>
1369 <TYPE? ARG7 <TYPE-CODE VARTBL> - PHRASE61>
1370 <EMPL? TEMP25 + PHRASE61>
1371 <LOOP (ARG7 VALUE) (TEMP25 VALUE)>
1373 <NTHL TEMP25 1 = TEMP17>
1374 <VEQUAL? TEMP17 ARG7 + TAG62>
1376 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
1377 <EMPL? TEMP25 - TAG63>
1382 <FRAME '
\1aWILL-DIE?>
1384 <RESTL MIML8 1 = STACK (TYPE LIST)>
1388 <CALL '
\1aWILL-DIE? 3 = TEMP25>
1389 <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE66>
1391 <NTHUV ITM33 8 = TEMP25 (TYPE LIST)>
1392 <CONS ARG7 TEMP25 = TEMP25>
1394 <PUTUV ITM33 8 TEMP25 (TYPE LIST)>
1398 <NTHUV ITM33 7 = TEMP25 (TYPE LIST)>
1399 <CONS ARG7 TEMP25 = TEMP25>
1401 <PUTUV ITM33 7 TEMP25 (TYPE LIST)>
1405 <TYPE? NXT32 <TYPE-CODE FORM> - PHRASE188>
1406 <SUB TEMP27 1 = TEMP27 (TYPE FIX)>
1407 <LESS? TEMP27 0 - PHRASE188 (TYPE FIX)>
1411 <CALL '
\1aGETPROP 2 = TEMP25>
1412 <TYPE? TEMP25 <TYPE-CODE FALSE> - PHRASE188>
1414 <NTHL NXT32 1 = ITM33>
1415 <EQUAL? ITM33 'DEAD!-MIMOP - PHRASE75>
1416 <RESTL NXT32 1 = TEMP25 (TYPE LIST)>
1418 <CHTYPE TEMP25 <TYPE-CODE LIST> = TEMP25>
1419 <TYPE ARG7 = TEMP17>
1420 <EMPL? TEMP25 + PHRASE188>
1421 <LOOP (ARG7 VALUE) (TEMP17 VALUE) (TEMP25 VALUE)>
1423 <NTHL TEMP25 1 = ITM33>
1424 <TYPE? ITM33 TEMP17 - TAG80>
1425 <VEQUAL? ITM33 ARG7 + TAG78>
1428 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
1429 <EMPL? TEMP25 - TAG79>
1434 <EQUAL? ITM33 'RETURN!-MIMOP - PHRASE82>
1435 <RESTL NXT32 1 = TEMP25 (TYPE LIST)>
1437 <NTHL TEMP25 1 = TEMP25>
1438 <EQUAL? TEMP25 ARG7 + TAG83>
1444 <EQUAL? ITM33 'END!-MIMOP - PHRASE85>
1447 <EQUAL? ITM33 'SET!-MIMOP - PHRASE86>
1448 <RESTL NXT32 1 = TEMP25 (TYPE LIST)>
1449 <NTHL TEMP25 1 = TEMP25>
1450 <EQUAL? TEMP25 ARG7 - PHRASE88>
1454 <RESTL NXT32 1 = TEMP25 (TYPE LIST)>
1456 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
1457 <NTHL TEMP25 1 = TEMP25>
1458 <EQUAL? TEMP25 ARG7 - PHRASE188>
1462 <EQUAL? ITM33 'SETLR!-MIMOP - PHRASE90>
1463 <RESTL NXT32 1 = TEMP25 (TYPE LIST)>
1464 <NTHL TEMP25 1 = TEMP25>
1465 <EQUAL? TEMP25 ARG7 - PHRASE90>
1469 <EQUAL? ITM33 'JUMP!-MIMOP - PHRASE94>
1470 <SET TEMP17 'T (TYPE ATOM)>
1473 <SET TEMP17 %<> (TYPE FALSE)>
1475 <CHTYPE NXT32 <TYPE-CODE LIST> = TEMP25>
1479 <EMPL? TEMP25 + MAPAP100>
1481 <NTHL XP104 1 = X105>
1482 <TYPE? X105 <TYPE-CODE RES-IND> - PHRASE111>
1483 <RESTL XP104 1 = TEMP25 (TYPE LIST)>
1485 <NTHL TEMP25 1 = X105>
1487 <EQUAL? X105 ARG7 - MAPAP100>
1491 <EQUAL? X105 ARG7 - PHRASE112>
1495 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
1498 <EQUAL? ITM33 'DISPATCH!-MIMOP - PHRASE114>
1499 <RESTL NXT32 1 = TEMP17 (TYPE LIST)>
1501 <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
1502 <RESTL TEMP17 1 = X105 (TYPE LIST)>
1504 <CHTYPE X105 <TYPE-CODE LIST> = X105>
1508 <EMPL? X105 + PHRASE188>
1509 <NTHL X105 1 = TEMP25>
1510 <EQUAL? TEMP25 BEG-LABEL9 + PHRASE144>
1512 <TYPE TEMP25 = TEMP17>
1513 <EMPL? XP104 + TAG127>
1514 <LOOP (TEMP25 VALUE) (TEMP17 VALUE) (XP104 VALUE)>
1516 <NTHL XP104 1 = NXT32>
1517 <TYPE? NXT32 TEMP17 - TAG130>
1518 <VEQUAL? NXT32 TEMP25 + TAG128>
1521 <RESTL XP104 1 = XP104 (TYPE LIST)>
1522 <EMPL? XP104 - TAG129>
1524 <SET XP104 %<> (TYPE FALSE)>
1526 <VEQUAL? XP104 0 + PHRASE126>
1527 <FRAME '
\1aGET-LREF>
1531 <CALL '
\1aGET-LREF 2 = ITM33>
1532 <NTHUV ITM33 7 = TEMP17 (TYPE LIST)>
1533 <TYPE? ARG7 <TYPE-CODE VARTBL> - PHRASE134>
1534 <EMPL? TEMP17 + PHRASE134>
1535 <LOOP (ARG7 VALUE) (TEMP17 VALUE)>
1537 <NTHL TEMP17 1 = NXT32>
1538 <VEQUAL? NXT32 ARG7 + TAG135>
1540 <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
1541 <EMPL? TEMP17 - TAG136>
1546 <NTHUV ITM33 8 = TEMP17 (TYPE LIST)>
1547 <TYPE? ARG7 <TYPE-CODE VARTBL> - TAG138>
1548 <EMPL? TEMP17 + TAG138>
1549 <LOOP (ARG7 VALUE) (TEMP17 VALUE)>
1551 <NTHL TEMP17 1 = NXT32>
1552 <VEQUAL? NXT32 ARG7 + PHRASE144>
1554 <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
1555 <EMPL? TEMP17 - TAG139>
1557 <FRAME '
\1aWILL-DIE?>
1559 <RESTL XP104 1 = STACK (TYPE LIST)>
1561 <CALL '
\1aWILL-DIE? 2 = TEMP17>
1562 <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE141>
1564 <NTHUV ITM33 8 = TEMP17 (TYPE LIST)>
1565 <CONS ARG7 TEMP17 = TEMP17>
1566 <PUTUV ITM33 8 TEMP17 (TYPE LIST)>
1570 <NTHUV ITM33 7 = TEMP17 (TYPE LIST)>
1571 <CONS ARG7 TEMP17 = TEMP17>
1573 <PUTUV ITM33 7 TEMP17 (TYPE LIST)>
1579 <RESTL X105 1 = X105 (TYPE LIST)>
1582 <EQUAL? ITM33 'ICALL!-MIMOP - BOOL147>
1587 <RESTL NXT32 1 = NXT32 (TYPE LIST)>
1588 <CHTYPE NXT32 <TYPE-CODE LIST> = NXT32>
1590 <EMPL? X105 + TAG148>
1593 <NTHL X105 1 = TEMP25>
1594 <TYPE? TEMP25 <TYPE-CODE ATOM> - TAG151>
1595 <VEQUAL? TEMP25 '+ + TAG149>
1598 <RESTL X105 1 = X105 (TYPE LIST)>
1599 <EMPL? X105 - TAG150>
1601 <SET XP104 %<> (TYPE FALSE)>
1607 <VEQUAL? XP104 0 - BOOL146>
1609 <EMPL? X105 + TAG153>
1612 <NTHL X105 1 = TEMP25>
1613 <TYPE? TEMP25 <TYPE-CODE ATOM> - TAG156>
1614 <VEQUAL? TEMP25 '- + TAG154>
1617 <RESTL X105 1 = X105 (TYPE LIST)>
1618 <EMPL? X105 - TAG155>
1620 <SET XP104 %<> (TYPE FALSE)>
1626 <VEQUAL? XP104 0 - BOOL146>
1627 <EQUAL? ITM33 'NTHR!-MIMOP - PHRASE188>
1631 <LOOP (ITM33 VALUE)>
1633 <RESTL ITM33 1 = X105 (TYPE LIST)>
1634 <EMPL? X105 + TAG160>
1639 <NTHL ITM33 1 = ITM33>
1640 <TYPE? ITM33 <TYPE-CODE LIST> - PHRASE188>
1641 <NTHL ITM33 1 = X105>
1642 <EQUAL? X105 'BRANCH-FALSE - PHRASE188>
1644 <RESTL ITM33 1 = XP104 (TYPE LIST)>
1647 <RESTL XP104 1 = NXT32 (TYPE LIST)>
1649 <NTHL NXT32 1 = LABEL13>
1652 <TYPE LABEL13 = X105>
1653 <LOOP (LABEL13 VALUE) (X105 VALUE) (NXT32 VALUE)>
1655 <NTHL NXT32 1 = TEMP25>
1656 <TYPE? TEMP25 X105 - TAG166>
1657 <VEQUAL? TEMP25 LABEL13 + TAG164>
1660 <RESTL NXT32 1 = NXT32 (TYPE LIST)>
1661 <EMPL? NXT32 - TAG165>
1662 <SET XP104 %<> (TYPE FALSE)>
1668 <VEQUAL? XP104 0 + PHRASE162>
1669 <FRAME '
\1aGET-LREF>
1672 <CALL '
\1aGET-LREF 2 = ITM33>
1673 <EQUAL? LABEL13 BEG-LABEL9 - PHRASE170>
1675 <VEQUAL? TEMP17 0 + PHRASE188>
1679 <NTHUV ITM33 7 = NXT32 (TYPE LIST)>
1680 <TYPE? ARG7 <TYPE-CODE VARTBL> - PHRASE173>
1681 <EMPL? NXT32 + PHRASE173>
1682 <LOOP (ARG7 VALUE) (NXT32 VALUE)>
1684 <NTHL NXT32 1 = X105>
1685 <VEQUAL? X105 ARG7 + TAG174>
1687 <RESTL NXT32 1 = NXT32 (TYPE LIST)>
1688 <EMPL? NXT32 - TAG175>
1693 <NTHUV ITM33 8 = NXT32 (TYPE LIST)>
1694 <TYPE? ARG7 <TYPE-CODE VARTBL> - PHRASE177>
1695 <EMPL? NXT32 + PHRASE177>
1696 <LOOP (ARG7 VALUE) (NXT32 VALUE)>
1698 <NTHL NXT32 1 = X105>
1699 <VEQUAL? X105 ARG7 + TAG178>
1701 <RESTL NXT32 1 = NXT32 (TYPE LIST)>
1702 <EMPL? NXT32 - TAG179>
1705 <VEQUAL? TEMP17 0 + PHRASE188>
1709 <FRAME '
\1aWILL-DIE?>
1711 <RESTL XP104 1 = STACK (TYPE LIST)>
1713 <CALL '
\1aWILL-DIE? 2 = NXT32>
1714 <TYPE? NXT32 <TYPE-CODE FALSE> + PHRASE183>
1716 <NTHUV ITM33 8 = NXT32 (TYPE LIST)>
1717 <CONS ARG7 NXT32 = NXT32>
1718 <PUTUV ITM33 8 NXT32 (TYPE LIST)>
1720 <VEQUAL? TEMP17 0 + PHRASE188>
1724 <NTHUV ITM33 7 = NXT32 (TYPE LIST)>
1725 <CONS ARG7 NXT32 = NXT32>
1727 <PUTUV ITM33 7 NXT32 (TYPE LIST)>
1733 <RESTL MIML8 1 = MIML8 (TYPE LIST)>
1743 <GFCN
\1aNTH-AOS-PUT-GEN ("VALUE" <OR ATOM !<FALSE>> ATOM <OR ATOM FALSE> ANY ANY ANY ANY ANY ANY ANY ANY ANY ANY ANY ANY ANY) NTHINS4 INCINS5 PUTINS6 STRUC17 OFFSET18 STRUC29 OFFSET210 AMOUNT11 CODELIST12 ILDB?13 IDPB?14 STYPE115 STYPE216 ELTYPE117 ELTYPE218>
1744 <TEMP TEMP26 ADDRTUP121:TUPLE ADDRTUP222:TUPLE (SELF?24 %<>) TEMP48 TEMP86 SAC220>
1746 <USBLOCK <TYPE-CODE TUPLE> 4 = ADDRTUP121>
1747 <SET TEMP26 ADDRTUP121>
1748 <LOOP (TEMP26 VALUE LENGTH)>
1750 <EMPUV? TEMP26 + ISTRE28>
1751 <PUTUV TEMP26 1 %<>>
1752 <RESTUV TEMP26 1 = TEMP26>
1755 <USBLOCK <TYPE-CODE TUPLE> 4 = ADDRTUP222>
1756 <SET TEMP26 ADDRTUP222>
1757 <LOOP (TEMP26 VALUE LENGTH)>
1759 <EMPUV? TEMP26 + ISTRE30>
1760 <PUTUV TEMP26 1 %<>>
1761 <RESTUV TEMP26 1 = TEMP26>
1764 <EQUAL? STRUC17 STRUC29 + TAG32>
1765 <SET TEMP26 %<> (TYPE FALSE)>
1768 <EQUAL? OFFSET18 OFFSET210 + TAG33>
1769 <SET TEMP26 %<> (TYPE FALSE)>
1772 <TYPE? ILDB?13 <TYPE-CODE FALSE> + TAG34>
1773 <SET TEMP26 %<> (TYPE FALSE)>
1776 <TYPE? IDPB?14 <TYPE-CODE FALSE> - TAG35>
1777 <SET TEMP26 'T (TYPE ATOM)>
1780 <SET TEMP26 %<> (TYPE FALSE)>
1782 <SET SELF?24 TEMP26>
1784 <TYPE? OFFSET210 <TYPE-CODE FALSE> + TAG56>
1785 <TYPE? SELF?24 <TYPE-CODE FALSE> - TAG56>
1786 <TYPE? INCINS5 <TYPE-CODE FALSE> + TAG56>
1787 <TYPE? ILDB?13 <TYPE-CODE FALSE> + BOOL42>
1788 <EQUAL? STYPE115 'VECTOR + BOOL39>
1790 <TYPE? IDPB?14 <TYPE-CODE FALSE> + BOOL43>
1791 <EQUAL? STYPE216 'VECTOR + BOOL39>
1793 <SET TEMP26 [VECTOR LIST UVECTOR] (TYPE VECTOR)>
1794 <TYPE? STYPE115 <TYPE-CODE ATOM> - TAG49>
1795 <LOOP (STYPE115 VALUE) (TEMP26 LENGTH VALUE)>
1797 <NTHUV TEMP26 1 = TEMP48>
1798 <VEQUAL? TEMP48 STYPE115 + TAG45>
1800 <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
1801 <EMPUV? TEMP26 - TAG46>
1804 <SET TEMP26 [VECTOR LIST UVECTOR] (TYPE VECTOR)>
1805 <TYPE? STYPE216 <TYPE-CODE ATOM> - BOOL39>
1806 <LOOP (STYPE216 VALUE) (TEMP26 LENGTH VALUE)>
1808 <NTHUV TEMP26 1 = TEMP48>
1809 <VEQUAL? TEMP48 STYPE216 + TAG49>
1811 <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
1812 <EMPUV? TEMP26 - TAG50>
1815 <SET TEMP26 [VECTOR LIST UVECTOR] (TYPE VECTOR)>
1816 <TYPE? STYPE216 <TYPE-CODE ATOM> - TAG56>
1817 <LOOP (STYPE216 VALUE) (TEMP26 LENGTH VALUE)>
1819 <NTHUV TEMP26 1 = TEMP48>
1820 <VEQUAL? TEMP48 STYPE216 + TAG53>
1822 <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
1823 <EMPUV? TEMP26 - TAG54>
1826 <SET TEMP26 [VECTOR LIST UVECTOR] (TYPE VECTOR)>
1827 <TYPE? STYPE115 <TYPE-CODE ATOM> - BOOL39>
1828 <LOOP (STYPE115 VALUE) (TEMP26 LENGTH VALUE)>
1830 <NTHUV TEMP26 1 = TEMP48>
1831 <VEQUAL? TEMP48 STYPE115 + TAG56>
1833 <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
1834 <EMPUV? TEMP26 - TAG57>
1837 <TYPE? ILDB?13 <TYPE-CODE FALSE> + TAG65>
1838 <TYPE? IDPB?14 <TYPE-CODE FALSE> + TAG65>
1839 <EQUAL? STYPE115 STYPE216 + TAG65>
1840 <SET TEMP26 [STRING BYTES UVECTOR] (TYPE VECTOR)>
1841 <TYPE? STYPE115 <TYPE-CODE ATOM> - BOOL39>
1842 <LOOP (STYPE115 VALUE) (TEMP26 LENGTH VALUE)>
1844 <NTHUV TEMP26 1 = TEMP48>
1845 <VEQUAL? TEMP48 STYPE115 + TAG62>
1847 <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
1848 <EMPUV? TEMP26 - TAG63>
1851 <SET TEMP26 [STRING BYTES UVECTOR] (TYPE VECTOR)>
1852 <TYPE? STYPE216 <TYPE-CODE ATOM> - BOOL39>
1853 <LOOP (STYPE216 VALUE) (TEMP26 LENGTH VALUE)>
1855 <NTHUV TEMP26 1 = TEMP48>
1856 <VEQUAL? TEMP48 STYPE216 + TAG65>
1858 <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
1859 <EMPUV? TEMP26 - TAG66>
1862 <TYPE? ILDB?13 <TYPE-CODE FALSE> + BOOL68>
1863 <TYPE? OFFSET210 <TYPE-CODE FIX> - BOOL39>
1865 <TYPE? IDPB?14 <TYPE-CODE FALSE> + PHRASE38>
1866 <TYPE? OFFSET18 <TYPE-CODE FIX> + PHRASE38>
1868 <SET TEMP26 %<> (TYPE FALSE)>
1871 <TYPE? PUTINS6 <TYPE-CODE FALSE> + PHRASE71>
1872 <FRAME '
\1aFLUSH-TO>
1875 <GEN-LVAL 'CODPTR = STACK>
1876 <CALL '
\1aFLUSH-TO 2>
1879 <FRAME '
\1aFLUSH-TO>
1880 <GEN-LVAL 'CODPTR = TEMP26>
1882 <GEN-LVAL 'CODPTR = STACK>
1883 <CALL '
\1aLENGTH 1 = TEMP48>
1887 <CALL '
\1aLENGTH 1 = TEMP86>
1888 <SUB TEMP48 TEMP86 = TEMP48 (TYPE FIX)>
1890 <SUB TEMP48 1 = TEMP48 (TYPE FIX)>
1891 <GRTR? TEMP48 0 - RESTL88 (TYPE FIX)>
1892 <LOOP (TEMP26 VALUE) (TEMP48 VALUE)>
1895 <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
1896 <SUB TEMP48 1 = TEMP48 (TYPE FIX)>
1897 <GRTR? TEMP48 0 + RESTL87 (TYPE FIX)>
1901 <CHTYPE TEMP86 <TYPE-CODE LIST> = STACK>
1903 <GEN-LVAL 'CODPTR = STACK>
1904 <CALL '
\1aFLUSH-TO 2>
1906 <FRAME '
\1aVAR-VALUE-IN-AC?>
1908 <CALL '
\1aVAR-VALUE-IN-AC? 1 = TEMP26>
1909 <TYPE? TEMP26 <TYPE-CODE FALSE> - PHRASE92>
1910 <FRAME '
\1aLOAD-VAR>
1915 <CALL '
\1aLOAD-VAR 4 = TEMP26>
1917 <FRAME '
\1aPROTECT-USE>
1919 <CALL '
\1aPROTECT-USE 1>
1920 <TYPE? PUTINS6 <TYPE-CODE FALSE> + PHRASE102>
1921 <TYPE? SELF?24 <TYPE-CODE FALSE> - PHRASE102>
1922 <EQUAL? STRUC17 STRUC29 - PHRASE100>
1923 <EQUAL? STYPE115 'LIST + PHRASE100>
1927 <FRAME '
\1aVAR-VALUE-IN-AC?>
1929 <CALL '
\1aVAR-VALUE-IN-AC? 1 = SAC220>
1930 <TYPE? SAC220 <TYPE-CODE FALSE> - PHRASE102>
1931 <FRAME '
\1aLOAD-VAR>
1936 <CALL '
\1aLOAD-VAR 4 = SAC220>
1937 <FRAME '
\1aPROTECT-USE>
1939 <CALL '
\1aPROTECT-USE 1>
1941 <FRAME '
\1aGET-ADDR>
1950 <TYPE? INCINS5 <TYPE-CODE FALSE> - TAG107>
1951 <SET TEMP48 'T (TYPE ATOM)>
1954 <SET TEMP48 %<> (TYPE FALSE)>
1958 <CALL '
\1aGET-ADDR 8>
1959 <TYPE? PUTINS6 <TYPE-CODE FALSE> + COND112>
1960 <TYPE? SELF?24 <TYPE-CODE FALSE> - COND112>
1961 <NTHUV ADDRTUP121 3 = TEMP48>
1962 <TYPE? TEMP48 <TYPE-CODE FALSE> + PHRASE113>
1964 <EQUAL? OFFSET18 OFFSET210 - PHRASE113>
1966 <VEQUAL? STYPE115 'VECTOR - BOOL116>
1967 <EQUAL? STYPE216 'VECTOR + BOOL115>
1969 <VEQUAL? STYPE115 'VECTOR + PHRASE113>
1970 <EQUAL? STYPE216 'VECTOR + PHRASE113>
1972 <FRAME '
\1aGET-ADDR>
1981 <NTHUV ADDRTUP121 3 = STACK>
1982 <TYPE? INCINS5 <TYPE-CODE FALSE> - TAG119>
1983 <SET TEMP48 'T (TYPE ATOM)>
1986 <SET TEMP48 %<> (TYPE FALSE)>
1990 <CALL '
\1aGET-ADDR 8>
1993 <FRAME '
\1aGET-ADDR>
2003 <TYPE? INCINS5 <TYPE-CODE FALSE> - TAG122>
2004 <SET TEMP48 'T (TYPE ATOM)>
2007 <SET TEMP48 %<> (TYPE FALSE)>
2011 <CALL '
\1aGET-ADDR 8>
2013 <TYPE? INCINS5 <TYPE-CODE FALSE> - PHRASE125>
2014 <FRAME '
\1aMOVE-ELT>
2026 <CALL '
\1aMOVE-ELT 7>
2029 <GVAL 'ARITH = TEMP48>
2030 <EMPUV? TEMP48 + PHRASE127>
2031 <LOOP (INCINS5 VALUE) (TEMP48 LENGTH VALUE)>
2033 <NTHUV TEMP48 1 = TEMP26>
2034 <VEQUAL? TEMP26 INCINS5 + TAG128>
2036 <RESTUV TEMP48 1 = TEMP48 (TYPE VECTOR)>
2037 <EMPUV? TEMP48 - TAG129>
2040 <FRAME '
\1aDO-ARITH>
2045 <NTHUV ADDRTUP121 1 = STACK>
2047 <TYPE? PUTINS6 <TYPE-CODE FALSE> + PHRASE134>
2049 <NTHUV ADDRTUP222 1 = TEMP48>
2053 <SET TEMP48 STRUC29>
2060 <CALL '
\1aDO-ARITH 6>
2063 <FRAME '
\1aDO-ARITH>
2066 <NTHUV ADDRTUP121 2 = STACK>
2067 <NTHUV ADDRTUP222 2 = STACK>
2070 <CALL '
\1aDO-ARITH 6>
2071 <TYPE? AMOUNT11 <TYPE-CODE FIX> - PHRASE139>
2072 <FRAME '
\1aDO-ARITH>
2074 <VEQUAL? INCINS5 'RESTUV!-MIMOP - PHRASE142>
2076 <LSH AMOUNT11 3 = STACK (TYPE FIX)>
2078 <CALL '
\1aMA-IMM 1 = TEMP48>
2081 <VEQUAL? INCINS5 'RESTUU!-MIMOP - PHRASE144>
2084 <LSH AMOUNT11 2 = STACK (TYPE FIX)>
2086 <CALL '
\1aMA-IMM 1 = TEMP48>
2092 <CALL '
\1aMA-IMM 1 = TEMP48>
2096 <NTHUV ADDRTUP121 1 = STACK>
2098 <NTHUV ADDRTUP222 1 = STACK>
2103 <CALL '
\1aDO-ARITH 6>
2106 <VEQUAL? INCINS5 'RESTUS!-MIMOP + BOOL150>
2107 <VEQUAL? INCINS5 'RESTUB!-MIMOP - PHRASE149>
2109 <FRAME '
\1aVAR-VALUE-ADDRESS>
2112 <CALL '
\1aVAR-VALUE-ADDRESS 1 = TEMP26>
2115 <FRAME '
\1aVAR-VALUE-IN-AC?>
2117 <CALL '
\1aVAR-VALUE-IN-AC? 1 = TEMP26>
2118 <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE152>
2122 <CALL '
\1aMUNG-AC 2>
2123 <NTHUV TEMP26 2 = TEMP48 (TYPE FIX)>
2125 <OR TEMP48 #WORD *120* = TEMP48>
2126 <LSH TEMP48 24 = TEMP48 (TYPE FIX)>
2127 <CHTYPE TEMP48 <TYPE-CODE EFF-ADDR> = TEMP26>
2131 <VEQUAL? INCINS5 'RESTUV!-MIMOP - PHRASE157>
2135 <CALL '
\1aMA-IMM 1 = TEMP48>
2140 <CALL '
\1aMA-IMM 1 = TEMP48>
2151 <CALL '
\1aGET-AC 1 = TEMP26>
2154 <VEQUAL? INCINS5 'RESTUV!-MIMOP - PHRASE164>
2158 <CALL '
\1aMA-IMM 1 = TEMP48>
2163 <CALL '
\1aMA-IMM 1 = TEMP48>
2167 <FRAME '
\1aVAR-VALUE-ADDRESS>
2170 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
2171 <NTHUV TEMP26 2 = TEMP48 (TYPE FIX)>
2173 <OR TEMP48 #WORD *120* = TEMP48>
2174 <LSH TEMP48 24 = TEMP48 (TYPE FIX)>
2175 <CHTYPE TEMP48 <TYPE-CODE EFF-ADDR> = TEMP26>
2180 <FRAME '
\1aDO-ARITH>
2184 <NTHUV ADDRTUP121 1 = STACK>
2186 <NTHUV ADDRTUP222 1 = STACK>
2191 <CALL '
\1aDO-ARITH 6>
2193 <TYPE? ILDB?13 <TYPE-CODE FALSE> + PHRASE170>
2194 <FRAME '
\1aREST-BLOCK-GEN>
2204 <CALL '
\1aREST-BLOCK-GEN 6>
2206 <TYPE? IDPB?14 <TYPE-CODE FALSE> + PHRASE173>
2207 <FRAME '
\1aREST-BLOCK-GEN>
2217 <CALL '
\1aREST-BLOCK-GEN 6>
2219 <SET TEMP26 'NORMAL (TYPE ATOM)>
2224 <END
\1aNTH-AOS-PUT-GEN>
2227 <GFCN
\1aMOVE-ELT ("VALUE" ANY TUPLE TUPLE <OR ATOM FALSE> <OR ATOM FALSE> <OR ATOM FALSE> <OR ATOM FALSE> ANY) TUP14 TUP25 ST16 ST27 EL18 EL29 IDPB?10>
2228 <TEMP TEMP20 TEMP21 INS11:FIX ADDR112 ADDR213>
2230 <SET TEMP20 [VECTOR LIST] (TYPE VECTOR)>
2231 <TYPE? ST16 <TYPE-CODE ATOM> - PHRASE15>
2232 <LOOP (ST16 VALUE) (TEMP20 LENGTH VALUE)>
2234 <NTHUV TEMP20 1 = TEMP21>
2235 <VEQUAL? TEMP21 ST16 + TAG17>
2237 <RESTUV TEMP20 1 = TEMP20 (TYPE VECTOR)>
2238 <EMPUV? TEMP20 - TAG18>
2241 <SET TEMP20 [VECTOR LIST] (TYPE VECTOR)>
2242 <TYPE? ST27 <TYPE-CODE ATOM> - PHRASE15>
2243 <LOOP (ST27 VALUE) (TEMP20 LENGTH VALUE)>
2245 <NTHUV TEMP20 1 = TEMP21>
2246 <VEQUAL? TEMP21 ST27 + TAG22>
2248 <RESTUV TEMP20 1 = TEMP20 (TYPE VECTOR)>
2249 <EMPUV? TEMP20 - TAG23>
2252 <SET INS11 125 (TYPE FIX)>
2253 <NTHUV TUP14 4 = ADDR112>
2255 <NTHUV TUP25 4 = ADDR213>
2258 <NTHUV TUP14 1 = ADDR112>
2260 <NTHUV TUP25 1 = ADDR213>
2261 <SET TEMP20 [VECTOR LIST] (TYPE VECTOR)>
2262 <TYPE? ST16 <TYPE-CODE ATOM> - PHRASE27>
2263 <LOOP (ST16 VALUE) (TEMP20 LENGTH VALUE)>
2265 <NTHUV TEMP20 1 = TEMP21>
2266 <VEQUAL? TEMP21 ST16 + TAG28>
2268 <RESTUV TEMP20 1 = TEMP20 (TYPE VECTOR)>
2269 <EMPUV? TEMP20 - TAG29>
2272 <EQUAL? ST27 'UVECTOR - PHRASE32>
2273 <SET EL29 'FIX (TYPE ATOM)>
2274 <SET INS11 208 (TYPE FIX)>
2277 <SET TEMP20 [STRING BYTES] (TYPE VECTOR)>
2278 <TYPE? ST27 <TYPE-CODE ATOM> - PHRASE70>
2279 <LOOP (ST27 VALUE) (TEMP20 LENGTH VALUE)>
2281 <NTHUV TEMP20 1 = TEMP21>
2282 <VEQUAL? TEMP21 ST27 + TAG34>
2284 <RESTUV TEMP20 1 = TEMP20 (TYPE VECTOR)>
2285 <EMPUV? TEMP20 - TAG35>
2288 <EQUAL? ST27 'STRING - PHRASE38>
2290 <SET EL29 'CHARACTER (TYPE ATOM)>
2293 <SET EL29 'FIX (TYPE ATOM)>
2295 <SET INS11 246 (TYPE FIX)>
2298 <EQUAL? ST16 'UVECTOR - PHRASE39>
2300 <TYPE? IDPB?10 <TYPE-CODE FALSE> + PHRASE41>
2302 <EQUAL? ST27 'VECTOR - PHRASE41>
2305 <FRAME '
\1aTYPE-WORD>
2307 <CALL '
\1aTYPE-WORD 1 = STACK>
2308 <SET TEMP21 2 (TYPE FIX)>
2309 <SET TEMP20 ADDR213>
2310 <LOOP (TEMP20 TYPE VALUE LENGTH) (TEMP21 VALUE)>
2313 <EMPTY? TEMP20 + TAG43>
2314 <NTH1 TEMP20 = STACK>
2315 <REST1 TEMP20 = TEMP20>
2316 <ADD TEMP21 1 = TEMP21 (TYPE FIX)>
2319 <CALL '
\1aEMIT TEMP21>
2322 <SET TEMP21 [VECTOR LIST UVECTOR] (TYPE VECTOR)>
2323 <TYPE? ST27 <TYPE-CODE ATOM> - PHRASE48>
2324 <LOOP (ST27 VALUE) (TEMP21 LENGTH VALUE)>
2326 <NTHUV TEMP21 1 = TEMP20>
2327 <VEQUAL? TEMP20 ST27 + TAG49>
2329 <RESTUV TEMP21 1 = TEMP21 (TYPE VECTOR)>
2330 <EMPUV? TEMP21 - TAG50>
2333 <SET EL29 'FIX (TYPE ATOM)>
2334 <SET INS11 208 (TYPE FIX)>
2337 <EQUAL? ST27 'STRING - PHRASE54>
2339 <SET EL29 'CHARACTER (TYPE ATOM)>
2342 <SET EL29 'FIX (TYPE ATOM)>
2344 <SET INS11 246 (TYPE FIX)>
2347 <TYPE? IDPB?10 <TYPE-CODE FALSE> + PHRASE57>
2349 <EQUAL? ST27 'VECTOR - PHRASE57>
2352 <FRAME '
\1aTYPE-WORD>
2354 <CALL '
\1aTYPE-WORD 1 = STACK>
2355 <SET TEMP20 2 (TYPE FIX)>
2356 <SET TEMP21 ADDR213>
2357 <LOOP (TEMP21 TYPE VALUE LENGTH) (TEMP20 VALUE)>
2360 <EMPTY? TEMP21 + TAG59>
2361 <NTH1 TEMP21 = STACK>
2362 <REST1 TEMP21 = TEMP21>
2363 <ADD TEMP20 1 = TEMP20 (TYPE FIX)>
2366 <CALL '
\1aEMIT TEMP20>
2369 <SET TEMP20 [VECTOR UVECTOR LIST] (TYPE VECTOR)>
2370 <TYPE? ST27 <TYPE-CODE ATOM> - PHRASE64>
2371 <LOOP (ST27 VALUE) (TEMP20 LENGTH VALUE)>
2373 <NTHUV TEMP20 1 = TEMP21>
2374 <VEQUAL? TEMP21 ST27 + TAG65>
2376 <RESTUV TEMP20 1 = TEMP20 (TYPE VECTOR)>
2377 <EMPUV? TEMP20 - TAG66>
2380 <EQUAL? ST27 'UVECTOR - PHRASE69>
2382 <SET EL29 'FIX (TYPE ATOM)>
2384 <SET INS11 154 (TYPE FIX)>
2387 <EQUAL? ST27 'STRING - PHRASE72>
2389 <SET EL29 'CHARACTER (TYPE ATOM)>
2392 <SET EL29 'FIX (TYPE ATOM)>
2394 <SET INS11 144 (TYPE FIX)>
2399 <SET TEMP21 1 (TYPE FIX)>
2400 <SET TEMP20 ADDR112>
2402 <LOOP (TEMP20 TYPE VALUE LENGTH) (TEMP21 VALUE)>
2405 <EMPTY? TEMP20 + TAG73>
2406 <NTH1 TEMP20 = STACK>
2407 <REST1 TEMP20 = TEMP20>
2408 <ADD TEMP21 1 = TEMP21 (TYPE FIX)>
2411 <SET TEMP20 ADDR213>
2413 <LOOP (TEMP20 TYPE VALUE LENGTH) (TEMP21 VALUE)>
2416 <EMPTY? TEMP20 + TAG75>
2417 <NTH1 TEMP20 = STACK>
2418 <REST1 TEMP20 = TEMP20>
2419 <ADD TEMP21 1 = TEMP21 (TYPE FIX)>
2422 <CALL '
\1aEMIT TEMP21>
2424 <TYPE? EL29 <TYPE-CODE FALSE> + TAG80>
2429 <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE82>
2432 <FRAME '
\1aTYPE-WORD>
2435 <CALL '
\1aTYPE-WORD 1 = STACK>
2436 <SET INS11 2 (TYPE FIX)>
2437 <NTHUV TUP25 2 = TEMP20>
2439 <LOOP (TEMP20 TYPE VALUE LENGTH) (INS11 VALUE)>
2442 <EMPTY? TEMP20 + TAG83>
2443 <NTH1 TEMP20 = STACK>
2444 <REST1 TEMP20 = TEMP20>
2445 <ADD INS11 1 = INS11 (TYPE FIX)>
2448 <CALL '
\1aEMIT INS11 = TEMP21>
2456 <GFCN
\1aDO-ARITH ("VALUE" ANY ANY ANY ANY ANY ANY ANY) INS4 AMOUNT5 ADDR16 ADDR27 SELF?8 STYPE19>
2457 <TEMP (VAC10 %<>) RAC11 TEMP27 TEMP28 TEMP29>
2459 <TYPE? SELF?8 <TYPE-CODE FALSE> + PHRASE13>
2462 <TYPE? ADDR27 <TYPE-CODE VARTBL> - PHRASE15>
2463 <FRAME '
\1aVAR-VALUE-IN-AC?>
2465 <CALL '
\1aVAR-VALUE-IN-AC? 1 = RAC11>
2466 <TYPE? RAC11 <TYPE-CODE FALSE> - PHRASE17>
2470 <CALL '
\1aGET-AC 2 = RAC11>
2473 <CALL '
\1aPROTECT 1>
2475 <FRAME '
\1aDEST-DECL>
2478 <GVAL 'FLOATS = TEMP27>
2479 <TYPE INS4 = TEMP28>
2480 <EMPTY? TEMP27 + PHRASE23>
2481 <LOOP (INS4 VALUE) (TEMP28 VALUE) (TEMP27 LENGTH VALUE TYPE)>
2483 <NTH1 TEMP27 = TEMP29>
2484 <TYPE? TEMP29 TEMP28 - TAG26>
2485 <VEQUAL? TEMP29 INS4 + TAG24>
2488 <REST1 TEMP27 = TEMP27>
2489 <EMPTY? TEMP27 - TAG25>
2492 <SET TEMP27 'FLOAT (TYPE ATOM)>
2495 <SET TEMP27 'FIX (TYPE ATOM)>
2499 <CALL '
\1aDEST-DECL 3>
2501 <GVAL 'LOGIC = TEMP27>
2502 <TYPE INS4 = TEMP28>
2503 <EMPUV? TEMP27 + PHRASE32>
2504 <LOOP (INS4 VALUE) (TEMP28 VALUE) (TEMP27 LENGTH VALUE)>
2506 <NTHUV TEMP27 1 = TEMP29>
2507 <TYPE? TEMP29 TEMP28 - TAG35>
2508 <VEQUAL? TEMP29 INS4 + TAG33>
2511 <RESTUV TEMP27 1 = TEMP27 (TYPE VECTOR)>
2512 <EMPUV? TEMP27 - TAG34>
2515 <TYPE? AMOUNT5 <TYPE-CODE FIX> - PHRASE37>
2516 <EQUAL? INS4 'EQV!-MIMOP - PHRASE39>
2517 <XOR AMOUNT5 #WORD *777777777777* = AMOUNT5>
2518 <SET INS4 'XOR!-MIMOP (TYPE ATOM)>
2521 <EQUAL? INS4 'AND!-MIMOP - PHRASE48>
2522 <XOR AMOUNT5 #WORD *777777777777* = AMOUNT5>
2525 <EQUAL? INS4 'EQV!-MIMOP + BOOL42>
2526 <EQUAL? INS4 'AND!-MIMOP - PHRASE48>
2530 <SET TEMP28 2 (TYPE FIX)>
2532 <LOOP (TEMP27 TYPE VALUE LENGTH) (TEMP28 VALUE)>
2535 <EMPTY? TEMP27 + TAG43>
2536 <NTH1 TEMP27 = STACK>
2537 <REST1 TEMP27 = TEMP27>
2538 <ADD TEMP28 1 = TEMP28 (TYPE FIX)>
2544 <CALL '
\1aGET-AC 2 = VAC10>
2546 <CALL '
\1aEMIT TEMP28>
2548 <EQUAL? INS4 'EQV!-MIMOP - PHRASE48>
2549 <SET INS4 'XOR!-MIMOP (TYPE ATOM)>
2551 <TYPE? VAC10 <TYPE-CODE FALSE> + PHRASE50>
2552 <TYPE? ADDR27 <TYPE-CODE VARTBL> - PHRASE52>
2554 <EQUAL? INS4 'AND!-MIMOP - PHRASE55>
2555 <SET TEMP28 203 (TYPE FIX)>
2558 <EQUAL? INS4 'XOR!-MIMOP - PHRASE56>
2559 <SET TEMP28 205 (TYPE FIX)>
2562 <EQUAL? INS4 'OR!-MIMOP + TAG58>
2564 <SET TEMP28 %<> (TYPE FALSE)>
2567 <SET TEMP28 201 (TYPE FIX)>
2571 <NTHUV VAC10 2 = TEMP28 (TYPE FIX)>
2573 <OR TEMP28 #WORD *120* = TEMP28>
2574 <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
2575 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
2577 <FRAME '
\1aVAR-VALUE-ADDRESS>
2580 <CALL '
\1aVAR-VALUE-ADDRESS 1 = TEMP28>
2583 <NTHUV RAC11 2 = TEMP28 (TYPE FIX)>
2585 <OR TEMP28 #WORD *120* = TEMP28>
2586 <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
2587 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
2589 <CALL '
\1aEMIT 4 = TEMP28>
2594 <EQUAL? INS4 'AND!-MIMOP - PHRASE65>
2595 <SET TEMP27 203 (TYPE FIX)>
2598 <EQUAL? INS4 'XOR!-MIMOP - PHRASE66>
2599 <SET TEMP27 205 (TYPE FIX)>
2602 <EQUAL? INS4 'OR!-MIMOP + TAG68>
2604 <SET TEMP27 %<> (TYPE FALSE)>
2607 <SET TEMP27 201 (TYPE FIX)>
2611 <NTHUV VAC10 2 = TEMP27 (TYPE FIX)>
2613 <OR TEMP27 #WORD *120* = TEMP27>
2614 <LSH TEMP27 24 = TEMP27 (TYPE FIX)>
2615 <CHTYPE TEMP27 <TYPE-CODE EFF-ADDR> = STACK>
2617 <FRAME '
\1aVAR-VALUE-ADDRESS>
2620 <CALL '
\1aVAR-VALUE-ADDRESS 1 = TEMP27>
2623 <SET TEMP29 3 (TYPE FIX)>
2626 <LOOP (TEMP27 TYPE VALUE LENGTH) (TEMP29 VALUE)>
2629 <EMPTY? TEMP27 + TAG63>
2630 <NTH1 TEMP27 = STACK>
2631 <REST1 TEMP27 = TEMP27>
2632 <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
2635 <CALL '
\1aEMIT TEMP29 = TEMP28>
2640 <TYPE? SELF?8 <TYPE-CODE FALSE> + PHRASE74>
2643 <EQUAL? INS4 'AND!-MIMOP - PHRASE77>
2644 <SET TEMP29 202 (TYPE FIX)>
2647 <EQUAL? INS4 'XOR!-MIMOP - PHRASE78>
2648 <SET TEMP29 204 (TYPE FIX)>
2651 <EQUAL? INS4 'OR!-MIMOP + TAG80>
2653 <SET TEMP29 %<> (TYPE FALSE)>
2656 <SET TEMP29 200 (TYPE FIX)>
2660 <FRAME '
\1aVAR-VALUE-ADDRESS>
2663 <CALL '
\1aVAR-VALUE-ADDRESS 1 = TEMP29>
2666 <SET TEMP27 2 (TYPE FIX)>
2669 <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP27 VALUE)>
2672 <EMPTY? TEMP29 + TAG75>
2673 <NTH1 TEMP29 = STACK>
2674 <REST1 TEMP29 = TEMP29>
2675 <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
2678 <CALL '
\1aEMIT TEMP27 = TEMP28>
2683 <TYPE? ADDR27 <TYPE-CODE VARTBL> - PHRASE88>
2685 <EQUAL? INS4 'AND!-MIMOP - PHRASE91>
2686 <SET TEMP27 203 (TYPE FIX)>
2689 <EQUAL? INS4 'XOR!-MIMOP - PHRASE92>
2690 <SET TEMP27 205 (TYPE FIX)>
2693 <EQUAL? INS4 'OR!-MIMOP + TAG94>
2695 <SET TEMP27 %<> (TYPE FALSE)>
2698 <SET TEMP27 201 (TYPE FIX)>
2702 <SET TEMP29 3 (TYPE FIX)>
2705 <LOOP (TEMP27 TYPE VALUE LENGTH) (TEMP29 VALUE)>
2708 <EMPTY? TEMP27 + PHRASE98>
2709 <NTH1 TEMP27 = STACK>
2710 <REST1 TEMP27 = TEMP27>
2711 <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
2714 <FRAME '
\1aVAR-VALUE-ADDRESS>
2717 <CALL '
\1aVAR-VALUE-ADDRESS 1 = VAC10>
2720 <NTHUV RAC11 2 = VAC10 (TYPE FIX)>
2722 <OR VAC10 #WORD *120* = VAC10>
2723 <LSH VAC10 24 = VAC10 (TYPE FIX)>
2724 <CHTYPE VAC10 <TYPE-CODE EFF-ADDR> = STACK>
2726 <CALL '
\1aEMIT TEMP29 = TEMP28>
2732 <EQUAL? INS4 'AND!-MIMOP - PHRASE104>
2733 <SET TEMP29 203 (TYPE FIX)>
2736 <EQUAL? INS4 'XOR!-MIMOP - PHRASE105>
2737 <SET TEMP29 205 (TYPE FIX)>
2740 <EQUAL? INS4 'OR!-MIMOP + TAG107>
2742 <SET TEMP29 %<> (TYPE FALSE)>
2745 <SET TEMP29 201 (TYPE FIX)>
2749 <SET TEMP27 2 (TYPE FIX)>
2752 <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP27 VALUE)>
2755 <EMPTY? TEMP29 + PHRASE111>
2756 <NTH1 TEMP29 = STACK>
2757 <REST1 TEMP29 = TEMP29>
2758 <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
2761 <FRAME '
\1aVAR-VALUE-ADDRESS>
2764 <CALL '
\1aVAR-VALUE-ADDRESS 1 = VAC10>
2769 <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP27 VALUE)>
2772 <EMPTY? TEMP29 + TAG109>
2773 <NTH1 TEMP29 = STACK>
2774 <REST1 TEMP29 = TEMP29>
2775 <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
2778 <CALL '
\1aEMIT TEMP27 = TEMP28>
2783 <TYPE? SELF?8 <TYPE-CODE FALSE> + PHRASE115>
2784 <EQUAL? AMOUNT5 1 - PHRASE115>
2786 <FRAME '
\1aPICK-ARITH>
2792 <CALL '
\1aPICK-ARITH 3 = STACK>
2793 <SET VAC10 1 (TYPE FIX)>
2796 <LOOP (TEMP27 TYPE VALUE LENGTH) (VAC10 VALUE)>
2799 <EMPTY? TEMP27 + TAG117>
2800 <NTH1 TEMP27 = STACK>
2801 <REST1 TEMP27 = TEMP27>
2802 <ADD VAC10 1 = VAC10 (TYPE FIX)>
2805 <CALL '
\1aEMIT VAC10 = TEMP28>
2810 <TYPE? SELF?8 <TYPE-CODE FALSE> + PHRASE121>
2813 <FRAME '
\1aPICK-ARITH>
2819 <CALL '
\1aPICK-ARITH 3 = STACK>
2820 <TYPE? AMOUNT5 <TYPE-CODE FIX> - PHRASE125>
2824 <CALL '
\1aMA-IMM 1 = VAC10>
2827 <TYPE? AMOUNT5 <TYPE-CODE FLOAT> - PHRASE127>
2828 <FRAME '
\1aFLOAT-IMM>
2829 <FRAME '
\1aFLOATCONVERT>
2832 <CALL '
\1aFLOATCONVERT 1 = STACK>
2833 <CALL '
\1aFLOAT-IMM 1 = VAC10>
2836 <TYPE? AMOUNT5 <TYPE-CODE VARTBL> - PHRASE130>
2837 <FRAME '
\1aVAR-VALUE-ADDRESS>
2840 <CALL '
\1aVAR-VALUE-ADDRESS 1 = VAC10>
2848 <SET TEMP27 2 (TYPE FIX)>
2851 <LOOP (VAC10 TYPE VALUE LENGTH) (TEMP27 VALUE)>
2854 <EMPTY? VAC10 + TAG122>
2855 <NTH1 VAC10 = STACK>
2856 <REST1 VAC10 = VAC10>
2857 <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
2860 <CALL '
\1aEMIT TEMP27 = TEMP28>
2865 <TYPE? ADDR27 <TYPE-CODE VARTBL> - PHRASE136>
2867 <FRAME '
\1aPICK-ARITH>
2873 <CALL '
\1aPICK-ARITH 3 = STACK>
2874 <TYPE? AMOUNT5 <TYPE-CODE FIX> - PHRASE140>
2878 <CALL '
\1aMA-IMM 1 = TEMP27>
2881 <TYPE? AMOUNT5 <TYPE-CODE FLOAT> - PHRASE142>
2882 <FRAME '
\1aFLOAT-IMM>
2883 <FRAME '
\1aFLOATCONVERT>
2886 <CALL '
\1aFLOATCONVERT 1 = STACK>
2887 <CALL '
\1aFLOAT-IMM 1 = TEMP27>
2890 <TYPE? AMOUNT5 <TYPE-CODE VARTBL> - PHRASE145>
2891 <FRAME '
\1aVAR-VALUE-ADDRESS>
2894 <CALL '
\1aVAR-VALUE-ADDRESS 1 = TEMP27>
2897 <SET TEMP27 AMOUNT5>
2902 <SET VAC10 3 (TYPE FIX)>
2905 <LOOP (TEMP27 TYPE VALUE LENGTH) (VAC10 VALUE)>
2908 <EMPTY? TEMP27 + TAG137>
2909 <NTH1 TEMP27 = STACK>
2910 <REST1 TEMP27 = TEMP27>
2911 <ADD VAC10 1 = VAC10 (TYPE FIX)>
2914 <FRAME '
\1aVAR-VALUE-ADDRESS>
2917 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
2918 <CALL '
\1aEMIT VAC10 = TEMP28>
2924 <FRAME '
\1aPICK-ARITH>
2930 <CALL '
\1aPICK-ARITH 3 = STACK>
2931 <TYPE? AMOUNT5 <TYPE-CODE FIX> - PHRASE154>
2935 <CALL '
\1aMA-IMM 1 = VAC10>
2938 <TYPE? AMOUNT5 <TYPE-CODE FLOAT> - PHRASE156>
2939 <FRAME '
\1aFLOAT-IMM>
2940 <FRAME '
\1aFLOATCONVERT>
2943 <CALL '
\1aFLOATCONVERT 1 = STACK>
2944 <CALL '
\1aFLOAT-IMM 1 = VAC10>
2947 <TYPE? AMOUNT5 <TYPE-CODE VARTBL> - PHRASE159>
2948 <FRAME '
\1aVAR-VALUE-ADDRESS>
2951 <CALL '
\1aVAR-VALUE-ADDRESS 1 = VAC10>
2959 <SET TEMP27 2 (TYPE FIX)>
2962 <LOOP (VAC10 TYPE VALUE LENGTH) (TEMP27 VALUE)>
2965 <EMPTY? VAC10 + TAG151>
2966 <NTH1 VAC10 = STACK>
2967 <REST1 VAC10 = VAC10>
2968 <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
2973 <LOOP (VAC10 TYPE VALUE LENGTH) (TEMP27 VALUE)>
2976 <EMPTY? VAC10 + TAG162>
2977 <NTH1 VAC10 = STACK>
2978 <REST1 VAC10 = VAC10>
2979 <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
2982 <CALL '
\1aEMIT TEMP27 = TEMP28>
2988 <SETG ADDS [[,INST-INCB ,INST-INCW ,INST-INCL] [,INST-ADDB2 ,INST-ADDW2 ,INST-ADDL2] [,INST-ADDB3 ,INST-ADDW3 ,INST-ADDL3]]>
2990 <SETG SUBS [[,INST-DECB ,INST-DECW ,INST-DECL] [,INST-SUBB2 ,INST-SUBW2 ,INST-SUBL2] [,INST-SUBB3 ,INST-SUBW3 ,INST-SUBL3]]>
2992 <SETG MULS [[] [,INST-MULB2 ,INST-MULW2 ,INST-MULL2] [,INST-MULB3 ,INST-MULW3 ,INST-MULL3]]>
2994 <SETG DIVS [[] [,INST-DIVB2 ,INST-DIVW2 ,INST-DIVL2] [,INST-DIVB3 ,INST-DIVW3 ,INST-DIVL3]]>
2996 <SETG FLOAT-OPS [[] [,INST-ADDF2 ,INST-SUBF2 ,INST-MULF2 ,INST-DIVF2] [,INST-ADDF3 ,INST-SUBF3 ,INST-MULF3 ,INST-DIVF3]]>
2998 <GDECL (LOGIC) VECTOR (FLOAT-OPS ADDS SUBS MULS DIVS) <VECTOR [REST VECTOR]>>
3000 <SETG LOGIC '[AND!-MIMOP OR!-MIMOP XOR!-MIMOP EQV!-MIMOP]>
3002 <SETG FLOATS '[ADDF!-MIMOP SUBF!-MIMOP MULF!-MIMOP DIVF!-MIMOP]>
3005 <GFCN
\1aPICK-ARITH ("VALUE" ANY ATOM ATOM FIX) OP4 STYPE5 NUMOPS6>
3006 <TEMP TEMP10 TV7:VECTOR TEMP20>
3008 <VEQUAL? OP4 'ADD!-MIMOP - PHRASE9>
3009 <GVAL 'ADDS = TEMP10>
3010 <NTHUV TEMP10 NUMOPS6 = TV7 (TYPE VECTOR)>
3011 <DEAD TEMP10 NUMOPS6>
3014 <VEQUAL? OP4 'SUB!-MIMOP - PHRASE11>
3015 <GVAL 'SUBS = TEMP10>
3016 <NTHUV TEMP10 NUMOPS6 = TV7 (TYPE VECTOR)>
3017 <DEAD TEMP10 NUMOPS6>
3020 <VEQUAL? OP4 'MUL!-MIMOP - PHRASE12>
3021 <GVAL 'MULS = TEMP10>
3022 <NTHUV TEMP10 NUMOPS6 = TV7 (TYPE VECTOR)>
3023 <DEAD TEMP10 NUMOPS6>
3026 <VEQUAL? OP4 'DIV!-MIMOP - PHRASE13>
3027 <GVAL 'DIVS = TEMP10>
3028 <NTHUV TEMP10 NUMOPS6 = TV7 (TYPE VECTOR)>
3029 <DEAD TEMP10 NUMOPS6>
3032 <GVAL 'FLOAT-OPS = TEMP10>
3033 <NTHUV TEMP10 NUMOPS6 = TV7 (TYPE VECTOR)>
3034 <DEAD TEMP10 NUMOPS6>
3036 <GVAL 'FLOATS = TEMP10>
3037 <EMPTY? TEMP10 + PHRASE16>
3038 <LOOP (OP4 VALUE) (TEMP10 LENGTH VALUE TYPE)>
3040 <NTH1 TEMP10 = TEMP20>
3041 <TYPE? TEMP20 <TYPE-CODE ATOM> - TAG19>
3042 <VEQUAL? TEMP20 OP4 + TAG17>
3045 <REST1 TEMP10 = TEMP10>
3046 <EMPTY? TEMP10 - TAG18>
3049 <VEQUAL? OP4 'ADDF!-MIMOP - PHRASE22>
3050 <NTHUV TV7 1 = TEMP10>
3055 <VEQUAL? OP4 'SUBF!-MIMOP - PHRASE23>
3056 <NTHUV TV7 2 = TEMP10>
3061 <VEQUAL? OP4 'MULF!-MIMOP - PHRASE24>
3062 <NTHUV TV7 3 = TEMP10>
3067 <VEQUAL? OP4 'DIVF!-MIMOP + TAG26>
3071 <NTHUV TV7 4 = TEMP10>
3076 <SET TEMP20 [VECTOR UVECTOR LIST] (TYPE VECTOR)>
3077 <LOOP (STYPE5 VALUE) (TEMP20 LENGTH VALUE)>
3079 <NTHUV TEMP20 1 = TEMP10>
3080 <VEQUAL? TEMP10 STYPE5 + TAG28>
3082 <RESTUV TEMP20 1 = TEMP20 (TYPE VECTOR)>
3083 <EMPUV? TEMP20 - TAG29>
3086 <NTHUV TV7 3 = TEMP10>
3091 <VEQUAL? STYPE5 'WORD - PHRASE32>
3093 <NTHUV TV7 2 = TEMP10>
3098 <NTHUV TV7 1 = TEMP10>
3105 <GFCN
\1aGET-ADDR ("VALUE" <TUPLE <LIST <OR EFF-ADDR LADDR>> [2 ANY]> <TUPLE [3 ANY]> ANY AC <OR FIX VARTBL> ATOM ANY "OPTIONAL" ANY ANY) TUP7 STRUC8 SAC9 OFFSET10 STYPE11 AINC?12 RIDXAC13 FULL?14>
3106 <OPT-DISPATCH 6 %<> OPT4 OPT5 OPT6>
3112 <TEMP TEMP25 IDXAC15 TEMP70>
3114 <VEQUAL? STYPE11 'LIST - PHRASE17>
3115 <EQUAL? OFFSET10 1 + PHRASE17>
3116 <TYPE? OFFSET10 <TYPE-CODE FIX> - PHRASE20>
3117 <FRAME '
\1aLIST-REST-CONSTANT-GEN>
3120 <SUB OFFSET10 1 = STACK (TYPE FIX)>
3122 <CALL '
\1aLIST-REST-CONSTANT-GEN 2 = SAC9>
3125 <FRAME '
\1aLIST-REST-VAR-GEN>
3131 <CALL '
\1aLIST-REST-VAR-GEN 3 = SAC9>
3133 <SET OFFSET10 1 (TYPE FIX)>
3135 <TYPE? AINC?12 <TYPE-CODE FALSE> + PHRASE24>
3137 <NTHUV SAC9 2 = TEMP25 (TYPE FIX)>
3139 <OR TEMP25 #WORD *200* = TEMP25>
3140 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
3141 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = TEMP25>
3142 <CONS TEMP25 () = TEMP25>
3143 <PUTUV TUP7 1 TEMP25>
3148 <TYPE? OFFSET10 <TYPE-CODE FIX> - PHRASE26>
3149 <VEQUAL? OFFSET10 1 - PHRASE28 (TYPE FIX)>
3150 <VEQUAL? STYPE11 'VECTOR + BOOL33>
3151 <VEQUAL? STYPE11 'LIST - PHRASE32>
3154 <NTHUV SAC9 2 = TEMP25 (TYPE FIX)>
3155 <OR TEMP25 #WORD *140* = TEMP25>
3156 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
3157 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = TEMP25>
3158 <CONS TEMP25 () = TEMP25>
3159 <PUTUV TUP7 4 TEMP25>
3164 <CALL '
\1aMA-DISP 2 = TEMP25>
3165 <CONS TEMP25 () = TEMP25>
3166 <PUTUV TUP7 2 TEMP25>
3172 <CALL '
\1aMA-DISP 2 = TEMP25>
3173 <CONS TEMP25 () = TEMP25>
3174 <PUTUV TUP7 1 TEMP25>
3179 <NTHUV SAC9 2 = TEMP25 (TYPE FIX)>
3181 <OR TEMP25 #WORD *140* = TEMP25>
3182 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
3183 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = TEMP25>
3184 <CONS TEMP25 () = TEMP25>
3185 <PUTUV TUP7 1 TEMP25>
3190 <VEQUAL? STYPE11 'VECTOR - PHRASE39>
3193 <SUB OFFSET10 1 = TEMP25 (TYPE FIX)>
3194 <LSH TEMP25 3 = STACK (TYPE FIX)>
3196 <CALL '
\1aMA-DISP 2 = TEMP25>
3197 <CONS TEMP25 () = TEMP25>
3198 <PUTUV TUP7 4 TEMP25>
3202 <SUB OFFSET10 1 = TEMP25 (TYPE FIX)>
3203 <LSH TEMP25 3 = TEMP25 (TYPE FIX)>
3204 <ADD TEMP25 2 = STACK (TYPE FIX)>
3206 <CALL '
\1aMA-DISP 2 = TEMP25>
3207 <CONS TEMP25 () = TEMP25>
3208 <PUTUV TUP7 2 TEMP25>
3213 <SUB OFFSET10 1 = TEMP25 (TYPE FIX)>
3215 <LSH TEMP25 3 = TEMP25 (TYPE FIX)>
3216 <ADD TEMP25 4 = STACK (TYPE FIX)>
3218 <CALL '
\1aMA-DISP 2 = TEMP25>
3219 <CONS TEMP25 () = TEMP25>
3220 <PUTUV TUP7 1 TEMP25>
3225 <VEQUAL? STYPE11 'UVECTOR - PHRASE43>
3230 <SUB OFFSET10 1 = TEMP25 (TYPE FIX)>
3232 <LSH TEMP25 2 = STACK (TYPE FIX)>
3234 <CALL '
\1aMA-DISP 2 = TEMP25>
3235 <CONS TEMP25 () = TEMP25>
3236 <PUTUV TUP7 1 TEMP25>
3244 <SUB OFFSET10 1 = STACK (TYPE FIX)>
3246 <CALL '
\1aMA-DISP 2 = TEMP25>
3247 <CONS TEMP25 () = TEMP25>
3248 <PUTUV TUP7 1 TEMP25>
3253 <TYPE? RIDXAC13 <TYPE-CODE FALSE> - PHRASE49>
3254 <FRAME '
\1aVAR-VALUE-IN-AC?>
3256 <CALL '
\1aVAR-VALUE-IN-AC? 1 = IDXAC15>
3257 <TYPE? IDXAC15 <TYPE-CODE FALSE> - PHRASE49>
3258 <VEQUAL? STYPE11 'VECTOR - BOOL54>
3259 <TYPE? FULL?14 <TYPE-CODE FALSE> + PHRASE53>
3262 <FRAME '
\1aLOAD-VAR>
3268 <CALL '
\1aLOAD-VAR 4 = IDXAC15>
3273 <CALL '
\1aGET-AC 1 = IDXAC15>
3278 <CALL '
\1aMA-IMM 1 = STACK>
3279 <FRAME '
\1aVAR-VALUE-ADDRESS>
3282 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
3283 <NTHUV IDXAC15 2 = TEMP25 (TYPE FIX)>
3284 <OR TEMP25 #WORD *120* = TEMP25>
3285 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
3286 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
3290 <FRAME '
\1aPROTECT-USE>
3292 <CALL '
\1aPROTECT-USE 1>
3293 <PUTUV TUP7 3 IDXAC15>
3296 <TYPE? RIDXAC13 <TYPE-CODE FALSE> - PHRASE62>
3298 <TYPE? FULL?14 <TYPE-CODE FALSE> - PHRASE62>
3300 <VEQUAL? STYPE11 'VECTOR - PHRASE62>
3305 <CALL '
\1aMA-IMM 1 = STACK>
3306 <NTHUV IDXAC15 2 = TEMP25 (TYPE FIX)>
3307 <OR TEMP25 #WORD *120* = TEMP25>
3308 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
3309 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
3311 <NTHUV IDXAC15 2 = TEMP25 (TYPE FIX)>
3312 <OR TEMP25 #WORD *120* = TEMP25>
3313 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
3314 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
3320 <CALL '
\1aMUNG-AC 2>
3321 <PUTUV TUP7 3 IDXAC15>
3323 <VEQUAL? STYPE11 'VECTOR - PHRASE68>
3324 <NTHUV IDXAC15 2 = TEMP25 (TYPE FIX)>
3325 <OR TEMP25 #WORD *100* = TEMP25>
3326 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
3327 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = TEMP25>
3328 <CONS TEMP25 () = TEMP25>
3332 <CALL '
\1aMA-DISP 2 = TEMP70>
3333 <CONS TEMP70 () = TEMP70>
3334 <PUTREST TEMP25 TEMP70>
3336 <PUTUV TUP7 4 TEMP25>
3338 <NTHUV IDXAC15 2 = TEMP25 (TYPE FIX)>
3339 <OR TEMP25 #WORD *100* = TEMP25>
3340 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
3341 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = TEMP25>
3342 <CONS TEMP25 () = TEMP25>
3346 <CALL '
\1aMA-DISP 2 = TEMP70>
3347 <CONS TEMP70 () = TEMP70>
3348 <PUTREST TEMP25 TEMP70>
3350 <PUTUV TUP7 2 TEMP25>
3352 <NTHUV IDXAC15 2 = TEMP25 (TYPE FIX)>
3354 <OR TEMP25 #WORD *100* = TEMP25>
3355 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
3356 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = TEMP25>
3357 <CONS TEMP25 () = TEMP25>
3362 <CALL '
\1aMA-DISP 2 = TEMP70>
3363 <CONS TEMP70 () = TEMP70>
3364 <PUTREST TEMP25 TEMP70>
3366 <PUTUV TUP7 1 TEMP25>
3371 <VEQUAL? STYPE11 'UVECTOR - PHRASE73>
3373 <NTHUV IDXAC15 2 = TEMP25 (TYPE FIX)>
3375 <OR TEMP25 #WORD *100* = TEMP25>
3376 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
3377 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = TEMP25>
3378 <CONS TEMP25 () = TEMP25>
3383 <CALL '
\1aMA-DISP 2 = TEMP70>
3384 <CONS TEMP70 () = TEMP70>
3385 <PUTREST TEMP25 TEMP70>
3387 <PUTUV TUP7 1 TEMP25>
3392 <NTHUV IDXAC15 2 = TEMP25 (TYPE FIX)>
3394 <OR TEMP25 #WORD *100* = TEMP25>
3395 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
3396 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = TEMP25>
3397 <CONS TEMP25 () = TEMP25>
3402 <CALL '
\1aMA-DISP 2 = TEMP70>
3403 <CONS TEMP70 () = TEMP70>
3404 <PUTREST TEMP25 TEMP70>
3406 <PUTUV TUP7 1 TEMP25>
3415 <GFCN
\1aILDB-LOOKAHEAD ("VALUE" ANY <LIST [REST <OR ATOM FORM>]>) L4>
3416 <TEMP TEMP7 TEMP14:LIST LL19:LIST FROB20 REST?22 PUT?23 INS21 TEMP43>
3418 <GVAL 'LOOKAHEAD? = TEMP7>
3419 <TYPE? TEMP7 <TYPE-CODE FALSE> + MAPEX11>
3420 <SET TEMP7 %<> (TYPE FALSE)>
3421 <SET TEMP14 L4 (TYPE LIST)>
3426 <EMPL? TEMP14 + MAPAP12>
3428 <NTHL LL19 1 = FROB20>
3429 <SET REST?22 %<> (TYPE FALSE)>
3430 <SET PUT?23 %<> (TYPE FALSE)>
3431 <TYPE? FROB20 <TYPE-CODE FORM> + TAG28>
3432 <SET TEMP7 %<> (TYPE FALSE)>
3438 <CALL '
\1aGETPROP 2 = TEMP7>
3439 <TYPE? TEMP7 <TYPE-CODE FALSE> + TAG32>
3441 <SET TEMP7 %<> (TYPE FALSE)>
3444 <NTHL FROB20 1 = INS21>
3445 <EQUAL? INS21 'SETLR!-MIMOP - PHRASE34>
3446 <RESTL LL19 1 = TEMP7 (TYPE LIST)>
3447 <EMPL? TEMP7 - TAG38 (TYPE LIST)>
3449 <SET TEMP7 %<> (TYPE FALSE)>
3452 <RESTL LL19 1 = TEMP7 (TYPE LIST)>
3453 <NTHL TEMP7 1 = REST?22>
3455 <TYPE? REST?22 <TYPE-CODE FORM> + TAG39>
3456 <SET TEMP7 %<> (TYPE FALSE)>
3459 <NTHL REST?22 1 = TEMP7>
3460 <EQUAL? TEMP7 'PUSH!-MIMOP + TAG41>
3462 <SET TEMP7 %<> (TYPE FALSE)>
3465 <RESTL REST?22 1 = TEMP7 (TYPE LIST)>
3466 <NTHL TEMP7 1 = TEMP7>
3467 <RESTL FROB20 1 = TEMP43 (TYPE LIST)>
3468 <NTHL TEMP43 1 = TEMP43>
3469 <EQUAL? TEMP7 TEMP43 + TAG42>
3471 <SET TEMP7 %<> (TYPE FALSE)>
3474 <FRAME '
\1aWILL-DIE?>
3475 <RESTL FROB20 1 = TEMP43 (TYPE LIST)>
3476 <NTHL TEMP43 1 = STACK>
3478 <RESTL LL19 1 = TEMP43 (TYPE LIST)>
3480 <RESTL TEMP43 1 = STACK (TYPE LIST)>
3482 <CALL '
\1aWILL-DIE? 2 = TEMP7>
3483 <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE46>
3484 <RESTL FROB20 1 = TEMP43 (TYPE LIST)>
3486 <PUTL TEMP43 1 'STACK>
3493 <CALL '
\1aPUTPROP 3 = TEMP7>
3496 <GVAL 'RESTU = TEMP43>
3497 <TYPE? INS21 <TYPE-CODE ATOM> - TAG49>
3498 <EMPUV? TEMP43 + TAG49>
3499 <LOOP (INS21 VALUE) (TEMP43 LENGTH VALUE)>
3501 <NTHUV TEMP43 1 = TEMP7>
3502 <VEQUAL? TEMP7 INS21 + TAG50>
3504 <RESTUV TEMP43 1 = TEMP43 (TYPE VECTOR)>
3505 <EMPUV? TEMP43 - TAG51>
3507 <SET REST?22 %<> (TYPE FALSE)>
3510 <SET REST?22 TEMP43>
3513 <VEQUAL? REST?22 0 - TAG60>
3514 <GVAL 'PUTU = TEMP43>
3515 <TYPE? INS21 <TYPE-CODE ATOM> - TAG54>
3516 <EMPUV? TEMP43 + TAG54>
3517 <LOOP (INS21 VALUE) (TEMP43 LENGTH VALUE)>
3519 <NTHUV TEMP43 1 = TEMP7>
3520 <VEQUAL? TEMP7 INS21 + TAG55>
3522 <RESTUV TEMP43 1 = TEMP43 (TYPE VECTOR)>
3523 <EMPUV? TEMP43 - TAG56>
3525 <SET PUT?23 %<> (TYPE FALSE)>
3531 <VEQUAL? PUT?23 0 - TAG60>
3532 <GVAL 'NTHU = TEMP7>
3533 <TYPE? INS21 <TYPE-CODE ATOM> - TAG59>
3534 <EMPUV? TEMP7 + TAG59>
3535 <LOOP (INS21 VALUE) (TEMP7 LENGTH VALUE)>
3537 <NTHUV TEMP7 1 = TEMP43>
3538 <VEQUAL? TEMP43 INS21 + TAG60>
3540 <RESTUV TEMP7 1 = TEMP7 (TYPE VECTOR)>
3541 <EMPUV? TEMP7 - TAG61>
3543 <SET TEMP7 %<> (TYPE FALSE)>
3546 <RESTL FROB20 1 = TEMP43 (TYPE LIST)>
3548 <RESTL TEMP43 1 = TEMP43 (TYPE LIST)>
3549 <NTHL TEMP43 1 = TEMP43>
3550 <EQUAL? TEMP43 1 + TAG63>
3552 <SET TEMP7 %<> (TYPE FALSE)>
3555 <FRAME '
\1aILDB-LOOKAHEAD-ONE>
3562 <CALL '
\1aILDB-LOOKAHEAD-ONE 3 = TEMP7>
3564 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
3570 <END
\1aILDB-LOOKAHEAD>
3573 <GFCN
\1aILDB-LOOKAHEAD-ONE ("VALUE" <OR ATOM FALSE> <LIST [REST <OR ATOM FORM>]> ANY ANY) L4 REST?5 PUT?6>
3574 <TEMP OP-INFO7 ARGVEC8:VECTOR TEMP15 OTHOP12 PUTOP13 STRUC9 RES10 TEMP26 TEMP28:LIST TEMP40 TEMP48 TEMP52 TEMP59>
3576 <GVAL 'OP-INFO = OP-INFO7>
3577 <NTHUV OP-INFO7 1 = ARGVEC8 (TYPE VECTOR)>
3578 <FRAME '
\1aPARSE-OP>
3579 <NTHL L4 1 = STACK (TYPE FORM)>
3581 <CALL '
\1aPARSE-OP 2>
3582 <NTHL L4 1 = TEMP15>
3583 <NTH1 TEMP15 = TEMP15>
3587 <CALL '
\1aGETPROP 2 = OTHOP12>
3591 <CALL '
\1aGETPROP 2 = PUTOP13>
3592 <NTHUV ARGVEC8 1 = STRUC9>
3593 <NTHUV OP-INFO7 2 = RES10>
3594 <SET TEMP26 %<> (TYPE FALSE)>
3595 <RESTL L4 1 = TEMP28 (TYPE LIST)>
3599 <EMPL? TEMP28 + MAPAP22>
3601 <NTHL TEMP26 1 = TEMP26>
3602 <TYPE? TEMP26 <TYPE-CODE ATOM> - PHRASE34>
3605 <NTHL TEMP26 1 = TEMP40>
3606 <EQUAL? TEMP40 OTHOP12 + BOOL39>
3608 <TYPE? PUT?6 <TYPE-CODE FALSE> - BOOL42>
3609 <TYPE? REST?5 <TYPE-CODE FALSE> + PHRASE37>
3611 <NTHL TEMP26 1 = TEMP40>
3612 <EQUAL? TEMP40 PUTOP13 - PHRASE37>
3615 <RESTL TEMP26 1 = TEMP40 (TYPE LIST)>
3616 <NTHL TEMP40 1 = TEMP40>
3617 <EQUAL? TEMP40 STRUC9 - PHRASE37>
3619 <RESTL TEMP26 1 = TEMP40 (TYPE LIST)>
3620 <RESTL TEMP40 1 = TEMP40 (TYPE LIST)>
3621 <NTHL TEMP40 1 = TEMP40>
3622 <EQUAL? TEMP40 1 - PHRASE37>
3624 <GVAL 'RESTU = TEMP40>
3625 <TYPE? TEMP15 <TYPE-CODE ATOM> - PHRASE44>
3626 <EMPUV? TEMP40 + PHRASE44>
3627 <LOOP (TEMP15 VALUE) (TEMP40 LENGTH VALUE)>
3629 <NTHUV TEMP40 1 = TEMP48>
3630 <VEQUAL? TEMP48 TEMP15 + TAG45>
3632 <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
3633 <EMPUV? TEMP40 - TAG46>
3636 <NTHR TEMP15 3 = TEMP40 (RECORD-TYPE ATOM)>
3638 <RESTUS TEMP40 4 = TEMP15 (TYPE STRING)>
3642 <NTHR TEMP15 3 = TEMP40 (RECORD-TYPE ATOM)>
3644 <RESTUS TEMP40 3 = TEMP15 (TYPE STRING)>
3647 <IFCAN "STRING-EQUAL?">
3648 <STRING-EQUAL? TEMP15 "UV" - PHRASE50>
3649 <ENDIF "STRING-EQUAL?">
3650 <IFCANNOT "STRING-EQUAL?">
3652 <SET TEMP48 "UV" (TYPE STRING)>
3653 <LENUS TEMP40 = OTHOP12 (TYPE FIX)>
3654 <VEQUAL? OTHOP12 2 - PHRASE50>
3655 <LOOP (TEMP40 VALUE LENGTH) (TEMP48 VALUE LENGTH) (OTHOP12 VALUE)>
3657 <NTHUS TEMP40 1 = TEMP52>
3658 <NTHUS TEMP48 1 = PUTOP13>
3659 <VEQUAL? TEMP52 PUTOP13 - PHRASE50>
3661 <RESTUS TEMP40 1 = TEMP40 (TYPE STRING)>
3662 <RESTUS TEMP48 1 = TEMP48 (TYPE STRING)>
3663 <SUB OTHOP12 1 = OTHOP12 (TYPE FIX)>
3664 <GRTR? OTHOP12 0 + TAG54 (TYPE FIX)>
3665 <ENDIF "STRING-EQUAL?">
3666 <SET TEMP15 (STRUCTURE-TYPE VECTOR) (TYPE LIST)>
3669 <IFCAN "STRING-EQUAL?">
3670 <STRING-EQUAL? TEMP15 "UU" - PHRASE55>
3671 <ENDIF "STRING-EQUAL?">
3672 <IFCANNOT "STRING-EQUAL?">
3674 <SET TEMP40 "UU" (TYPE STRING)>
3675 <LENUS TEMP48 = PUTOP13 (TYPE FIX)>
3676 <VEQUAL? PUTOP13 2 - PHRASE55>
3677 <LOOP (TEMP48 VALUE LENGTH) (TEMP40 VALUE LENGTH) (PUTOP13 VALUE)>
3679 <NTHUS TEMP48 1 = TEMP52>
3680 <NTHUS TEMP40 1 = OTHOP12>
3681 <VEQUAL? TEMP52 OTHOP12 - PHRASE55>
3683 <RESTUS TEMP48 1 = TEMP48 (TYPE STRING)>
3684 <RESTUS TEMP40 1 = TEMP40 (TYPE STRING)>
3685 <SUB PUTOP13 1 = PUTOP13 (TYPE FIX)>
3686 <GRTR? PUTOP13 0 + TAG57 (TYPE FIX)>
3687 <ENDIF "STRING-EQUAL?">
3688 <SET TEMP15 (STRUCTURE-TYPE UVECTOR) (TYPE LIST)>
3691 <IFCAN "STRING-EQUAL?">
3692 <STRING-EQUAL? TEMP15 "US" - PHRASE58>
3693 <ENDIF "STRING-EQUAL?">
3694 <IFCANNOT "STRING-EQUAL?">
3697 <SET TEMP48 "US" (TYPE STRING)>
3698 <LENUS TEMP40 = OTHOP12 (TYPE FIX)>
3699 <VEQUAL? OTHOP12 2 - PHRASE58>
3700 <LOOP (TEMP40 VALUE LENGTH) (TEMP48 VALUE LENGTH) (OTHOP12 VALUE)>
3702 <NTHUS TEMP40 1 = TEMP52>
3703 <NTHUS TEMP48 1 = TEMP59>
3704 <VEQUAL? TEMP52 TEMP59 - PHRASE58>
3705 <DEAD TEMP52 TEMP59>
3706 <RESTUS TEMP40 1 = TEMP40 (TYPE STRING)>
3707 <RESTUS TEMP48 1 = TEMP48 (TYPE STRING)>
3708 <SUB OTHOP12 1 = OTHOP12 (TYPE FIX)>
3709 <GRTR? OTHOP12 0 + TAG60 (TYPE FIX)>
3710 <ENDIF "STRING-EQUAL?">
3711 <SET TEMP15 (STRUCTURE-TYPE STRING) (TYPE LIST)>
3714 <SET TEMP15 (STRUCTURE-TYPE BYTES) (TYPE LIST)>
3716 <FRAME '
\1aPARSE-OP>
3719 <CALL '
\1aPARSE-OP 2>
3720 <TYPE? PUT?6 <TYPE-CODE FALSE> - TAG66>
3721 <NTHL TEMP26 1 = TEMP48>
3722 <GVAL 'PUTU = TEMP40>
3723 <TYPE? TEMP48 <TYPE-CODE ATOM> - PHRASE64>
3724 <EMPUV? TEMP40 + PHRASE64>
3725 <LOOP (TEMP48 VALUE) (TEMP40 LENGTH VALUE)>
3727 <NTHUV TEMP40 1 = TEMP59>
3728 <VEQUAL? TEMP59 TEMP48 + TAG66>
3730 <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
3731 <EMPUV? TEMP40 - TAG67>
3738 <TYPE? PUT?6 <TYPE-CODE FALSE> + PHRASE71>
3742 <CALL '
\1aNTH 2 = TEMP40>
3745 <NTHUV ARGVEC8 3 = TEMP40>
3750 <TYPE? PUT?6 <TYPE-CODE FALSE> + PHRASE74>
3752 <NTHUV OP-INFO7 2 = TEMP40>
3763 <CALL '
\1aFORM 5 = TEMP40>
3771 <CALL '
\1aPUTPROP 3>
3778 <TYPE? REST?5 <TYPE-CODE FALSE> + PHRASE79>
3779 <NTHUV OP-INFO7 2 = TEMP40>
3786 <TYPE? REST?5 <TYPE-CODE FALSE> + PHRASE81>
3792 <NTHUV OP-INFO7 2 = TEMP40>
3799 <CALL '
\1aFORM 5 = TEMP40>
3807 <CALL '
\1aPUTPROP 3>
3811 <TYPE STRUC9 = TEMP59>
3812 <LOOP (STRUC9 VALUE) (TEMP59 VALUE) (TEMP48 VALUE)>
3814 <NTHL TEMP48 1 = TEMP52>
3815 <TYPE? TEMP52 TEMP59 - TAG87>
3816 <VEQUAL? TEMP52 STRUC9 + BOOL84>
3819 <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
3820 <EMPL? TEMP48 - TAG86>
3822 <LOOP (TEMP48 VALUE)>
3824 <NTHL TEMP48 1 = TEMP59>
3825 <TYPE? TEMP59 <TYPE-CODE ATOM> - TAG90>
3826 <VEQUAL? TEMP59 '+ + BOOL84>
3829 <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
3830 <EMPL? TEMP48 - TAG89>
3832 <LOOP (TEMP48 VALUE)>
3834 <NTHL TEMP48 1 = TEMP59>
3835 <TYPE? TEMP59 <TYPE-CODE ATOM> - TAG93>
3836 <VEQUAL? TEMP59 '- + BOOL84>
3839 <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
3840 <EMPL? TEMP48 - TAG92>
3841 <FRAME '
\1aPARSE-OP>
3845 <CALL '
\1aPARSE-OP 2>
3846 <NTHUV OP-INFO7 4 = TEMP26>
3847 <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE83>
3851 <RESTL TEMP28 1 = TEMP28 (TYPE LIST)>
3856 <END
\1aILDB-LOOKAHEAD-ONE>
3858 "Generate ILDB/IDPB-like stuff. Call with NTH/PUT inst, structure,
3859 result of nth/put, result of rest, flag, new value for put"
3862 <GFCN
\1aIDPB-GEN ("VALUE" ATOM ANY ANY ANY ANY) STRUC4 ELVAL5 STRES6 HINT7>
3865 <FRAME '
\1aILDB-GEN>
3875 <CALL '
\1aILDB-GEN 5 = TEMP9>
3881 <GFCN
\1aILDB-GEN ("VALUE" ATOM VARTBL ANY ANY ANY "OPTIONAL" ANY) STRUC6 ELVAL7 STRES8 HINT9 PUT?10>
3882 <OPT-DISPATCH 4 %<> OPT4 OPT5>
3886 <TEMP (ELTAC15 %<>) (DOUBLE?16 %<>) (NO-TYPE?21 %<>) TEMP28 VINS12:FIX EHINT11 TEMP46 VAC19 ELAC14>
3888 <TYPE? ELVAL7 <TYPE-CODE ATOM> + TAG26>
3889 <TYPE? ELVAL7 <TYPE-CODE VARTBL> - PHRASE24>
3891 <FRAME '
\1aNTH-LOOK-AHEAD>
3898 <CALL '
\1aNTH-LOOK-AHEAD 6 = TEMP28>
3899 <TYPE? TEMP28 <TYPE-CODE FALSE> + PHRASE24>
3903 <FRAME '
\1aPARSE-HINT>
3906 <PUSH 'STRUCTURE-TYPE>
3907 <CALL '
\1aPARSE-HINT 2 = HINT9>
3908 <EQUAL? HINT9 'VECTOR - PHRASE31>
3909 <SET DOUBLE?16 'T (TYPE ATOM)>
3910 <SET VINS12 125 (TYPE FIX)>
3911 <SET EHINT11 %<> (TYPE FALSE)>
3914 <EQUAL? HINT9 'UVECTOR - PHRASE32>
3915 <SET VINS12 208 (TYPE FIX)>
3916 <SET EHINT11 'FIX (TYPE ATOM)>
3919 <EQUAL? HINT9 'BYTES - PHRASE33>
3920 <SET EHINT11 'FIX (TYPE ATOM)>
3921 <TYPE? PUT?10 <TYPE-CODE FALSE> + PHRASE35>
3922 <SET VINS12 144 (TYPE FIX)>
3925 <SET VINS12 154 (TYPE FIX)>
3928 <EQUAL? HINT9 'STRING - COND37>
3930 <SET EHINT11 'CHARACTER (TYPE ATOM)>
3931 <TYPE? PUT?10 <TYPE-CODE FALSE> + PHRASE38>
3932 <SET VINS12 144 (TYPE FIX)>
3935 <SET VINS12 154 (TYPE FIX)>
3937 <FRAME '
\1aVAR-VALUE-IN-AC?>
3939 <CALL '
\1aVAR-VALUE-IN-AC? 1 = TEMP28>
3940 <TYPE? TEMP28 <TYPE-CODE FALSE> - PHRASE40>
3941 <FRAME '
\1aLOAD-VAR>
3946 <CALL '
\1aLOAD-VAR 4 = TEMP28>
3950 <CALL '
\1aPROTECT 1>
3951 <GVAL 'AC-0 = TEMP46>
3952 <EQUAL? TEMP46 TEMP28 + PHRASE45>
3958 <CALL '
\1aPREV-AC 1 = STACK>
3959 <CALL '
\1aPROTECT 1>
3961 <TYPE? PUT?10 <TYPE-CODE FALSE> + PHRASE50>
3962 <TYPE? ELVAL7 <TYPE-CODE VARTBL> - PHRASE52>
3963 <FRAME '
\1aFIND-CACHE-VAR>
3965 <CALL '
\1aFIND-CACHE-VAR 1 = ELTAC15>
3966 <TYPE? ELTAC15 <TYPE-CODE FALSE> + PHRASE54>
3967 <VEQUAL? DOUBLE?16 0 + PHRASE57>
3968 <NTHUV ELTAC15 9 = TEMP28>
3971 <SET TEMP28 %<> (TYPE FALSE)>
3973 <NTHUV ELTAC15 6 = VAC19>
3974 <VEQUAL? DOUBLE?16 0 + BOOL60>
3975 <TYPE? VAC19 <TYPE-CODE FALSE> + BOOL61>
3976 <TYPE? TEMP28 <TYPE-CODE FALSE> + BOOL61>
3979 <CALL '
\1aNEXT-AC 1 = TEMP46>
3980 <EQUAL? VAC19 TEMP46 + BOOL60>
3983 <TYPE? VAC19 <TYPE-CODE FALSE> - PHRASE59>
3984 <TYPE? TEMP28 <TYPE-CODE FALSE> - PHRASE59>
3986 <VEQUAL? DOUBLE?16 0 + PHRASE65>
3987 <FRAME '
\1aVAR-TYPE-ADDRESS>
3989 <CALL '
\1aVAR-TYPE-ADDRESS 1 = VAC19>
3992 <FRAME '
\1aVAR-VALUE-ADDRESS>
3994 <CALL '
\1aVAR-VALUE-ADDRESS 1 = VAC19>
3997 <TYPE? TEMP28 <TYPE-CODE FALSE> + BOOL71>
3998 <NTHUV ELTAC15 4 = TEMP46>
3999 <TYPE? TEMP46 <TYPE-CODE FALSE> + PHRASE69>
4002 <TYPE? VAC19 <TYPE-CODE FALSE> + BOOL72>
4004 <NTHUV ELTAC15 2 = TEMP46>
4005 <TYPE? TEMP46 <TYPE-CODE FALSE> + PHRASE69>
4008 <FRAME '
\1aADDR-VAR-TYPE>
4010 <CALL '
\1aADDR-VAR-TYPE 1 = VAC19>
4013 <TYPE? ELTAC15 <TYPE-CODE FALSE> + PHRASE76>
4014 <NTHUV ELTAC15 4 = TEMP46>
4016 <TYPE? TEMP46 <TYPE-CODE FALSE> - PHRASE76>
4018 <TYPE? TEMP28 <TYPE-CODE FALSE> - PHRASE76>
4020 <FRAME '
\1aVARTBL-DECL>
4022 <CALL '
\1aVARTBL-DECL 1 = TEMP46>
4023 <TYPE? TEMP46 <TYPE-CODE FALSE> + PHRASE76>
4025 <FRAME '
\1aTYPE-WORD>
4026 <FRAME '
\1aVARTBL-DECL>
4028 <CALL '
\1aVARTBL-DECL 1 = STACK>
4029 <CALL '
\1aTYPE-WORD 1 = NO-TYPE?21>
4032 <FRAME '
\1aVAR-TYPE-ADDRESS>
4034 <CALL '
\1aVAR-TYPE-ADDRESS 1 = NO-TYPE?21>
4036 <FRAME '
\1aVAR-VALUE-ADDRESS>
4038 <CALL '
\1aVAR-VALUE-ADDRESS 1 = VAC19>
4041 <VEQUAL? DOUBLE?16 0 + PHRASE84>
4042 <FRAME '
\1aVAR-TYPE-ADDRESS>
4044 <CALL '
\1aVAR-TYPE-ADDRESS 1 = VAC19>
4047 <FRAME '
\1aVAR-VALUE-ADDRESS>
4049 <CALL '
\1aVAR-VALUE-ADDRESS 1 = VAC19>
4052 <VEQUAL? DOUBLE?16 0 + PHRASE87>
4053 <FRAME '
\1aADDR-TYPE-MQUOTE>
4055 <CALL '
\1aADDR-TYPE-MQUOTE 1 = VAC19>
4060 <CALL '
\1aMA-IMM 1 = VAC19>
4063 <EQUAL? ELVAL7 'STACK - PHRASE90>
4064 <VEQUAL? DOUBLE?16 0 - PHRASE92>
4065 <FRAME '
\1aEMIT-PUSH>
4066 <FRAME '
\1aTYPE-WORD>
4068 <CALL '
\1aTYPE-WORD 1 = STACK>
4070 <CALL '
\1aEMIT-PUSH 2>
4072 <GVAL 'AC-TP = TEMP46>
4073 <NTHUV TEMP46 2 = TEMP46 (TYPE FIX)>
4074 <OR TEMP46 #WORD *200* = TEMP46>
4075 <LSH TEMP46 24 = TEMP46 (TYPE FIX)>
4076 <CHTYPE TEMP46 <TYPE-CODE EFF-ADDR> = ELAC14>
4080 <EQUAL? ELVAL7 STRUC6 - PHRASE95>
4081 <VEQUAL? DOUBLE?16 0 + PHRASE97>
4085 <CALL '
\1aGET-AC 2 = ELAC14>
4091 <CALL '
\1aGET-AC 2 = ELAC14>
4094 <FRAME '
\1aVAR-VALUE-IN-AC?>
4096 <CALL '
\1aVAR-VALUE-IN-AC? 1 = ELAC14>
4097 <TYPE? ELAC14 <TYPE-CODE FALSE> + BOOL104>
4098 <VEQUAL? DOUBLE?16 0 + PHRASE100>
4099 <FRAME '
\1aVAR-TYPE-WORD-IN-AC?>
4101 <CALL '
\1aVAR-TYPE-WORD-IN-AC? 1 = ELTAC15>
4102 <TYPE? ELTAC15 <TYPE-CODE FALSE> + BOOL104>
4105 <CALL '
\1aNEXT-AC 1 = TEMP46>
4106 <EQUAL? TEMP46 ELAC14 + PHRASE100>
4109 <FRAME '
\1aDEAD-VAR>
4111 <CALL '
\1aDEAD-VAR 1>
4112 <VEQUAL? DOUBLE?16 0 + PHRASE109>
4116 <CALL '
\1aGET-AC 2 = ELAC14>
4122 <CALL '
\1aGET-AC 2 = ELAC14>
4125 <FRAME '
\1aDEAD-VAR>
4127 <CALL '
\1aDEAD-VAR 1>
4128 <VEQUAL? DOUBLE?16 0 + PHRASE115>
4129 <FRAME '
\1aSTORE-AC>
4132 <FRAME '
\1aFIND-CACHE-VAR>
4134 <CALL '
\1aFIND-CACHE-VAR 1 = STACK>
4135 <CALL '
\1aSTORE-AC 3>
4136 <FRAME '
\1aSTORE-AC>
4140 <FRAME '
\1aFIND-CACHE-VAR>
4142 <CALL '
\1aFIND-CACHE-VAR 1 = STACK>
4143 <CALL '
\1aSTORE-AC 3>
4144 <SET ELAC14 ELTAC15>
4148 <FRAME '
\1aSTORE-AC>
4151 <FRAME '
\1aFIND-CACHE-VAR>
4153 <CALL '
\1aFIND-CACHE-VAR 1 = STACK>
4154 <CALL '
\1aSTORE-AC 3>
4156 <FRAME '
\1aREST-BLOCK-GEN>
4166 <TYPE? PUT?10 <TYPE-CODE FALSE> + PHRASE125>
4178 <CALL '
\1aREST-BLOCK-GEN 9>
4179 <TYPE? PUT?10 <TYPE-CODE FALSE> - PHRASE135>
4181 <EQUAL? ELVAL7 'STACK + PHRASE135>
4182 <VEQUAL? DOUBLE?16 0 + PHRASE130>
4184 <FRAME '
\1aDEST-PAIR>
4187 <CALL '
\1aNEXT-AC 1 = STACK>
4190 <CALL '
\1aDEST-PAIR 3>
4193 <FRAME '
\1aLINK-VAR-TO-AC>
4198 <CALL '
\1aLINK-VAR-TO-AC 4>
4200 <TYPE? EHINT11 <TYPE-CODE FALSE> + PHRASE135>
4201 <FRAME '
\1aDEST-DECL>
4208 <CALL '
\1aDEST-DECL 3>
4216 <GFCN
\1aNTH-LENGTH-GEN ("VALUE" ATOM ANY ANY ANY ANY ANY) CINS4 STRUC5 OFF6 STYPE7 RES8>
4217 <TEMP TEMP12 TUP10:TUPLE RAC11 TEMP26:FIX>
4219 <USBLOCK <TYPE-CODE TUPLE> 5 = TUP10>
4221 <LOOP (TEMP12 VALUE LENGTH)>
4223 <EMPUV? TEMP12 + ISTRE14>
4224 <PUTUV TEMP12 1 %<>>
4225 <RESTUV TEMP12 1 = TEMP12>
4228 <FRAME '
\1aVAR-VALUE-IN-AC?>
4230 <CALL '
\1aVAR-VALUE-IN-AC? 1 = TEMP12>
4231 <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE16>
4232 <FRAME '
\1aLOAD-VAR>
4237 <CALL '
\1aLOAD-VAR 4 = TEMP12>
4239 <FRAME '
\1aPROTECT-USE>
4241 <CALL '
\1aPROTECT-USE 1>
4242 <FRAME '
\1aGET-ADDR>
4255 <CALL '
\1aGET-ADDR 8>
4256 <FRAME '
\1aVAR-VALUE-IN-AC?>
4258 <CALL '
\1aVAR-VALUE-IN-AC? 1 = RAC11>
4259 <TYPE? RAC11 <TYPE-CODE FALSE> - PHRASE22>
4263 <CALL '
\1aGET-AC 2 = RAC11>
4267 <SET TEMP26 2 (TYPE FIX)>
4268 <NTHUV TUP10 2 = TEMP12>
4270 <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP26 VALUE)>
4273 <EMPTY? TEMP12 + TAG25>
4274 <NTH1 TEMP12 = STACK>
4275 <REST1 TEMP12 = TEMP12>
4276 <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
4279 <NTHUV RAC11 2 = TEMP12 (TYPE FIX)>
4280 <OR TEMP12 #WORD *120* = TEMP12>
4281 <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
4282 <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
4284 <CALL '
\1aEMIT TEMP26>
4286 <FRAME '
\1aLINK-VAR-TO-AC>
4291 <CALL '
\1aLINK-VAR-TO-AC 4>
4292 <FRAME '
\1aDEST-DECL>
4298 <CALL '
\1aDEST-DECL 3>
4301 <END
\1aNTH-LENGTH-GEN>
4304 <GFCN
\1aNTH-LENGTH-COMP-GEN ("VALUE" ATOM ANY ANY ANY ANY ANY ANY OP-INFO) CINS4 STRUC5 OFF6 STYPE7 AMT8 CMPINS9 OP-INFO10>
4305 <TEMP TEMP13 TUP12:TUPLE TEMP27>
4307 <USBLOCK <TYPE-CODE TUPLE> 5 = TUP12>
4309 <LOOP (TEMP13 VALUE LENGTH)>
4311 <EMPUV? TEMP13 + ISTRE15>
4312 <PUTUV TEMP13 1 %<>>
4313 <RESTUV TEMP13 1 = TEMP13>
4316 <FRAME '
\1aVAR-VALUE-IN-AC?>
4318 <CALL '
\1aVAR-VALUE-IN-AC? 1 = TEMP13>
4319 <TYPE? TEMP13 <TYPE-CODE FALSE> - PHRASE17>
4320 <FRAME '
\1aLOAD-VAR>
4325 <CALL '
\1aLOAD-VAR 4 = TEMP13>
4327 <FRAME '
\1aPROTECT-USE>
4329 <CALL '
\1aPROTECT-USE 1>
4330 <FRAME '
\1aGET-ADDR>
4343 <CALL '
\1aGET-ADDR 8>
4344 <EQUAL? AMT8 0 - PHRASE23>
4345 <EQUAL? CMPINS9 'EMPL?!-MIMOP - PHRASE25>
4348 <SET TEMP27 1 (TYPE FIX)>
4349 <NTHUV TUP12 1 = TEMP13>
4351 <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP27 VALUE)>
4354 <EMPTY? TEMP13 + TAG26>
4355 <NTH1 TEMP13 = STACK>
4356 <REST1 TEMP13 = TEMP13>
4357 <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
4360 <CALL '
\1aEMIT TEMP27>
4366 <SET TEMP13 1 (TYPE FIX)>
4367 <NTHUV TUP12 2 = TEMP27>
4369 <LOOP (TEMP27 TYPE VALUE LENGTH) (TEMP13 VALUE)>
4372 <EMPTY? TEMP27 + TAG30>
4373 <NTH1 TEMP27 = STACK>
4374 <REST1 TEMP27 = TEMP27>
4375 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
4378 <CALL '
\1aEMIT TEMP13>
4382 <TYPE? AMT8 <TYPE-CODE FIX> - PHRASE33>
4385 <SET TEMP27 2 (TYPE FIX)>
4386 <NTHUV TUP12 2 = TEMP13>
4388 <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP27 VALUE)>
4391 <EMPTY? TEMP13 + TAG34>
4392 <NTH1 TEMP13 = STACK>
4393 <REST1 TEMP13 = TEMP13>
4394 <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
4400 <CALL '
\1aMA-IMM 1 = STACK>
4401 <CALL '
\1aEMIT TEMP27>
4407 <SET TEMP13 2 (TYPE FIX)>
4408 <NTHUV TUP12 2 = TEMP27>
4410 <LOOP (TEMP27 TYPE VALUE LENGTH) (TEMP13 VALUE)>
4413 <EMPTY? TEMP27 + TAG39>
4414 <NTH1 TEMP27 = STACK>
4415 <REST1 TEMP27 = TEMP27>
4416 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
4419 <FRAME '
\1aVAR-VALUE-ADDRESS>
4422 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
4423 <CALL '
\1aEMIT TEMP13>
4426 <FRAME '
\1aGEN-TEST-INST>
4427 <FRAME '
\1aCOMPUTE-DIRECTION>
4428 <NTHUV OP-INFO10 5 = STACK (TYPE ATOM)>
4429 <GVAL 'EMPU = TEMP13>
4430 <TYPE? CMPINS9 <TYPE-CODE ATOM> - PHRASE46>
4431 <EMPUV? TEMP13 + PHRASE46>
4432 <LOOP (CMPINS9 VALUE) (TEMP13 LENGTH VALUE)>
4434 <NTHUV TEMP13 1 = TEMP27>
4435 <VEQUAL? TEMP27 CMPINS9 + TAG47>
4437 <RESTUV TEMP13 1 = TEMP13 (TYPE VECTOR)>
4438 <EMPUV? TEMP13 - TAG48>
4441 <SET TEMP13 2 (TYPE FIX)>
4444 <EQUAL? CMPINS9 'EMPL?!-MIMOP - PHRASE50>
4445 <SET TEMP13 2 (TYPE FIX)>
4448 <EQUAL? CMPINS9 'VEQUAL?!-MIMOP - PHRASE51>
4449 <SET TEMP13 2 (TYPE FIX)>
4452 <EQUAL? CMPINS9 'LESS?!-MIMOP - PHRASE52>
4453 <SET TEMP13 1 (TYPE FIX)>
4456 <EQUAL? CMPINS9 'GRTR?!-MIMOP + TAG54>
4458 <SET TEMP13 %<> (TYPE FALSE)>
4461 <SET TEMP13 3 (TYPE FIX)>
4465 <CALL '
\1aCOMPUTE-DIRECTION 2 = STACK>
4466 <NTHUV OP-INFO10 4 = STACK>
4469 <CALL '
\1aGEN-TEST-INST 3>
4471 <RETURN 'CONDITIONAL-BRANCH>
4472 <END
\1aNTH-LENGTH-COMP-GEN>
4475 <GFCN
\1aSLOT-COMPARE ("VALUE" ATOM ANY ANY ANY ANY ANY ANY ANY ANY) STRUC14 STRUC25 CMPINS6 OP-INFO7 OFF18 STYPE19 OFF210 STYPE211>
4476 <TEMP (SAC112 %<>) (SAC213 %<>) TEMP19 ADDR114 ADDR215 (SHORT?16 %<>) TEMP30>
4478 <USBLOCK <TYPE-CODE TUPLE> 5 = ADDR114>
4479 <SET TEMP19 ADDR114>
4480 <LOOP (TEMP19 VALUE LENGTH)>
4482 <EMPUV? TEMP19 + ISTRE21>
4483 <PUTUV TEMP19 1 %<>>
4484 <RESTUV TEMP19 1 = TEMP19>
4487 <USBLOCK <TYPE-CODE TUPLE> 5 = ADDR215>
4488 <SET TEMP19 ADDR215>
4489 <LOOP (TEMP19 VALUE LENGTH)>
4491 <EMPUV? TEMP19 + ISTRE23>
4492 <PUTUV TEMP19 1 %<>>
4493 <RESTUV TEMP19 1 = TEMP19>
4496 <SET TEMP19 [STRING BYTES] (TYPE VECTOR)>
4497 <TYPE? STYPE19 <TYPE-CODE ATOM> - TAG27>
4498 <LOOP (STYPE19 VALUE) (TEMP19 LENGTH VALUE)>
4500 <NTHUV TEMP19 1 = TEMP30>
4501 <VEQUAL? TEMP30 STYPE19 + TAG31>
4503 <RESTUV TEMP19 1 = TEMP19 (TYPE VECTOR)>
4504 <EMPUV? TEMP19 - TAG28>
4506 <SET TEMP19 [STRING BYTES] (TYPE VECTOR)>
4507 <TYPE? STYPE211 <TYPE-CODE ATOM> - PHRASE25>
4508 <LOOP (STYPE211 VALUE) (TEMP19 LENGTH VALUE)>
4510 <NTHUV TEMP19 1 = TEMP30>
4511 <VEQUAL? TEMP30 STYPE211 + TAG31>
4513 <RESTUV TEMP19 1 = TEMP19 (TYPE VECTOR)>
4514 <EMPUV? TEMP19 - TAG32>
4517 <SET SHORT?16 'T (TYPE ATOM)>
4519 <TYPE? OFF210 <TYPE-CODE FALSE> + PHRASE39>
4520 <TYPE? OFF18 <TYPE-CODE FALSE> - PHRASE39>
4523 <SET OFF210 %<> (TYPE FALSE)>
4524 <SET STYPE19 STYPE211>
4526 <SET STYPE211 %<> (TYPE FALSE)>
4527 <SET TEMP19 STRUC25>
4529 <SET STRUC25 STRUC14>
4531 <SET STRUC14 TEMP19>
4533 <EQUAL? CMPINS6 'GRTR?!-MIMOP - PHRASE38>
4534 <SET CMPINS6 'LESS?!-MIMOP (TYPE ATOM)>
4537 <EQUAL? CMPINS6 'LESS?!-MIMOP - PHRASE39>
4538 <SET CMPINS6 'GRTR?!-MIMOP (TYPE ATOM)>
4540 <TYPE? OFF18 <TYPE-CODE FALSE> + PHRASE42>
4541 <FRAME '
\1aVAR-VALUE-IN-AC?>
4543 <CALL '
\1aVAR-VALUE-IN-AC? 1 = SAC112>
4544 <TYPE? SAC112 <TYPE-CODE FALSE> - PHRASE44>
4545 <FRAME '
\1aLOAD-VAR>
4550 <CALL '
\1aLOAD-VAR 4 = SAC112>
4552 <FRAME '
\1aPROTECT-USE>
4554 <CALL '
\1aPROTECT-USE 1>
4556 <TYPE? OFF210 <TYPE-CODE FALSE> + PHRASE57>
4557 <EQUAL? STRUC14 STRUC25 + PHRASE51>
4558 <FRAME '
\1aVAR-VALUE-IN-AC?>
4560 <CALL '
\1aVAR-VALUE-IN-AC? 1 = SAC213>
4561 <TYPE? SAC213 <TYPE-CODE FALSE> - PHRASE53>
4562 <FRAME '
\1aLOAD-VAR>
4567 <CALL '
\1aLOAD-VAR 4 = SAC213>
4569 <FRAME '
\1aPROTECT-USE>
4571 <CALL '
\1aPROTECT-USE 1>
4576 <TYPE? OFF18 <TYPE-CODE FALSE> + PHRASE59>
4577 <FRAME '
\1aGET-ADDR>
4585 <CALL '
\1aGET-ADDR 6>
4588 <TYPE? STRUC14 <TYPE-CODE VARTBL> - PHRASE61>
4589 <FRAME '
\1aVAR-VALUE-ADDRESS>
4591 <CALL '
\1aVAR-VALUE-ADDRESS 1 = ADDR114>
4594 <FRAME '
\1aFIX-CONSTANT?>
4596 <CALL '
\1aFIX-CONSTANT? 1 = TEMP19>
4597 <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE63>
4599 <TYPE? STRUC14 <TYPE-CODE FLOAT> + PHRASE66>
4602 <CALL '
\1aMA-IMM 1 = ADDR114>
4605 <FRAME '
\1aFLOAT-IMM>
4606 <FRAME '
\1aFLOATCONVERT>
4608 <CALL '
\1aFLOATCONVERT 1 = STACK>
4609 <CALL '
\1aFLOAT-IMM 1 = ADDR114>
4612 <FRAME '
\1aPRIMTYPE>
4614 <CALL '
\1aPRIMTYPE 1 = TEMP19>
4615 <VEQUAL? TEMP19 'LIST - PHRASE71>
4617 <EMPTY? STRUC14 - PHRASE71>
4618 <SET STRUC14 0 (TYPE FIX)>
4621 <CALL '
\1aMA-IMM 1 = ADDR114>
4624 <FRAME '
\1aADDR-VALUE-MQUOTE>
4626 <CALL '
\1aADDR-VALUE-MQUOTE 1 = ADDR114>
4628 <TYPE? OFF210 <TYPE-CODE FALSE> - PHRASE78>
4629 <TYPE? STRUC25 <TYPE-CODE VARTBL> - PHRASE80>
4630 <FRAME '
\1aVAR-VALUE-ADDRESS>
4632 <CALL '
\1aVAR-VALUE-ADDRESS 1 = ADDR215>
4635 <FRAME '
\1aFIX-CONSTANT?>
4637 <CALL '
\1aFIX-CONSTANT? 1 = TEMP19>
4638 <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE82>
4640 <TYPE? STRUC25 <TYPE-CODE FLOAT> + PHRASE85>
4643 <CALL '
\1aMA-IMM 1 = ADDR215>
4646 <FRAME '
\1aFLOAT-IMM>
4647 <FRAME '
\1aFLOATCONVERT>
4649 <CALL '
\1aFLOATCONVERT 1 = STACK>
4650 <CALL '
\1aFLOAT-IMM 1 = ADDR215>
4653 <FRAME '
\1aPRIMTYPE>
4655 <CALL '
\1aPRIMTYPE 1 = TEMP19>
4656 <VEQUAL? TEMP19 'LIST - PHRASE90>
4658 <EMPTY? STRUC25 - PHRASE90>
4659 <SET STRUC25 0 (TYPE FIX)>
4662 <CALL '
\1aMA-IMM 1 = ADDR215>
4665 <FRAME '
\1aADDR-VALUE-MQUOTE>
4667 <CALL '
\1aADDR-VALUE-MQUOTE 1 = ADDR215>
4673 <CALL '
\1aNTH 2 = TEMP19>
4674 <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE96>
4676 <EQUAL? OFF18 OFF210 - PHRASE96>
4678 <TYPE? OFF210 <TYPE-CODE VARTBL> - PHRASE96>
4679 <EQUAL? STYPE19 STYPE211 + BOOL99>
4681 <VEQUAL? SHORT?16 0 + PHRASE96>
4683 <FRAME '
\1aGET-ADDR>
4696 <CALL '
\1aNTH 2 = STACK>
4697 <CALL '
\1aGET-ADDR 7>
4700 <FRAME '
\1aGET-ADDR>
4710 <CALL '
\1aGET-ADDR 6>
4712 <EQUAL? STRUC14 0 + BOOL106>
4713 <EQUAL? STRUC25 0 - PHRASE105>
4716 <VEQUAL? SHORT?16 0 + PHRASE109>
4718 <SET TEMP19 149 (TYPE FIX)>
4721 <SET TEMP19 213 (TYPE FIX)>
4725 <SET TEMP30 1 (TYPE FIX)>
4726 <EQUAL? STRUC14 0 - PHRASE111>
4728 <NTHUV ADDR215 1 = TEMP19>
4732 <NTHUV ADDR114 1 = TEMP19>
4735 <LOOP (TEMP19 TYPE VALUE LENGTH) (TEMP30 VALUE)>
4738 <EMPTY? TEMP19 + TAG107>
4739 <NTH1 TEMP19 = STACK>
4740 <REST1 TEMP19 = TEMP19>
4741 <ADD TEMP30 1 = TEMP30 (TYPE FIX)>
4744 <CALL '
\1aEMIT TEMP30>
4748 <EQUAL? STRUC14 0.0 + BOOL115>
4749 <EQUAL? STRUC25 0.0 - PHRASE114>
4753 <SET TEMP19 1 (TYPE FIX)>
4754 <EQUAL? STRUC14 0.0 - PHRASE118>
4756 <NTHUV ADDR215 1 = TEMP30>
4760 <NTHUV ADDR114 1 = TEMP30>
4763 <LOOP (TEMP30 TYPE VALUE LENGTH) (TEMP19 VALUE)>
4766 <EMPTY? TEMP30 + TAG116>
4767 <NTH1 TEMP30 = STACK>
4768 <REST1 TEMP30 = TEMP30>
4769 <ADD TEMP19 1 = TEMP19 (TYPE FIX)>
4772 <CALL '
\1aEMIT TEMP19>
4776 <TYPE? STRUC14 <TYPE-CODE FLOAT> + BOOL122>
4778 <TYPE? STRUC25 <TYPE-CODE FLOAT> - PHRASE121>
4783 <SET TEMP30 1 (TYPE FIX)>
4784 <TYPE? ADDR114 <TYPE-CODE TUPLE> - PHRASE125>
4785 <NTHUV ADDR114 1 = TEMP19>
4789 <CONS ADDR114 () = TEMP19>
4792 <LOOP (TEMP19 TYPE VALUE LENGTH) (TEMP30 VALUE)>
4795 <EMPTY? TEMP19 + TAG123>
4796 <NTH1 TEMP19 = STACK>
4797 <REST1 TEMP19 = TEMP19>
4798 <ADD TEMP30 1 = TEMP30 (TYPE FIX)>
4801 <TYPE? ADDR215 <TYPE-CODE TUPLE> - PHRASE129>
4802 <NTHUV ADDR215 1 = TEMP19>
4806 <CONS ADDR215 () = TEMP19>
4809 <LOOP (TEMP19 TYPE VALUE LENGTH) (TEMP30 VALUE)>
4812 <EMPTY? TEMP19 + TAG127>
4813 <NTH1 TEMP19 = STACK>
4814 <REST1 TEMP19 = TEMP19>
4815 <ADD TEMP30 1 = TEMP30 (TYPE FIX)>
4818 <CALL '
\1aEMIT TEMP30>
4823 <VEQUAL? SHORT?16 0 + PHRASE135>
4825 <SET TEMP30 145 (TYPE FIX)>
4828 <SET TEMP30 209 (TYPE FIX)>
4832 <SET SAC112 1 (TYPE FIX)>
4833 <TYPE? ADDR114 <TYPE-CODE TUPLE> - PHRASE139>
4834 <NTHUV ADDR114 1 = TEMP30>
4838 <CONS ADDR114 () = TEMP30>
4841 <LOOP (TEMP30 TYPE VALUE LENGTH) (SAC112 VALUE)>
4844 <EMPTY? TEMP30 + TAG133>
4845 <NTH1 TEMP30 = STACK>
4846 <REST1 TEMP30 = TEMP30>
4847 <ADD SAC112 1 = SAC112 (TYPE FIX)>
4850 <TYPE? ADDR215 <TYPE-CODE TUPLE> - PHRASE143>
4851 <NTHUV ADDR215 1 = TEMP30>
4855 <CONS ADDR215 () = TEMP30>
4858 <LOOP (TEMP30 TYPE VALUE LENGTH) (SAC112 VALUE)>
4861 <EMPTY? TEMP30 + TAG141>
4862 <NTH1 TEMP30 = STACK>
4863 <REST1 TEMP30 = TEMP30>
4864 <ADD SAC112 1 = SAC112 (TYPE FIX)>
4867 <CALL '
\1aEMIT SAC112>
4870 <FRAME '
\1aGEN-TEST-INST>
4871 <FRAME '
\1aCOMPUTE-DIRECTION>
4872 <NTHUV OP-INFO7 5 = STACK (TYPE ATOM)>
4873 <EQUAL? CMPINS6 'VEQUAL?!-MIMOP - PHRASE149>
4874 <SET SAC112 2 (TYPE FIX)>
4877 <EQUAL? CMPINS6 'LESS?!-MIMOP - PHRASE150>
4878 <SET SAC112 1 (TYPE FIX)>
4881 <EQUAL? CMPINS6 'GRTR?!-MIMOP + TAG152>
4883 <SET SAC112 %<> (TYPE FALSE)>
4886 <SET SAC112 3 (TYPE FIX)>
4890 <CALL '
\1aCOMPUTE-DIRECTION 2 = STACK>
4891 <NTHUV OP-INFO7 4 = STACK>
4894 <CALL '
\1aGEN-TEST-INST 3>
4896 <RETURN 'CONDITIONAL-BRANCH>
4897 <END
\1aSLOT-COMPARE>