mim/development/mim/vaxc/lookahead.mima

   1
   2 <GDECL (LOOKAHEAD?) <OR ATOM FALSE>>
   3
   4 <SETG ARITH '[ADD!-MIMOP SUB!-MIMOP MUL!-MIMOP DIV!-MIMOP ADDF!-MIMOP SUBF!-MIMOP MULF!-MIMOP DIVF!-MIMOP AND!-MIMOP OR!-MIMOP XOR!-MIMOP EQV!-MIMOP]>
   5
   6 <SETG EMPU '[EMPUV?!-MIMOP EMPUU?!-MIMOP EMPUS?!-MIMOP EMPUB?!-MIMOP]>
   7
   8 <SETG LENU '[LENUV!-MIMOP LENUU!-MIMOP LENUS!-MIMOP LENUB!-MIMOP]>
   9
  10 <SETG NTHU '[NTHUV!-MIMOP NTHUU!-MIMOP NTHUS!-MIMOP NTHUB!-MIMOP]>
  11
  12 <SETG PUTU '[PUTUV!-MIMOP PUTUU!-MIMOP PUTUS!-MIMOP PUTUB!-MIMOP]>
  13
  14 <SETG RESTU '[RESTUV!-MIMOP RESTUU!-MIMOP RESTUS!-MIMOP RESTUB!-MIMOP]>
  15
  16 <PUTPROP RESTUV!-MIMOP PUT-PAIR PUTUV!-MIMOP>
  17
  18 <PUTPROP PUTUV!-MIMOP PUT-PAIR RESTUV!-MIMOP>
  19
  20 <PUTPROP RESTUU!-MIMOP PUT-PAIR PUTUU!-MIMOP>
  21
  22 <PUTPROP PUTUU!-MIMOP PUT-PAIR RESTUU!-MIMOP>
  23
  24 <PUTPROP RESTUS!-MIMOP PUT-PAIR PUTUS!-MIMOP>
  25
  26 <PUTPROP PUTUS!-MIMOP PUT-PAIR RESTUS!-MIMOP>
  27
  28 <PUTPROP RESTUB!-MIMOP PUT-PAIR PUTUB!-MIMOP>
  29
  30 <PUTPROP PUTUB!-MIMOP PUT-PAIR RESTUB!-MIMOP>
  31
  32 <PUTPROP RESTUV!-MIMOP PAIR NTHUV!-MIMOP>
  33
  34 <PUTPROP NTHUV!-MIMOP PAIR RESTUV!-MIMOP>
  35
  36 <PUTPROP RESTUU!-MIMOP PAIR NTHUU!-MIMOP>
  37
  38 <PUTPROP NTHUU!-MIMOP PAIR RESTUU!-MIMOP>
  39
  40 <PUTPROP RESTUS!-MIMOP PAIR NTHUS!-MIMOP>
  41
  42 <PUTPROP NTHUS!-MIMOP PAIR RESTUS!-MIMOP>
  43
  44 <PUTPROP RESTUB!-MIMOP PAIR NTHUB!-MIMOP>
  45
  46 <PUTPROP NTHUB!-MIMOP PAIR RESTUB!-MIMOP>
  47
  48 <GDECL (ARITH NTHU PUTU RESTU LENU EMPU) <VECTOR [REST ATOM]>>
  49
  50 <NEWSTRUC OP-INFO (VECTOR) OP-ARGS VECTOR OP-RES <OR ATOM VARTBL> OP-HINT <OR LIST ATOM FALSE> OP-BRANCH <OR ATOM FALSE> OP-DIR ATOM>
  51
  52 <SETG OP-INFO [<IVECTOR 5 <>> T <> <> T]>
  53
  54 #WORD *10422117637*
  55                     <GFCN \1aNTH-LOOK-AHEAD ("VALUE" <OR ATOM FALSE> ATOM ANY ANY <OR VARTBL ATOM> "OPTIONAL" ANY ANY) CINS7 STRUC18 OFF19 RES10 HINT11 STYPE112>
  56                     <OPT-DISPATCH 4 %<> OPT4 OPT5 OPT6>
  57 OPT4
  58                     <PUSH %<>>
  59 OPT5
  60                     <PUSH %<>>
  61 OPT6
  62                     <TEMP TEMP3:LBIND TEMP40 OP-INFO16 (ADDVAL17 0) (ELTYPE120 %<>) (ELTYPE221 %<>) (EMPTY?22 %<>) ARGVEC23:VECTOR (ARITH?24 %<>) (ILDB?25 %<>) (IDPB?27 %<>) (RES1?31 %<>) (RES2?32 %<>) (STYPE234 %<>) (NOPUT?38 %<>) TEMP65 NXT15 INCINS14 TEMP92 STRUC218 OFF219>
  63                     <INTGO>
  64                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
  65                     <GEN-LVAL 'CODPTR = TEMP40>
  66                     <BBIND 'L <LIST [REST <OR ATOM FORM>]> 'FIX TEMP40>
  67                     <DEAD TEMP40>
  68                     <GVAL 'OP-INFO = OP-INFO16>
  69                     <NTHUV OP-INFO16 1 = ARGVEC23 (TYPE VECTOR)>
  70                     <GVAL 'LOOKAHEAD? = TEMP40>
  71                     <TYPE? TEMP40 <TYPE-CODE FALSE> - PHRASE44>
  72                     <DEAD TEMP40>
  73                     <SET TEMP40 %<> (TYPE FALSE)>
  74                     <JUMP + RETURN2>
  75 PHRASE44
  76                     <TYPE? STYPE112 <TYPE-CODE FALSE> + PHRASE46>
  77                     <FRAME '\1aPARSE-HINT>
  78                     <PUSH STYPE112>
  79                     <DEAD STYPE112>
  80                     <PUSH 'STRUCTURE-TYPE>
  81                     <CALL '\1aPARSE-HINT 2 = STYPE112>
  82                     <JUMP + PHRASE54>
  83 PHRASE46
  84                     <VEQUAL? CINS7 'NTHUV!-MIMOP - PHRASE50>
  85                     <SET STYPE112 'VECTOR (TYPE ATOM)>
  86                     <JUMP + PHRASE54>
  87 PHRASE50
  88                     <VEQUAL? CINS7 'NTHUU!-MIMOP - PHRASE51>
  89                     <SET STYPE112 'UVECTOR (TYPE ATOM)>
  90                     <JUMP + PHRASE54>
  91 PHRASE51
  92                     <VEQUAL? CINS7 'NTHUS!-MIMOP - PHRASE52>
  93                     <SET STYPE112 'STRING (TYPE ATOM)>
  94                     <JUMP + PHRASE54>
  95 PHRASE52
  96                     <VEQUAL? CINS7 'NTHUB!-MIMOP - PHRASE53>
  97                     <SET STYPE112 'BYTES (TYPE ATOM)>
  98                     <JUMP + PHRASE54>
  99 PHRASE53
 100                     <VEQUAL? CINS7 'NTHL!-MIMOP - PHRASE54>
 101                     <SET STYPE112 'LIST (TYPE ATOM)>
 102 PHRASE54
 103                     <VEQUAL? CINS7 'ILDB!-MIMOP - PHRASE56>
 104                     <SET ILDB?25 OFF19>
 105                     <DEAD OFF19>
 106                     <SET OFF19 1 (TYPE FIX)>
 107 PHRASE56
 108                     <GVAL 'NTHU = TEMP40>
 109                     <EMPUV? TEMP40 + TAG61>
 110                     <LOOP (CINS7 VALUE) (TEMP40 LENGTH VALUE)>
 111 TAG62
 112                     <NTHUV TEMP40 1 = TEMP65>
 113                     <VEQUAL? TEMP65 CINS7 + BOOL60>
 114                     <DEAD TEMP65>
 115                     <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
 116                     <EMPUV? TEMP40 - TAG62>
 117 TAG61
 118                     <VEQUAL? CINS7 'ILDB!-MIMOP + BOOL60>
 119                     <VEQUAL? CINS7 'NTHL!-MIMOP - PHRASE58>
 120 BOOL60
 121                     <NTHR 'L 2 = TEMP40 (RECORD-TYPE ATOM) (TYPE LBIND)>
 122                     <NTHR TEMP40 1 = TEMP40 (RECORD-TYPE LBIND)>
 123                     <EMPL? TEMP40 + PHRASE58>
 124                     <RESTL TEMP40 1 = TEMP40 (TYPE LIST)>
 125                     <EMPL? TEMP40 + PHRASE58>
 126                     <RESTL TEMP40 1 = TEMP40 (TYPE LIST)>
 127                     <EMPL? TEMP40 + PHRASE58>
 128                     <DEAD TEMP40>
 129                     <TYPE? RES10 <TYPE-CODE VARTBL> - PHRASE58>
 130                     <TYPE? STRUC18 <TYPE-CODE VARTBL> - PHRASE58>
 131                     <VEQUAL? RES10 STRUC18 + PHRASE58>
 132                     <FRAME '\1aGET-NEXT-INST>
 133                     <NTHR 'L 2 = TEMP40 (RECORD-TYPE ATOM) (TYPE LBIND)>
 134                     <NTHR TEMP40 1 = STACK (RECORD-TYPE LBIND)>
 135                     <DEAD TEMP40>
 136                     <CALL '\1aGET-NEXT-INST 1 = NXT15>
 137                     <TYPE? NXT15 <TYPE-CODE FORM> - PHRASE58>
 138                     <NTHL NXT15 1 = INCINS14>
 139                     <GVAL 'ARITH = TEMP40>
 140                     <TYPE? INCINS14 <TYPE-CODE ATOM> - TAG74>
 141                     <EMPUV? TEMP40 + TAG74>
 142                     <LOOP (INCINS14 VALUE) (TEMP40 LENGTH VALUE)>
 143 TAG76
 144                     <NTHUV TEMP40 1 = TEMP65>
 145                     <VEQUAL? TEMP65 INCINS14 + TAG75>
 146                     <DEAD TEMP65>
 147                     <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
 148                     <EMPUV? TEMP40 - TAG76>
 149 TAG74
 150                     <SET ARITH?24 %<> (TYPE FALSE)>
 151                     <JUMP + TAG78>
 152 TAG75
 153                     <SET ARITH?24 TEMP40>
 154                     <DEAD TEMP40>
 155 TAG78
 156                     <VEQUAL? ARITH?24 0 - TAG79>
 157                     <GVAL 'RESTU = TEMP40>
 158                     <TYPE? INCINS14 <TYPE-CODE ATOM> - PHRASE72>
 159                     <EMPUV? TEMP40 + PHRASE72>
 160                     <LOOP (INCINS14 VALUE) (TEMP40 LENGTH VALUE)>
 161 TAG80
 162                     <NTHUV TEMP40 1 = TEMP65>
 163                     <VEQUAL? TEMP65 INCINS14 + TAG79>
 164                     <DEAD TEMP65>
 165                     <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
 166                     <EMPUV? TEMP40 - TAG80>
 167                     <JUMP + PHRASE72>
 168 TAG79
 169                     <FRAME '\1aPARSE-OP>
 170                     <PUSH NXT15>
 171                     <DEAD NXT15>
 172                     <PUSH OP-INFO16>
 173                     <CALL '\1aPARSE-OP 2>
 174                     <NTHUV OP-INFO16 1 = TEMP40 (TYPE VECTOR)>
 175                     <NTHUV TEMP40 1 = TEMP40>
 176                     <EQUAL? TEMP40 RES10 - PHRASE58>
 177                     <DEAD TEMP40>
 178                     <NTHUV OP-INFO16 2 = TEMP40>
 179                     <EQUAL? TEMP40 RES10 - PHRASE58>
 180                     <DEAD TEMP40>
 181                     <NTHUV OP-INFO16 1 = TEMP40 (TYPE VECTOR)>
 182                     <NTHUV TEMP40 2 = ADDVAL17>
 183                     <DEAD TEMP40>
 184                     <TYPE? ADDVAL17 <TYPE-CODE FALSE> + PHRASE58>
 185                     <FRAME '\1aGET-NEXT-INST>
 186                     <NTHR 'L 2 = TEMP40 (RECORD-TYPE ATOM) (TYPE LBIND)>
 187                     <NTHR TEMP40 1 = STACK (RECORD-TYPE LBIND)>
 188                     <DEAD TEMP40>
 189                     <CALL '\1aGET-NEXT-INST 1 = NXT15>
 190                     <TYPE? NXT15 <TYPE-CODE FORM> - PHRASE58>
 191                     <JUMP + PHRASE87>
 192 PHRASE72
 193                     <SET INCINS14 %<> (TYPE FALSE)>
 194 PHRASE87
 195                     <TYPE? ARITH?24 <TYPE-CODE FALSE> + TAG93>
 196                     <GVAL 'LOGIC = TEMP40>
 197                     <TYPE INCINS14 = TEMP65>
 198                     <EMPUV? TEMP40 + TAG93>
 199                     <LOOP (INCINS14 VALUE) (TEMP65 VALUE) (TEMP40 LENGTH VALUE)>
 200 TAG90
 201                     <NTHUV TEMP40 1 = TEMP92>
 202                     <TYPE? TEMP92 TEMP65 - TAG91>
 203                     <VEQUAL? TEMP92 INCINS14 + TAG89>
 204                     <DEAD TEMP92>
 205 TAG91
 206                     <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
 207                     <EMPUV? TEMP40 - TAG90>
 208                     <JUMP + TAG93>
 209 TAG89
 210                     <SET TEMP40 [STRING BYTES] (TYPE VECTOR)>
 211                     <TYPE? STYPE112 <TYPE-CODE ATOM> - TAG93>
 212                     <LOOP (STYPE112 VALUE) (TEMP40 LENGTH VALUE)>
 213 TAG94
 214                     <NTHUV TEMP40 1 = TEMP65>
 215                     <VEQUAL? TEMP65 STYPE112 + PHRASE58>
 216                     <DEAD TEMP65>
 217                     <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
 218                     <EMPUV? TEMP40 - TAG94>
 219 TAG93
 220                     <NTH1 NXT15 = TEMP92>
 221                     <GVAL 'PUTU = TEMP40>
 222                     <TYPE? TEMP92 <TYPE-CODE ATOM> - TAG97>
 223                     <EMPUV? TEMP40 + TAG97>
 224                     <LOOP (TEMP92 VALUE) (TEMP40 LENGTH VALUE)>
 225 TAG98
 226                     <NTHUV TEMP40 1 = TEMP65>
 227                     <VEQUAL? TEMP65 TEMP92 + PHRASE103>
 228                     <DEAD TEMP65>
 229                     <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
 230                     <EMPUV? TEMP40 - TAG98>
 231 TAG97
 232                     <EQUAL? TEMP92 'PUTL!-MIMOP + PHRASE103>
 233                     <EQUAL? TEMP92 'IDPB!-MIMOP - TAG100>
 234                     <SET IDPB?27 'T (TYPE ATOM)>
 235                     <JUMP + TAG101>
 236 TAG100
 237                     <SET IDPB?27 %<> (TYPE FALSE)>
 238 TAG101
 239                     <VEQUAL? IDPB?27 0 - PHRASE103>
 240                     <TYPE? ARITH?24 <TYPE-CODE FALSE> + PHRASE58>
 241                     <SET TEMP92 %<> (TYPE FALSE)>
 242                     <SET NOPUT?38 'T (TYPE ATOM)>
 243                     <SET STRUC218 RES10>
 244 PHRASE103
 245                     <VEQUAL? NOPUT?38 0 - PHRASE105>
 246                     <FRAME '\1aPARSE-OP>
 247                     <PUSH NXT15>
 248                     <DEAD NXT15>
 249                     <PUSH OP-INFO16>
 250                     <CALL '\1aPARSE-OP 2>
 251                     <NTHUV OP-INFO16 1 = ARGVEC23 (TYPE VECTOR)>
 252                     <VEQUAL? IDPB?27 0 + PHRASE108>
 253                     <NTHUV ARGVEC23 2 = TEMP40>
 254                     <EQUAL? TEMP40 RES10 - PHRASE58>
 255                     <DEAD TEMP40>
 256                     <JUMP + PHRASE105>
 257 PHRASE108
 258                     <NTHUV ARGVEC23 3 = TEMP40>
 259                     <EQUAL? TEMP40 RES10 - PHRASE58>
 260                     <DEAD TEMP40>
 261 PHRASE105
 262                     <VEQUAL? NOPUT?38 0 - PHRASE110>
 263                     <FRAME '\1aWILL-DIE?>
 264                     <PUSH RES10>
 265                     <NTHR 'L 2 = TEMP40 (RECORD-TYPE ATOM) (TYPE LBIND)>
 266                     <NTHR TEMP40 1 = STACK (RECORD-TYPE LBIND)>
 267                     <DEAD TEMP40>
 268                     <CALL '\1aWILL-DIE? 2 = TEMP40>
 269                     <TYPE? TEMP40 <TYPE-CODE FALSE> - PHRASE110>
 270                     <DEAD TEMP40>
 271                     <TYPE? ARITH?24 <TYPE-CODE FALSE> + PHRASE58>
 272                     <DEAD ARITH?24>
 273                     <SET NOPUT?38 'T (TYPE ATOM)>
 274                     <SET TEMP92 %<> (TYPE FALSE)>
 275                     <SET STRUC218 RES10>
 276                     <DEAD RES10>
 277 PHRASE110
 278                     <VEQUAL? NOPUT?38 0 - PHRASE117>
 279                     <NTHUV ARGVEC23 1 = STRUC218>
 280 PHRASE117
 281                     <VEQUAL? NOPUT?38 0 + PHRASE119>
 282                     <FRAME '\1aPROTECT-VAL>
 283                     <PUSH STRUC218>
 284                     <CALL '\1aPROTECT-VAL 1>
 285                     <JUMP + PHRASE127>
 286 PHRASE119
 287                     <VEQUAL? IDPB?27 0 + PHRASE121>
 288                     <FRAME '\1aPARSE-HINT>
 289                     <NTHUV OP-INFO16 3 = STACK>
 290                     <PUSH 'STRUCTURE-TYPE>
 291                     <CALL '\1aPARSE-HINT 2 = STYPE234>
 292                     <JUMP + PHRASE127>
 293 PHRASE121
 294                     <EQUAL? TEMP92 'PUTUV!-MIMOP - PHRASE123>
 295                     <SET STYPE234 'VECTOR (TYPE ATOM)>
 296                     <JUMP + PHRASE127>
 297 PHRASE123
 298                     <EQUAL? TEMP92 'PUTL!-MIMOP - PHRASE124>
 299                     <SET STYPE234 'LIST (TYPE ATOM)>
 300                     <JUMP + PHRASE127>
 301 PHRASE124
 302                     <EQUAL? TEMP92 'PUTUU!-MIMOP - PHRASE125>
 303                     <SET STYPE234 'UVECTOR (TYPE ATOM)>
 304                     <SET ELTYPE221 'FIX (TYPE ATOM)>
 305                     <JUMP + PHRASE127>
 306 PHRASE125
 307                     <EQUAL? TEMP92 'PUTUS!-MIMOP - PHRASE126>
 308                     <SET STYPE234 'STRING (TYPE ATOM)>
 309                     <SET ELTYPE221 'CHARACTER (TYPE ATOM)>
 310                     <JUMP + PHRASE127>
 311 PHRASE126
 312                     <EQUAL? TEMP92 'PUTUB!-MIMOP - PHRASE127>
 313                     <SET ELTYPE221 'FIX (TYPE ATOM)>
 314                     <SET STYPE234 'BYTES (TYPE ATOM)>
 315 PHRASE127
 316                     <VEQUAL? IDPB?27 0 + PHRASE129>
 317                     <SET OFF219 1 (TYPE FIX)>
 318                     <NTHUV ARGVEC23 3 = IDPB?27>
 319                     <DEAD ARGVEC23>
 320                     <JUMP + PHRASE132>
 321 PHRASE129
 322                     <VEQUAL? NOPUT?38 0 - PHRASE132>
 323                     <NTHUV ARGVEC23 2 = OFF219>
 324                     <DEAD ARGVEC23>
 325                     <NTHUV OP-INFO16 3 = TEMP40>
 326                     <TYPE? TEMP40 <TYPE-CODE FALSE> + PHRASE132>
 327                     <DEAD TEMP40>
 328                     <FRAME '\1aPARSE-HINT>
 329                     <NTHUV OP-INFO16 3 = STACK>
 330                     <DEAD OP-INFO16>
 331                     <PUSH 'TYPE>
 332                     <CALL '\1aPARSE-HINT 2 = ELTYPE221>
 333 PHRASE132
 334                     <TYPE? HINT11 <TYPE-CODE FALSE> + PHRASE135>
 335                     <TYPE? HINT11 <TYPE-CODE ATOM> - PHRASE137>
 336                     <SET ELTYPE120 HINT11>
 337                     <DEAD HINT11>
 338                     <JUMP + PHRASE141>
 339 PHRASE137
 340                     <FRAME '\1aPARSE-HINT>
 341                     <PUSH HINT11>
 342                     <DEAD HINT11>
 343                     <PUSH 'TYPE>
 344                     <CALL '\1aPARSE-HINT 2 = ELTYPE120>
 345                     <JUMP + PHRASE141>
 346 PHRASE135
 347                     <EQUAL? STYPE112 'BYTES - PHRASE139>
 348                     <SET ELTYPE120 'FIX (TYPE ATOM)>
 349                     <JUMP + PHRASE141>
 350 PHRASE139
 351                     <EQUAL? STYPE112 'STRING - PHRASE140>
 352                     <SET ELTYPE120 'CHARACTER (TYPE ATOM)>
 353                     <JUMP + PHRASE141>
 354 PHRASE140
 355                     <EQUAL? STYPE112 'UVECTOR - PHRASE141>
 356                     <SET ELTYPE120 'FIX (TYPE ATOM)>
 357 PHRASE141
 358                     <GVAL 'RESTU = TEMP40>
 359                     <TYPE? INCINS14 <TYPE-CODE ATOM> - PHRASE143>
 360                     <EMPUV? TEMP40 + PHRASE143>
 361                     <LOOP (INCINS14 VALUE) (TEMP40 LENGTH VALUE)>
 362 TAG146
 363                     <NTHUV TEMP40 1 = TEMP65>
 364                     <VEQUAL? TEMP65 INCINS14 + TAG145>
 365                     <DEAD TEMP65>
 366                     <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
 367                     <EMPUV? TEMP40 - TAG146>
 368                     <JUMP + PHRASE143>
 369 TAG145
 370                     <TYPE? ELTYPE120 <TYPE-CODE FALSE> + BOOL148>
 371                     <TYPE? ELTYPE221 <TYPE-CODE FALSE> + BOOL148>
 372                     <EQUAL? ELTYPE120 ELTYPE221 + PHRASE143>
 373 BOOL148
 374                     <TYPE? ILDB?25 <TYPE-CODE FALSE> - BOOL149>
 375                     <TYPE? IDPB?27 <TYPE-CODE FALSE> - BOOL149>
 376                     <EQUAL? STRUC18 STRUC218 - BOOL149>
 377                     <EQUAL? OFF19 OFF219 + PHRASE143>
 378 BOOL149
 379                     <SET TEMP40 %<> (TYPE FALSE)>
 380                     <JUMP + PHRASE345>
 381 PHRASE143
 382                     <FRAME '\1aNTH-AOS-PUT-GEN>
 383                     <PUSH CINS7>
 384                     <DEAD CINS7>
 385                     <PUSH INCINS14>
 386                     <DEAD INCINS14>
 387                     <PUSH TEMP92>
 388                     <DEAD TEMP92>
 389                     <PUSH STRUC18>
 390                     <DEAD STRUC18>
 391                     <PUSH OFF19>
 392                     <DEAD OFF19>
 393                     <PUSH STRUC218>
 394                     <DEAD STRUC218>
 395                     <VEQUAL? NOPUT?38 0 + TAG154>
 396                     <SET TEMP65 %<> (TYPE FALSE)>
 397                     <JUMP + PHRASE153>
 398 TAG154
 399                     <SET TEMP65 OFF219>
 400                     <DEAD OFF219>
 401 PHRASE153
 402                     <PUSH TEMP65>
 403                     <DEAD TEMP65>
 404                     <PUSH ADDVAL17>
 405                     <DEAD ADDVAL17>
 406                     <NTHR 'L 2 = TEMP65 (RECORD-TYPE ATOM) (TYPE LBIND)>
 407                     <NTHR TEMP65 1 = STACK (RECORD-TYPE LBIND)>
 408                     <DEAD TEMP65>
 409                     <PUSH ILDB?25>
 410                     <DEAD ILDB?25>
 411                     <PUSH IDPB?27>
 412                     <DEAD IDPB?27>
 413                     <PUSH STYPE112>
 414                     <DEAD STYPE112>
 415                     <VEQUAL? NOPUT?38 0 + TAG159>
 416                     <SET TEMP65 %<> (TYPE FALSE)>
 417                     <JUMP + PHRASE158>
 418 TAG159
 419                     <SET TEMP65 STYPE234>
 420                     <DEAD STYPE234>
 421 PHRASE158
 422                     <PUSH TEMP65>
 423                     <DEAD TEMP65>
 424                     <PUSH ELTYPE120>
 425                     <DEAD ELTYPE120>
 426                     <VEQUAL? NOPUT?38 0 + TAG162>
 427                     <DEAD NOPUT?38>
 428                     <SET TEMP65 %<> (TYPE FALSE)>
 429                     <JUMP + PHRASE161>
 430 TAG162
 431                     <SET TEMP65 ELTYPE221>
 432                     <DEAD ELTYPE221>
 433 PHRASE161
 434                     <PUSH TEMP65>
 435                     <DEAD TEMP65>
 436                     <CALL '\1aNTH-AOS-PUT-GEN 15 = TEMP40>
 437                     <VEQUAL? TEMP40 0 + PHRASE345>
 438                     <SET TEMP40 'NORMAL (TYPE ATOM)>
 439                     <JUMP + PHRASE345>
 440 PHRASE58
 441                     <GEN-LVAL 'CODPTR = TEMP65>
 442                     <NTHR 'L 2 = TEMP92 (RECORD-TYPE ATOM) (TYPE LBIND)>
 443                     <PUTR TEMP92 1 TEMP65 (RECORD-TYPE LBIND)>
 444                     <DEAD TEMP92 TEMP65>
 445                     <VEQUAL? CINS7 'ILDB!-MIMOP + TAG173>
 446                     <GVAL 'NTHU = TEMP65>
 447                     <EMPUV? TEMP65 + TAG170>
 448                     <LOOP (CINS7 VALUE) (TEMP65 LENGTH VALUE)>
 449 TAG171
 450                     <NTHUV TEMP65 1 = TEMP92>
 451                     <VEQUAL? TEMP92 CINS7 + TAG173>
 452                     <DEAD TEMP92>
 453                     <RESTUV TEMP65 1 = TEMP65 (TYPE VECTOR)>
 454                     <EMPUV? TEMP65 - TAG171>
 455 TAG170
 456                     <VEQUAL? CINS7 'NTHL!-MIMOP + TAG173>
 457                     <SET TEMP40 %<> (TYPE FALSE)>
 458                     <JUMP + PHRASE345>
 459 TAG173
 460                     <NTHR 'L 2 = TEMP65 (RECORD-TYPE ATOM) (TYPE LBIND)>
 461                     <NTHR TEMP65 1 = TEMP65 (RECORD-TYPE LBIND)>
 462                     <EMPL? TEMP65 + TAG177>
 463                     <RESTL TEMP65 1 = TEMP65 (TYPE LIST)>
 464                     <EMPL? TEMP65 - TAG174>
 465                     <DEAD TEMP65>
 466 TAG177
 467                     <SET TEMP40 %<> (TYPE FALSE)>
 468                     <JUMP + PHRASE345>
 469 TAG174
 470                     <FRAME '\1aGET-NEXT-INST>
 471                     <NTHR 'L 2 = TEMP65 (RECORD-TYPE ATOM) (TYPE LBIND)>
 472                     <NTHR TEMP65 1 = STACK (RECORD-TYPE LBIND)>
 473                     <DEAD TEMP65>
 474                     <CALL '\1aGET-NEXT-INST 1 = NXT15>
 475                     <TYPE? NXT15 <TYPE-CODE FORM> + TAG181>
 476                     <SET TEMP40 %<> (TYPE FALSE)>
 477                     <JUMP + PHRASE345>
 478 TAG181
 479                     <NTHL NXT15 1 = TEMP65>
 480                     <GVAL 'LENU = TEMP92>
 481                     <TYPE? TEMP65 <TYPE-CODE ATOM> - TAG187>
 482                     <EMPUV? TEMP92 + TAG187>
 483                     <LOOP (TEMP65 VALUE) (TEMP92 LENGTH VALUE)>
 484 TAG188
 485                     <NTHUV TEMP92 1 = TEMP40>
 486                     <VEQUAL? TEMP40 TEMP65 + BOOL186>
 487                     <DEAD TEMP40>
 488                     <RESTUV TEMP92 1 = TEMP92 (TYPE VECTOR)>
 489                     <EMPUV? TEMP92 - TAG188>
 490 TAG187
 491                     <NTHL NXT15 1 = TEMP65>
 492                     <EQUAL? TEMP65 'EMPL?!-MIMOP - TAG192>
 493                     <DEAD TEMP65>
 494                     <SET TEMP92 'T (TYPE ATOM)>
 495                     <JUMP + TAG194>
 496 TAG192
 497                     <NTHL NXT15 1 = TEMP65>
 498                     <GVAL 'EMPU = TEMP92>
 499                     <TYPE? TEMP65 <TYPE-CODE ATOM> - TAG193>
 500                     <EMPUV? TEMP92 + TAG193>
 501                     <LOOP (TEMP65 VALUE) (TEMP92 LENGTH VALUE)>
 502 TAG195
 503                     <NTHUV TEMP92 1 = TEMP40>
 504                     <VEQUAL? TEMP40 TEMP65 + TAG194>
 505                     <DEAD TEMP40>
 506                     <RESTUV TEMP92 1 = TEMP92 (TYPE VECTOR)>
 507                     <EMPUV? TEMP92 - TAG195>
 508 TAG193
 509                     <SET TEMP92 %<> (TYPE FALSE)>
 510 TAG194
 511                     <SET EMPTY?22 TEMP92>
 512                     <DEAD TEMP92>
 513                     <TYPE? EMPTY?22 <TYPE-CODE FALSE> + PHRASE184>
 514 BOOL186
 515                     <FRAME '\1aPARSE-OP>
 516                     <PUSH NXT15>
 517                     <PUSH OP-INFO16>
 518                     <CALL '\1aPARSE-OP 2>
 519                     <NTHUV OP-INFO16 1 = ARGVEC23 (TYPE VECTOR)>
 520                     <NTHUV ARGVEC23 1 = TEMP92>
 521                     <EQUAL? TEMP92 RES10 - PHRASE184>
 522                     <DEAD TEMP92>
 523                     <NTHUV ARGVEC23 1 = TEMP92>
 524                     <NTHUV OP-INFO16 2 = TEMP65>
 525                     <EQUAL? TEMP92 TEMP65 + BOOL203>
 526                     <DEAD TEMP92>
 527                     <FRAME '\1aWILL-DIE?>
 528                     <PUSH RES10>
 529                     <NTHR 'L 2 = TEMP65 (RECORD-TYPE ATOM) (TYPE LBIND)>
 530                     <NTHR TEMP65 1 = STACK (RECORD-TYPE LBIND)>
 531                     <DEAD TEMP65>
 532                     <CALL '\1aWILL-DIE? 2 = TEMP65>
 533                     <TYPE? TEMP65 <TYPE-CODE FALSE> + PHRASE184>
 534                     <DEAD TEMP65>
 535                     <TYPE? EMPTY?22 <TYPE-CODE FALSE> + BOOL203>
 536                     <NTHUV OP-INFO16 4 = TEMP65>
 537                     <NTHR 'L 2 = ELTYPE120 (RECORD-TYPE ATOM) (TYPE LBIND)>
 538                     <NTHR ELTYPE120 1 = ELTYPE120 (RECORD-TYPE LBIND)>
 539                     <TYPE TEMP65 = TEMP92>
 540                     <EMPL? ELTYPE120 + TAG205>
 541                     <LOOP (TEMP65 VALUE) (TEMP92 VALUE) (ELTYPE120 VALUE)>
 542 TAG207
 543                     <NTHL ELTYPE120 1 = TEMP40>
 544                     <TYPE? TEMP40 TEMP92 - TAG208>
 545                     <VEQUAL? TEMP40 TEMP65 + TAG206>
 546                     <DEAD TEMP40>
 547 TAG208
 548                     <RESTL ELTYPE120 1 = ELTYPE120 (TYPE LIST)>
 549                     <EMPL? ELTYPE120 - TAG207>
 550 TAG205
 551                     <SET ELTYPE120 %<> (TYPE FALSE)>
 552 TAG206
 553                     <VEQUAL? ELTYPE120 0 + PHRASE184>
 554                     <FRAME '\1aWILL-DIE?>
 555                     <PUSH RES10>
 556                     <PUSH ELTYPE120>
 557                     <DEAD ELTYPE120>
 558                     <CALL '\1aWILL-DIE? 2 = TEMP92>
 559                     <TYPE? TEMP92 <TYPE-CODE FALSE> + PHRASE184>
 560                     <DEAD TEMP92>
 561 BOOL203
 562                     <NTHR 'L 2 = TEMP92 (RECORD-TYPE ATOM) (TYPE LBIND)>
 563                     <NTHR TEMP92 1 = ARITH?24 (RECORD-TYPE LBIND)>
 564                     <DEAD TEMP92>
 565                     <TYPE? EMPTY?22 <TYPE-CODE FALSE> + PHRASE215>
 566                     <DEAD EMPTY?22>
 567                     <FRAME '\1aFLUSH-TO>
 568                     <NTHR 'L 2 = TEMP92 (RECORD-TYPE ATOM) (TYPE LBIND)>
 569                     <NTHR TEMP92 1 = STACK (RECORD-TYPE LBIND)>
 570                     <DEAD TEMP92>
 571                     <GEN-LVAL 'CODPTR = STACK>
 572                     <CALL '\1aFLUSH-TO 2>
 573                     <FRAME '\1aNTH-LENGTH-COMP-GEN>
 574                     <PUSH CINS7>
 575                     <DEAD CINS7>
 576                     <PUSH STRUC18>
 577                     <DEAD STRUC18>
 578                     <PUSH OFF19>
 579                     <DEAD OFF19>
 580                     <PUSH STYPE112>
 581                     <DEAD STYPE112>
 582                     <PUSH 0>
 583                     <NTHL NXT15 1 = STACK>
 584                     <DEAD NXT15>
 585                     <PUSH OP-INFO16>
 586                     <DEAD OP-INFO16>
 587                     <CALL '\1aNTH-LENGTH-COMP-GEN 7>
 588                     <SET TEMP40 'CONDITIONAL-BRANCH (TYPE ATOM)>
 589                     <JUMP + PHRASE345>
 590 PHRASE215
 591                     <NTHUV OP-INFO16 2 = ADDVAL17>
 592                     <NTHR 'L 2 = TEMP65 (RECORD-TYPE ATOM) (TYPE LBIND)>
 593                     <NTHR TEMP65 1 = TEMP65 (RECORD-TYPE LBIND)>
 594                     <EMPL? TEMP65 + PHRASE224>
 595                     <RESTL TEMP65 1 = TEMP65 (TYPE LIST)>
 596                     <EMPL? TEMP65 + PHRASE224>
 597                     <RESTL TEMP65 1 = TEMP65 (TYPE LIST)>
 598                     <EMPL? TEMP65 + PHRASE224>
 599                     <DEAD TEMP65>
 600                     <FRAME '\1aGET-NEXT-INST>
 601                     <NTHR 'L 2 = TEMP65 (RECORD-TYPE ATOM) (TYPE LBIND)>
 602                     <NTHR TEMP65 1 = STACK (RECORD-TYPE LBIND)>
 603                     <DEAD TEMP65>
 604                     <CALL '\1aGET-NEXT-INST 1 = NXT15>
 605                     <TYPE? NXT15 <TYPE-CODE FORM> - PHRASE224>
 606                     <NTHL NXT15 1 = TEMP65>
 607                     <SET TEMP40 [LESS?!-MIMOP GRTR?!-MIMOP VEQUAL?!-MIMOP] (TYPE VECTOR)>
 608                     <TYPE? TEMP65 <TYPE-CODE ATOM> - PHRASE224>
 609                     <LOOP (TEMP65 VALUE) (TEMP40 LENGTH VALUE)>
 610 TAG232
 611                     <NTHUV TEMP40 1 = ELTYPE120>
 612                     <VEQUAL? ELTYPE120 TEMP65 + TAG231>
 613                     <DEAD ELTYPE120>
 614                     <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
 615                     <EMPUV? TEMP40 - TAG232>
 616                     <JUMP + PHRASE224>
 617 TAG231
 618                     <FRAME '\1aPARSE-OP>
 619                     <PUSH NXT15>
 620                     <PUSH OP-INFO16>
 621                     <CALL '\1aPARSE-OP 2>
 622                     <NTHUV OP-INFO16 1 = ARGVEC23 (TYPE VECTOR)>
 623                     <NTHUV ARGVEC23 1 = TEMP40>
 624                     <EQUAL? ADDVAL17 TEMP40 - PHRASE237>
 625                     <DEAD TEMP40>
 626                     <NTHL NXT15 1 = ELTYPE120>
 627                     <DEAD NXT15>
 628                     <NTHUV ARGVEC23 2 = ELTYPE221>
 629                     <DEAD ARGVEC23>
 630                     <TYPE? ELTYPE221 <TYPE-CODE FALSE> + PHRASE224>
 631                     <JUMP + PHRASE241>
 632 PHRASE237
 633                     <NTHUV ARGVEC23 2 = TEMP40>
 634                     <EQUAL? TEMP40 ADDVAL17 - PHRASE224>
 635                     <DEAD TEMP40>
 636                     <NTHUV ARGVEC23 1 = ELTYPE221>
 637                     <DEAD ARGVEC23>
 638                     <NTHL NXT15 1 = ELTYPE120>
 639                     <DEAD NXT15>
 640                     <EQUAL? ELTYPE120 'LESS?!-MIMOP - PHRASE240>
 641                     <SET ELTYPE120 'GRTR?!-MIMOP (TYPE ATOM)>
 642                     <JUMP + PHRASE241>
 643 PHRASE240
 644                     <EQUAL? ELTYPE120 'GRTR?!-MIMOP - PHRASE241>
 645                     <SET ELTYPE120 'LESS?!-MIMOP (TYPE ATOM)>
 646 PHRASE241
 647                     <FRAME '\1aWILL-DIE?>
 648                     <PUSH ADDVAL17>
 649                     <NTHR 'L 2 = TEMP40 (RECORD-TYPE ATOM) (TYPE LBIND)>
 650                     <NTHR TEMP40 1 = TEMP40 (RECORD-TYPE LBIND)>
 651                     <RESTL TEMP40 1 = STACK (TYPE LIST)>
 652                     <DEAD TEMP40>
 653                     <CALL '\1aWILL-DIE? 2 = TEMP40>
 654                     <TYPE? TEMP40 <TYPE-CODE FALSE> + PHRASE224>
 655                     <DEAD TEMP40>
 656                     <FRAME '\1aFLUSH-TO>
 657                     <NTHR 'L 2 = TEMP40 (RECORD-TYPE ATOM) (TYPE LBIND)>
 658                     <NTHR TEMP40 1 = STACK (RECORD-TYPE LBIND)>
 659                     <DEAD TEMP40>
 660                     <GEN-LVAL 'CODPTR = STACK>
 661                     <CALL '\1aFLUSH-TO 2>
 662                     <FRAME '\1aNTH-LENGTH-COMP-GEN>
 663                     <PUSH CINS7>
 664                     <DEAD CINS7>
 665                     <PUSH STRUC18>
 666                     <DEAD STRUC18>
 667                     <PUSH OFF19>
 668                     <DEAD OFF19>
 669                     <PUSH STYPE112>
 670                     <DEAD STYPE112>
 671                     <PUSH ELTYPE221>
 672                     <DEAD ELTYPE221>
 673                     <PUSH ELTYPE120>
 674                     <DEAD ELTYPE120>
 675                     <PUSH OP-INFO16>
 676                     <DEAD OP-INFO16>
 677                     <CALL '\1aNTH-LENGTH-COMP-GEN 7>
 678                     <SET TEMP40 'CONDITIONAL-BRANCH (TYPE ATOM)>
 679                     <JUMP + PHRASE345>
 680 PHRASE224
 681                     <FRAME '\1aFLUSH-TO>
 682                     <PUSH ARITH?24>
 683                     <DEAD ARITH?24>
 684                     <GEN-LVAL 'CODPTR = STACK>
 685                     <CALL '\1aFLUSH-TO 2>
 686                     <FRAME '\1aNTH-LENGTH-GEN>
 687                     <PUSH CINS7>
 688                     <DEAD CINS7>
 689                     <PUSH STRUC18>
 690                     <DEAD STRUC18>
 691                     <PUSH OFF19>
 692                     <DEAD OFF19>
 693                     <PUSH STYPE112>
 694                     <DEAD STYPE112>
 695                     <PUSH ADDVAL17>
 696                     <DEAD ADDVAL17>
 697                     <CALL '\1aNTH-LENGTH-GEN 5>
 698                     <SET TEMP40 'NORMAL (TYPE ATOM)>
 699                     <JUMP + PHRASE345>
 700 PHRASE184
 701                     <NTHL NXT15 1 = TEMP40>
 702                     <EQUAL? TEMP40 'ILDB!-MIMOP + BOOL258>
 703                     <GVAL 'NTHU = ELTYPE120>
 704                     <TYPE? TEMP40 <TYPE-CODE ATOM> - TAG259>
 705                     <EMPUV? ELTYPE120 + TAG259>
 706                     <LOOP (TEMP40 VALUE) (ELTYPE120 LENGTH VALUE)>
 707 TAG260
 708                     <NTHUV ELTYPE120 1 = ADDVAL17>
 709                     <VEQUAL? ADDVAL17 TEMP40 + BOOL258>
 710                     <DEAD ADDVAL17>
 711                     <RESTUV ELTYPE120 1 = ELTYPE120 (TYPE VECTOR)>
 712                     <EMPUV? ELTYPE120 - TAG260>
 713 TAG259
 714                     <EQUAL? TEMP40 'NTHL!-MIMOP - PHRASE256>
 715 BOOL258
 716                     <NTHR 'L 2 = ADDVAL17 (RECORD-TYPE ATOM) (TYPE LBIND)>
 717                     <NTHR ADDVAL17 1 = ADDVAL17 (RECORD-TYPE LBIND)>
 718                     <RESTL ADDVAL17 1 = ELTYPE120 (TYPE LIST)>
 719                     <DEAD ADDVAL17>
 720                     <EMPL? ELTYPE120 + PHRASE256 (TYPE LIST)>
 721                     <DEAD ELTYPE120>
 722                     <FRAME '\1aPARSE-OP>
 723                     <PUSH NXT15>
 724                     <PUSH OP-INFO16>
 725                     <CALL '\1aPARSE-OP 2>
 726                     <EQUAL? TEMP40 'ILDB!-MIMOP - PHRASE267>
 727                     <FRAME '\1aPARSE-HINT>
 728                     <NTHUV OP-INFO16 3 = STACK>
 729                     <PUSH 'STRUCTURE-TYPE>
 730                     <CALL '\1aPARSE-HINT 2 = STYPE234>
 731                     <TYPE? STYPE234 <TYPE-CODE FALSE> + PHRASE256>
 732                     <JUMP + COND266>
 733 PHRASE267
 734                     <EQUAL? TEMP40 'NTHL!-MIMOP - PHRASE269>
 735                     <SET STYPE234 'LIST (TYPE ATOM)>
 736                     <JUMP + COND266>
 737 PHRASE269
 738                     <FRAME '\1aNTH>
 739                     <FRAME '\1aMEMBER>
 740                     <NTHR TEMP40 3 = ELTYPE120 (RECORD-TYPE ATOM)>
 741                     <DEAD TEMP40>
 742                     <RESTUS ELTYPE120 3 = STACK (TYPE STRING)>
 743                     <DEAD ELTYPE120>
 744                     <PUSH ["UV" VECTOR "UU" UVECTOR "US" STRING "UB" BYTES]>
 745                     <CALL '\1aMEMBER 2 = STACK>
 746                     <PUSH 2>
 747                     <CALL '\1aNTH 2 = STYPE234>
 748                     <TYPE? STYPE234 <TYPE-CODE FALSE> + PHRASE256>
 749 COND266
 750                     <NTHUV OP-INFO16 1 = ARGVEC23 (TYPE VECTOR)>
 751                     <NTHUV ARGVEC23 1 = STRUC218>
 752                     <TYPE? STRUC218 <TYPE-CODE FALSE> + PHRASE256>
 753                     <EQUAL? STYPE112 STYPE234 + TAG284>
 754                     <SET ELTYPE120 [VECTOR UVECTOR LIST] (TYPE VECTOR)>
 755                     <TYPE? STYPE112 <TYPE-CODE ATOM> - TAG277>
 756                     <LOOP (STYPE112 VALUE) (ELTYPE120 LENGTH VALUE)>
 757 TAG275
 758                     <NTHUV ELTYPE120 1 = ADDVAL17>
 759                     <VEQUAL? ADDVAL17 STYPE112 + TAG274>
 760                     <DEAD ADDVAL17>
 761                     <RESTUV ELTYPE120 1 = ELTYPE120 (TYPE VECTOR)>
 762                     <EMPUV? ELTYPE120 - TAG275>
 763                     <JUMP + TAG277>
 764 TAG274
 765                     <SET ELTYPE120 [VECTOR UVECTOR LIST] (TYPE VECTOR)>
 766                     <TYPE? STYPE234 <TYPE-CODE ATOM> - TAG277>
 767                     <LOOP (STYPE234 VALUE) (ELTYPE120 LENGTH VALUE)>
 768 TAG278
 769                     <NTHUV ELTYPE120 1 = ADDVAL17>
 770                     <VEQUAL? ADDVAL17 STYPE234 + TAG284>
 771                     <DEAD ADDVAL17>
 772                     <RESTUV ELTYPE120 1 = ELTYPE120 (TYPE VECTOR)>
 773                     <EMPUV? ELTYPE120 - TAG278>
 774 TAG277
 775                     <SET ELTYPE120 [STRING BYTES] (TYPE VECTOR)>
 776                     <TYPE? STYPE112 <TYPE-CODE ATOM> - PHRASE256>
 777                     <LOOP (STYPE112 VALUE) (ELTYPE120 LENGTH VALUE)>
 778 TAG282
 779                     <NTHUV ELTYPE120 1 = ADDVAL17>
 780                     <VEQUAL? ADDVAL17 STYPE112 + TAG281>
 781                     <DEAD ADDVAL17>
 782                     <RESTUV ELTYPE120 1 = ELTYPE120 (TYPE VECTOR)>
 783                     <EMPUV? ELTYPE120 - TAG282>
 784                     <JUMP + PHRASE256>
 785 TAG281
 786                     <SET ELTYPE120 [STRING BYTES] (TYPE VECTOR)>
 787                     <TYPE? STYPE234 <TYPE-CODE ATOM> - PHRASE256>
 788                     <LOOP (STYPE234 VALUE) (ELTYPE120 LENGTH VALUE)>
 789 TAG285
 790                     <NTHUV ELTYPE120 1 = ADDVAL17>
 791                     <VEQUAL? ADDVAL17 STYPE234 + TAG284>
 792                     <DEAD ADDVAL17>
 793                     <RESTUV ELTYPE120 1 = ELTYPE120 (TYPE VECTOR)>
 794                     <EMPUV? ELTYPE120 - TAG285>
 795                     <JUMP + PHRASE256>
 796 TAG284
 797                     <NTHUV ARGVEC23 2 = OFF219>
 798                     <TYPE? OFF219 <TYPE-CODE FALSE> + PHRASE256>
 799                     <NTHUV OP-INFO16 2 = TEMP40>
 800                     <FRAME '\1aWILL-DIE?>
 801                     <PUSH TEMP40>
 802                     <NTHR 'L 2 = ELTYPE120 (RECORD-TYPE ATOM) (TYPE LBIND)>
 803                     <NTHR ELTYPE120 1 = ELTYPE120 (RECORD-TYPE LBIND)>
 804                     <RESTL ELTYPE120 1 = STACK (TYPE LIST)>
 805                     <DEAD ELTYPE120>
 806                     <CALL '\1aWILL-DIE? 2 = ELTYPE120>
 807                     <TYPE? ELTYPE120 <TYPE-CODE FALSE> + PHRASE256>
 808                     <DEAD ELTYPE120>
 809                     <FRAME '\1aGET-NEXT-INST>
 810                     <NTHR 'L 2 = ELTYPE120 (RECORD-TYPE ATOM) (TYPE LBIND)>
 811                     <NTHR ELTYPE120 1 = STACK (RECORD-TYPE LBIND)>
 812                     <DEAD ELTYPE120>
 813                     <CALL '\1aGET-NEXT-INST 1 = NXT15>
 814                     <TYPE? NXT15 <TYPE-CODE FORM> - PHRASE256>
 815                     <NTHL NXT15 1 = ELTYPE120>
 816                     <SET ADDVAL17 [LESS?!-MIMOP GRTR?!-MIMOP VEQUAL?!-MIMOP] (TYPE VECTOR)>
 817                     <TYPE? ELTYPE120 <TYPE-CODE ATOM> - PHRASE256>
 818                     <LOOP (ELTYPE120 VALUE) (ADDVAL17 LENGTH VALUE)>
 819 TAG294
 820                     <NTHUV ADDVAL17 1 = ELTYPE221>
 821                     <VEQUAL? ELTYPE221 ELTYPE120 + TAG293>
 822                     <DEAD ELTYPE221>
 823                     <RESTUV ADDVAL17 1 = ADDVAL17 (TYPE VECTOR)>
 824                     <EMPUV? ADDVAL17 - TAG294>
 825                     <JUMP + PHRASE256>
 826 TAG293
 827                     <SET ADDVAL17 NXT15>
 828                     <TYPE RES10 = ELTYPE120>
 829                     <LOOP (RES10 VALUE) (ELTYPE120 VALUE) (ADDVAL17 VALUE)>
 830 TAG299
 831                     <NTHL ADDVAL17 1 = ELTYPE221>
 832                     <TYPE? ELTYPE221 ELTYPE120 - TAG300>
 833                     <VEQUAL? ELTYPE221 RES10 + TAG301>
 834                     <DEAD ELTYPE221>
 835 TAG300
 836                     <RESTL ADDVAL17 1 = ADDVAL17 (TYPE LIST)>
 837                     <EMPL? ADDVAL17 - TAG299>
 838                     <SET ADDVAL17 NXT15>
 839                     <TYPE TEMP40 = ELTYPE120>
 840                     <LOOP (TEMP40 VALUE) (ELTYPE120 VALUE) (ADDVAL17 VALUE)>
 841 TAG302
 842                     <NTHL ADDVAL17 1 = ELTYPE221>
 843                     <TYPE? ELTYPE221 ELTYPE120 - TAG303>
 844                     <VEQUAL? ELTYPE221 TEMP40 + TAG301>
 845                     <DEAD ELTYPE221>
 846 TAG303
 847                     <RESTL ADDVAL17 1 = ADDVAL17 (TYPE LIST)>
 848                     <EMPL? ADDVAL17 - TAG302>
 849                     <JUMP + PHRASE256>
 850 TAG301
 851                     <FRAME '\1aPARSE-OP>
 852                     <PUSH NXT15>
 853                     <PUSH OP-INFO16>
 854                     <CALL '\1aPARSE-OP 2>
 855                     <NTHUV OP-INFO16 4 = ADDVAL17>
 856                     <NTHR 'L 2 = ELTYPE120 (RECORD-TYPE ATOM) (TYPE LBIND)>
 857                     <NTHR ELTYPE120 1 = ELTYPE120 (RECORD-TYPE LBIND)>
 858                     <TYPE ADDVAL17 = ELTYPE221>
 859                     <EMPL? ELTYPE120 + TAG308>
 860                     <LOOP (ADDVAL17 VALUE) (ELTYPE221 VALUE) (ELTYPE120 VALUE)>
 861 TAG310
 862                     <NTHL ELTYPE120 1 = EMPTY?22>
 863                     <TYPE? EMPTY?22 ELTYPE221 - TAG311>
 864                     <VEQUAL? EMPTY?22 ADDVAL17 + TAG309>
 865                     <DEAD EMPTY?22>
 866 TAG311
 867                     <RESTL ELTYPE120 1 = ELTYPE120 (TYPE LIST)>
 868                     <EMPL? ELTYPE120 - TAG310>
 869 TAG308
 870                     <SET ELTYPE120 %<> (TYPE FALSE)>
 871                     <JUMP + TAG315>
 872 TAG309
 873 TAG315
 874                     <VEQUAL? ELTYPE120 0 + BOOL307>
 875                     <FRAME '\1aWILL-DIE?>
 876                     <PUSH TEMP40>
 877                     <PUSH ELTYPE120>
 878                     <DEAD ELTYPE120>
 879                     <CALL '\1aWILL-DIE? 2 = ELTYPE120>
 880                     <TYPE? ELTYPE120 <TYPE-CODE FALSE> - PHRASE306>
 881                     <DEAD ELTYPE120>
 882 BOOL307
 883                     <SET TEMP40 %<> (TYPE FALSE)>
 884                     <JUMP + RETURN2>
 885 PHRASE306
 886                     <FRAME '\1aFLUSH-TO>
 887                     <NTHR 'L 2 = ELTYPE120 (RECORD-TYPE ATOM) (TYPE LBIND)>
 888                     <NTHR ELTYPE120 1 = STACK (RECORD-TYPE LBIND)>
 889                     <DEAD ELTYPE120>
 890                     <GEN-LVAL 'CODPTR = STACK>
 891                     <CALL '\1aFLUSH-TO 2>
 892                     <FRAME '\1aSLOT-COMPARE>
 893                     <NTHUV ARGVEC23 1 = ELTYPE221>
 894                     <EQUAL? ELTYPE221 RES10 - PHRASE324>
 895                     <DEAD ELTYPE221>
 896                     <SET RES1?31 1 (TYPE FIX)>
 897                     <SET ELTYPE221 STRUC18>
 898                     <JUMP + COND323>
 899 PHRASE324
 900                     <NTHUV ARGVEC23 1 = ADDVAL17>
 901                     <EQUAL? ADDVAL17 TEMP40 - PHRASE325>
 902                     <DEAD ADDVAL17>
 903                     <SET RES2?32 1 (TYPE FIX)>
 904                     <SET ELTYPE221 STRUC218>
 905                     <JUMP + COND323>
 906 PHRASE325
 907                     <NTHUV ARGVEC23 1 = ELTYPE221>
 908 COND323
 909                     <PUSH ELTYPE221>
 910                     <DEAD ELTYPE221>
 911                     <NTHUV ARGVEC23 2 = ELTYPE221>
 912                     <EQUAL? ELTYPE221 RES10 - PHRASE327>
 913                     <DEAD ELTYPE221 RES10>
 914                     <SET RES1?31 2 (TYPE FIX)>
 915                     <SET ELTYPE221 STRUC18>
 916                     <DEAD STRUC18>
 917                     <JUMP + COND326>
 918 PHRASE327
 919                     <NTHUV ARGVEC23 2 = ADDVAL17>
 920                     <EQUAL? ADDVAL17 TEMP40 - PHRASE328>
 921                     <DEAD ADDVAL17 TEMP40>
 922                     <SET RES2?32 2 (TYPE FIX)>
 923                     <SET ELTYPE221 STRUC218>
 924                     <DEAD STRUC218>
 925                     <JUMP + COND326>
 926 PHRASE328
 927                     <NTHUV ARGVEC23 2 = ELTYPE221>
 928                     <DEAD ARGVEC23>
 929 COND326
 930                     <PUSH ELTYPE221>
 931                     <DEAD ELTYPE221>
 932                     <NTHL NXT15 1 = STACK>
 933                     <DEAD NXT15>
 934                     <PUSH OP-INFO16>
 935                     <DEAD OP-INFO16>
 936                     <EQUAL? RES1?31 1 - PHRASE330>
 937                     <SET ELTYPE221 OFF19>
 938                     <JUMP + PHRASE331>
 939 PHRASE330
 940                     <EQUAL? RES2?32 1 + TAG332>
 941                     <SET ELTYPE221 %<> (TYPE FALSE)>
 942                     <JUMP + PHRASE331>
 943 TAG332
 944                     <SET ELTYPE221 OFF219>
 945 PHRASE331
 946                     <PUSH ELTYPE221>
 947                     <DEAD ELTYPE221>
 948                     <EQUAL? RES1?31 1 - PHRASE334>
 949                     <SET ELTYPE221 STYPE112>
 950                     <JUMP + PHRASE335>
 951 PHRASE334
 952                     <EQUAL? RES2?32 1 + TAG336>
 953                     <SET ELTYPE221 %<> (TYPE FALSE)>
 954                     <JUMP + PHRASE335>
 955 TAG336
 956                     <SET ELTYPE221 STYPE234>
 957 PHRASE335
 958                     <PUSH ELTYPE221>
 959                     <DEAD ELTYPE221>
 960                     <EQUAL? RES1?31 2 - PHRASE338>
 961                     <SET ELTYPE221 OFF19>
 962                     <DEAD OFF19>
 963                     <JUMP + PHRASE339>
 964 PHRASE338
 965                     <EQUAL? RES2?32 2 + TAG340>
 966                     <SET ELTYPE221 %<> (TYPE FALSE)>
 967                     <JUMP + PHRASE339>
 968 TAG340
 969                     <SET ELTYPE221 OFF219>
 970                     <DEAD OFF219>
 971 PHRASE339
 972                     <PUSH ELTYPE221>
 973                     <DEAD ELTYPE221>
 974                     <EQUAL? RES1?31 2 - PHRASE342>
 975                     <DEAD RES1?31>
 976                     <SET ELTYPE221 STYPE112>
 977                     <DEAD STYPE112>
 978                     <JUMP + PHRASE343>
 979 PHRASE342
 980                     <EQUAL? RES2?32 2 + TAG344>
 981                     <DEAD RES2?32>
 982                     <SET ELTYPE221 %<> (TYPE FALSE)>
 983                     <JUMP + PHRASE343>
 984 TAG344
 985                     <SET ELTYPE221 STYPE234>
 986                     <DEAD STYPE234>
 987 PHRASE343
 988                     <PUSH ELTYPE221>
 989                     <DEAD ELTYPE221>
 990                     <CALL '\1aSLOT-COMPARE 8>
 991                     <SET TEMP40 'CONDITIONAL-BRANCH (TYPE ATOM)>
 992                     <JUMP + PHRASE345>
 993 PHRASE256
 994                     <NTH1 NXT15 = ELTYPE221>
 995                     <SET TEMP40 [GRTR?!-MIMOP LESS?!-MIMOP VEQUAL?!-MIMOP] (TYPE VECTOR)>
 996                     <TYPE? ELTYPE221 <TYPE-CODE ATOM> - TAG347>
 997                     <LOOP (ELTYPE221 VALUE) (TEMP40 LENGTH VALUE)>
 998 TAG349
 999                     <NTHUV TEMP40 1 = ADDVAL17>
