14 <SETG BEAR-JSYS 9126805504>
16 <GDECL (MAX-IMMEDIATE) FIX>
26 <BLOCK (<SETG JSYS-OBLIST <MOBLIST JSYS>> <ROOT>)>
28 <SETG ALL-JSY '[0 JSYS 1 LOGIN 2 CRJOB 3 LGOUT 4 CACCT 5 EFACT 6 SMON 7 TMON 8 GETAB 9 ERSTR 10 GETER 11 GJINF 12 TIME-JSYS 13 RUNTM 14 SYSGT 15 GNJFN 16 GTJFN-S-S 16 GTJFN-S-J 16 GTJFN-L 17 OPENF 18 CLOSF 19 RLJFN 20 GTSTS 21 STSTS 22 DELF 23 SFPTR 24 JFNS 25 FFFFP 26 RDDIR 27 CPRTF 28 CLZFF 29 RNAMF 30 SIZEF 31 GACTF 32 STDIR 33 DIRST 34 BKJFN 35 RFPTR 36 CNDIR 37 RFBSZ 38 SFBSZ 39 SWJFN 40 BIN 41 BOUT 42 SIN-JSYS 43 SOUT 44 RIN 45 ROUT 46 PMAP 47 RPACS 48 SPACS 49 RMAP 50 SACTF 51 GTFDB 52 CHFDB 53 DUMPI 54 DUMPO 55 DELDF 56 ASND 57 RELD 58 CSYNO 59 PBIN 60 PBOUT 62 PSOUT 63 MTOPR 64 CFIBF 65 CFOBF 66 SIBE 67 SOBE 68 DOBE 69 GTABS 70 STABS 71 RFMOD 72 SFMOD 73 RFPOS 74 RFCOC 75 SFCOC 76 STI 77 DTACH 78 ATACH 79 DVCHR 80 STDEV 81 DEVST 82 MOUNT 83 DSMNT 84 INIDR 85 SIR 86 EIR 87 SKPIR 88 DIR 89 AIC 90 IIC 91 DIC 92 RCM 93 RWM 94 DEBRK 95 ATI 96 DTI 97 CIS 98 SIRCM 99 RIRCM 100 RIR 101 GDSTS 102 SDSTS 103 RESET-JSYS 104 RPCAP 105 EPCAP 106 CFORK 107 KFORK 108 FFORK 109 RFORK 110 RFSTS 111 SFORK 112 SFACS 113 RFACS 114 HFORK 115 WFORK 116 GFRKH 117 RFRKH 118 GFRKS 119 DISMS 120 HALTF 121 GTRPW 122 GTRPI 123 RTIW 124 STIW 125 SOBF 126 RWSET 127 GETNM 128 GET-JSYS 129 SFRKV 130 SAVE-JSYS 131 SSAVE 132 SEVEC 133 GEVEC 134 GPJFN 135 SPJFN 136 SETNM 137 FFUFP 138 DIBE 139 FDFRE 140 GDSKC 141 LITES 142 TLINK-JSYS 143 STPAR 144 ODTIM 145 IDTIM 146 ODCNV 147 IDCNV 148 NOUT 149 NIN 150 STAD 151 GTAD 152 ODTNC 153 INTNC 154 FLIN 155 FLOUT 156 DFIN 157 DFOUT 160 CRDIR 161 GTDIR 162 DSKOP 163 SPRIW 164 DSKAS 165 SJPRI 176 ASNDP 177 RELDP 178 ASNDC 179 RELDC 180 STRDP 181 STPDP 182 STSDP 183 RDSDP 184 WATDP 186 GTNCP 187 GTHST 188 ATNVT 189 CVSKT 190 CVHST 191 FLHST 192 GCVEC 193 SCVEC 194 SSTYP 195 GTTYP 196 BPT 197 GTDAL 198 WAIT 199 HSYS 200 USRIO 201 PEEK 202 MSFRK 203 ESOUT 204 SPLFK 205 ADVIZ 206 JOBTM 207 DELNF 208 SWTCH 209 TFORK 210 RTFRK 211 UTFRK 212 SCTTY 222 SETER 320 RSCAN 321 HPTIM 322 CRLNM 323 INLNM 324 LNMST 325 RDTXT 326 SETSN 327 GETJI 328 MSEND 329 MRECV 330 MUTIL 331 ENQ 332 DEQ 333 ENQC 334 SNOOP 335 SPOOL 336 ALLOC 337 CHKAC 338 TIMER 339 RDTTY 340 TEXTI 341 UFPGS 342 SFPOS 343 SYERR 344 DIAG 345 SINR 346 SOUTR 347 RFTAD 348 SFTAD 349 TBDEL 350 TBADD 351 TBLUK 352 STCMP 353 SETJB 354 GDVEC 355 SDVEC 356 COMND 357 PRARG 358 GACCT 359 LPINI 360 GFUST 361 SFUST 362 ACCES 363 RCDIR 364 RCUSR 365 MSTR 366 STPPN 367 PPNST 368 PMCTL 369 LOCK 370 BOOT 371 UTEST 372 USAGE 374 VACCT 375 NODE 376 ADRBK 390 XGVEC 408 IIT 412 GTBLT 413 VTSOP 414 RTMOD 415 STMOD 416 RTCHR 417 STCHR 488 SNDIM 489 RCVIM 490 ASNSQ 491 RELSQ 504 THIBR 505 TWAKE 506 MRPAC 507 SETPV 508 MTALN 509 TTMSG 482 OPEN-JSYS 483 CLOSE-JSYS 480 SEND 481 RECV 485 STAT 486 CHANL 487 ABORT 484 SCSLV 503 SMAP 188 ATNVT]>
33 <GFCN
\1aSETUP-JSY ("VALUE" ATOM)>
34 <TEMP PNTR8 TEMP13 JSY9:JSYS TEMP18>
36 <GVAL 'ALL-JSY = PNTR8>
40 <EMPUV? PNTR8 - PHRASE12 (TYPE VECTOR)>
43 <NTHUV PNTR8 1 = TEMP13 (TYPE FIX)>
44 <ADD TEMP13 9126805504 = TEMP13 (TYPE FIX)>
45 <CHTYPE TEMP13 <TYPE-CODE JSYS> = JSY9>
47 <NTHUV PNTR8 2 = TEMP13 (TYPE ATOM)>
48 <NTHR TEMP13 1 = TEMP13 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE15)>
49 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE15>
50 <NTHR TEMP13 1 = TEMP13 (RECORD-TYPE GBIND)>
51 <TYPE? TEMP13 <TYPE-CODE UNBOUND> + PHRASE15>
53 <NTHUV PNTR8 2 = TEMP13 (TYPE ATOM)>
54 <GVAL TEMP13 = TEMP18>
56 <EQUAL? TEMP18 JSY9 + PHRASE15>
59 <PUSH 'JSYS-ALREADY-ASSIGNED>
60 <NTHUV PNTR8 1 = STACK (TYPE FIX)>
63 <NTHUV PNTR8 2 = TEMP18 (TYPE ATOM)>
64 <NTHR TEMP18 1 = TEMP13 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG20)>
65 <TYPE? TEMP13 <TYPE-CODE FALSE> + TAG20>
66 <PUTR TEMP13 1 JSY9 (RECORD-TYPE GBIND)>
75 <CALL '
\1aSETG 2 = JSY9>
77 <RESTUV PNTR8 2 = PNTR8 (TYPE VECTOR)>
80 <COND (<GASSIGNED? SETUP-JSY> <SETUP-JSY>)>
83 <GFCN
\1aSYSOP!-MIMOC ("VALUE" ANY LIST) L4>
84 <TEMP (MUNGED-REG5 1) (DEST6 %<>) (LBL9 %<>) (LL11:LIST ()) JSATM13 JSFORM14 TEMP25 JSNUM15 TEMP34 DIR8 TEMP79>
86 <EMPL? L4 - PHRASE19 (TYPE LIST)>
88 <PUSH 'NO-JSYS-SUPPLIED!-ERRORS>
91 <NTHL L4 1 = JSFORM14>
92 <TYPE? JSFORM14 <TYPE-CODE FORM> - BOOL24>
93 <EMPL? JSFORM14 + BOOL24>
94 <RESTL JSFORM14 1 = TEMP25 (TYPE LIST)>
95 <EMPL? TEMP25 + BOOL24>
96 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
97 <EMPL? TEMP25 - BOOL24>
99 <NTHL JSFORM14 1 = TEMP25>
100 <EQUAL? TEMP25 'QUOTE - BOOL24>
102 <RESTL JSFORM14 1 = TEMP25 (TYPE LIST)>
103 <NTHL TEMP25 1 = JSATM13>
105 <TYPE? JSATM13 <TYPE-CODE ATOM> - BOOL24>
107 <NTHR JSATM13 3 = STACK (RECORD-TYPE ATOM)>
109 <GVAL 'JSYS-OBLIST = STACK>
110 <CALL '
\1aLOOKUP 2 = JSATM13>
111 <TYPE? JSATM13 <TYPE-CODE ATOM> - BOOL24>
112 <NTHR JSATM13 1 = TEMP25 (RECORD-TYPE ATOM) (BRANCH-FALSE + BOOL24)>
113 <TYPE? TEMP25 <TYPE-CODE FALSE> + BOOL24>
114 <NTHR TEMP25 1 = TEMP25 (RECORD-TYPE GBIND)>
115 <TYPE? TEMP25 <TYPE-CODE UNBOUND> + BOOL24>
117 <GVAL JSATM13 = JSNUM15>
118 <TYPE? JSNUM15 <TYPE-CODE JSYS> + BOOL23>
120 <SET JSNUM15 JSFORM14>
122 <TYPE? JSNUM15 <TYPE-CODE FIX> + TAG28>
123 <TYPE? JSNUM15 <TYPE-CODE JSYS> - BOOL27>
125 <AND JSNUM15 #WORD *777777* = TEMP25>
126 <GVAL 'ALL-JSY = JSFORM14>
127 <EMPTY? JSFORM14 + BOOL27>
128 <LOOP (TEMP25 VALUE) (JSFORM14 LENGTH VALUE TYPE)>
130 <NTH1 JSFORM14 = TEMP34>
131 <TYPE? TEMP34 <TYPE-CODE FIX> - TAG32>
132 <VEQUAL? TEMP34 TEMP25 + TAG30>
135 <REST1 JSFORM14 = JSFORM14>
136 <EMPTY? JSFORM14 - TAG31>
143 <CALL '
\1aNTH 2 = JSATM13>
144 <TYPE? JSATM13 <TYPE-CODE FALSE> - BOOL23>
146 <TYPE? JSNUM15 <TYPE-CODE ATOM> - PHRASE22>
148 <TYPE? JSATM13 <TYPE-CODE UNBOUND> - TAG39>
149 <SET JSFORM14 %<> (TYPE FALSE)>
154 <PUSH 'SPECIAL-JSYS-FUNCTION>
155 <CALL '
\1aGETPROP 2 = JSFORM14>
157 <TYPE? JSFORM14 <TYPE-CODE FALSE> + PHRASE37>
163 <ACALL JSFORM14 2 = JSFORM14>
167 <RESTL L4 1 = L4 (TYPE LIST)>
168 <EMPL? L4 + EXIT70 (TYPE LIST)>
169 <NTHL L4 1 = JSFORM14>
170 <SET TEMP25 [= + -] (TYPE VECTOR)>
171 <TYPE? JSFORM14 <TYPE-CODE ATOM> - PHRASE44>
172 <LOOP (JSFORM14 VALUE) (TEMP25 LENGTH VALUE)>
174 <NTHUV TEMP25 1 = TEMP34>
175 <VEQUAL? TEMP34 JSFORM14 + TAG45>
177 <RESTUV TEMP25 1 = TEMP25 (TYPE VECTOR)>
178 <EMPUV? TEMP25 - TAG46>
181 <EQUAL? JSFORM14 '= - PHRASE49>
183 <RESTL L4 1 = TEMP25 (TYPE LIST)>
184 <NTHL TEMP25 1 = DEST6>
186 <RESTL L4 1 = L4 (TYPE LIST)>
187 <RESTL L4 1 = L4 (TYPE LIST)>
189 <EMPL? L4 + EXIT70 (TYPE LIST)>
191 <RESTL L4 1 = TEMP25 (TYPE LIST)>
193 <NTHL TEMP25 1 = LBL9>
198 <LOOP (JSFORM14 VALUE)>
200 <NTHL JSFORM14 1 = TEMP25>
201 <TYPE? TEMP25 <TYPE-CODE ATOM> - TAG58>
202 <VEQUAL? TEMP25 '= + TAG56>
205 <RESTL JSFORM14 1 = JSFORM14 (TYPE LIST)>
206 <EMPL? JSFORM14 - TAG57>
209 <RESTL JSFORM14 1 = TEMP25 (TYPE LIST)>
211 <NTHL TEMP25 1 = DEST6>
215 <LOOP (TEMP25 VALUE)>
217 <NTHL TEMP25 1 = TEMP34>
218 <TYPE? TEMP34 <TYPE-CODE ATOM> - TAG65>
219 <VEQUAL? TEMP34 '+ + TAG67>
222 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
223 <EMPL? TEMP25 - TAG64>
225 <LOOP (TEMP25 VALUE)>
227 <NTHL TEMP25 1 = TEMP34>
228 <TYPE? TEMP34 <TYPE-CODE ATOM> - TAG69>
229 <VEQUAL? TEMP34 '- + TAG67>
232 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
233 <EMPL? TEMP25 - TAG68>
234 <SET TEMP25 %<> (TYPE FALSE)>
236 <SET JSFORM14 TEMP25>
238 <VEQUAL? JSFORM14 0 + PHRASE60>
239 <NTHL JSFORM14 1 = DIR8>
240 <RESTL JSFORM14 1 = TEMP25 (TYPE LIST)>
242 <NTHL TEMP25 1 = LBL9>
246 <RESTUV TEMP34 2 = TEMP25 (TYPE VECTOR)>
248 <CHTYPE TEMP25 <TYPE-CODE VECTOR> = TEMP25>
252 <NTHL L4 1 = JSFORM14>
253 <SET TEMP34 [+ -] (TYPE VECTOR)>
254 <TYPE? JSFORM14 <TYPE-CODE ATOM> - PHRASE75>
255 <LOOP (JSFORM14 VALUE) (TEMP34 LENGTH VALUE)>
257 <NTHUV TEMP34 1 = TEMP79>
258 <VEQUAL? TEMP79 JSFORM14 + EXIT70>
260 <RESTUV TEMP34 1 = TEMP34 (TYPE VECTOR)>
261 <EMPUV? TEMP34 - TAG77>
263 <EQUAL? JSFORM14 '= - PHRASE83>
264 <RESTL L4 1 = TEMP34 (TYPE LIST)>
265 <NTHL TEMP34 1 = DEST6>
267 <RESTL L4 1 = L4 (TYPE LIST)>
268 <RESTL L4 1 = L4 (TYPE LIST)>
269 <EMPL? L4 - AGAIN73 (TYPE LIST)>
272 <TYPE? JSFORM14 <TYPE-CODE LIST> - PHRASE85>
273 <EMPL? JSFORM14 + PHRASE85>
274 <RESTL JSFORM14 1 = TEMP34 (TYPE LIST)>
275 <EMPL? TEMP34 + PHRASE85>
276 <RESTL TEMP34 1 = TEMP34 (TYPE LIST)>
277 <EMPL? TEMP34 - PHRASE85>
279 <NTHL JSFORM14 1 = TEMP34>
280 <EQUAL? TEMP34 'RETURN - PHRASE85>
282 <RESTL JSFORM14 1 = TEMP34 (TYPE LIST)>
284 <NTHL TEMP34 1 = MUNGED-REG5>
288 <NTHUV TEMP25 1 = TEMP34>
289 <CONS TEMP34 LL11 = TEMP34>
291 <CONS 'VALUE TEMP34 = TEMP34>
292 <CONS JSFORM14 TEMP34 = LL11>
294 <TYPE? JSFORM14 <TYPE-CODE ATOM> - PHRASE89>
295 <EQUAL? JSFORM14 DEST6 + BOOL94>
296 <FRAME '
\1aWILL-DIE?>
298 <CALL '
\1aWILL-DIE? 1 = TEMP34>
299 <TYPE? TEMP34 <TYPE-CODE FALSE> + PHRASE89>
301 <TYPE? LBL9 <TYPE-CODE FALSE> + BOOL94>
302 <FRAME '
\1aWILL-DIE?>
304 <FRAME '
\1aLAB-CODE-PNTR>
305 <FRAME '
\1aFIND-LABEL>
307 <CALL '
\1aFIND-LABEL 1 = STACK>
308 <CALL '
\1aLAB-CODE-PNTR 1 = STACK>
309 <CALL '
\1aWILL-DIE? 2 = TEMP34>
310 <TYPE? TEMP34 <TYPE-CODE FALSE> + PHRASE89>
313 <FRAME '
\1aDEAD!-MIMOC>
314 <CONS JSFORM14 () = STACK>
317 <CALL '
\1aDEAD!-MIMOC 2>
319 <RESTUV TEMP25 2 = TEMP25 (TYPE VECTOR)>
321 <RESTL L4 1 = L4 (TYPE LIST)>
322 <EMPL? L4 - AGAIN73 (TYPE LIST)>
324 <FRAME '
\1aUPDATE-ACS>
325 <CALL '
\1aUPDATE-ACS 0>
326 <FRAME '
\1aGET-INTO-ACS>
327 <SET TEMP79 0 (TYPE FIX)>
330 <LOOP (TEMP34 VALUE) (TEMP79 VALUE)>
333 <EMPL? TEMP34 + TAG102>
334 <NTHL TEMP34 1 = STACK>
335 <RESTL TEMP34 1 = TEMP34 (TYPE LIST)>
336 <ADD TEMP79 1 = TEMP79 (TYPE FIX)>
339 <CALL '
\1aGET-INTO-ACS TEMP79>
341 <FRAME '
\1aFLUSH-ACS>
342 <CALL '
\1aFLUSH-ACS 0>
343 <TYPE? LBL9 <TYPE-CODE FALSE> + PHRASE107>
344 <EQUAL? DIR8 '- - PHRASE107>
345 <FRAME '
\1aLABEL-UPDATE-ACS>
348 <CALL '
\1aLABEL-UPDATE-ACS 2>
350 <TYPE? JSNUM15 <TYPE-CODE ATOM> - PHRASE111>
355 <CALL '
\1aSMASH-AC 3>
370 <TYPE? LBL9 <TYPE-CODE FALSE> + PHRASE117>
371 <EQUAL? DIR8 '- - PHRASE117>
378 <CALL '
\1aXJUMP 1 = STACK>
380 <FRAME '
\1aRESULT-JSYS>
385 <CALL '
\1aRESULT-JSYS 2 = JSFORM14>
389 <TYPE? LBL9 <TYPE-CODE FALSE> + PHRASE122>
390 <EQUAL? DIR8 '+ - PHRASE122>
398 <CALL '
\1aGENLBL 1 = JSATM13>
400 <CALL '
\1aXJUMP 1 = STACK>
402 <FRAME '
\1aRESULT-JSYS>
407 <CALL '
\1aRESULT-JSYS 2>
408 <FRAME '
\1aLABEL-UPDATE-ACS>
411 <CALL '
\1aLABEL-UPDATE-ACS 2>
417 <CALL '
\1aXJUMP 1 = STACK>
422 <CALL '
\1aLABEL 1 = JSFORM14>
426 <TYPE? DEST6 <TYPE-CODE FALSE> - PHRASE132>
432 <CALL '
\1aXJUMP 1 = STACK>
434 <EQUAL? MUNGED-REG5 'ALL + TAG137>
438 <FRAME '
\1aRESULT-JSYS>
441 <CALL '
\1aRESULT-JSYS 2 = JSFORM14>
445 <GVAL 'SIBE!-JSYS = TEMP79>
446 <EQUAL? TEMP79 JSNUM15 + BOOL142>
448 <GVAL 'SOBE!-JSYS = TEMP79>
449 <EQUAL? TEMP79 JSNUM15 - PHRASE141>
450 <DEAD TEMP79 JSNUM15>
463 <CALL '
\1aGENLBL 1 = JSATM13>
465 <CALL '
\1aXJUMP 1 = STACK>
475 <CALL '
\1aGENLBL 1 = JSATM13>
477 <CALL '
\1aXJUMP 1 = STACK>
480 <FRAME '
\1aRESULT-JSYS>
484 <CALL '
\1aRESULT-JSYS 2>
490 <CALL '
\1aGENLBL 1 = MUNGED-REG5>
492 <CALL '
\1aXJUMP 1 = STACK>
516 <FRAME '
\1aTYPE-CODE>
518 <CALL '
\1aTYPE-CODE 1 = STACK>
535 <CALL '
\1aLABEL 1 = JSFORM14>
540 <PUSH 'CANT-COMPILE-SYSOP>
543 <CALL '
\1aERROR 2 = JSFORM14>
546 <END
\1aSYSOP!-MIMOC>
\r\r
548 <GFCN
\1aRESULT-JSYS ("VALUE" ANY ANY ANY) MUNGED-REG4 DEST5>
549 <TEMP TEMP10 I14:FIX>
551 <EQUAL? MUNGED-REG4 'ALL - PHRASE7>
556 <CALL '
\1aPARSE 1 = TEMP10>
557 <CHTYPE TEMP10 <TYPE-CODE XGLOC> = STACK>
560 <CALL '
\1aSMASH-AC 3>
567 <FRAME '
\1aMUNGED-AC>
569 <CALL '
\1aMUNGED-AC 1>
570 <SET I14 0 (TYPE FIX)>
575 <ADD I14 1 = I14 (TYPE FIX)>
577 <GVAL 'MAX-ACS = STACK>
578 <CALL '
\1aG? 2 = TEMP10>
579 <TYPE? TEMP10 <TYPE-CODE FALSE> - EXIT13>
585 <LSH I14 1 = TEMP10 (TYPE FIX)>
586 <ADD TEMP10 1 = STACK (TYPE FIX)>
588 <CALL '
\1aNTH 2 = STACK>
589 <SUB I14 1 = STACK (TYPE FIX)>
595 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE33>
600 <SET I14 3 (TYPE FIX)>
604 <CALL '
\1aPARSE 1 = TEMP10>
605 <CHTYPE TEMP10 <TYPE-CODE XGLOC> = STACK>
607 <SCALL '
\1aOBJ-VAL 1 = TEMP10 + TAG24 I14>
608 <LOOP (TEMP10 TYPE VALUE LENGTH) (I14 VALUE)>
611 <EMPTY? TEMP10 + TAG24>
612 <NTH1 TEMP10 = STACK>
613 <REST1 TEMP10 = TEMP10>
614 <ADD I14 1 = I14 (TYPE FIX)>
617 <CALL '
\1aOCEMIT I14>
619 <FRAME '
\1aPUSHJ-VAL>
622 <CALL '
\1aPUSHJ-VAL 1 = TEMP10>
627 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE33>
628 <EQUAL? MUNGED-REG4 2 + PHRASE35>
639 <FRAME '
\1aTYPE-CODE>
641 <CALL '
\1aTYPE-CODE 1 = STACK>
643 <FRAME '
\1aPUSHJ-VAL>
646 <CALL '
\1aPUSHJ-VAL 1 = TEMP10>
652 <GFCN
\1aSIN-SOUT ("VALUE" ANY ANY LIST) JS5 L6>
653 <TEMP (DEST7 %<>) ECHAR8 TEMP15 TEMP16>
656 <EMPL? TEMP15 + PHRASE11>
657 <LOOP (TEMP15 VALUE)>
659 <NTHL TEMP15 1 = TEMP16>
660 <TYPE? TEMP16 <TYPE-CODE ATOM> - TAG14>
661 <VEQUAL? TEMP16 '= + TAG12>
664 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
665 <EMPL? TEMP15 - TAG13>
669 <SET TEMP16 7 (TYPE FIX)>
670 <LOOP (TEMP15 VALUE) (TEMP16 VALUE)>
672 <EMPL? TEMP15 + PHRASE18>
673 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
674 <SUB TEMP16 1 = TEMP16 (TYPE FIX)>
675 <GRTR? TEMP16 0 + TAG19 (TYPE FIX)>
676 <EMPL? TEMP15 - PHRASE18>
683 <SET TEMP16 6 (TYPE FIX)>
684 <LOOP (TEMP15 VALUE) (TEMP16 VALUE)>
686 <EMPL? TEMP15 + PHRASE20>
687 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
688 <SUB TEMP16 1 = TEMP16 (TYPE FIX)>
689 <GRTR? TEMP16 0 + TAG22 (TYPE FIX)>
690 <EMPL? TEMP15 - PHRASE20>
696 <PUSH 'BAD-SIN-SOUT-CALL!-ERRORS>
697 <CALL '
\1aMIMOCERR 1>
701 <SET TEMP16 5 (TYPE FIX)>
702 <LOOP (TEMP15 VALUE) (TEMP16 VALUE)>
704 <EMPL? TEMP15 + PHRASE25>
705 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
706 <SUB TEMP16 1 = TEMP16 (TYPE FIX)>
707 <GRTR? TEMP16 0 + TAG27 (TYPE FIX)>
708 <EMPL? TEMP15 - PHRASE25>
714 <SET TEMP16 4 (TYPE FIX)>
715 <LOOP (TEMP15 VALUE) (TEMP16 VALUE)>
717 <EMPL? TEMP15 + TAG31>
718 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
719 <SUB TEMP16 1 = TEMP16 (TYPE FIX)>
720 <GRTR? TEMP16 0 + TAG30 (TYPE FIX)>
721 <EMPL? TEMP15 + PHRASE28>
725 <PUSH 'BAD-SIN-SOUT-CALL!-ERRORS>
726 <CALL '
\1aMIMOCERR 1>
728 <FRAME '
\1aUPDATE-ACS>
729 <CALL '
\1aUPDATE-ACS 0>
730 <RESTL L6 1 = TEMP15 (TYPE LIST)>
731 <NTHL TEMP15 1 = TEMP16>
733 <TYPE? TEMP16 <TYPE-CODE FIX> - PHRASE35>
734 <GVAL 'MAX-IMMEDIATE = TEMP15>
735 <LESS? TEMP16 TEMP15 - PHRASE35 (TYPE FIX)>
737 <FRAME '
\1aMUNGED-AC>
739 <CALL '
\1aMUNGED-AC 1>
753 <CALL '
\1aSMASH-AC 3>
757 <RESTL L6 1 = TEMP15 (TYPE LIST)>
758 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
759 <NTHL TEMP15 1 = STACK>
762 <CALL '
\1aSMASH-AC 3>
765 <RESTL L6 1 = TEMP15 (TYPE LIST)>
766 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
767 <NTHL TEMP15 1 = STACK>
770 <CALL '
\1aSMASH-AC 3>
771 <RESTL L6 1 = TEMP15 (TYPE LIST)>
773 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
774 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
775 <NTHL TEMP15 1 = TEMP16>
777 <TYPE? TEMP16 <TYPE-CODE FIX> - PHRASE44>
778 <GVAL 'MAX-IMMEDIATE = TEMP15>
779 <LESS? TEMP16 TEMP15 - PHRASE44 (TYPE FIX)>
781 <FRAME '
\1aMUNGED-AC>
783 <CALL '
\1aMUNGED-AC 1>
797 <CALL '
\1aSMASH-AC 3>
799 <TYPE? ECHAR8 <TYPE-CODE UNBOUND> + PHRASE58>
802 <CALL '
\1aPRIMTYPE 1 = TEMP15>
803 <VEQUAL? TEMP15 'WORD - PHRASE53>
805 <CHTYPE ECHAR8 <TYPE-CODE FIX> = ECHAR8>
806 <GVAL 'MAX-IMMEDIATE = TEMP15>
807 <LESS? ECHAR8 TEMP15 - PHRASE53 (TYPE FIX)>
809 <FRAME '
\1aMUNGED-AC>
811 <CALL '
\1aMUNGED-AC 1>
825 <CALL '
\1aSMASH-AC 3>
832 <CALL '
\1aPUSHJ 2 = TEMP15>
836 <SETG GJ-SHORT 262144>
841 <GFCN
\1aGTJFN-S-DO ("VALUE" ANY ANY LIST) JS5 L6>
842 <TEMP TEMP10 FLAGS7 SOURCE8 DEST9 TEMP15>
844 <RESTL L6 1 = TEMP10 (TYPE LIST)>
845 <NTHL TEMP10 1 = FLAGS7>
847 <RESTL L6 1 = TEMP10 (TYPE LIST)>
848 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
849 <NTHL TEMP10 1 = SOURCE8>
852 <FRAME '
\1aUPDATE-ACS>
853 <CALL '
\1aUPDATE-ACS 0>
854 <TYPE? FLAGS7 <TYPE-CODE FIX> + TAG14>
855 <TYPE? FLAGS7 <TYPE-CODE WORD> - PHRASE13>
857 <GVAL 'GJ-SHORT = TEMP10>
858 <OR FLAGS7 TEMP10 = TEMP15>
860 <EQUAL? JS5 'GTJFN-S-J - PHRASE17>
861 <GVAL 'GJ-FNS = TEMP10>
864 <SET TEMP10 0 (TYPE FIX)>
866 <OR TEMP15 TEMP10 = FLAGS7>
868 <FRAME '
\1aMUNGED-AC>
870 <CALL '
\1aMUNGED-AC 1>
871 <AND FLAGS7 #WORD *777777* = TEMP15>
872 <VEQUAL? TEMP15 0 - PHRASE21 (TYPE FIX)>
877 <LSH FLAGS7 -18 = STACK (TYPE FIX)>
885 <SET TEMP10 2 (TYPE FIX)>
889 <SCALL '
\1aOBJ-VAL 1 = TEMP15 + TAG26 TEMP10>
890 <LOOP (TEMP15 TYPE VALUE LENGTH) (TEMP10 VALUE)>
893 <EMPTY? TEMP15 + TAG26>
894 <NTH1 TEMP15 = STACK>
895 <REST1 TEMP15 = TEMP15>
896 <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
899 <CALL '
\1aOCEMIT TEMP10>
908 <CALL '
\1aSMASH-AC 3>
912 <GVAL 'GJ-SHORT = TEMP10>
913 <LSH TEMP10 -18 = TEMP10 (TYPE FIX)>
914 <EQUAL? JS5 'GTJFN-S-J - PHRASE34>
915 <GVAL 'GJ-FNS = TEMP15>
918 <SET TEMP15 0 (TYPE FIX)>
920 <LSH TEMP15 -18 = TEMP15 (TYPE FIX)>
921 <OR TEMP10 TEMP15 = STACK>
925 <EQUAL? JS5 'GTJFN-S-J - PHRASE37>
927 <TYPE? SOURCE8 <TYPE-CODE FIX> + TAG41>
928 <TYPE? SOURCE8 <TYPE-CODE WORD> - PHRASE39>
930 <LESS? SOURCE8 262143 - PHRASE39 (TYPE FIX)>
931 <FRAME '
\1aMUNGED-AC>
933 <CALL '
\1aMUNGED-AC 1>
947 <CALL '
\1aSMASH-AC 3>
952 <RESTL L6 1 = TEMP15 (TYPE LIST)>
953 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
954 <NTHL TEMP15 1 = STACK>
957 <CALL '
\1aSMASH-AC 3>
958 <FRAME '
\1aMUNGED-AC>
960 <CALL '
\1aMUNGED-AC 1>
964 <SET TEMP10 2 (TYPE FIX)>
966 <RESTL L6 1 = FLAGS7 (TYPE LIST)>
968 <RESTL FLAGS7 1 = FLAGS7 (TYPE LIST)>
969 <NTHL FLAGS7 1 = STACK>
971 <SCALL '
\1aOBJ-TYP 1 = TEMP15 + TAG49 TEMP10>
972 <LOOP (TEMP15 TYPE VALUE LENGTH) (TEMP10 VALUE)>
975 <EMPTY? TEMP15 + TAG49>
976 <NTH1 TEMP15 = STACK>
977 <REST1 TEMP15 = TEMP15>
978 <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
981 <CALL '
\1aOCEMIT TEMP10>
988 <CALL '
\1aPUSHJ 2 = TEMP10>
993 <GFCN
\1aGTJFN-L-DO ("VALUE" ANY ANY LIST) JS5 L6>
994 <TEMP LN7:FIX TEMP11 TEMP14 TEMP31 TEMP29>
996 <LENL L6 = LN7 (TYPE FIX)>
997 <FRAME '
\1aUPDATE-ACS>
998 <CALL '
\1aUPDATE-ACS 0>
999 <SUB LN7 1 = TEMP11 (TYPE FIX)>
1001 <SUB TEMP11 1 = TEMP11 (TYPE FIX)>
1002 <GRTR? TEMP11 0 - RESTL15 (TYPE FIX)>
1003 <LOOP (TEMP14 VALUE) (TEMP11 VALUE)>
1006 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
1007 <SUB TEMP11 1 = TEMP11 (TYPE FIX)>
1008 <GRTR? TEMP11 0 + RESTL13 (TYPE FIX)>
1010 <NTHL TEMP14 1 = TEMP11>
1012 <EQUAL? TEMP11 '= + PHRASE10>
1014 <FRAME '
\1aMIMOCERR>
1015 <PUSH 'NO-PLACE-TO-RETURN!-ERRORS>
1017 <CALL '
\1aMIMOCERR 2>
1019 <RESTL L6 1 = TEMP11 (TYPE LIST)>
1023 <EMPL? TEMP11 + MAPAP21>
1024 <NTHL TEMP11 1 = TEMP14>
1025 <EQUAL? TEMP14 '= + MAPAP21>
1029 <SET TEMP31 2 (TYPE FIX)>
1032 <SCALL '
\1aOBJ-TYP 1 = TEMP29 + TAG30 TEMP31>
1033 <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP31 VALUE)>
1036 <EMPTY? TEMP29 + TAG30>
1037 <NTH1 TEMP29 = STACK>
1038 <REST1 TEMP29 = TEMP29>
1039 <ADD TEMP31 1 = TEMP31 (TYPE FIX)>
1042 <CALL '
\1aOCEMIT TEMP31>
1044 <GVAL 'WINNING-VICTIM = TEMP31>
1045 <TYPE? TEMP31 <TYPE-CODE FALSE> + PHRASE36>
1048 <GVAL 'STACK-DEPTH = STACK>
1050 <CALL '
\1a+ 2 = TEMP31>
1051 <SETG 'STACK-DEPTH TEMP31>
1057 <SET TEMP29 2 (TYPE FIX)>
1061 <SCALL '
\1aOBJ-VAL 1 = TEMP31 + TAG38 TEMP29>
1062 <LOOP (TEMP31 TYPE VALUE LENGTH) (TEMP29 VALUE)>
1065 <EMPTY? TEMP31 + TAG38>
1066 <NTH1 TEMP31 = STACK>
1067 <REST1 TEMP31 = TEMP31>
1068 <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
1071 <CALL '
\1aOCEMIT TEMP29>
1073 <GVAL 'WINNING-VICTIM = TEMP29>
1074 <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE43>
1077 <GVAL 'STACK-DEPTH = STACK>
1079 <CALL '
\1a+ 2 = TEMP29>
1080 <SETG 'STACK-DEPTH TEMP29>
1083 <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
1089 <SUB LN7 3 = STACK (TYPE FIX)>
1097 <SUB TEMP11 1 = TEMP11 (TYPE FIX)>
1098 <GRTR? TEMP11 0 - RESTL48 (TYPE FIX)>
1099 <LOOP (TEMP14 VALUE) (TEMP11 VALUE)>
1102 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
1103 <SUB TEMP11 1 = TEMP11 (TYPE FIX)>
1104 <GRTR? TEMP11 0 + RESTL47 (TYPE FIX)>
1106 <NTHL TEMP14 1 = STACK>
1108 <CALL '
\1aPUSHJ 2 = TEMP14>
1113 <GFCN
\1aJFNS-DO ("VALUE" ANY ANY LIST) JS5 L6>
1114 <TEMP (DEST7 %<>) TEMP17 TEMP18 ARG29 ARG310 ARG411>
1117 <EMPL? TEMP17 + PHRASE13>
1118 <LOOP (TEMP17 VALUE)>
1120 <NTHL TEMP17 1 = TEMP18>
1121 <TYPE? TEMP18 <TYPE-CODE ATOM> - TAG16>
1122 <VEQUAL? TEMP18 '= + TAG14>
1125 <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
1126 <EMPL? TEMP17 - TAG15>
1130 <SET TEMP18 7 (TYPE FIX)>
1131 <LOOP (TEMP17 VALUE) (TEMP18 VALUE)>
1133 <EMPL? TEMP17 + PHRASE20>
1134 <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
1135 <SUB TEMP18 1 = TEMP18 (TYPE FIX)>
1136 <GRTR? TEMP18 0 + TAG21 (TYPE FIX)>
1137 <EMPL? TEMP17 - PHRASE20>
1142 <FRAME '
\1aMIMOCERR>
1143 <PUSH 'BAD-JFNS-CALL!-ERRORS>
1144 <CALL '
\1aMIMOCERR 1>
1148 <SET TEMP18 5 (TYPE FIX)>
1149 <LOOP (TEMP17 VALUE) (TEMP18 VALUE)>
1151 <EMPL? TEMP17 + TAG27>
1152 <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
1153 <SUB TEMP18 1 = TEMP18 (TYPE FIX)>
1154 <GRTR? TEMP18 0 + TAG26 (TYPE FIX)>
1155 <EMPL? TEMP17 + PHRASE24>
1158 <FRAME '
\1aMIMOCERR>
1159 <PUSH 'BAD-JFNS-CALL!-ERRORS>
1160 <CALL '
\1aMIMOCERR 1>
1162 <RESTL L6 1 = TEMP17 (TYPE LIST)>
1163 <NTHL TEMP17 1 = TEMP18>
1165 <EQUAL? TEMP18 DEST7 + BOOL31>
1166 <TYPE? TEMP18 <TYPE-CODE ATOM> - PHRASE30>
1167 <FRAME '
\1aWILL-DIE?>
1169 <CALL '
\1aWILL-DIE? 1 = TEMP17>
1170 <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE30>
1173 <FRAME '
\1aDEAD!-MIMOC>
1174 <CONS TEMP18 () = STACK>
1176 <CALL '
\1aDEAD!-MIMOC 2>
1178 <RESTL L6 1 = TEMP17 (TYPE LIST)>
1179 <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
1180 <NTHL TEMP17 1 = ARG29>
1182 <EQUAL? ARG29 DEST7 + BOOL37>
1183 <TYPE? ARG29 <TYPE-CODE ATOM> - PHRASE36>
1184 <FRAME '
\1aWILL-DIE?>
1186 <CALL '
\1aWILL-DIE? 1 = TEMP17>
1187 <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE36>
1190 <FRAME '
\1aDEAD!-MIMOC>
1191 <CONS ARG29 () = STACK>
1193 <CALL '
\1aDEAD!-MIMOC 2>
1195 <RESTL L6 1 = TEMP17 (TYPE LIST)>
1196 <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
1197 <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
1198 <NTHL TEMP17 1 = ARG310>
1200 <EQUAL? ARG310 DEST7 + BOOL43>
1201 <TYPE? ARG310 <TYPE-CODE ATOM> - PHRASE42>
1202 <FRAME '
\1aWILL-DIE?>
1204 <CALL '
\1aWILL-DIE? 1 = TEMP17>
1205 <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE42>
1208 <FRAME '
\1aDEAD!-MIMOC>
1209 <CONS ARG310 () = STACK>
1211 <CALL '
\1aDEAD!-MIMOC 2>
1213 <NTHL L6 5 = ARG411>
1215 <EQUAL? ARG411 DEST7 + BOOL49>
1216 <TYPE? ARG411 <TYPE-CODE ATOM> - PHRASE48>
1217 <FRAME '
\1aWILL-DIE?>
1219 <CALL '
\1aWILL-DIE? 1 = TEMP17>
1220 <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE48>
1223 <FRAME '
\1aDEAD!-MIMOC>
1224 <CONS ARG411 () = STACK>
1226 <CALL '
\1aDEAD!-MIMOC 2>
1228 <FRAME '
\1aUPDATE-ACS>
1229 <CALL '
\1aUPDATE-ACS 0>
1230 <FRAME '
\1aGET-INTO-ACS>
1246 <CALL '
\1aGET-INTO-ACS 12>
1250 <SET ARG29 2 (TYPE FIX)>
1254 <SCALL '
\1aOBJ-TYP 1 = TEMP17 + TAG55 ARG29>
1255 <LOOP (TEMP17 TYPE VALUE LENGTH) (ARG29 VALUE)>
1258 <EMPTY? TEMP17 + TAG55>
1259 <NTH1 TEMP17 = STACK>
1260 <REST1 TEMP17 = TEMP17>
1261 <ADD ARG29 1 = ARG29 (TYPE FIX)>
1264 <CALL '
\1aOCEMIT ARG29>
1270 <CALL '
\1aPUSHJ 2 = ARG29>
1273 <END
\1aJFNS-DO>
\r\r
1275 <GFCN
\1aRFTAD-DO ("VALUE" ANY ANY LIST) JS4 L5>
1276 <TEMP (DEST6 %<>) TL10 TEMP17>
1279 <EMPL? TL10 + PHRASE12>
1282 <NTHL TL10 1 = TEMP17>
1283 <TYPE? TEMP17 <TYPE-CODE ATOM> - TAG16>
1284 <VEQUAL? TEMP17 '= + TAG14>
1287 <RESTL TL10 1 = TL10 (TYPE LIST)>
1288 <EMPL? TL10 - TAG15>
1291 <RESTL TL10 1 = TEMP17 (TYPE LIST)>
1293 <NTHL TEMP17 1 = DEST6>
1296 <FRAME '
\1aUPDATE-ACS>
1297 <CALL '
\1aUPDATE-ACS 0>
1298 <FRAME '
\1aMUNGED-AC>
1300 <CALL '
\1aMUNGED-AC 1>
1301 <FRAME '
\1aSMASH-AC>
1303 <RESTL L5 1 = TEMP17 (TYPE LIST)>
1304 <NTHL TEMP17 1 = STACK>
1307 <CALL '
\1aSMASH-AC 3>
1308 <FRAME '
\1aMUNGED-AC>
1310 <CALL '
\1aMUNGED-AC 1>
1311 <FRAME '
\1aSMASH-AC>
1313 <RESTL L5 1 = TEMP17 (TYPE LIST)>
1314 <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
1315 <NTHL TEMP17 1 = STACK>
1318 <CALL '
\1aSMASH-AC 3>
1319 <FRAME '
\1aMUNGED-AC>
1321 <CALL '
\1aMUNGED-AC 1>
1322 <FRAME '
\1aSMASH-AC>
1324 <RESTL L5 1 = TEMP17 (TYPE LIST)>
1326 <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
1327 <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
1328 <NTHL TEMP17 1 = STACK>
1331 <CALL '
\1aSMASH-AC 3>
1336 <CALL '
\1aPUSHJ 2 = TEMP17>
1341 <GFCN
\1aERSTR-DO ("VALUE" ANY ANY LIST) JS5 L6>
1342 <TEMP (DEST7 %<>) TEMP16 TEMP17 ARG29 ARG310>
1345 <EMPL? TEMP16 + PHRASE12>
1346 <LOOP (TEMP16 VALUE)>
1348 <NTHL TEMP16 1 = TEMP17>
1349 <TYPE? TEMP17 <TYPE-CODE ATOM> - TAG15>
1350 <VEQUAL? TEMP17 '= + TAG13>
1353 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
1354 <EMPL? TEMP16 - TAG14>
1358 <SET TEMP17 6 (TYPE FIX)>
1359 <LOOP (TEMP16 VALUE) (TEMP17 VALUE)>
1361 <EMPL? TEMP16 + PHRASE19>
1362 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
1363 <SUB TEMP17 1 = TEMP17 (TYPE FIX)>
1364 <GRTR? TEMP17 0 + TAG20 (TYPE FIX)>
1365 <EMPL? TEMP16 - PHRASE19>
1370 <FRAME '
\1aMIMOCERR>
1371 <PUSH 'BAD-ERSTR-CALL!-ERRORS>
1372 <CALL '
\1aMIMOCERR 1>
1376 <SET TEMP17 4 (TYPE FIX)>
1377 <LOOP (TEMP16 VALUE) (TEMP17 VALUE)>
1379 <EMPL? TEMP16 + TAG26>
1380 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
1381 <SUB TEMP17 1 = TEMP17 (TYPE FIX)>
1382 <GRTR? TEMP17 0 + TAG25 (TYPE FIX)>
1383 <EMPL? TEMP16 + PHRASE23>
1386 <FRAME '
\1aMIMOCERR>
1387 <PUSH 'BAD-ERSTR-CALL!-ERRORS>
1388 <CALL '
\1aMIMOCERR 1>
1390 <RESTL L6 1 = TEMP16 (TYPE LIST)>
1391 <NTHL TEMP16 1 = TEMP17>
1393 <EQUAL? TEMP17 DEST7 + BOOL30>
1394 <TYPE? TEMP17 <TYPE-CODE ATOM> - PHRASE29>
1395 <FRAME '
\1aWILL-DIE?>
1397 <CALL '
\1aWILL-DIE? 1 = TEMP16>
1398 <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE29>
1401 <FRAME '
\1aDEAD!-MIMOC>
1402 <CONS TEMP17 () = STACK>
1404 <CALL '
\1aDEAD!-MIMOC 2>
1406 <RESTL L6 1 = TEMP16 (TYPE LIST)>
1407 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
1408 <NTHL TEMP16 1 = ARG29>
1410 <EQUAL? ARG29 DEST7 + BOOL36>
1411 <TYPE? ARG29 <TYPE-CODE ATOM> - PHRASE35>
1412 <FRAME '
\1aWILL-DIE?>
1414 <CALL '
\1aWILL-DIE? 1 = TEMP16>
1415 <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE35>
1418 <FRAME '
\1aDEAD!-MIMOC>
1419 <CONS ARG29 () = STACK>
1421 <CALL '
\1aDEAD!-MIMOC 2>
1423 <RESTL L6 1 = TEMP16 (TYPE LIST)>
1425 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
1426 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
1427 <NTHL TEMP16 1 = ARG310>
1429 <EQUAL? ARG310 DEST7 + BOOL42>
1430 <TYPE? ARG310 <TYPE-CODE ATOM> - PHRASE41>
1431 <FRAME '
\1aWILL-DIE?>
1433 <CALL '
\1aWILL-DIE? 1 = TEMP16>
1434 <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE41>
1437 <FRAME '
\1aDEAD!-MIMOC>
1438 <CONS ARG310 () = STACK>
1440 <CALL '
\1aDEAD!-MIMOC 2>
1442 <FRAME '
\1aUPDATE-ACS>
1443 <CALL '
\1aUPDATE-ACS 0>
1444 <FRAME '
\1aGET-INTO-ACS>
1457 <CALL '
\1aGET-INTO-ACS 9>
1462 <CALL '
\1aPUSHJ 2 = TEMP16>
1467 <GFCN
\1aLOAD-ARG ("VALUE" ANY ANY ANY) V5 AC6>
1470 <TYPE? V5 <TYPE-CODE FIX> + TAG10>
1471 <TYPE? V5 <TYPE-CODE WORD> - PHRASE8>
1473 <CHTYPE V5 <TYPE-CODE FIX> = V5>
1474 <LESS? V5 262143 - PHRASE8 (TYPE FIX)>
1475 <FRAME '
\1aMUNGED-AC>
1477 <CALL '
\1aMUNGED-AC 1>
1484 <CALL '
\1aOCEMIT 3 = TEMP13>
1488 <FRAME '
\1aSMASH-AC>
1494 <CALL '
\1aSMASH-AC 3 = TEMP13>
1498 <PUTPROP SIN-JSYS!-JSYS SPECIAL-JSYS-FUNCTION ,SIN-SOUT>
1500 <PUTPROP SOUT!-JSYS SPECIAL-JSYS-FUNCTION ,SIN-SOUT>
1502 <PUTPROP GTJFN-S-S!-JSYS SPECIAL-JSYS-FUNCTION ,GTJFN-S-DO>
1504 <PUTPROP GTJFN-S-J!-JSYS SPECIAL-JSYS-FUNCTION ,GTJFN-S-DO>
1506 <PUTPROP JFNS!-JSYS SPECIAL-JSYS-FUNCTION ,JFNS-DO>
1508 <PUTPROP ERSTR!-JSYS SPECIAL-JSYS-FUNCTION ,ERSTR-DO>
1510 <PUTPROP GTJFN-L!-JSYS SPECIAL-JSYS-FUNCTION ,GTJFN-L-DO>
1512 <COND (<GASSIGNED? RFTAD-DO> <PUTPROP RFTAD!-JSYS SPECIAL-JSYS-FUNCTION ,RFTAD-DO>)