mim/development/mim/vaxc/lsac.mima

   1
   2 #WORD *31164722637*
   3 <GFCN \1aINIT-VAR-LIST ("VALUE" <LIST [REST VARTBL]>)>
   4                     <TEMP>
   5                     <INTGO>
   6                     <SETG 'VAR-LIST ()>
   7                     <RETURN ()>
   8                     <END \1aINIT-VAR-LIST>
   9 #WORD *760454234*
  10 <GFCN \1aCREATE-VAR ("VALUE" VARTBL <OR ATOM VARTBL> BOOLEAN "OPTIONAL" ANY) NAME6 TEMP7 HACK?8>
  11                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
  12 OPT4
  13                     <PUSH %<>>
  14 OPT5
  15                     <TEMP TEMP14 VAR9 CMOD10:STK-MODEL>
  16                     <INTGO>
  17                     <TYPE? NAME6 <TYPE-CODE ATOM> - PHRASE12>
  18                     <PUSH NAME6>
  19                     <PUSH %<>>
  20                     <PUSH %<>>
  21                     <PUSH %<>>
  22                     <PUSH %<>>
  23                     <PUSH TEMP7>
  24                     <PUSH %<>>
  25                     <PUSH %<>>
  26                     <UBLOCK <TYPE-CODE VECTOR> 8 = TEMP14 (TYPE VECTOR)>
  27                     <CHTYPE TEMP14 <TYPE-CODE VARTBL> = VAR9>
  28                     <DEAD TEMP14>
  29                     <JUMP + PHRASE15>
  30 PHRASE12
  31                     <SET VAR9 NAME6>
  32 PHRASE15
  33                     <TYPE? HACK?8 <TYPE-CODE FALSE> - PHRASE20>
  34                     <DEAD HACK?8>
  35                     <NTHR 'CURRENT-MODEL 1 = TEMP14 (RECORD-TYPE ATOM) (BRANCH-FALSE + BOOL18)>
  36                     <TYPE? TEMP14 <TYPE-CODE FALSE> + BOOL18>
  37                     <NTHR TEMP14 1 = TEMP14 (RECORD-TYPE GBIND)>
  38                     <TYPE? TEMP14 <TYPE-CODE UNBOUND> + BOOL18>
  39                     <DEAD TEMP14>
  40                     <GVAL 'CURRENT-MODEL = CMOD10>
  41                     <NTHUV CMOD10 6 = TEMP14 (TYPE LIST)>
  42                     <CONS VAR9 TEMP14 = TEMP14>
  43                     <PUTUV CMOD10 6 TEMP14 (TYPE LIST)>
  44                     <DEAD CMOD10 TEMP14>
  45 BOOL18
  46                     <TYPE? TEMP7 <TYPE-CODE FALSE> - PHRASE20>
  47                     <DEAD TEMP7>
  48                     <FRAME '\1aGEN-LOC>
  49                     <PUSH VAR9>
  50                     <PUSH 0>
  51                     <CALL '\1aGEN-LOC 2>
  52 PHRASE20
  53                     <TYPE? NAME6 <TYPE-CODE ATOM> - PHRASE23>
  54                     <DEAD NAME6>
  55                     <GVAL 'VAR-LIST = TEMP14>
  56                     <CONS VAR9 TEMP14 = TEMP14>
  57                     <SETG 'VAR-LIST TEMP14>
  58                     <DEAD TEMP14>
  59 PHRASE23
  60                     <RETURN VAR9>
  61                     <DEAD VAR9>
  62                     <END \1aCREATE-VAR>
  63 #WORD *11652637451*
  64 <GFCN \1aFIND-VAR ("VALUE" <OR FALSE VARTBL> ATOM) NAME4>
  65                     <TEMP (VAR?5 %<>) TEMP17:LIST VAR18:VARTBL TEMP21:ATOM>
  66                     <INTGO>
  67                     <GVAL 'VAR-LIST = TEMP17>
  68                     <LOOP>
  69 MAP7
  70                     <INTGO>
  71                     <EMPL? TEMP17 + MAPAP10>
  72                     <NTHL TEMP17 1 = VAR18>
  73                     <NTHUV VAR18 1 = TEMP21 (TYPE ATOM)>
  74                     <VEQUAL? TEMP21 NAME4 - PHRASE20>
  75                     <DEAD TEMP21>
  76                     <RETURN VAR18>
  77                     <DEAD VAR18>
  78 PHRASE20
  79                     <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
  80                     <JUMP + MAP7>
  81 MAPAP10
  82                     <RETURN VAR?5>
  83                     <DEAD VAR?5>
  84                     <END \1aFIND-VAR>
  85 #WORD *37635071767*
  86 <GFCN \1aINDICATE-VAR-DECL ("VALUE" VARTBL VARTBL <OR ATOM FALSE>) VAR4 DCL5>
  87                     <TEMP>
  88                     <INTGO>
  89                     <PUTUV VAR4 4 DCL5>
  90                     <DEAD DCL5>
  91                     <RETURN VAR4>
  92                     <DEAD VAR4>
  93                     <END \1aINDICATE-VAR-DECL>
  94 #WORD *23650226110*
  95 <GFCN \1aINDICATE-VAR-INIT ("VALUE" <OR EFF-ADDR LADDR> VARTBL ANY) VAR4 VAL5>
  96                     <TEMP TEMP9>
  97                     <INTGO>
  98                     <TYPE? VAL5 <TYPE-CODE FALSE> - PHRASE7>
  99                     <CHTYPE VAL5 <TYPE-CODE SPEC-FALSE> = VAL5>
 100 PHRASE7
 101                     <PUTUV VAR4 8 VAL5>
 102                     <DEAD VAL5>
 103                     <FRAME '\1aGEN-LOC>
 104                     <PUSH VAR4>
 105                     <DEAD VAR4>
 106                     <PUSH 0>
 107                     <CALL '\1aGEN-LOC 2 = TEMP9>
 108                     <RETURN TEMP9>
 109                     <DEAD TEMP9>
 110                     <END \1aINDICATE-VAR-INIT>
 111 #WORD *36035234465*
 112 <GFCN \1aINDICATE-VAR-TEMP-DECL ("VALUE" VARTBL VARTBL <OR FALSE ATOM>) VAR4 DCL5>
 113                     <TEMP>
 114                     <INTGO>
 115                     <PUTUV VAR4 7 DCL5>
 116                     <DEAD DCL5>
 117                     <RETURN VAR4>
 118                     <DEAD VAR4>
 119                     <END \1aINDICATE-VAR-TEMP-DECL>
 120 #WORD *24257612470*
 121 <GFCN \1aFLUSH-VAR-TEMP-DECLS ("VALUE" <OR FALSE VARTBL>)>
 122                     <TEMP TEMP13 TEMP15:LIST>
 123                     <INTGO>
 124                     <SET TEMP13 %<> (TYPE FALSE)>
 125                     <GVAL 'VAR-LIST = TEMP15>
 126                     <LOOP>
 127 MAP5
 128                     <INTGO>
 129                     <EMPL? TEMP15 + MAPAP8>
 130                     <NTHL TEMP15 1 = TEMP13>
 131                     <FRAME '\1aINDICATE-VAR-TEMP-DECL>
 132                     <PUSH TEMP13>
 133                     <DEAD TEMP13>
 134                     <PUSH %<>>
 135                     <CALL '\1aINDICATE-VAR-TEMP-DECL 2 = TEMP13>
 136                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
 137                     <JUMP + MAP5>
 138 MAPAP8
 139                     <RETURN TEMP13>
 140                     <DEAD TEMP13>
 141                     <END \1aFLUSH-VAR-TEMP-DECLS>
 142 #WORD *26041303320*
 143 <GFCN \1aVARTBL-DECL ("VALUE" <OR ATOM FALSE> VARTBL) VAR4>
 144                     <TEMP LVAR5 TEMP8>
 145                     <INTGO>
 146                     <FRAME '\1aFIND-CACHE-VAR>
 147                     <PUSH VAR4>
 148                     <CALL '\1aFIND-CACHE-VAR 1 = LVAR5>
 149                     <NTHUV VAR4 4 = TEMP8>
 150                     <TYPE? TEMP8 <TYPE-CODE FALSE> - BOOL9>
 151                     <NTHUV VAR4 7 = TEMP8>
 152                     <DEAD VAR4>
 153                     <TYPE? TEMP8 <TYPE-CODE FALSE> - BOOL9>
 154                     <SET TEMP8 LVAR5>
 155                     <TYPE? TEMP8 <TYPE-CODE FALSE> + BOOL9>
 156                     <NTHUV LVAR5 5 = TEMP8>
 157                     <DEAD LVAR5>
 158 BOOL9
 159                     <RETURN TEMP8>
 160                     <DEAD TEMP8>
 161                     <END \1aVARTBL-DECL>
 162 #WORD *10236053761*
 163 <GFCN \1aADDR-VAR-VALUE ("VALUE" <OR EFF-ADDR LADDR> VARTBL) VAR4>
 164                     <TEMP TEMP6>
 165                     <INTGO>
 166                     <FRAME '\1aGEN-LOC>
 167                     <PUSH VAR4>
 168                     <DEAD VAR4>
 169                     <PUSH 4>
 170                     <CALL '\1aGEN-LOC 2 = TEMP6>
 171                     <RETURN TEMP6>
 172                     <DEAD TEMP6>
 173                     <END \1aADDR-VAR-VALUE>
 174 #WORD *10236053761*
 175 <GFCN \1aADDR-VAR-CHAR-VALUE ("VALUE" <OR EFF-ADDR LADDR> VARTBL) VAR4>
 176                     <TEMP TEMP6>
 177                     <INTGO>
 178                     <FRAME '\1aGEN-LOC>
 179                     <PUSH VAR4>
 180                     <DEAD VAR4>
 181                     <PUSH 4>
 182                     <CALL '\1aGEN-LOC 2 = TEMP6>
 183                     <RETURN TEMP6>
 184                     <DEAD TEMP6>
 185                     <END \1aADDR-VAR-CHAR-VALUE>
 186 #WORD *10222053761*
 187 <GFCN \1aADDR-VAR-COUNT ("VALUE" <OR EFF-ADDR LADDR> VARTBL) VAR4>
 188                     <TEMP TEMP6>
 189                     <INTGO>
 190                     <FRAME '\1aGEN-LOC>
 191                     <PUSH VAR4>
 192                     <DEAD VAR4>
 193                     <PUSH 2>
 194                     <CALL '\1aGEN-LOC 2 = TEMP6>
 195                     <RETURN TEMP6>
 196                     <DEAD TEMP6>
 197                     <END \1aADDR-VAR-COUNT>
 198 #WORD *10226053761*
 199 <GFCN \1aADDR-VAR-TYPE ("VALUE" <OR EFF-ADDR LADDR> VARTBL) VAR4>
 200                     <TEMP TEMP6>
 201                     <INTGO>
 202                     <FRAME '\1aGEN-LOC>
 203                     <PUSH VAR4>
 204                     <DEAD VAR4>
 205                     <PUSH 0>
 206                     <CALL '\1aGEN-LOC 2 = TEMP6>
 207                     <RETURN TEMP6>
 208                     <DEAD TEMP6>
 209                     <END \1aADDR-VAR-TYPE>
 210 #WORD *10226053761*
 211 <GFCN \1aADDR-VAR-TYPE-VALUE ("VALUE" <OR EFF-ADDR LADDR> VARTBL) VAR4>
 212                     <TEMP TEMP6>
 213                     <INTGO>
 214                     <FRAME '\1aGEN-LOC>
 215                     <PUSH VAR4>
 216                     <DEAD VAR4>
 217                     <PUSH 0>
 218                     <CALL '\1aGEN-LOC 2 = TEMP6>
 219                     <RETURN TEMP6>
 220                     <DEAD TEMP6>
 221                     <END \1aADDR-VAR-TYPE-VALUE>
 222 #WORD *7537063005*
 223 <GFCN \1aCREATE-MODEL ("VALUE" STK-MODEL)>
 224                     <TEMP TEMP5>
 225                     <INTGO>
 226                     <PUSH 0>
 227                     <PUSH ()>
 228                     <PUSH ()>
 229                     <PUSH %<>>
 230                     <PUSH 0>
 231                     <PUSH ()>
 232                     <UBLOCK <TYPE-CODE VECTOR> 6 = TEMP5 (TYPE VECTOR)>
 233                     <CHTYPE TEMP5 <TYPE-CODE STK-MODEL> = TEMP5>
 234                     <RETURN TEMP5>
 235                     <DEAD TEMP5>
 236                     <END \1aCREATE-MODEL>
 237 #WORD *577707050*
 238 <GFCN \1aINIT-STACK-MODEL ("VALUE" <LIST STK-MODEL>)>
 239                     <TEMP MOD4>
 240                     <INTGO>
 241                     <FRAME '\1aCREATE-MODEL>
 242                     <CALL '\1aCREATE-MODEL 0 = MOD4>
 243                     <SETG 'CURRENT-MODEL MOD4>
 244                     <SETG 'TOP-MODEL MOD4>
 245                     <CONS MOD4 () = MOD4>
 246                     <SETG 'STACK-LEVELS MOD4>
 247                     <RETURN MOD4>
 248                     <DEAD MOD4>
 249                     <END \1aINIT-STACK-MODEL>
 250 #WORD *21326272170*
 251 <GFCN \1aINDICATE-TEMP-PATCH ("VALUE" STK-MODEL FIX) NUM4>
 252                     <TEMP TEMP5:STK-MODEL>
 253                     <INTGO>
 254                     <GVAL 'CURRENT-MODEL = TEMP5>
 255                     <PUTUV TEMP5 1 NUM4 (TYPE FIX)>
 256                     <DEAD NUM4>
 257                     <RETURN TEMP5>
 258                     <DEAD TEMP5>
 259                     <END \1aINDICATE-TEMP-PATCH>
 260 #WORD *25517704364*
 261 <GFCN \1aNEW-MODEL ("VALUE" STK-MODEL STK-MODEL) MODEL4>
 262                     <TEMP TEMP5 TEMP6:STK-MODEL>
 263                     <INTGO>
 264                     <GVAL 'CURRENT-MODEL = TEMP5>
 265                     <NTHUV TEMP5 3 = TEMP5 (TYPE LIST)>
 266                     <CONS MODEL4 TEMP5 = TEMP5>
 267                     <GVAL 'CURRENT-MODEL = TEMP6>
 268                     <PUTUV TEMP6 3 TEMP5 (TYPE LIST)>
 269                     <DEAD TEMP6 TEMP5>
 270                     <GVAL 'CURRENT-MODEL = TEMP6>
 271                     <PUTUV MODEL4 4 TEMP6>
 272                     <DEAD TEMP6>
 273                     <SETG 'CURRENT-MODEL MODEL4>
 274                     <RETURN MODEL4>
 275                     <DEAD MODEL4>
 276                     <END \1aNEW-MODEL>
 277 #WORD *23175543163*
 278 <GFCN \1aPOP-MODEL ("VALUE" STK-MODEL)>
 279                     <TEMP TEMP6>
 280                     <INTGO>
 281                     <GVAL 'CURRENT-MODEL = TEMP6>
 282                     <NTHUV TEMP6 4 = TEMP6>
 283                     <TYPE? TEMP6 <TYPE-CODE FALSE> - PHRASE5>
 284                     <DEAD TEMP6>
 285                     <FRAME '\1aERROR>
 286                     <PUSH "TOPLEVEL MODEL">
 287                     <PUSH 'POP-MODEL>
 288                     <CALL '\1aERROR 2>
 289 PHRASE5
 290                     <GVAL 'CURRENT-MODEL = TEMP6>
 291                     <NTHUV TEMP6 4 = TEMP6 (TYPE STK-MODEL)>
 292                     <SETG 'CURRENT-MODEL TEMP6>
 293                     <RETURN TEMP6>
 294                     <DEAD TEMP6>
 295                     <END \1aPOP-MODEL>
 296 #WORD *7561375104*
 297 <GFCN \1aGEN-LOC ("VALUE" <OR EFF-ADDR LADDR> VARTBL FIX "OPTIONAL" ANY) VAR6 IOFF7 DEF?8>
 298                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
 299 OPT4
 300                     <PUSH %<>>
 301 OPT5
 302                     <TEMP OFF9 CMOD10 TEMP20 TEMP21>
 303                     <INTGO>
 304                     <NTHUV VAR6 2 = OFF9>
 305                     <GVAL 'CURRENT-MODEL = CMOD10>
 306                     <LOOP>
 307 AGAIN14
 308                     <INTGO>
 309                     <NTHUV CMOD10 6 = TEMP20 (TYPE LIST)>
 310                     <EMPL? TEMP20 + PHRASE16>
 311                     <LOOP (VAR6 VALUE) (TEMP20 VALUE)>
 312 TAG18
 313                     <NTHL TEMP20 1 = TEMP21>
 314                     <VEQUAL? TEMP21 VAR6 + EXIT12>
 315                     <DEAD TEMP21>
 316                     <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
 317                     <EMPL? TEMP20 - TAG18>
 318 PHRASE16
 319                     <NTHUV CMOD10 4 = CMOD10>
 320                     <TYPE? CMOD10 <TYPE-CODE FALSE> - AGAIN14>
 321                     <FRAME '\1aERROR>
 322                     <PUSH "VARIABLE NOT FOUND">
 323                     <PUSH 'GEN-LOC>
 324                     <CALL '\1aERROR 2>
 325                     <JUMP + AGAIN14>
 326 EXIT12
 327                     <TYPE? OFF9 <TYPE-CODE FALSE> - COND25>
 328                     <NTHUV CMOD10 5 = OFF9 (TYPE FIX)>
 329                     <ADD OFF9 8 = TEMP20 (TYPE FIX)>
 330                     <PUTUV CMOD10 5 TEMP20 (TYPE FIX)>
 331                     <DEAD TEMP20>
 332                     <PUTUV VAR6 2 OFF9>
 333                     <NTHUV CMOD10 2 = TEMP20 (TYPE LIST)>
 334                     <EMPL? TEMP20 - PHRASE26 (TYPE LIST)>
 335                     <CONS VAR6 () = TEMP20>
 336                     <DEAD VAR6>
 337                     <PUTUV CMOD10 2 TEMP20 (TYPE LIST)>
 338                     <DEAD CMOD10 TEMP20>
 339                     <JUMP + COND25>
 340 PHRASE26
 341                     <LOOP (TEMP20 VALUE)>
 342 TAG27
 343                     <RESTL TEMP20 1 = TEMP21 (TYPE LIST)>
 344                     <EMPL? TEMP21 + TAG28>
 345                     <SET TEMP20 TEMP21>
 346                     <DEAD TEMP21>
 347                     <JUMP + TAG27>
 348 TAG28
 349                     <CONS VAR6 () = TEMP21>
 350                     <DEAD VAR6>
 351                     <PUTREST TEMP20 TEMP21>
 352                     <DEAD TEMP20 TEMP21>
 353 COND25
 354                     <ADD OFF9 IOFF7 = OFF9 (TYPE FIX)>
 355                     <DEAD IOFF7>
 356                     <TYPE? DEF?8 <TYPE-CODE FALSE> + PHRASE30>
 357                     <DEAD DEF?8>
 358                     <FRAME '\1aMA-DEF-DISP>
 359                     <GVAL 'AC-F = STACK>
 360                     <PUSH OFF9>
 361                     <DEAD OFF9>
 362                     <CALL '\1aMA-DEF-DISP 2 = TEMP21>
 363                     <RETURN TEMP21>
 364                     <DEAD TEMP21>
 365 PHRASE30
 366                     <VEQUAL? OFF9 0 - PHRASE32 (TYPE FIX)>
 367                     <GVAL 'AC-F = OFF9>
 368                     <NTHUV OFF9 2 = OFF9 (TYPE FIX)>
 369                     <OR OFF9 #WORD *140* = OFF9>
 370                     <LSH OFF9 24 = OFF9 (TYPE FIX)>
 371                     <CHTYPE OFF9 <TYPE-CODE EFF-ADDR> = TEMP21>
 372                     <DEAD OFF9>
 373                     <RETURN TEMP21>
 374                     <DEAD TEMP21>
 375 PHRASE32
 376                     <FRAME '\1aMA-DISP>
 377                     <GVAL 'AC-F = STACK>
 378                     <PUSH OFF9>
 379                     <DEAD OFF9>
 380                     <CALL '\1aMA-DISP 2 = TEMP21>
 381                     <RETURN TEMP21>
 382                     <DEAD TEMP21>
 383                     <END \1aGEN-LOC>
 384 #WORD *22245217221*
 385 <GFCN \1aEMIT-STORE-AC ("VALUE" ANY AC EFF-ADDR "OPTIONAL" ATOM) AC6 DEST7 MODE8>
 386                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
 387 OPT4
 388                     <PUSH 'LONG>
 389 OPT5
 390                     <TEMP TEMP12>
 391                     <INTGO>
 392                     <NTHUV AC6 9 = TEMP12>
 393                     <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE10>
 394                     <DEAD TEMP12>
 395                     <NTHUV AC6 6 = TEMP12>
 396                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE10>
 397                     <DEAD TEMP12>
 398                     <VEQUAL? MODE8 'BYTE + PHRASE10>
 399                     <GVAL 'AC-STORE-OPT = TEMP12>
 400                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE10>
 401                     <DEAD TEMP12>
 402                     <NTHUV AC6 8 = TEMP12 (TYPE VECTOR)>
 403                     <LENUV TEMP12 = TEMP12 (TYPE FIX)>
 404                     <LESS? TEMP12 2 - PHRASE10 (TYPE FIX)>
 405                     <DEAD TEMP12>
 406                     <FRAME '\1aRE-EMIT-MOVE>
 407                     <NTHUV AC6 6 = STACK (TYPE FIX)>
 408                     <NTHUV AC6 7 = STACK>
 409                     <PUSH DEST7>
 410                     <DEAD DEST7>
 411                     <PUSH MODE8>
 412                     <DEAD MODE8>
 413                     <CALL '\1aRE-EMIT-MOVE 4>
 414                     <FRAME '\1aCLEAR-VARS-FROM-AC>
 415                     <PUSH AC6>
 416                     <DEAD AC6>
 417                     <CALL '\1aCLEAR-VARS-FROM-AC 1 = TEMP12>
 418                     <RETURN TEMP12>
 419                     <DEAD TEMP12>
 420 PHRASE10
 421                     <FRAME '\1aUSE-AC>
 422                     <PUSH AC6>
 423                     <CALL '\1aUSE-AC 1>
 424                     <FRAME '\1aEMIT-MOVE>
 425                     <NTHUV AC6 2 = TEMP12 (TYPE FIX)>
 426                     <DEAD AC6>
 427                     <OR TEMP12 #WORD *120* = TEMP12>
 428                     <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
 429                     <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
 430                     <DEAD TEMP12>
 431                     <PUSH DEST7>
 432                     <DEAD DEST7>
 433                     <PUSH MODE8>
 434                     <DEAD MODE8>
 435                     <CALL '\1aEMIT-MOVE 3 = TEMP12>
 436                     <RETURN TEMP12>
 437                     <DEAD TEMP12>
 438                     <END \1aEMIT-STORE-AC>
 439 #WORD *11602564461*
 440 <GFCN \1aEMIT-STORE-PAIR-AC ("VALUE" ANY AC AC EFF-ADDR "OPTIONAL" ATOM) AC6 AC27 DEST8 MODE9>
 441                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
 442 OPT4
 443                     <PUSH 'LONG>
 444 OPT5
 445                     <TEMP TEMP13>
 446                     <INTGO>
 447                     <NTHUV AC6 9 = TEMP13>
 448                     <TYPE? TEMP13 <TYPE-CODE FALSE> - PHRASE11>
 449                     <DEAD TEMP13>
 450                     <NTHUV AC6 6 = TEMP13>
 451                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE11>
 452                     <DEAD TEMP13>
 453                     <VEQUAL? MODE9 'BYTE + PHRASE11>
 454                     <DEAD MODE9>
 455                     <GVAL 'AC-STORE-OPT = TEMP13>
 456                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE11>
 457                     <DEAD TEMP13>
 458                     <NTHUV AC6 8 = TEMP13 (TYPE VECTOR)>
 459                     <LENUV TEMP13 = TEMP13 (TYPE FIX)>
 460                     <LESS? TEMP13 2 - PHRASE11 (TYPE FIX)>
 461                     <DEAD TEMP13>
 462                     <FRAME '\1aRE-EMIT-MOVE>
 463                     <NTHUV AC6 6 = STACK (TYPE FIX)>
 464                     <NTHUV AC6 7 = STACK>
 465                     <PUSH DEST8>
 466                     <DEAD DEST8>
 467                     <PUSH 'DOUBLE>
 468                     <CALL '\1aRE-EMIT-MOVE 4>
 469                     <FRAME '\1aCLEAR-VARS-FROM-AC>
 470                     <PUSH AC6>
 471                     <DEAD AC6>
 472                     <CALL '\1aCLEAR-VARS-FROM-AC 1 = TEMP13>
 473                     <RETURN TEMP13>
 474                     <DEAD TEMP13>
 475 PHRASE11
 476                     <FRAME '\1aUSE-AC>
 477                     <PUSH AC6>
 478                     <CALL '\1aUSE-AC 1>
 479                     <FRAME '\1aUSE-AC>
 480                     <PUSH AC27>
 481                     <DEAD AC27>
 482                     <CALL '\1aUSE-AC 1>
 483                     <FRAME '\1aEMIT-MOVE>
 484                     <NTHUV AC6 2 = TEMP13 (TYPE FIX)>
 485                     <DEAD AC6>
 486                     <OR TEMP13 #WORD *120* = TEMP13>
 487                     <LSH TEMP13 24 = TEMP13 (TYPE FIX)>
 488                     <CHTYPE TEMP13 <TYPE-CODE EFF-ADDR> = STACK>
 489                     <DEAD TEMP13>
 490                     <PUSH DEST8>
 491                     <DEAD DEST8>
 492                     <PUSH 'DOUBLE>
 493                     <CALL '\1aEMIT-MOVE 3 = TEMP13>
 494                     <RETURN TEMP13>
 495                     <DEAD TEMP13>
 496                     <END \1aEMIT-STORE-PAIR-AC>
 497 #WORD *347453003*
 498 <GFCN \1aISTORE-VAR ("VALUE" ANY LINKVAR "OPTIONAL" <OR FALSE XREF-INFO> ANY) LVAR7 XREF8 WILL-DIE-LIES?9>
 499                     <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
 500 OPT4
 501                     <PUSH %<>>
 502 OPT5
 503                     <PUSH %<>>
 504 OPT6
 505                     <TEMP VAR11:VARTBL (STOREV14 %<>) (STORET15 %<>) (STOREC16 %<>) TEMP23 TAC13>
 506                     <INTGO>
 507                     <NTHUV LVAR7 1 = VAR11 (TYPE VARTBL)>
 508                     <NTHUV VAR11 5 = STORET15>
 509                     <TYPE? STORET15 <TYPE-CODE FALSE> - BOOL57>
 510                     <NTHUV LVAR7 2 = TEMP23>
 511                     <TYPE? TEMP23 <TYPE-CODE FALSE> + BOOL22>
 512                     <DEAD TEMP23>
 513                     <NTHUV LVAR7 4 = TEMP23>
 514                     <TYPE? TEMP23 <TYPE-CODE FALSE> + BOOL22>
 515                     <DEAD TEMP23>
 516                     <NTHUV LVAR7 3 = STORET15>
 517                     <TYPE? STORET15 <TYPE-CODE FALSE> - BOOL57>
 518 BOOL22
 519                     <TYPE? WILL-DIE-LIES?9 <TYPE-CODE FALSE> - BOOL24>
 520                     <DEAD WILL-DIE-LIES?9>
 521                     <FRAME '\1aWILL-DIE?>
 522                     <PUSH VAR11>
 523                     <CALL '\1aWILL-DIE? 1 = STORET15>
 524                     <TYPE? STORET15 <TYPE-CODE FALSE> - BOOL57>
 525 BOOL24
 526                     <FRAME '\1aSTART-CODE-INSERT>
 527                     <CALL '\1aSTART-CODE-INSERT 0>
 528                     <NTHUV LVAR7 2 = TEMP23>
 529                     <TYPE? TEMP23 <TYPE-CODE FALSE> - PHRASE29>
 530                     <DEAD TEMP23>
 531                     <NTHUV LVAR7 3 = TEMP23>
 532                     <TYPE? TEMP23 <TYPE-CODE FALSE> + BOOL31>
 533                     <DEAD TEMP23>
 534                     <NTHUV LVAR7 4 = TEMP23>
 535                     <TYPE? TEMP23 <TYPE-CODE FALSE> - PHRASE29>
 536                     <DEAD TEMP23>
 537 BOOL31
 538                     <NTHUV LVAR7 9 = TEMP23>
 539                     <FRAME '\1aPREV-AC>
 540                     <NTHUV LVAR7 6 = STACK>
 541                     <CALL '\1aPREV-AC 1 = STORET15>
 542                     <EQUAL? TEMP23 STORET15 - PHRASE29>
 543                     <DEAD TEMP23>
 544                     <TYPE? STORET15 <TYPE-CODE FALSE> + PHRASE29>
 545                     <FRAME '\1aADDR-VAR-TYPE-VALUE>
 546                     <PUSH VAR11>
 547                     <CALL '\1aADDR-VAR-TYPE-VALUE 1 = TEMP23>
 548                     <FRAME '\1aEMIT-STORE-PAIR-AC>
 549                     <PUSH STORET15>
 550                     <DEAD STORET15>
 551                     <NTHUV LVAR7 6 = STACK (TYPE AC)>
 552                     <PUSH TEMP23>
 553                     <DEAD TEMP23>
 554                     <CALL '\1aEMIT-STORE-PAIR-AC 3>
 555                     <SET STOREC16 'T (TYPE ATOM)>
 556                     <SET STORET15 STOREC16>
 557                     <SET STOREV14 STORET15>
 558                     <DEAD STORET15>
 559                     <PUTUV LVAR7 2 'T>
 560                     <PUTUV LVAR7 4 'T>
 561                     <PUTUV LVAR7 3 'T>
 562                     <JUMP + PHRASE35>
 563 PHRASE29
 564                     <NTHUV LVAR7 2 = TEMP23>
 565                     <TYPE? TEMP23 <TYPE-CODE FALSE> - PHRASE35>
 566                     <DEAD TEMP23>
 567                     <NTHUV LVAR7 6 = STORET15>
 568                     <TYPE? STORET15 <TYPE-CODE FALSE> - PHRASE37>
 569                     <FRAME '\1aERROR>
 570                     <PUSH "VARIABLE NOT IN AC">
 571                     <PUSH 'ISTORE-VAR>
 572                     <CALL '\1aERROR 2>
 573 PHRASE37
 574                     <FRAME '\1aADDR-VAR-VALUE>
 575                     <PUSH VAR11>
 576                     <CALL '\1aADDR-VAR-VALUE 1 = TEMP23>
 577                     <FRAME '\1aEMIT-STORE-AC>
 578                     <PUSH STORET15>
 579                     <DEAD STORET15>
 580                     <PUSH TEMP23>
 581                     <DEAD TEMP23>
 582                     <PUSH 'LONG>
 583                     <CALL '\1aEMIT-STORE-AC 3>
 584                     <SET STOREV14 'T (TYPE ATOM)>
 585                     <PUTUV LVAR7 2 'T>
 586 PHRASE35
 587                     <FRAME '\1aSCHECK-TYPE-STORED>
 588                     <PUSH LVAR7>
 589                     <CALL '\1aSCHECK-TYPE-STORED 1 = STORET15>
 590                     <NTHUV LVAR7 3 = TEMP23>
 591                     <TYPE? TEMP23 <TYPE-CODE FALSE> - PHRASE48>
 592                     <DEAD TEMP23>
 593                     <PUTUV LVAR7 3 'T>
 594                     <SET STOREC16 'T (TYPE ATOM)>
 595                     <NTHUV LVAR7 9 = TAC13>
 596                     <TYPE? TAC13 <TYPE-CODE FALSE> + PHRASE45>
 597                     <FRAME '\1aADDR-VAR-TYPE>
 598                     <PUSH VAR11>
 599                     <CALL '\1aADDR-VAR-TYPE 1 = TEMP23>
 600                     <FRAME '\1aEMIT-STORE-AC>
 601                     <PUSH TAC13>
 602                     <DEAD TAC13>
 603                     <PUSH TEMP23>
 604                     <DEAD TEMP23>
 605                     <PUSH 'LONG>
 606                     <CALL '\1aEMIT-STORE-AC 3>
 607                     <JUMP + PHRASE48>
 608 PHRASE45
 609                     <NTHUV LVAR7 8 = TAC13>
 610                     <TYPE? TAC13 <TYPE-CODE FALSE> + PHRASE48>
 611                     <FRAME '\1aADDR-VAR-COUNT>
 612                     <PUSH VAR11>
 613                     <CALL '\1aADDR-VAR-COUNT 1 = TEMP23>
 614                     <FRAME '\1aEMIT-STORE-AC>
 615                     <PUSH TAC13>
 616                     <DEAD TAC13>
 617                     <PUSH TEMP23>
 618                     <DEAD TEMP23>
 619                     <PUSH 'WORD>
 620                     <CALL '\1aEMIT-STORE-AC 3>
 621 PHRASE48
 622                     <FRAME '\1aEND-CODE-INSERT>
 623                     <CALL '\1aEND-CODE-INSERT 0 = TEMP23>
 624                     <EMPUU? TEMP23 - TAG53 (TYPE UVECTOR)>
 625                     <RETURN %<>>
 626 TAG53
 627                     <FRAME '\1aCOMPUTE-KIND>
 628                     <PUSH STOREV14>
 629                     <DEAD STOREV14>
 630                     <PUSH STORET15>
 631                     <DEAD STORET15>
 632                     <PUSH STOREC16>
 633                     <DEAD STOREC16>
 634                     <CALL '\1aCOMPUTE-KIND 3 = STOREV14>
 635                     <FRAME '\1aEMIT-POTENTIAL-STORE>
 636                     <PUSH TEMP23>
 637                     <DEAD TEMP23>
 638                     <PUSH STOREV14>
 639                     <PUSH LVAR7>
 640                     <DEAD LVAR7>
 641                     <CALL '\1aEMIT-POTENTIAL-STORE 3>
 642                     <SET STORET15 XREF8>
 643                     <TYPE? STORET15 <TYPE-CODE FALSE> + BOOL57>
 644                     <FRAME '\1aKILL-STORES>
 645                     <PUSH XREF8>
 646                     <DEAD XREF8>
 647                     <PUSH STOREV14>
 648                     <DEAD STOREV14>
 649                     <PUSH VAR11>
 650                     <DEAD VAR11>
 651                     <CALL '\1aKILL-STORES 3 = STORET15>
 652 BOOL57
 653                     <RETURN STORET15>
 654                     <DEAD STORET15>
 655                     <END \1aISTORE-VAR>
 656 #WORD *11220477560*
 657 <GFCN \1aCOMPUTE-KIND ("VALUE" <OR ATOM FALSE> BOOLEAN <OR FALSE ATOM> BOOLEAN) STOREV4 STORET5 STOREC6>
 658                     <TEMP TEMP12>
 659                     <INTGO>
 660                     <EQUAL? STORET5 'TYPE - PHRASE8>
 661                     <TYPE? STOREV4 <TYPE-CODE FALSE> + PHRASE10>
 662                     <TYPE? STOREC6 <TYPE-CODE FALSE> + PHRASE10>
 663                     <RETURN 'COUNT-VALUE>
 664 PHRASE10
 665                     <TYPE? STOREC6 <TYPE-CODE FALSE> + PHRASE13>
 666                     <DEAD STOREC6>
 667                     <RETURN 'TYPE-COUNT>
 668 PHRASE13
 669                     <TYPE? STOREV4 <TYPE-CODE FALSE> + PHRASE14>
 670                     <DEAD STOREV4>
 671                     <RETURN 'TYPE-VALUE>
 672 PHRASE14
 673                     <RETURN 'TYPE>
 674 PHRASE8
 675                     <EQUAL? STORET5 'TYPE-COUNT - PHRASE15>
 676                     <DEAD STORET5>
 677                     <TYPE? STOREV4 <TYPE-CODE FALSE> + PHRASE17>
 678                     <DEAD STOREV4>
 679                     <RETURN 'TYPE-COUNT-VALUE>
 680 PHRASE17
 681                     <RETURN 'TYPE-COUNT>
 682 PHRASE15
 683                     <TYPE? STOREV4 <TYPE-CODE FALSE> + PHRASE20>
 684                     <TYPE? STOREC6 <TYPE-CODE FALSE> + PHRASE20>
 685                     <RETURN 'COUNT-VALUE>
 686 PHRASE20
 687                     <TYPE? STOREV4 <TYPE-CODE FALSE> + PHRASE22>
 688                     <DEAD STOREV4>
 689                     <RETURN 'VALUE>
 690 PHRASE22
 691                     <SET TEMP12 STOREC6>
 692                     <DEAD STOREC6>
 693                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE23>
 694                     <SET TEMP12 'COUNT (TYPE ATOM)>
 695 PHRASE23
 696                     <RETURN TEMP12>
 697                     <DEAD TEMP12>
 698                     <END \1aCOMPUTE-KIND>
 699 #WORD *12413041352*
 700 <GFCN \1aSCHECK-TYPE-STORED ("VALUE" ATOM LINKVAR) LVAR4>
 701                     <TEMP (KIND7 'TYPE) VAR9:VARTBL TEMP12 DCL8 TEMP20>
 702                     <INTGO>
 703                     <NTHUV LVAR4 1 = VAR9 (TYPE VARTBL)>
 704                     <NTHUV LVAR4 4 = TEMP12>
 705                     <TYPE? TEMP12 <TYPE-CODE FALSE> - COND24>
 706                     <DEAD TEMP12>
 707                     <NTHUV LVAR4 1 = TEMP12 (TYPE VARTBL)>
 708                     <NTHUV TEMP12 4 = DCL8>
 709                     <DEAD TEMP12>
 710                     <TYPE? DCL8 <TYPE-CODE FALSE> + PHRASE14>
 711                     <GVAL 'TYPE-LENGTHS = TEMP12>
 712                     <EMPTY? TEMP12 + TAG17>
 713                     <LOOP (DCL8 VALUE) (TEMP12 LENGTH VALUE TYPE)>
 714 TAG18
 715                     <NTH1 TEMP12 = TEMP20>
 716                     <TYPE? TEMP20 <TYPE-CODE ATOM> - TAG19>
 717                     <VEQUAL? TEMP20 DCL8 + BOOL16>
 718                     <DEAD TEMP20>
 719 TAG19
 720                     <REST1 TEMP12 = TEMP12>
 721                     <EMPTY? TEMP12 - TAG18>
 722 TAG17
 723                     <FRAME '\1aCOUNT-NEEDED?>
 724                     <PUSH DCL8>
 725                     <DEAD DCL8>
 726                     <CALL '\1aCOUNT-NEEDED? 1 = TEMP12>
 727                     <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE14>
 728                     <DEAD TEMP12>
 729 BOOL16
 730                     <PUTUV LVAR4 3 'T>
 731                     <DEAD LVAR4>
 732                     <RETURN KIND7>
 733                     <DEAD KIND7>
 734 PHRASE14
 735                     <FRAME '\1aADDR-VAR-TYPE>
 736                     <PUSH VAR9>
 737                     <DEAD VAR9>
 738                     <CALL '\1aADDR-VAR-TYPE 1 = TEMP12>
 739                     <PUTUV LVAR4 4 'T>
 740                     <NTHUV LVAR4 9 = DCL8>
 741                     <TYPE? DCL8 <TYPE-CODE FALSE> + PHRASE25>
 742                     <FRAME '\1aEMIT-STORE-AC>
 743                     <PUSH DCL8>
 744                     <DEAD DCL8>
 745                     <PUSH TEMP12>
 746                     <DEAD TEMP12>
 747                     <PUSH 'LONG>
 748                     <CALL '\1aEMIT-STORE-AC 3>
 749                     <PUTUV LVAR4 3 'T>
 750                     <DEAD LVAR4>
 751                     <RETURN 'TYPE-COUNT>
 752 PHRASE25
 753                     <NTHUV LVAR4 7 = DCL8>
 754                     <TYPE? DCL8 <TYPE-CODE FALSE> + PHRASE27>
 755                     <FRAME '\1aEMIT-STORE-AC>
 756                     <PUSH DCL8>
 757                     <DEAD DCL8>
 758                     <PUSH TEMP12>
 759                     <DEAD TEMP12>
 760                     <PUSH 'WORD>
 761                     <CALL '\1aEMIT-STORE-AC 3>
 762                     <RETURN KIND7>
 763                     <DEAD KIND7>
 764 PHRASE27
 765                     <NTHUV LVAR4 5 = DCL8>
 766                     <DEAD LVAR4>
 767                     <TYPE? DCL8 <TYPE-CODE FALSE> + PHRASE29>
 768                     <FRAME '\1aSTORE-TYPE>
 769                     <PUSH DCL8>
 770                     <DEAD DCL8>
 771                     <PUSH TEMP12>
 772                     <DEAD TEMP12>
 773                     <CALL '\1aSTORE-TYPE 2>
 774                     <RETURN KIND7>
 775                     <DEAD KIND7>
 776 PHRASE29
 777                     <FRAME '\1aERROR>
 778                     <PUSH "VARIABLE NOT IN AC">
 779                     <PUSH 'ISTORE-ADDR>
 780                     <CALL '\1aERROR 2>
 781 COND24
 782                     <RETURN KIND7>
 783                     <DEAD KIND7>
 784                     <END \1aSCHECK-TYPE-STORED>
 785 #WORD *33464047112*
 786 <GFCN \1aSTORE-TYPE ("VALUE" ANY ATOM EFF-ADDR "OPTIONAL" ANY) DCL6 ADDR7 EXTRA8>
 787                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
 788 OPT4
 789                     <PUSH %<>>
 790 OPT5
 791                     <TEMP TEMP14 TEMP15 TEMP26 TEMP27>
 792                     <INTGO>
 793                     <GVAL 'TYPE-LENGTHS = TEMP14>
 794                     <EMPTY? TEMP14 + PHRASE10>
 795                     <LOOP (DCL6 VALUE) (TEMP14 LENGTH VALUE TYPE)>
 796 TAG12
 797                     <NTH1 TEMP14 = TEMP15>
 798                     <TYPE? TEMP15 <TYPE-CODE ATOM> - TAG13>
 799                     <VEQUAL? TEMP15 DCL6 + TAG11>
 800                     <DEAD TEMP15>
 801 TAG13
 802                     <REST1 TEMP14 = TEMP14>
 803                     <EMPTY? TEMP14 - TAG12>
 804                     <JUMP + PHRASE10>
 805 TAG11
 806                     <FRAME '\1aEMIT-MOVE>
 807                     <FRAME '\1aTYPE-WORD>
 808                     <PUSH DCL6>
 809                     <DEAD DCL6>
 810                     <CALL '\1aTYPE-WORD 1 = STACK>
 811                     <PUSH ADDR7>
 812                     <DEAD ADDR7>
 813                     <PUSH 'LONG>
 814                     <PUSH EXTRA8>
 815                     <DEAD EXTRA8>
 816                     <CALL '\1aEMIT-MOVE 4 = TEMP14>
 817                     <RETURN TEMP14>
 818                     <DEAD TEMP14>
 819 PHRASE10
 820                     <FRAME '\1aCOUNT-NEEDED?>
 821                     <PUSH DCL6>
 822                     <CALL '\1aCOUNT-NEEDED? 1 = TEMP15>
 823                     <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE18>
 824                     <DEAD TEMP15>
 825                     <FRAME '\1aTYPEPRIM>
 826                     <PUSH DCL6>
 827                     <CALL '\1aTYPEPRIM 1 = TEMP15>
 828                     <GVAL 'TYPE-LENGTHS = TEMP14>
 829                     <TYPE TEMP15 = TEMP26>
 830                     <EMPTY? TEMP14 + TAG21>
 831                     <LOOP (TEMP15 VALUE) (TEMP26 VALUE) (TEMP14 LENGTH VALUE TYPE)>
 832 TAG22
 833                     <NTH1 TEMP14 = TEMP27>
 834                     <TYPE? TEMP27 TEMP26 - TAG23>
 835                     <VEQUAL? TEMP27 TEMP15 + PHRASE18>
 836                     <DEAD TEMP27>
 837 TAG23
 838                     <REST1 TEMP14 = TEMP14>
 839                     <EMPTY? TEMP14 - TAG22>
 840 TAG21
 841                     <FRAME '\1aEMIT-MOVE>
 842                     <FRAME '\1aTYPE-CODE>
 843                     <PUSH DCL6>
 844                     <DEAD DCL6>
 845                     <PUSH 'WORD>
 846                     <CALL '\1aTYPE-CODE 2 = STACK>
 847                     <PUSH ADDR7>
 848                     <DEAD ADDR7>
 849                     <PUSH 'LONG>
 850                     <PUSH EXTRA8>
 851                     <DEAD EXTRA8>
 852                     <CALL '\1aEMIT-MOVE 4 = TEMP14>
 853                     <RETURN TEMP14>
 854                     <DEAD TEMP14>
 855 PHRASE18
 856                     <FRAME '\1aEMIT-MOVE>
 857                     <FRAME '\1aTYPE-CODE>
 858                     <PUSH DCL6>
 859                     <DEAD DCL6>
 860                     <PUSH 'WORD>
 861                     <CALL '\1aTYPE-CODE 2 = STACK>
 862                     <PUSH ADDR7>
 863                     <DEAD ADDR7>
 864                     <PUSH 'WORD>
 865                     <CALL '\1aEMIT-MOVE 3 = TEMP14>
 866                     <RETURN TEMP14>
 867                     <DEAD TEMP14>
 868                     <END \1aSTORE-TYPE>\r\0\r\0
 869 #WORD *736034154*
 870 <GFCN \1aLOAD-AC-PAIR ("VALUE" ANY ANY ANY "OPTIONAL" ANY) VAR6 RES7 AC8>
 871                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
 872 OPT4
 873                     <PUSH #T$UNBOUND 0>
 874 OPT5
 875                     <TEMP TEMP26 TEMP27 TEMP28 TAC9>
 876                     <INTGO>
 877                     <TYPE? AC8 <TYPE-CODE UNBOUND> - TAG12>
 878                     <FRAME '\1aGET-AC>
 879                     <PUSH 'DOUBLE>
 880                     <PUSH %<>>
 881                     <CALL '\1aGET-AC 2 = AC8>
 882 TAG12
 883                     <TYPE? VAR6 <TYPE-CODE VARTBL> + PHRASE16>
 884                     <FRAME '\1aSTORE-AC>
 885                     <PUSH AC8>
 886                     <PUSH 'T>
 887                     <CALL '\1aSTORE-AC 2>
 888                     <FRAME '\1aSTORE-AC>
 889                     <FRAME '\1aNEXT-AC>
 890                     <PUSH AC8>
 891                     <CALL '\1aNEXT-AC 1 = STACK>
 892                     <PUSH 'T>
 893                     <CALL '\1aSTORE-AC 2>
 894                     <FRAME '\1aPRIMTYPE>
 895                     <PUSH VAR6>
 896                     <CALL '\1aPRIMTYPE 1 = TEMP26>
 897                     <SET TEMP27 [WORD FIX] (TYPE VECTOR)>
 898                     <LOOP (TEMP26 VALUE) (TEMP27 LENGTH VALUE)>
 899 TAG23
 900                     <NTHUV TEMP27 1 = TEMP28>
 901                     <VEQUAL? TEMP28 TEMP26 + PHRASE21>
 902                     <DEAD TEMP28>
 903                     <RESTUV TEMP27 1 = TEMP27 (TYPE VECTOR)>
 904                     <EMPUV? TEMP27 - TAG23>
 905                     <FRAME '\1aEMIT>
 906                     <PUSH 125>
 907                     <FRAME '\1aADDR-TYPE-M>
 908                     <FRAME '\1aADD-MVEC>
 909                     <PUSH VAR6>
 910                     <DEAD VAR6>
 911                     <CALL '\1aADD-MVEC 1 = STACK>
 912                     <CALL '\1aADDR-TYPE-M 1 = STACK>
 913                     <NTHUV AC8 2 = TEMP27 (TYPE FIX)>
 914                     <OR TEMP27 #WORD *120* = TEMP27>
 915                     <LSH TEMP27 24 = TEMP27 (TYPE FIX)>
 916                     <CHTYPE TEMP27 <TYPE-CODE EFF-ADDR> = STACK>
 917                     <DEAD TEMP27>
 918                     <CALL '\1aEMIT 3>
 919                     <JUMP + PHRASE64>
 920 PHRASE21
 921                     <FRAME '\1aMOVE-VALUE>
 922                     <PUSH VAR6>
 923                     <FRAME '\1aNEXT-AC>
 924                     <PUSH AC8>
 925                     <CALL '\1aNEXT-AC 1 = STACK>
 926                     <CALL '\1aMOVE-VALUE 2>
 927                     <FRAME '\1aEMIT-MOVE>
 928                     <FRAME '\1aTYPE-WORD>
 929                     <FRAME '\1aTYPE>
 930                     <PUSH VAR6>
 931                     <CALL '\1aTYPE 1 = STACK>
 932                     <CALL '\1aTYPE-WORD 1 = STACK>
 933                     <NTHUV AC8 2 = TEMP27 (TYPE FIX)>
 934                     <OR TEMP27 #WORD *120* = TEMP27>
 935                     <LSH TEMP27 24 = TEMP27 (TYPE FIX)>
 936                     <CHTYPE TEMP27 <TYPE-CODE EFF-ADDR> = STACK>
 937                     <DEAD TEMP27>
 938                     <PUSH 'LONG>
 939                     <CALL '\1aEMIT-MOVE 3>
 940                     <FRAME '\1aLOAD-AC>
 941                     <PUSH AC8>
 942                     <FRAME '\1aTYPE-WORD>
 943                     <FRAME '\1aTYPE>
 944                     <PUSH VAR6>
 945                     <DEAD VAR6>
 946                     <CALL '\1aTYPE 1 = STACK>
 947                     <CALL '\1aTYPE-WORD 1 = STACK>
 948                     <CALL '\1aLOAD-AC 2>
 949                     <JUMP + PHRASE64>
 950 PHRASE16
 951                     <FRAME '\1aFIND-CACHE-VAR>
 952                     <PUSH VAR6>
 953                     <CALL '\1aFIND-CACHE-VAR 1 = TEMP28>
 954                     <TYPE? TEMP28 <TYPE-CODE FALSE> - PHRASE41>
 955                     <FRAME '\1aSTORE-AC>
 956                     <PUSH AC8>
 957                     <PUSH 'T>
 958                     <CALL '\1aSTORE-AC 2>
 959                     <FRAME '\1aSTORE-AC>
 960                     <FRAME '\1aNEXT-AC>
 961                     <PUSH AC8>
 962                     <CALL '\1aNEXT-AC 1 = STACK>
 963                     <PUSH 'T>
 964                     <CALL '\1aSTORE-AC 2>
 965                     <FRAME '\1aLOAD-VAR-INTO-AC>
 966                     <PUSH VAR6>
 967                     <DEAD VAR6>
 968                     <PUSH 'TYPE-VALUE-PAIR>
 969                     <PUSH AC8>
 970                     <PUSH 'T>
 971                     <CALL '\1aLOAD-VAR-INTO-AC 4>
 972                     <JUMP + PHRASE64>
 973 PHRASE41
 974                     <NTHUV TEMP28 6 = TEMP26>
 975                     <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE47>
 976                     <NTHUV TEMP28 9 = TAC9>
 977                     <TYPE? TAC9 <TYPE-CODE FALSE> + PHRASE47>
 978                     <FRAME '\1aNEXT-AC>
 979                     <PUSH TAC9>
 980                     <CALL '\1aNEXT-AC 1 = TEMP27>
 981                     <EQUAL? TEMP27 TEMP26 - PHRASE47>
 982                     <DEAD TEMP27>
 983                     <EQUAL? TAC9 AC8 - PHRASE51>
 984                     <FRAME '\1aMUNG-AC>
 985                     <PUSH AC8>
 986                     <CALL '\1aMUNG-AC 1>
 987                     <FRAME '\1aMUNG-AC>
 988                     <FRAME '\1aNEXT-AC>
 989                     <PUSH AC8>
 990                     <CALL '\1aNEXT-AC 1 = STACK>
 991                     <CALL '\1aMUNG-AC 1>
 992                     <JUMP + PHRASE64>
 993 PHRASE51
 994                     <FRAME '\1aLOAD-VAR-INTO-AC>
 995                     <PUSH VAR6>
 996                     <DEAD VAR6>
 997                     <PUSH 'TYPE-VALUE-PAIR>
 998                     <PUSH AC8>
 999                     <PUSH 'T>
1000                     <PUSH %<>>
1001                     <PUSH TAC9>
1002                     <DEAD TAC9>
1003                     <CALL '\1aLOAD-VAR-INTO-AC 6>
1004                     <JUMP + PHRASE64>
1005 PHRASE47
1006                     <NTHUV TEMP28 9 = TAC9>
1007                     <TYPE? TEMP26 <TYPE-CODE FALSE> - BOOL61>
1008                     <DEAD TEMP26>
1009                     <TYPE? TAC9 <TYPE-CODE FALSE> + BOOL60>
1010                     <DEAD TAC9>
1011 BOOL61
1012                     <NTHUV TEMP28 2 = TEMP27>
1013                     <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE59>
1014                     <DEAD TEMP27>
1015                     <NTHUV TEMP28 4 = TEMP27>
1016                     <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE59>
1017                     <DEAD TEMP27>
1018                     <NTHUV TEMP28 3 = TEMP27>
1019                     <DEAD TEMP28>
1020                     <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE59>
1021                     <DEAD TEMP27>
1022 BOOL60
1023                     <FRAME '\1aLOAD-VAR-INTO-AC>
1024                     <PUSH VAR6>
1025                     <DEAD VAR6>
1026                     <PUSH 'TYPE-VALUE-PAIR>
1027                     <PUSH AC8>
1028                     <PUSH 'T>
1029                     <PUSH %<>>
1030                     <PUSH %<>>
1031                     <CALL '\1aLOAD-VAR-INTO-AC 6>
1032                     <JUMP + PHRASE64>
1033 PHRASE59
1034                     <FRAME '\1aLOAD-VAR>
1035                     <PUSH VAR6>
1036                     <PUSH 'JUST-VALUE>
1037                     <PUSH 'T>
1038                     <FRAME '\1aNEXT-AC>
1039                     <PUSH AC8>
1040                     <CALL '\1aNEXT-AC 1 = STACK>
1041                     <CALL '\1aLOAD-VAR 4>
1042                     <FRAME '\1aLOAD-VAR>
1043                     <PUSH VAR6>
1044                     <DEAD VAR6>
1045                     <PUSH 'TYPE-WORD>
1046                     <PUSH 'T>
1047                     <PUSH AC8>
1048                     <CALL '\1aLOAD-VAR 4>
1049 PHRASE64
1050                     <TYPE? RES7 <TYPE-CODE FALSE> + PHRASE69>
1051                     <FRAME '\1aDEST-PAIR>
1052                     <FRAME '\1aNEXT-AC>
1053                     <PUSH AC8>
1054                     <CALL '\1aNEXT-AC 1 = STACK>
1055                     <PUSH AC8>
1056                     <PUSH RES7>
1057                     <DEAD RES7>
1058                     <CALL '\1aDEST-PAIR 3>
1059 PHRASE69
1060                     <RETURN AC8>
1061                     <DEAD AC8>
1062                     <END \1aLOAD-AC-PAIR>
1063 #WORD *27040314035*
1064 <GFCN \1aLOAD-VAR ("VALUE" ANY VARTBL ANY BOOLEAN AC-CHOICES "OPTIONAL" <OR ATOM FALSE> BOOLEAN) VAR7 IMODE8 MODIFY?9 AC-TYPE10 DCL?11 USE?12>
1065                     <OPT-DISPATCH 4 %<> OPT4 OPT5 OPT6>
1066 OPT4
1067                     <PUSH %<>>
1068 OPT5
1069                     <PUSH 'T>
1070 OPT6
1071                     <TEMP MODE19 LVAR13 NOAC?14 VAC16 TAC15 TEMP32>
1072                     <INTGO>
1073                     <SET MODE19 IMODE8>
1074                     <VEQUAL? IMODE8 'JUST-VALUE - PHRASE21>
1075                     <SET MODE19 'VALUE (TYPE ATOM)>
1076 PHRASE21
1077                     <TYPE? DCL?11 <TYPE-CODE FALSE> - BOOL22>
1078                     <FRAME '\1aVARTBL-DECL>
1079                     <PUSH VAR7>
1080                     <CALL '\1aVARTBL-DECL 1 = DCL?11>
1081 BOOL22
1082                     <FRAME '\1aFIND-CACHE-VAR>
1083                     <PUSH VAR7>
1084                     <CALL '\1aFIND-CACHE-VAR 1 = LVAR13>
1085                     <TYPE? LVAR13 <TYPE-CODE FALSE> - PHRASE25>
1086                     <SET NOAC?14 %<> (TYPE FALSE)>
1087                     <JUMP + COND24>
1088 PHRASE25
1089                     <VEQUAL? MODE19 'VALUE - PHRASE27>
1090                     <VEQUAL? IMODE8 'JUST-VALUE + PHRASE29>
1091                     <NTHUV LVAR13 6 = VAC16>
1092                     <TYPE? VAC16 <TYPE-CODE FALSE> + PHRASE29>
1093                     <NTHUV LVAR13 9 = TAC15>
1094                     <TYPE? TAC15 <TYPE-CODE FALSE> + PHRASE29>
1095                     <FRAME '\1aNEXT-AC>
1096                     <PUSH TAC15>
1097                     <CALL '\1aNEXT-AC 1 = TEMP32>
1098                     <EQUAL? TEMP32 VAC16 - PHRASE29>
1099                     <DEAD TEMP32>
1100                     <GVAL 'AC-0 = TEMP32>
1101                     <EQUAL? TEMP32 AC-TYPE10 + PHRASE29>
1102                     <DEAD TEMP32>
1103                     <TYPE? AC-TYPE10 <TYPE-CODE AC> - PHRASE34>
1104                     <VEQUAL? AC-TYPE10 VAC16 + PHRASE34>
1105                     <FRAME '\1aPREV-AC>
1106                     <PUSH AC-TYPE10>
1107                     <CALL '\1aPREV-AC 1 = NOAC?14>
1108                     <FRAME '\1aLOAD-VAR-INTO-AC>
1109                     <PUSH VAR7>
1110                     <PUSH 'TYPE-VALUE-PAIR>
1111                     <PUSH NOAC?14>
1112                     <DEAD NOAC?14>
1113                     <PUSH MODIFY?9>
1114                     <PUSH %<>>
1115                     <PUSH TAC15>
1116                     <DEAD TAC15>
1117                     <CALL '\1aLOAD-VAR-INTO-AC 6>
1118                     <SET NOAC?14 AC-TYPE10>
1119                     <JUMP + COND24>
1120 PHRASE34
1121                     <SET NOAC?14 VAC16>
1122                     <TYPE? MODIFY?9 <TYPE-CODE FALSE> + COND24>
1123                     <FRAME '\1aMUNG-AC>
1124                     <PUSH VAC16>
1125                     <DEAD VAC16>
1126                     <CALL '\1aMUNG-AC 1>
1127                     <FRAME '\1aMUNG-AC>
1128                     <PUSH TAC15>
1129                     <DEAD TAC15>
1130                     <CALL '\1aMUNG-AC 1>
1131                     <JUMP + COND24>
1132 PHRASE29
1133                     <NTHUV LVAR13 6 = VAC16>
1134                     <TYPE? VAC16 <TYPE-CODE FALSE> + PHRASE45>
1135                     <FRAME '\1aMOVE-VAR-BETWEEN-ACS>
1136                     <PUSH VAC16>
1137                     <DEAD VAC16>
1138                     <PUSH VAR7>
1139                     <PUSH AC-TYPE10>
1140                     <PUSH MODIFY?9>
1141                     <CALL '\1aMOVE-VAR-BETWEEN-ACS 4 = NOAC?14>
1142                     <JUMP + COND24>
1143 PHRASE45
1144                     <SET NOAC?14 %<> (TYPE FALSE)>
1145                     <JUMP + COND24>
1146 PHRASE27
1147                     <VEQUAL? MODE19 'TYPE - PHRASE48>
1148                     <NTHUV LVAR13 7 = TAC15>
1149                     <TYPE? TAC15 <TYPE-CODE FALSE> + PHRASE50>
1150                     <FRAME '\1aMOVE-VAR-BETWEEN-ACS>
1151                     <PUSH TAC15>
1152                     <DEAD TAC15>
1153                     <PUSH VAR7>
1154                     <PUSH AC-TYPE10>
1155                     <PUSH MODIFY?9>
1156                     <CALL '\1aMOVE-VAR-BETWEEN-ACS 4 = NOAC?14>
1157                     <JUMP + COND24>
1158 PHRASE50
1159                     <NTHUV LVAR13 4 = TEMP32>
1160                     <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE52>
1161                     <DEAD TEMP32>
1162                     <NTHUV LVAR13 9 = TAC15>
1163                     <TYPE? TAC15 <TYPE-CODE FALSE> + PHRASE52>
1164                     <FRAME '\1aVARTBL-DECL>
1165                     <PUSH VAR7>
1166                     <CALL '\1aVARTBL-DECL 1 = TEMP32>
1167                     <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE52>
1168                     <DEAD TEMP32>
1169                     <FRAME '\1aMOVE-TYPE-FROM-TYPEWORD>
1170                     <PUSH VAR7>
1171                     <PUSH TAC15>
1172                     <DEAD TAC15>
1173                     <PUSH AC-TYPE10>
1174                     <PUSH MODIFY?9>
1175                     <CALL '\1aMOVE-TYPE-FROM-TYPEWORD 4 = NOAC?14>
1176                     <JUMP + COND24>
1177 PHRASE52
1178                     <SET NOAC?14 %<> (TYPE FALSE)>
1179                     <JUMP + COND24>
1180 PHRASE48
1181                     <VEQUAL? MODE19 'COUNT - PHRASE57>
1182                     <NTHUV LVAR13 3 = TEMP32>
1183                     <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE59>
1184                     <DEAD TEMP32>
1185                     <SET NOAC?14 %<> (TYPE FALSE)>
1186                     <JUMP + COND24>
1187 PHRASE59
1188                     <NTHUV LVAR13 8 = TAC15>
1189                     <TYPE? TAC15 <TYPE-CODE FALSE> + PHRASE60>
1190                     <FRAME '\1aMOVE-VAR-BETWEEN-ACS>
1191                     <PUSH TAC15>
1192                     <DEAD TAC15>
1193                     <PUSH VAR7>
1194                     <PUSH AC-TYPE10>
1195                     <PUSH MODIFY?9>
1196                     <CALL '\1aMOVE-VAR-BETWEEN-ACS 4 = NOAC?14>
1197                     <JUMP + COND24>
1198 PHRASE60
1199                     <NTHUV LVAR13 9 = TAC15>
1200                     <TYPE? TAC15 <TYPE-CODE FALSE> + PHRASE62>
1201                     <FRAME '\1aMOVE-COUNT-FROM-TYPEWORD>
1202                     <PUSH VAR7>
1203                     <PUSH TAC15>
1204                     <DEAD TAC15>
1205                     <PUSH AC-TYPE10>
1206                     <PUSH MODIFY?9>
1207                     <CALL '\1aMOVE-COUNT-FROM-TYPEWORD 4 = NOAC?14>
1208                     <JUMP + COND24>
1209 PHRASE62
1210                     <SET NOAC?14 %<> (TYPE FALSE)>
1211                     <JUMP + COND24>
1212 PHRASE57
1213                     <VEQUAL? MODE19 'TYPE-WORD - PHRASE65>
1214                     <NTHUV LVAR13 9 = TAC15>
1215                     <TYPE? TAC15 <TYPE-CODE FALSE> + PHRASE67>
1216                     <FRAME '\1aMOVE-VAR-BETWEEN-ACS>
1217                     <PUSH TAC15>
1218                     <DEAD TAC15>
1219                     <PUSH VAR7>
1220                     <PUSH AC-TYPE10>
1221                     <PUSH MODIFY?9>
1222                     <CALL '\1aMOVE-VAR-BETWEEN-ACS 4 = NOAC?14>
1223                     <JUMP + COND24>
1224 PHRASE67
1225                     <FRAME '\1aSAFE-TYPE-WORD?>
1226                     <PUSH VAR7>
1227                     <CALL '\1aSAFE-TYPE-WORD? 1 = TEMP32>
1228                     <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE69>
1229                     <DEAD TEMP32>
1230                     <NTHUV LVAR13 8 = NOAC?14>
1231                     <TYPE? NOAC?14 <TYPE-CODE FALSE> + PHRASE72>
1232                     <NTHUV LVAR13 3 = TEMP32>
1233                     <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE72>
1234                     <DEAD TEMP32>
1235                     <FRAME '\1aEMIT-MOVE>
1236                     <NTHUV NOAC?14 2 = TEMP32 (TYPE FIX)>
1237                     <OR TEMP32 #WORD *120* = TEMP32>
1238                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1239                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1240                     <DEAD TEMP32>
1241                     <FRAME '\1aADDR-VAR-COUNT>
1242                     <PUSH VAR7>
1243                     <CALL '\1aADDR-VAR-COUNT 1 = STACK>
1244                     <PUSH 'WORD>
1245                     <CALL '\1aEMIT-MOVE 3>
1246                     <PUTUV LVAR13 3 'T>
1247                     <FRAME '\1aBREAK-LINK>
1248                     <PUSH NOAC?14>
1249                     <DEAD NOAC?14>
1250                     <PUSH VAR7>
1251                     <CALL '\1aBREAK-LINK 2>
1252 PHRASE72
1253                     <NTHUV LVAR13 7 = NOAC?14>
1254                     <TYPE? NOAC?14 <TYPE-CODE FALSE> + PHRASE78>
1255                     <NTHUV LVAR13 4 = TEMP32>
1256                     <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE78>
1257                     <DEAD TEMP32>
1258                     <FRAME '\1aEMIT-MOVE>
1259                     <NTHUV NOAC?14 2 = TEMP32 (TYPE FIX)>
1260                     <OR TEMP32 #WORD *120* = TEMP32>
1261                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1262                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1263                     <DEAD TEMP32>
1264                     <FRAME '\1aADDR-VAR-TYPE>
1265                     <PUSH VAR7>
1266                     <CALL '\1aADDR-VAR-TYPE 1 = STACK>
1267                     <PUSH 'WORD>
1268                     <CALL '\1aEMIT-MOVE 3>
1269                     <PUTUV LVAR13 4 'T>
1270                     <FRAME '\1aBREAK-LINK>
1271                     <PUSH NOAC?14>
1272                     <DEAD NOAC?14>
1273                     <PUSH VAR7>
1274                     <CALL '\1aBREAK-LINK 2>
1275 PHRASE78
1276                     <FRAME '\1aSAFE-TYPE-WORD?>
1277                     <PUSH VAR7>
1278                     <CALL '\1aSAFE-TYPE-WORD? 1 = TEMP32>
1279                     <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE84>
1280                     <DEAD TEMP32>
1281                     <NTHUV LVAR13 5 = DCL?11>
1282                     <TYPE? DCL?11 <TYPE-CODE FALSE> + PHRASE84>
1283                     <FRAME '\1aEMIT-MOVE>
1284                     <FRAME '\1aTYPE-CODE>
1285                     <PUSH DCL?11>
1286                     <PUSH 'WORD>
1287                     <CALL '\1aTYPE-CODE 2 = STACK>
1288                     <FRAME '\1aADDR-VAR-TYPE>
1289                     <PUSH VAR7>
1290                     <CALL '\1aADDR-VAR-TYPE 1 = STACK>
1291                     <PUSH 'WORD>
1292                     <CALL '\1aEMIT-MOVE 3>
1293                     <PUTUV LVAR13 4 'T>
1294 PHRASE84
1295                     <SET NOAC?14 %<> (TYPE FALSE)>
1296                     <JUMP + COND24>
1297 PHRASE69
1298                     <SET NOAC?14 %<> (TYPE FALSE)>
1299                     <JUMP + COND24>
1300 PHRASE65
1301                     <FRAME '\1aERROR>
1302                     <PUSH "BAD-MODE">
1303                     <PUSH 'LOAD-VAR>
1304                     <CALL '\1aERROR 2>
1305 COND24
1306                     <TYPE? NOAC?14 <TYPE-CODE FALSE> - PHRASE93>
1307                     <VEQUAL? IMODE8 'VALUE - PHRASE93>
1308                     <DEAD IMODE8>
1309                     <TYPE? LVAR13 <TYPE-CODE FALSE> + BOOL95>
1310                     <NTHUV LVAR13 7 = TEMP32>
1311                     <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE93>
1312                     <DEAD TEMP32>
1313                     <NTHUV LVAR13 9 = TEMP32>
1314                     <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE93>
1315                     <DEAD TEMP32>
1316                     <NTHUV LVAR13 8 = TEMP32>
1317                     <DEAD LVAR13>
1318                     <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE93>
1319                     <DEAD TEMP32>
1320 BOOL95
1321                     <GVAL 'AC-0 = TEMP32>
1322                     <EQUAL? TEMP32 AC-TYPE10 + PHRASE93>
1323                     <DEAD TEMP32>
1324                     <TYPE? AC-TYPE10 <TYPE-CODE AC> - PHRASE98>
1325                     <FRAME '\1aGET-AC>
1326                     <FRAME '\1aPREV-AC>
1327                     <PUSH AC-TYPE10>
1328                     <CALL '\1aPREV-AC 1 = STACK>
1329                     <CALL '\1aGET-AC 1 = TAC15>
1330                     <FRAME '\1aGET-AC>
1331                     <PUSH AC-TYPE10>
1332                     <CALL '\1aGET-AC 1 = TEMP32>
1333                     <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE93>
1334                     <DEAD TEMP32>
1335                     <JUMP + PHRASE102>
1336 PHRASE98
1337                     <FRAME '\1aGET-AC>
1338                     <PUSH 'DOUBLE>
1339                     <CALL '\1aGET-AC 1 = TAC15>
1340                     <TYPE? TAC15 <TYPE-CODE FALSE> + PHRASE93>
1341 PHRASE102
1342                     <FRAME '\1aLOAD-VAR-INTO-AC>
1343                     <PUSH VAR7>
1344                     <PUSH 'TYPE-VALUE-PAIR>
1345                     <PUSH TAC15>
1346                     <PUSH MODIFY?9>
1347                     <DEAD MODIFY?9>
1348                     <PUSH %<>>
1349                     <CALL '\1aLOAD-VAR-INTO-AC 5>
1350                     <TYPE? DCL?11 <TYPE-CODE FALSE> + BOOL105>
1351                     <FRAME '\1aINDICATE-CACHED-VARIABLE-DECL>
1352                     <PUSH VAR7>
1353                     <DEAD VAR7>
1354                     <PUSH DCL?11>
1355                     <DEAD DCL?11>
1356                     <CALL '\1aINDICATE-CACHED-VARIABLE-DECL 2>
1357 BOOL105
1358                     <FRAME '\1aNEXT-AC>
1359                     <PUSH TAC15>
1360                     <DEAD TAC15>
1361                     <CALL '\1aNEXT-AC 1 = TAC15>
1362                     <TYPE? USE?12 <TYPE-CODE FALSE> + BOOL108>
1363                     <DEAD USE?12>
1364                     <FRAME '\1aUSE-AC>
1365                     <PUSH TAC15>
1366                     <CALL '\1aUSE-AC 1>
1367 BOOL108
1368                     <RETURN TAC15>
1369                     <DEAD TAC15>
1370 PHRASE93
1371                     <TYPE? NOAC?14 <TYPE-CODE FALSE> - PHRASE110>
1372                     <FRAME '\1aGET-AC>
1373                     <PUSH AC-TYPE10>
1374                     <DEAD AC-TYPE10>
1375                     <CALL '\1aGET-AC 1 = TAC15>
1376                     <FRAME '\1aLOAD-VAR-INTO-AC>
1377                     <PUSH VAR7>
1378                     <PUSH MODE19>
1379                     <DEAD MODE19>
1380                     <PUSH TAC15>
1381                     <PUSH MODIFY?9>
1382                     <DEAD MODIFY?9>
1383                     <CALL '\1aLOAD-VAR-INTO-AC 4>
1384                     <FRAME '\1aSET-STATUS-AC>
1385                     <PUSH TAC15>
1386                     <CALL '\1aSET-STATUS-AC 1>
1387                     <TYPE? DCL?11 <TYPE-CODE FALSE> + BOOL114>
1388                     <FRAME '\1aINDICATE-CACHED-VARIABLE-DECL>
1389                     <PUSH VAR7>
1390                     <DEAD VAR7>
1391                     <PUSH DCL?11>
1392                     <DEAD DCL?11>
1393                     <CALL '\1aINDICATE-CACHED-VARIABLE-DECL 2>
1394 BOOL114
1395                     <TYPE? USE?12 <TYPE-CODE FALSE> + BOOL116>
1396                     <DEAD USE?12>
1397                     <FRAME '\1aUSE-AC>
1398                     <PUSH TAC15>
1399                     <CALL '\1aUSE-AC 1>
1400 BOOL116
1401                     <RETURN TAC15>
1402                     <DEAD TAC15>
1403 PHRASE110
1404                     <TYPE? DCL?11 <TYPE-CODE FALSE> + BOOL119>
1405                     <FRAME '\1aINDICATE-CACHED-VARIABLE-DECL>
1406                     <PUSH VAR7>
1407                     <DEAD VAR7>
1408                     <PUSH DCL?11>
1409                     <DEAD DCL?11>
1410                     <CALL '\1aINDICATE-CACHED-VARIABLE-DECL 2>
1411 BOOL119
1412                     <TYPE? USE?12 <TYPE-CODE FALSE> + BOOL121>
1413                     <DEAD USE?12>
1414                     <FRAME '\1aUSE-AC>
1415                     <PUSH NOAC?14>
1416                     <CALL '\1aUSE-AC 1>
1417 BOOL121
1418                     <RETURN NOAC?14>
1419                     <DEAD NOAC?14>
1420                     <END \1aLOAD-VAR>
1421 #WORD *23013725425*
1422 <GFCN \1aMOVE-VAR-BETWEEN-ACS ("VALUE" STRUCTURED AC ANY AC-CHOICES BOOLEAN) VAC4 VAR5 AC-MODE6 MODIFY?7>
1423                     <TEMP TEMP13>
1424                     <INTGO>
1425                     <FRAME '\1aPROTECT-USE>
1426                     <PUSH VAC4>
1427                     <CALL '\1aPROTECT-USE 1>
1428                     <FRAME '\1aMATCH-AC?>
1429                     <PUSH VAC4>
1430                     <PUSH AC-MODE6>
1431                     <CALL '\1aMATCH-AC? 2 = TEMP13>
1432                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE11>
1433                     <DEAD TEMP13>
1434                     <TYPE? MODIFY?7 <TYPE-CODE FALSE> + PHRASE15>
1435                     <DEAD MODIFY?7>
1436                     <FRAME '\1aAVAILABLE?>
1437                     <PUSH VAC4>
1438                     <CALL '\1aAVAILABLE? 1 = TEMP13>
1439                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE17>
1440                     <DEAD TEMP13>
1441                     <FRAME '\1aCLEAR-VARS-FROM-AC>
1442                     <PUSH VAC4>
1443                     <CALL '\1aCLEAR-VARS-FROM-AC 1>
1444                     <RETURN VAC4>
1445                     <DEAD VAC4>
1446 PHRASE17
1447                     <FRAME '\1aCHECK-FREE-AC?>
1448                     <PUSH AC-MODE6>
1449                     <DEAD AC-MODE6>
1450                     <CALL '\1aCHECK-FREE-AC? 1 = TEMP13>
1451                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE20>
1452                     <FRAME '\1aIMOVE-AC>
1453                     <PUSH VAC4>
1454                     <PUSH TEMP13>
1455                     <DEAD TEMP13>
1456                     <PUSH %<>>
1457                     <CALL '\1aIMOVE-AC 3>
1458                     <RETURN VAC4>
1459                     <DEAD VAC4>
1460 PHRASE20
1461                     <FRAME '\1aSTORE-AC>
1462                     <PUSH VAC4>
1463                     <PUSH 'T>
1464                     <CALL '\1aSTORE-AC 2>
1465                     <RETURN VAC4>
1466                     <DEAD VAC4>
1467 PHRASE15
1468                     <RETURN VAC4>
1469                     <DEAD VAC4>
1470 PHRASE11
1471                     <TYPE? MODIFY?7 <TYPE-CODE FALSE> + PHRASE27>
1472                     <DEAD MODIFY?7>
1473                     <FRAME '\1aGET-AC>
1474                     <PUSH AC-MODE6>
1475                     <DEAD AC-MODE6>
1476                     <CALL '\1aGET-AC 1 = TEMP13>
1477                     <FRAME '\1aIMOVE-AC>
1478                     <PUSH VAC4>
1479                     <DEAD VAC4>
1480                     <PUSH TEMP13>
1481                     <PUSH 'T>
1482                     <CALL '\1aIMOVE-AC 3>
1483                     <RETURN TEMP13>
1484                     <DEAD TEMP13>
1485 PHRASE27
1486                     <FRAME '\1aPLACE-ALTERNATE-AC>
1487                     <PUSH VAC4>
1488                     <DEAD VAC4>
1489                     <PUSH AC-MODE6>
1490                     <DEAD AC-MODE6>
1491                     <CALL '\1aPLACE-ALTERNATE-AC 2 = TEMP13>
1492                     <RETURN TEMP13>
1493                     <DEAD TEMP13>
1494                     <END \1aMOVE-VAR-BETWEEN-ACS>\r\0\r\0
1495 #WORD *32763776551*
1496 <GFCN \1aCHECK-FREE-AC? ("VALUE" ANY AC-CHOICES) MODE4>
1497                     <TEMP TEMP8>
1498                     <INTGO>
1499                     <TYPE? MODE4 <TYPE-CODE AC> - PHRASE6>
1500                     <FRAME '\1aAVAILABLE?>
1501                     <PUSH MODE4>
1502                     <CALL '\1aAVAILABLE? 1 = TEMP8>
1503                     <TYPE? TEMP8 <TYPE-CODE FALSE> + BOOL15>
1504                     <RETURN MODE4>
1505                     <DEAD MODE4>
1506 PHRASE6
1507                     <VEQUAL? MODE4 'DOUBLE - PHRASE10>
1508                     <FRAME '\1aFIND-FREE-PAIR>
1509                     <PUSH 'NOVARS>
1510                     <CALL '\1aFIND-FREE-PAIR 1 = TEMP8>
1511                     <TYPE? TEMP8 <TYPE-CODE FALSE> - BOOL15>
1512                     <FRAME '\1aFIND-FREE-PAIR>
1513                     <PUSH 'STORED>
1514                     <CALL '\1aFIND-FREE-PAIR 1 = TEMP8>
1515                     <RETURN TEMP8>
1516                     <DEAD TEMP8>
1517 PHRASE10
1518                     <FRAME '\1aFREE-AC?>
1519                     <PUSH MODE4>
1520                     <PUSH 'NOVARS>
1521                     <CALL '\1aFREE-AC? 2 = TEMP8>
1522                     <TYPE? TEMP8 <TYPE-CODE FALSE> - BOOL15>
1523                     <FRAME '\1aFREE-AC?>
1524                     <PUSH MODE4>
1525                     <DEAD MODE4>
1526                     <PUSH 'STORED>
1527                     <CALL '\1aFREE-AC? 2 = TEMP8>
1528 BOOL15
1529                     <RETURN TEMP8>
1530                     <DEAD TEMP8>
1531                     <END \1aCHECK-FREE-AC?>
1532 #WORD *6562007404*
1533 <GFCN \1aAVAILABLE? ("VALUE" <OR AC FALSE> AC) AC4>
1534                     <TEMP TEMP14 TEMP16:VECTOR LVAR17:LINKVAR>
1535                     <INTGO>
1536                     <SET TEMP14 %<> (TYPE FALSE)>
1537                     <NTHUV AC4 8 = TEMP16 (TYPE VECTOR)>
1538                     <LOOP>
1539 MAP6
1540                     <INTGO>
1541                     <EMPUV? TEMP16 + MAPAP9>
1542                     <NTHUV TEMP16 1 = LVAR17>
1543                     <NTHUV LVAR17 1 = TEMP14 (TYPE VARTBL)>
1544                     <NTHUV TEMP14 5 = TEMP14>
1545                     <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE30>
1546                     <DEAD TEMP14>
1547                     <NTHUV LVAR17 6 = TEMP14>
1548                     <EQUAL? TEMP14 AC4 - PHRASE22>
1549                     <DEAD TEMP14>
1550                     <NTHUV LVAR17 2 = TEMP14>
1551                     <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE22>
1552                     <DEAD TEMP14>
1553                     <RETURN %<>>
1554 PHRASE22
1555                     <NTHUV LVAR17 7 = TEMP14>
1556                     <EQUAL? TEMP14 AC4 - PHRASE24>
1557                     <DEAD TEMP14>
1558                     <NTHUV LVAR17 4 = TEMP14>
1559                     <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE24>
1560                     <DEAD TEMP14>
1561                     <RETURN %<>>
1562 PHRASE24
1563                     <NTHUV LVAR17 8 = TEMP14>
1564                     <EQUAL? TEMP14 AC4 - PHRASE27>
1565                     <DEAD TEMP14>
1566                     <NTHUV LVAR17 3 = TEMP14>
1567                     <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE27>
1568                     <DEAD TEMP14>
1569                     <RETURN %<>>
1570 PHRASE27
1571                     <NTHUV LVAR17 9 = TEMP14>
1572                     <EQUAL? TEMP14 AC4 - PHRASE30>
1573                     <DEAD TEMP14>
1574                     <NTHUV LVAR17 4 = TEMP14>
1575                     <DEAD LVAR17>
1576                     <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE30>
1577                     <DEAD TEMP14>
1578                     <RETURN %<>>
1579 PHRASE30
1580                     <SET TEMP14 AC4>
1581                     <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
1582                     <JUMP + MAP6>
1583 MAPAP9
1584                     <RETURN TEMP14>
1585                     <DEAD TEMP14>
1586                     <END \1aAVAILABLE?>
1587 #WORD *22732255475*
1588 <GFCN \1aGET-AC ("VALUE" STRUCTURED "OPTIONAL" AC-CHOICES ANY) AC-MODE7 MUNG?8>
1589                     <OPT-DISPATCH 0 %<> OPT4 OPT5 OPT6>
1590 OPT4
1591                     <PUSH 'ANY-AC>
1592 OPT5
1593                     <PUSH %<>>
1594 OPT6
1595                     <TEMP PAC9>
1596                     <INTGO>
1597                     <EQUAL? AC-MODE7 'ANY-AC - PHRASE11>
1598                     <SET AC-MODE7 'NONE (TYPE ATOM)>
1599 PHRASE11
1600                     <TYPE? AC-MODE7 <TYPE-CODE AC> - PHRASE13>
1601                     <FRAME '\1aSTORE-AC>
1602                     <PUSH AC-MODE7>
1603                     <CALL '\1aSTORE-AC 1>
1604                     <SET PAC9 AC-MODE7>
1605                     <JUMP + PHRASE16>
1606 PHRASE13
1607                     <FRAME '\1aCHECK-FREE-AC?>
1608                     <PUSH AC-MODE7>
1609                     <CALL '\1aCHECK-FREE-AC? 1 = PAC9>
1610                     <TYPE? PAC9 <TYPE-CODE FALSE> - PHRASE16>
1611                     <FRAME '\1aPICK-BEST-AC>
1612                     <PUSH AC-MODE7>
1613                     <CALL '\1aPICK-BEST-AC 1 = PAC9>
1614                     <FRAME '\1aSTORE-AC>
1615                     <PUSH PAC9>
1616                     <CALL '\1aSTORE-AC 1>
1617                     <VEQUAL? AC-MODE7 'DOUBLE - PHRASE16>
1618                     <FRAME '\1aSTORE-AC>
1619                     <FRAME '\1aNEXT-AC>
1620                     <PUSH PAC9>
1621                     <CALL '\1aNEXT-AC 1 = STACK>
1622                     <CALL '\1aSTORE-AC 1>
1623 PHRASE16
1624                     <TYPE? MUNG?8 <TYPE-CODE FALSE> + PHRASE27>
1625                     <DEAD MUNG?8>
1626                     <FRAME '\1aMUNG-AC>
1627                     <PUSH PAC9>
1628                     <CALL '\1aMUNG-AC 1>
1629                     <EQUAL? AC-MODE7 'DOUBLE - PHRASE27>
1630                     <DEAD AC-MODE7>
1631                     <FRAME '\1aMUNG-AC>
1632                     <FRAME '\1aNEXT-AC>
1633                     <PUSH PAC9>
1634                     <CALL '\1aNEXT-AC 1 = STACK>
1635                     <CALL '\1aMUNG-AC 1>
1636 PHRASE27
1637                     <RETURN PAC9>
1638                     <DEAD PAC9>
1639                     <END \1aGET-AC>
1640 #WORD *24525566511*
1641 <GFCN \1aPICK-BEST-AC ("VALUE" AC ATOM) MODE4>
1642                     <TEMP TEMP6:AC>
1643                     <INTGO>
1644                     <FRAME '\1aPICK-FROM>
1645                     <GVAL 'ALL-ACS = STACK>
1646                     <PUSH MODE4>
1647                     <DEAD MODE4>
1648                     <CALL '\1aPICK-FROM 2 = TEMP6>
1649                     <RETURN TEMP6>
1650                     <DEAD TEMP6>
1651                     <END \1aPICK-BEST-AC>
1652 #WORD *26717477356*
1653 <GFCN \1aPICK-FROM ("VALUE" <OR FALSE AC> <VECTOR [REST AC]> ANY) ACS4 MODE5>
1654                     <TEMP (BEST-AC6 %<>) TEMP17 AC10:AC AC211:AC BEST-AC27:AC TEMP37>
1655                     <INTGO>
1656                     <LOOP>
1657 AGAIN12
1658                     <INTGO>
1659                     <EMPUV? ACS4 + EXIT8 (TYPE VECTOR)>
1660                     <RESTUV ACS4 1 = TEMP17 (TYPE VECTOR)>
1661                     <EMPUV? TEMP17 - PHRASE14 (TYPE VECTOR)>
1662                     <DEAD TEMP17>
1663                     <EQUAL? MODE5 'DOUBLE + EXIT8>
1664 PHRASE14
1665                     <NTHUV ACS4 1 = AC10 (TYPE AC)>
1666                     <EQUAL? MODE5 'DOUBLE - PHRASE19>
1667                     <NTHUV ACS4 2 = AC211 (TYPE AC)>
1668 PHRASE19
1669                     <EQUAL? MODE5 'DOUBLE - PHRASE21>
1670                     <SET TEMP17 2 (TYPE FIX)>
1671                     <JUMP + PHRASE22>
1672 PHRASE21
1673                     <SET TEMP17 1 (TYPE FIX)>
1674 PHRASE22
1675                     <RESTUV ACS4 TEMP17 = ACS4 (TYPE VECTOR)>
1676                     <DEAD TEMP17>
1677                     <NTHUV AC10 4 = TEMP17>
1678                     <TYPE? TEMP17 <TYPE-CODE FALSE> - AGAIN12>
1679                     <DEAD TEMP17>
1680                     <EQUAL? MODE5 'DOUBLE - PHRASE26>
1681                     <NTHUV AC211 4 = TEMP17>
1682                     <TYPE? TEMP17 <TYPE-CODE FALSE> - AGAIN12>
1683                     <DEAD TEMP17>
1684 PHRASE26
1685                     <TYPE? BEST-AC6 <TYPE-CODE FALSE> - PHRASE31>
1686                     <SET BEST-AC6 AC10>
1687                     <DEAD AC10>
1688                     <EQUAL? MODE5 'DOUBLE - AGAIN12>
1689                     <SET BEST-AC27 AC211>
1690                     <JUMP + AGAIN12>
1691 PHRASE31
1692                     <NTHUV AC10 8 = TEMP17 (TYPE VECTOR)>
1693                     <LENUV TEMP17 = TEMP17 (TYPE FIX)>
1694                     <NTHUV BEST-AC6 8 = TEMP37 (TYPE VECTOR)>
1695                     <LENUV TEMP37 = TEMP37 (TYPE FIX)>
1696                     <LESS? TEMP17 TEMP37 - PHRASE35 (TYPE FIX)>
1697                     <DEAD TEMP17 TEMP37>
1698                     <EQUAL? MODE5 'DOUBLE - BOOL38>
1699                     <NTHUV AC211 8 = TEMP17 (TYPE VECTOR)>
1700                     <LENUV TEMP17 = TEMP17 (TYPE FIX)>
1701                     <NTHUV BEST-AC27 8 = TEMP37 (TYPE VECTOR)>
1702                     <LENUV TEMP37 = TEMP37 (TYPE FIX)>
1703                     <LESS? TEMP17 TEMP37 - PHRASE35 (TYPE FIX)>
1704                     <DEAD TEMP17 TEMP37>
1705 BOOL38
1706                     <SET BEST-AC6 AC10>
1707                     <DEAD AC10>
1708                     <EQUAL? MODE5 'DOUBLE - AGAIN12>
1709                     <SET BEST-AC27 AC211>
1710                     <JUMP + AGAIN12>
1711 PHRASE35
1712                     <NTHUV AC10 3 = TEMP17 (TYPE FIX)>
1713                     <NTHUV BEST-AC6 3 = TEMP37 (TYPE FIX)>
1714                     <GRTR? TEMP17 TEMP37 - AGAIN12 (TYPE FIX)>
1715                     <DEAD TEMP17 TEMP37>
1716                     <EQUAL? MODE5 'DOUBLE - BOOL44>
1717                     <NTHUV AC211 3 = TEMP17 (TYPE FIX)>
1718                     <NTHUV BEST-AC27 3 = TEMP37 (TYPE FIX)>
1719                     <GRTR? TEMP17 TEMP37 - AGAIN12 (TYPE FIX)>
1720                     <DEAD TEMP17 TEMP37>
1721 BOOL44
1722                     <SET BEST-AC6 AC10>
1723                     <DEAD AC10>
1724                     <SET BEST-AC27 AC211>
1725                     <JUMP + AGAIN12>
1726 EXIT8
1727                     <TYPE? BEST-AC6 <TYPE-CODE FALSE> - PHRASE46>
1728                     <FRAME '\1aERROR>
1729                     <PUSH "AC NOT FOUND">
1730                     <PUSH 'PICK-FROM>
1731                     <CALL '\1aERROR 2>
1732 PHRASE46
1733                     <RETURN BEST-AC6>
1734                     <DEAD BEST-AC6>
1735                     <END \1aPICK-FROM>
1736 #WORD *16075050366*
1737                     <GFCN \1aIMOVE-AC ("VALUE" ANY AC AC ANY) SOURCE-AC4 DEST-AC5 MODIFY?6>
1738                     <TEMP TEMP10>
1739                     <INTGO>
1740                     <FRAME '\1aUSE-AC>
1741                     <PUSH SOURCE-AC4>
1742                     <CALL '\1aUSE-AC 1>
1743                     <FRAME '\1aSTORE-AC>
1744                     <PUSH DEST-AC5>
1745                     <PUSH 'T>
1746                     <CALL '\1aSTORE-AC 2>
1747                     <FRAME '\1aEMIT-MOVE>
1748                     <NTHUV SOURCE-AC4 2 = TEMP10 (TYPE FIX)>
1749                     <OR TEMP10 #WORD *120* = TEMP10>
1750                     <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
1751                     <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
1752                     <DEAD TEMP10>
1753                     <NTHUV DEST-AC5 2 = TEMP10 (TYPE FIX)>
1754                     <OR TEMP10 #WORD *120* = TEMP10>
1755                     <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
1756                     <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
1757                     <DEAD TEMP10>
1758                     <PUSH 'LONG>
1759                     <CALL '\1aEMIT-MOVE 3>
1760                     <FRAME '\1aLOAD-AC>
1761                     <PUSH DEST-AC5>
1762                     <NTHUV SOURCE-AC4 2 = TEMP10 (TYPE FIX)>
1763                     <OR TEMP10 #WORD *120* = TEMP10>
1764                     <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
1765                     <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
1766                     <DEAD TEMP10>
1767                     <CALL '\1aLOAD-AC 2>
1768                     <TYPE? MODIFY?6 <TYPE-CODE FALSE> - BOOL12>
1769                     <DEAD MODIFY?6>
1770                     <FRAME '\1aMOVE-AC>
1771                     <PUSH SOURCE-AC4>
1772                     <DEAD SOURCE-AC4>
1773                     <PUSH DEST-AC5>
1774                     <CALL '\1aMOVE-AC 2>
1775 BOOL12
1776                     <FRAME '\1aSET-STATUS-AC>
1777                     <PUSH DEST-AC5>
1778                     <CALL '\1aSET-STATUS-AC 1>
1779                     <FRAME '\1aSET-AC-AGE>
1780                     <PUSH DEST-AC5>
1781                     <DEAD DEST-AC5>
1782                     <CALL '\1aSET-AC-AGE 1 = TEMP10>
1783                     <RETURN TEMP10>
1784                     <DEAD TEMP10>
1785                     <END \1aIMOVE-AC>
1786
1787 #WORD *30247662615*
1788 <GFCN \1aSTORE-AC ("VALUE" ANY AC "OPTIONAL" BOOLEAN <OR LINKVAR FALSE>) AC7 FLUSH8 SAVE?9>
1789                     <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
1790 OPT4
1791                     <PUSH %<>>
1792 OPT5
1793                     <PUSH %<>>
1794 OPT6
1795                     <TEMP TEMP21 X22:LINKVAR>
1796                     <INTGO>
1797                     <NTHUV AC7 8 = TEMP21 (TYPE VECTOR)>
1798                     <LOOP>
1799 MAP11
1800                     <INTGO>
1801                     <EMPUV? TEMP21 + MAPAP14>
1802                     <NTHUV TEMP21 1 = X22>
1803                     <EQUAL? X22 SAVE?9 + PHRASE24>
1804                     <FRAME '\1aISTORE-VAR>
1805                     <PUSH X22>
1806                     <DEAD X22>
1807                     <CALL '\1aISTORE-VAR 1>
1808 PHRASE24
1809                     <RESTUV TEMP21 1 = TEMP21 (TYPE VECTOR)>
1810                     <JUMP + MAP11>
1811 MAPAP14
1812                     <SET TEMP21 FLUSH8>
1813                     <DEAD FLUSH8>
1814                     <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE27>
1815                     <FRAME '\1aCLEAR-VARS-FROM-AC>
1816                     <PUSH AC7>
1817                     <DEAD AC7>
1818                     <PUSH SAVE?9>
1819                     <DEAD SAVE?9>
1820                     <PUSH 'T>
1821                     <CALL '\1aCLEAR-VARS-FROM-AC 3 = TEMP21>
1822 PHRASE27
1823                     <RETURN TEMP21>
1824                     <DEAD TEMP21>
1825                     <END \1aSTORE-AC>
1826 #WORD *33012570317*
1827 <GFCN \1aPLACE-ALTERNATE-AC ("VALUE" STRUCTURED AC AC-CHOICES) AC4 MODE5>
1828                     <TEMP FAC6 TEMP11>
1829                     <INTGO>
1830                     <FRAME '\1aGET-AC>
1831                     <PUSH MODE5>
1832                     <DEAD MODE5>
1833                     <CALL '\1aGET-AC 1 = FAC6>
1834                     <FRAME '\1aALL-DEAD?>
1835                     <PUSH FAC6>
1836                     <CALL '\1aALL-DEAD? 1 = TEMP11>
1837                     <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE9>
1838                     <DEAD TEMP11>
1839                     <FRAME '\1aEMIT-MOVE>
1840                     <NTHUV AC4 2 = TEMP11 (TYPE FIX)>
1841                     <OR TEMP11 #WORD *120* = TEMP11>
1842                     <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
1843                     <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
1844                     <DEAD TEMP11>
1845                     <NTHUV FAC6 2 = TEMP11 (TYPE FIX)>
1846                     <OR TEMP11 #WORD *120* = TEMP11>
1847                     <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
1848                     <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
1849                     <DEAD TEMP11>
1850                     <PUSH 'LONG>
1851                     <CALL '\1aEMIT-MOVE 3>
1852                     <FRAME '\1aMOVE-AC>
1853                     <PUSH AC4>
1854                     <DEAD AC4>
1855                     <PUSH FAC6>
1856                     <CALL '\1aMOVE-AC 2>
1857                     <RETURN FAC6>
1858                     <DEAD FAC6>
1859 PHRASE9
1860                     <FRAME '\1aEMIT-EXCH>
1861                     <PUSH AC4>
1862                     <PUSH FAC6>
1863                     <CALL '\1aEMIT-EXCH 2>
1864                     <FRAME '\1aEXCH-AC>
1865                     <PUSH AC4>
1866                     <DEAD AC4>
1867                     <PUSH FAC6>
1868                     <CALL '\1aEXCH-AC 2>
1869                     <RETURN FAC6>
1870                     <DEAD FAC6>
1871                     <END \1aPLACE-ALTERNATE-AC>
1872 #WORD *4630717321*
1873 <GFCN \1aEMIT-EXCH ("VALUE" ANY AC AC) AC14 AC25>
1874                     <TEMP TAC6 TEMP11>
1875                     <INTGO>
1876                     <FRAME '\1aFREE-AC?>
1877                     <PUSH 'NONE>
1878                     <PUSH 'NOVARS>
1879                     <CALL '\1aFREE-AC? 2 = TAC6>
1880                     <TYPE? TAC6 <TYPE-CODE FALSE> + PHRASE8>
1881                     <FRAME '\1aEMIT>
1882                     <PUSH 208>
1883                     <NTHUV AC14 2 = TEMP11 (TYPE FIX)>
1884                     <OR TEMP11 #WORD *120* = TEMP11>
1885                     <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
1886                     <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
1887                     <DEAD TEMP11>
1888                     <NTHUV TAC6 2 = TEMP11 (TYPE FIX)>
1889                     <OR TEMP11 #WORD *120* = TEMP11>
1890                     <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
1891                     <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
1892                     <DEAD TEMP11>
1893                     <CALL '\1aEMIT 3>
1894                     <FRAME '\1aEMIT>
1895                     <PUSH 208>
1896                     <NTHUV AC25 2 = TEMP11 (TYPE FIX)>
1897                     <OR TEMP11 #WORD *120* = TEMP11>
1898                     <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
1899                     <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
1900                     <DEAD TEMP11>
1901                     <NTHUV AC14 2 = TEMP11 (TYPE FIX)>
1902                     <DEAD AC14>
1903                     <OR TEMP11 #WORD *120* = TEMP11>
1904                     <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
1905                     <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
1906                     <DEAD TEMP11>
1907                     <CALL '\1aEMIT 3>
1908                     <FRAME '\1aEMIT>
1909                     <PUSH 208>
1910                     <NTHUV TAC6 2 = TEMP11 (TYPE FIX)>
1911                     <DEAD TAC6>
1912                     <OR TEMP11 #WORD *120* = TEMP11>
1913                     <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
1914                     <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
1915                     <DEAD TEMP11>
1916                     <NTHUV AC25 2 = TEMP11 (TYPE FIX)>
1917                     <DEAD AC25>
1918                     <OR TEMP11 #WORD *120* = TEMP11>
1919                     <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
1920                     <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
1921                     <DEAD TEMP11>
1922                     <CALL '\1aEMIT 3 = TEMP11>
1923                     <RETURN TEMP11>
1924                     <DEAD TEMP11>
1925 PHRASE8
1926                     <FRAME '\1aEMIT>
1927                     <PUSH 221>
1928                     <NTHUV AC14 2 = TAC6 (TYPE FIX)>
1929                     <OR TAC6 #WORD *120* = TAC6>
1930                     <LSH TAC6 24 = TAC6 (TYPE FIX)>
1931                     <CHTYPE TAC6 <TYPE-CODE EFF-ADDR> = STACK>
1932                     <DEAD TAC6>
1933                     <CALL '\1aEMIT 2>
1934                     <FRAME '\1aEMIT>
1935                     <PUSH 208>
1936                     <NTHUV AC25 2 = TAC6 (TYPE FIX)>
1937                     <OR TAC6 #WORD *120* = TAC6>
1938                     <LSH TAC6 24 = TAC6 (TYPE FIX)>
1939                     <CHTYPE TAC6 <TYPE-CODE EFF-ADDR> = STACK>
1940                     <DEAD TAC6>
1941                     <NTHUV AC14 2 = TAC6 (TYPE FIX)>
1942                     <DEAD AC14>
1943                     <OR TAC6 #WORD *120* = TAC6>
1944                     <LSH TAC6 24 = TAC6 (TYPE FIX)>
1945                     <CHTYPE TAC6 <TYPE-CODE EFF-ADDR> = STACK>
1946                     <DEAD TAC6>
1947                     <CALL '\1aEMIT 3>
1948                     <FRAME '\1aEMIT>
1949                     <PUSH 208>
1950                     <GVAL 'AC-P = TAC6>
1951                     <NTHUV TAC6 2 = TAC6 (TYPE FIX)>
1952                     <OR TAC6 #WORD *200* = TAC6>
1953                     <LSH TAC6 24 = TAC6 (TYPE FIX)>
1954                     <CHTYPE TAC6 <TYPE-CODE EFF-ADDR> = STACK>
1955                     <DEAD TAC6>
1956                     <NTHUV AC25 2 = TAC6 (TYPE FIX)>
1957                     <DEAD AC25>
1958                     <OR TAC6 #WORD *120* = TAC6>
1959                     <LSH TAC6 24 = TAC6 (TYPE FIX)>
1960                     <CHTYPE TAC6 <TYPE-CODE EFF-ADDR> = STACK>
1961                     <DEAD TAC6>
1962                     <CALL '\1aEMIT 3 = TEMP11>
1963                     <RETURN TEMP11>
1964                     <DEAD TEMP11>
1965                     <END \1aEMIT-EXCH>
1966 #WORD *5063003233*
1967 <GFCN \1aLOAD-VAR-INTO-AC ("VALUE" <OR FALSE LINKVAR> VARTBL ATOM AC BOOLEAN "OPTIONAL" ANY ANY) VAR7 MODE8 AC9 MODIFY?10 VTMOD11 ALREADY?12>
1968                     <OPT-DISPATCH 4 %<> OPT4 OPT5 OPT6>
1969 OPT4
1970                     <PUSH %<>>
1971 OPT5
1972                     <PUSH %<>>
1973 OPT6
1974                     <TEMP LVAR13 SAFE?18 (RLVAR19 %<>) TEMP26 (CLEAR-TYPE?21 %<>) (CLEAR-COUNT?22 %<>) V70:FIX>
1975                     <INTGO>
1976                     <FRAME '\1aFIND-CACHE-VAR>
1977                     <PUSH VAR7>
1978                     <CALL '\1aFIND-CACHE-VAR 1 = LVAR13>
1979                     <FRAME '\1aSAFE-TYPE-WORD?>
1980                     <PUSH VAR7>
1981                     <CALL '\1aSAFE-TYPE-WORD? 1 = SAFE?18>
1982                     <SET TEMP26 LVAR13>
1983                     <TYPE? TEMP26 <TYPE-CODE FALSE> + BOOL25>
1984                     <NTHUV LVAR13 4 = TEMP26>
1985                     <DEAD LVAR13>
1986 BOOL25
1987                     <SET LVAR13 TEMP26>
1988                     <DEAD TEMP26>
1989                     <VEQUAL? MODE8 'TYPE-VALUE-PAIR - PHRASE28>
1990                     <FRAME '\1aALL-DEAD?>
1991                     <PUSH AC9>
1992                     <CALL '\1aALL-DEAD? 1 = TEMP26>
1993                     <TYPE? TEMP26 <TYPE-CODE FALSE> - BOOL32>
1994                     <DEAD TEMP26>
1995                     <FRAME '\1aALL-STORED?>
1996                     <PUSH AC9>
1997                     <CALL '\1aALL-STORED? 1 = TEMP26>
1998                     <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE30>
1999                     <DEAD TEMP26>
2000 BOOL32
2001                     <FRAME '\1aALL-DEAD?>
2002                     <FRAME '\1aNEXT-AC>
2003                     <PUSH AC9>
2004                     <CALL '\1aNEXT-AC 1 = STACK>
2005                     <CALL '\1aALL-DEAD? 1 = TEMP26>
2006                     <TYPE? TEMP26 <TYPE-CODE FALSE> - BOOL35>
2007                     <DEAD TEMP26>
2008                     <FRAME '\1aALL-STORED?>
2009                     <FRAME '\1aNEXT-AC>
2010                     <PUSH AC9>
2011                     <CALL '\1aNEXT-AC 1 = STACK>
2012                     <CALL '\1aALL-STORED? 1 = TEMP26>
2013                     <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE30>
2014                     <DEAD TEMP26>
2015 BOOL35
2016                     <FRAME '\1aMUNG-AC>
2017                     <PUSH AC9>
2018                     <CALL '\1aMUNG-AC 1>
2019                     <FRAME '\1aMUNG-AC>
2020                     <FRAME '\1aNEXT-AC>
2021                     <PUSH AC9>
2022                     <CALL '\1aNEXT-AC 1 = STACK>
2023                     <CALL '\1aMUNG-AC 1>
2024                     <JUMP + COND27>
2025 PHRASE30
2026                     <FRAME '\1aSTORE-AC>
2027                     <PUSH AC9>
2028                     <PUSH 'T>
2029                     <CALL '\1aSTORE-AC 2>
2030                     <FRAME '\1aSTORE-AC>
2031                     <FRAME '\1aNEXT-AC>
2032                     <PUSH AC9>
2033                     <CALL '\1aNEXT-AC 1 = STACK>
2034                     <PUSH 'T>
2035                     <CALL '\1aSTORE-AC 2>
2036                     <JUMP + COND27>
2037 PHRASE28
2038                     <FRAME '\1aALL-DEAD?>
2039                     <PUSH AC9>
2040                     <CALL '\1aALL-DEAD? 1 = TEMP26>
2041                     <TYPE? TEMP26 <TYPE-CODE FALSE> - BOOL48>
2042                     <DEAD TEMP26>
2043                     <FRAME '\1aALL-STORED?>
2044                     <PUSH AC9>
2045                     <CALL '\1aALL-STORED? 1 = TEMP26>
2046                     <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE47>
2047                     <DEAD TEMP26>
2048 BOOL48
2049                     <FRAME '\1aMUNG-AC>
2050                     <PUSH AC9>
2051                     <CALL '\1aMUNG-AC 1>
2052                     <JUMP + COND27>
2053 PHRASE47
2054                     <FRAME '\1aFREE-AC?>
2055                     <PUSH MODE8>
2056                     <PUSH 'NOVARS>
2057                     <CALL '\1aFREE-AC? 2 = TEMP26>
2058                     <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE52>
2059                     <FRAME '\1aIMOVE-AC>
2060                     <PUSH AC9>
2061                     <PUSH TEMP26>
2062                     <DEAD TEMP26>
2063                     <PUSH %<>>
2064                     <CALL '\1aIMOVE-AC 3>
2065                     <FRAME '\1aCLEAR-VARS-FROM-AC>
2066                     <PUSH AC9>
2067                     <CALL '\1aCLEAR-VARS-FROM-AC 1>
2068                     <JUMP + COND27>
2069 PHRASE52
2070                     <FRAME '\1aSTORE-AC>
2071                     <PUSH AC9>
2072                     <PUSH 'T>
2073                     <CALL '\1aSTORE-AC 2>
2074 COND27
2075                     <FRAME '\1aCLOAD-AC>
2076                     <PUSH AC9>
2077                     <CALL '\1aCLOAD-AC 1>
2078                     <VEQUAL? MODE8 'TYPE-VALUE-PAIR - PHRASE59>
2079                     <FRAME '\1aEMIT>
2080                     <PUSH 125>
2081                     <TYPE? ALREADY?12 <TYPE-CODE FALSE> + PHRASE62>
2082                     <NTHUV ALREADY?12 2 = TEMP26 (TYPE FIX)>
2083                     <DEAD ALREADY?12>
2084                     <OR TEMP26 #WORD *120* = TEMP26>
2085                     <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
2086                     <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = TEMP26>
2087                     <JUMP + COND61>
2088 PHRASE62
2089                     <FRAME '\1aADDR-VAR-TYPE-VALUE>
2090                     <PUSH VAR7>
2091                     <CALL '\1aADDR-VAR-TYPE-VALUE 1 = TEMP26>
2092 COND61
2093                     <PUSH TEMP26>
2094                     <DEAD TEMP26>
2095                     <NTHUV AC9 2 = TEMP26 (TYPE FIX)>
2096                     <OR TEMP26 #WORD *120* = TEMP26>
2097                     <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
2098                     <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
2099                     <DEAD TEMP26>
2100                     <CALL '\1aEMIT 3>
2101                     <GVAL 'GC-MODE = TEMP26>
2102                     <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE126>
2103                     <DEAD TEMP26>
2104                     <FRAME '\1aEMIT>
2105                     <PUSH 170>
2106                     <GVAL 'AC-PC = TEMP26>
2107                     <NTHUV TEMP26 2 = TEMP26 (TYPE FIX)>
2108                     <OR TEMP26 #WORD *200* = TEMP26>
2109                     <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
2110                     <SET V70 32800 (TYPE FIX)>
2111                     <AND V70 #WORD *377* = LVAR13>
2112                     <LSH LVAR13 16 = LVAR13 (TYPE FIX)>
2113                     <AND V70 #WORD *177400* = SAFE?18>
2114                     <DEAD V70>
2115                     <OR LVAR13 SAFE?18 = LVAR13>
2116                     <DEAD SAFE?18>
2117                     <AND LVAR13 #WORD *77777400* = LVAR13>
2118                     <OR TEMP26 LVAR13 = TEMP26>
2119                     <DEAD LVAR13>
2120                     <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
2121                     <DEAD TEMP26>
2122                     <NTHUV AC9 2 = LVAR13 (TYPE FIX)>
2123                     <OR LVAR13 #WORD *120* = LVAR13>
2124                     <LSH LVAR13 24 = LVAR13 (TYPE FIX)>
2125                     <CHTYPE LVAR13 <TYPE-CODE EFF-ADDR> = STACK>
2126                     <DEAD LVAR13>
2127                     <CALL '\1aEMIT 3>
2128                     <JUMP + PHRASE126>
2129 PHRASE59
2130                     <VEQUAL? MODE8 'TYPE - PHRASE74>
2131                     <TYPE? SAFE?18 <TYPE-CODE FALSE> - BOOL77>
2132                     <DEAD SAFE?18>
2133                     <TYPE? LVAR13 <TYPE-CODE FALSE> + PHRASE76>
2134                     <DEAD LVAR13>
2135 BOOL77
2136                     <FRAME '\1aMOVE-TO-AC>
2137                     <PUSH AC9>
2138                     <FRAME '\1aADDR-VAR-TYPE>
2139                     <PUSH VAR7>
2140                     <CALL '\1aADDR-VAR-TYPE 1 = STACK>
2141                     <PUSH 'WORD>
2142                     <CALL '\1aMOVE-TO-AC 3>
2143                     <GVAL 'GC-MODE = LVAR13>
2144                     <TYPE? LVAR13 <TYPE-CODE FALSE> + PHRASE126>
2145                     <DEAD LVAR13>
2146                     <FRAME '\1aEMIT>
2147                     <PUSH 170>
2148                     <GVAL 'AC-PC = LVAR13>
2149                     <NTHUV LVAR13 2 = SAFE?18 (TYPE FIX)>
2150                     <DEAD LVAR13>
2151                     <OR SAFE?18 #WORD *200* = SAFE?18>
2152                     <LSH SAFE?18 24 = SAFE?18 (TYPE FIX)>
2153                     <SET V70 32800 (TYPE FIX)>
2154                     <AND V70 #WORD *377* = LVAR13>
2155                     <LSH LVAR13 16 = LVAR13 (TYPE FIX)>
2156                     <AND V70 #WORD *177400* = TEMP26>
2157                     <DEAD V70>
2158                     <OR LVAR13 TEMP26 = LVAR13>
2159                     <DEAD TEMP26>
2160                     <AND LVAR13 #WORD *77777400* = LVAR13>
2161                     <OR SAFE?18 LVAR13 = SAFE?18>
2162                     <DEAD LVAR13>
2163                     <CHTYPE SAFE?18 <TYPE-CODE EFF-ADDR> = STACK>
2164                     <DEAD SAFE?18>
2165                     <NTHUV AC9 2 = SAFE?18 (TYPE FIX)>
2166                     <OR SAFE?18 #WORD *120* = SAFE?18>
2167                     <LSH SAFE?18 24 = SAFE?18 (TYPE FIX)>
2168                     <CHTYPE SAFE?18 <TYPE-CODE EFF-ADDR> = STACK>
2169                     <DEAD SAFE?18>
2170                     <CALL '\1aEMIT 3>
2171                     <JUMP + PHRASE126>
2172 PHRASE76
2173                     <FRAME '\1aVARTBL-DECL>
2174                     <PUSH VAR7>
2175                     <CALL '\1aVARTBL-DECL 1 = LVAR13>
2176                     <TYPE? LVAR13 <TYPE-CODE FALSE> + PHRASE87>
2177                     <FRAME '\1aMOVE-TO-AC>
2178                     <PUSH AC9>
2179                     <FRAME '\1aTYPE-CODE>
2180                     <PUSH LVAR13>
2181                     <DEAD LVAR13>
2182                     <CALL '\1aTYPE-CODE 1 = STACK>
2183                     <PUSH 'LONG>
2184                     <CALL '\1aMOVE-TO-AC 3>
2185                     <SET CLEAR-TYPE?21 'T (TYPE ATOM)>
2186                     <JUMP + PHRASE126>
2187 PHRASE87
2188                     <FRAME '\1aERROR>
2189                     <PUSH "NO TYPE CODE">
2190                     <PUSH 'LOAD-VAR-INTO-AC>
2191                     <CALL '\1aERROR 2>
2192                     <JUMP + PHRASE126>
2193 PHRASE74
2194                     <VEQUAL? MODE8 'COUNT - PHRASE92>
2195                     <FRAME '\1aMOVE-TO-AC>
2196                     <PUSH AC9>
2197                     <FRAME '\1aADDR-VAR-COUNT>
2198                     <PUSH VAR7>
2199                     <CALL '\1aADDR-VAR-COUNT 1 = STACK>
2200                     <PUSH 'WORD>
2201                     <CALL '\1aMOVE-TO-AC 3>
2202                     <JUMP + PHRASE126>
2203 PHRASE92
2204                     <VEQUAL? MODE8 'TYPE-WORD - PHRASE95>
2205                     <TYPE? SAFE?18 <TYPE-CODE FALSE> + PHRASE97>
2206                     <DEAD SAFE?18>
2207                     <FRAME '\1aMOVE-TO-AC>
2208                     <PUSH AC9>
2209                     <FRAME '\1aADDR-VAR-TYPE>
2210                     <PUSH VAR7>
2211                     <CALL '\1aADDR-VAR-TYPE 1 = STACK>
2212                     <PUSH 'LONG>
2213                     <CALL '\1aMOVE-TO-AC 3>
2214                     <JUMP + PHRASE126>
2215 PHRASE97
2216                     <FRAME '\1aVARTBL-DECL>
2217                     <PUSH VAR7>
2218                     <CALL '\1aVARTBL-DECL 1 = LVAR13>
2219                     <TYPE? LVAR13 <TYPE-CODE FALSE> + PHRASE102>
2220                     <FRAME '\1aCOUNT-NEEDED?>
2221                     <PUSH LVAR13>
2222                     <CALL '\1aCOUNT-NEEDED? 1 = SAFE?18>
2223                     <TYPE? SAFE?18 <TYPE-CODE FALSE> + PHRASE105>
2224                     <DEAD SAFE?18>
2225                     <FRAME '\1aMOVE-TO-AC>
2226                     <PUSH AC9>
2227                     <FRAME '\1aVAR-COUNT-ADDRESS>
2228                     <PUSH VAR7>
2229                     <CALL '\1aVAR-COUNT-ADDRESS 1 = STACK>
2230                     <PUSH 'LONG>
2231                     <CALL '\1aMOVE-TO-AC 3>
2232                     <FRAME '\1aMOVE-TO-AC>
2233                     <PUSH AC9>
2234                     <FRAME '\1aTYPE-CODE>
2235                     <PUSH LVAR13>
2236                     <DEAD LVAR13>
2237                     <CALL '\1aTYPE-CODE 1 = STACK>
2238                     <PUSH 'WORD>
2239                     <CALL '\1aMOVE-TO-AC 3>
2240                     <JUMP + COND101>
2241 PHRASE105
2242                     <FRAME '\1aMOVE-TO-AC>
2243                     <PUSH AC9>
2244                     <FRAME '\1aTYPE-WORD>
2245                     <PUSH LVAR13>
2246                     <DEAD LVAR13>
2247                     <CALL '\1aTYPE-WORD 1 = STACK>
2248                     <PUSH 'LONG>
2249                     <CALL '\1aMOVE-TO-AC 3>
2250                     <JUMP + COND101>
2251 PHRASE102
2252                     <FRAME '\1aFIND-CACHE-VAR>
2253                     <PUSH VAR7>
2254                     <CALL '\1aFIND-CACHE-VAR 1 = LVAR13>
2255                     <TYPE? LVAR13 <TYPE-CODE FALSE> + PHRASE114>
2256                     <NTHUV LVAR13 7 = SAFE?18>
2257                     <TYPE? SAFE?18 <TYPE-CODE FALSE> + PHRASE117>
2258                     <NTHUV LVAR13 8 = LVAR13>
2259                     <TYPE? LVAR13 <TYPE-CODE FALSE> + PHRASE119>
2260                     <FRAME '\1aMOVE-TO-AC>
2261                     <PUSH AC9>
2262                     <NTHUV LVAR13 2 = TEMP26 (TYPE FIX)>
2263                     <DEAD LVAR13>
2264                     <OR TEMP26 #WORD *120* = TEMP26>
2265                     <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
2266                     <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
2267                     <DEAD TEMP26>
2268                     <PUSH 'WORD>
2269                     <CALL '\1aMOVE-TO-AC 3>
2270                     <FRAME '\1aEMIT>
2271                     <PUSH 156>
2272                     <GVAL 'AC-PC = TEMP26>
2273                     <NTHUV TEMP26 2 = LVAR13 (TYPE FIX)>
2274                     <DEAD TEMP26>
2275                     <OR LVAR13 #WORD *200* = LVAR13>
2276                     <LSH LVAR13 24 = LVAR13 (TYPE FIX)>
2277                     <LSH 16 16 = TEMP26 (TYPE FIX)>
2278                     <OR LVAR13 TEMP26 = LVAR13>
2279                     <DEAD TEMP26>
2280                     <CHTYPE LVAR13 <TYPE-CODE EFF-ADDR> = STACK>
2281                     <DEAD LVAR13>
2282                     <NTHUV AC9 2 = LVAR13 (TYPE FIX)>
2283                     <OR LVAR13 #WORD *120* = LVAR13>
2284                     <LSH LVAR13 24 = LVAR13 (TYPE FIX)>
2285                     <CHTYPE LVAR13 <TYPE-CODE EFF-ADDR> = STACK>
2286                     <DEAD LVAR13>
2287                     <CALL '\1aEMIT 3>
2288 PHRASE119
2289                     <FRAME '\1aMOVE-TO-AC>
2290                     <PUSH AC9>
2291                     <NTHUV SAFE?18 2 = LVAR13 (TYPE FIX)>
2292                     <DEAD SAFE?18>
2293                     <OR LVAR13 #WORD *120* = LVAR13>
2294                     <LSH LVAR13 24 = LVAR13 (TYPE FIX)>
2295                     <CHTYPE LVAR13 <TYPE-CODE EFF-ADDR> = STACK>
2296                     <DEAD LVAR13>
2297                     <PUSH 'WORD>
2298                     <CALL '\1aMOVE-TO-AC 3>
2299                     <JUMP + COND101>
2300 PHRASE117
2301                     <FRAME '\1aERROR>
2302                     <PUSH "NO TYPE WORD">
2303                     <PUSH 'LOAD-VAR-INTO-AC>
2304                     <CALL '\1aERROR 2>
2305                     <JUMP + COND101>
2306 PHRASE114
2307                     <FRAME '\1aERROR>
2308                     <PUSH "NO TYPE WORD">
2309                     <PUSH 'LOAD-VAR-INTO-AC>
2310                     <CALL '\1aERROR 2>
2311 COND101
2312                     <SET CLEAR-TYPE?21 'T (TYPE ATOM)>
2313                     <SET CLEAR-COUNT?22 'T (TYPE ATOM)>
2314                     <FRAME '\1aUSE-AC>
2315                     <PUSH AC9>
2316                     <CALL '\1aUSE-AC 1>
2317                     <JUMP + PHRASE126>
2318 PHRASE95
2319                     <VEQUAL? MODE8 'VALUE - PHRASE126>
2320                     <FRAME '\1aMOVE-TO-AC>
2321                     <PUSH AC9>
2322                     <FRAME '\1aADDR-VAR-VALUE>
2323                     <PUSH VAR7>
2324                     <CALL '\1aADDR-VAR-VALUE 1 = STACK>
2325                     <PUSH 'LONG>
2326                     <CALL '\1aMOVE-TO-AC 3>
2327 PHRASE126
2328                     <TYPE? MODIFY?10 <TYPE-CODE FALSE> - PHRASE130>
2329                     <DEAD MODIFY?10>
2330                     <FRAME '\1aLINK-VAR-TO-AC>
2331                     <PUSH VAR7>
2332                     <DEAD VAR7>
2333                     <PUSH AC9>
2334                     <DEAD AC9>
2335                     <PUSH MODE8>
2336                     <DEAD MODE8>
2337                     <PUSH 'T>
2338                     <PUSH %<>>
2339                     <CALL '\1aLINK-VAR-TO-AC 5 = RLVAR19>
2340 PHRASE130
2341                     <SET LVAR13 RLVAR19>
2342                     <TYPE? LVAR13 <TYPE-CODE FALSE> + PHRASE137>
2343                     <VEQUAL? CLEAR-TYPE?21 0 + PHRASE135>
2344                     <DEAD CLEAR-TYPE?21>
2345                     <PUTUV RLVAR19 4 %<>>
2346 PHRASE135
2347                     <SET LVAR13 CLEAR-COUNT?22>
2348                     <DEAD CLEAR-COUNT?22>
2349                     <VEQUAL? LVAR13 0 + PHRASE137>
2350                     <PUTUV RLVAR19 3 %<>>
2351                     <SET LVAR13 RLVAR19>
2352                     <DEAD RLVAR19>
2353 PHRASE137
2354                     <RETURN LVAR13>
2355                     <DEAD LVAR13>
2356                     <END \1aLOAD-VAR-INTO-AC>\r\0\r\0
2357 #WORD *36560534574*
2358 <GFCN \1aMATCH-AC? ("VALUE" <OR ATOM FALSE> AC AC-CHOICES) AC4 MODE5>
2359                     <TEMP TEMP9>
2360                     <INTGO>
2361                     <TYPE? MODE5 <TYPE-CODE AC> - PHRASE7>
2362                     <VEQUAL? AC4 MODE5 - TAG8>
2363                     <DEAD AC4 MODE5>
2364                     <RETURN 'T>
2365 TAG8
2366                     <RETURN %<>>
2367 PHRASE7
2368                     <RETURN 'T>
2369                     <END \1aMATCH-AC?>
2370 #WORD *25177725536*
2371 <GFCN \1aVAR-VALUE-ADDRESS ("VALUE" <OR EFF-ADDR LADDR> VARTBL "OPTIONAL" ANY) VAR6 WRITE?7>
2372                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
2373 OPT4
2374                     <PUSH %<>>
2375 OPT5
2376                     <TEMP LVAR8 TAC9 TEMP18>
2377                     <INTGO>
2378                     <FRAME '\1aFIND-CACHE-VAR>
2379                     <PUSH VAR6>
2380                     <CALL '\1aFIND-CACHE-VAR 1 = LVAR8>
2381                     <TYPE? LVAR8 <TYPE-CODE FALSE> + PHRASE11>
2382                     <NTHUV LVAR8 6 = TAC9>
2383                     <TYPE? TAC9 <TYPE-CODE FALSE> + PHRASE11>
2384                     <TYPE? WRITE?7 <TYPE-CODE FALSE> + PHRASE15>
2385                     <DEAD WRITE?7>
2386                     <NTHUV TAC9 8 = TEMP18 (TYPE VECTOR)>
2387                     <LENUV TEMP18 = TEMP18 (TYPE FIX)>
2388                     <GRTR? TEMP18 1 - PHRASE15>
2389                     <DEAD TEMP18>
2390                     <FRAME '\1aSTORE-AC>
2391                     <PUSH TAC9>
2392                     <PUSH 'T>
2393                     <PUSH LVAR8>
2394                     <DEAD LVAR8>
2395                     <CALL '\1aSTORE-AC 3>
2396 PHRASE15
2397                     <FRAME '\1aUSE-AC>
2398                     <PUSH TAC9>
2399                     <CALL '\1aUSE-AC 1>
2400                     <NTHUV TAC9 2 = TEMP18 (TYPE FIX)>
2401                     <DEAD TAC9>
2402                     <OR TEMP18 #WORD *120* = TEMP18>
2403                     <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
2404                     <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = TEMP18>
2405                     <RETURN TEMP18>
2406                     <DEAD TEMP18>
2407 PHRASE11
2408                     <FRAME '\1aADDR-VAR-VALUE>
2409                     <PUSH VAR6>
2410                     <DEAD VAR6>
2411                     <CALL '\1aADDR-VAR-VALUE 1 = TEMP18>
2412                     <RETURN TEMP18>
2413                     <DEAD TEMP18>
2414                     <END \1aVAR-VALUE-ADDRESS>
2415 #WORD *21100545544*
2416 <GFCN \1aVAR-TYPE-ADDRESS ("VALUE" <OR EFF-ADDR LADDR> VARTBL "OPTIONAL" ATOM ANY) VAR7 MODE8 WRITE?9>
2417                     <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
2418 OPT4
2419                     <PUSH 'TYPE>
2420 OPT5
2421                     <PUSH %<>>
2422 OPT6
2423                     <TEMP LVAR10 TAC11 TEMP21>
2424                     <INTGO>
2425                     <VEQUAL? MODE8 'TYPE - PHRASE13>
2426                     <FRAME '\1aFIND-CACHE-VAR>
2427                     <PUSH VAR7>
2428                     <CALL '\1aFIND-CACHE-VAR 1 = LVAR10>
2429                     <TYPE? LVAR10 <TYPE-CODE FALSE> + PHRASE13>
2430                     <NTHUV LVAR10 7 = TAC11>
2431                     <TYPE? TAC11 <TYPE-CODE FALSE> - BOOL16>
2432                     <NTHUV LVAR10 9 = TAC11>
2433                     <TYPE? TAC11 <TYPE-CODE FALSE> + PHRASE13>
2434 BOOL16
2435                     <TYPE? WRITE?9 <TYPE-CODE FALSE> + PHRASE18>
2436                     <DEAD WRITE?9>
2437                     <NTHUV TAC11 8 = TEMP21 (TYPE VECTOR)>
2438                     <LENUV TEMP21 = TEMP21 (TYPE FIX)>
2439                     <GRTR? TEMP21 1 - PHRASE18>
2440                     <DEAD TEMP21>
2441                     <FRAME '\1aSTORE-AC>
2442                     <PUSH TAC11>
2443                     <PUSH 'T>
2444                     <PUSH LVAR10>
2445                     <DEAD LVAR10>
2446                     <CALL '\1aSTORE-AC 3>
2447 PHRASE18
2448                     <FRAME '\1aUSE-AC>
2449                     <PUSH TAC11>
2450                     <CALL '\1aUSE-AC 1>
2451                     <NTHUV TAC11 2 = TEMP21 (TYPE FIX)>
2452                     <DEAD TAC11>
2453                     <OR TEMP21 #WORD *120* = TEMP21>
2454                     <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
2455                     <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = TEMP21>
2456                     <RETURN TEMP21>
2457                     <DEAD TEMP21>
2458 PHRASE13
2459                     <VEQUAL? MODE8 'TYPE-WORD + BOOL26>
2460                     <VEQUAL? MODE8 'TYPEMODE + BOOL26>
2461                     <VEQUAL? MODE8 'TYPEWORD - PHRASE24>
2462                     <DEAD MODE8>
2463 BOOL26
2464                     <FRAME '\1aFIND-CACHE-VAR>
2465                     <PUSH VAR7>
2466                     <CALL '\1aFIND-CACHE-VAR 1 = LVAR10>
2467                     <TYPE? LVAR10 <TYPE-CODE FALSE> + PHRASE24>
2468                     <NTHUV LVAR10 9 = TAC11>
2469                     <TYPE? TAC11 <TYPE-CODE FALSE> + PHRASE24>
2470                     <TYPE? WRITE?9 <TYPE-CODE FALSE> + PHRASE29>
2471                     <DEAD WRITE?9>
2472                     <NTHUV TAC11 8 = TEMP21 (TYPE VECTOR)>
2473                     <LENUV TEMP21 = TEMP21 (TYPE FIX)>
2474                     <GRTR? TEMP21 1 - PHRASE29>
2475                     <DEAD TEMP21>
2476                     <FRAME '\1aSTORE-AC>
2477                     <PUSH TAC11>
2478                     <PUSH 'T>
2479                     <PUSH LVAR10>
2480                     <DEAD LVAR10>
2481                     <CALL '\1aSTORE-AC 3>
2482 PHRASE29
2483                     <FRAME '\1aUSE-AC>
2484                     <PUSH TAC11>
2485                     <CALL '\1aUSE-AC 1>
2486                     <NTHUV TAC11 2 = TEMP21 (TYPE FIX)>
2487                     <DEAD TAC11>
2488                     <OR TEMP21 #WORD *120* = TEMP21>
2489                     <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
2490                     <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = TEMP21>
2491                     <RETURN TEMP21>
2492                     <DEAD TEMP21>
2493 PHRASE24
2494                     <FRAME '\1aADDR-VAR-TYPE>
2495                     <PUSH VAR7>
2496                     <DEAD VAR7>
2497                     <CALL '\1aADDR-VAR-TYPE 1 = TEMP21>
2498                     <RETURN TEMP21>
2499                     <DEAD TEMP21>
2500                     <END \1aVAR-TYPE-ADDRESS>
2501 #WORD *7226504030*
2502 <GFCN \1aVAR-COUNT-ADDRESS ("VALUE" <OR EFF-ADDR LADDR> VARTBL "OPTIONAL" ANY) VAR6 WRITE?7>
2503                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
2504 OPT4
2505                     <PUSH %<>>
2506 OPT5
2507                     <TEMP LVAR8 TAC9 TEMP18>
2508                     <INTGO>
2509                     <FRAME '\1aFIND-CACHE-VAR>
2510                     <PUSH VAR6>
2511                     <CALL '\1aFIND-CACHE-VAR 1 = LVAR8>
2512                     <TYPE? LVAR8 <TYPE-CODE FALSE> + PHRASE11>
2513                     <NTHUV LVAR8 8 = TAC9>
2514                     <TYPE? TAC9 <TYPE-CODE FALSE> + PHRASE11>
2515                     <TYPE? WRITE?7 <TYPE-CODE FALSE> + PHRASE15>
2516                     <DEAD WRITE?7>
2517                     <NTHUV TAC9 8 = TEMP18 (TYPE VECTOR)>
2518                     <LENUV TEMP18 = TEMP18 (TYPE FIX)>
2519                     <GRTR? TEMP18 1 - PHRASE15>
2520                     <DEAD TEMP18>
2521                     <FRAME '\1aSTORE-AC>
2522                     <PUSH TAC9>
2523                     <PUSH 'T>
2524                     <PUSH LVAR8>
2525                     <DEAD LVAR8>
2526                     <CALL '\1aSTORE-AC 3>
2527 PHRASE15
2528                     <FRAME '\1aUSE-AC>
2529                     <PUSH TAC9>
2530                     <CALL '\1aUSE-AC 1>
2531                     <NTHUV TAC9 2 = TEMP18 (TYPE FIX)>
2532                     <DEAD TAC9>
2533                     <OR TEMP18 #WORD *120* = TEMP18>
2534                     <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
2535                     <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = TEMP18>
2536                     <RETURN TEMP18>
2537                     <DEAD TEMP18>
2538 PHRASE11
2539                     <FRAME '\1aADDR-VAR-COUNT>
2540                     <PUSH VAR6>
2541                     <DEAD VAR6>
2542                     <CALL '\1aADDR-VAR-COUNT 1 = TEMP18>
2543                     <RETURN TEMP18>
2544                     <DEAD TEMP18>
2545                     <END \1aVAR-COUNT-ADDRESS>
2546 #WORD *3561006424*
2547 <GFCN \1aSTORE-ALL-ACS ("VALUE" ANY)>
2548                     <TEMP TEMP13 TEMP15:VECTOR>
2549                     <INTGO>
2550                     <SET TEMP13 %<> (TYPE FALSE)>
2551                     <GVAL 'ALL-ACS = TEMP15>
2552                     <LOOP>
2553 MAP5
2554                     <INTGO>
2555                     <EMPUV? TEMP15 + MAPAP8>
2556                     <NTHUV TEMP15 1 = TEMP13>
2557                     <FRAME '\1aSTORE-AC>
2558                     <PUSH TEMP13>
2559                     <DEAD TEMP13>
2560                     <PUSH %<>>
2561                     <CALL '\1aSTORE-AC 2 = TEMP13>
2562                     <RESTUV TEMP15 1 = TEMP15 (TYPE VECTOR)>
2563                     <JUMP + MAP5>
2564 MAPAP8
2565                     <RETURN TEMP13>
2566                     <DEAD TEMP13>
2567                     <END \1aSTORE-ALL-ACS>
2568 #WORD *11454050466*
2569 <GFCN \1aPUSH-TEMPS ("VALUE" ANY "OPTIONAL" ANY) MODEL6>
2570                     <OPT-DISPATCH 0 %<> OPT4 OPT5>
2571 OPT4
2572                     <PUSH #T$UNBOUND 0>
2573 OPT5
2574                     <TEMP TEMP12 TEMP25:LIST>
2575                     <INTGO>
2576                     <TYPE? MODEL6 <TYPE-CODE UNBOUND> - TAG7>
2577                     <GVAL 'TOP-MODEL = MODEL6>
2578 TAG7
2579                     <NTHUV MODEL6 1 = TEMP12 (TYPE FIX)>
2580                     <VEQUAL? TEMP12 0 - TAG13 (TYPE FIX)>
2581                     <DEAD TEMP12>
2582                     <RETURN %<>>
2583 TAG13
2584                     <FRAME '\1aSTART-CODE-INSERT>
2585                     <CALL '\1aSTART-CODE-INSERT 0>
2586                     <FRAME '\1aPUSH-MODEL>
2587                     <PUSH MODEL6>
2588                     <CALL '\1aPUSH-MODEL 1>
2589                     <FRAME '\1aINSERT-PATCH>
2590                     <NTHUV MODEL6 1 = STACK (TYPE FIX)>
2591                     <FRAME '\1aEND-CODE-INSERT>
2592                     <CALL '\1aEND-CODE-INSERT 0 = STACK>
2593                     <CALL '\1aINSERT-PATCH 2>
2594                     <SET TEMP12 %<> (TYPE FALSE)>
2595                     <NTHUV MODEL6 3 = TEMP25 (TYPE LIST)>
2596                     <DEAD MODEL6>
2597                     <LOOP>
2598 MAP21
2599                     <INTGO>
2600                     <EMPL? TEMP25 + MAP20>
2601                     <FRAME '\1aPUSH-TEMPS>
2602                     <NTHL TEMP25 1 = STACK>
2603                     <CALL '\1aPUSH-TEMPS 1 = TEMP12>
2604                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
2605                     <JUMP + MAP21>
2606 MAP20
2607                     <RETURN TEMP12>
2608                     <DEAD TEMP12>
2609                     <END \1aPUSH-TEMPS>
2610 #WORD *31273436507*
2611 <GFCN \1aPUSH-TEMP ("VALUE" ANY VARTBL) VAR4>
2612                     <TEMP IVAL5>
2613                     <INTGO>
2614                     <NTHUV VAR4 8 = IVAL5>
2615                     <TYPE? IVAL5 <TYPE-CODE FALSE> + PHRASE8>
2616                     <FRAME '\1aPUSH-CONSTANT>
2617                     <PUSH IVAL5>
2618                     <DEAD IVAL5>
2619                     <CALL '\1aPUSH-CONSTANT 1 = IVAL5>
2620                     <RETURN IVAL5>
2621                     <DEAD IVAL5>
2622 PHRASE8
2623                     <NTHUV VAR4 4 = IVAL5>
2624                     <DEAD VAR4>
2625                     <TYPE? IVAL5 <TYPE-CODE FALSE> + PHRASE11>
2626                     <FRAME '\1aEMIT-PUSH>
2627                     <FRAME '\1aTYPE-WORD>
2628                     <PUSH IVAL5>
2629                     <DEAD IVAL5>
2630                     <CALL '\1aTYPE-WORD 1 = STACK>
2631                     <PUSH 'LONG>
2632                     <CALL '\1aEMIT-PUSH 2>
2633                     <FRAME '\1aCLEAR-PUSH>
2634                     <CALL '\1aCLEAR-PUSH 0 = IVAL5>
2635                     <RETURN IVAL5>
2636                     <DEAD IVAL5>
2637 PHRASE11
2638                     <FRAME '\1aCLEAR-PUSH>
2639                     <PUSH 'DOUBLE>
2640                     <CALL '\1aCLEAR-PUSH 1 = IVAL5>
2641                     <RETURN IVAL5>
2642                     <DEAD IVAL5>
2643                     <END \1aPUSH-TEMP>
2644 #WORD *17460344666*
2645 <GFCN \1aPUSH-CONSTANT ("VALUE" ANY ANY) IVAL4>
2646                     <TEMP RVAL5 TEMP21>
2647                     <INTGO>
2648                     <TYPE? IVAL4 <TYPE-CODE SPEC-FALSE> - PHRASE7>
2649                     <CHTYPE IVAL4 <TYPE-CODE FALSE> = IVAL4>
2650 PHRASE7
2651                     <FRAME '\1aFIX-CONSTANT?>
2652                     <PUSH IVAL4>
2653                     <CALL '\1aFIX-CONSTANT? 1 = RVAL5>
2654                     <TYPE? RVAL5 <TYPE-CODE FALSE> + PHRASE9>
2655                     <FRAME '\1aEMIT-PUSH>
2656                     <FRAME '\1aTYPE-WORD>
2657                     <FRAME '\1aTYPE>
2658                     <PUSH IVAL4>
2659                     <DEAD IVAL4>
2660                     <CALL '\1aTYPE 1 = STACK>
2661                     <CALL '\1aTYPE-WORD 1 = STACK>
2662                     <PUSH 'LONG>
2663                     <CALL '\1aEMIT-PUSH 2>
2664                     <VEQUAL? RVAL5 0 - PHRASE15 (TYPE FIX)>
2665                     <FRAME '\1aCLEAR-PUSH>
2666                     <PUSH 'LONG>
2667                     <CALL '\1aCLEAR-PUSH 1 = RVAL5>
2668                     <RETURN RVAL5>
2669                     <DEAD RVAL5>
2670 PHRASE15
2671                     <FRAME '\1aEMIT-PUSH>
2672                     <GVAL 'AC-PC = TEMP21>
2673                     <NTHUV TEMP21 2 = TEMP21 (TYPE FIX)>
2674                     <OR TEMP21 #WORD *200* = TEMP21>
2675                     <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
2676                     <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = TEMP21>
2677                     <CONS TEMP21 () = TEMP21>
2678                     <FRAME '\1aLREV>
2679                     <PUSH RVAL5>
2680                     <DEAD RVAL5>
2681                     <CALL '\1aLREV 1 = RVAL5>
2682                     <CHTYPE RVAL5 <TYPE-CODE EFF-ADDR> = RVAL5>
2683                     <CONS RVAL5 () = RVAL5>
2684                     <PUTREST TEMP21 RVAL5>
2685                     <DEAD RVAL5>
2686                     <CHTYPE TEMP21 <TYPE-CODE LADDR> = STACK>
2687                     <DEAD TEMP21>
2688                     <PUSH 'LONG>
2689                     <CALL '\1aEMIT-PUSH 2 = RVAL5>
2690                     <RETURN RVAL5>
2691                     <DEAD RVAL5>
2692 PHRASE9
2693                     <FRAME '\1aEMIT-PUSH>
2694                     <FRAME '\1aADDR-TYPE-MQUOTE>
2695                     <PUSH IVAL4>
2696                     <DEAD IVAL4>
2697                     <CALL '\1aADDR-TYPE-MQUOTE 1 = STACK>
2698                     <PUSH 'DOUBLE>
2699                     <CALL '\1aEMIT-PUSH 2 = RVAL5>
2700                     <RETURN RVAL5>
2701                     <DEAD RVAL5>
2702                     <END \1aPUSH-CONSTANT>
2703 #WORD *33125545577*
2704 <GFCN \1aPUSH-VAR ("VALUE" ANY VARTBL) VAR4>
2705                     <TEMP (DONE9 %<>) LVAR6 TAC7 TEMP17 TEMP18>
2706                     <INTGO>
2707                     <FRAME '\1aFIND-CACHE-VAR>
2708                     <PUSH VAR4>
2709                     <CALL '\1aFIND-CACHE-VAR 1 = LVAR6>
2710                     <TYPE? LVAR6 <TYPE-CODE FALSE> + PHRASE11>
2711                     <NTHUV LVAR6 9 = TAC7>
2712                     <TYPE? TAC7 <TYPE-CODE FALSE> + PHRASE11>
2713                     <NTHUV LVAR6 6 = LVAR6>
2714                     <TYPE? LVAR6 <TYPE-CODE FALSE> + PHRASE15>
2715                     <NTHUV TAC7 2 = TEMP17 (TYPE FIX)>
2716                     <ADD TEMP17 1 = TEMP17 (TYPE FIX)>
2717                     <NTHUV LVAR6 2 = TEMP18 (TYPE FIX)>
2718                     <VEQUAL? TEMP17 TEMP18 - PHRASE15 (TYPE FIX)>
2719                     <DEAD TEMP17 TEMP18>
2720                     <FRAME '\1aEMIT-PUSH>
2721                     <NTHUV TAC7 2 = TEMP17 (TYPE FIX)>
2722                     <OR TEMP17 #WORD *120* = TEMP17>
2723                     <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
2724                     <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
2725                     <DEAD TEMP17>
2726                     <PUSH 'DOUBLE>
2727                     <CALL '\1aEMIT-PUSH 2>
2728                     <SET DONE9 'T (TYPE ATOM)>
2729                     <FRAME '\1aUSE-AC>
2730                     <PUSH LVAR6>
2731                     <DEAD LVAR6>
2732                     <CALL '\1aUSE-AC 1>
2733                     <JUMP + PHRASE21>
2734 PHRASE15
2735                     <FRAME '\1aEMIT-PUSH>
2736                     <NTHUV TAC7 2 = TEMP17 (TYPE FIX)>
2737                     <OR TEMP17 #WORD *120* = TEMP17>
2738                     <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
2739                     <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
2740                     <DEAD TEMP17>
2741                     <PUSH 'LONG>
2742                     <CALL '\1aEMIT-PUSH 2>
2743 PHRASE21
2744                     <FRAME '\1aUSE-AC>
2745                     <PUSH TAC7>
2746                     <DEAD TAC7>
2747                     <CALL '\1aUSE-AC 1>
2748                     <JUMP + COND10>
2749 PHRASE11
2750                     <FRAME '\1aSAFE-TYPE-WORD?>
2751                     <PUSH VAR4>
2752                     <CALL '\1aSAFE-TYPE-WORD? 1 = TEMP17>
2753                     <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE24>
2754                     <DEAD TEMP17>
2755                     <TYPE? LVAR6 <TYPE-CODE FALSE> + BOOL28>
2756                     <NTHUV LVAR6 2 = TEMP17>
2757                     <DEAD LVAR6>
2758                     <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE27>
2759                     <DEAD TEMP17>
2760 BOOL28
2761                     <FRAME '\1aEMIT-PUSH>
2762                     <FRAME '\1aADDR-VAR-TYPE>
2763                     <PUSH VAR4>
2764                     <CALL '\1aADDR-VAR-TYPE 1 = STACK>
2765                     <PUSH 'DOUBLE>
2766                     <CALL '\1aEMIT-PUSH 2>
2767                     <SET DONE9 'T (TYPE ATOM)>
2768                     <JUMP + COND10>
2769 PHRASE27
2770                     <FRAME '\1aEMIT-PUSH>
2771                     <FRAME '\1aADDR-VAR-TYPE>
2772                     <PUSH VAR4>
2773                     <CALL '\1aADDR-VAR-TYPE 1 = STACK>
2774                     <PUSH 'LONG>
2775                     <CALL '\1aEMIT-PUSH 2>
2776                     <JUMP + COND10>
2777 PHRASE24
2778                     <FRAME '\1aVARTBL-DECL>
2779                     <PUSH VAR4>
2780                     <CALL '\1aVARTBL-DECL 1 = TAC7>
2781                     <TYPE? TAC7 <TYPE-CODE FALSE> + PHRASE34>
2782                     <FRAME '\1aCOUNT-NEEDED?>
2783                     <PUSH TAC7>
2784                     <CALL '\1aCOUNT-NEEDED? 1 = TEMP17>
2785                     <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE37>
2786                     <DEAD TEMP17>
2787                     <FRAME '\1aEMIT-PUSH>
2788                     <FRAME '\1aTYPE-CODE>
2789                     <PUSH TAC7>
2790                     <DEAD TAC7>
2791                     <PUSH 'FIX>
2792                     <CALL '\1aTYPE-CODE 2 = STACK>
2793                     <PUSH 'WORD>
2794                     <CALL '\1aEMIT-PUSH 2>
2795                     <FRAME '\1aEMIT-PUSH>
2796                     <FRAME '\1aVAR-COUNT-ADDRESS>
2797                     <PUSH VAR4>
2798                     <CALL '\1aVAR-COUNT-ADDRESS 1 = STACK>
2799                     <PUSH 'WORD>
2800                     <CALL '\1aEMIT-PUSH 2>
2801                     <JUMP + COND10>
2802 PHRASE37
2803                     <FRAME '\1aEMIT-PUSH>
2804                     <FRAME '\1aTYPE-WORD>
2805                     <PUSH TAC7>
2806                     <DEAD TAC7>
2807                     <CALL '\1aTYPE-WORD 1 = STACK>
2808                     <PUSH 'LONG>
2809                     <CALL '\1aEMIT-PUSH 2>
2810                     <JUMP + COND10>
2811 PHRASE34
2812                     <TYPE? LVAR6 <TYPE-CODE FALSE> + PHRASE45>
2813                     <NTHUV LVAR6 7 = TAC7>
2814                     <TYPE? TAC7 <TYPE-CODE FALSE> + PHRASE45>
2815                     <FRAME '\1aEMIT-PUSH>
2816                     <NTHUV TAC7 2 = TEMP18 (TYPE FIX)>
2817                     <OR TEMP18 #WORD *120* = TEMP18>
2818                     <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
2819                     <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
2820                     <DEAD TEMP18>
2821                     <PUSH 'WORD>
2822                     <CALL '\1aEMIT-PUSH 2>
2823                     <FRAME '\1aUSE-AC>
2824                     <PUSH TAC7>
2825                     <DEAD TAC7>
2826                     <CALL '\1aUSE-AC 1>
2827                     <NTHUV LVAR6 8 = TAC7>
2828                     <DEAD LVAR6>
2829                     <TYPE? TAC7 <TYPE-CODE FALSE> + COND10>
2830                     <FRAME '\1aEMIT-PUSH>
2831                     <NTHUV TAC7 2 = TEMP18 (TYPE FIX)>
2832                     <OR TEMP18 #WORD *120* = TEMP18>
2833                     <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
2834                     <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
2835                     <DEAD TEMP18>
2836                     <PUSH 'WORD>
2837                     <CALL '\1aEMIT-PUSH 2>
2838                     <FRAME '\1aUSE-AC>
2839                     <PUSH TAC7>
2840                     <DEAD TAC7>
2841                     <CALL '\1aUSE-AC 1>
2842                     <JUMP + COND10>
2843 PHRASE45
2844                     <FRAME '\1aERROR>
2845                     <PUSH "NO TYPE WORD">
2846                     <PUSH 'PUSH-VAR>
2847                     <CALL '\1aERROR 2>
2848 COND10
2849                     <VEQUAL? DONE9 0 + TAG56>
2850                     <DEAD DONE9>
2851                     <RETURN %<>>
2852 TAG56
2853                     <FRAME '\1aEMIT-PUSH>
2854                     <FRAME '\1aVAR-VALUE-ADDRESS>
2855                     <PUSH VAR4>
2856                     <DEAD VAR4>
2857                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
2858                     <PUSH 'LONG>
2859                     <CALL '\1aEMIT-PUSH 2 = TEMP18>
2860                     <RETURN TEMP18>
2861                     <DEAD TEMP18>
2862                     <END \1aPUSH-VAR>
2863 #WORD *13340740250*
2864 <GFCN \1aMOVE-COUNT-FROM-TYPEWORD ("VALUE" STRUCTURED ANY AC AC-CHOICES BOOLEAN) VAR4 TAC5 ACTYPE6 MODIFY?7>
2865                     <TEMP TEMP12 NAC8 TEMP16>
2866                     <INTGO>
2867                     <FRAME '\1aALL-STORED?>
2868                     <PUSH TAC5>
2869                     <CALL '\1aALL-STORED? 1 = TEMP12>
2870                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE10>
2871                     <DEAD TEMP12>
2872                     <FRAME '\1aMUNG-AC>
2873                     <PUSH TAC5>
2874                     <CALL '\1aMUNG-AC 1>
2875                     <SET NAC8 TAC5>
2876                     <FRAME '\1aEMIT>
2877                     <PUSH 202>
2878                     <GVAL 'AC-PC = TEMP12>
2879                     <NTHUV TEMP12 2 = TEMP12 (TYPE FIX)>
2880                     <OR TEMP12 #WORD *200* = TEMP12>
2881                     <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
2882                     <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = TEMP12>
2883                     <CONS TEMP12 () = TEMP12>
2884                     <FRAME '\1aLREV>
2885                     <PUSH 65535>
2886                     <CALL '\1aLREV 1 = TEMP16>
2887                     <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = TEMP16>
2888                     <CONS TEMP16 () = TEMP16>
2889                     <PUTREST TEMP12 TEMP16>
2890                     <DEAD TEMP16>
2891                     <CHTYPE TEMP12 <TYPE-CODE LADDR> = STACK>
2892                     <DEAD TEMP12>
2893                     <NTHUV TAC5 2 = TEMP12 (TYPE FIX)>
2894                     <OR TEMP12 #WORD *120* = TEMP12>
2895                     <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
2896                     <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
2897                     <DEAD TEMP12>
2898                     <CALL '\1aEMIT 3>
2899                     <FRAME '\1aEMIT>
2900                     <PUSH 156>
2901                     <GVAL 'AC-PC = TEMP12>
2902                     <NTHUV TEMP12 2 = TEMP12 (TYPE FIX)>
2903                     <OR TEMP12 #WORD *200* = TEMP12>
2904                     <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
2905                     <LSH 16 16 = TEMP16 (TYPE FIX)>
2906                     <OR TEMP12 TEMP16 = TEMP12>
2907                     <DEAD TEMP16>
2908                     <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
2909                     <DEAD TEMP12>
2910                     <NTHUV TAC5 2 = TEMP12 (TYPE FIX)>
2911                     <OR TEMP12 #WORD *120* = TEMP12>
2912                     <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
2913                     <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
2914                     <DEAD TEMP12>
2915                     <NTHUV TAC5 2 = TEMP12 (TYPE FIX)>
2916                     <DEAD TAC5>
2917                     <OR TEMP12 #WORD *120* = TEMP12>
2918                     <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
2919                     <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
2920                     <DEAD TEMP12>
2921                     <CALL '\1aEMIT 4>
2922                     <JUMP + PHRASE18>
2923 PHRASE10
2924                     <FRAME '\1aPROTECT-USE>
2925                     <PUSH TAC5>
2926                     <CALL '\1aPROTECT-USE 1>
2927                     <FRAME '\1aGET-AC>
2928                     <PUSH ACTYPE6>
2929                     <DEAD ACTYPE6>
2930                     <PUSH 'T>
2931                     <CALL '\1aGET-AC 2 = NAC8>
2932                     <FRAME '\1aEMIT>
2933                     <PUSH 203>
2934                     <GVAL 'AC-PC = TEMP12>
2935                     <NTHUV TEMP12 2 = TEMP12 (TYPE FIX)>
2936                     <OR TEMP12 #WORD *200* = TEMP12>
2937                     <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
2938                     <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = TEMP12>
2939                     <CONS TEMP12 () = TEMP12>
2940                     <FRAME '\1aLREV>
2941                     <PUSH 65535>
2942                     <CALL '\1aLREV 1 = TEMP16>
2943                     <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = TEMP16>
2944                     <CONS TEMP16 () = TEMP16>
2945                     <PUTREST TEMP12 TEMP16>
2946                     <DEAD TEMP16>
2947                     <CHTYPE TEMP12 <TYPE-CODE LADDR> = STACK>
2948                     <DEAD TEMP12>
2949                     <NTHUV TAC5 2 = TEMP12 (TYPE FIX)>
2950                     <DEAD TAC5>
2951                     <OR TEMP12 #WORD *120* = TEMP12>
2952                     <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
2953                     <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
2954                     <DEAD TEMP12>
2955                     <NTHUV NAC8 2 = TEMP12 (TYPE FIX)>
2956                     <OR TEMP12 #WORD *120* = TEMP12>
2957                     <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
2958                     <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
2959                     <DEAD TEMP12>
2960                     <CALL '\1aEMIT 4>
2961                     <FRAME '\1aEMIT>
2962                     <PUSH 156>
2963                     <GVAL 'AC-PC = TEMP12>
2964                     <NTHUV TEMP12 2 = TEMP12 (TYPE FIX)>
2965                     <OR TEMP12 #WORD *200* = TEMP12>
2966                     <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
2967                     <LSH 16 16 = TEMP16 (TYPE FIX)>
2968                     <OR TEMP12 TEMP16 = TEMP12>
2969                     <DEAD TEMP16>
2970                     <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
2971                     <DEAD TEMP12>
2972                     <NTHUV NAC8 2 = TEMP12 (TYPE FIX)>
2973                     <OR TEMP12 #WORD *120* = TEMP12>
2974                     <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
2975                     <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
2976                     <DEAD TEMP12>
2977                     <NTHUV NAC8 2 = TEMP12 (TYPE FIX)>
2978                     <OR TEMP12 #WORD *120* = TEMP12>
2979                     <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
2980                     <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
2981                     <DEAD TEMP12>
2982                     <CALL '\1aEMIT 4>
2983 PHRASE18
2984                     <TYPE? MODIFY?7 <TYPE-CODE FALSE> - BOOL24>
2985                     <DEAD MODIFY?7>
2986                     <FRAME '\1aLINK-VAR-TO-AC>
2987                     <PUSH VAR4>
2988                     <DEAD VAR4>
2989                     <PUSH NAC8>
2990                     <PUSH 'COUNT>
2991                     <PUSH 'NO-CHANGE>
2992                     <CALL '\1aLINK-VAR-TO-AC 4>
2993 BOOL24
2994                     <RETURN NAC8>
2995                     <DEAD NAC8>
2996                     <END \1aMOVE-COUNT-FROM-TYPEWORD>
2997 #WORD *6237122435*
2998 <GFCN \1aMOVE-TYPE-FROM-TYPEWORD ("VALUE" AC ANY AC AC-CHOICES BOOLEAN) VAR4 TAC5 ACTYPE6 MODIFY?7>
2999                     <TEMP TEMP12 NAC8:AC V25:FIX TEMP27:FIX>
3000                     <INTGO>
3001                     <FRAME '\1aALL-STORED?>
3002                     <PUSH TAC5>
3003                     <CALL '\1aALL-STORED? 1 = TEMP12>
3004                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE10>
3005                     <DEAD TEMP12>
3006                     <FRAME '\1aMUNG-AC>
3007                     <PUSH TAC5>
3008                     <CALL '\1aMUNG-AC 1>
3009                     <FRAME '\1aEMIT>
3010                     <PUSH 60>
3011                     <NTHUV TAC5 2 = TEMP12 (TYPE FIX)>
3012                     <OR TEMP12 #WORD *120* = TEMP12>
3013                     <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
3014                     <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
3015                     <DEAD TEMP12>
3016                     <NTHUV TAC5 2 = TEMP12 (TYPE FIX)>
3017                     <OR TEMP12 #WORD *120* = TEMP12>
3018                     <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
3019                     <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
3020                     <DEAD TEMP12>
3021                     <CALL '\1aEMIT 3>
3022                     <SET NAC8 TAC5>
3023                     <DEAD TAC5>
3024                     <JUMP + PHRASE15>
3025 PHRASE10
3026                     <FRAME '\1aPROTECT-USE>
3027                     <PUSH TAC5>
3028                     <CALL '\1aPROTECT-USE 1>
3029                     <FRAME '\1aGET-AC>
3030                     <PUSH ACTYPE6>
3031                     <DEAD ACTYPE6>
3032                     <PUSH 'T>
3033                     <CALL '\1aGET-AC 2 = NAC8>
3034                     <FRAME '\1aEMIT>
3035                     <PUSH 60>
3036                     <NTHUV TAC5 2 = TEMP12 (TYPE FIX)>
3037                     <DEAD TAC5>
3038                     <OR TEMP12 #WORD *120* = TEMP12>
3039                     <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
3040                     <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
3041                     <DEAD TEMP12>
3042                     <NTHUV NAC8 2 = TEMP12 (TYPE FIX)>
3043                     <OR TEMP12 #WORD *120* = TEMP12>
3044                     <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
3045                     <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
3046                     <DEAD TEMP12>
3047                     <CALL '\1aEMIT 3>
3048 PHRASE15
3049                     <GVAL 'GC-MODE = TEMP12>
3050                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE20>
3051                     <DEAD TEMP12>
3052                     <FRAME '\1aEMIT>
3053                     <PUSH 170>
3054                     <GVAL 'AC-PC = TEMP12>
3055                     <NTHUV TEMP12 2 = TEMP12 (TYPE FIX)>
3056                     <OR TEMP12 #WORD *200* = TEMP12>
3057                     <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
3058                     <SET V25 32800 (TYPE FIX)>
3059                     <AND V25 #WORD *377* = TEMP27>
3060                     <LSH TEMP27 16 = TEMP27 (TYPE FIX)>
3061                     <AND V25 #WORD *177400* = V25>
3062                     <OR TEMP27 V25 = V25>
3063                     <DEAD TEMP27>
3064                     <AND V25 #WORD *77777400* = V25>
3065                     <OR TEMP12 V25 = TEMP12>
3066                     <DEAD V25>
3067                     <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
3068                     <DEAD TEMP12>
3069                     <NTHUV NAC8 2 = V25 (TYPE FIX)>
3070                     <OR V25 #WORD *120* = V25>
3071                     <LSH V25 24 = V25 (TYPE FIX)>
3072                     <CHTYPE V25 <TYPE-CODE EFF-ADDR> = STACK>
3073                     <DEAD V25>
3074                     <CALL '\1aEMIT 3>
3075 PHRASE20
3076                     <TYPE? MODIFY?7 <TYPE-CODE FALSE> - BOOL29>
3077                     <DEAD MODIFY?7>
3078                     <FRAME '\1aLINK-VAR-TO-AC>
3079                     <PUSH VAR4>
3080                     <DEAD VAR4>
3081                     <PUSH NAC8>
3082                     <PUSH 'TYPE>
3083                     <PUSH 'NO-CHANGE>
3084                     <CALL '\1aLINK-VAR-TO-AC 4>
3085 BOOL29
3086                     <FRAME '\1aCLEAR-STATUS>
3087                     <CALL '\1aCLEAR-STATUS 0>
3088                     <RETURN NAC8>
3089                     <DEAD NAC8>
3090                     <END \1aMOVE-TYPE-FROM-TYPEWORD>
3091 #WORD *10125772777*
3092 <GFCN \1aVARTBL-ASSIGNED? ("VALUE" ANY VARTBL) VAR4>
3093                     <TEMP TEMP6>
3094                     <INTGO>
3095                     <NTHUV VAR4 2 = TEMP6>
3096                     <TYPE? TEMP6 <TYPE-CODE FALSE> - BOOL5>
3097                     <FRAME '\1aFIND-CACHE-VAR>
3098                     <PUSH VAR4>
3099                     <DEAD VAR4>
3100                     <CALL '\1aFIND-CACHE-VAR 1 = TEMP6>
3101 BOOL5
3102                     <RETURN TEMP6>
3103                     <DEAD TEMP6>
3104                     <END \1aVARTBL-ASSIGNED?>
3105 #WORD *23525400142*
3106 <GFCN \1aPUSH-MODEL ("VALUE" ANY STK-MODEL) MODEL4>
3107                     <TEMP TEMP14 TEMP16:LIST VAR17:VARTBL>
3108                     <INTGO>
3109                     <SET TEMP14 %<> (TYPE FALSE)>
3110                     <NTHUV MODEL4 2 = TEMP16 (TYPE LIST)>
3111                     <DEAD MODEL4>
3112                     <LOOP>
3113 MAP6
3114                     <INTGO>
3115                     <EMPL? TEMP16 + MAPAP9>
3116                     <NTHL TEMP16 1 = VAR17>
3117                     <NTHUV VAR17 6 = TEMP14>
3118                     <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE19>
3119                     <FRAME '\1aPUSH-TEMP>
3120                     <PUSH VAR17>
3121                     <DEAD VAR17>
3122                     <CALL '\1aPUSH-TEMP 1 = TEMP14>
3123 PHRASE19
3124                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
3125                     <JUMP + MAP6>
3126 MAPAP9
3127                     <RETURN TEMP14>
3128                     <DEAD TEMP14>
3129                     <END \1aPUSH-MODEL>
3130 #WORD *7162751154*
3131 <GFCN \1aADDR-VAR-OFFSET ("VALUE" <OR FALSE FIX> VARTBL) VAR4>
3132                     <TEMP TEMP6>
3133                     <INTGO>
3134                     <FRAME '\1aGEN-LOC>
3135                     <PUSH VAR4>
3136                     <PUSH 0>
3137                     <CALL '\1aGEN-LOC 2>
3138                     <NTHUV VAR4 2 = TEMP6>
3139                     <DEAD VAR4>
3140                     <RETURN TEMP6>
3141                     <DEAD TEMP6>
3142                     <END \1aADDR-VAR-OFFSET>