mim/development/mim/20c/jsys.mima

   1
   2 <NEWTYPE XGLOC ATOM>
   3
   4 <NEWTYPE JSYS WORD>
   5
   6 <SETG DOJSYS 504>
   7
   8 <SETG HBPS 506>
   9
  10 <SETG MAX-ACS 5>
  11
  12 <SETG MAX-ACS-1 4>
  13
  14 <SETG BEAR-JSYS 9126805504>
  15
  16 <GDECL (MAX-IMMEDIATE) FIX>
  17
  18 <MANIFEST BEAR-JSYS>
  19
  20 <BLOCK (<ROOT>)>
  21
  22 ALL-JSY
  23
  24 <ENDBLOCK>
  25
  26 <BLOCK (<SETG JSYS-OBLIST <MOBLIST JSYS>> <ROOT>)>
  27
  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]>
  29
  30 <ENDBLOCK>
  31
  32 #WORD *6204305650*
  33 <GFCN \1aSETUP-JSY ("VALUE" ATOM)>
  34                     <TEMP PNTR8 TEMP13 JSY9:JSYS TEMP18>
  35                     <INTGO>
  36                     <GVAL 'ALL-JSY = PNTR8>
  37                     <LOOP>
  38 AGAIN10
  39                     <INTGO>
  40                     <EMPUV? PNTR8 - PHRASE12 (TYPE VECTOR)>
  41                     <RETURN 'T>
  42 PHRASE12
  43                     <NTHUV PNTR8 1 = TEMP13 (TYPE FIX)>
  44                     <ADD TEMP13 9126805504 = TEMP13 (TYPE FIX)>
  45                     <CHTYPE TEMP13 <TYPE-CODE JSYS> = JSY9>
  46                     <DEAD TEMP13>
  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>
  52                     <DEAD TEMP13>
  53                     <NTHUV PNTR8 2 = TEMP13 (TYPE ATOM)>
  54                     <GVAL TEMP13 = TEMP18>
  55                     <DEAD TEMP13>
  56                     <EQUAL? TEMP18 JSY9 + PHRASE15>
  57                     <DEAD TEMP18>
  58                     <FRAME '\1aERROR>
  59                     <PUSH 'JSYS-ALREADY-ASSIGNED>
  60                     <NTHUV PNTR8 1 = STACK (TYPE FIX)>
  61                     <CALL '\1aERROR 2>
  62 PHRASE15
  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)>
  67                     <DEAD TEMP13 JSY9>
  68                     <JUMP + TAG21>
  69 TAG20
  70                     <FRAME '\1aSETG>
  71                     <PUSH TEMP18>
  72                     <DEAD TEMP18>
  73                     <PUSH JSY9>
  74                     <DEAD JSY9>
  75                     <CALL '\1aSETG 2 = JSY9>
  76 TAG21
  77                     <RESTUV PNTR8 2 = PNTR8 (TYPE VECTOR)>
  78                     <JUMP + AGAIN10>
  79                     <END \1aSETUP-JSY>
  80 <COND (<GASSIGNED? SETUP-JSY> <SETUP-JSY>)>
  81
  82 #WORD *2420773332*
  83 <GFCN \1aSYSOP!-MIMOC ("VALUE" ANY LIST) L4>
  84                     <TEMP (MUNGED-REG5 1) (DEST6 %<>) (LBL9 %<>) (LL11:LIST ()) JSATM13 JSFORM14 TEMP25 JSNUM15 TEMP34 DIR8 TEMP79>
  85                     <INTGO>
  86                     <EMPL? L4 - PHRASE19 (TYPE LIST)>
  87                     <FRAME '\1aMIMOCERR>
  88                     <PUSH 'NO-JSYS-SUPPLIED!-ERRORS>
  89                     <CALL '\1aMIMOCERR 1>
  90 PHRASE19
  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>
  98                     <DEAD TEMP25>
  99                     <NTHL JSFORM14 1 = TEMP25>
 100                     <EQUAL? TEMP25 'QUOTE - BOOL24>
 101                     <DEAD TEMP25>
 102                     <RESTL JSFORM14 1 = TEMP25 (TYPE LIST)>
 103                     <NTHL TEMP25 1 = JSATM13>
 104                     <DEAD TEMP25>
 105                     <TYPE? JSATM13 <TYPE-CODE ATOM> - BOOL24>
 106                     <FRAME '\1aLOOKUP>
 107                     <NTHR JSATM13 3 = STACK (RECORD-TYPE ATOM)>
 108                     <DEAD JSATM13>
 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>
 116                     <DEAD TEMP25>
 117                     <GVAL JSATM13 = JSNUM15>
 118                     <TYPE? JSNUM15 <TYPE-CODE JSYS> + BOOL23>
 119 BOOL24
 120                     <SET JSNUM15 JSFORM14>
 121                     <DEAD JSFORM14>
 122                     <TYPE? JSNUM15 <TYPE-CODE FIX> + TAG28>
 123                     <TYPE? JSNUM15 <TYPE-CODE JSYS> - BOOL27>
 124 TAG28
 125                     <AND JSNUM15 #WORD *777777* = TEMP25>
 126                     <GVAL 'ALL-JSY = JSFORM14>
 127                     <EMPTY? JSFORM14 + BOOL27>
 128                     <LOOP (TEMP25 VALUE) (JSFORM14 LENGTH VALUE TYPE)>
 129 TAG31
 130                     <NTH1 JSFORM14 = TEMP34>
 131                     <TYPE? TEMP34 <TYPE-CODE FIX> - TAG32>
 132                     <VEQUAL? TEMP34 TEMP25 + TAG30>
 133                     <DEAD TEMP34>
 134 TAG32
 135                     <REST1 JSFORM14 = JSFORM14>
 136                     <EMPTY? JSFORM14 - TAG31>
 137                     <JUMP + BOOL27>
 138 TAG30
 139                     <FRAME '\1aNTH>
 140                     <PUSH JSFORM14>
 141                     <DEAD JSFORM14>
 142                     <PUSH 2>
 143                     <CALL '\1aNTH 2 = JSATM13>
 144                     <TYPE? JSATM13 <TYPE-CODE FALSE> - BOOL23>
 145 BOOL27
 146                     <TYPE? JSNUM15 <TYPE-CODE ATOM> - PHRASE22>
 147 BOOL23
 148                     <TYPE? JSATM13 <TYPE-CODE UNBOUND> - TAG39>
 149                     <SET JSFORM14 %<> (TYPE FALSE)>
 150                     <JUMP + BOOL38>
 151 TAG39
 152                     <FRAME '\1aGETPROP>
 153                     <PUSH JSATM13>
 154                     <PUSH 'SPECIAL-JSYS-FUNCTION>
 155                     <CALL '\1aGETPROP 2 = JSFORM14>
 156 BOOL38
 157                     <TYPE? JSFORM14 <TYPE-CODE FALSE> + PHRASE37>
 158                     <FRAME>
 159                     <PUSH JSATM13>
 160                     <DEAD JSATM13>
 161                     <PUSH L4>
 162                     <DEAD L4>
 163                     <ACALL JSFORM14 2 = JSFORM14>
 164                     <RETURN JSFORM14>
 165                     <DEAD JSFORM14>
 166 PHRASE37
 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)>
 173 TAG46
 174                     <NTHUV TEMP25 1 = TEMP34>
 175                     <VEQUAL? TEMP34 JSFORM14 + TAG45>
 176                     <DEAD TEMP34>
 177                     <RESTUV TEMP25 1 = TEMP25 (TYPE VECTOR)>
 178                     <EMPUV? TEMP25 - TAG46>
 179                     <JUMP + PHRASE44>
 180 TAG45
 181                     <EQUAL? JSFORM14 '= - PHRASE49>
 182                     <DEAD JSFORM14>
 183                     <RESTL L4 1 = TEMP25 (TYPE LIST)>
 184                     <NTHL TEMP25 1 = DEST6>
 185                     <DEAD TEMP25>
 186                     <RESTL L4 1 = L4 (TYPE LIST)>
 187                     <RESTL L4 1 = L4 (TYPE LIST)>
 188 PHRASE49
 189                     <EMPL? L4 + EXIT70 (TYPE LIST)>
 190                     <NTHL L4 1 = DIR8>
 191                     <RESTL L4 1 = TEMP25 (TYPE LIST)>
 192                     <DEAD L4>
 193                     <NTHL TEMP25 1 = LBL9>
 194                     <DEAD TEMP25>
 195                     <JUMP + EXIT70>
 196 PHRASE44
 197                     <SET JSFORM14 L4>
 198                     <LOOP (JSFORM14 VALUE)>
 199 TAG57
 200                     <NTHL JSFORM14 1 = TEMP25>
 201                     <TYPE? TEMP25 <TYPE-CODE ATOM> - TAG58>
 202                     <VEQUAL? TEMP25 '= + TAG56>
 203                     <DEAD TEMP25>
 204 TAG58
 205                     <RESTL JSFORM14 1 = JSFORM14 (TYPE LIST)>
 206                     <EMPL? JSFORM14 - TAG57>
 207                     <JUMP + PHRASE54>
 208 TAG56
 209                     <RESTL JSFORM14 1 = TEMP25 (TYPE LIST)>
 210                     <DEAD JSFORM14>
 211                     <NTHL TEMP25 1 = DEST6>
 212                     <DEAD TEMP25>
 213 PHRASE54
 214                     <SET TEMP25 L4>
 215                     <LOOP (TEMP25 VALUE)>
 216 TAG64
 217                     <NTHL TEMP25 1 = TEMP34>
 218                     <TYPE? TEMP34 <TYPE-CODE ATOM> - TAG65>
 219                     <VEQUAL? TEMP34 '+ + TAG67>
 220                     <DEAD TEMP34>
 221 TAG65
 222                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
 223                     <EMPL? TEMP25 - TAG64>
 224                     <SET TEMP25 L4>
 225                     <LOOP (TEMP25 VALUE)>
 226 TAG68
 227                     <NTHL TEMP25 1 = TEMP34>
 228                     <TYPE? TEMP34 <TYPE-CODE ATOM> - TAG69>
 229                     <VEQUAL? TEMP34 '- + TAG67>
 230                     <DEAD TEMP34>
 231 TAG69
 232                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
 233                     <EMPL? TEMP25 - TAG68>
 234                     <SET TEMP25 %<> (TYPE FALSE)>
 235 TAG67
 236                     <SET JSFORM14 TEMP25>
 237                     <DEAD TEMP25>
 238                     <VEQUAL? JSFORM14 0 + PHRASE60>
 239                     <NTHL JSFORM14 1 = DIR8>
 240                     <RESTL JSFORM14 1 = TEMP25 (TYPE LIST)>
 241                     <DEAD JSFORM14>
 242                     <NTHL TEMP25 1 = LBL9>
 243                     <DEAD TEMP25>
 244 PHRASE60
 245                     <GVAL 'ACS = TEMP34>
 246                     <RESTUV TEMP34 2 = TEMP25 (TYPE VECTOR)>
 247                     <DEAD TEMP34>
 248                     <CHTYPE TEMP25 <TYPE-CODE VECTOR> = TEMP25>
 249                     <LOOP>
 250 AGAIN73
 251                     <INTGO>
 252                     <NTHL L4 1 = JSFORM14>
 253                     <SET TEMP34 [+ -] (TYPE VECTOR)>
 254                     <TYPE? JSFORM14 <TYPE-CODE ATOM> - PHRASE75>
 255                     <LOOP (JSFORM14 VALUE) (TEMP34 LENGTH VALUE)>
 256 TAG77
 257                     <NTHUV TEMP34 1 = TEMP79>
 258                     <VEQUAL? TEMP79 JSFORM14 + EXIT70>
 259                     <DEAD TEMP79>
 260                     <RESTUV TEMP34 1 = TEMP34 (TYPE VECTOR)>
 261                     <EMPUV? TEMP34 - TAG77>
 262 PHRASE75
 263                     <EQUAL? JSFORM14 '= - PHRASE83>
 264                     <RESTL L4 1 = TEMP34 (TYPE LIST)>
 265                     <NTHL TEMP34 1 = DEST6>
 266                     <DEAD TEMP34>
 267                     <RESTL L4 1 = L4 (TYPE LIST)>
 268                     <RESTL L4 1 = L4 (TYPE LIST)>
 269                     <EMPL? L4 - AGAIN73 (TYPE LIST)>
 270                     <JUMP + EXIT70>
 271 PHRASE83
 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>
 278                     <DEAD TEMP34>
 279                     <NTHL JSFORM14 1 = TEMP34>
 280                     <EQUAL? TEMP34 'RETURN - PHRASE85>
 281                     <DEAD TEMP34>
 282                     <RESTL JSFORM14 1 = TEMP34 (TYPE LIST)>
 283                     <DEAD JSFORM14>
 284                     <NTHL TEMP34 1 = MUNGED-REG5>
 285                     <DEAD TEMP34>
 286                     <JUMP + PHRASE87>
 287 PHRASE85
 288                     <NTHUV TEMP25 1 = TEMP34>
 289                     <CONS TEMP34 LL11 = TEMP34>
 290                     <DEAD LL11>
 291                     <CONS 'VALUE TEMP34 = TEMP34>
 292                     <CONS JSFORM14 TEMP34 = LL11>
 293                     <DEAD TEMP34>
 294                     <TYPE? JSFORM14 <TYPE-CODE ATOM> - PHRASE89>
 295                     <EQUAL? JSFORM14 DEST6 + BOOL94>
 296                     <FRAME '\1aWILL-DIE?>
 297                     <PUSH JSFORM14>
 298                     <CALL '\1aWILL-DIE? 1 = TEMP34>
 299                     <TYPE? TEMP34 <TYPE-CODE FALSE> + PHRASE89>
 300                     <DEAD TEMP34>
 301                     <TYPE? LBL9 <TYPE-CODE FALSE> + BOOL94>
 302                     <FRAME '\1aWILL-DIE?>
 303                     <PUSH JSFORM14>
 304                     <FRAME '\1aLAB-CODE-PNTR>
 305                     <FRAME '\1aFIND-LABEL>
 306                     <PUSH LBL9>
 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>
 311                     <DEAD TEMP34>
 312 BOOL94
 313                     <FRAME '\1aDEAD!-MIMOC>
 314                     <CONS JSFORM14 () = STACK>
 315                     <DEAD JSFORM14>
 316                     <PUSH 'T>
 317                     <CALL '\1aDEAD!-MIMOC 2>
 318 PHRASE89
 319                     <RESTUV TEMP25 2 = TEMP25 (TYPE VECTOR)>
 320 PHRASE87
 321                     <RESTL L4 1 = L4 (TYPE LIST)>
 322                     <EMPL? L4 - AGAIN73 (TYPE LIST)>
 323 EXIT70
 324                     <FRAME '\1aUPDATE-ACS>
 325                     <CALL '\1aUPDATE-ACS 0>
 326                     <FRAME '\1aGET-INTO-ACS>
 327                     <SET TEMP79 0 (TYPE FIX)>
 328                     <SET TEMP34 LL11>
 329                     <DEAD LL11>
 330                     <LOOP (TEMP34 VALUE) (TEMP79 VALUE)>
 331 TAG103
 332                     <INTGO>
 333                     <EMPL? TEMP34 + TAG102>
 334                     <NTHL TEMP34 1 = STACK>
 335                     <RESTL TEMP34 1 = TEMP34 (TYPE LIST)>
 336                     <ADD TEMP79 1 = TEMP79 (TYPE FIX)>
 337                     <JUMP + TAG103>
 338 TAG102
 339                     <CALL '\1aGET-INTO-ACS TEMP79>
 340                     <DEAD 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>
 346                     <PUSH LBL9>
 347                     <PUSH %<>>
 348                     <CALL '\1aLABEL-UPDATE-ACS 2>
 349 PHRASE107
 350                     <TYPE? JSNUM15 <TYPE-CODE ATOM> - PHRASE111>
 351                     <FRAME '\1aSMASH-AC>
 352                     <PUSH 'O*>
 353                     <PUSH JSNUM15>
 354                     <PUSH 'VALUE>
 355                     <CALL '\1aSMASH-AC 3>
 356                     <FRAME '\1aOCEMIT>
 357                     <PUSH 'XCT>
 358                     <PUSH 'O*>
 359                     <PUSH 'O*>
 360                     <CALL '\1aOCEMIT 3>
 361                     <JUMP + PHRASE114>
 362 PHRASE111
 363                     <FRAME '\1aOCEMIT>
 364                     <PUSH JSATM13>
 365                     <DEAD JSATM13>
 366                     <PUSH 'O*>
 367                     <PUSH 'O*>
 368                     <CALL '\1aOCEMIT 3>
 369 PHRASE114
 370                     <TYPE? LBL9 <TYPE-CODE FALSE> + PHRASE117>
 371                     <EQUAL? DIR8 '- - PHRASE117>
 372                     <FRAME '\1aOCEMIT>
 373                     <PUSH 'JUMP>
 374                     <PUSH 'TP*>
 375                     <FRAME '\1aXJUMP>
 376                     <PUSH LBL9>
 377                     <DEAD LBL9>
 378                     <CALL '\1aXJUMP 1 = STACK>
 379                     <CALL '\1aOCEMIT 3>
 380                     <FRAME '\1aRESULT-JSYS>
 381                     <PUSH MUNGED-REG5>
 382                     <DEAD MUNGED-REG5>
 383                     <PUSH DEST6>
 384                     <DEAD DEST6>
 385                     <CALL '\1aRESULT-JSYS 2 = JSFORM14>
 386                     <RETURN JSFORM14>
 387                     <DEAD JSFORM14>
 388 PHRASE117
 389                     <TYPE? LBL9 <TYPE-CODE FALSE> + PHRASE122>
 390                     <EQUAL? DIR8 '+ - PHRASE122>
 391                     <DEAD DIR8>
 392                     <FRAME '\1aOCEMIT>
 393                     <PUSH 'JUMP>
 394                     <PUSH 'TP*>
 395                     <FRAME '\1aXJUMP>
 396                     <FRAME '\1aGENLBL>
 397                     <PUSH "JS">
 398                     <CALL '\1aGENLBL 1 = JSATM13>
 399                     <PUSH JSATM13>
 400                     <CALL '\1aXJUMP 1 = STACK>
 401                     <CALL '\1aOCEMIT 3>
 402                     <FRAME '\1aRESULT-JSYS>
 403                     <PUSH MUNGED-REG5>
 404                     <DEAD MUNGED-REG5>
 405                     <PUSH DEST6>
 406                     <DEAD DEST6>
 407                     <CALL '\1aRESULT-JSYS 2>
 408                     <FRAME '\1aLABEL-UPDATE-ACS>
 409                     <PUSH LBL9>
 410                     <PUSH %<>>
 411                     <CALL '\1aLABEL-UPDATE-ACS 2>
 412                     <FRAME '\1aOCEMIT>
 413                     <PUSH 'JRST>
 414                     <FRAME '\1aXJUMP>
 415                     <PUSH LBL9>
 416                     <DEAD LBL9>
 417                     <CALL '\1aXJUMP 1 = STACK>
 418                     <CALL '\1aOCEMIT 2>
 419                     <FRAME '\1aLABEL>
 420                     <PUSH JSATM13>
 421                     <DEAD JSATM13>
 422                     <CALL '\1aLABEL 1 = JSFORM14>
 423                     <RETURN JSFORM14>
 424                     <DEAD JSFORM14>
 425 PHRASE122
 426                     <TYPE? DEST6 <TYPE-CODE FALSE> - PHRASE132>
 427                     <FRAME '\1aOCEMIT>
 428                     <PUSH 'JUMP>
 429                     <PUSH 'P*>
 430                     <FRAME '\1aXJUMP>
 431                     <PUSH 'IOERR>
 432                     <CALL '\1aXJUMP 1 = STACK>
 433                     <CALL '\1aOCEMIT 3>
 434                     <EQUAL? MUNGED-REG5 'ALL + TAG137>
 435                     <DEAD MUNGED-REG5>
 436                     <RETURN %<>>
 437 TAG137
 438                     <FRAME '\1aRESULT-JSYS>
 439                     <PUSH 'ALL>
 440                     <PUSH %<>>
 441                     <CALL '\1aRESULT-JSYS 2 = JSFORM14>
 442                     <RETURN JSFORM14>
 443                     <DEAD JSFORM14>
 444 PHRASE132
 445                     <GVAL 'SIBE!-JSYS = TEMP79>
 446                     <EQUAL? TEMP79 JSNUM15 + BOOL142>
 447                     <DEAD TEMP79>
 448                     <GVAL 'SOBE!-JSYS = TEMP79>
 449                     <EQUAL? TEMP79 JSNUM15 - PHRASE141>
 450                     <DEAD TEMP79 JSNUM15>
 451 BOOL142
 452                     <FRAME '\1aOCEMIT>
 453                     <PUSH 'CAIA>
 454                     <PUSH 'O*>
 455                     <PUSH 'O*>
 456                     <CALL '\1aOCEMIT 3>
 457                     <FRAME '\1aOCEMIT>
 458                     <PUSH 'JUMPN>
 459                     <PUSH 'A2*>
 460                     <FRAME '\1aXJUMP>
 461                     <FRAME '\1aGENLBL>
 462                     <PUSH "JS">
 463                     <CALL '\1aGENLBL 1 = JSATM13>
 464                     <PUSH JSATM13>
 465                     <CALL '\1aXJUMP 1 = STACK>
 466                     <CALL '\1aOCEMIT 3>
 467                     <JUMP + PHRASE147>
 468 PHRASE141
 469                     <FRAME '\1aOCEMIT>
 470                     <PUSH 'JUMP>
 471                     <PUSH 'TP*>
 472                     <FRAME '\1aXJUMP>
 473                     <FRAME '\1aGENLBL>
 474                     <PUSH "JS">
 475                     <CALL '\1aGENLBL 1 = JSATM13>
 476                     <PUSH JSATM13>
 477                     <CALL '\1aXJUMP 1 = STACK>
 478                     <CALL '\1aOCEMIT 3>
 479 PHRASE147
 480                     <FRAME '\1aRESULT-JSYS>
 481                     <PUSH MUNGED-REG5>
 482                     <DEAD MUNGED-REG5>
 483                     <PUSH DEST6>
 484                     <CALL '\1aRESULT-JSYS 2>
 485                     <FRAME '\1aOCEMIT>
 486                     <PUSH 'JRST>
 487                     <FRAME '\1aXJUMP>
 488                     <FRAME '\1aGENLBL>
 489                     <PUSH "JS">
 490                     <CALL '\1aGENLBL 1 = MUNGED-REG5>
 491                     <PUSH MUNGED-REG5>
 492                     <CALL '\1aXJUMP 1 = STACK>
 493                     <CALL '\1aOCEMIT 2>
 494                     <FRAME '\1aLABEL>
 495                     <PUSH JSATM13>
 496                     <DEAD JSATM13>
 497                     <CALL '\1aLABEL 1>
 498                     <FRAME '\1aOCEMIT>
 499                     <PUSH 'MOVEI>
 500                     <PUSH 'A1*>
 501                     <PUSH 131072>
 502                     <CALL '\1aOCEMIT 3>
 503                     <FRAME '\1aOCEMIT>
 504                     <PUSH 'GETER>
 505                     <PUSH 'O*>
 506                     <PUSH 'O*>
 507                     <CALL '\1aOCEMIT 3>
 508                     <FRAME '\1aOCEMIT>
 509                     <PUSH 'HRRZ>
 510                     <PUSH 'B2*>
 511                     <PUSH 'A2*>
 512                     <CALL '\1aOCEMIT 3>
 513                     <FRAME '\1aOCEMIT>
 514                     <PUSH 'MOVSI>
 515                     <PUSH 'B1*>
 516                     <FRAME '\1aTYPE-CODE>
 517                     <PUSH 'FIX>
 518                     <CALL '\1aTYPE-CODE 1 = STACK>
 519                     <CALL '\1aOCEMIT 3>
 520                     <FRAME '\1aOCEMIT>
 521                     <PUSH 'MOVEI>
 522                     <PUSH 'C1*>
 523                     <PUSH 0>
 524                     <CALL '\1aOCEMIT 3>
 525                     <FRAME '\1aPUSHJ>
 526                     <PUSH 'CONS>
 527                     <PUSH DEST6>
 528                     <DEAD DEST6>
 529                     <PUSH %<>>
 530                     <PUSH 'FALSE>
 531                     <CALL '\1aPUSHJ 4>
 532                     <FRAME '\1aLABEL>
 533                     <PUSH MUNGED-REG5>
 534                     <DEAD MUNGED-REG5>
 535                     <CALL '\1aLABEL 1 = JSFORM14>
 536                     <RETURN JSFORM14>
 537                     <DEAD JSFORM14>
 538 PHRASE22
 539                     <FRAME '\1aERROR>
 540                     <PUSH 'CANT-COMPILE-SYSOP>
 541                     <PUSH L4>
 542                     <DEAD L4>
 543                     <CALL '\1aERROR 2 = JSFORM14>
 544                     <RETURN JSFORM14>
 545                     <DEAD JSFORM14>
 546                     <END \1aSYSOP!-MIMOC>\r\r
 547 #WORD *21101212612*
 548 <GFCN \1aRESULT-JSYS ("VALUE" ANY ANY ANY) MUNGED-REG4 DEST5>
 549                     <TEMP TEMP10 I14:FIX>
 550                     <INTGO>
 551                     <EQUAL? MUNGED-REG4 'ALL - PHRASE7>
 552                     <FRAME '\1aSMASH-AC>
 553                     <PUSH 'T*>
 554                     <FRAME '\1aPARSE>
 555                     <PUSH "AC-VECTOR">
 556                     <CALL '\1aPARSE 1 = TEMP10>
 557                     <CHTYPE TEMP10 <TYPE-CODE XGLOC> = STACK>
 558                     <DEAD TEMP10>
 559                     <PUSH 'VALUE>
 560                     <CALL '\1aSMASH-AC 3>
 561                     <FRAME '\1aOCEMIT>
 562                     <PUSH 'MOVE>
 563                     <PUSH 'T*>
 564                     <PUSH 1>
 565                     <PUSH (T*)>
 566                     <CALL '\1aOCEMIT 4>
 567                     <FRAME '\1aMUNGED-AC>
 568                     <PUSH 'T*>
 569                     <CALL '\1aMUNGED-AC 1>
 570                     <SET I14 0 (TYPE FIX)>
 571                     <LOOP>
 572 AGAIN15
 573                     <INTGO>
 574                     <FRAME '\1aG?>
 575                     <ADD I14 1 = I14 (TYPE FIX)>
 576                     <PUSH I14>
 577                     <GVAL 'MAX-ACS = STACK>
 578                     <CALL '\1aG? 2 = TEMP10>
 579                     <TYPE? TEMP10 <TYPE-CODE FALSE> - EXIT13>
 580                     <DEAD TEMP10>
 581                     <FRAME '\1aOCEMIT>
 582                     <PUSH 'MOVEM>
 583                     <FRAME '\1aNTH>
 584                     <GVAL 'ACS = STACK>
 585                     <LSH I14 1 = TEMP10 (TYPE FIX)>
 586                     <ADD TEMP10 1 = STACK (TYPE FIX)>
 587                     <DEAD TEMP10>
 588                     <CALL '\1aNTH 2 = STACK>
 589                     <SUB I14 1 = STACK (TYPE FIX)>
 590                     <PUSH (T*)>
 591                     <CALL '\1aOCEMIT 4>
 592                     <JUMP + AGAIN15>
 593 EXIT13
 594                     <SET TEMP10 DEST5>
 595                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE33>
 596                     <FRAME '\1aOCEMIT>
 597                     <PUSH 'DMOVE>
 598                     <PUSH 'A1*>
 599                     <PUSH '@>
 600                     <SET I14 3 (TYPE FIX)>
 601                     <SFRAME 'OBJ-VAL>
 602                     <FRAME '\1aPARSE>
 603                     <PUSH "AC-VECTOR">
 604                     <CALL '\1aPARSE 1 = TEMP10>
 605                     <CHTYPE TEMP10 <TYPE-CODE XGLOC> = STACK>
 606                     <DEAD TEMP10>
 607                     <SCALL '\1aOBJ-VAL 1 = TEMP10 + TAG24 I14>
 608                     <LOOP (TEMP10 TYPE VALUE LENGTH) (I14 VALUE)>
 609 TAG30
 610                     <INTGO>
 611                     <EMPTY? TEMP10 + TAG24>
 612                     <NTH1 TEMP10 = STACK>
 613                     <REST1 TEMP10 = TEMP10>
 614                     <ADD I14 1 = I14 (TYPE FIX)>
 615                     <JUMP + TAG30>
 616 TAG24
 617                     <CALL '\1aOCEMIT I14>
 618                     <DEAD I14>
 619                     <FRAME '\1aPUSHJ-VAL>
 620                     <PUSH DEST5>
 621                     <DEAD DEST5>
 622                     <CALL '\1aPUSHJ-VAL 1 = TEMP10>
 623                     <RETURN TEMP10>
 624                     <DEAD TEMP10>
 625 PHRASE7
 626                     <SET TEMP10 DEST5>
 627                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE33>
 628                     <EQUAL? MUNGED-REG4 2 + PHRASE35>
 629                     <FRAME '\1aOCEMIT>
 630                     <PUSH 'MOVE>
 631                     <PUSH 'A2*>
 632                     <PUSH MUNGED-REG4>
 633                     <DEAD MUNGED-REG4>
 634                     <CALL '\1aOCEMIT 3>
 635 PHRASE35
 636                     <FRAME '\1aOCEMIT>
 637                     <PUSH 'MOVSI>
 638                     <PUSH 'A1*>
 639                     <FRAME '\1aTYPE-CODE>
 640                     <PUSH 'FIX>
 641                     <CALL '\1aTYPE-CODE 1 = STACK>
 642                     <CALL '\1aOCEMIT 3>
 643                     <FRAME '\1aPUSHJ-VAL>
 644                     <PUSH DEST5>
 645                     <DEAD DEST5>
 646                     <CALL '\1aPUSHJ-VAL 1 = TEMP10>
 647 PHRASE33
 648                     <RETURN TEMP10>
 649                     <DEAD TEMP10>
 650                     <END \1aRESULT-JSYS>
 651 #WORD *16551635731*
 652 <GFCN \1aSIN-SOUT ("VALUE" ANY ANY LIST) JS5 L6>
 653                     <TEMP (DEST7 %<>) ECHAR8 TEMP15 TEMP16>
 654                     <INTGO>
 655                     <SET TEMP15 L6>
 656                     <EMPL? TEMP15 + PHRASE11>
 657                     <LOOP (TEMP15 VALUE)>
 658 TAG13
 659                     <NTHL TEMP15 1 = TEMP16>
 660                     <TYPE? TEMP16 <TYPE-CODE ATOM> - TAG14>
 661                     <VEQUAL? TEMP16 '= + TAG12>
 662                     <DEAD TEMP16>
 663 TAG14
 664                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
 665                     <EMPL? TEMP15 - TAG13>
 666                     <JUMP + PHRASE11>
 667 TAG12
 668                     <SET TEMP15 L6>
 669                     <SET TEMP16 7 (TYPE FIX)>
 670                     <LOOP (TEMP15 VALUE) (TEMP16 VALUE)>
 671 TAG19
 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>
 677                     <DEAD TEMP15>
 678                     <NTHL L6 7 = DEST7>
 679                     <NTHL L6 5 = ECHAR8>
 680                     <JUMP + PHRASE28>
 681 PHRASE18
 682                     <SET TEMP15 L6>
 683                     <SET TEMP16 6 (TYPE FIX)>
 684                     <LOOP (TEMP15 VALUE) (TEMP16 VALUE)>
 685 TAG22
 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>
 691                     <DEAD TEMP15>
 692                     <NTHL L6 6 = DEST7>
 693                     <JUMP + PHRASE28>
 694 PHRASE20
 695                     <FRAME '\1aMIMOCERR>
 696                     <PUSH 'BAD-SIN-SOUT-CALL!-ERRORS>
 697                     <CALL '\1aMIMOCERR 1>
 698                     <JUMP + PHRASE28>
 699 PHRASE11
 700                     <SET TEMP15 L6>
 701                     <SET TEMP16 5 (TYPE FIX)>
 702                     <LOOP (TEMP15 VALUE) (TEMP16 VALUE)>
 703 TAG27
 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>
 709                     <DEAD TEMP15>
 710                     <NTHL L6 5 = ECHAR8>
 711                     <JUMP + PHRASE28>
 712 PHRASE25
 713                     <SET TEMP15 L6>
 714                     <SET TEMP16 4 (TYPE FIX)>
 715                     <LOOP (TEMP15 VALUE) (TEMP16 VALUE)>
 716 TAG30
 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>
 722                     <DEAD TEMP15>
 723 TAG31
 724                     <FRAME '\1aMIMOCERR>
 725                     <PUSH 'BAD-SIN-SOUT-CALL!-ERRORS>
 726                     <CALL '\1aMIMOCERR 1>
 727 PHRASE28
 728                     <FRAME '\1aUPDATE-ACS>
 729                     <CALL '\1aUPDATE-ACS 0>
 730                     <RESTL L6 1 = TEMP15 (TYPE LIST)>
 731                     <NTHL TEMP15 1 = TEMP16>
 732                     <DEAD TEMP15>
 733                     <TYPE? TEMP16 <TYPE-CODE FIX> - PHRASE35>
 734                     <GVAL 'MAX-IMMEDIATE = TEMP15>
 735                     <LESS? TEMP16 TEMP15 - PHRASE35 (TYPE FIX)>
 736                     <DEAD TEMP15>
 737                     <FRAME '\1aMUNGED-AC>
 738                     <PUSH 'A1*>
 739                     <CALL '\1aMUNGED-AC 1>
 740                     <FRAME '\1aOCEMIT>
 741                     <PUSH 'MOVEI>
 742                     <PUSH 'A1*>
 743                     <PUSH TEMP16>
 744                     <DEAD TEMP16>
 745                     <CALL '\1aOCEMIT 3>
 746                     <JUMP + PHRASE39>
 747 PHRASE35
 748                     <FRAME '\1aSMASH-AC>
 749                     <PUSH 'A1*>
 750                     <PUSH TEMP16>
 751                     <DEAD TEMP16>
 752                     <PUSH 'VALUE>
 753                     <CALL '\1aSMASH-AC 3>
 754 PHRASE39
 755                     <FRAME '\1aSMASH-AC>
 756                     <PUSH 'O*>
 757                     <RESTL L6 1 = TEMP15 (TYPE LIST)>
 758                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
 759                     <NTHL TEMP15 1 = STACK>
 760                     <DEAD TEMP15>
 761                     <PUSH 'TYPE>
 762                     <CALL '\1aSMASH-AC 3>
 763                     <FRAME '\1aSMASH-AC>
 764                     <PUSH 'A2*>
 765                     <RESTL L6 1 = TEMP15 (TYPE LIST)>
 766                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
 767                     <NTHL TEMP15 1 = STACK>
 768                     <DEAD TEMP15>
 769                     <PUSH 'VALUE>
 770                     <CALL '\1aSMASH-AC 3>
 771                     <RESTL L6 1 = TEMP15 (TYPE LIST)>
 772                     <DEAD L6>
 773                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
 774                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
 775                     <NTHL TEMP15 1 = TEMP16>
 776                     <DEAD TEMP15>
 777                     <TYPE? TEMP16 <TYPE-CODE FIX> - PHRASE44>
 778                     <GVAL 'MAX-IMMEDIATE = TEMP15>
 779                     <LESS? TEMP16 TEMP15 - PHRASE44 (TYPE FIX)>
 780                     <DEAD TEMP15>
 781                     <FRAME '\1aMUNGED-AC>
 782                     <PUSH 'B1*>
 783                     <CALL '\1aMUNGED-AC 1>
 784                     <FRAME '\1aOCEMIT>
 785                     <PUSH 'MOVEI>
 786                     <PUSH 'B1*>
 787                     <PUSH TEMP16>
 788                     <DEAD TEMP16>
 789                     <CALL '\1aOCEMIT 3>
 790                     <JUMP + PHRASE48>
 791 PHRASE44
 792                     <FRAME '\1aSMASH-AC>
 793                     <PUSH 'B1*>
 794                     <PUSH TEMP16>
 795                     <DEAD TEMP16>
 796                     <PUSH 'VALUE>
 797                     <CALL '\1aSMASH-AC 3>
 798 PHRASE48
 799                     <TYPE? ECHAR8 <TYPE-CODE UNBOUND> + PHRASE58>
 800                     <FRAME '\1aPRIMTYPE>
 801                     <PUSH ECHAR8>
 802                     <CALL '\1aPRIMTYPE 1 = TEMP15>
 803                     <VEQUAL? TEMP15 'WORD - PHRASE53>
 804                     <DEAD TEMP15>
 805                     <CHTYPE ECHAR8 <TYPE-CODE FIX> = ECHAR8>
 806                     <GVAL 'MAX-IMMEDIATE = TEMP15>
 807                     <LESS? ECHAR8 TEMP15 - PHRASE53 (TYPE FIX)>
 808                     <DEAD TEMP15>
 809                     <FRAME '\1aMUNGED-AC>
 810                     <PUSH 'B2*>
 811                     <CALL '\1aMUNGED-AC 1>
 812                     <FRAME '\1aOCEMIT>
 813                     <PUSH 'MOVEI>
 814                     <PUSH 'B2*>
 815                     <PUSH ECHAR8>
 816                     <DEAD ECHAR8>
 817                     <CALL '\1aOCEMIT 3>
 818                     <JUMP + PHRASE58>
 819 PHRASE53
 820                     <FRAME '\1aSMASH-AC>
 821                     <PUSH 'B2*>
 822                     <PUSH ECHAR8>
 823                     <DEAD ECHAR8>
 824                     <PUSH 'VALUE>
 825                     <CALL '\1aSMASH-AC 3>
 826 PHRASE58
 827                     <FRAME '\1aPUSHJ>
 828                     <PUSH JS5>
 829                     <DEAD JS5>
 830                     <PUSH DEST7>
 831                     <DEAD DEST7>
 832                     <CALL '\1aPUSHJ 2 = TEMP15>
 833                     <RETURN TEMP15>
 834                     <DEAD TEMP15>
 835                     <END \1aSIN-SOUT>
 836 <SETG GJ-SHORT 262144>
 837
 838 <SETG GJ-FNS 524288>
 839
 840 #WORD *6227473320*
 841 <GFCN \1aGTJFN-S-DO ("VALUE" ANY ANY LIST) JS5 L6>
 842                     <TEMP TEMP10 FLAGS7 SOURCE8 DEST9 TEMP15>
 843                     <INTGO>
 844                     <RESTL L6 1 = TEMP10 (TYPE LIST)>
 845                     <NTHL TEMP10 1 = FLAGS7>
 846                     <DEAD TEMP10>
 847                     <RESTL L6 1 = TEMP10 (TYPE LIST)>
 848                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
 849                     <NTHL TEMP10 1 = SOURCE8>
 850                     <DEAD TEMP10>
 851                     <NTHL L6 5 = DEST9>
 852                     <FRAME '\1aUPDATE-ACS>
 853                     <CALL '\1aUPDATE-ACS 0>
 854                     <TYPE? FLAGS7 <TYPE-CODE FIX> + TAG14>
 855                     <TYPE? FLAGS7 <TYPE-CODE WORD> - PHRASE13>
 856 TAG14
 857                     <GVAL 'GJ-SHORT = TEMP10>
 858                     <OR FLAGS7 TEMP10 = TEMP15>
 859                     <DEAD FLAGS7 TEMP10>
 860                     <EQUAL? JS5 'GTJFN-S-J - PHRASE17>
 861                     <GVAL 'GJ-FNS = TEMP10>
 862                     <JUMP + PHRASE18>
 863 PHRASE17
 864                     <SET TEMP10 0 (TYPE FIX)>
 865 PHRASE18
 866                     <OR TEMP15 TEMP10 = FLAGS7>
 867                     <DEAD TEMP15 TEMP10>
 868                     <FRAME '\1aMUNGED-AC>
 869                     <PUSH 'A1*>
 870                     <CALL '\1aMUNGED-AC 1>
 871                     <AND FLAGS7 #WORD *777777* = TEMP15>
 872                     <VEQUAL? TEMP15 0 - PHRASE21 (TYPE FIX)>
 873                     <DEAD TEMP15>
 874                     <FRAME '\1aOCEMIT>
 875                     <PUSH 'MOVSI>
 876                     <PUSH 'A1*>
 877                     <LSH FLAGS7 -18 = STACK (TYPE FIX)>
 878                     <DEAD FLAGS7>
 879                     <CALL '\1aOCEMIT 3>
 880                     <JUMP + PHRASE30>
 881 PHRASE21
 882                     <FRAME '\1aOCEMIT>
 883                     <PUSH 'MOVE>
 884                     <PUSH 'A1*>
 885                     <SET TEMP10 2 (TYPE FIX)>
 886                     <SFRAME 'OBJ-VAL>
 887                     <PUSH FLAGS7>
 888                     <DEAD FLAGS7>
 889                     <SCALL '\1aOBJ-VAL 1 = TEMP15 + TAG26 TEMP10>
 890                     <LOOP (TEMP15 TYPE VALUE LENGTH) (TEMP10 VALUE)>
 891 TAG28
 892                     <INTGO>
 893                     <EMPTY? TEMP15 + TAG26>
 894                     <NTH1 TEMP15 = STACK>
 895                     <REST1 TEMP15 = TEMP15>
 896                     <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
 897                     <JUMP + TAG28>
 898 TAG26
 899                     <CALL '\1aOCEMIT TEMP10>
 900                     <DEAD TEMP10>
 901                     <JUMP + PHRASE30>
 902 PHRASE13
 903                     <FRAME '\1aSMASH-AC>
 904                     <PUSH 'A1*>
 905                     <PUSH FLAGS7>
 906                     <DEAD FLAGS7>
 907                     <PUSH 'VALUE>
 908                     <CALL '\1aSMASH-AC 3>
 909                     <FRAME '\1aOCEMIT>
 910                     <PUSH 'TLO>
 911                     <PUSH 'A1*>
 912                     <GVAL 'GJ-SHORT = TEMP10>
 913                     <LSH TEMP10 -18 = TEMP10 (TYPE FIX)>
 914                     <EQUAL? JS5 'GTJFN-S-J - PHRASE34>
 915                     <GVAL 'GJ-FNS = TEMP15>
 916                     <JUMP + PHRASE35>
 917 PHRASE34
 918                     <SET TEMP15 0 (TYPE FIX)>
 919 PHRASE35
 920                     <LSH TEMP15 -18 = TEMP15 (TYPE FIX)>
 921                     <OR TEMP10 TEMP15 = STACK>
 922                     <DEAD TEMP10 TEMP15>
 923                     <CALL '\1aOCEMIT 3>
 924 PHRASE30
 925                     <EQUAL? JS5 'GTJFN-S-J - PHRASE37>
 926                     <DEAD JS5>
 927                     <TYPE? SOURCE8 <TYPE-CODE FIX> + TAG41>
 928                     <TYPE? SOURCE8 <TYPE-CODE WORD> - PHRASE39>
 929 TAG41
 930                     <LESS? SOURCE8 262143 - PHRASE39 (TYPE FIX)>
 931                     <FRAME '\1aMUNGED-AC>
 932                     <PUSH 'A2*>
 933                     <CALL '\1aMUNGED-AC 1>
 934                     <FRAME '\1aOCEMIT>
 935                     <PUSH 'MOVEI>
 936                     <PUSH 'A2*>
 937                     <PUSH SOURCE8>
 938                     <DEAD SOURCE8>
 939                     <CALL '\1aOCEMIT 3>
 940                     <JUMP + PHRASE46>
 941 PHRASE39
 942                     <FRAME '\1aSMASH-AC>
 943                     <PUSH 'A2*>
 944                     <PUSH SOURCE8>
 945                     <DEAD SOURCE8>
 946                     <PUSH 'VALUE>
 947                     <CALL '\1aSMASH-AC 3>
 948                     <JUMP + PHRASE46>
 949 PHRASE37
 950                     <FRAME '\1aSMASH-AC>
 951                     <PUSH 'A2*>
 952                     <RESTL L6 1 = TEMP15 (TYPE LIST)>
 953                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
 954                     <NTHL TEMP15 1 = STACK>
 955                     <DEAD TEMP15>
 956                     <PUSH 'VALUE>
 957                     <CALL '\1aSMASH-AC 3>
 958                     <FRAME '\1aMUNGED-AC>
 959                     <PUSH 'B1*>
 960                     <CALL '\1aMUNGED-AC 1>
 961                     <FRAME '\1aOCEMIT>
 962                     <PUSH 'HRRZ>
 963                     <PUSH 'B1*>
 964                     <SET TEMP10 2 (TYPE FIX)>
 965                     <SFRAME 'OBJ-TYP>
 966                     <RESTL L6 1 = FLAGS7 (TYPE LIST)>
 967                     <DEAD L6>
 968                     <RESTL FLAGS7 1 = FLAGS7 (TYPE LIST)>
 969                     <NTHL FLAGS7 1 = STACK>
 970                     <DEAD FLAGS7>
 971                     <SCALL '\1aOBJ-TYP 1 = TEMP15 + TAG49 TEMP10>
 972                     <LOOP (TEMP15 TYPE VALUE LENGTH) (TEMP10 VALUE)>
 973 TAG52
 974                     <INTGO>
 975                     <EMPTY? TEMP15 + TAG49>
 976                     <NTH1 TEMP15 = STACK>
 977                     <REST1 TEMP15 = TEMP15>
 978                     <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
 979                     <JUMP + TAG52>
 980 TAG49
 981                     <CALL '\1aOCEMIT TEMP10>
 982                     <DEAD TEMP10>
 983 PHRASE46
 984                     <FRAME '\1aPUSHJ>
 985                     <PUSH 'GTJFN>
 986                     <PUSH DEST9>
 987                     <DEAD DEST9>
 988                     <CALL '\1aPUSHJ 2 = TEMP10>
 989                     <RETURN TEMP10>
 990                     <DEAD TEMP10>
 991                     <END \1aGTJFN-S-DO>
 992 #WORD *20652342505*
 993 <GFCN \1aGTJFN-L-DO ("VALUE" ANY ANY LIST) JS5 L6>
 994                     <TEMP LN7:FIX TEMP11 TEMP14 TEMP31 TEMP29>
 995                     <INTGO>
 996                     <LENL L6 = LN7 (TYPE FIX)>
 997                     <FRAME '\1aUPDATE-ACS>
 998                     <CALL '\1aUPDATE-ACS 0>
 999                     <SUB LN7 1 = TEMP11 (TYPE FIX)>