1000                     <VEQUAL? ADDVAL17 ELTYPE221 + TAG348>
1001                     <DEAD ADDVAL17>
1002                     <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
1003                     <EMPUV? TEMP40 - TAG349>
1004 TAG347
1005                     <SET TEMP40 %<> (TYPE FALSE)>
1006                     <JUMP + PHRASE345>
1007 TAG348
1008                     <FRAME '\1aPARSE-OP>
1009                     <PUSH NXT15>
1010                     <PUSH OP-INFO16>
1011                     <CALL '\1aPARSE-OP 2>
1012                     <NTHUV ARGVEC23 1 = ELTYPE221>
1013                     <EQUAL? ELTYPE221 RES10 + TAG353>
1014                     <DEAD ELTYPE221>
1015                     <NTHUV ARGVEC23 2 = ELTYPE221>
1016                     <EQUAL? ELTYPE221 RES10 + TAG353>
1017                     <DEAD ELTYPE221>
1018                     <SET TEMP40 %<> (TYPE FALSE)>
1019                     <JUMP + PHRASE345>
1020 TAG353
1021                     <FRAME '\1aWILL-DIE?>
1022                     <PUSH RES10>
1023                     <NTHR 'L 2 = ELTYPE221 (RECORD-TYPE ATOM) (TYPE LBIND)>
1024                     <NTHR ELTYPE221 1 = STACK (RECORD-TYPE LBIND)>
1025                     <DEAD ELTYPE221>
1026                     <CALL '\1aWILL-DIE? 2 = TEMP40>
1027                     <TYPE? TEMP40 <TYPE-CODE FALSE> + PHRASE345>
1028                     <NTHUV OP-INFO16 4 = ELTYPE221>
1029                     <NTHR 'L 2 = ADDVAL17 (RECORD-TYPE ATOM) (TYPE LBIND)>
1030                     <NTHR ADDVAL17 1 = ADDVAL17 (RECORD-TYPE LBIND)>
1031                     <TYPE ELTYPE221 = EMPTY?22>
1032                     <EMPL? ADDVAL17 + TAG358>
1033                     <LOOP (ELTYPE221 VALUE) (EMPTY?22 VALUE) (ADDVAL17 VALUE)>
1034 TAG360
1035                     <NTHL ADDVAL17 1 = TEMP40>
1036                     <TYPE? TEMP40 EMPTY?22 - TAG361>
1037                     <VEQUAL? TEMP40 ELTYPE221 + TAG359>
1038                     <DEAD TEMP40>
1039 TAG361
1040                     <RESTL ADDVAL17 1 = ADDVAL17 (TYPE LIST)>
1041                     <EMPL? ADDVAL17 - TAG360>
1042 TAG358
1043                     <SET ELTYPE120 %<> (TYPE FALSE)>
1044                     <JUMP + TAG365>
1045 TAG359
1046                     <SET ELTYPE120 ADDVAL17>
1047                     <DEAD ADDVAL17>
1048 TAG365
1049                     <SET TEMP40 ELTYPE120>
1050                     <VEQUAL? TEMP40 0 + PHRASE345>
1051                     <FRAME '\1aWILL-DIE?>
1052                     <PUSH RES10>
1053                     <PUSH ELTYPE120>
1054                     <DEAD ELTYPE120>
1055                     <CALL '\1aWILL-DIE? 2 = TEMP40>
1056                     <TYPE? TEMP40 <TYPE-CODE FALSE> + PHRASE345>
1057                     <NTHUV ARGVEC23 1 = ADDVAL17>
1058                     <EQUAL? ADDVAL17 RES10 - PHRASE368>
1059                     <DEAD ADDVAL17>
1060                     <SET RES1?31 'T (TYPE ATOM)>
1061                     <JUMP + PHRASE369>
1062 PHRASE368
1063                     <NTHUV ARGVEC23 2 = ADDVAL17>
1064                     <EQUAL? ADDVAL17 RES10 - PHRASE369>
1065                     <DEAD ADDVAL17 RES10>
1066                     <SET RES2?32 'T (TYPE ATOM)>
1067 PHRASE369
1068                     <FRAME '\1aFLUSH-TO>
1069                     <NTHR 'L 2 = ADDVAL17 (RECORD-TYPE ATOM) (TYPE LBIND)>
1070                     <NTHR ADDVAL17 1 = STACK (RECORD-TYPE LBIND)>
1071                     <DEAD ADDVAL17>
1072                     <GEN-LVAL 'CODPTR = STACK>
1073                     <CALL '\1aFLUSH-TO 2>
1074                     <FRAME '\1aSLOT-COMPARE>
1075                     <VEQUAL? RES1?31 0 + PHRASE377>
1076                     <SET EMPTY?22 STRUC18>
1077                     <JUMP + COND376>
1078 PHRASE377
1079                     <NTHUV ARGVEC23 1 = EMPTY?22>
1080 COND376
1081                     <PUSH EMPTY?22>
1082                     <DEAD EMPTY?22>
1083                     <VEQUAL? RES2?32 0 + PHRASE379>
1084                     <SET EMPTY?22 STRUC18>
1085                     <DEAD STRUC18>
1086                     <JUMP + COND378>
1087 PHRASE379
1088                     <NTHUV ARGVEC23 2 = EMPTY?22>
1089                     <DEAD ARGVEC23>
1090 COND378
1091                     <PUSH EMPTY?22>
1092                     <DEAD EMPTY?22>
1093                     <NTHL NXT15 1 = STACK>
1094                     <DEAD NXT15>
1095                     <PUSH OP-INFO16>
1096                     <DEAD OP-INFO16>
1097                     <SET EMPTY?22 RES1?31>
1098                     <VEQUAL? EMPTY?22 0 + PHRASE381>
1099                     <SET EMPTY?22 OFF19>
1100 PHRASE381
1101                     <PUSH EMPTY?22>
1102                     <DEAD EMPTY?22>
1103                     <SET EMPTY?22 RES1?31>
1104                     <DEAD RES1?31>
1105                     <VEQUAL? EMPTY?22 0 + PHRASE383>
1106                     <SET EMPTY?22 STYPE112>
1107 PHRASE383
1108                     <PUSH EMPTY?22>
1109                     <DEAD EMPTY?22>
1110                     <SET EMPTY?22 RES2?32>
1111                     <VEQUAL? EMPTY?22 0 + PHRASE385>
1112                     <SET EMPTY?22 OFF19>
1113                     <DEAD OFF19>
1114 PHRASE385
1115                     <PUSH EMPTY?22>
1116                     <DEAD EMPTY?22>
1117                     <SET EMPTY?22 RES2?32>
1118                     <DEAD RES2?32>
1119                     <VEQUAL? EMPTY?22 0 + PHRASE387>
1120                     <SET EMPTY?22 STYPE112>
1121                     <DEAD STYPE112>
1122 PHRASE387
1123                     <PUSH EMPTY?22>
1124                     <DEAD EMPTY?22>
1125                     <CALL '\1aSLOT-COMPARE 8>
1126                     <SET TEMP40 'CONDITIONAL-BRANCH (TYPE ATOM)>
1127 PHRASE345
1128 RETURN2
1129                     <UNBIND TEMP3>
1130                     <DEAD TEMP3>
1131                     <ADJ -9>
1132                     <RETURN TEMP40>
1133                     <DEAD TEMP40>
1134                     <END \1aNTH-LOOK-AHEAD>
1135
1136 #WORD *26755014622*
1137                     <GFCN \1aFLUSH-TO ("VALUE" FIX LIST LIST) NL4 OL5>
1138                     <TEMP TEMP6:FIX TEMP7:FIX>
1139                     <INTGO>
1140                     <LENL OL5 = TEMP6 (TYPE FIX)>
1141                     <DEAD OL5>
1142                     <LENL NL4 = TEMP7 (TYPE FIX)>
1143                     <DEAD NL4>
1144                     <SUB TEMP6 TEMP7 = TEMP6 (TYPE FIX)>
1145                     <DEAD TEMP7>
1146                     <SETG 'FLUSH-NEXT TEMP6>
1147                     <RETURN TEMP6>
1148                     <DEAD TEMP6>
1149                     <END \1aFLUSH-TO>
1150
1151 #WORD *21313102610*
1152                     <GFCN \1aGET-NEXT-INST ("VALUE" ANY LIST) LL4>
1153                     <TEMP FROB8 TEMP13>
1154                     <INTGO>
1155                     <LOOP>
1156 AGAIN9
1157                     <INTGO>
1158                     <FRAME '\1aGETPROP>
1159                     <NTHL LL4 1 = FROB8>
1160                     <PUSH FROB8>
1161                     <PUSH 'DONE>
1162                     <CALL '\1aGETPROP 2 = TEMP13>
1163                     <TYPE? TEMP13 <TYPE-CODE FALSE> - PHRASE11>
1164                     <DEAD TEMP13>
1165                     <RESTL LL4 1 = TEMP13 (TYPE LIST)>
1166                     <DEAD LL4>
1167                     <GEN-SET 'L TEMP13>
1168                     <DEAD TEMP13>
1169                     <RETURN FROB8>
1170                     <DEAD FROB8>
1171 PHRASE11
1172                     <RESTL LL4 1 = LL4 (TYPE LIST)>
1173                     <EMPL? LL4 - AGAIN9 (TYPE LIST)>
1174                     <RETURN %<>>
1175                     <END \1aGET-NEXT-INST>
1176
1177 #WORD *6217733304*
1178                     <GFCN \1aPARSE-OP ("VALUE" OP-INFO FORM OP-INFO) FRM4 OP-INFO5>
1179                     <TEMP ARGVEC6:VECTOR (RES?7 %<>) (BRANCH?9 %<>) TEMP21:LIST X22 TEMP35>
1180                     <INTGO>
1181                     <NTHUV OP-INFO5 1 = ARGVEC6 (TYPE VECTOR)>
1182                     <PUTUV OP-INFO5 3 %<>>
1183                     <PUTUV OP-INFO5 4 %<>>
1184                     <PUTUV OP-INFO5 2 'T>
1185                     <RESTL FRM4 1 = TEMP21 (TYPE LIST)>
1186                     <DEAD FRM4>
1187                     <CHTYPE TEMP21 <TYPE-CODE LIST> = TEMP21>
1188                     <LOOP>
1189 MAP11
1190                     <INTGO>
1191                     <EMPL? TEMP21 + MAPAP14>
1192                     <NTHL TEMP21 1 = X22>
1193                     <TYPE? X22 <TYPE-CODE LIST> - BOOL25>
1194                     <EMPL? X22 - PHRASE24 (TYPE LIST)>
1195 BOOL25
1196                     <VEQUAL? RES?7 0 + PHRASE27>
1197                     <SET RES?7 %<> (TYPE FALSE)>
1198                     <PUTUV OP-INFO5 2 X22>
1199                     <DEAD X22>
1200                     <JUMP + PHRASE37>
1201 PHRASE27
1202                     <VEQUAL? BRANCH?9 0 + PHRASE28>
1203                     <SET BRANCH?9 %<> (TYPE FALSE)>
1204                     <PUTUV OP-INFO5 4 X22>
1205                     <DEAD X22>
1206                     <JUMP + PHRASE37>
1207 PHRASE28
1208                     <EQUAL? X22 '- + BOOL30>
1209                     <EQUAL? X22 '+ - PHRASE29>
1210 BOOL30
1211                     <PUTUV OP-INFO5 5 X22>
1212                     <DEAD X22>
1213                     <SET BRANCH?9 'T (TYPE ATOM)>
1214                     <JUMP + PHRASE37>
1215 PHRASE29
1216                     <TYPE? X22 <TYPE-CODE RES-IND> - PHRASE31>
1217                     <SET RES?7 'T (TYPE ATOM)>
1218                     <JUMP + PHRASE37>
1219 PHRASE31
1220                     <EMPUV? ARGVEC6 + PHRASE37 (TYPE VECTOR)>
1221                     <PUTUV ARGVEC6 1 X22>
1222                     <DEAD X22>
1223                     <RESTUV ARGVEC6 1 = ARGVEC6 (TYPE VECTOR)>
1224                     <JUMP + PHRASE37>
1225 PHRASE24
1226                     <NTHL X22 1 = TEMP35>
1227                     <EQUAL? TEMP35 'TYPE + BOOL34>
1228                     <DEAD TEMP35>
1229                     <NTHL X22 1 = TEMP35>
1230                     <EQUAL? TEMP35 'STRUCTURE-TYPE - PHRASE33>
1231                     <DEAD TEMP35>
1232 BOOL34
1233                     <PUTUV OP-INFO5 3 X22>
1234                     <DEAD X22>
1235                     <JUMP + PHRASE37>
1236 PHRASE33
1237                     <NTHL X22 1 = TEMP35>
1238                     <EQUAL? TEMP35 'BRANCH-FALSE - PHRASE36>
1239                     <DEAD TEMP35>
1240                     <RESTL X22 1 = TEMP35 (TYPE LIST)>
1241                     <DEAD X22>
1242                     <NTHL TEMP35 1 = TEMP35>
1243                     <PUTUV OP-INFO5 4 TEMP35>
1244                     <DEAD TEMP35>
1245                     <PUTUV OP-INFO5 5 '- (TYPE ATOM)>
1246                     <JUMP + PHRASE37>
1247 PHRASE36
1248                     <NTHL X22 1 = TEMP35>
1249                     <EQUAL? TEMP35 'BRANCH-TRUE - PHRASE37>
1250                     <DEAD TEMP35>
1251                     <RESTL X22 1 = TEMP35 (TYPE LIST)>
1252                     <DEAD X22>
1253                     <NTHL TEMP35 1 = TEMP35>
1254                     <PUTUV OP-INFO5 4 TEMP35>
1255                     <DEAD TEMP35>
1256                     <PUTUV OP-INFO5 5 '+ (TYPE ATOM)>
1257 PHRASE37
1258                     <RESTL TEMP21 1 = TEMP21 (TYPE LIST)>
1259                     <JUMP + MAP11>
1260 MAPAP14
1261                     <RETURN OP-INFO5>
1262                     <DEAD OP-INFO5>
1263                     <END \1aPARSE-OP>
1264
1265 #WORD *15432537321*
1266                     <GFCN \1aWILL-DIE? ("VALUE" <OR ATOM FALSE> ANY "OPTIONAL" LIST ATOM) ARG7 MIML8 BEG-LABEL9>
1267                     <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
1268 OPT4
1269                     <PUSH #T$UNBOUND 0>
1270 OPT5
1271                     <PUSH 'T>
1272 OPT6
1273                     <TEMP TEMP17 TEMP25 TEMP27:FIX ITM33 NXT32 XP104 X105 LABEL13>
1274                     <INTGO>
1275                     <TYPE? MIML8 <TYPE-CODE UNBOUND> - TAG15>
1276                     <GEN-LVAL 'CODPTR = MIML8>
1277 TAG15
1278                     <GEN-LVAL 'CODPTR = TEMP17>
1279                     <EQUAL? TEMP17 MIML8 - PHRASE23>
1280                     <GVAL 'FLUSH-NEXT = TEMP17>
1281                     <JUMP + COND22>
1282 PHRASE23
1283                     <GVAL 'FLUSH-NEXT = TEMP25>
1284                     <FRAME '\1aLENGTH>
1285                     <PUSH TEMP17>
1286                     <DEAD TEMP17>
1287                     <CALL '\1aLENGTH 1 = TEMP27>
1288                     <LENL MIML8 = TEMP17 (TYPE FIX)>
1289                     <SUB TEMP27 TEMP17 = TEMP27 (TYPE FIX)>
1290                     <DEAD TEMP17>
1291                     <SUB TEMP25 TEMP27 = TEMP17 (TYPE FIX)>
1292                     <DEAD TEMP25 TEMP27>
1293 COND22
1294                     <SET TEMP27 TEMP17>
1295                     <DEAD TEMP17>
1296                     <GVAL 'LOOKAHEAD? = TEMP17>
1297                     <TYPE? TEMP17 <TYPE-CODE FALSE> + EXIT31>
1298                     <LOOP>
1299 AGAIN36
1300                     <INTGO>
1301                     <EMPL? MIML8 - PHRASE38 (TYPE LIST)>
1302                     <RETURN 'T>
1303 PHRASE38
1304                     <EMPL? MIML8 + TAG41>
1305                     <RESTL MIML8 1 = TEMP25 (TYPE LIST)>
1306                     <EMPL? TEMP25 - PHRASE53>
1307                     <DEAD TEMP25>
1308 TAG41
1309                     <NTHL MIML8 1 = ITM33>
1310                     <TYPE? ITM33 <TYPE-CODE FORM> - TAG47>
1311                     <NTHL ITM33 1 = TEMP25>
1312                     <EQUAL? TEMP25 'JUMP!-MIMOP + PHRASE53>
1313                     <DEAD TEMP25>
1314                     <SET TEMP25 ITM33>
1315                     <LOOP (TEMP25 VALUE)>
1316 TAG45
1317                     <NTHL TEMP25 1 = TEMP17>
1318                     <TYPE? TEMP17 <TYPE-CODE ATOM> - TAG46>
1319                     <VEQUAL? TEMP17 '+ + PHRASE53>
1320                     <DEAD TEMP17>
1321 TAG46
1322                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
1323                     <EMPL? TEMP25 - TAG45>
1324                     <SET TEMP25 ITM33>
1325                     <LOOP (TEMP25 VALUE)>
1326 TAG48
1327                     <NTHL TEMP25 1 = TEMP17>
1328                     <TYPE? TEMP17 <TYPE-CODE ATOM> - TAG49>
1329                     <VEQUAL? TEMP17 '- + PHRASE53>
1330                     <DEAD TEMP17>
1331 TAG49
1332                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
1333                     <EMPL? TEMP25 - TAG48>
1334 TAG47
1335                     <TYPE? ITM33 <TYPE-CODE FORM> - PHRASE51>
1336                     <NTHL ITM33 1 = TEMP25>
1337                     <EQUAL? TEMP25 'RETURN!-MIMOP - PHRASE51>
1338                     <DEAD TEMP25>
1339                     <RESTL ITM33 1 = TEMP25 (TYPE LIST)>
1340                     <DEAD ITM33>
1341                     <NTHL TEMP25 1 = TEMP25>
1342                     <EQUAL? TEMP25 ARG7 - PHRASE51>
1343                     <DEAD TEMP25>
1344                     <RETURN %<>>
1345 PHRASE51
1346                     <RETURN 'T>
1347 PHRASE53
1348                     <NTHL MIML8 1 = NXT32>
1349                     <TYPE? NXT32 <TYPE-CODE ATOM> - PHRASE68>
1350                     <FRAME '\1aGET-LREF>
1351                     <PUSH NXT32>
1352                     <PUSH 'T>
1353                     <CALL '\1aGET-LREF 2 = ITM33>
1354                     <NTHUV ITM33 7 = TEMP25 (TYPE LIST)>
1355                     <TYPE? ARG7 <TYPE-CODE VARTBL> - PHRASE57>
1356                     <EMPL? TEMP25 + PHRASE57>
1357                     <LOOP (ARG7 VALUE) (TEMP25 VALUE)>
1358 TAG59
1359                     <NTHL TEMP25 1 = TEMP17>
1360                     <VEQUAL? TEMP17 ARG7 + TAG58>
1361                     <DEAD TEMP17>
1362                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
1363                     <EMPL? TEMP25 - TAG59>
1364                     <JUMP + PHRASE57>
1365 TAG58
1366                     <RETURN %<>>
1367 PHRASE57
1368                     <NTHUV ITM33 8 = TEMP25 (TYPE LIST)>
1369                     <TYPE? ARG7 <TYPE-CODE VARTBL> - PHRASE61>
1370                     <EMPL? TEMP25 + PHRASE61>
1371                     <LOOP (ARG7 VALUE) (TEMP25 VALUE)>
1372 TAG63
1373                     <NTHL TEMP25 1 = TEMP17>
1374                     <VEQUAL? TEMP17 ARG7 + TAG62>
1375                     <DEAD TEMP17>
1376                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
1377                     <EMPL? TEMP25 - TAG63>
1378                     <JUMP + PHRASE61>
1379 TAG62
1380                     <RETURN 'T>
1381 PHRASE61
1382                     <FRAME '\1aWILL-DIE?>
1383                     <PUSH ARG7>
1384                     <RESTL MIML8 1 = STACK (TYPE LIST)>
1385                     <DEAD MIML8>
1386                     <PUSH NXT32>
1387                     <DEAD NXT32>
1388                     <CALL '\1aWILL-DIE? 3 = TEMP25>
1389                     <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE66>
1390                     <DEAD TEMP25>
1391                     <NTHUV ITM33 8 = TEMP25 (TYPE LIST)>
1392                     <CONS ARG7 TEMP25 = TEMP25>
1393                     <DEAD ARG7>
1394                     <PUTUV ITM33 8 TEMP25 (TYPE LIST)>
1395                     <DEAD ITM33 TEMP25>
1396                     <RETURN 'T>
1397 PHRASE66
1398                     <NTHUV ITM33 7 = TEMP25 (TYPE LIST)>
1399                     <CONS ARG7 TEMP25 = TEMP25>
1400                     <DEAD ARG7>
1401                     <PUTUV ITM33 7 TEMP25 (TYPE LIST)>
1402                     <DEAD ITM33 TEMP25>
1403                     <RETURN %<>>
1404 PHRASE68
1405                     <TYPE? NXT32 <TYPE-CODE FORM> - PHRASE188>
1406                     <SUB TEMP27 1 = TEMP27 (TYPE FIX)>
1407                     <LESS? TEMP27 0 - PHRASE188 (TYPE FIX)>
1408                     <FRAME '\1aGETPROP>
1409                     <PUSH NXT32>
1410                     <PUSH 'DONE>
1411                     <CALL '\1aGETPROP 2 = TEMP25>
1412                     <TYPE? TEMP25 <TYPE-CODE FALSE> - PHRASE188>
1413                     <DEAD TEMP25>
1414                     <NTHL NXT32 1 = ITM33>
1415                     <EQUAL? ITM33 'DEAD!-MIMOP - PHRASE75>
1416                     <RESTL NXT32 1 = TEMP25 (TYPE LIST)>
1417                     <DEAD NXT32>
1418                     <CHTYPE TEMP25 <TYPE-CODE LIST> = TEMP25>
1419                     <TYPE ARG7 = TEMP17>
1420                     <EMPL? TEMP25 + PHRASE188>
1421                     <LOOP (ARG7 VALUE) (TEMP17 VALUE) (TEMP25 VALUE)>
1422 TAG79
1423                     <NTHL TEMP25 1 = ITM33>
1424                     <TYPE? ITM33 TEMP17 - TAG80>
1425                     <VEQUAL? ITM33 ARG7 + TAG78>
1426                     <DEAD ITM33>
1427 TAG80
1428                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
1429                     <EMPL? TEMP25 - TAG79>
1430                     <JUMP + PHRASE188>
1431 TAG78
1432                     <RETURN 'T>
1433 PHRASE75
1434                     <EQUAL? ITM33 'RETURN!-MIMOP - PHRASE82>
1435                     <RESTL NXT32 1 = TEMP25 (TYPE LIST)>
1436                     <DEAD NXT32>
1437                     <NTHL TEMP25 1 = TEMP25>
1438                     <EQUAL? TEMP25 ARG7 + TAG83>
1439                     <DEAD TEMP25>
1440                     <RETURN 'T>
1441 TAG83
1442                     <RETURN %<>>
1443 PHRASE82
1444                     <EQUAL? ITM33 'END!-MIMOP - PHRASE85>
1445                     <RETURN 'T>
1446 PHRASE85
1447                     <EQUAL? ITM33 'SET!-MIMOP - PHRASE86>
1448                     <RESTL NXT32 1 = TEMP25 (TYPE LIST)>
1449                     <NTHL TEMP25 1 = TEMP25>
1450                     <EQUAL? TEMP25 ARG7 - PHRASE88>
1451                     <DEAD TEMP25>
1452                     <RETURN 'T>
1453 PHRASE88
1454                     <RESTL NXT32 1 = TEMP25 (TYPE LIST)>
1455                     <DEAD NXT32>
1456                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
1457                     <NTHL TEMP25 1 = TEMP25>
1458                     <EQUAL? TEMP25 ARG7 - PHRASE188>
1459                     <DEAD TEMP25>
1460                     <RETURN %<>>
1461 PHRASE86
1462                     <EQUAL? ITM33 'SETLR!-MIMOP - PHRASE90>
1463                     <RESTL NXT32 1 = TEMP25 (TYPE LIST)>
1464                     <NTHL TEMP25 1 = TEMP25>
1465                     <EQUAL? TEMP25 ARG7 - PHRASE90>
1466                     <DEAD TEMP25>
1467                     <RETURN 'T>
1468 PHRASE90
1469                     <EQUAL? ITM33 'JUMP!-MIMOP - PHRASE94>
1470                     <SET TEMP17 'T (TYPE ATOM)>
1471                     <JUMP + PHRASE95>
1472 PHRASE94
1473                     <SET TEMP17 %<> (TYPE FALSE)>
1474 PHRASE95
1475                     <CHTYPE NXT32 <TYPE-CODE LIST> = TEMP25>
1476                     <LOOP>
1477 MAP97
1478                     <INTGO>
1479                     <EMPL? TEMP25 + MAPAP100>
1480                     <SET XP104 TEMP25>
1481                     <NTHL XP104 1 = X105>
1482                     <TYPE? X105 <TYPE-CODE RES-IND> - PHRASE111>
1483                     <RESTL XP104 1 = TEMP25 (TYPE LIST)>
1484                     <DEAD XP104>
1485                     <NTHL TEMP25 1 = X105>
1486                     <DEAD TEMP25>
1487                     <EQUAL? X105 ARG7 - MAPAP100>
1488                     <DEAD X105>
1489                     <RETURN 'T>
1490 PHRASE111
1491                     <EQUAL? X105 ARG7 - PHRASE112>
1492                     <DEAD X105>
1493                     <RETURN %<>>
1494 PHRASE112
1495                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
1496                     <JUMP + MAP97>
1497 MAPAP100
1498                     <EQUAL? ITM33 'DISPATCH!-MIMOP - PHRASE114>
1499                     <RESTL NXT32 1 = TEMP17 (TYPE LIST)>
1500                     <DEAD NXT32>
1501                     <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
1502                     <RESTL TEMP17 1 = X105 (TYPE LIST)>
1503                     <DEAD TEMP17>
1504                     <CHTYPE X105 <TYPE-CODE LIST> = X105>
1505                     <LOOP>
1506 MAP116
1507                     <INTGO>
1508                     <EMPL? X105 + PHRASE188>
1509                     <NTHL X105 1 = TEMP25>
1510                     <EQUAL? TEMP25 BEG-LABEL9 + PHRASE144>
1511                     <SET XP104 MIML8>
1512                     <TYPE TEMP25 = TEMP17>
1513                     <EMPL? XP104 + TAG127>
1514                     <LOOP (TEMP25 VALUE) (TEMP17 VALUE) (XP104 VALUE)>
1515 TAG129
1516                     <NTHL XP104 1 = NXT32>
1517                     <TYPE? NXT32 TEMP17 - TAG130>
1518                     <VEQUAL? NXT32 TEMP25 + TAG128>
1519                     <DEAD NXT32>
1520 TAG130
1521                     <RESTL XP104 1 = XP104 (TYPE LIST)>
1522                     <EMPL? XP104 - TAG129>
1523 TAG127
1524                     <SET XP104 %<> (TYPE FALSE)>
1525 TAG128
1526                     <VEQUAL? XP104 0 + PHRASE126>
1527                     <FRAME '\1aGET-LREF>
1528                     <PUSH TEMP25>
1529                     <DEAD TEMP25>
1530                     <PUSH 'T>
1531                     <CALL '\1aGET-LREF 2 = ITM33>
1532                     <NTHUV ITM33 7 = TEMP17 (TYPE LIST)>
1533                     <TYPE? ARG7 <TYPE-CODE VARTBL> - PHRASE134>
1534                     <EMPL? TEMP17 + PHRASE134>
1535                     <LOOP (ARG7 VALUE) (TEMP17 VALUE)>
1536 TAG136
1537                     <NTHL TEMP17 1 = NXT32>
1538                     <VEQUAL? NXT32 ARG7 + TAG135>
1539                     <DEAD NXT32>
1540                     <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
1541                     <EMPL? TEMP17 - TAG136>
1542                     <JUMP + PHRASE134>
1543 TAG135
1544                     <RETURN %<>>
1545 PHRASE134
1546                     <NTHUV ITM33 8 = TEMP17 (TYPE LIST)>
1547                     <TYPE? ARG7 <TYPE-CODE VARTBL> - TAG138>
1548                     <EMPL? TEMP17 + TAG138>
1549                     <LOOP (ARG7 VALUE) (TEMP17 VALUE)>
1550 TAG139
1551                     <NTHL TEMP17 1 = NXT32>
1552                     <VEQUAL? NXT32 ARG7 + PHRASE144>
1553                     <DEAD NXT32>
1554                     <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
1555                     <EMPL? TEMP17 - TAG139>
1556 TAG138
1557                     <FRAME '\1aWILL-DIE?>
1558                     <PUSH ARG7>
1559                     <RESTL XP104 1 = STACK (TYPE LIST)>
1560                     <DEAD XP104>
1561                     <CALL '\1aWILL-DIE? 2 = TEMP17>
1562                     <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE141>
1563                     <DEAD TEMP17>
1564                     <NTHUV ITM33 8 = TEMP17 (TYPE LIST)>
1565                     <CONS ARG7 TEMP17 = TEMP17>
1566                     <PUTUV ITM33 8 TEMP17 (TYPE LIST)>
1567                     <DEAD ITM33 TEMP17>
1568                     <JUMP + PHRASE144>
1569 PHRASE141
1570                     <NTHUV ITM33 7 = TEMP17 (TYPE LIST)>
1571                     <CONS ARG7 TEMP17 = TEMP17>
1572                     <DEAD ARG7>
1573                     <PUTUV ITM33 7 TEMP17 (TYPE LIST)>
1574                     <DEAD ITM33 TEMP17>
1575                     <RETURN %<>>
1576 PHRASE126
1577                     <RETURN %<>>
1578 PHRASE144
1579                     <RESTL X105 1 = X105 (TYPE LIST)>
1580                     <JUMP + MAP116>
1581 PHRASE114
1582                     <EQUAL? ITM33 'ICALL!-MIMOP - BOOL147>
1583                     <SET XP104 NXT32>
1584                     <DEAD NXT32>
1585                     <JUMP + BOOL146>
1586 BOOL147
1587                     <RESTL NXT32 1 = NXT32 (TYPE LIST)>
1588                     <CHTYPE NXT32 <TYPE-CODE LIST> = NXT32>
1589                     <SET X105 NXT32>
1590                     <EMPL? X105 + TAG148>
1591                     <LOOP (X105 VALUE)>
1592 TAG150
1593                     <NTHL X105 1 = TEMP25>
1594                     <TYPE? TEMP25 <TYPE-CODE ATOM> - TAG151>
1595                     <VEQUAL? TEMP25 '+ + TAG149>
1596                     <DEAD TEMP25>
1597 TAG151
1598                     <RESTL X105 1 = X105 (TYPE LIST)>
1599                     <EMPL? X105 - TAG150>
1600 TAG148
1601                     <SET XP104 %<> (TYPE FALSE)>
1602                     <JUMP + TAG152>
1603 TAG149
1604                     <SET XP104 X105>
1605                     <DEAD X105>
1606 TAG152
1607                     <VEQUAL? XP104 0 - BOOL146>
1608                     <SET X105 NXT32>
1609                     <EMPL? X105 + TAG153>
1610                     <LOOP (X105 VALUE)>
1611 TAG155
1612                     <NTHL X105 1 = TEMP25>
1613                     <TYPE? TEMP25 <TYPE-CODE ATOM> - TAG156>
1614                     <VEQUAL? TEMP25 '- + TAG154>
1615                     <DEAD TEMP25>
1616 TAG156
1617                     <RESTL X105 1 = X105 (TYPE LIST)>
1618                     <EMPL? X105 - TAG155>
1619 TAG153
1620                     <SET XP104 %<> (TYPE FALSE)>
1621                     <JUMP + TAG157>
1622 TAG154
1623                     <SET XP104 X105>
1624                     <DEAD X105>
1625 TAG157
1626                     <VEQUAL? XP104 0 - BOOL146>
1627                     <EQUAL? ITM33 'NTHR!-MIMOP - PHRASE188>
1628                     <DEAD ITM33>
1629                     <SET ITM33 NXT32>
1630                     <DEAD NXT32>
1631                     <LOOP (ITM33 VALUE)>
1632 TAG159
1633                     <RESTL ITM33 1 = X105 (TYPE LIST)>
1634                     <EMPL? X105 + TAG160>
1635                     <SET ITM33 X105>
1636                     <DEAD X105>
1637                     <JUMP + TAG159>
1638 TAG160
1639                     <NTHL ITM33 1 = ITM33>
1640                     <TYPE? ITM33 <TYPE-CODE LIST> - PHRASE188>
1641                     <NTHL ITM33 1 = X105>
1642                     <EQUAL? X105 'BRANCH-FALSE - PHRASE188>
1643                     <DEAD X105>
1644                     <RESTL ITM33 1 = XP104 (TYPE LIST)>
1645                     <DEAD ITM33>
1646 BOOL146
1647                     <RESTL XP104 1 = NXT32 (TYPE LIST)>
1648                     <DEAD XP104>
1649                     <NTHL NXT32 1 = LABEL13>
1650                     <DEAD NXT32>
1651                     <SET NXT32 MIML8>
1652                     <TYPE LABEL13 = X105>
1653                     <LOOP (LABEL13 VALUE) (X105 VALUE) (NXT32 VALUE)>
1654 TAG165
1655                     <NTHL NXT32 1 = TEMP25>
1656                     <TYPE? TEMP25 X105 - TAG166>
1657                     <VEQUAL? TEMP25 LABEL13 + TAG164>
1658                     <DEAD TEMP25>
1659 TAG166
1660                     <RESTL NXT32 1 = NXT32 (TYPE LIST)>
1661                     <EMPL? NXT32 - TAG165>
1662                     <SET XP104 %<> (TYPE FALSE)>
1663                     <JUMP + TAG167>
1664 TAG164
1665                     <SET XP104 NXT32>
1666                     <DEAD NXT32>
1667 TAG167
1668                     <VEQUAL? XP104 0 + PHRASE162>
1669                     <FRAME '\1aGET-LREF>
1670                     <PUSH LABEL13>
1671                     <PUSH 'T>
1672                     <CALL '\1aGET-LREF 2 = ITM33>
1673                     <EQUAL? LABEL13 BEG-LABEL9 - PHRASE170>
1674                     <DEAD LABEL13>
1675                     <VEQUAL? TEMP17 0 + PHRASE188>
1676                     <DEAD TEMP17>
1677                     <RETURN 'T>
1678 PHRASE170
1679                     <NTHUV ITM33 7 = NXT32 (TYPE LIST)>
1680                     <TYPE? ARG7 <TYPE-CODE VARTBL> - PHRASE173>
1681                     <EMPL? NXT32 + PHRASE173>
1682                     <LOOP (ARG7 VALUE) (NXT32 VALUE)>
1683 TAG175
1684                     <NTHL NXT32 1 = X105>
1685                     <VEQUAL? X105 ARG7 + TAG174>
1686                     <DEAD X105>
1687                     <RESTL NXT32 1 = NXT32 (TYPE LIST)>
1688                     <EMPL? NXT32 - TAG175>
1689                     <JUMP + PHRASE173>
1690 TAG174
1691                     <RETURN %<>>
1692 PHRASE173
1693                     <NTHUV ITM33 8 = NXT32 (TYPE LIST)>
1694                     <TYPE? ARG7 <TYPE-CODE VARTBL> - PHRASE177>
1695                     <EMPL? NXT32 + PHRASE177>
1696                     <LOOP (ARG7 VALUE) (NXT32 VALUE)>
1697 TAG179
1698                     <NTHL NXT32 1 = X105>
1699                     <VEQUAL? X105 ARG7 + TAG178>
1700                     <DEAD X105>
1701                     <RESTL NXT32 1 = NXT32 (TYPE LIST)>
1702                     <EMPL? NXT32 - TAG179>
1703                     <JUMP + PHRASE177>
1704 TAG178
1705                     <VEQUAL? TEMP17 0 + PHRASE188>
1706                     <DEAD TEMP17>
1707                     <RETURN 'T>
1708 PHRASE177
1709                     <FRAME '\1aWILL-DIE?>
1710                     <PUSH ARG7>
1711                     <RESTL XP104 1 = STACK (TYPE LIST)>
1712                     <DEAD XP104>
1713                     <CALL '\1aWILL-DIE? 2 = NXT32>
1714                     <TYPE? NXT32 <TYPE-CODE FALSE> + PHRASE183>
1715                     <DEAD NXT32>
1716                     <NTHUV ITM33 8 = NXT32 (TYPE LIST)>
1717                     <CONS ARG7 NXT32 = NXT32>
1718                     <PUTUV ITM33 8 NXT32 (TYPE LIST)>
1719                     <DEAD ITM33 NXT32>
1720                     <VEQUAL? TEMP17 0 + PHRASE188>
1721                     <DEAD TEMP17>
1722                     <RETURN 'T>
1723 PHRASE183
1724                     <NTHUV ITM33 7 = NXT32 (TYPE LIST)>
1725                     <CONS ARG7 NXT32 = NXT32>
1726                     <DEAD ARG7>
1727                     <PUTUV ITM33 7 NXT32 (TYPE LIST)>
1728                     <DEAD ITM33 NXT32>
1729                     <RETURN %<>>
1730 PHRASE162
1731                     <RETURN %<>>
1732 PHRASE188
1733                     <RESTL MIML8 1 = MIML8 (TYPE LIST)>
1734                     <JUMP + AGAIN36>
1735 EXIT31
1736                     <RETURN TEMP17>
1737                     <DEAD TEMP17>
1738                     <END \1aWILL-DIE?>
1739
1740 \\f
1741
1742 #WORD *4313145257*
1743                     <GFCN \1aNTH-AOS-PUT-GEN ("VALUE" <OR ATOM !<FALSE>> ATOM <OR ATOM FALSE> ANY ANY ANY ANY ANY ANY ANY ANY ANY ANY ANY ANY ANY) NTHINS4 INCINS5 PUTINS6 STRUC17 OFFSET18 STRUC29 OFFSET210 AMOUNT11 CODELIST12 ILDB?13 IDPB?14 STYPE115 STYPE216 ELTYPE117 ELTYPE218>
1744                     <TEMP TEMP26 ADDRTUP121:TUPLE ADDRTUP222:TUPLE (SELF?24 %<>) TEMP48 TEMP86 SAC220>
1745                     <INTGO>
1746                     <USBLOCK <TYPE-CODE TUPLE> 4 = ADDRTUP121>
1747                     <SET TEMP26 ADDRTUP121>
1748                     <LOOP (TEMP26 VALUE LENGTH)>
1749 ISTR27
1750                     <EMPUV? TEMP26 + ISTRE28>
1751                     <PUTUV TEMP26 1 %<>>
1752                     <RESTUV TEMP26 1 = TEMP26>
1753                     <JUMP + ISTR27>
1754 ISTRE28
1755                     <USBLOCK <TYPE-CODE TUPLE> 4 = ADDRTUP222>
1756                     <SET TEMP26 ADDRTUP222>
1757                     <LOOP (TEMP26 VALUE LENGTH)>
1758 ISTR29
1759                     <EMPUV? TEMP26 + ISTRE30>
1760                     <PUTUV TEMP26 1 %<>>
1761                     <RESTUV TEMP26 1 = TEMP26>
1762                     <JUMP + ISTR29>
1763 ISTRE30
1764                     <EQUAL? STRUC17 STRUC29 + TAG32>
1765                     <SET TEMP26 %<> (TYPE FALSE)>
1766                     <JUMP + TAG36>
1767 TAG32
1768                     <EQUAL? OFFSET18 OFFSET210 + TAG33>
1769                     <SET TEMP26 %<> (TYPE FALSE)>
1770                     <JUMP + TAG36>
1771 TAG33
1772                     <TYPE? ILDB?13 <TYPE-CODE FALSE> + TAG34>
1773                     <SET TEMP26 %<> (TYPE FALSE)>
1774                     <JUMP + TAG36>
1775 TAG34
1776                     <TYPE? IDPB?14 <TYPE-CODE FALSE> - TAG35>
1777                     <SET TEMP26 'T (TYPE ATOM)>
1778                     <JUMP + TAG36>
1779 TAG35
1780                     <SET TEMP26 %<> (TYPE FALSE)>
1781 TAG36
1782                     <SET SELF?24 TEMP26>
1783                     <DEAD TEMP26>
1784                     <TYPE? OFFSET210 <TYPE-CODE FALSE> + TAG56>
1785                     <TYPE? SELF?24 <TYPE-CODE FALSE> - TAG56>
1786                     <TYPE? INCINS5 <TYPE-CODE FALSE> + TAG56>
1787                     <TYPE? ILDB?13 <TYPE-CODE FALSE> + BOOL42>
1788                     <EQUAL? STYPE115 'VECTOR + BOOL39>
1789 BOOL42
1790                     <TYPE? IDPB?14 <TYPE-CODE FALSE> + BOOL43>
1791                     <EQUAL? STYPE216 'VECTOR + BOOL39>
1792 BOOL43
1793                     <SET TEMP26 [VECTOR LIST UVECTOR] (TYPE VECTOR)>
1794                     <TYPE? STYPE115 <TYPE-CODE ATOM> - TAG49>
1795                     <LOOP (STYPE115 VALUE) (TEMP26 LENGTH VALUE)>
1796 TAG46
1797                     <NTHUV TEMP26 1 = TEMP48>
1798                     <VEQUAL? TEMP48 STYPE115 + TAG45>
1799                     <DEAD TEMP48>
1800                     <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
1801                     <EMPUV? TEMP26 - TAG46>
1802                     <JUMP + TAG49>
1803 TAG45
1804                     <SET TEMP26 [VECTOR LIST UVECTOR] (TYPE VECTOR)>
1805                     <TYPE? STYPE216 <TYPE-CODE ATOM> - BOOL39>
1806                     <LOOP (STYPE216 VALUE) (TEMP26 LENGTH VALUE)>
1807 TAG50
1808                     <NTHUV TEMP26 1 = TEMP48>
1809                     <VEQUAL? TEMP48 STYPE216 + TAG49>
1810                     <DEAD TEMP48>
1811                     <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
1812                     <EMPUV? TEMP26 - TAG50>
1813                     <JUMP + BOOL39>
1814 TAG49
1815                     <SET TEMP26 [VECTOR LIST UVECTOR] (TYPE VECTOR)>
1816                     <TYPE? STYPE216 <TYPE-CODE ATOM> - TAG56>
1817                     <LOOP (STYPE216 VALUE) (TEMP26 LENGTH VALUE)>
1818 TAG54
1819                     <NTHUV TEMP26 1 = TEMP48>
1820                     <VEQUAL? TEMP48 STYPE216 + TAG53>
1821                     <DEAD TEMP48>
1822                     <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
1823                     <EMPUV? TEMP26 - TAG54>
1824                     <JUMP + TAG56>
1825 TAG53
1826                     <SET TEMP26 [VECTOR LIST UVECTOR] (TYPE VECTOR)>
1827                     <TYPE? STYPE115 <TYPE-CODE ATOM> - BOOL39>
1828                     <LOOP (STYPE115 VALUE) (TEMP26 LENGTH VALUE)>
1829 TAG57
1830                     <NTHUV TEMP26 1 = TEMP48>
1831                     <VEQUAL? TEMP48 STYPE115 + TAG56>
1832                     <DEAD TEMP48>
1833                     <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
1834                     <EMPUV? TEMP26 - TAG57>
1835                     <JUMP + BOOL39>
1836 TAG56
1837                     <TYPE? ILDB?13 <TYPE-CODE FALSE> + TAG65>
1838                     <TYPE? IDPB?14 <TYPE-CODE FALSE> + TAG65>
1839                     <EQUAL? STYPE115 STYPE216 + TAG65>
1840                     <SET TEMP26 [STRING BYTES UVECTOR] (TYPE VECTOR)>
1841                     <TYPE? STYPE115 <TYPE-CODE ATOM> - BOOL39>
1842                     <LOOP (STYPE115 VALUE) (TEMP26 LENGTH VALUE)>
1843 TAG63
1844                     <NTHUV TEMP26 1 = TEMP48>
1845                     <VEQUAL? TEMP48 STYPE115 + TAG62>
1846                     <DEAD TEMP48>
1847                     <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
1848                     <EMPUV? TEMP26 - TAG63>
1849                     <JUMP + BOOL39>
1850 TAG62
1851                     <SET TEMP26 [STRING BYTES UVECTOR] (TYPE VECTOR)>
1852                     <TYPE? STYPE216 <TYPE-CODE ATOM> - BOOL39>
1853                     <LOOP (STYPE216 VALUE) (TEMP26 LENGTH VALUE)>
1854 TAG66
1855                     <NTHUV TEMP26 1 = TEMP48>
1856                     <VEQUAL? TEMP48 STYPE216 + TAG65>
1857                     <DEAD TEMP48>
1858                     <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
1859                     <EMPUV? TEMP26 - TAG66>
1860                     <JUMP + BOOL39>
1861 TAG65
1862                     <TYPE? ILDB?13 <TYPE-CODE FALSE> + BOOL68>
1863                     <TYPE? OFFSET210 <TYPE-CODE FIX> - BOOL39>
1864 BOOL68
1865                     <TYPE? IDPB?14 <TYPE-CODE FALSE> + PHRASE38>
1866                     <TYPE? OFFSET18 <TYPE-CODE FIX> + PHRASE38>
1867 BOOL39
1868                     <SET TEMP26 %<> (TYPE FALSE)>
1869                     <JUMP + RETURN2>
1870 PHRASE38
1871                     <TYPE? PUTINS6 <TYPE-CODE FALSE> + PHRASE71>
1872                     <FRAME '\1aFLUSH-TO>
1873                     <PUSH CODELIST12>
1874                     <DEAD CODELIST12>
1875                     <GEN-LVAL 'CODPTR = STACK>
1876                     <CALL '\1aFLUSH-TO 2>
1877                     <JUMP + PHRASE75>
1878 PHRASE71
1879                     <FRAME '\1aFLUSH-TO>
1880                     <GEN-LVAL 'CODPTR = TEMP26>
1881                     <FRAME '\1aLENGTH>
1882                     <GEN-LVAL 'CODPTR = STACK>
1883                     <CALL '\1aLENGTH 1 = TEMP48>
1884                     <FRAME '\1aLENGTH>
1885                     <PUSH CODELIST12>
1886                     <DEAD CODELIST12>
1887                     <CALL '\1aLENGTH 1 = TEMP86>
1888                     <SUB TEMP48 TEMP86 = TEMP48 (TYPE FIX)>
1889                     <DEAD TEMP86>
1890                     <SUB TEMP48 1 = TEMP48 (TYPE FIX)>
1891                     <GRTR? TEMP48 0 - RESTL88 (TYPE FIX)>
1892                     <LOOP (TEMP26 VALUE) (TEMP48 VALUE)>
1893 RESTL87
1894                     <INTGO>
1895                     <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
1896                     <SUB TEMP48 1 = TEMP48 (TYPE FIX)>
1897                     <GRTR? TEMP48 0 + RESTL87 (TYPE FIX)>
1898 RESTL88
1899                     <SET TEMP86 TEMP26>
1900                     <DEAD TEMP26>
1901                     <CHTYPE TEMP86 <TYPE-CODE LIST> = STACK>
1902                     <DEAD TEMP86>
1903                     <GEN-LVAL 'CODPTR = STACK>
1904                     <CALL '\1aFLUSH-TO 2>
1905 PHRASE75
1906                     <FRAME '\1aVAR-VALUE-IN-AC?>
1907                     <PUSH STRUC17>
1908                     <CALL '\1aVAR-VALUE-IN-AC? 1 = TEMP26>
1909                     <TYPE? TEMP26 <TYPE-CODE FALSE> - PHRASE92>
1910                     <FRAME '\1aLOAD-VAR>
1911                     <PUSH STRUC17>
1912                     <PUSH 'VALUE>
1913                     <PUSH %<>>
1914                     <PUSH 'PREF-VAL>
1915                     <CALL '\1aLOAD-VAR 4 = TEMP26>
1916 PHRASE92
1917                     <FRAME '\1aPROTECT-USE>
1918                     <PUSH TEMP26>
1919                     <CALL '\1aPROTECT-USE 1>
1920                     <TYPE? PUTINS6 <TYPE-CODE FALSE> + PHRASE102>
1921                     <TYPE? SELF?24 <TYPE-CODE FALSE> - PHRASE102>
1922                     <EQUAL? STRUC17 STRUC29 - PHRASE100>
1923                     <EQUAL? STYPE115 'LIST + PHRASE100>
1924                     <SET SAC220 TEMP26>
1925                     <JUMP + PHRASE102>
1926 PHRASE100
1927                     <FRAME '\1aVAR-VALUE-IN-AC?>
1928                     <PUSH STRUC29>
1929                     <CALL '\1aVAR-VALUE-IN-AC? 1 = SAC220>
1930                     <TYPE? SAC220 <TYPE-CODE FALSE> - PHRASE102>
1931                     <FRAME '\1aLOAD-VAR>
1932                     <PUSH STRUC29>
1933                     <PUSH 'VALUE>
1934                     <PUSH %<>>
1935                     <PUSH 'PREF-VAL>
1936                     <CALL '\1aLOAD-VAR 4 = SAC220>
1937                     <FRAME '\1aPROTECT-USE>
1938                     <PUSH SAC220>
1939                     <CALL '\1aPROTECT-USE 1>
1940 PHRASE102
1941                     <FRAME '\1aGET-ADDR>
1942                     <PUSH ADDRTUP121>
1943                     <PUSH STRUC17>
1944                     <PUSH TEMP26>
1945                     <DEAD TEMP26>
1946                     <PUSH OFFSET18>
1947                     <PUSH STYPE115>
1948                     <PUSH ILDB?13>
1949                     <PUSH %<>>
1950                     <TYPE? INCINS5 <TYPE-CODE FALSE> - TAG107>
1951                     <SET TEMP48 'T (TYPE ATOM)>
1952                     <JUMP + TAG108>
1953 TAG107
1954                     <SET TEMP48 %<> (TYPE FALSE)>
1955 TAG108
1956                     <PUSH TEMP48>
1957                     <DEAD TEMP48>
1958                     <CALL '\1aGET-ADDR 8>
1959                     <TYPE? PUTINS6 <TYPE-CODE FALSE> + COND112>
1960                     <TYPE? SELF?24 <TYPE-CODE FALSE> - COND112>
1961                     <NTHUV ADDRTUP121 3 = TEMP48>
1962                     <TYPE? TEMP48 <TYPE-CODE FALSE> + PHRASE113>
1963                     <DEAD TEMP48>
1964                     <EQUAL? OFFSET18 OFFSET210 - PHRASE113>
1965                     <DEAD OFFSET18>
1966                     <VEQUAL? STYPE115 'VECTOR - BOOL116>
1967                     <EQUAL? STYPE216 'VECTOR + BOOL115>
1968 BOOL116
1969                     <VEQUAL? STYPE115 'VECTOR + PHRASE113>
1970                     <EQUAL? STYPE216 'VECTOR + PHRASE113>
1971 BOOL115
1972                     <FRAME '\1aGET-ADDR>
1973                     <PUSH ADDRTUP222>
1974                     <PUSH STRUC29>
1975                     <PUSH SAC220>
1976                     <DEAD SAC220>
1977                     <PUSH OFFSET210>
1978                     <DEAD OFFSET210>
1979                     <PUSH STYPE216>
1980                     <PUSH IDPB?14>
1981                     <NTHUV ADDRTUP121 3 = STACK>
1982                     <TYPE? INCINS5 <TYPE-CODE FALSE> - TAG119>
1983                     <SET TEMP48 'T (TYPE ATOM)>
1984                     <JUMP + TAG120>
1985 TAG119
1986                     <SET TEMP48 %<> (TYPE FALSE)>
1987 TAG120
1988                     <PUSH TEMP48>
1989                     <DEAD TEMP48>
1990                     <CALL '\1aGET-ADDR 8>
1991                     <JUMP + COND112>
1992 PHRASE113
1993                     <FRAME '\1aGET-ADDR>
1994                     <PUSH ADDRTUP222>
1995                     <PUSH STRUC29>
1996                     <PUSH SAC220>
1997                     <DEAD SAC220>
1998                     <PUSH OFFSET210>
1999                     <DEAD OFFSET210>
2000                     <PUSH STYPE216>
2001                     <PUSH IDPB?14>
2002                     <PUSH %<>>
2003                     <TYPE? INCINS5 <TYPE-CODE FALSE> - TAG122>
2004                     <SET TEMP48 'T (TYPE ATOM)>
2005                     <JUMP + TAG123>
2006 TAG122
2007                     <SET TEMP48 %<> (TYPE FALSE)>
2008 TAG123
2009                     <PUSH TEMP48>
2010                     <DEAD TEMP48>
2011                     <CALL '\1aGET-ADDR 8>
2012 COND112
2013                     <TYPE? INCINS5 <TYPE-CODE FALSE> - PHRASE125>
2014                     <FRAME '\1aMOVE-ELT>
2015                     <PUSH ADDRTUP121>
2016                     <DEAD ADDRTUP121>
2017                     <PUSH ADDRTUP222>
2018                     <DEAD ADDRTUP222>
2019                     <PUSH STYPE115>
2020                     <PUSH STYPE216>
2021                     <PUSH ELTYPE117>
2022                     <DEAD ELTYPE117>
2023                     <PUSH ELTYPE218>
2024                     <DEAD ELTYPE218>
2025                     <PUSH IDPB?14>
2026                     <CALL '\1aMOVE-ELT 7>
2027                     <JUMP + PHRASE147>
2028 PHRASE125
2029                     <GVAL 'ARITH = TEMP48>
2030                     <EMPUV? TEMP48 + PHRASE127>
2031                     <LOOP (INCINS5 VALUE) (TEMP48 LENGTH VALUE)>
2032 TAG129
2033                     <NTHUV TEMP48 1 = TEMP26>
2034                     <VEQUAL? TEMP26 INCINS5 + TAG128>
2035                     <DEAD TEMP26>
2036                     <RESTUV TEMP48 1 = TEMP48 (TYPE VECTOR)>
2037                     <EMPUV? TEMP48 - TAG129>
2038                     <JUMP + PHRASE127>
2039 TAG128
2040                     <FRAME '\1aDO-ARITH>
2041                     <PUSH INCINS5>
2042                     <DEAD INCINS5>
2043                     <PUSH AMOUNT11>
2044                     <DEAD AMOUNT11>
2045                     <NTHUV ADDRTUP121 1 = STACK>
2046                     <DEAD ADDRTUP121>
2047                     <TYPE? PUTINS6 <TYPE-CODE FALSE> + PHRASE134>
2048                     <DEAD PUTINS6>
2049                     <NTHUV ADDRTUP222 1 = TEMP48>
2050                     <DEAD ADDRTUP222>
2051                     <JUMP + PHRASE135>
2052 PHRASE134
2053                     <SET TEMP48 STRUC29>
2054 PHRASE135
2055                     <PUSH TEMP48>
2056                     <DEAD TEMP48>
2057                     <PUSH SELF?24>
2058                     <DEAD SELF?24>
2059                     <PUSH STYPE115>
2060                     <CALL '\1aDO-ARITH 6>
2061                     <JUMP + PHRASE147>
2062 PHRASE127
2063                     <FRAME '\1aDO-ARITH>
2064                     <PUSH 'SUB!-MIMOP>
2065                     <PUSH AMOUNT11>
2066                     <NTHUV ADDRTUP121 2 = STACK>
2067                     <NTHUV ADDRTUP222 2 = STACK>
2068                     <PUSH SELF?24>
2069                     <PUSH 'WORD>
2070                     <CALL '\1aDO-ARITH 6>
2071                     <TYPE? AMOUNT11 <TYPE-CODE FIX> - PHRASE139>
2072                     <FRAME '\1aDO-ARITH>
2073                     <PUSH 'ADD!-MIMOP>
2074                     <VEQUAL? INCINS5 'RESTUV!-MIMOP - PHRASE142>
2075                     <FRAME '\1aMA-IMM>
2076                     <LSH AMOUNT11 3 = STACK (TYPE FIX)>
2077                     <DEAD AMOUNT11>
2078                     <CALL '\1aMA-IMM 1 = TEMP48>
2079                     <JUMP + COND141>
2080 PHRASE142
2081                     <VEQUAL? INCINS5 'RESTUU!-MIMOP - PHRASE144>
2082                     <DEAD INCINS5>
2083                     <FRAME '\1aMA-IMM>
2084                     <LSH AMOUNT11 2 = STACK (TYPE FIX)>
2085                     <DEAD AMOUNT11>
2086                     <CALL '\1aMA-IMM 1 = TEMP48>
2087                     <JUMP + COND141>
2088 PHRASE144
2089                     <FRAME '\1aMA-IMM>
2090                     <PUSH AMOUNT11>
2091                     <DEAD AMOUNT11>
2092                     <CALL '\1aMA-IMM 1 = TEMP48>
2093 COND141
2094                     <PUSH TEMP48>
2095                     <DEAD TEMP48>
2096                     <NTHUV ADDRTUP121 1 = STACK>
2097                     <DEAD ADDRTUP121>
2098                     <NTHUV ADDRTUP222 1 = STACK>
2099                     <DEAD ADDRTUP222>
2100                     <PUSH SELF?24>
2101                     <DEAD SELF?24>
2102                     <PUSH 'VECTOR>
2103                     <CALL '\1aDO-ARITH 6>
2104                     <JUMP + PHRASE147>
2105 PHRASE139
2106                     <VEQUAL? INCINS5 'RESTUS!-MIMOP + BOOL150>
2107                     <VEQUAL? INCINS5 'RESTUB!-MIMOP - PHRASE149>
2108 BOOL150
2109                     <FRAME '\1aVAR-VALUE-ADDRESS>
2110                     <PUSH AMOUNT11>
2111                     <DEAD AMOUNT11>
2112                     <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP26>
2113                     <JUMP + PHRASE160>
2114 PHRASE149
2115                     <FRAME '\1aVAR-VALUE-IN-AC?>
2116                     <PUSH AMOUNT11>
2117                     <CALL '\1aVAR-VALUE-IN-AC? 1 = TEMP26>
2118                     <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE152>
2119                     <FRAME '\1aMUNG-AC>
2120                     <PUSH TEMP26>
2121                     <PUSH 'T>
2122                     <CALL '\1aMUNG-AC 2>
2123                     <NTHUV TEMP26 2 = TEMP48 (TYPE FIX)>
2124                     <DEAD TEMP26>
2125                     <OR TEMP48 #WORD *120* = TEMP48>
2126                     <LSH TEMP48 24 = TEMP48 (TYPE FIX)>
2127                     <CHTYPE TEMP48 <TYPE-CODE EFF-ADDR> = TEMP26>
2128                     <DEAD TEMP48>
2129                     <FRAME '\1aEMIT>
2130                     <PUSH 120>
2131                     <VEQUAL? INCINS5 'RESTUV!-MIMOP - PHRASE157>
2132                     <DEAD INCINS5>
2133                     <FRAME '\1aMA-IMM>
2134                     <PUSH 3>
2135                     <CALL '\1aMA-IMM 1 = TEMP48>
2136                     <JUMP + COND156>
2137 PHRASE157
2138                     <FRAME '\1aMA-IMM>
2139                     <PUSH 2>
2140                     <CALL '\1aMA-IMM 1 = TEMP48>
2141 COND156
2142                     <PUSH TEMP48>
2143                     <DEAD TEMP48>
2144                     <PUSH TEMP26>
2145                     <PUSH TEMP26>
2146                     <CALL '\1aEMIT 4>
2147                     <JUMP + PHRASE160>
2148 PHRASE152
2149                     <FRAME '\1aGET-AC>
2150                     <PUSH 'PREF-VAL>
2151                     <CALL '\1aGET-AC 1 = TEMP26>
2152                     <FRAME '\1aEMIT>
2153                     <PUSH 120>
2154                     <VEQUAL? INCINS5 'RESTUV!-MIMOP - PHRASE164>
2155                     <DEAD INCINS5>
2156                     <FRAME '\1aMA-IMM>
2157                     <PUSH 3>
2158                     <CALL '\1aMA-IMM 1 = TEMP48>
2159                     <JUMP + COND163>
2160 PHRASE164
2161                     <FRAME '\1aMA-IMM>
2162                     <PUSH 2>
2163                     <CALL '\1aMA-IMM 1 = TEMP48>
2164 COND163
2165                     <PUSH TEMP48>
2166                     <DEAD TEMP48>
2167                     <FRAME '\1aVAR-VALUE-ADDRESS>
2168                     <PUSH AMOUNT11>
2169                     <DEAD AMOUNT11>
2170                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
2171                     <NTHUV TEMP26 2 = TEMP48 (TYPE FIX)>
2172                     <DEAD TEMP26>
2173                     <OR TEMP48 #WORD *120* = TEMP48>
2174                     <LSH TEMP48 24 = TEMP48 (TYPE FIX)>
2175                     <CHTYPE TEMP48 <TYPE-CODE EFF-ADDR> = TEMP26>
2176                     <DEAD TEMP48>
2177                     <PUSH TEMP26>
2178                     <CALL '\1aEMIT 4>
2179 PHRASE160
2180                     <FRAME '\1aDO-ARITH>
2181                     <PUSH 'ADD!-MIMOP>
2182                     <PUSH TEMP26>
2183                     <DEAD TEMP26>
2184                     <NTHUV ADDRTUP121 1 = STACK>
2185                     <DEAD ADDRTUP121>
2186                     <NTHUV ADDRTUP222 1 = STACK>
2187                     <DEAD ADDRTUP222>
2188                     <PUSH SELF?24>
2189                     <DEAD SELF?24>
2190                     <PUSH 'VECTOR>
2191                     <CALL '\1aDO-ARITH 6>
2192 PHRASE147
2193                     <TYPE? ILDB?13 <TYPE-CODE FALSE> + PHRASE170>
2194                     <FRAME '\1aREST-BLOCK-GEN>
2195                     <PUSH STRUC17>
2196                     <DEAD STRUC17>
2197                     <PUSH 1>
2198                     <PUSH ILDB?13>
2199                     <DEAD ILDB?13>
2200                     <PUSH 0>
2201                     <PUSH STYPE115>
2202                     <DEAD STYPE115>
2203                     <PUSH 'T>
2204                     <CALL '\1aREST-BLOCK-GEN 6>
2205 PHRASE170
2206                     <TYPE? IDPB?14 <TYPE-CODE FALSE> + PHRASE173>
2207                     <FRAME '\1aREST-BLOCK-GEN>
2208                     <PUSH STRUC29>
2209                     <DEAD STRUC29>
2210                     <PUSH 1>
2211                     <PUSH IDPB?14>
2212                     <DEAD IDPB?14>
2213                     <PUSH 0>
2214                     <PUSH STYPE216>
2215                     <DEAD STYPE216>
2216                     <PUSH 'T>
2217                     <CALL '\1aREST-BLOCK-GEN 6>
2218 PHRASE173
2219                     <SET TEMP26 'NORMAL (TYPE ATOM)>
2220 RETURN2
2221                     <ADJ -20>
2222                     <RETURN TEMP26>
2223                     <DEAD TEMP26>
2224                     <END \1aNTH-AOS-PUT-GEN>
2225
2226 #WORD *35420625711*
2227                     <GFCN \1aMOVE-ELT ("VALUE" ANY TUPLE TUPLE <OR ATOM FALSE> <OR ATOM FALSE> <OR ATOM FALSE> <OR ATOM FALSE> ANY) TUP14 TUP25 ST16 ST27 EL18 EL29 IDPB?10>
2228                     <TEMP TEMP20 TEMP21 INS11:FIX ADDR112 ADDR213>
2229                     <INTGO>
2230                     <SET TEMP20 [VECTOR LIST] (TYPE VECTOR)>
2231                     <TYPE? ST16 <TYPE-CODE ATOM> - PHRASE15>
2232                     <LOOP (ST16 VALUE) (TEMP20 LENGTH VALUE)>
2233 TAG18
2234                     <NTHUV TEMP20 1 = TEMP21>
2235                     <VEQUAL? TEMP21 ST16 + TAG17>
2236                     <DEAD TEMP21>
2237                     <RESTUV TEMP20 1 = TEMP20 (TYPE VECTOR)>
2238                     <EMPUV? TEMP20 - TAG18>
2239                     <JUMP + PHRASE15>
2240 TAG17
2241                     <SET TEMP20 [VECTOR LIST] (TYPE VECTOR)>
2242                     <TYPE? ST27 <TYPE-CODE ATOM> - PHRASE15>
2243                     <LOOP (ST27 VALUE) (TEMP20 LENGTH VALUE)>
2244 TAG23
2245                     <NTHUV TEMP20 1 = TEMP21>
2246                     <VEQUAL? TEMP21 ST27 + TAG22>
2247                     <DEAD TEMP21>
2248                     <RESTUV TEMP20 1 = TEMP20 (TYPE VECTOR)>
2249                     <EMPUV? TEMP20 - TAG23>
2250                     <JUMP + PHRASE15>
2251 TAG22
2252                     <SET INS11 125 (TYPE FIX)>
2253                     <NTHUV TUP14 4 = ADDR112>
2254                     <DEAD TUP14>
2255                     <NTHUV TUP25 4 = ADDR213>
2256                     <JUMP + PHRASE70>
2257 PHRASE15
2258                     <NTHUV TUP14 1 = ADDR112>
2259                     <DEAD TUP14>
2260                     <NTHUV TUP25 1 = ADDR213>
2261                     <SET TEMP20 [VECTOR LIST] (TYPE VECTOR)>
2262                     <TYPE? ST16 <TYPE-CODE ATOM> - PHRASE27>
2263                     <LOOP (ST16 VALUE) (TEMP20 LENGTH VALUE)>
2264 TAG29
2265                     <NTHUV TEMP20 1 = TEMP21>
2266                     <VEQUAL? TEMP21 ST16 + TAG28>
2267                     <DEAD TEMP21>
2268                     <RESTUV TEMP20 1 = TEMP20 (TYPE VECTOR)>
2269                     <EMPUV? TEMP20 - TAG29>
2270                     <JUMP + PHRASE27>
2271 TAG28
2272                     <EQUAL? ST27 'UVECTOR - PHRASE32>
2273                     <SET EL29 'FIX (TYPE ATOM)>
2274                     <SET INS11 208 (TYPE FIX)>
2275                     <JUMP + PHRASE70>
2276 PHRASE32
2277                     <SET TEMP20 [STRING BYTES] (TYPE VECTOR)>
2278                     <TYPE? ST27 <TYPE-CODE ATOM> - PHRASE70>
2279                     <LOOP (ST27 VALUE) (TEMP20 LENGTH VALUE)>
2280 TAG35
2281                     <NTHUV TEMP20 1 = TEMP21>
2282                     <VEQUAL? TEMP21 ST27 + TAG34>
2283                     <DEAD TEMP21>
2284                     <RESTUV TEMP20 1 = TEMP20 (TYPE VECTOR)>
2285                     <EMPUV? TEMP20 - TAG35>
2286                     <JUMP + PHRASE70>
2287 TAG34
2288                     <EQUAL? ST27 'STRING - PHRASE38>
2289                     <DEAD ST27>
2290                     <SET EL29 'CHARACTER (TYPE ATOM)>
2291                     <JUMP + COND37>
2292 PHRASE38
2293                     <SET EL29 'FIX (TYPE ATOM)>
2294 COND37
2295                     <SET INS11 246 (TYPE FIX)>
2296                     <JUMP + PHRASE70>
2297 PHRASE27
2298                     <EQUAL? ST16 'UVECTOR - PHRASE39>
2299                     <DEAD ST16>
2300                     <TYPE? IDPB?10 <TYPE-CODE FALSE> + PHRASE41>
2301                     <DEAD IDPB?10>
2302                     <EQUAL? ST27 'VECTOR - PHRASE41>
2303                     <FRAME '\1aEMIT>
2304                     <PUSH 208>
2305                     <FRAME '\1aTYPE-WORD>
2306                     <PUSH 'FIX>
2307                     <CALL '\1aTYPE-WORD 1 = STACK>
2308                     <SET TEMP21 2 (TYPE FIX)>
2309                     <SET TEMP20 ADDR213>
2310                     <LOOP (TEMP20 TYPE VALUE LENGTH) (TEMP21 VALUE)>
2311 TAG45
2312                     <INTGO>
2313                     <EMPTY? TEMP20 + TAG43>
2314                     <NTH1 TEMP20 = STACK>
2315                     <REST1 TEMP20 = TEMP20>
2316                     <ADD TEMP21 1 = TEMP21 (TYPE FIX)>
2317                     <JUMP + TAG45>
2318 TAG43
2319                     <CALL '\1aEMIT TEMP21>
2320                     <DEAD TEMP21>
2321 PHRASE41
2322                     <SET TEMP21 [VECTOR LIST UVECTOR] (TYPE VECTOR)>
2323                     <TYPE? ST27 <TYPE-CODE ATOM> - PHRASE48>
2324                     <LOOP (ST27 VALUE) (TEMP21 LENGTH VALUE)>
2325 TAG50
2326                     <NTHUV TEMP21 1 = TEMP20>
2327                     <VEQUAL? TEMP20 ST27 + TAG49>
2328                     <DEAD TEMP20>
2329                     <RESTUV TEMP21 1 = TEMP21 (TYPE VECTOR)>
2330                     <EMPUV? TEMP21 - TAG50>
2331                     <JUMP + PHRASE48>
2332 TAG49
2333                     <SET EL29 'FIX (TYPE ATOM)>
2334                     <SET INS11 208 (TYPE FIX)>
2335                     <JUMP + PHRASE70>
2336 PHRASE48
2337                     <EQUAL? ST27 'STRING - PHRASE54>
2338                     <DEAD ST27>
2339                     <SET EL29 'CHARACTER (TYPE ATOM)>
2340                     <JUMP + COND53>
2341 PHRASE54
2342                     <SET EL29 'FIX (TYPE ATOM)>
2343 COND53
2344                     <SET INS11 246 (TYPE FIX)>
2345                     <JUMP + PHRASE70>
2346 PHRASE39
2347                     <TYPE? IDPB?10 <TYPE-CODE FALSE> + PHRASE57>
2348                     <DEAD IDPB?10>
2349                     <EQUAL? ST27 'VECTOR - PHRASE57>
2350                     <FRAME '\1aEMIT>
2351                     <PUSH 208>
2352                     <FRAME '\1aTYPE-WORD>
2353                     <PUSH 'FIX>
2354                     <CALL '\1aTYPE-WORD 1 = STACK>
2355                     <SET TEMP20 2 (TYPE FIX)>
2356                     <SET TEMP21 ADDR213>
2357                     <LOOP (TEMP21 TYPE VALUE LENGTH) (TEMP20 VALUE)>
2358 TAG61
2359                     <INTGO>
2360                     <EMPTY? TEMP21 + TAG59>
2361                     <NTH1 TEMP21 = STACK>
2362                     <REST1 TEMP21 = TEMP21>
2363                     <ADD TEMP20 1 = TEMP20 (TYPE FIX)>
2364                     <JUMP + TAG61>
2365 TAG59
2366                     <CALL '\1aEMIT TEMP20>
2367                     <DEAD TEMP20>
2368 PHRASE57
2369                     <SET TEMP20 [VECTOR UVECTOR LIST] (TYPE VECTOR)>
2370                     <TYPE? ST27 <TYPE-CODE ATOM> - PHRASE64>
2371                     <LOOP (ST27 VALUE) (TEMP20 LENGTH VALUE)>
2372 TAG66
2373                     <NTHUV TEMP20 1 = TEMP21>
2374                     <VEQUAL? TEMP21 ST27 + TAG65>
2375                     <DEAD TEMP21>
2376                     <RESTUV TEMP20 1 = TEMP20 (TYPE VECTOR)>
2377                     <EMPUV? TEMP20 - TAG66>
2378                     <JUMP + PHRASE64>
2379 TAG65
2380                     <EQUAL? ST27 'UVECTOR - PHRASE69>
2381                     <DEAD ST27>
2382                     <SET EL29 'FIX (TYPE ATOM)>
2383 PHRASE69
2384                     <SET INS11 154 (TYPE FIX)>
2385                     <JUMP + PHRASE70>
2386 PHRASE64
2387                     <EQUAL? ST27 'STRING - PHRASE72>
2388                     <DEAD ST27>
2389                     <SET EL29 'CHARACTER (TYPE ATOM)>
2390                     <JUMP + COND71>
2391 PHRASE72
2392                     <SET EL29 'FIX (TYPE ATOM)>
2393 COND71
2394                     <SET INS11 144 (TYPE FIX)>
2395 PHRASE70
2396                     <FRAME '\1aEMIT>
2397                     <PUSH INS11>
2398                     <DEAD INS11>
2399                     <SET TEMP21 1 (TYPE FIX)>
2400                     <SET TEMP20 ADDR112>
2401                     <DEAD ADDR112>
2402                     <LOOP (TEMP20 TYPE VALUE LENGTH) (TEMP21 VALUE)>
2403 TAG74
2404                     <INTGO>
2405                     <EMPTY? TEMP20 + TAG73>
2406                     <NTH1 TEMP20 = STACK>
2407                     <REST1 TEMP20 = TEMP20>
2408                     <ADD TEMP21 1 = TEMP21 (TYPE FIX)>
2409                     <JUMP + TAG74>
2410 TAG73
2411                     <SET TEMP20 ADDR213>
2412                     <DEAD ADDR213>
2413                     <LOOP (TEMP20 TYPE VALUE LENGTH) (TEMP21 VALUE)>
2414 TAG76
2415                     <INTGO>
2416                     <EMPTY? TEMP20 + TAG75>
2417                     <NTH1 TEMP20 = STACK>
2418                     <REST1 TEMP20 = TEMP20>
2419                     <ADD TEMP21 1 = TEMP21 (TYPE FIX)>
2420                     <JUMP + TAG76>
2421 TAG75
2422                     <CALL '\1aEMIT TEMP21>
2423                     <DEAD TEMP21>
2424                     <TYPE? EL29 <TYPE-CODE FALSE> + TAG80>
2425                     <DEAD EL29>
2426                     <RETURN %<>>
2427 TAG80
2428                     <SET TEMP21 EL18>
2429                     <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE82>
2430                     <FRAME '\1aEMIT>
2431                     <PUSH 176>
2432                     <FRAME '\1aTYPE-WORD>
2433                     <PUSH EL18>
2434                     <DEAD EL18>
2435                     <CALL '\1aTYPE-WORD 1 = STACK>
2436                     <SET INS11 2 (TYPE FIX)>
2437                     <NTHUV TUP25 2 = TEMP20>
2438                     <DEAD TUP25>
2439                     <LOOP (TEMP20 TYPE VALUE LENGTH) (INS11 VALUE)>
2440 TAG87
2441                     <INTGO>
2442                     <EMPTY? TEMP20 + TAG83>
2443                     <NTH1 TEMP20 = STACK>
2444                     <REST1 TEMP20 = TEMP20>
2445                     <ADD INS11 1 = INS11 (TYPE FIX)>
2446                     <JUMP + TAG87>
2447 TAG83
2448                     <CALL '\1aEMIT INS11 = TEMP21>
2449                     <DEAD INS11>
2450 PHRASE82
2451                     <RETURN TEMP21>
2452                     <DEAD TEMP21>
2453                     <END \1aMOVE-ELT>
2454
2455 #WORD *3021426351*
2456                     <GFCN \1aDO-ARITH ("VALUE" ANY ANY ANY ANY ANY ANY ANY) INS4 AMOUNT5 ADDR16 ADDR27 SELF?8 STYPE19>
2457                     <TEMP (VAC10 %<>) RAC11 TEMP27 TEMP28 TEMP29>
2458                     <INTGO>
2459                     <TYPE? SELF?8 <TYPE-CODE FALSE> + PHRASE13>
2460                     <SET ADDR27 ADDR16>
2461 PHRASE13
2462                     <TYPE? ADDR27 <TYPE-CODE VARTBL> - PHRASE15>
2463                     <FRAME '\1aVAR-VALUE-IN-AC?>
2464                     <PUSH ADDR27>
2465                     <CALL '\1aVAR-VALUE-IN-AC? 1 = RAC11>
2466                     <TYPE? RAC11 <TYPE-CODE FALSE> - PHRASE17>
2467                     <FRAME '\1aGET-AC>
2468                     <PUSH 'PREF-VAL>
2469                     <PUSH 'T>
2470                     <CALL '\1aGET-AC 2 = RAC11>
2471                     <FRAME '\1aPROTECT>
2472                     <PUSH RAC11>
2473                     <CALL '\1aPROTECT 1>
2474 PHRASE17
2475                     <FRAME '\1aDEST-DECL>
2476                     <PUSH RAC11>
2477                     <PUSH ADDR27>
2478                     <GVAL 'FLOATS = TEMP27>
2479                     <TYPE INS4 = TEMP28>
2480                     <EMPTY? TEMP27 + PHRASE23>
2481                     <LOOP (INS4 VALUE) (TEMP28 VALUE) (TEMP27 LENGTH VALUE TYPE)>
2482 TAG25
2483                     <NTH1 TEMP27 = TEMP29>
2484                     <TYPE? TEMP29 TEMP28 - TAG26>
2485                     <VEQUAL? TEMP29 INS4 + TAG24>
2486                     <DEAD TEMP29>
2487 TAG26
2488                     <REST1 TEMP27 = TEMP27>
2489                     <EMPTY? TEMP27 - TAG25>
2490                     <JUMP + PHRASE23>
2491 TAG24
2492                     <SET TEMP27 'FLOAT (TYPE ATOM)>
2493                     <JUMP + PHRASE30>
2494 PHRASE23
2495                     <SET TEMP27 'FIX (TYPE ATOM)>
2496 PHRASE30
2497                     <PUSH TEMP27>
2498                     <DEAD TEMP27>
2499                     <CALL '\1aDEST-DECL 3>
2500 PHRASE15
2501                     <GVAL 'LOGIC = TEMP27>
2502                     <TYPE INS4 = TEMP28>
2503                     <EMPUV? TEMP27 + PHRASE32>
2504                     <LOOP (INS4 VALUE) (TEMP28 VALUE) (TEMP27 LENGTH VALUE)>
2505 TAG34
2506                     <NTHUV TEMP27 1 = TEMP29>
2507                     <TYPE? TEMP29 TEMP28 - TAG35>
2508                     <VEQUAL? TEMP29 INS4 + TAG33>
2509                     <DEAD TEMP29>
2510 TAG35
2511                     <RESTUV TEMP27 1 = TEMP27 (TYPE VECTOR)>
2512                     <EMPUV? TEMP27 - TAG34>
2513                     <JUMP + PHRASE32>
2514 TAG33
2515                     <TYPE? AMOUNT5 <TYPE-CODE FIX> - PHRASE37>
2516                     <EQUAL? INS4 'EQV!-MIMOP - PHRASE39>
2517                     <XOR AMOUNT5 #WORD *777777777777* = AMOUNT5>
2518                     <SET INS4 'XOR!-MIMOP (TYPE ATOM)>
2519                     <JUMP + PHRASE48>
2520 PHRASE39
2521                     <EQUAL? INS4 'AND!-MIMOP - PHRASE48>
2522                     <XOR AMOUNT5 #WORD *777777777777* = AMOUNT5>
2523                     <JUMP + PHRASE48>
2524 PHRASE37
2525                     <EQUAL? INS4 'EQV!-MIMOP + BOOL42>
2526                     <EQUAL? INS4 'AND!-MIMOP - PHRASE48>
2527 BOOL42
2528                     <FRAME '\1aEMIT>
2529                     <PUSH 210>
2530                     <SET TEMP28 2 (TYPE FIX)>
2531                     <SET TEMP27 ADDR16>
2532                     <LOOP (TEMP27 TYPE VALUE LENGTH) (TEMP28 VALUE)>
2533 TAG44
2534                     <INTGO>
2535                     <EMPTY? TEMP27 + TAG43>
2536                     <NTH1 TEMP27 = STACK>
2537                     <REST1 TEMP27 = TEMP27>
2538                     <ADD TEMP28 1 = TEMP28 (TYPE FIX)>
2539                     <JUMP + TAG44>
2540 TAG43
2541                     <FRAME '\1aGET-AC>
2542                     <PUSH 'PREF-VAL>
2543                     <PUSH 'T>
2544                     <CALL '\1aGET-AC 2 = VAC10>
2545                     <PUSH VAC10>
2546                     <CALL '\1aEMIT TEMP28>
2547                     <DEAD TEMP28>
2548                     <EQUAL? INS4 'EQV!-MIMOP - PHRASE48>
2549                     <SET INS4 'XOR!-MIMOP (TYPE ATOM)>
2550 PHRASE48
2551                     <TYPE? VAC10 <TYPE-CODE FALSE> + PHRASE50>
2552                     <TYPE? ADDR27 <TYPE-CODE VARTBL> - PHRASE52>
2553                     <FRAME '\1aEMIT>
2554                     <EQUAL? INS4 'AND!-MIMOP - PHRASE55>
2555                     <SET TEMP28 203 (TYPE FIX)>
2556                     <JUMP + PHRASE57>
2557 PHRASE55
2558                     <EQUAL? INS4 'XOR!-MIMOP - PHRASE56>
2559                     <SET TEMP28 205 (TYPE FIX)>
2560                     <JUMP + PHRASE57>
2561 PHRASE56
2562                     <EQUAL? INS4 'OR!-MIMOP + TAG58>
2563                     <DEAD INS4>
2564                     <SET TEMP28 %<> (TYPE FALSE)>
2565                     <JUMP + PHRASE57>
2566 TAG58
2567                     <SET TEMP28 201 (TYPE FIX)>
2568 PHRASE57
2569                     <PUSH TEMP28>
2570                     <DEAD TEMP28>
2571                     <NTHUV VAC10 2 = TEMP28 (TYPE FIX)>
2572                     <DEAD VAC10>
2573                     <OR TEMP28 #WORD *120* = TEMP28>
2574                     <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
2575                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
2576                     <DEAD TEMP28>
2577                     <FRAME '\1aVAR-VALUE-ADDRESS>
2578                     <PUSH AMOUNT5>
2579                     <DEAD AMOUNT5>
2580                     <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP28>
2581                     <PUSH TEMP28>
2582                     <DEAD TEMP28>
2583                     <NTHUV RAC11 2 = TEMP28 (TYPE FIX)>
2584                     <DEAD RAC11>
2585                     <OR TEMP28 #WORD *120* = TEMP28>
2586                     <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
2587                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
2588                     <DEAD TEMP28>
2589                     <CALL '\1aEMIT 4 = TEMP28>
2590                     <RETURN TEMP28>
2591                     <DEAD TEMP28>
2592 PHRASE52
2593                     <FRAME '\1aEMIT>
2594                     <EQUAL? INS4 'AND!-MIMOP - PHRASE65>
2595                     <SET TEMP27 203 (TYPE FIX)>
2596                     <JUMP + PHRASE67>
2597 PHRASE65
2598                     <EQUAL? INS4 'XOR!-MIMOP - PHRASE66>
2599                     <SET TEMP27 205 (TYPE FIX)>
2600                     <JUMP + PHRASE67>
2601 PHRASE66
2602                     <EQUAL? INS4 'OR!-MIMOP + TAG68>
2603                     <DEAD INS4>
2604                     <SET TEMP27 %<> (TYPE FALSE)>
2605                     <JUMP + PHRASE67>
2606 TAG68
2607                     <SET TEMP27 201 (TYPE FIX)>
2608 PHRASE67
2609                     <PUSH TEMP27>
2610                     <DEAD TEMP27>
2611                     <NTHUV VAC10 2 = TEMP27 (TYPE FIX)>
2612                     <DEAD VAC10>
2613                     <OR TEMP27 #WORD *120* = TEMP27>
2614                     <LSH TEMP27 24 = TEMP27 (TYPE FIX)>
2615                     <CHTYPE TEMP27 <TYPE-CODE EFF-ADDR> = STACK>
2616                     <DEAD TEMP27>
2617                     <FRAME '\1aVAR-VALUE-ADDRESS>
2618                     <PUSH AMOUNT5>
2619                     <DEAD AMOUNT5>
2620                     <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP27>
2621                     <PUSH TEMP27>
2622                     <DEAD TEMP27>
2623                     <SET TEMP29 3 (TYPE FIX)>
2624                     <SET TEMP27 ADDR27>
2625                     <DEAD ADDR27>
2626                     <LOOP (TEMP27 TYPE VALUE LENGTH) (TEMP29 VALUE)>
2627 TAG72
2628                     <INTGO>
2629                     <EMPTY? TEMP27 + TAG63>
2630                     <NTH1 TEMP27 = STACK>
2631                     <REST1 TEMP27 = TEMP27>
2632                     <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
2633                     <JUMP + TAG72>
2634 TAG63
2635                     <CALL '\1aEMIT TEMP29 = TEMP28>
2636                     <DEAD TEMP29>
2637                     <RETURN TEMP28>
2638                     <DEAD TEMP28>
2639 PHRASE50
2640                     <TYPE? SELF?8 <TYPE-CODE FALSE> + PHRASE74>
2641                     <DEAD SELF?8>
2642                     <FRAME '\1aEMIT>
2643                     <EQUAL? INS4 'AND!-MIMOP - PHRASE77>
2644                     <SET TEMP29 202 (TYPE FIX)>
2645                     <JUMP + PHRASE79>
2646 PHRASE77
2647                     <EQUAL? INS4 'XOR!-MIMOP - PHRASE78>
2648                     <SET TEMP29 204 (TYPE FIX)>
2649                     <JUMP + PHRASE79>
2650 PHRASE78
2651                     <EQUAL? INS4 'OR!-MIMOP + TAG80>
2652                     <DEAD INS4>
2653                     <SET TEMP29 %<> (TYPE FALSE)>
2654                     <JUMP + PHRASE79>
2655 TAG80
2656                     <SET TEMP29 200 (TYPE FIX)>
2657 PHRASE79
2658                     <PUSH TEMP29>
2659                     <DEAD TEMP29>
2660                     <FRAME '\1aVAR-VALUE-ADDRESS>
2661                     <PUSH AMOUNT5>
2662                     <DEAD AMOUNT5>
2663                     <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP29>
2664                     <PUSH TEMP29>
2665                     <DEAD TEMP29>
2666                     <SET TEMP27 2 (TYPE FIX)>
2667                     <SET TEMP29 ADDR16>
2668                     <DEAD ADDR16>
2669                     <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP27 VALUE)>
2670 TAG84
2671                     <INTGO>
2672                     <EMPTY? TEMP29 + TAG75>
2673                     <NTH1 TEMP29 = STACK>
2674                     <REST1 TEMP29 = TEMP29>
2675                     <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
2676                     <JUMP + TAG84>
2677 TAG75
2678                     <CALL '\1aEMIT TEMP27 = TEMP28>
2679                     <DEAD TEMP27>
2680                     <RETURN TEMP28>
2681                     <DEAD TEMP28>
2682 PHRASE74
2683                     <TYPE? ADDR27 <TYPE-CODE VARTBL> - PHRASE88>
2684                     <FRAME '\1aEMIT>
2685                     <EQUAL? INS4 'AND!-MIMOP - PHRASE91>
2686                     <SET TEMP27 203 (TYPE FIX)>
2687                     <JUMP + PHRASE93>
2688 PHRASE91
2689                     <EQUAL? INS4 'XOR!-MIMOP - PHRASE92>
2690                     <SET TEMP27 205 (TYPE FIX)>
2691                     <JUMP + PHRASE93>
2692 PHRASE92
2693                     <EQUAL? INS4 'OR!-MIMOP + TAG94>
2694                     <DEAD INS4>
2695                     <SET TEMP27 %<> (TYPE FALSE)>
2696                     <JUMP + PHRASE93>
2697 TAG94
2698                     <SET TEMP27 201 (TYPE FIX)>
2699 PHRASE93
2700                     <PUSH TEMP27>
2701                     <DEAD TEMP27>
2702                     <SET TEMP29 3 (TYPE FIX)>
2703                     <SET TEMP27 ADDR16>
2704                     <DEAD ADDR16>
2705                     <LOOP (TEMP27 TYPE VALUE LENGTH) (TEMP29 VALUE)>
2706 TAG95
2707                     <INTGO>
2708                     <EMPTY? TEMP27 + PHRASE98>
2709                     <NTH1 TEMP27 = STACK>
2710                     <REST1 TEMP27 = TEMP27>
2711                     <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
2712                     <JUMP + TAG95>
2713 PHRASE98
2714                     <FRAME '\1aVAR-VALUE-ADDRESS>
2715                     <PUSH AMOUNT5>
2716                     <DEAD AMOUNT5>
2717                     <CALL '\1aVAR-VALUE-ADDRESS 1 = VAC10>
2718                     <PUSH VAC10>
2719                     <DEAD VAC10>
2720                     <NTHUV RAC11 2 = VAC10 (TYPE FIX)>
2721                     <DEAD RAC11>
2722                     <OR VAC10 #WORD *120* = VAC10>
2723                     <LSH VAC10 24 = VAC10 (TYPE FIX)>
2724                     <CHTYPE VAC10 <TYPE-CODE EFF-ADDR> = STACK>
2725                     <DEAD VAC10>
2726                     <CALL '\1aEMIT TEMP29 = TEMP28>
2727                     <DEAD TEMP29>
2728                     <RETURN TEMP28>
2729                     <DEAD TEMP28>
2730 PHRASE88
2731                     <FRAME '\1aEMIT>
2732                     <EQUAL? INS4 'AND!-MIMOP - PHRASE104>
2733                     <SET TEMP29 203 (TYPE FIX)>
2734                     <JUMP + PHRASE106>
2735 PHRASE104
2736                     <EQUAL? INS4 'XOR!-MIMOP - PHRASE105>
2737                     <SET TEMP29 205 (TYPE FIX)>
2738                     <JUMP + PHRASE106>
2739 PHRASE105
2740                     <EQUAL? INS4 'OR!-MIMOP + TAG107>
2741                     <DEAD INS4>
2742                     <SET TEMP29 %<> (TYPE FALSE)>
2743                     <JUMP + PHRASE106>
2744 TAG107
2745                     <SET TEMP29 201 (TYPE FIX)>
2746 PHRASE106
2747                     <PUSH TEMP29>
2748                     <DEAD TEMP29>
2749                     <SET TEMP27 2 (TYPE FIX)>
2750                     <SET TEMP29 ADDR16>
2751                     <DEAD ADDR16>
2752                     <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP27 VALUE)>
2753 TAG108
2754                     <INTGO>
2755                     <EMPTY? TEMP29 + PHRASE111>
2756                     <NTH1 TEMP29 = STACK>
2757                     <REST1 TEMP29 = TEMP29>
2758                     <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
2759                     <JUMP + TAG108>
2760 PHRASE111
2761                     <FRAME '\1aVAR-VALUE-ADDRESS>
2762                     <PUSH AMOUNT5>
2763                     <DEAD AMOUNT5>
2764                     <CALL '\1aVAR-VALUE-ADDRESS 1 = VAC10>
2765                     <PUSH VAC10>
2766                     <DEAD VAC10>
2767                     <SET TEMP29 ADDR27>
2768                     <DEAD ADDR27>
2769                     <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP27 VALUE)>
2770 TAG113
2771                     <INTGO>
2772                     <EMPTY? TEMP29 + TAG109>
2773                     <NTH1 TEMP29 = STACK>
2774                     <REST1 TEMP29 = TEMP29>
2775                     <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
2776                     <JUMP + TAG113>
2777 TAG109
2778                     <CALL '\1aEMIT TEMP27 = TEMP28>
2779                     <DEAD TEMP27>
2780                     <RETURN TEMP28>
2781                     <DEAD TEMP28>
2782 PHRASE32
2783                     <TYPE? SELF?8 <TYPE-CODE FALSE> + PHRASE115>
2784                     <EQUAL? AMOUNT5 1 - PHRASE115>
2785                     <FRAME '\1aEMIT>
2786                     <FRAME '\1aPICK-ARITH>
2787                     <PUSH INS4>
2788                     <DEAD INS4>
2789                     <PUSH STYPE19>
2790                     <DEAD STYPE19>
2791                     <PUSH 1>
2792                     <CALL '\1aPICK-ARITH 3 = STACK>
2793                     <SET VAC10 1 (TYPE FIX)>
2794                     <SET TEMP27 ADDR16>
2795                     <DEAD ADDR16>
2796                     <LOOP (TEMP27 TYPE VALUE LENGTH) (VAC10 VALUE)>
2797 TAG119
2798                     <INTGO>
2799                     <EMPTY? TEMP27 + TAG117>
2800                     <NTH1 TEMP27 = STACK>
2801                     <REST1 TEMP27 = TEMP27>
2802                     <ADD VAC10 1 = VAC10 (TYPE FIX)>
2803                     <JUMP + TAG119>
2804 TAG117
2805                     <CALL '\1aEMIT VAC10 = TEMP28>
2806                     <DEAD VAC10>
2807                     <RETURN TEMP28>
2808                     <DEAD TEMP28>
2809 PHRASE115
2810                     <TYPE? SELF?8 <TYPE-CODE FALSE> + PHRASE121>
2811                     <DEAD SELF?8>
2812                     <FRAME '\1aEMIT>
2813                     <FRAME '\1aPICK-ARITH>
2814                     <PUSH INS4>
2815                     <DEAD INS4>
2816                     <PUSH STYPE19>
2817                     <DEAD STYPE19>
2818                     <PUSH 2>
2819                     <CALL '\1aPICK-ARITH 3 = STACK>
2820                     <TYPE? AMOUNT5 <TYPE-CODE FIX> - PHRASE125>
2821                     <FRAME '\1aMA-IMM>
2822                     <PUSH AMOUNT5>
2823                     <DEAD AMOUNT5>
2824                     <CALL '\1aMA-IMM 1 = VAC10>
2825                     <JUMP + COND124>
2826 PHRASE125
2827                     <TYPE? AMOUNT5 <TYPE-CODE FLOAT> - PHRASE127>
2828                     <FRAME '\1aFLOAT-IMM>
2829                     <FRAME '\1aFLOATCONVERT>
2830                     <PUSH AMOUNT5>
2831                     <DEAD AMOUNT5>
2832                     <CALL '\1aFLOATCONVERT 1 = STACK>
2833                     <CALL '\1aFLOAT-IMM 1 = VAC10>
2834                     <JUMP + COND124>
2835 PHRASE127
2836                     <TYPE? AMOUNT5 <TYPE-CODE VARTBL> - PHRASE130>
2837                     <FRAME '\1aVAR-VALUE-ADDRESS>
2838                     <PUSH AMOUNT5>
2839                     <DEAD AMOUNT5>
2840                     <CALL '\1aVAR-VALUE-ADDRESS 1 = VAC10>
2841                     <JUMP + COND124>
2842 PHRASE130
2843                     <SET VAC10 AMOUNT5>
2844                     <DEAD AMOUNT5>
2845 COND124
2846                     <PUSH VAC10>
2847                     <DEAD VAC10>
2848                     <SET TEMP27 2 (TYPE FIX)>
2849                     <SET VAC10 ADDR16>
2850                     <DEAD ADDR16>
2851                     <LOOP (VAC10 TYPE VALUE LENGTH) (TEMP27 VALUE)>
2852 TAG132
2853                     <INTGO>
2854                     <EMPTY? VAC10 + TAG122>
2855                     <NTH1 VAC10 = STACK>
2856                     <REST1 VAC10 = VAC10>
2857                     <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
2858                     <JUMP + TAG132>
2859 TAG122
2860                     <CALL '\1aEMIT TEMP27 = TEMP28>
2861                     <DEAD TEMP27>
2862                     <RETURN TEMP28>
2863                     <DEAD TEMP28>
2864 PHRASE121
2865                     <TYPE? ADDR27 <TYPE-CODE VARTBL> - PHRASE136>
2866                     <FRAME '\1aEMIT>
2867                     <FRAME '\1aPICK-ARITH>
2868                     <PUSH INS4>
2869                     <DEAD INS4>
2870                     <PUSH STYPE19>
2871                     <DEAD STYPE19>
2872                     <PUSH 3>
2873                     <CALL '\1aPICK-ARITH 3 = STACK>
2874                     <TYPE? AMOUNT5 <TYPE-CODE FIX> - PHRASE140>
2875                     <FRAME '\1aMA-IMM>
2876                     <PUSH AMOUNT5>
2877                     <DEAD AMOUNT5>
2878                     <CALL '\1aMA-IMM 1 = TEMP27>
2879                     <JUMP + COND139>
2880 PHRASE140
2881                     <TYPE? AMOUNT5 <TYPE-CODE FLOAT> - PHRASE142>
2882                     <FRAME '\1aFLOAT-IMM>
2883                     <FRAME '\1aFLOATCONVERT>
2884                     <PUSH AMOUNT5>
2885                     <DEAD AMOUNT5>
2886                     <CALL '\1aFLOATCONVERT 1 = STACK>
2887                     <CALL '\1aFLOAT-IMM 1 = TEMP27>
2888                     <JUMP + COND139>
2889 PHRASE142
2890                     <TYPE? AMOUNT5 <TYPE-CODE VARTBL> - PHRASE145>
2891                     <FRAME '\1aVAR-VALUE-ADDRESS>
2892                     <PUSH AMOUNT5>
2893                     <DEAD AMOUNT5>
2894                     <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP27>
2895                     <JUMP + COND139>
2896 PHRASE145
2897                     <SET TEMP27 AMOUNT5>
2898                     <DEAD AMOUNT5>
2899 COND139
2900                     <PUSH TEMP27>
2901                     <DEAD TEMP27>
2902                     <SET VAC10 3 (TYPE FIX)>
2903                     <SET TEMP27 ADDR16>
2904                     <DEAD ADDR16>
2905                     <LOOP (TEMP27 TYPE VALUE LENGTH) (VAC10 VALUE)>
2906 TAG147
2907                     <INTGO>
2908                     <EMPTY? TEMP27 + TAG137>
2909                     <NTH1 TEMP27 = STACK>
2910                     <REST1 TEMP27 = TEMP27>
2911                     <ADD VAC10 1 = VAC10 (TYPE FIX)>
2912                     <JUMP + TAG147>
2913 TAG137
2914                     <FRAME '\1aVAR-VALUE-ADDRESS>
2915                     <PUSH ADDR27>
2916                     <DEAD ADDR27>
2917                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
2918                     <CALL '\1aEMIT VAC10 = TEMP28>
2919                     <DEAD VAC10>
2920                     <RETURN TEMP28>
2921                     <DEAD TEMP28>
2922 PHRASE136
2923                     <FRAME '\1aEMIT>
2924                     <FRAME '\1aPICK-ARITH>
2925                     <PUSH INS4>
2926                     <DEAD INS4>
2927                     <PUSH STYPE19>
2928                     <DEAD STYPE19>
2929                     <PUSH 3>
2930                     <CALL '\1aPICK-ARITH 3 = STACK>
2931                     <TYPE? AMOUNT5 <TYPE-CODE FIX> - PHRASE154>
2932                     <FRAME '\1aMA-IMM>
2933                     <PUSH AMOUNT5>
2934                     <DEAD AMOUNT5>
2935                     <CALL '\1aMA-IMM 1 = VAC10>
2936                     <JUMP + COND153>
2937 PHRASE154
2938                     <TYPE? AMOUNT5 <TYPE-CODE FLOAT> - PHRASE156>
2939                     <FRAME '\1aFLOAT-IMM>
2940                     <FRAME '\1aFLOATCONVERT>
2941                     <PUSH AMOUNT5>
2942                     <DEAD AMOUNT5>
2943                     <CALL '\1aFLOATCONVERT 1 = STACK>
2944                     <CALL '\1aFLOAT-IMM 1 = VAC10>
2945                     <JUMP + COND153>
2946 PHRASE156
2947                     <TYPE? AMOUNT5 <TYPE-CODE VARTBL> - PHRASE159>
2948                     <FRAME '\1aVAR-VALUE-ADDRESS>
2949                     <PUSH AMOUNT5>
2950                     <DEAD AMOUNT5>
2951                     <CALL '\1aVAR-VALUE-ADDRESS 1 = VAC10>
2952                     <JUMP + COND153>
2953 PHRASE159
2954                     <SET VAC10 AMOUNT5>
2955                     <DEAD AMOUNT5>
2956 COND153
2957                     <PUSH VAC10>
2958                     <DEAD VAC10>
2959                     <SET TEMP27 2 (TYPE FIX)>
2960                     <SET VAC10 ADDR16>
2961                     <DEAD ADDR16>
2962                     <LOOP (VAC10 TYPE VALUE LENGTH) (TEMP27 VALUE)>
2963 TAG161
2964                     <INTGO>
2965                     <EMPTY? VAC10 + TAG151>
2966                     <NTH1 VAC10 = STACK>
2967                     <REST1 VAC10 = VAC10>
2968                     <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
2969                     <JUMP + TAG161>
2970 TAG151
2971                     <SET VAC10 ADDR27>
2972                     <DEAD ADDR27>
2973                     <LOOP (VAC10 TYPE VALUE LENGTH) (TEMP27 VALUE)>
2974 TAG163
2975                     <INTGO>
2976                     <EMPTY? VAC10 + TAG162>
2977                     <NTH1 VAC10 = STACK>
2978                     <REST1 VAC10 = VAC10>
2979                     <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
2980                     <JUMP + TAG163>
2981 TAG162
2982                     <CALL '\1aEMIT TEMP27 = TEMP28>
2983                     <DEAD TEMP27>
2984                     <RETURN TEMP28>
2985                     <DEAD TEMP28>
2986                     <END \1aDO-ARITH>
2987
2988 <SETG ADDS [[,INST-INCB ,INST-INCW ,INST-INCL] [,INST-ADDB2 ,INST-ADDW2 ,INST-ADDL2] [,INST-ADDB3 ,INST-ADDW3 ,INST-ADDL3]]>
2989
2990 <SETG SUBS [[,INST-DECB ,INST-DECW ,INST-DECL] [,INST-SUBB2 ,INST-SUBW2 ,INST-SUBL2] [,INST-SUBB3 ,INST-SUBW3 ,INST-SUBL3]]>
2991
2992 <SETG MULS [[] [,INST-MULB2 ,INST-MULW2 ,INST-MULL2] [,INST-MULB3 ,INST-MULW3 ,INST-MULL3]]>
2993
2994 <SETG DIVS [[] [,INST-DIVB2 ,INST-DIVW2 ,INST-DIVL2] [,INST-DIVB3 ,INST-DIVW3 ,INST-DIVL3]]>
2995
2996 <SETG FLOAT-OPS [[] [,INST-ADDF2 ,INST-SUBF2 ,INST-MULF2 ,INST-DIVF2] [,INST-ADDF3 ,INST-SUBF3 ,INST-MULF3 ,INST-DIVF3]]>
2997
2998 <GDECL (LOGIC) VECTOR (FLOAT-OPS ADDS SUBS MULS DIVS) <VECTOR [REST VECTOR]>>
2999
3000 <SETG LOGIC '[AND!-MIMOP OR!-MIMOP XOR!-MIMOP EQV!-MIMOP]>
3001
3002 <SETG FLOATS '[ADDF!-MIMOP SUBF!-MIMOP MULF!-MIMOP DIVF!-MIMOP]>
3003
3004 #WORD *37057362232*
3005                     <GFCN \1aPICK-ARITH ("VALUE" ANY ATOM ATOM FIX) OP4 STYPE5 NUMOPS6>
3006                     <TEMP TEMP10 TV7:VECTOR TEMP20>
3007                     <INTGO>
3008                     <VEQUAL? OP4 'ADD!-MIMOP - PHRASE9>
3009                     <GVAL 'ADDS = TEMP10>
3010                     <NTHUV TEMP10 NUMOPS6 = TV7 (TYPE VECTOR)>
3011                     <DEAD TEMP10 NUMOPS6>
3012                     <JUMP + PHRASE14>
3013 PHRASE9
3014                     <VEQUAL? OP4 'SUB!-MIMOP - PHRASE11>
3015                     <GVAL 'SUBS = TEMP10>
3016                     <NTHUV TEMP10 NUMOPS6 = TV7 (TYPE VECTOR)>
3017                     <DEAD TEMP10 NUMOPS6>
3018                     <JUMP + PHRASE14>
3019 PHRASE11
3020                     <VEQUAL? OP4 'MUL!-MIMOP - PHRASE12>
3021                     <GVAL 'MULS = TEMP10>
3022                     <NTHUV TEMP10 NUMOPS6 = TV7 (TYPE VECTOR)>
3023                     <DEAD TEMP10 NUMOPS6>
3024                     <JUMP + PHRASE14>
3025 PHRASE12
3026                     <VEQUAL? OP4 'DIV!-MIMOP - PHRASE13>
3027                     <GVAL 'DIVS = TEMP10>
3028                     <NTHUV TEMP10 NUMOPS6 = TV7 (TYPE VECTOR)>
3029                     <DEAD TEMP10 NUMOPS6>
3030                     <JUMP + PHRASE14>
3031 PHRASE13
3032                     <GVAL 'FLOAT-OPS = TEMP10>
3033                     <NTHUV TEMP10 NUMOPS6 = TV7 (TYPE VECTOR)>
3034                     <DEAD TEMP10 NUMOPS6>
3035 PHRASE14
3036                     <GVAL 'FLOATS = TEMP10>
3037                     <EMPTY? TEMP10 + PHRASE16>
3038                     <LOOP (OP4 VALUE) (TEMP10 LENGTH VALUE TYPE)>
3039 TAG18
3040                     <NTH1 TEMP10 = TEMP20>
3041                     <TYPE? TEMP20 <TYPE-CODE ATOM> - TAG19>
3042                     <VEQUAL? TEMP20 OP4 + TAG17>
3043                     <DEAD TEMP20>
3044 TAG19
3045                     <REST1 TEMP10 = TEMP10>
3046                     <EMPTY? TEMP10 - TAG18>
3047                     <JUMP + PHRASE16>
3048 TAG17
3049                     <VEQUAL? OP4 'ADDF!-MIMOP - PHRASE22>
3050                     <NTHUV TV7 1 = TEMP10>
3051                     <DEAD TV7>
3052                     <RETURN TEMP10>
3053                     <DEAD TEMP10>
3054 PHRASE22
3055                     <VEQUAL? OP4 'SUBF!-MIMOP - PHRASE23>
3056                     <NTHUV TV7 2 = TEMP10>
3057                     <DEAD TV7>
3058                     <RETURN TEMP10>
3059                     <DEAD TEMP10>
3060 PHRASE23
3061                     <VEQUAL? OP4 'MULF!-MIMOP - PHRASE24>
3062                     <NTHUV TV7 3 = TEMP10>
3063                     <DEAD TV7>
3064                     <RETURN TEMP10>
3065                     <DEAD TEMP10>
3066 PHRASE24
3067                     <VEQUAL? OP4 'DIVF!-MIMOP + TAG26>
3068                     <DEAD OP4>
3069                     <RETURN %<>>
3070 TAG26
3071                     <NTHUV TV7 4 = TEMP10>
3072                     <DEAD TV7>
3073                     <RETURN TEMP10>
3074                     <DEAD TEMP10>
3075 PHRASE16
3076                     <SET TEMP20 [VECTOR UVECTOR LIST] (TYPE VECTOR)>
3077                     <LOOP (STYPE5 VALUE) (TEMP20 LENGTH VALUE)>
3078 TAG29
3079                     <NTHUV TEMP20 1 = TEMP10>
3080                     <VEQUAL? TEMP10 STYPE5 + TAG28>
3081                     <DEAD TEMP10>
3082                     <RESTUV TEMP20 1 = TEMP20 (TYPE VECTOR)>
3083                     <EMPUV? TEMP20 - TAG29>
3084                     <JUMP + PHRASE27>
3085 TAG28
3086                     <NTHUV TV7 3 = TEMP10>
3087                     <DEAD TV7>
3088                     <RETURN TEMP10>
3089                     <DEAD TEMP10>
3090 PHRASE27
3091                     <VEQUAL? STYPE5 'WORD - PHRASE32>
3092                     <DEAD STYPE5>
3093                     <NTHUV TV7 2 = TEMP10>
3094                     <DEAD TV7>
3095                     <RETURN TEMP10>
3096                     <DEAD TEMP10>
3097 PHRASE32
3098                     <NTHUV TV7 1 = TEMP10>
3099                     <DEAD TV7>
3100                     <RETURN TEMP10>
3101                     <DEAD TEMP10>
3102                     <END \1aPICK-ARITH>
3103
3104 #WORD *22506507732*
3105                     <GFCN \1aGET-ADDR ("VALUE" <TUPLE <LIST <OR EFF-ADDR LADDR>> [2 ANY]> <TUPLE [3 ANY]> ANY AC <OR FIX VARTBL> ATOM ANY "OPTIONAL" ANY ANY) TUP7 STRUC8 SAC9 OFFSET10 STYPE11 AINC?12 RIDXAC13 FULL?14>
3106                     <OPT-DISPATCH 6 %<> OPT4 OPT5 OPT6>
3107 OPT4
3108                     <PUSH %<>>
3109 OPT5
3110                     <PUSH %<>>
3111 OPT6
3112                     <TEMP TEMP25 IDXAC15 TEMP70>
3113                     <INTGO>
3114                     <VEQUAL? STYPE11 'LIST - PHRASE17>
3115                     <EQUAL? OFFSET10 1 + PHRASE17>
3116                     <TYPE? OFFSET10 <TYPE-CODE FIX> - PHRASE20>
3117                     <FRAME '\1aLIST-REST-CONSTANT-GEN>
3118                     <PUSH STRUC8>
3119                     <DEAD STRUC8>
3120                     <SUB OFFSET10 1 = STACK (TYPE FIX)>
3121                     <DEAD OFFSET10>
3122                     <CALL '\1aLIST-REST-CONSTANT-GEN 2 = SAC9>
3123                     <JUMP + COND19>
3124 PHRASE20
3125                     <FRAME '\1aLIST-REST-VAR-GEN>
3126                     <PUSH STRUC8>
3127                     <DEAD STRUC8>
3128                     <PUSH OFFSET10>
3129                     <DEAD OFFSET10>
3130                     <PUSH 'NTH>
3131                     <CALL '\1aLIST-REST-VAR-GEN 3 = SAC9>
3132 COND19
3133                     <SET OFFSET10 1 (TYPE FIX)>
3134 PHRASE17
3135                     <TYPE? AINC?12 <TYPE-CODE FALSE> + PHRASE24>
3136                     <DEAD AINC?12>
3137                     <NTHUV SAC9 2 = TEMP25 (TYPE FIX)>
3138                     <DEAD SAC9>
3139                     <OR TEMP25 #WORD *200* = TEMP25>
3140                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
3141                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = TEMP25>
3142                     <CONS TEMP25 () = TEMP25>
3143                     <PUTUV TUP7 1 TEMP25>
3144                     <DEAD TEMP25>
3145                     <RETURN TUP7>
3146                     <DEAD TUP7>
3147 PHRASE24
3148                     <TYPE? OFFSET10 <TYPE-CODE FIX> - PHRASE26>
3149                     <VEQUAL? OFFSET10 1 - PHRASE28 (TYPE FIX)>
3150                     <VEQUAL? STYPE11 'VECTOR + BOOL33>
3151                     <VEQUAL? STYPE11 'LIST - PHRASE32>
3152                     <DEAD STYPE11>
3153 BOOL33
3154                     <NTHUV SAC9 2 = TEMP25 (TYPE FIX)>
3155                     <OR TEMP25 #WORD *140* = TEMP25>
3156                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
3157                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = TEMP25>
3158                     <CONS TEMP25 () = TEMP25>
3159                     <PUTUV TUP7 4 TEMP25>
3160                     <DEAD TEMP25>
3161                     <FRAME '\1aMA-DISP>
3162                     <PUSH SAC9>
3163                     <PUSH 2>
3164                     <CALL '\1aMA-DISP 2 = TEMP25>
3165                     <CONS TEMP25 () = TEMP25>
3166                     <PUTUV TUP7 2 TEMP25>
3167                     <DEAD TEMP25>
3168                     <FRAME '\1aMA-DISP>
3169                     <PUSH SAC9>
3170                     <DEAD SAC9>
3171                     <PUSH 4>
3172                     <CALL '\1aMA-DISP 2 = TEMP25>
3173                     <CONS TEMP25 () = TEMP25>
3174                     <PUTUV TUP7 1 TEMP25>
3175                     <DEAD TEMP25>
3176                     <RETURN TUP7>
3177                     <DEAD TUP7>
3178 PHRASE32
3179                     <NTHUV SAC9 2 = TEMP25 (TYPE FIX)>
3180                     <DEAD SAC9>
3181                     <OR TEMP25 #WORD *140* = TEMP25>
3182                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
3183                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = TEMP25>
3184                     <CONS TEMP25 () = TEMP25>
3185                     <PUTUV TUP7 1 TEMP25>
3186                     <DEAD TEMP25>
3187                     <RETURN TUP7>
3188                     <DEAD TUP7>
3189 PHRASE28
3190                     <VEQUAL? STYPE11 'VECTOR - PHRASE39>
3191                     <FRAME '\1aMA-DISP>
3192                     <PUSH SAC9>
3193                     <SUB OFFSET10 1 = TEMP25 (TYPE FIX)>
3194                     <LSH TEMP25 3 = STACK (TYPE FIX)>
3195                     <DEAD TEMP25>
3196                     <CALL '\1aMA-DISP 2 = TEMP25>
3197                     <CONS TEMP25 () = TEMP25>
3198                     <PUTUV TUP7 4 TEMP25>
3199                     <DEAD TEMP25>
3200                     <FRAME '\1aMA-DISP>
3201                     <PUSH SAC9>
3202                     <SUB OFFSET10 1 = TEMP25 (TYPE FIX)>
3203                     <LSH TEMP25 3 = TEMP25 (TYPE FIX)>
3204                     <ADD TEMP25 2 = STACK (TYPE FIX)>
3205                     <DEAD TEMP25>
3206                     <CALL '\1aMA-DISP 2 = TEMP25>
3207                     <CONS TEMP25 () = TEMP25>
3208                     <PUTUV TUP7 2 TEMP25>
3209                     <DEAD TEMP25>
3210                     <FRAME '\1aMA-DISP>
3211                     <PUSH SAC9>
3212                     <DEAD SAC9>
3213                     <SUB OFFSET10 1 = TEMP25 (TYPE FIX)>
3214                     <DEAD OFFSET10>
3215                     <LSH TEMP25 3 = TEMP25 (TYPE FIX)>
3216                     <ADD TEMP25 4 = STACK (TYPE FIX)>
3217                     <DEAD TEMP25>
3218                     <CALL '\1aMA-DISP 2 = TEMP25>
3219                     <CONS TEMP25 () = TEMP25>
3220                     <PUTUV TUP7 1 TEMP25>
3221                     <DEAD TEMP25>
3222                     <RETURN TUP7>
3223                     <DEAD TUP7>
3224 PHRASE39
3225                     <VEQUAL? STYPE11 'UVECTOR - PHRASE43>
3226                     <DEAD STYPE11>
3227                     <FRAME '\1aMA-DISP>
3228                     <PUSH SAC9>
3229                     <DEAD SAC9>
3230                     <SUB OFFSET10 1 = TEMP25 (TYPE FIX)>
3231                     <DEAD OFFSET10>
3232                     <LSH TEMP25 2 = STACK (TYPE FIX)>
3233                     <DEAD TEMP25>
3234                     <CALL '\1aMA-DISP 2 = TEMP25>
3235                     <CONS TEMP25 () = TEMP25>
3236                     <PUTUV TUP7 1 TEMP25>
3237                     <DEAD TEMP25>
3238                     <RETURN TUP7>
3239                     <DEAD TUP7>
3240 PHRASE43
3241                     <FRAME '\1aMA-DISP>
3242                     <PUSH SAC9>
3243                     <DEAD SAC9>
3244                     <SUB OFFSET10 1 = STACK (TYPE FIX)>
3245                     <DEAD OFFSET10>
3246                     <CALL '\1aMA-DISP 2 = TEMP25>
3247                     <CONS TEMP25 () = TEMP25>
3248                     <PUTUV TUP7 1 TEMP25>
3249                     <DEAD TEMP25>
3250                     <RETURN TUP7>
3251                     <DEAD TUP7>
3252 PHRASE26
3253                     <TYPE? RIDXAC13 <TYPE-CODE FALSE> - PHRASE49>
3254                     <FRAME '\1aVAR-VALUE-IN-AC?>
3255                     <PUSH OFFSET10>
3256                     <CALL '\1aVAR-VALUE-IN-AC? 1 = IDXAC15>
3257                     <TYPE? IDXAC15 <TYPE-CODE FALSE> - PHRASE49>
3258                     <VEQUAL? STYPE11 'VECTOR - BOOL54>
3259                     <TYPE? FULL?14 <TYPE-CODE FALSE> + PHRASE53>
3260                     <DEAD FULL?14>
3261 BOOL54
3262                     <FRAME '\1aLOAD-VAR>
3263                     <PUSH OFFSET10>
3264                     <DEAD OFFSET10>
3265                     <PUSH 'VALUE>
3266                     <PUSH %<>>
3267                     <PUSH 'PREF-VAL>
3268                     <CALL '\1aLOAD-VAR 4 = IDXAC15>
3269                     <JUMP + PHRASE56>
3270 PHRASE53
3271                     <FRAME '\1aGET-AC>
3272                     <PUSH 'PREF-VAL>
3273                     <CALL '\1aGET-AC 1 = IDXAC15>
3274                     <FRAME '\1aEMIT>
3275                     <PUSH 120>
3276                     <FRAME '\1aMA-IMM>
3277                     <PUSH 1>
3278                     <CALL '\1aMA-IMM 1 = STACK>
3279                     <FRAME '\1aVAR-VALUE-ADDRESS>
3280                     <PUSH OFFSET10>
3281                     <DEAD OFFSET10>
3282                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
3283                     <NTHUV IDXAC15 2 = TEMP25 (TYPE FIX)>
3284                     <OR TEMP25 #WORD *120* = TEMP25>
3285                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
3286                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
3287                     <DEAD TEMP25>
3288                     <CALL '\1aEMIT 4>
3289 PHRASE56
3290                     <FRAME '\1aPROTECT-USE>
3291                     <PUSH IDXAC15>
3292                     <CALL '\1aPROTECT-USE 1>
3293                     <PUTUV TUP7 3 IDXAC15>
3294                     <JUMP + PHRASE62>
3295 PHRASE49
3296                     <TYPE? RIDXAC13 <TYPE-CODE FALSE> - PHRASE62>
3297                     <DEAD RIDXAC13>
3298                     <TYPE? FULL?14 <TYPE-CODE FALSE> - PHRASE62>
3299                     <DEAD FULL?14>
3300                     <VEQUAL? STYPE11 'VECTOR - PHRASE62>
3301                     <FRAME '\1aEMIT>
3302                     <PUSH 120>
3303                     <FRAME '\1aMA-IMM>
3304                     <PUSH 1>
3305                     <CALL '\1aMA-IMM 1 = STACK>
3306                     <NTHUV IDXAC15 2 = TEMP25 (TYPE FIX)>
3307                     <OR TEMP25 #WORD *120* = TEMP25>
3308                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
3309                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
3310                     <DEAD TEMP25>
3311                     <NTHUV IDXAC15 2 = TEMP25 (TYPE FIX)>
3312                     <OR TEMP25 #WORD *120* = TEMP25>
3313                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
3314                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
3315                     <DEAD TEMP25>
3316                     <CALL '\1aEMIT 4>
3317                     <FRAME '\1aMUNG-AC>
3318                     <PUSH IDXAC15>
3319                     <PUSH 'T>
3320                     <CALL '\1aMUNG-AC 2>
3321                     <PUTUV TUP7 3 IDXAC15>
3322 PHRASE62
3323                     <VEQUAL? STYPE11 'VECTOR - PHRASE68>
3324                     <NTHUV IDXAC15 2 = TEMP25 (TYPE FIX)>
3325                     <OR TEMP25 #WORD *100* = TEMP25>
3326                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
3327                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = TEMP25>
3328                     <CONS TEMP25 () = TEMP25>
3329                     <FRAME '\1aMA-DISP>
3330                     <PUSH SAC9>
3331                     <PUSH -8>
3332                     <CALL '\1aMA-DISP 2 = TEMP70>
3333                     <CONS TEMP70 () = TEMP70>
3334                     <PUTREST TEMP25 TEMP70>
3335                     <DEAD TEMP70>
3336                     <PUTUV TUP7 4 TEMP25>
3337                     <DEAD TEMP25>
3338                     <NTHUV IDXAC15 2 = TEMP25 (TYPE FIX)>
3339                     <OR TEMP25 #WORD *100* = TEMP25>
3340                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
3341                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = TEMP25>
3342                     <CONS TEMP25 () = TEMP25>
3343                     <FRAME '\1aMA-DISP>
3344                     <PUSH SAC9>
3345                     <PUSH -6>
3346                     <CALL '\1aMA-DISP 2 = TEMP70>
3347                     <CONS TEMP70 () = TEMP70>
3348                     <PUTREST TEMP25 TEMP70>
3349                     <DEAD TEMP70>
3350                     <PUTUV TUP7 2 TEMP25>
3351                     <DEAD TEMP25>
3352                     <NTHUV IDXAC15 2 = TEMP25 (TYPE FIX)>
3353                     <DEAD IDXAC15>
3354                     <OR TEMP25 #WORD *100* = TEMP25>
3355                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
3356                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = TEMP25>
3357                     <CONS TEMP25 () = TEMP25>
3358                     <FRAME '\1aMA-DISP>
3359                     <PUSH SAC9>
3360                     <DEAD SAC9>
3361                     <PUSH -4>
3362                     <CALL '\1aMA-DISP 2 = TEMP70>
3363                     <CONS TEMP70 () = TEMP70>
3364                     <PUTREST TEMP25 TEMP70>
3365                     <DEAD TEMP70>
3366                     <PUTUV TUP7 1 TEMP25>
3367                     <DEAD TEMP25>
3368                     <RETURN TUP7>
3369                     <DEAD TUP7>
3370 PHRASE68
3371                     <VEQUAL? STYPE11 'UVECTOR - PHRASE73>
3372                     <DEAD STYPE11>
3373                     <NTHUV IDXAC15 2 = TEMP25 (TYPE FIX)>
3374                     <DEAD IDXAC15>
3375                     <OR TEMP25 #WORD *100* = TEMP25>
3376                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
3377                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = TEMP25>
3378                     <CONS TEMP25 () = TEMP25>
3379                     <FRAME '\1aMA-DISP>
3380                     <PUSH SAC9>
3381                     <DEAD SAC9>
3382                     <PUSH -4>
3383                     <CALL '\1aMA-DISP 2 = TEMP70>
3384                     <CONS TEMP70 () = TEMP70>
3385                     <PUTREST TEMP25 TEMP70>
3386                     <DEAD TEMP70>
3387                     <PUTUV TUP7 1 TEMP25>
3388                     <DEAD TEMP25>
3389                     <RETURN TUP7>
3390                     <DEAD TUP7>
3391 PHRASE73
3392                     <NTHUV IDXAC15 2 = TEMP25 (TYPE FIX)>
3393                     <DEAD IDXAC15>
3394                     <OR TEMP25 #WORD *100* = TEMP25>
3395                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
3396                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = TEMP25>
3397                     <CONS TEMP25 () = TEMP25>
3398                     <FRAME '\1aMA-DISP>
3399                     <PUSH SAC9>
3400                     <DEAD SAC9>
3401                     <PUSH -1>
3402                     <CALL '\1aMA-DISP 2 = TEMP70>
3403                     <CONS TEMP70 () = TEMP70>
3404                     <PUTREST TEMP25 TEMP70>
3405                     <DEAD TEMP70>
3406                     <PUTUV TUP7 1 TEMP25>
3407                     <DEAD TEMP25>
3408                     <RETURN TUP7>
3409                     <DEAD TUP7>
3410                     <END \1aGET-ADDR>
3411
3412 \\f
3413
3414 #WORD *13731633355*
3415                     <GFCN \1aILDB-LOOKAHEAD ("VALUE" ANY <LIST [REST <OR ATOM FORM>]>) L4>
3416                     <TEMP TEMP7 TEMP14:LIST LL19:LIST FROB20 REST?22 PUT?23 INS21 TEMP43>
3417                     <INTGO>
3418                     <GVAL 'LOOKAHEAD? = TEMP7>
3419                     <TYPE? TEMP7 <TYPE-CODE FALSE> + MAPEX11>
3420                     <SET TEMP7 %<> (TYPE FALSE)>
3421                     <SET TEMP14 L4 (TYPE LIST)>
3422                     <DEAD L4>
3423                     <LOOP>
3424 MAP9
3425                     <INTGO>
3426                     <EMPL? TEMP14 + MAPAP12>
3427                     <SET LL19 TEMP14>
3428                     <NTHL LL19 1 = FROB20>
3429                     <SET REST?22 %<> (TYPE FALSE)>
3430                     <SET PUT?23 %<> (TYPE FALSE)>
3431                     <TYPE? FROB20 <TYPE-CODE FORM> + TAG28>
3432                     <SET TEMP7 %<> (TYPE FALSE)>
3433                     <JUMP + PHRASE46>
3434 TAG28
3435                     <FRAME '\1aGETPROP>
3436                     <PUSH FROB20>
3437                     <PUSH 'DONE>
3438                     <CALL '\1aGETPROP 2 = TEMP7>
3439                     <TYPE? TEMP7 <TYPE-CODE FALSE> + TAG32>
3440                     <DEAD TEMP7>
3441                     <SET TEMP7 %<> (TYPE FALSE)>
3442                     <JUMP + PHRASE46>
3443 TAG32
3444                     <NTHL FROB20 1 = INS21>
3445                     <EQUAL? INS21 'SETLR!-MIMOP - PHRASE34>
3446                     <RESTL LL19 1 = TEMP7 (TYPE LIST)>
3447                     <EMPL? TEMP7 - TAG38 (TYPE LIST)>
3448                     <DEAD TEMP7>
3449                     <SET TEMP7 %<> (TYPE FALSE)>
3450                     <JUMP + PHRASE46>
3451 TAG38
3452                     <RESTL LL19 1 = TEMP7 (TYPE LIST)>
3453                     <NTHL TEMP7 1 = REST?22>
3454                     <DEAD TEMP7>
3455                     <TYPE? REST?22 <TYPE-CODE FORM> + TAG39>
3456                     <SET TEMP7 %<> (TYPE FALSE)>
3457                     <JUMP + PHRASE46>
3458 TAG39
3459                     <NTHL REST?22 1 = TEMP7>
3460                     <EQUAL? TEMP7 'PUSH!-MIMOP + TAG41>
3461                     <DEAD TEMP7>
3462                     <SET TEMP7 %<> (TYPE FALSE)>
3463                     <JUMP + PHRASE46>
3464 TAG41
3465                     <RESTL REST?22 1 = TEMP7 (TYPE LIST)>
3466                     <NTHL TEMP7 1 = TEMP7>
3467                     <RESTL FROB20 1 = TEMP43 (TYPE LIST)>
3468                     <NTHL TEMP43 1 = TEMP43>
3469                     <EQUAL? TEMP7 TEMP43 + TAG42>
3470                     <DEAD TEMP7>
3471                     <SET TEMP7 %<> (TYPE FALSE)>
3472                     <JUMP + PHRASE46>
3473 TAG42
3474                     <FRAME '\1aWILL-DIE?>
3475                     <RESTL FROB20 1 = TEMP43 (TYPE LIST)>
3476                     <NTHL TEMP43 1 = STACK>
3477                     <DEAD TEMP43>
3478                     <RESTL LL19 1 = TEMP43 (TYPE LIST)>
3479                     <DEAD LL19>
3480                     <RESTL TEMP43 1 = STACK (TYPE LIST)>
3481                     <DEAD TEMP43>
3482                     <CALL '\1aWILL-DIE? 2 = TEMP7>
3483                     <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE46>
3484                     <RESTL FROB20 1 = TEMP43 (TYPE LIST)>
3485                     <DEAD FROB20>
3486                     <PUTL TEMP43 1 'STACK>
3487                     <DEAD TEMP43>
3488                     <FRAME '\1aPUTPROP>
3489                     <PUSH REST?22>
3490                     <DEAD REST?22>
3491                     <PUSH 'DONE>
3492                     <PUSH 'T>
3493                     <CALL '\1aPUTPROP 3 = TEMP7>
3494                     <JUMP + PHRASE46>
3495 PHRASE34
3496                     <GVAL 'RESTU = TEMP43>
3497                     <TYPE? INS21 <TYPE-CODE ATOM> - TAG49>
3498                     <EMPUV? TEMP43 + TAG49>
3499                     <LOOP (INS21 VALUE) (TEMP43 LENGTH VALUE)>
3500 TAG51
3501                     <NTHUV TEMP43 1 = TEMP7>
3502                     <VEQUAL? TEMP7 INS21 + TAG50>
3503                     <DEAD TEMP7>
3504                     <RESTUV TEMP43 1 = TEMP43 (TYPE VECTOR)>
3505                     <EMPUV? TEMP43 - TAG51>
3506 TAG49
3507                     <SET REST?22 %<> (TYPE FALSE)>
3508                     <JUMP + TAG53>
3509 TAG50
3510                     <SET REST?22 TEMP43>
3511                     <DEAD TEMP43>
3512 TAG53
3513                     <VEQUAL? REST?22 0 - TAG60>
3514                     <GVAL 'PUTU = TEMP43>
3515                     <TYPE? INS21 <TYPE-CODE ATOM> - TAG54>
3516                     <EMPUV? TEMP43 + TAG54>
3517                     <LOOP (INS21 VALUE) (TEMP43 LENGTH VALUE)>
3518 TAG56
3519                     <NTHUV TEMP43 1 = TEMP7>
3520                     <VEQUAL? TEMP7 INS21 + TAG55>
3521                     <DEAD TEMP7>
3522                     <RESTUV TEMP43 1 = TEMP43 (TYPE VECTOR)>
3523                     <EMPUV? TEMP43 - TAG56>
3524 TAG54
3525                     <SET PUT?23 %<> (TYPE FALSE)>
3526                     <JUMP + TAG58>
3527 TAG55
3528                     <SET PUT?23 TEMP43>
3529                     <DEAD TEMP43>
3530 TAG58
3531                     <VEQUAL? PUT?23 0 - TAG60>
3532                     <GVAL 'NTHU = TEMP7>
3533                     <TYPE? INS21 <TYPE-CODE ATOM> - TAG59>
3534                     <EMPUV? TEMP7 + TAG59>
3535                     <LOOP (INS21 VALUE) (TEMP7 LENGTH VALUE)>
3536 TAG61
3537                     <NTHUV TEMP7 1 = TEMP43>
3538                     <VEQUAL? TEMP43 INS21 + TAG60>
3539                     <DEAD TEMP43>
3540                     <RESTUV TEMP7 1 = TEMP7 (TYPE VECTOR)>
3541                     <EMPUV? TEMP7 - TAG61>
3542 TAG59
3543                     <SET TEMP7 %<> (TYPE FALSE)>
3544                     <JUMP + PHRASE46>
3545 TAG60
3546                     <RESTL FROB20 1 = TEMP43 (TYPE LIST)>
3547                     <DEAD FROB20>
3548                     <RESTL TEMP43 1 = TEMP43 (TYPE LIST)>
3549                     <NTHL TEMP43 1 = TEMP43>
3550                     <EQUAL? TEMP43 1 + TAG63>
3551                     <DEAD TEMP43>
3552                     <SET TEMP7 %<> (TYPE FALSE)>
3553                     <JUMP + PHRASE46>
3554 TAG63
3555                     <FRAME '\1aILDB-LOOKAHEAD-ONE>
3556                     <PUSH LL19>
3557                     <DEAD LL19>
3558                     <PUSH REST?22>
3559                     <DEAD REST?22>
3560                     <PUSH PUT?23>
3561                     <DEAD PUT?23>
3562                     <CALL '\1aILDB-LOOKAHEAD-ONE 3 = TEMP7>
3563 PHRASE46
3564                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
3565                     <JUMP + MAP9>
3566 MAPAP12
3567 MAPEX11
3568                     <RETURN TEMP7>
3569                     <DEAD TEMP7>
3570                     <END \1aILDB-LOOKAHEAD>
3571
3572 #WORD *20406063640*
3573                     <GFCN \1aILDB-LOOKAHEAD-ONE ("VALUE" <OR ATOM FALSE> <LIST [REST <OR ATOM FORM>]> ANY ANY) L4 REST?5 PUT?6>
3574                     <TEMP OP-INFO7 ARGVEC8:VECTOR TEMP15 OTHOP12 PUTOP13 STRUC9 RES10 TEMP26 TEMP28:LIST TEMP40 TEMP48 TEMP52 TEMP59>
3575                     <INTGO>
3576                     <GVAL 'OP-INFO = OP-INFO7>
3577                     <NTHUV OP-INFO7 1 = ARGVEC8 (TYPE VECTOR)>
3578                     <FRAME '\1aPARSE-OP>
3579                     <NTHL L4 1 = STACK (TYPE FORM)>
3580                     <PUSH OP-INFO7>
3581                     <CALL '\1aPARSE-OP 2>
3582                     <NTHL L4 1 = TEMP15>
3583                     <NTH1 TEMP15 = TEMP15>
3584                     <FRAME '\1aGETPROP>
3585                     <PUSH TEMP15>
3586                     <PUSH 'PAIR>
3587                     <CALL '\1aGETPROP 2 = OTHOP12>
3588                     <FRAME '\1aGETPROP>
3589                     <PUSH TEMP15>
3590                     <PUSH 'PUT-PAIR>
3591                     <CALL '\1aGETPROP 2 = PUTOP13>
3592                     <NTHUV ARGVEC8 1 = STRUC9>
3593                     <NTHUV OP-INFO7 2 = RES10>
3594                     <SET TEMP26 %<> (TYPE FALSE)>
3595                     <RESTL L4 1 = TEMP28 (TYPE LIST)>
3596                     <LOOP>
3597 MAP19
3598                     <INTGO>
3599                     <EMPL? TEMP28 + MAPAP22>
3600                     <SET TEMP26 TEMP28>
3601                     <NTHL TEMP26 1 = TEMP26>
3602                     <TYPE? TEMP26 <TYPE-CODE ATOM> - PHRASE34>
3603                     <RETURN 'T>
3604 PHRASE34
3605                     <NTHL TEMP26 1 = TEMP40>
3606                     <EQUAL? TEMP40 OTHOP12 + BOOL39>
3607                     <DEAD TEMP40>
3608                     <TYPE? PUT?6 <TYPE-CODE FALSE> - BOOL42>
3609                     <TYPE? REST?5 <TYPE-CODE FALSE> + PHRASE37>
3610 BOOL42
3611                     <NTHL TEMP26 1 = TEMP40>
3612                     <EQUAL? TEMP40 PUTOP13 - PHRASE37>
3613                     <DEAD TEMP40>
3614 BOOL39
3615                     <RESTL TEMP26 1 = TEMP40 (TYPE LIST)>
3616                     <NTHL TEMP40 1 = TEMP40>
3617                     <EQUAL? TEMP40 STRUC9 - PHRASE37>
3618                     <DEAD TEMP40>
3619                     <RESTL TEMP26 1 = TEMP40 (TYPE LIST)>
3620                     <RESTL TEMP40 1 = TEMP40 (TYPE LIST)>
3621                     <NTHL TEMP40 1 = TEMP40>
3622                     <EQUAL? TEMP40 1 - PHRASE37>
3623                     <DEAD TEMP40>
3624                     <GVAL 'RESTU = TEMP40>
3625                     <TYPE? TEMP15 <TYPE-CODE ATOM> - PHRASE44>
3626                     <EMPUV? TEMP40 + PHRASE44>
3627                     <LOOP (TEMP15 VALUE) (TEMP40 LENGTH VALUE)>
3628 TAG46
3629                     <NTHUV TEMP40 1 = TEMP48>
3630                     <VEQUAL? TEMP48 TEMP15 + TAG45>
3631                     <DEAD TEMP48>
3632                     <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
3633                     <EMPUV? TEMP40 - TAG46>
3634                     <JUMP + PHRASE44>
3635 TAG45
3636                     <NTHR TEMP15 3 = TEMP40 (RECORD-TYPE ATOM)>
3637                     <DEAD TEMP15>
3638                     <RESTUS TEMP40 4 = TEMP15 (TYPE STRING)>
3639                     <DEAD TEMP40>
3640                     <JUMP + COND43>
3641 PHRASE44
3642                     <NTHR TEMP15 3 = TEMP40 (RECORD-TYPE ATOM)>
3643                     <DEAD TEMP15>
3644                     <RESTUS TEMP40 3 = TEMP15 (TYPE STRING)>
3645                     <DEAD TEMP40>
3646 COND43
3647                     <IFCAN "STRING-EQUAL?">
3648                     <STRING-EQUAL? TEMP15 "UV" - PHRASE50>
3649                     <ENDIF "STRING-EQUAL?">
3650                     <IFCANNOT "STRING-EQUAL?">
3651                     <SET TEMP40 TEMP15>
3652                     <SET TEMP48 "UV" (TYPE STRING)>
3653                     <LENUS TEMP40 = OTHOP12 (TYPE FIX)>
3654                     <VEQUAL? OTHOP12 2 - PHRASE50>
3655                     <LOOP (TEMP40 VALUE LENGTH) (TEMP48 VALUE LENGTH) (OTHOP12 VALUE)>
3656 TAG54
3657                     <NTHUS TEMP40 1 = TEMP52>
3658                     <NTHUS TEMP48 1 = PUTOP13>
3659                     <VEQUAL? TEMP52 PUTOP13 - PHRASE50>
3660                     <DEAD TEMP52>
3661                     <RESTUS TEMP40 1 = TEMP40 (TYPE STRING)>
3662                     <RESTUS TEMP48 1 = TEMP48 (TYPE STRING)>
3663                     <SUB OTHOP12 1 = OTHOP12 (TYPE FIX)>
3664                     <GRTR? OTHOP12 0 + TAG54 (TYPE FIX)>
3665                     <ENDIF "STRING-EQUAL?">
3666                     <SET TEMP15 (STRUCTURE-TYPE VECTOR) (TYPE LIST)>
3667                     <JUMP + PHRASE61>
3668 PHRASE50
3669                     <IFCAN "STRING-EQUAL?">
3670                     <STRING-EQUAL? TEMP15 "UU" - PHRASE55>
3671                     <ENDIF "STRING-EQUAL?">
3672                     <IFCANNOT "STRING-EQUAL?">
3673                     <SET TEMP48 TEMP15>
3674                     <SET TEMP40 "UU" (TYPE STRING)>
3675                     <LENUS TEMP48 = PUTOP13 (TYPE FIX)>
3676                     <VEQUAL? PUTOP13 2 - PHRASE55>
3677                     <LOOP (TEMP48 VALUE LENGTH) (TEMP40 VALUE LENGTH) (PUTOP13 VALUE)>
3678 TAG57
3679                     <NTHUS TEMP48 1 = TEMP52>
3680                     <NTHUS TEMP40 1 = OTHOP12>
3681                     <VEQUAL? TEMP52 OTHOP12 - PHRASE55>
3682                     <DEAD TEMP52>
3683                     <RESTUS TEMP48 1 = TEMP48 (TYPE STRING)>
3684                     <RESTUS TEMP40 1 = TEMP40 (TYPE STRING)>
3685                     <SUB PUTOP13 1 = PUTOP13 (TYPE FIX)>
3686                     <GRTR? PUTOP13 0 + TAG57 (TYPE FIX)>
3687                     <ENDIF "STRING-EQUAL?">
3688                     <SET TEMP15 (STRUCTURE-TYPE UVECTOR) (TYPE LIST)>
3689                     <JUMP + PHRASE61>
3690 PHRASE55
3691                     <IFCAN "STRING-EQUAL?">
3692                     <STRING-EQUAL? TEMP15 "US" - PHRASE58>
3693                     <ENDIF "STRING-EQUAL?">
3694                     <IFCANNOT "STRING-EQUAL?">
3695                     <SET TEMP40 TEMP15>
3696                     <DEAD TEMP15>
3697                     <SET TEMP48 "US" (TYPE STRING)>
3698                     <LENUS TEMP40 = OTHOP12 (TYPE FIX)>
3699                     <VEQUAL? OTHOP12 2 - PHRASE58>
3700                     <LOOP (TEMP40 VALUE LENGTH) (TEMP48 VALUE LENGTH) (OTHOP12 VALUE)>
3701 TAG60
3702                     <NTHUS TEMP40 1 = TEMP52>
3703                     <NTHUS TEMP48 1 = TEMP59>
3704                     <VEQUAL? TEMP52 TEMP59 - PHRASE58>
3705                     <DEAD TEMP52 TEMP59>
3706                     <RESTUS TEMP40 1 = TEMP40 (TYPE STRING)>
3707                     <RESTUS TEMP48 1 = TEMP48 (TYPE STRING)>
3708                     <SUB OTHOP12 1 = OTHOP12 (TYPE FIX)>
3709                     <GRTR? OTHOP12 0 + TAG60 (TYPE FIX)>
3710                     <ENDIF "STRING-EQUAL?">
3711                     <SET TEMP15 (STRUCTURE-TYPE STRING) (TYPE LIST)>
3712                     <JUMP + PHRASE61>
3713 PHRASE58
3714                     <SET TEMP15 (STRUCTURE-TYPE BYTES) (TYPE LIST)>
3715 PHRASE61
3716                     <FRAME '\1aPARSE-OP>
3717                     <PUSH TEMP26>
3718                     <PUSH OP-INFO7>
3719                     <CALL '\1aPARSE-OP 2>
3720                     <TYPE? PUT?6 <TYPE-CODE FALSE> - TAG66>
3721                     <NTHL TEMP26 1 = TEMP48>
3722                     <GVAL 'PUTU = TEMP40>
3723                     <TYPE? TEMP48 <TYPE-CODE ATOM> - PHRASE64>
3724                     <EMPUV? TEMP40 + PHRASE64>
3725                     <LOOP (TEMP48 VALUE) (TEMP40 LENGTH VALUE)>
3726 TAG67
3727                     <NTHUV TEMP40 1 = TEMP59>
3728                     <VEQUAL? TEMP59 TEMP48 + TAG66>
3729                     <DEAD TEMP59>
3730                     <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
3731                     <EMPUV? TEMP40 - TAG67>
3732                     <JUMP + PHRASE64>
3733 TAG66
3734                     <FRAME '\1aFORM>
3735                     <PUSH 'IDPB!-MIMOP>
3736                     <PUSH STRUC9>
3737                     <DEAD STRUC9>
3738                     <TYPE? PUT?6 <TYPE-CODE FALSE> + PHRASE71>
3739                     <FRAME '\1aNTH>
3740                     <NTHL L4 1 = STACK>
3741                     <PUSH 4>
3742                     <CALL '\1aNTH 2 = TEMP40>
3743                     <JUMP + COND70>
3744 PHRASE71
3745                     <NTHUV ARGVEC8 3 = TEMP40>
3746                     <DEAD ARGVEC8>
3747 COND70
3748                     <PUSH TEMP40>
3749                     <DEAD TEMP40>
3750                     <TYPE? PUT?6 <TYPE-CODE FALSE> + PHRASE74>
3751                     <DEAD PUT?6>
3752                     <NTHUV OP-INFO7 2 = TEMP40>
3753                     <DEAD OP-INFO7>
3754                     <JUMP + COND73>
3755 PHRASE74
3756                     <SET TEMP40 RES10>
3757                     <DEAD RES10>
3758 COND73
3759                     <PUSH TEMP40>
3760                     <DEAD TEMP40>
3761                     <PUSH TEMP15>
3762                     <DEAD TEMP15>
3763                     <CALL '\1aFORM 5 = TEMP40>
3764                     <PUTL L4 1 TEMP40>
3765                     <DEAD L4 TEMP40>
3766                     <FRAME '\1aPUTPROP>
3767                     <PUSH TEMP26>
3768                     <DEAD TEMP26>
3769                     <PUSH 'DONE>
3770                     <PUSH 'T>
3771                     <CALL '\1aPUTPROP 3>
3772                     <RETURN 'T>
3773 PHRASE64
3774                     <FRAME '\1aFORM>
3775                     <PUSH 'ILDB!-MIMOP>
3776                     <PUSH STRUC9>
3777                     <DEAD STRUC9>
3778                     <TYPE? REST?5 <TYPE-CODE FALSE> + PHRASE79>
3779                     <NTHUV OP-INFO7 2 = TEMP40>
3780                     <JUMP + COND78>
3781 PHRASE79
3782                     <SET TEMP40 RES10>
3783 COND78
3784                     <PUSH TEMP40>
3785                     <DEAD TEMP40>
3786                     <TYPE? REST?5 <TYPE-CODE FALSE> + PHRASE81>
3787                     <DEAD REST?5>
3788                     <SET TEMP40 RES10>
3789                     <DEAD RES10>
3790                     <JUMP + COND80>
3791 PHRASE81
3792                     <NTHUV OP-INFO7 2 = TEMP40>
3793                     <DEAD OP-INFO7>
3794 COND80
3795                     <PUSH TEMP40>
3796                     <DEAD TEMP40>
3797                     <PUSH TEMP15>
3798                     <DEAD TEMP15>
3799                     <CALL '\1aFORM 5 = TEMP40>
3800                     <PUTL L4 1 TEMP40>
3801                     <DEAD L4 TEMP40>
3802                     <FRAME '\1aPUTPROP>
3803                     <PUSH TEMP26>
3804                     <DEAD TEMP26>
3805                     <PUSH 'DONE>
3806                     <PUSH 'T>
3807                     <CALL '\1aPUTPROP 3>
3808                     <RETURN 'T>
3809 PHRASE37
3810                     <SET TEMP48 TEMP26>
3811                     <TYPE STRUC9 = TEMP59>
3812                     <LOOP (STRUC9 VALUE) (TEMP59 VALUE) (TEMP48 VALUE)>
3813 TAG86
3814                     <NTHL TEMP48 1 = TEMP52>
3815                     <TYPE? TEMP52 TEMP59 - TAG87>
3816                     <VEQUAL? TEMP52 STRUC9 + BOOL84>
3817                     <DEAD TEMP52>
3818 TAG87
3819                     <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
3820                     <EMPL? TEMP48 - TAG86>
3821                     <SET TEMP48 TEMP26>
3822                     <LOOP (TEMP48 VALUE)>
3823 TAG89
3824                     <NTHL TEMP48 1 = TEMP59>
3825                     <TYPE? TEMP59 <TYPE-CODE ATOM> - TAG90>
3826                     <VEQUAL? TEMP59 '+ + BOOL84>
3827                     <DEAD TEMP59>
3828 TAG90
3829                     <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
3830                     <EMPL? TEMP48 - TAG89>
3831                     <SET TEMP48 TEMP26>
3832                     <LOOP (TEMP48 VALUE)>
3833 TAG92
3834                     <NTHL TEMP48 1 = TEMP59>
3835                     <TYPE? TEMP59 <TYPE-CODE ATOM> - TAG93>
3836                     <VEQUAL? TEMP59 '- + BOOL84>
3837                     <DEAD TEMP59>
3838 TAG93
3839                     <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
3840                     <EMPL? TEMP48 - TAG92>
3841                     <FRAME '\1aPARSE-OP>
3842                     <PUSH TEMP26>
3843                     <DEAD TEMP26>
3844                     <PUSH OP-INFO7>
3845                     <CALL '\1aPARSE-OP 2>
3846                     <NTHUV OP-INFO7 4 = TEMP26>
3847                     <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE83>
3848 BOOL84
3849                     <RETURN 'T>
3850 PHRASE83
3851                     <RESTL TEMP28 1 = TEMP28 (TYPE LIST)>
3852                     <JUMP + MAP19>
3853 MAPAP22
3854                     <RETURN TEMP26>
3855                     <DEAD TEMP26>
3856                     <END \1aILDB-LOOKAHEAD-ONE>
3857
3858 "Generate ILDB/IDPB-like stuff.  Call with NTH/PUT inst, structure,
3859  result of nth/put, result of rest, flag, new value for put"
3860
3861 #WORD *34270440762*
3862                     <GFCN \1aIDPB-GEN ("VALUE" ATOM ANY ANY ANY ANY) STRUC4 ELVAL5 STRES6 HINT7>
3863                     <TEMP TEMP9:ATOM>
3864                     <INTGO>
3865                     <FRAME '\1aILDB-GEN>
3866                     <PUSH STRUC4>
3867                     <DEAD STRUC4>
3868                     <PUSH ELVAL5>
3869                     <DEAD ELVAL5>
3870                     <PUSH STRES6>
3871                     <DEAD STRES6>
3872                     <PUSH HINT7>
3873                     <DEAD HINT7>
3874                     <PUSH 'T>
3875                     <CALL '\1aILDB-GEN 5 = TEMP9>
3876                     <RETURN TEMP9>
3877                     <DEAD TEMP9>
3878                     <END \1aIDPB-GEN>
3879
3880 #WORD *22623136231*
3881                     <GFCN \1aILDB-GEN ("VALUE" ATOM VARTBL ANY ANY ANY "OPTIONAL" ANY) STRUC6 ELVAL7 STRES8 HINT9 PUT?10>
3882                     <OPT-DISPATCH 4 %<> OPT4 OPT5>
3883 OPT4
3884                     <PUSH %<>>
3885 OPT5
3886                     <TEMP (ELTAC15 %<>) (DOUBLE?16 %<>) (NO-TYPE?21 %<>) TEMP28 VINS12:FIX EHINT11 TEMP46 VAC19 ELAC14>
3887                     <INTGO>
3888                     <TYPE? ELVAL7 <TYPE-CODE ATOM> + TAG26>
3889                     <TYPE? ELVAL7 <TYPE-CODE VARTBL> - PHRASE24>
3890 TAG26
3891                     <FRAME '\1aNTH-LOOK-AHEAD>
3892                     <PUSH 'ILDB!-MIMOP>
3893                     <PUSH STRUC6>
3894                     <PUSH STRES8>
3895                     <PUSH ELVAL7>
3896                     <PUSH %<>>
3897                     <PUSH HINT9>
3898                     <CALL '\1aNTH-LOOK-AHEAD 6 = TEMP28>
3899                     <TYPE? TEMP28 <TYPE-CODE FALSE> + PHRASE24>
3900                     <DEAD TEMP28>
3901                     <RETURN 'NORMAL>
3902 PHRASE24
3903                     <FRAME '\1aPARSE-HINT>
3904                     <PUSH HINT9>
3905                     <DEAD HINT9>
3906                     <PUSH 'STRUCTURE-TYPE>
3907                     <CALL '\1aPARSE-HINT 2 = HINT9>
3908                     <EQUAL? HINT9 'VECTOR - PHRASE31>
3909                     <SET DOUBLE?16 'T (TYPE ATOM)>
3910                     <SET VINS12 125 (TYPE FIX)>
3911                     <SET EHINT11 %<> (TYPE FALSE)>
3912                     <JUMP + COND37>
3913 PHRASE31
3914                     <EQUAL? HINT9 'UVECTOR - PHRASE32>
3915                     <SET VINS12 208 (TYPE FIX)>
3916                     <SET EHINT11 'FIX (TYPE ATOM)>
3917                     <JUMP + COND37>
3918 PHRASE32
3919                     <EQUAL? HINT9 'BYTES - PHRASE33>
3920                     <SET EHINT11 'FIX (TYPE ATOM)>
3921                     <TYPE? PUT?10 <TYPE-CODE FALSE> + PHRASE35>
3922                     <SET VINS12 144 (TYPE FIX)>
3923                     <JUMP + COND37>
3924 PHRASE35
3925                     <SET VINS12 154 (TYPE FIX)>
3926                     <JUMP + COND37>
3927 PHRASE33
3928                     <EQUAL? HINT9 'STRING - COND37>
3929                     <DEAD HINT9>
3930                     <SET EHINT11 'CHARACTER (TYPE ATOM)>
3931                     <TYPE? PUT?10 <TYPE-CODE FALSE> + PHRASE38>
3932                     <SET VINS12 144 (TYPE FIX)>
3933                     <JUMP + COND37>
3934 PHRASE38
3935                     <SET VINS12 154 (TYPE FIX)>
3936 COND37
3937                     <FRAME '\1aVAR-VALUE-IN-AC?>
3938                     <PUSH STRUC6>
3939                     <CALL '\1aVAR-VALUE-IN-AC? 1 = TEMP28>
3940                     <TYPE? TEMP28 <TYPE-CODE FALSE> - PHRASE40>
3941                     <FRAME '\1aLOAD-VAR>
3942                     <PUSH STRUC6>
3943                     <PUSH 'VALUE>
3944                     <PUSH %<>>
3945                     <PUSH 'PREF-VAL>
3946                     <CALL '\1aLOAD-VAR 4 = TEMP28>
3947 PHRASE40
3948                     <FRAME '\1aPROTECT>
3949                     <PUSH TEMP28>
3950                     <CALL '\1aPROTECT 1>
3951                     <GVAL 'AC-0 = TEMP46>
3952                     <EQUAL? TEMP46 TEMP28 + PHRASE45>
3953                     <DEAD TEMP46>
3954                     <FRAME '\1aPROTECT>
3955                     <FRAME '\1aPREV-AC>
3956                     <PUSH TEMP28>
3957                     <DEAD TEMP28>
3958                     <CALL '\1aPREV-AC 1 = STACK>
3959                     <CALL '\1aPROTECT 1>
3960 PHRASE45
3961                     <TYPE? PUT?10 <TYPE-CODE FALSE> + PHRASE50>
3962                     <TYPE? ELVAL7 <TYPE-CODE VARTBL> - PHRASE52>
3963                     <FRAME '\1aFIND-CACHE-VAR>
3964                     <PUSH ELVAL7>
3965                     <CALL '\1aFIND-CACHE-VAR 1 = ELTAC15>
3966                     <TYPE? ELTAC15 <TYPE-CODE FALSE> + PHRASE54>
3967                     <VEQUAL? DOUBLE?16 0 + PHRASE57>
3968                     <NTHUV ELTAC15 9 = TEMP28>
3969                     <JUMP + COND56>
3970 PHRASE57
3971                     <SET TEMP28 %<> (TYPE FALSE)>
3972 COND56
3973                     <NTHUV ELTAC15 6 = VAC19>
3974                     <VEQUAL? DOUBLE?16 0 + BOOL60>
3975                     <TYPE? VAC19 <TYPE-CODE FALSE> + BOOL61>
3976                     <TYPE? TEMP28 <TYPE-CODE FALSE> + BOOL61>
3977                     <FRAME '\1aNEXT-AC>
3978                     <PUSH TEMP28>
3979                     <CALL '\1aNEXT-AC 1 = TEMP46>
3980                     <EQUAL? VAC19 TEMP46 + BOOL60>
3981                     <DEAD TEMP46>
3982 BOOL61
3983                     <TYPE? VAC19 <TYPE-CODE FALSE> - PHRASE59>
3984                     <TYPE? TEMP28 <TYPE-CODE FALSE> - PHRASE59>
3985 BOOL60
3986                     <VEQUAL? DOUBLE?16 0 + PHRASE65>
3987                     <FRAME '\1aVAR-TYPE-ADDRESS>
3988                     <PUSH ELVAL7>
3989                     <CALL '\1aVAR-TYPE-ADDRESS 1 = VAC19>
3990                     <JUMP + PHRASE120>
3991 PHRASE65
3992                     <FRAME '\1aVAR-VALUE-ADDRESS>
3993                     <PUSH ELVAL7>
3994                     <CALL '\1aVAR-VALUE-ADDRESS 1 = VAC19>
3995                     <JUMP + PHRASE120>
3996 PHRASE59
3997                     <TYPE? TEMP28 <TYPE-CODE FALSE> + BOOL71>
3998                     <NTHUV ELTAC15 4 = TEMP46>
3999                     <TYPE? TEMP46 <TYPE-CODE FALSE> + PHRASE69>
4000                     <DEAD TEMP46>
4001 BOOL71
4002                     <TYPE? VAC19 <TYPE-CODE FALSE> + BOOL72>
4003                     <DEAD VAC19>
4004                     <NTHUV ELTAC15 2 = TEMP46>
4005                     <TYPE? TEMP46 <TYPE-CODE FALSE> + PHRASE69>
4006                     <DEAD TEMP46>
4007 BOOL72
4008                     <FRAME '\1aADDR-VAR-TYPE>
4009                     <PUSH ELVAL7>
4010                     <CALL '\1aADDR-VAR-TYPE 1 = VAC19>
4011                     <JUMP + PHRASE120>
4012 PHRASE69
4013                     <TYPE? ELTAC15 <TYPE-CODE FALSE> + PHRASE76>
4014                     <NTHUV ELTAC15 4 = TEMP46>
4015                     <DEAD ELTAC15>
4016                     <TYPE? TEMP46 <TYPE-CODE FALSE> - PHRASE76>
4017                     <DEAD TEMP46>
4018                     <TYPE? TEMP28 <TYPE-CODE FALSE> - PHRASE76>
4019                     <DEAD TEMP28>
4020                     <FRAME '\1aVARTBL-DECL>
4021                     <PUSH ELVAL7>
4022                     <CALL '\1aVARTBL-DECL 1 = TEMP46>
4023                     <TYPE? TEMP46 <TYPE-CODE FALSE> + PHRASE76>
4024                     <DEAD TEMP46>
4025                     <FRAME '\1aTYPE-WORD>
4026                     <FRAME '\1aVARTBL-DECL>
4027                     <PUSH ELVAL7>
4028                     <CALL '\1aVARTBL-DECL 1 = STACK>
4029                     <CALL '\1aTYPE-WORD 1 = NO-TYPE?21>
4030                     <JUMP + PHRASE81>
4031 PHRASE76
4032                     <FRAME '\1aVAR-TYPE-ADDRESS>
4033                     <PUSH ELVAL7>
4034                     <CALL '\1aVAR-TYPE-ADDRESS 1 = NO-TYPE?21>
4035 PHRASE81
4036                     <FRAME '\1aVAR-VALUE-ADDRESS>
4037                     <PUSH ELVAL7>
4038                     <CALL '\1aVAR-VALUE-ADDRESS 1 = VAC19>
4039                     <JUMP + PHRASE120>
4040 PHRASE54
4041                     <VEQUAL? DOUBLE?16 0 + PHRASE84>
4042                     <FRAME '\1aVAR-TYPE-ADDRESS>
4043                     <PUSH ELVAL7>
4044                     <CALL '\1aVAR-TYPE-ADDRESS 1 = VAC19>
4045                     <JUMP + PHRASE120>
4046 PHRASE84
4047                     <FRAME '\1aVAR-VALUE-ADDRESS>
4048                     <PUSH ELVAL7>
4049                     <CALL '\1aVAR-VALUE-ADDRESS 1 = VAC19>
4050                     <JUMP + PHRASE120>
4051 PHRASE52
4052                     <VEQUAL? DOUBLE?16 0 + PHRASE87>
4053                     <FRAME '\1aADDR-TYPE-MQUOTE>
4054                     <PUSH ELVAL7>
4055                     <CALL '\1aADDR-TYPE-MQUOTE 1 = VAC19>
4056                     <JUMP + PHRASE120>
4057 PHRASE87
4058                     <FRAME '\1aMA-IMM>
4059                     <PUSH ELVAL7>
4060                     <CALL '\1aMA-IMM 1 = VAC19>
4061                     <JUMP + PHRASE120>
4062 PHRASE50
4063                     <EQUAL? ELVAL7 'STACK - PHRASE90>
4064                     <VEQUAL? DOUBLE?16 0 - PHRASE92>
4065                     <FRAME '\1aEMIT-PUSH>
4066                     <FRAME '\1aTYPE-WORD>
4067                     <PUSH EHINT11>
4068                     <CALL '\1aTYPE-WORD 1 = STACK>
4069                     <PUSH 'LONG>
4070                     <CALL '\1aEMIT-PUSH 2>
4071 PHRASE92
4072                     <GVAL 'AC-TP = TEMP46>
4073                     <NTHUV TEMP46 2 = TEMP46 (TYPE FIX)>
4074                     <OR TEMP46 #WORD *200* = TEMP46>
4075                     <LSH TEMP46 24 = TEMP46 (TYPE FIX)>
4076                     <CHTYPE TEMP46 <TYPE-CODE EFF-ADDR> = ELAC14>
4077                     <DEAD TEMP46>
4078                     <JUMP + PHRASE120>
4079 PHRASE90
4080                     <EQUAL? ELVAL7 STRUC6 - PHRASE95>
4081                     <VEQUAL? DOUBLE?16 0 + PHRASE97>
4082                     <FRAME '\1aGET-AC>
4083                     <PUSH 'DOUBLE>
4084                     <PUSH 'T>
4085                     <CALL '\1aGET-AC 2 = ELAC14>
4086                     <JUMP + PHRASE120>
4087 PHRASE97
4088                     <FRAME '\1aGET-AC>
4089                     <PUSH 'PREF-VAL>
4090                     <PUSH 'T>
4091                     <CALL '\1aGET-AC 2 = ELAC14>
4092                     <JUMP + PHRASE120>
4093 PHRASE95
4094                     <FRAME '\1aVAR-VALUE-IN-AC?>
4095                     <PUSH ELVAL7>
4096                     <CALL '\1aVAR-VALUE-IN-AC? 1 = ELAC14>
4097                     <TYPE? ELAC14 <TYPE-CODE FALSE> + BOOL104>
4098                     <VEQUAL? DOUBLE?16 0 + PHRASE100>
4099                     <FRAME '\1aVAR-TYPE-WORD-IN-AC?>
4100                     <PUSH ELVAL7>
4101                     <CALL '\1aVAR-TYPE-WORD-IN-AC? 1 = ELTAC15>
4102                     <TYPE? ELTAC15 <TYPE-CODE FALSE> + BOOL104>
4103                     <FRAME '\1aNEXT-AC>
4104                     <PUSH ELTAC15>
4105                     <CALL '\1aNEXT-AC 1 = TEMP46>
4106                     <EQUAL? TEMP46 ELAC14 + PHRASE100>
4107                     <DEAD TEMP46>
4108 BOOL104
4109                     <FRAME '\1aDEAD-VAR>
4110                     <PUSH ELVAL7>
4111                     <CALL '\1aDEAD-VAR 1>
4112                     <VEQUAL? DOUBLE?16 0 + PHRASE109>
4113                     <FRAME '\1aGET-AC>
4114                     <PUSH 'DOUBLE>
4115                     <PUSH 'T>
4116                     <CALL '\1aGET-AC 2 = ELAC14>
4117                     <JUMP + PHRASE120>
4118 PHRASE109
4119                     <FRAME '\1aGET-AC>
4120                     <PUSH 'PREF-VAL>
4121                     <PUSH 'T>
4122                     <CALL '\1aGET-AC 2 = ELAC14>
4123                     <JUMP + PHRASE120>
4124 PHRASE100
4125                     <FRAME '\1aDEAD-VAR>
4126                     <PUSH ELVAL7>
4127                     <CALL '\1aDEAD-VAR 1>
4128                     <VEQUAL? DOUBLE?16 0 + PHRASE115>
4129                     <FRAME '\1aSTORE-AC>
4130                     <PUSH ELTAC15>
4131                     <PUSH 'T>
4132                     <FRAME '\1aFIND-CACHE-VAR>
4133                     <PUSH ELVAL7>
4134                     <CALL '\1aFIND-CACHE-VAR 1 = STACK>
4135                     <CALL '\1aSTORE-AC 3>
4136                     <FRAME '\1aSTORE-AC>
4137                     <PUSH ELAC14>
4138                     <DEAD ELAC14>
4139                     <PUSH 'T>
4140                     <FRAME '\1aFIND-CACHE-VAR>
4141                     <PUSH ELVAL7>
4142                     <CALL '\1aFIND-CACHE-VAR 1 = STACK>
4143                     <CALL '\1aSTORE-AC 3>
4144                     <SET ELAC14 ELTAC15>
4145                     <DEAD ELTAC15>
4146                     <JUMP + PHRASE120>
4147 PHRASE115
4148                     <FRAME '\1aSTORE-AC>
4149                     <PUSH ELAC14>
4150                     <PUSH 'T>
4151                     <FRAME '\1aFIND-CACHE-VAR>
4152                     <PUSH ELVAL7>
4153                     <CALL '\1aFIND-CACHE-VAR 1 = STACK>
4154                     <CALL '\1aSTORE-AC 3>
4155 PHRASE120
4156                     <FRAME '\1aREST-BLOCK-GEN>
4157                     <PUSH STRUC6>
4158                     <DEAD STRUC6>
4159                     <PUSH 1>
4160                     <PUSH STRES8>
4161                     <DEAD STRES8>
4162                     <PUSH 0>
4163                     <PUSH %<>>
4164                     <PUSH VINS12>
4165                     <DEAD VINS12>
4166                     <TYPE? PUT?10 <TYPE-CODE FALSE> + PHRASE125>
4167                     <SET TEMP46 VAC19>
4168                     <DEAD VAC19>
4169                     <JUMP + COND124>
4170 PHRASE125
4171                     <SET TEMP46 ELAC14>
4172 COND124
4173                     <PUSH TEMP46>
4174                     <DEAD TEMP46>
4175                     <PUSH PUT?10>
4176                     <PUSH NO-TYPE?21>
4177                     <DEAD NO-TYPE?21>
4178                     <CALL '\1aREST-BLOCK-GEN 9>
4179                     <TYPE? PUT?10 <TYPE-CODE FALSE> - PHRASE135>
4180                     <DEAD PUT?10>
4181                     <EQUAL? ELVAL7 'STACK + PHRASE135>
4182                     <VEQUAL? DOUBLE?16 0 + PHRASE130>
4183                     <DEAD DOUBLE?16>
4184                     <FRAME '\1aDEST-PAIR>
4185                     <FRAME '\1aNEXT-AC>
4186                     <PUSH ELAC14>
4187                     <CALL '\1aNEXT-AC 1 = STACK>
4188                     <PUSH ELAC14>
4189                     <PUSH ELVAL7>
4190                     <CALL '\1aDEST-PAIR 3>
4191                     <JUMP + COND129>
4192 PHRASE130
4193                     <FRAME '\1aLINK-VAR-TO-AC>
4194                     <PUSH ELVAL7>
4195                     <PUSH ELAC14>
4196                     <PUSH 'VALUE>
4197                     <PUSH %<>>
4198                     <CALL '\1aLINK-VAR-TO-AC 4>
4199 COND129
4200                     <TYPE? EHINT11 <TYPE-CODE FALSE> + PHRASE135>
4201                     <FRAME '\1aDEST-DECL>
4202                     <PUSH ELAC14>
4203                     <DEAD ELAC14>
4204                     <PUSH ELVAL7>
4205                     <DEAD ELVAL7>
4206                     <PUSH EHINT11>
4207                     <DEAD EHINT11>
4208                     <CALL '\1aDEST-DECL 3>
4209 PHRASE135
4210                     <RETURN 'NORMAL>
4211                     <END \1aILDB-GEN>
4212
4213 \\f
4214
4215 #WORD *21110472311*
4216                     <GFCN \1aNTH-LENGTH-GEN ("VALUE" ATOM ANY ANY ANY ANY ANY) CINS4 STRUC5 OFF6 STYPE7 RES8>
4217                     <TEMP TEMP12 TUP10:TUPLE RAC11 TEMP26:FIX>
4218                     <INTGO>
4219                     <USBLOCK <TYPE-CODE TUPLE> 5 = TUP10>
4220                     <SET TEMP12 TUP10>
4221                     <LOOP (TEMP12 VALUE LENGTH)>
4222 ISTR13
4223                     <EMPUV? TEMP12 + ISTRE14>
4224                     <PUTUV TEMP12 1 %<>>
4225                     <RESTUV TEMP12 1 = TEMP12>
4226                     <JUMP + ISTR13>
4227 ISTRE14
4228                     <FRAME '\1aVAR-VALUE-IN-AC?>
4229                     <PUSH STRUC5>
4230                     <CALL '\1aVAR-VALUE-IN-AC? 1 = TEMP12>
4231                     <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE16>
4232                     <FRAME '\1aLOAD-VAR>
4233                     <PUSH STRUC5>
4234                     <PUSH 'VALUE>
4235                     <PUSH %<>>
4236                     <PUSH 'PREF-VAL>
4237                     <CALL '\1aLOAD-VAR 4 = TEMP12>
4238 PHRASE16
4239                     <FRAME '\1aPROTECT-USE>
4240                     <PUSH TEMP12>
4241                     <CALL '\1aPROTECT-USE 1>
4242                     <FRAME '\1aGET-ADDR>
4243                     <PUSH TUP10>
4244                     <PUSH STRUC5>
4245                     <DEAD STRUC5>
4246                     <PUSH TEMP12>
4247                     <DEAD TEMP12>
4248                     <PUSH OFF6>
4249                     <DEAD OFF6>
4250                     <PUSH STYPE7>
4251                     <DEAD STYPE7>
4252                     <PUSH %<>>
4253                     <PUSH %<>>
4254                     <PUSH 'T>
4255                     <CALL '\1aGET-ADDR 8>
4256                     <FRAME '\1aVAR-VALUE-IN-AC?>
4257                     <PUSH RES8>
4258                     <CALL '\1aVAR-VALUE-IN-AC? 1 = RAC11>
4259                     <TYPE? RAC11 <TYPE-CODE FALSE> - PHRASE22>
4260                     <FRAME '\1aGET-AC>
4261                     <PUSH 'PREF-VAL>
4262                     <PUSH 'T>
4263                     <CALL '\1aGET-AC 2 = RAC11>
4264 PHRASE22
4265                     <FRAME '\1aEMIT>
4266                     <PUSH 176>
4267                     <SET TEMP26 2 (TYPE FIX)>
4268                     <NTHUV TUP10 2 = TEMP12>
4269                     <DEAD TUP10>
4270                     <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP26 VALUE)>
4271 TAG27
4272                     <INTGO>
4273                     <EMPTY? TEMP12 + TAG25>
4274                     <NTH1 TEMP12 = STACK>
4275                     <REST1 TEMP12 = TEMP12>
4276                     <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
4277                     <JUMP + TAG27>
4278 TAG25
4279                     <NTHUV RAC11 2 = TEMP12 (TYPE FIX)>
4280                     <OR TEMP12 #WORD *120* = TEMP12>
4281                     <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
4282                     <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
4283                     <DEAD TEMP12>
4284                     <CALL '\1aEMIT TEMP26>
4285                     <DEAD TEMP26>
4286                     <FRAME '\1aLINK-VAR-TO-AC>
4287                     <PUSH RES8>
4288                     <PUSH RAC11>
4289                     <PUSH 'VALUE>
4290                     <PUSH %<>>
4291                     <CALL '\1aLINK-VAR-TO-AC 4>
4292                     <FRAME '\1aDEST-DECL>
4293                     <PUSH RAC11>
4294                     <DEAD RAC11>
4295                     <PUSH RES8>
4296                     <DEAD RES8>
4297                     <PUSH 'FIX>
4298                     <CALL '\1aDEST-DECL 3>
4299                     <ADJ -12>
4300                     <RETURN 'NORMAL>
4301                     <END \1aNTH-LENGTH-GEN>
4302
4303 #WORD *1201315533*
4304                     <GFCN \1aNTH-LENGTH-COMP-GEN ("VALUE" ATOM ANY ANY ANY ANY ANY ANY OP-INFO) CINS4 STRUC5 OFF6 STYPE7 AMT8 CMPINS9 OP-INFO10>
4305                     <TEMP TEMP13 TUP12:TUPLE TEMP27>
4306                     <INTGO>
4307                     <USBLOCK <TYPE-CODE TUPLE> 5 = TUP12>
4308                     <SET TEMP13 TUP12>
4309                     <LOOP (TEMP13 VALUE LENGTH)>
4310 ISTR14
4311                     <EMPUV? TEMP13 + ISTRE15>
4312                     <PUTUV TEMP13 1 %<>>
4313                     <RESTUV TEMP13 1 = TEMP13>
4314                     <JUMP + ISTR14>
4315 ISTRE15
4316                     <FRAME '\1aVAR-VALUE-IN-AC?>
4317                     <PUSH STRUC5>
4318                     <CALL '\1aVAR-VALUE-IN-AC? 1 = TEMP13>
4319                     <TYPE? TEMP13 <TYPE-CODE FALSE> - PHRASE17>
4320                     <FRAME '\1aLOAD-VAR>
4321                     <PUSH STRUC5>
4322                     <PUSH 'VALUE>
4323                     <PUSH %<>>
4324                     <PUSH 'PREF-VAL>
4325                     <CALL '\1aLOAD-VAR 4 = TEMP13>
4326 PHRASE17
4327                     <FRAME '\1aPROTECT-USE>
4328                     <PUSH TEMP13>
4329                     <CALL '\1aPROTECT-USE 1>
4330                     <FRAME '\1aGET-ADDR>
4331                     <PUSH TUP12>
4332                     <PUSH STRUC5>
4333                     <DEAD STRUC5>
4334                     <PUSH TEMP13>
4335                     <DEAD TEMP13>
4336                     <PUSH OFF6>
4337                     <DEAD OFF6>
4338                     <PUSH STYPE7>
4339                     <DEAD STYPE7>
4340                     <PUSH %<>>
4341                     <PUSH %<>>
4342                     <PUSH 'T>
4343                     <CALL '\1aGET-ADDR 8>
4344                     <EQUAL? AMT8 0 - PHRASE23>
4345                     <EQUAL? CMPINS9 'EMPL?!-MIMOP - PHRASE25>
4346                     <FRAME '\1aEMIT>
4347                     <PUSH 213>
4348                     <SET TEMP27 1 (TYPE FIX)>
4349                     <NTHUV TUP12 1 = TEMP13>
4350                     <DEAD TUP12>
4351                     <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP27 VALUE)>
4352 TAG28
4353                     <INTGO>
4354                     <EMPTY? TEMP13 + TAG26>
4355                     <NTH1 TEMP13 = STACK>
4356                     <REST1 TEMP13 = TEMP13>
4357                     <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
4358                     <JUMP + TAG28>
4359 TAG26
4360                     <CALL '\1aEMIT TEMP27>
4361                     <DEAD TEMP27>
4362                     <JUMP + PHRASE38>
4363 PHRASE25
4364                     <FRAME '\1aEMIT>
4365                     <PUSH 181>
4366                     <SET TEMP13 1 (TYPE FIX)>
4367                     <NTHUV TUP12 2 = TEMP27>
4368                     <DEAD TUP12>
4369                     <LOOP (TEMP27 TYPE VALUE LENGTH) (TEMP13 VALUE)>
4370 TAG31
4371                     <INTGO>
4372                     <EMPTY? TEMP27 + TAG30>
4373                     <NTH1 TEMP27 = STACK>
4374                     <REST1 TEMP27 = TEMP27>
4375                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
4376                     <JUMP + TAG31>
4377 TAG30
4378                     <CALL '\1aEMIT TEMP13>
4379                     <DEAD TEMP13>
4380                     <JUMP + PHRASE38>
4381 PHRASE23
4382                     <TYPE? AMT8 <TYPE-CODE FIX> - PHRASE33>
4383                     <FRAME '\1aEMIT>
4384                     <PUSH 177>
4385                     <SET TEMP27 2 (TYPE FIX)>
4386                     <NTHUV TUP12 2 = TEMP13>
4387                     <DEAD TUP12>
4388                     <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP27 VALUE)>
4389 TAG35
4390                     <INTGO>
4391                     <EMPTY? TEMP13 + TAG34>
4392                     <NTH1 TEMP13 = STACK>
4393                     <REST1 TEMP13 = TEMP13>
4394                     <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
4395                     <JUMP + TAG35>
4396 TAG34
4397                     <FRAME '\1aMA-IMM>
4398                     <PUSH AMT8>
4399                     <DEAD AMT8>
4400                     <CALL '\1aMA-IMM 1 = STACK>
4401                     <CALL '\1aEMIT TEMP27>
4402                     <DEAD TEMP27>
4403                     <JUMP + PHRASE38>
4404 PHRASE33
4405                     <FRAME '\1aEMIT>
4406                     <PUSH 177>
4407                     <SET TEMP13 2 (TYPE FIX)>
4408                     <NTHUV TUP12 2 = TEMP27>
4409                     <DEAD TUP12>
4410                     <LOOP (TEMP27 TYPE VALUE LENGTH) (TEMP13 VALUE)>
4411 TAG40
4412                     <INTGO>
4413                     <EMPTY? TEMP27 + TAG39>
4414                     <NTH1 TEMP27 = STACK>
4415                     <REST1 TEMP27 = TEMP27>
4416                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
4417                     <JUMP + TAG40>
4418 TAG39
4419                     <FRAME '\1aVAR-VALUE-ADDRESS>
4420                     <PUSH AMT8>
4421                     <DEAD AMT8>
4422                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
4423                     <CALL '\1aEMIT TEMP13>
4424                     <DEAD TEMP13>
4425 PHRASE38
4426                     <FRAME '\1aGEN-TEST-INST>
4427                     <FRAME '\1aCOMPUTE-DIRECTION>
4428                     <NTHUV OP-INFO10 5 = STACK (TYPE ATOM)>
4429                     <GVAL 'EMPU = TEMP13>
4430                     <TYPE? CMPINS9 <TYPE-CODE ATOM> - PHRASE46>
4431                     <EMPUV? TEMP13 + PHRASE46>
4432                     <LOOP (CMPINS9 VALUE) (TEMP13 LENGTH VALUE)>
4433 TAG48
4434                     <NTHUV TEMP13 1 = TEMP27>
4435                     <VEQUAL? TEMP27 CMPINS9 + TAG47>
4436                     <DEAD TEMP27>
4437                     <RESTUV TEMP13 1 = TEMP13 (TYPE VECTOR)>
4438                     <EMPUV? TEMP13 - TAG48>
4439                     <JUMP + PHRASE46>
4440 TAG47
4441                     <SET TEMP13 2 (TYPE FIX)>
4442                     <JUMP + PHRASE53>
4443 PHRASE46
4444                     <EQUAL? CMPINS9 'EMPL?!-MIMOP - PHRASE50>
4445                     <SET TEMP13 2 (TYPE FIX)>
4446                     <JUMP + PHRASE53>
4447 PHRASE50
4448                     <EQUAL? CMPINS9 'VEQUAL?!-MIMOP - PHRASE51>
4449                     <SET TEMP13 2 (TYPE FIX)>
4450                     <JUMP + PHRASE53>
4451 PHRASE51
4452                     <EQUAL? CMPINS9 'LESS?!-MIMOP - PHRASE52>
4453                     <SET TEMP13 1 (TYPE FIX)>
4454                     <JUMP + PHRASE53>
4455 PHRASE52
4456                     <EQUAL? CMPINS9 'GRTR?!-MIMOP + TAG54>
4457                     <DEAD CMPINS9>
4458                     <SET TEMP13 %<> (TYPE FALSE)>
4459                     <JUMP + PHRASE53>
4460 TAG54
4461                     <SET TEMP13 3 (TYPE FIX)>
4462 PHRASE53
4463                     <PUSH TEMP13>
4464                     <DEAD TEMP13>
4465                     <CALL '\1aCOMPUTE-DIRECTION 2 = STACK>
4466                     <NTHUV OP-INFO10 4 = STACK>
4467                     <DEAD OP-INFO10>
4468                     <PUSH %<>>
4469                     <CALL '\1aGEN-TEST-INST 3>
4470                     <ADJ -12>
4471                     <RETURN 'CONDITIONAL-BRANCH>
4472                     <END \1aNTH-LENGTH-COMP-GEN>
4473
4474 #WORD *35332202437*
4475                     <GFCN \1aSLOT-COMPARE ("VALUE" ATOM ANY ANY ANY ANY ANY ANY ANY ANY) STRUC14 STRUC25 CMPINS6 OP-INFO7 OFF18 STYPE19 OFF210 STYPE211>
4476                     <TEMP (SAC112 %<>) (SAC213 %<>) TEMP19 ADDR114 ADDR215 (SHORT?16 %<>) TEMP30>
4477                     <INTGO>
4478                     <USBLOCK <TYPE-CODE TUPLE> 5 = ADDR114>
4479                     <SET TEMP19 ADDR114>
4480                     <LOOP (TEMP19 VALUE LENGTH)>
4481 ISTR20
4482                     <EMPUV? TEMP19 + ISTRE21>
4483                     <PUTUV TEMP19 1 %<>>
4484                     <RESTUV TEMP19 1 = TEMP19>
4485                     <JUMP + ISTR20>
4486 ISTRE21
4487                     <USBLOCK <TYPE-CODE TUPLE> 5 = ADDR215>
4488                     <SET TEMP19 ADDR215>
4489                     <LOOP (TEMP19 VALUE LENGTH)>
4490 ISTR22
4491                     <EMPUV? TEMP19 + ISTRE23>
4492                     <PUTUV TEMP19 1 %<>>
4493                     <RESTUV TEMP19 1 = TEMP19>
4494                     <JUMP + ISTR22>
4495 ISTRE23
4496                     <SET TEMP19 [STRING BYTES] (TYPE VECTOR)>
4497                     <TYPE? STYPE19 <TYPE-CODE ATOM> - TAG27>
4498                     <LOOP (STYPE19 VALUE) (TEMP19 LENGTH VALUE)>
4499 TAG28
4500                     <NTHUV TEMP19 1 = TEMP30>
4501                     <VEQUAL? TEMP30 STYPE19 + TAG31>
4502                     <DEAD TEMP30>
4503                     <RESTUV TEMP19 1 = TEMP19 (TYPE VECTOR)>
4504                     <EMPUV? TEMP19 - TAG28>
4505 TAG27
4506                     <SET TEMP19 [STRING BYTES] (TYPE VECTOR)>
4507                     <TYPE? STYPE211 <TYPE-CODE ATOM> - PHRASE25>
4508                     <LOOP (STYPE211 VALUE) (TEMP19 LENGTH VALUE)>
4509 TAG32
4510                     <NTHUV TEMP19 1 = TEMP30>
4511                     <VEQUAL? TEMP30 STYPE211 + TAG31>
4512                     <DEAD TEMP30>
4513                     <RESTUV TEMP19 1 = TEMP19 (TYPE VECTOR)>
4514                     <EMPUV? TEMP19 - TAG32>
4515                     <JUMP + PHRASE25>
4516 TAG31
4517                     <SET SHORT?16 'T (TYPE ATOM)>
4518 PHRASE25
4519                     <TYPE? OFF210 <TYPE-CODE FALSE> + PHRASE39>
4520                     <TYPE? OFF18 <TYPE-CODE FALSE> - PHRASE39>
4521                     <SET OFF18 OFF210>
4522                     <DEAD OFF210>
4523                     <SET OFF210 %<> (TYPE FALSE)>
4524                     <SET STYPE19 STYPE211>
4525                     <DEAD STYPE211>
4526                     <SET STYPE211 %<> (TYPE FALSE)>
4527                     <SET TEMP19 STRUC25>
4528                     <DEAD STRUC25>
4529                     <SET STRUC25 STRUC14>
4530                     <DEAD STRUC14>
4531                     <SET STRUC14 TEMP19>
4532                     <DEAD TEMP19>
4533                     <EQUAL? CMPINS6 'GRTR?!-MIMOP - PHRASE38>
4534                     <SET CMPINS6 'LESS?!-MIMOP (TYPE ATOM)>
4535                     <JUMP + PHRASE39>
4536 PHRASE38
4537                     <EQUAL? CMPINS6 'LESS?!-MIMOP - PHRASE39>
4538                     <SET CMPINS6 'GRTR?!-MIMOP (TYPE ATOM)>
4539 PHRASE39
4540                     <TYPE? OFF18 <TYPE-CODE FALSE> + PHRASE42>
4541                     <FRAME '\1aVAR-VALUE-IN-AC?>
4542                     <PUSH STRUC14>
4543                     <CALL '\1aVAR-VALUE-IN-AC? 1 = SAC112>
4544                     <TYPE? SAC112 <TYPE-CODE FALSE> - PHRASE44>
4545                     <FRAME '\1aLOAD-VAR>
4546                     <PUSH STRUC14>
4547                     <PUSH 'VALUE>
4548                     <PUSH %<>>
4549                     <PUSH 'PREF-VAL>
4550                     <CALL '\1aLOAD-VAR 4 = SAC112>
4551 PHRASE44
4552                     <FRAME '\1aPROTECT-USE>
4553                     <PUSH SAC112>
4554                     <CALL '\1aPROTECT-USE 1>
4555 PHRASE42
4556                     <TYPE? OFF210 <TYPE-CODE FALSE> + PHRASE57>
4557                     <EQUAL? STRUC14 STRUC25 + PHRASE51>
4558                     <FRAME '\1aVAR-VALUE-IN-AC?>
4559                     <PUSH STRUC25>
4560                     <CALL '\1aVAR-VALUE-IN-AC? 1 = SAC213>
4561                     <TYPE? SAC213 <TYPE-CODE FALSE> - PHRASE53>
4562                     <FRAME '\1aLOAD-VAR>
4563                     <PUSH STRUC25>
4564                     <PUSH 'VALUE>
4565                     <PUSH %<>>
4566                     <PUSH 'PREF-VAL>
4567                     <CALL '\1aLOAD-VAR 4 = SAC213>
4568 PHRASE53
4569                     <FRAME '\1aPROTECT-USE>
4570                     <PUSH SAC213>
4571                     <CALL '\1aPROTECT-USE 1>
4572                     <JUMP + PHRASE57>
4573 PHRASE51
4574                     <SET SAC213 SAC112>
4575 PHRASE57
4576                     <TYPE? OFF18 <TYPE-CODE FALSE> + PHRASE59>
4577                     <FRAME '\1aGET-ADDR>
4578                     <PUSH ADDR114>
4579                     <PUSH STRUC14>
4580                     <PUSH SAC112>
4581                     <DEAD SAC112>
4582                     <PUSH OFF18>
4583                     <PUSH STYPE19>
4584                     <PUSH %<>>
4585                     <CALL '\1aGET-ADDR 6>
4586                     <JUMP + PHRASE75>
4587 PHRASE59
4588                     <TYPE? STRUC14 <TYPE-CODE VARTBL> - PHRASE61>
4589                     <FRAME '\1aVAR-VALUE-ADDRESS>
4590                     <PUSH STRUC14>
4591                     <CALL '\1aVAR-VALUE-ADDRESS 1 = ADDR114>
4592                     <JUMP + PHRASE75>
4593 PHRASE61
4594                     <FRAME '\1aFIX-CONSTANT?>
4595                     <PUSH STRUC14>
4596                     <CALL '\1aFIX-CONSTANT? 1 = TEMP19>
4597                     <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE63>
4598                     <DEAD TEMP19>
4599                     <TYPE? STRUC14 <TYPE-CODE FLOAT> + PHRASE66>
4600                     <FRAME '\1aMA-IMM>
4601                     <PUSH STRUC14>
4602                     <CALL '\1aMA-IMM 1 = ADDR114>
4603                     <JUMP + PHRASE75>
4604 PHRASE66
4605                     <FRAME '\1aFLOAT-IMM>
4606                     <FRAME '\1aFLOATCONVERT>
4607                     <PUSH STRUC14>
4608                     <CALL '\1aFLOATCONVERT 1 = STACK>
4609                     <CALL '\1aFLOAT-IMM 1 = ADDR114>
4610                     <JUMP + PHRASE75>
4611 PHRASE63
4612                     <FRAME '\1aPRIMTYPE>
4613                     <PUSH STRUC14>
4614                     <CALL '\1aPRIMTYPE 1 = TEMP19>
4615                     <VEQUAL? TEMP19 'LIST - PHRASE71>
4616                     <DEAD TEMP19>
4617                     <EMPTY? STRUC14 - PHRASE71>
4618                     <SET STRUC14 0 (TYPE FIX)>
4619                     <FRAME '\1aMA-IMM>
4620                     <PUSH 0>
4621                     <CALL '\1aMA-IMM 1 = ADDR114>
4622                     <JUMP + PHRASE75>
4623 PHRASE71
4624                     <FRAME '\1aADDR-VALUE-MQUOTE>
4625                     <PUSH STRUC14>
4626                     <CALL '\1aADDR-VALUE-MQUOTE 1 = ADDR114>
4627 PHRASE75
4628                     <TYPE? OFF210 <TYPE-CODE FALSE> - PHRASE78>
4629                     <TYPE? STRUC25 <TYPE-CODE VARTBL> - PHRASE80>
4630                     <FRAME '\1aVAR-VALUE-ADDRESS>
4631                     <PUSH STRUC25>
4632                     <CALL '\1aVAR-VALUE-ADDRESS 1 = ADDR215>
4633                     <JUMP + PHRASE102>
4634 PHRASE80
4635                     <FRAME '\1aFIX-CONSTANT?>
4636                     <PUSH STRUC25>
4637                     <CALL '\1aFIX-CONSTANT? 1 = TEMP19>
4638                     <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE82>
4639                     <DEAD TEMP19>
4640                     <TYPE? STRUC25 <TYPE-CODE FLOAT> + PHRASE85>
4641                     <FRAME '\1aMA-IMM>
4642                     <PUSH STRUC25>
4643                     <CALL '\1aMA-IMM 1 = ADDR215>
4644                     <JUMP + PHRASE102>
4645 PHRASE85
4646                     <FRAME '\1aFLOAT-IMM>
4647                     <FRAME '\1aFLOATCONVERT>
4648                     <PUSH STRUC25>
4649                     <CALL '\1aFLOATCONVERT 1 = STACK>
4650                     <CALL '\1aFLOAT-IMM 1 = ADDR215>
4651                     <JUMP + PHRASE102>
4652 PHRASE82
4653                     <FRAME '\1aPRIMTYPE>
4654                     <PUSH STRUC25>
4655                     <CALL '\1aPRIMTYPE 1 = TEMP19>
4656                     <VEQUAL? TEMP19 'LIST - PHRASE90>
4657                     <DEAD TEMP19>
4658                     <EMPTY? STRUC25 - PHRASE90>
4659                     <SET STRUC25 0 (TYPE FIX)>
4660                     <FRAME '\1aMA-IMM>
4661                     <PUSH 0>
4662                     <CALL '\1aMA-IMM 1 = ADDR215>
4663                     <JUMP + PHRASE102>
4664 PHRASE90
4665                     <FRAME '\1aADDR-VALUE-MQUOTE>
4666                     <PUSH STRUC25>
4667                     <CALL '\1aADDR-VALUE-MQUOTE 1 = ADDR215>
4668                     <JUMP + PHRASE102>
4669 PHRASE78
4670                     <FRAME '\1aNTH>
4671                     <PUSH ADDR114>
4672                     <PUSH 3>
4673                     <CALL '\1aNTH 2 = TEMP19>
4674                     <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE96>
4675                     <DEAD TEMP19>
4676                     <EQUAL? OFF18 OFF210 - PHRASE96>
4677                     <DEAD OFF18>
4678                     <TYPE? OFF210 <TYPE-CODE VARTBL> - PHRASE96>
4679                     <EQUAL? STYPE19 STYPE211 + BOOL99>
4680                     <DEAD STYPE19>
4681                     <VEQUAL? SHORT?16 0 + PHRASE96>
4682 BOOL99
4683                     <FRAME '\1aGET-ADDR>
4684                     <PUSH ADDR215>
4685                     <PUSH STRUC25>
4686                     <PUSH SAC213>
4687                     <DEAD SAC213>
4688                     <PUSH OFF210>
4689                     <DEAD OFF210>
4690                     <PUSH STYPE211>
4691                     <DEAD STYPE211>
4692                     <PUSH %<>>
4693                     <FRAME '\1aNTH>
4694                     <PUSH ADDR114>
4695                     <PUSH 3>
4696                     <CALL '\1aNTH 2 = STACK>
4697                     <CALL '\1aGET-ADDR 7>
4698                     <JUMP + PHRASE102>
4699 PHRASE96
4700                     <FRAME '\1aGET-ADDR>
4701                     <PUSH ADDR215>
4702                     <PUSH STRUC25>
4703                     <PUSH SAC213>
4704                     <DEAD SAC213>
4705                     <PUSH OFF210>
4706                     <DEAD OFF210>
4707                     <PUSH STYPE211>
4708                     <DEAD STYPE211>
4709                     <PUSH %<>>
4710                     <CALL '\1aGET-ADDR 6>
4711 PHRASE102
4712                     <EQUAL? STRUC14 0 + BOOL106>
4713                     <EQUAL? STRUC25 0 - PHRASE105>
4714 BOOL106
4715                     <FRAME '\1aEMIT>
4716                     <VEQUAL? SHORT?16 0 + PHRASE109>
4717                     <DEAD SHORT?16>
4718                     <SET TEMP19 149 (TYPE FIX)>
4719                     <JUMP + COND108>
4720 PHRASE109
4721                     <SET TEMP19 213 (TYPE FIX)>
4722 COND108
4723                     <PUSH TEMP19>
4724                     <DEAD TEMP19>
4725                     <SET TEMP30 1 (TYPE FIX)>
4726                     <EQUAL? STRUC14 0 - PHRASE111>
4727                     <DEAD STRUC14>
4728                     <NTHUV ADDR215 1 = TEMP19>
4729                     <DEAD ADDR215>
4730                     <JUMP + COND110>
4731 PHRASE111
4732                     <NTHUV ADDR114 1 = TEMP19>
4733                     <DEAD ADDR114>
4734 COND110
4735                     <LOOP (TEMP19 TYPE VALUE LENGTH) (TEMP30 VALUE)>
4736 TAG112
4737                     <INTGO>
4738                     <EMPTY? TEMP19 + TAG107>
4739                     <NTH1 TEMP19 = STACK>
4740                     <REST1 TEMP19 = TEMP19>
4741                     <ADD TEMP30 1 = TEMP30 (TYPE FIX)>
4742                     <JUMP + TAG112>
4743 TAG107
4744                     <CALL '\1aEMIT TEMP30>
4745                     <DEAD TEMP30>
4746                     <JUMP + PHRASE132>
4747 PHRASE105
4748                     <EQUAL? STRUC14 0.0 + BOOL115>
4749                     <EQUAL? STRUC25 0.0 - PHRASE114>
4750 BOOL115
4751                     <FRAME '\1aEMIT>
4752                     <PUSH 83>
4753                     <SET TEMP19 1 (TYPE FIX)>
4754                     <EQUAL? STRUC14 0.0 - PHRASE118>
4755                     <DEAD STRUC14>
4756                     <NTHUV ADDR215 1 = TEMP30>
4757                     <DEAD ADDR215>
4758                     <JUMP + COND117>
4759 PHRASE118
4760                     <NTHUV ADDR114 1 = TEMP30>
4761                     <DEAD ADDR114>
4762 COND117
4763                     <LOOP (TEMP30 TYPE VALUE LENGTH) (TEMP19 VALUE)>
4764 TAG119
4765                     <INTGO>
4766                     <EMPTY? TEMP30 + TAG116>
4767                     <NTH1 TEMP30 = STACK>
4768                     <REST1 TEMP30 = TEMP30>
4769                     <ADD TEMP19 1 = TEMP19 (TYPE FIX)>
4770                     <JUMP + TAG119>
4771 TAG116
4772                     <CALL '\1aEMIT TEMP19>
4773                     <DEAD TEMP19>
4774                     <JUMP + PHRASE132>
4775 PHRASE114
4776                     <TYPE? STRUC14 <TYPE-CODE FLOAT> + BOOL122>
4777                     <DEAD STRUC14>
4778                     <TYPE? STRUC25 <TYPE-CODE FLOAT> - PHRASE121>
4779                     <DEAD STRUC25>
4780 BOOL122
4781                     <FRAME '\1aEMIT>
4782                     <PUSH 81>
4783                     <SET TEMP30 1 (TYPE FIX)>
4784                     <TYPE? ADDR114 <TYPE-CODE TUPLE> - PHRASE125>
4785                     <NTHUV ADDR114 1 = TEMP19>
4786                     <DEAD ADDR114>
4787                     <JUMP + COND124>
4788 PHRASE125
4789                     <CONS ADDR114 () = TEMP19>
4790                     <DEAD ADDR114>
4791 COND124
4792                     <LOOP (TEMP19 TYPE VALUE LENGTH) (TEMP30 VALUE)>
4793 TAG126
4794                     <INTGO>
4795                     <EMPTY? TEMP19 + TAG123>
4796                     <NTH1 TEMP19 = STACK>
4797                     <REST1 TEMP19 = TEMP19>
4798                     <ADD TEMP30 1 = TEMP30 (TYPE FIX)>
4799                     <JUMP + TAG126>
4800 TAG123
4801                     <TYPE? ADDR215 <TYPE-CODE TUPLE> - PHRASE129>
4802                     <NTHUV ADDR215 1 = TEMP19>
4803                     <DEAD ADDR215>
4804                     <JUMP + COND128>
4805 PHRASE129
4806                     <CONS ADDR215 () = TEMP19>
4807                     <DEAD ADDR215>
4808 COND128
4809                     <LOOP (TEMP19 TYPE VALUE LENGTH) (TEMP30 VALUE)>
4810 TAG130
4811                     <INTGO>
4812                     <EMPTY? TEMP19 + TAG127>
4813                     <NTH1 TEMP19 = STACK>
4814                     <REST1 TEMP19 = TEMP19>
4815                     <ADD TEMP30 1 = TEMP30 (TYPE FIX)>
4816                     <JUMP + TAG130>
4817 TAG127
4818                     <CALL '\1aEMIT TEMP30>
4819                     <DEAD TEMP30>
4820                     <JUMP + PHRASE132>
4821 PHRASE121
4822                     <FRAME '\1aEMIT>
4823                     <VEQUAL? SHORT?16 0 + PHRASE135>
4824                     <DEAD SHORT?16>
4825                     <SET TEMP30 145 (TYPE FIX)>
4826                     <JUMP + PHRASE136>
4827 PHRASE135
4828                     <SET TEMP30 209 (TYPE FIX)>
4829 PHRASE136
4830                     <PUSH TEMP30>
4831                     <DEAD TEMP30>
4832                     <SET SAC112 1 (TYPE FIX)>
4833                     <TYPE? ADDR114 <TYPE-CODE TUPLE> - PHRASE139>
4834                     <NTHUV ADDR114 1 = TEMP30>
4835                     <DEAD ADDR114>
4836                     <JUMP + COND138>
4837 PHRASE139
4838                     <CONS ADDR114 () = TEMP30>
4839                     <DEAD ADDR114>
4840 COND138
4841                     <LOOP (TEMP30 TYPE VALUE LENGTH) (SAC112 VALUE)>
4842 TAG140
4843                     <INTGO>
4844                     <EMPTY? TEMP30 + TAG133>
4845                     <NTH1 TEMP30 = STACK>
4846                     <REST1 TEMP30 = TEMP30>
4847                     <ADD SAC112 1 = SAC112 (TYPE FIX)>
4848                     <JUMP + TAG140>
4849 TAG133
4850                     <TYPE? ADDR215 <TYPE-CODE TUPLE> - PHRASE143>
4851                     <NTHUV ADDR215 1 = TEMP30>
4852                     <DEAD ADDR215>
4853                     <JUMP + COND142>
4854 PHRASE143
4855                     <CONS ADDR215 () = TEMP30>
4856                     <DEAD ADDR215>
4857 COND142
4858                     <LOOP (TEMP30 TYPE VALUE LENGTH) (SAC112 VALUE)>
4859 TAG144
4860                     <INTGO>
4861                     <EMPTY? TEMP30 + TAG141>
4862                     <NTH1 TEMP30 = STACK>
4863                     <REST1 TEMP30 = TEMP30>
4864                     <ADD SAC112 1 = SAC112 (TYPE FIX)>
4865                     <JUMP + TAG144>
4866 TAG141
4867                     <CALL '\1aEMIT SAC112>
4868                     <DEAD SAC112>
4869 PHRASE132
4870                     <FRAME '\1aGEN-TEST-INST>
4871                     <FRAME '\1aCOMPUTE-DIRECTION>
4872                     <NTHUV OP-INFO7 5 = STACK (TYPE ATOM)>
4873                     <EQUAL? CMPINS6 'VEQUAL?!-MIMOP - PHRASE149>
4874                     <SET SAC112 2 (TYPE FIX)>
4875                     <JUMP + PHRASE151>
4876 PHRASE149
4877                     <EQUAL? CMPINS6 'LESS?!-MIMOP - PHRASE150>
4878                     <SET SAC112 1 (TYPE FIX)>
4879                     <JUMP + PHRASE151>
4880 PHRASE150
4881                     <EQUAL? CMPINS6 'GRTR?!-MIMOP + TAG152>
4882                     <DEAD CMPINS6>
4883                     <SET SAC112 %<> (TYPE FALSE)>
4884                     <JUMP + PHRASE151>
4885 TAG152
4886                     <SET SAC112 3 (TYPE FIX)>
4887 PHRASE151
4888                     <PUSH SAC112>
4889                     <DEAD SAC112>
4890                     <CALL '\1aCOMPUTE-DIRECTION 2 = STACK>
4891                     <NTHUV OP-INFO7 4 = STACK>
4892                     <DEAD OP-INFO7>
4893                     <PUSH %<>>
4894                     <CALL '\1aGEN-TEST-INST 3>
4895                     <ADJ -24>
4896                     <RETURN 'CONDITIONAL-BRANCH>
4897                     <END \1aSLOT-COMPARE>