1000                     <SET TEMP14 L6>
1001                     <SUB TEMP11 1 = TEMP11 (TYPE FIX)>
1002                     <GRTR? TEMP11 0 - RESTL15 (TYPE FIX)>
1003                     <LOOP (TEMP14 VALUE) (TEMP11 VALUE)>
1004 RESTL13
1005                     <INTGO>
1006                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
1007                     <SUB TEMP11 1 = TEMP11 (TYPE FIX)>
1008                     <GRTR? TEMP11 0 + RESTL13 (TYPE FIX)>
1009 RESTL15
1010                     <NTHL TEMP14 1 = TEMP11>
1011                     <DEAD TEMP14>
1012                     <EQUAL? TEMP11 '= + PHRASE10>
1013                     <DEAD TEMP11>
1014                     <FRAME '\1aMIMOCERR>
1015                     <PUSH 'NO-PLACE-TO-RETURN!-ERRORS>
1016                     <PUSH 'GTJFN>
1017                     <CALL '\1aMIMOCERR 2>
1018 PHRASE10
1019                     <RESTL L6 1 = TEMP11 (TYPE LIST)>
1020                     <LOOP>
1021 MAP18
1022                     <INTGO>
1023                     <EMPL? TEMP11 + MAPAP21>
1024                     <NTHL TEMP11 1 = TEMP14>
1025                     <EQUAL? TEMP14 '= + MAPAP21>
1026                     <FRAME '\1aOCEMIT>
1027                     <PUSH 'PUSH>
1028                     <PUSH 'TP*>
1029                     <SET TEMP31 2 (TYPE FIX)>
1030                     <SFRAME 'OBJ-TYP>
1031                     <PUSH TEMP14>
1032                     <SCALL '\1aOBJ-TYP 1 = TEMP29 + TAG30 TEMP31>
1033                     <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP31 VALUE)>
1034 TAG33
1035                     <INTGO>
1036                     <EMPTY? TEMP29 + TAG30>
1037                     <NTH1 TEMP29 = STACK>
1038                     <REST1 TEMP29 = TEMP29>
1039                     <ADD TEMP31 1 = TEMP31 (TYPE FIX)>
1040                     <JUMP + TAG33>
1041 TAG30
1042                     <CALL '\1aOCEMIT TEMP31>
1043                     <DEAD TEMP31>
1044                     <GVAL 'WINNING-VICTIM = TEMP31>
1045                     <TYPE? TEMP31 <TYPE-CODE FALSE> + PHRASE36>
1046                     <DEAD TEMP31>
1047                     <FRAME '\1a+>
1048                     <GVAL 'STACK-DEPTH = STACK>
1049                     <PUSH 1>
1050                     <CALL '\1a+ 2 = TEMP31>
1051                     <SETG 'STACK-DEPTH TEMP31>
1052                     <DEAD TEMP31>
1053 PHRASE36
1054                     <FRAME '\1aOCEMIT>
1055                     <PUSH 'PUSH>
1056                     <PUSH 'TP*>
1057                     <SET TEMP29 2 (TYPE FIX)>
1058                     <SFRAME 'OBJ-VAL>
1059                     <PUSH TEMP14>
1060                     <DEAD TEMP14>
1061                     <SCALL '\1aOBJ-VAL 1 = TEMP31 + TAG38 TEMP29>
1062                     <LOOP (TEMP31 TYPE VALUE LENGTH) (TEMP29 VALUE)>
1063 TAG40
1064                     <INTGO>
1065                     <EMPTY? TEMP31 + TAG38>
1066                     <NTH1 TEMP31 = STACK>
1067                     <REST1 TEMP31 = TEMP31>
1068                     <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
1069                     <JUMP + TAG40>
1070 TAG38
1071                     <CALL '\1aOCEMIT TEMP29>
1072                     <DEAD TEMP29>
1073                     <GVAL 'WINNING-VICTIM = TEMP29>
1074                     <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE43>
1075                     <DEAD TEMP29>
1076                     <FRAME '\1a+>
1077                     <GVAL 'STACK-DEPTH = STACK>
1078                     <PUSH 1>
1079                     <CALL '\1a+ 2 = TEMP29>
1080                     <SETG 'STACK-DEPTH TEMP29>
1081                     <DEAD TEMP29>
1082 PHRASE43
1083                     <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
1084                     <JUMP + MAP18>
1085 MAPAP21
1086                     <FRAME '\1aOCEMIT>
1087                     <PUSH 'MOVEI>
1088                     <PUSH 'O1*>
1089                     <SUB LN7 3 = STACK (TYPE FIX)>
1090                     <CALL '\1aOCEMIT 3>
1091                     <FRAME '\1aPUSHJ>
1092                     <PUSH 'GTJFNL>
1093                     <SET TEMP11 LN7>
1094                     <DEAD LN7>
1095                     <SET TEMP14 L6>
1096                     <DEAD L6>
1097                     <SUB TEMP11 1 = TEMP11 (TYPE FIX)>
1098                     <GRTR? TEMP11 0 - RESTL48 (TYPE FIX)>
1099                     <LOOP (TEMP14 VALUE) (TEMP11 VALUE)>
1100 RESTL47
1101                     <INTGO>
1102                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
1103                     <SUB TEMP11 1 = TEMP11 (TYPE FIX)>
1104                     <GRTR? TEMP11 0 + RESTL47 (TYPE FIX)>
1105 RESTL48
1106                     <NTHL TEMP14 1 = STACK>
1107                     <DEAD TEMP14>
1108                     <CALL '\1aPUSHJ 2 = TEMP14>
1109                     <RETURN TEMP14>
1110                     <DEAD TEMP14>
1111                     <END \1aGTJFN-L-DO>
1112 #WORD *14425153400*
1113 <GFCN \1aJFNS-DO ("VALUE" ANY ANY LIST) JS5 L6>
1114                     <TEMP (DEST7 %<>) TEMP17 TEMP18 ARG29 ARG310 ARG411>
1115                     <INTGO>
1116                     <SET TEMP17 L6>
1117                     <EMPL? TEMP17 + PHRASE13>
1118                     <LOOP (TEMP17 VALUE)>
1119 TAG15
1120                     <NTHL TEMP17 1 = TEMP18>
1121                     <TYPE? TEMP18 <TYPE-CODE ATOM> - TAG16>
1122                     <VEQUAL? TEMP18 '= + TAG14>
1123                     <DEAD TEMP18>
1124 TAG16
1125                     <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
1126                     <EMPL? TEMP17 - TAG15>
1127                     <JUMP + PHRASE13>
1128 TAG14
1129                     <SET TEMP17 L6>
1130                     <SET TEMP18 7 (TYPE FIX)>
1131                     <LOOP (TEMP17 VALUE) (TEMP18 VALUE)>
1132 TAG21
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>
1138                     <DEAD TEMP17>
1139                     <NTHL L6 7 = DEST7>
1140                     <JUMP + PHRASE24>
1141 PHRASE20
1142                     <FRAME '\1aMIMOCERR>
1143                     <PUSH 'BAD-JFNS-CALL!-ERRORS>
1144                     <CALL '\1aMIMOCERR 1>
1145                     <JUMP + PHRASE24>
1146 PHRASE13
1147                     <SET TEMP17 L6>
1148                     <SET TEMP18 5 (TYPE FIX)>
1149                     <LOOP (TEMP17 VALUE) (TEMP18 VALUE)>
1150 TAG26
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>
1156                     <DEAD TEMP17>
1157 TAG27
1158                     <FRAME '\1aMIMOCERR>
1159                     <PUSH 'BAD-JFNS-CALL!-ERRORS>
1160                     <CALL '\1aMIMOCERR 1>
1161 PHRASE24
1162                     <RESTL L6 1 = TEMP17 (TYPE LIST)>
1163                     <NTHL TEMP17 1 = TEMP18>
1164                     <DEAD TEMP17>
1165                     <EQUAL? TEMP18 DEST7 + BOOL31>
1166                     <TYPE? TEMP18 <TYPE-CODE ATOM> - PHRASE30>
1167                     <FRAME '\1aWILL-DIE?>
1168                     <PUSH TEMP18>
1169                     <CALL '\1aWILL-DIE? 1 = TEMP17>
1170                     <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE30>
1171                     <DEAD TEMP17>
1172 BOOL31
1173                     <FRAME '\1aDEAD!-MIMOC>
1174                     <CONS TEMP18 () = STACK>
1175                     <PUSH 'T>
1176                     <CALL '\1aDEAD!-MIMOC 2>
1177 PHRASE30
1178                     <RESTL L6 1 = TEMP17 (TYPE LIST)>
1179                     <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
1180                     <NTHL TEMP17 1 = ARG29>
1181                     <DEAD TEMP17>
1182                     <EQUAL? ARG29 DEST7 + BOOL37>
1183                     <TYPE? ARG29 <TYPE-CODE ATOM> - PHRASE36>
1184                     <FRAME '\1aWILL-DIE?>
1185                     <PUSH ARG29>
1186                     <CALL '\1aWILL-DIE? 1 = TEMP17>
1187                     <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE36>
1188                     <DEAD TEMP17>
1189 BOOL37
1190                     <FRAME '\1aDEAD!-MIMOC>
1191                     <CONS ARG29 () = STACK>
1192                     <PUSH 'T>
1193                     <CALL '\1aDEAD!-MIMOC 2>
1194 PHRASE36
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>
1199                     <DEAD TEMP17>
1200                     <EQUAL? ARG310 DEST7 + BOOL43>
1201                     <TYPE? ARG310 <TYPE-CODE ATOM> - PHRASE42>
1202                     <FRAME '\1aWILL-DIE?>
1203                     <PUSH ARG310>
1204                     <CALL '\1aWILL-DIE? 1 = TEMP17>
1205                     <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE42>
1206                     <DEAD TEMP17>
1207 BOOL43
1208                     <FRAME '\1aDEAD!-MIMOC>
1209                     <CONS ARG310 () = STACK>
1210                     <PUSH 'T>
1211                     <CALL '\1aDEAD!-MIMOC 2>
1212 PHRASE42
1213                     <NTHL L6 5 = ARG411>
1214                     <DEAD L6>
1215                     <EQUAL? ARG411 DEST7 + BOOL49>
1216                     <TYPE? ARG411 <TYPE-CODE ATOM> - PHRASE48>
1217                     <FRAME '\1aWILL-DIE?>
1218                     <PUSH ARG411>
1219                     <CALL '\1aWILL-DIE? 1 = TEMP17>
1220                     <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE48>
1221                     <DEAD TEMP17>
1222 BOOL49
1223                     <FRAME '\1aDEAD!-MIMOC>
1224                     <CONS ARG411 () = STACK>
1225                     <PUSH 'T>
1226                     <CALL '\1aDEAD!-MIMOC 2>
1227 PHRASE48
1228                     <FRAME '\1aUPDATE-ACS>
1229                     <CALL '\1aUPDATE-ACS 0>
1230                     <FRAME '\1aGET-INTO-ACS>
1231                     <PUSH TEMP18>
1232                     <PUSH 'VALUE>
1233                     <PUSH 'A1*>
1234                     <PUSH ARG29>
1235                     <DEAD ARG29>
1236                     <PUSH 'VALUE>
1237                     <PUSH 'A2*>
1238                     <PUSH ARG310>
1239                     <DEAD ARG310>
1240                     <PUSH 'VALUE>
1241                     <PUSH 'B1*>
1242                     <PUSH ARG411>
1243                     <DEAD ARG411>
1244                     <PUSH 'VALUE>
1245                     <PUSH 'B2*>
1246                     <CALL '\1aGET-INTO-ACS 12>
1247                     <FRAME '\1aOCEMIT>
1248                     <PUSH 'HRRZ>
1249                     <PUSH 'C1*>
1250                     <SET ARG29 2 (TYPE FIX)>
1251                     <SFRAME 'OBJ-TYP>
1252                     <PUSH TEMP18>
1253                     <DEAD TEMP18>
1254                     <SCALL '\1aOBJ-TYP 1 = TEMP17 + TAG55 ARG29>
1255                     <LOOP (TEMP17 TYPE VALUE LENGTH) (ARG29 VALUE)>
1256 TAG58
1257                     <INTGO>
1258                     <EMPTY? TEMP17 + TAG55>
1259                     <NTH1 TEMP17 = STACK>
1260                     <REST1 TEMP17 = TEMP17>
1261                     <ADD ARG29 1 = ARG29 (TYPE FIX)>
1262                     <JUMP + TAG58>
1263 TAG55
1264                     <CALL '\1aOCEMIT ARG29>
1265                     <DEAD ARG29>
1266                     <FRAME '\1aPUSHJ>
1267                     <PUSH 'JFNS>
1268                     <PUSH DEST7>
1269                     <DEAD DEST7>
1270                     <CALL '\1aPUSHJ 2 = ARG29>
1271                     <RETURN ARG29>
1272                     <DEAD ARG29>
1273                     <END \1aJFNS-DO>\r\r
1274 #WORD *34014243062*
1275 <GFCN \1aRFTAD-DO ("VALUE" ANY ANY LIST) JS4 L5>
1276                     <TEMP (DEST6 %<>) TL10 TEMP17>
1277                     <INTGO>
1278                     <SET TL10 L5>
1279                     <EMPL? TL10 + PHRASE12>
1280                     <LOOP (TL10 VALUE)>
1281 TAG15
1282                     <NTHL TL10 1 = TEMP17>
1283                     <TYPE? TEMP17 <TYPE-CODE ATOM> - TAG16>
1284                     <VEQUAL? TEMP17 '= + TAG14>
1285                     <DEAD TEMP17>
1286 TAG16
1287                     <RESTL TL10 1 = TL10 (TYPE LIST)>
1288                     <EMPL? TL10 - TAG15>
1289                     <JUMP + PHRASE12>
1290 TAG14
1291                     <RESTL TL10 1 = TEMP17 (TYPE LIST)>
1292                     <DEAD TL10>
1293                     <NTHL TEMP17 1 = DEST6>
1294                     <DEAD TEMP17>
1295 PHRASE12
1296                     <FRAME '\1aUPDATE-ACS>
1297                     <CALL '\1aUPDATE-ACS 0>
1298                     <FRAME '\1aMUNGED-AC>
1299                     <PUSH 'A1*>
1300                     <CALL '\1aMUNGED-AC 1>
1301                     <FRAME '\1aSMASH-AC>
1302                     <PUSH 'A1*>
1303                     <RESTL L5 1 = TEMP17 (TYPE LIST)>
1304                     <NTHL TEMP17 1 = STACK>
1305                     <DEAD TEMP17>
1306                     <PUSH 'VALUE>
1307                     <CALL '\1aSMASH-AC 3>
1308                     <FRAME '\1aMUNGED-AC>
1309                     <PUSH 'A2*>
1310                     <CALL '\1aMUNGED-AC 1>
1311                     <FRAME '\1aSMASH-AC>
1312                     <PUSH 'A2*>
1313                     <RESTL L5 1 = TEMP17 (TYPE LIST)>
1314                     <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
1315                     <NTHL TEMP17 1 = STACK>
1316                     <DEAD TEMP17>
1317                     <PUSH 'VALUE>
1318                     <CALL '\1aSMASH-AC 3>
1319                     <FRAME '\1aMUNGED-AC>
1320                     <PUSH 'B1*>
1321                     <CALL '\1aMUNGED-AC 1>
1322                     <FRAME '\1aSMASH-AC>
1323                     <PUSH 'B1*>
1324                     <RESTL L5 1 = TEMP17 (TYPE LIST)>
1325                     <DEAD L5>
1326                     <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
1327                     <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
1328                     <NTHL TEMP17 1 = STACK>
1329                     <DEAD TEMP17>
1330                     <PUSH 'VALUE>
1331                     <CALL '\1aSMASH-AC 3>
1332                     <FRAME '\1aPUSHJ>
1333                     <PUSH 'RFTAD>
1334                     <PUSH DEST6>
1335                     <DEAD DEST6>
1336                     <CALL '\1aPUSHJ 2 = TEMP17>
1337                     <RETURN TEMP17>
1338                     <DEAD TEMP17>
1339                     <END \1aRFTAD-DO>
1340 #WORD *2434774750*
1341 <GFCN \1aERSTR-DO ("VALUE" ANY ANY LIST) JS5 L6>
1342                     <TEMP (DEST7 %<>) TEMP16 TEMP17 ARG29 ARG310>
1343                     <INTGO>
1344                     <SET TEMP16 L6>
1345                     <EMPL? TEMP16 + PHRASE12>
1346                     <LOOP (TEMP16 VALUE)>
1347 TAG14
1348                     <NTHL TEMP16 1 = TEMP17>
1349                     <TYPE? TEMP17 <TYPE-CODE ATOM> - TAG15>
1350                     <VEQUAL? TEMP17 '= + TAG13>
1351                     <DEAD TEMP17>
1352 TAG15
1353                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
1354                     <EMPL? TEMP16 - TAG14>
1355                     <JUMP + PHRASE12>
1356 TAG13
1357                     <SET TEMP16 L6>
1358                     <SET TEMP17 6 (TYPE FIX)>
1359                     <LOOP (TEMP16 VALUE) (TEMP17 VALUE)>
1360 TAG20
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>
1366                     <DEAD TEMP16>
1367                     <NTHL L6 6 = DEST7>
1368                     <JUMP + PHRASE23>
1369 PHRASE19
1370                     <FRAME '\1aMIMOCERR>
1371                     <PUSH 'BAD-ERSTR-CALL!-ERRORS>
1372                     <CALL '\1aMIMOCERR 1>
1373                     <JUMP + PHRASE23>
1374 PHRASE12
1375                     <SET TEMP16 L6>
1376                     <SET TEMP17 4 (TYPE FIX)>
1377                     <LOOP (TEMP16 VALUE) (TEMP17 VALUE)>
1378 TAG25
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>
1384                     <DEAD TEMP16>
1385 TAG26
1386                     <FRAME '\1aMIMOCERR>
1387                     <PUSH 'BAD-ERSTR-CALL!-ERRORS>
1388                     <CALL '\1aMIMOCERR 1>
1389 PHRASE23
1390                     <RESTL L6 1 = TEMP16 (TYPE LIST)>
1391                     <NTHL TEMP16 1 = TEMP17>
1392                     <DEAD TEMP16>
1393                     <EQUAL? TEMP17 DEST7 + BOOL30>
1394                     <TYPE? TEMP17 <TYPE-CODE ATOM> - PHRASE29>
1395                     <FRAME '\1aWILL-DIE?>
1396                     <PUSH TEMP17>
1397                     <CALL '\1aWILL-DIE? 1 = TEMP16>
1398                     <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE29>
1399                     <DEAD TEMP16>
1400 BOOL30
1401                     <FRAME '\1aDEAD!-MIMOC>
1402                     <CONS TEMP17 () = STACK>
1403                     <PUSH 'T>
1404                     <CALL '\1aDEAD!-MIMOC 2>
1405 PHRASE29
1406                     <RESTL L6 1 = TEMP16 (TYPE LIST)>
1407                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
1408                     <NTHL TEMP16 1 = ARG29>
1409                     <DEAD TEMP16>
1410                     <EQUAL? ARG29 DEST7 + BOOL36>
1411                     <TYPE? ARG29 <TYPE-CODE ATOM> - PHRASE35>
1412                     <FRAME '\1aWILL-DIE?>
1413                     <PUSH ARG29>
1414                     <CALL '\1aWILL-DIE? 1 = TEMP16>
1415                     <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE35>
1416                     <DEAD TEMP16>
1417 BOOL36
1418                     <FRAME '\1aDEAD!-MIMOC>
1419                     <CONS ARG29 () = STACK>
1420                     <PUSH 'T>
1421                     <CALL '\1aDEAD!-MIMOC 2>
1422 PHRASE35
1423                     <RESTL L6 1 = TEMP16 (TYPE LIST)>
1424                     <DEAD L6>
1425                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
1426                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
1427                     <NTHL TEMP16 1 = ARG310>
1428                     <DEAD TEMP16>
1429                     <EQUAL? ARG310 DEST7 + BOOL42>
1430                     <TYPE? ARG310 <TYPE-CODE ATOM> - PHRASE41>
1431                     <FRAME '\1aWILL-DIE?>
1432                     <PUSH ARG310>
1433                     <CALL '\1aWILL-DIE? 1 = TEMP16>
1434                     <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE41>
1435                     <DEAD TEMP16>
1436 BOOL42
1437                     <FRAME '\1aDEAD!-MIMOC>
1438                     <CONS ARG310 () = STACK>
1439                     <PUSH 'T>
1440                     <CALL '\1aDEAD!-MIMOC 2>
1441 PHRASE41
1442                     <FRAME '\1aUPDATE-ACS>
1443                     <CALL '\1aUPDATE-ACS 0>
1444                     <FRAME '\1aGET-INTO-ACS>
1445                     <PUSH TEMP17>
1446                     <DEAD TEMP17>
1447                     <PUSH 'VALUE>
1448                     <PUSH 'A1*>
1449                     <PUSH ARG29>
1450                     <DEAD ARG29>
1451                     <PUSH 'VALUE>
1452                     <PUSH 'A2*>
1453                     <PUSH ARG310>
1454                     <DEAD ARG310>
1455                     <PUSH 'VALUE>
1456                     <PUSH 'B1*>
1457                     <CALL '\1aGET-INTO-ACS 9>
1458                     <FRAME '\1aPUSHJ>
1459                     <PUSH 'ERSTR>
1460                     <PUSH DEST7>
1461                     <DEAD DEST7>
1462                     <CALL '\1aPUSHJ 2 = TEMP16>
1463                     <RETURN TEMP16>
1464                     <DEAD TEMP16>
1465                     <END \1aERSTR-DO>
1466 #WORD *2731504733*
1467 <GFCN \1aLOAD-ARG ("VALUE" ANY ANY ANY) V5 AC6>
1468                     <TEMP TEMP13>
1469                     <INTGO>
1470                     <TYPE? V5 <TYPE-CODE FIX> + TAG10>
1471                     <TYPE? V5 <TYPE-CODE WORD> - PHRASE8>
1472 TAG10
1473                     <CHTYPE V5 <TYPE-CODE FIX> = V5>
1474                     <LESS? V5 262143 - PHRASE8 (TYPE FIX)>
1475                     <FRAME '\1aMUNGED-AC>
1476                     <PUSH AC6>
1477                     <CALL '\1aMUNGED-AC 1>
1478                     <FRAME '\1aOCEMIT>
1479                     <PUSH 'MOVEI>
1480                     <PUSH AC6>
1481                     <DEAD AC6>
1482                     <PUSH V5>
1483                     <DEAD V5>
1484                     <CALL '\1aOCEMIT 3 = TEMP13>
1485                     <RETURN TEMP13>
1486                     <DEAD TEMP13>
1487 PHRASE8
1488                     <FRAME '\1aSMASH-AC>
1489                     <PUSH AC6>
1490                     <DEAD AC6>
1491                     <PUSH V5>
1492                     <DEAD V5>
1493                     <PUSH 'VALUE>
1494                     <CALL '\1aSMASH-AC 3 = TEMP13>
1495                     <RETURN TEMP13>
1496                     <DEAD TEMP13>
1497                     <END \1aLOAD-ARG>
1498 <PUTPROP SIN-JSYS!-JSYS SPECIAL-JSYS-FUNCTION ,SIN-SOUT>
1499
1500 <PUTPROP SOUT!-JSYS SPECIAL-JSYS-FUNCTION ,SIN-SOUT>
1501
1502 <PUTPROP GTJFN-S-S!-JSYS SPECIAL-JSYS-FUNCTION ,GTJFN-S-DO>
1503
1504 <PUTPROP GTJFN-S-J!-JSYS SPECIAL-JSYS-FUNCTION ,GTJFN-S-DO>
1505
1506 <PUTPROP JFNS!-JSYS SPECIAL-JSYS-FUNCTION ,JFNS-DO>
1507
1508 <PUTPROP ERSTR!-JSYS SPECIAL-JSYS-FUNCTION ,ERSTR-DO>
1509
1510 <PUTPROP GTJFN-L!-JSYS SPECIAL-JSYS-FUNCTION ,GTJFN-L-DO>
1511
1512 <COND (<GASSIGNED? RFTAD-DO> <PUTPROP RFTAD!-JSYS SPECIAL-JSYS-FUNCTION ,RFTAD-DO>)