mim/development/mim/vaxc/ac.mima

   1
   2 #WORD *3442577024*
   3                     <GFCN \1aCREATE-AC ("VALUE" AC ATOM FIX) NAME4 NUM5>
   4                     <TEMP LVS7>
   5                     <INTGO>
   6                     <UUBLOCK <TYPE-CODE VECTOR> 5 = LVS7 (TYPE VECTOR)>
   7                     <RESTUV LVS7 5 = LVS7 (TYPE VECTOR)>
   8                     <PUSH NAME4>
   9                     <DEAD NAME4>
  10                     <PUSH NUM5>
  11                     <PUSH 0>
  12                     <PUSH %<>>
  13                     <PUSH NUM5>
  14                     <DEAD NUM5>
  15                     <PUSH %<>>
  16                     <PUSH %<>>
  17                     <PUSH LVS7>
  18                     <DEAD LVS7>
  19                     <PUSH %<>>
  20                     <UBLOCK <TYPE-CODE VECTOR> 9 = LVS7>
  21                     <CHTYPE LVS7 <TYPE-CODE AC> = LVS7>
  22                     <RETURN LVS7>
  23                     <DEAD LVS7>
  24                     <END \1aCREATE-AC>
  25
  26 #WORD *30651504205*
  27                     <GFCN \1aINITIALIZE-ACS ("VALUE" AC-STATE)>
  28                     <TEMP (NUM4:FIX -1) TEMP11:VECTOR TEMP12:VECTOR TEMP13:VECTOR ATM118:ATOM ATM219 NUM-SYM20 TEMP23>
  29                     <INTGO>
  30                     <SET TEMP11 [AC-0 AC-1 AC-2 AC-3 AC-4 AC-5 AC-6 AC-7 AC-8 AC-9 AC-10 AC-M AC-F AC-TP AC-P AC-PC] (TYPE VECTOR)>
  31                     <SET TEMP12 [AC-0 AC-1 AC-2 AC-3 AC-4 AC-5 AC-6 AC-7 AC-8 AC-9 AC-10 M F TP P PC] (TYPE VECTOR)>
  32                     <SET TEMP13 [0 0 0 0 0 0 0 0 0 0 0 NAC-M NAC-F NAC-TP NAC-P NAC-PC] (TYPE VECTOR)>
  33                     <LOOP>
  34 MAP6
  35                     <INTGO>
  36                     <EMPUV? TEMP11 + MAPAP9>
  37                     <EMPUV? TEMP12 + MAPAP9>
  38                     <EMPUV? TEMP13 + MAPAP9>
  39                     <NTHUV TEMP11 1 = ATM118>
  40                     <NTHUV TEMP12 1 = ATM219>
  41                     <NTHUV TEMP13 1 = NUM-SYM20>
  42                     <FRAME '\1aCREATE-AC>
  43                     <PUSH ATM219>
  44                     <DEAD ATM219>
  45                     <ADD NUM4 1 = NUM4 (TYPE FIX)>
  46                     <PUSH NUM4>
  47                     <CALL '\1aCREATE-AC 2 = ATM219>
  48                     <NTHR ATM118 1 = TEMP23 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG24)>
  49                     <TYPE? TEMP23 <TYPE-CODE FALSE> + TAG24>
  50                     <PUTR TEMP23 1 ATM219 (RECORD-TYPE GBIND)>
  51                     <DEAD TEMP23 ATM219>
  52                     <JUMP + TAG25>
  53 TAG24
  54                     <FRAME '\1aSETG>
  55                     <PUSH ATM118>
  56                     <DEAD ATM118>
  57                     <PUSH ATM219>
  58                     <DEAD ATM219>
  59                     <CALL '\1aSETG 2 = ATM219>
  60 TAG25
  61                     <TYPE? NUM-SYM20 <TYPE-CODE ATOM> - TAG29>
  62                     <NTHR NUM-SYM20 1 = ATM219 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG28)>
  63                     <TYPE? ATM219 <TYPE-CODE FALSE> + TAG28>
  64                     <PUTR ATM219 1 NUM4 (RECORD-TYPE GBIND)>
  65                     <DEAD ATM219>
  66                     <JUMP + TAG29>
  67 TAG28
  68                     <FRAME '\1aSETG>
  69                     <PUSH NUM-SYM20>
  70                     <DEAD NUM-SYM20>
  71                     <PUSH NUM4>
  72                     <DEAD NUM4>
  73                     <CALL '\1aSETG 2 = NUM4>
  74 TAG29
  75                     <RESTUV TEMP11 1 = TEMP11 (TYPE VECTOR)>
  76                     <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
  77                     <RESTUV TEMP13 1 = TEMP13 (TYPE VECTOR)>
  78                     <JUMP + MAP6>
  79 MAPAP9
  80                     <GVAL 'AC-0 = STACK>
  81                     <GVAL 'AC-1 = STACK>
  82                     <GVAL 'AC-2 = STACK>
  83                     <GVAL 'AC-3 = STACK>
  84                     <GVAL 'AC-4 = STACK>
  85                     <GVAL 'AC-5 = STACK>
  86                     <GVAL 'AC-6 = STACK>
  87                     <GVAL 'AC-7 = STACK>
  88                     <GVAL 'AC-8 = STACK>
  89                     <GVAL 'AC-9 = STACK>
  90                     <GVAL 'AC-10 = STACK>
  91                     <UBLOCK <TYPE-CODE VECTOR> 11 = TEMP13>
  92                     <SETG 'ALL-ACS TEMP13>
  93                     <DEAD TEMP13>
  94                     <GVAL 'AC-1 = STACK>
  95                     <GVAL 'AC-3 = STACK>
  96                     <GVAL 'AC-5 = STACK>
  97                     <GVAL 'AC-7 = STACK>
  98                     <GVAL 'AC-9 = STACK>
  99                     <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP13>
 100                     <SETG 'VAL-ACS TEMP13>
 101                     <DEAD TEMP13>
 102                     <GVAL 'AC-0 = STACK>
 103                     <GVAL 'AC-2 = STACK>
 104                     <GVAL 'AC-4 = STACK>
 105                     <GVAL 'AC-6 = STACK>
 106                     <GVAL 'AC-8 = STACK>
 107                     <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP13>
 108                     <SETG 'TYPE-ACS TEMP13>
 109                     <DEAD TEMP13>
 110                     <SETG 'AC-TIME 0>
 111                     <FRAME '\1aINIT-VARIABLE-CACHE>
 112                     <CALL '\1aINIT-VARIABLE-CACHE 0 = TEMP13>
 113                     <RETURN TEMP13>
 114                     <DEAD TEMP13>
 115                     <END \1aINITIALIZE-ACS>
 116
 117 #WORD *4710270376*
 118                     <GFCN \1aRESET-AC-STACK-MODEL ("VALUE" <OR FALSE VARTBL>)>
 119                     <TEMP CACHE4:VECTOR TEMP16 AC17:AC VARS18 TEMP19>
 120                     <INTGO>
 121                     <GVAL 'VARIABLE-CACHE = CACHE4>
 122                     <GVAL 'ALL-ACS = TEMP16>
 123                     <LOOP>
 124 MAP6
 125                     <INTGO>
 126                     <EMPUV? TEMP16 + MAPAP9>
 127                     <NTHUV TEMP16 1 = AC17>
 128                     <NTHUV AC17 8 = VARS18 (TYPE VECTOR)>
 129                     <LENUV VARS18 = TEMP19 (TYPE FIX)>
 130                     <RESTUV VARS18 TEMP19 = TEMP19 (TYPE VECTOR)>
 131                     <DEAD VARS18>
 132                     <PUTUV AC17 8 TEMP19>
 133                     <DEAD AC17 TEMP19>
 134                     <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
 135                     <JUMP + MAP6>
 136 MAPAP9
 137                     <LENUV CACHE4 = TEMP16 (TYPE FIX)>
 138                     <RESTUV CACHE4 TEMP16 = TEMP16 (TYPE VECTOR)>
 139                     <DEAD CACHE4>
 140                     <SETG 'VARIABLE-CACHE TEMP16>
 141                     <DEAD TEMP16>
 142                     <FRAME '\1aINIT-STACK-MODEL>
 143                     <CALL '\1aINIT-STACK-MODEL 0>
 144                     <FRAME '\1aINIT-VAR-LIST>
 145                     <CALL '\1aINIT-VAR-LIST 0>
 146                     <SETG 'STATUS-AC %<>>
 147                     <SETG 'STATUS-VAR %<>>
 148                     <RETURN %<>>
 149                     <END \1aRESET-AC-STACK-MODEL>
 150
 151 #WORD *16523617443*
 152                     <GFCN \1aCLEAR-DEATH ("VALUE" <OR FALSE VARTBL>)>
 153                     <TEMP TEMP13 TEMP15:LIST>
 154                     <INTGO>
 155                     <SET TEMP13 %<> (TYPE FALSE)>
 156                     <GVAL 'VAR-LIST = TEMP15>
 157                     <LOOP>
 158 MAP5
 159                     <INTGO>
 160                     <EMPL? TEMP15 + MAPAP8>
 161                     <NTHL TEMP15 1 = TEMP13>
 162                     <PUTUV TEMP13 5 %<>>
 163                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
 164                     <JUMP + MAP5>
 165 MAPAP8
 166                     <RETURN TEMP13>
 167                     <DEAD TEMP13>
 168                     <END \1aCLEAR-DEATH>
 169
 170 #WORD *23453776443*
 171                     <GFCN \1aINDICATE-ALL-DEAD ("VALUE" <OR FALSE VARTBL>)>
 172                     <TEMP TEMP13 TEMP15:LIST>
 173                     <INTGO>
 174                     <SET TEMP13 %<> (TYPE FALSE)>
 175                     <GVAL 'VAR-LIST = TEMP15>
 176                     <LOOP>
 177 MAP5
 178                     <INTGO>
 179                     <EMPL? TEMP15 + MAPAP8>
 180                     <NTHL TEMP15 1 = TEMP13>
 181                     <PUTUV TEMP13 5 'T>
 182                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
 183                     <JUMP + MAP5>
 184 MAPAP8
 185                     <RETURN TEMP13>
 186                     <DEAD TEMP13>
 187                     <END \1aINDICATE-ALL-DEAD>
 188
 189 #WORD *11435742452*
 190                     <GFCN \1aSAFE-DEAD-VAR ("VALUE" ATOM "TUPLE" <TUPLE [REST <OR VARTBL ATOM>]>)>
 191                     <MAKTUP VARS4 VAR16 LV17 TEMP29 = VARS4>
 192                     <INTGO>
 193                     <CHTYPE VARS4 <TYPE-CODE VECTOR> = VARS4>
 194                     <LOOP>
 195 MAP6
 196                     <INTGO>
 197                     <EMPUV? VARS4 + MAPAP9>
 198                     <NTHUV VARS4 1 = VAR16>
 199                     <TYPE? VAR16 <TYPE-CODE VARTBL> - PHRASE23>
 200                     <FRAME '\1aFIND-CACHE-VAR>
 201                     <PUSH VAR16>
 202                     <CALL '\1aFIND-CACHE-VAR 1 = LV17>
 203                     <TYPE? LV17 <TYPE-CODE FALSE> + PHRASE32>
 204                     <NTHUV VAR16 4 = TEMP29>
 205                     <TYPE? TEMP29 <TYPE-CODE FALSE> + BOOL28>
 206                     <DEAD TEMP29>
 207                     <NTHUV LV17 5 = TEMP29>
 208                     <TYPE? TEMP29 <TYPE-CODE FALSE> + BOOL28>
 209                     <DEAD TEMP29>
 210                     <FRAME '\1aCOUNT-NEEDED?>
 211                     <NTHUV LV17 5 = STACK (TYPE ATOM)>
 212                     <CALL '\1aCOUNT-NEEDED? 1 = TEMP29>
 213                     <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE32>
 214                     <DEAD TEMP29>
 215 BOOL28
 216                     <NTHUV LV17 3 = TEMP29>
 217                     <TYPE? TEMP29 <TYPE-CODE FALSE> + BOOL34>
 218                     <DEAD TEMP29>
 219                     <NTHUV LV17 2 = TEMP29>
 220                     <TYPE? TEMP29 <TYPE-CODE FALSE> + BOOL37>
 221                     <DEAD TEMP29>
 222 BOOL34
 223                     <NTHUV LV17 4 = TEMP29>
 224                     <TYPE? TEMP29 <TYPE-CODE FALSE> + BOOL35>
 225                     <DEAD TEMP29>
 226                     <NTHUV LV17 2 = TEMP29>
 227                     <TYPE? TEMP29 <TYPE-CODE FALSE> + BOOL37>
 228                     <DEAD TEMP29>
 229 BOOL35
 230                     <NTHUV LV17 2 = TEMP29>
 231                     <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE32>
 232                     <DEAD TEMP29>
 233                     <NTHUV LV17 3 = TEMP29>
 234                     <TYPE? TEMP29 <TYPE-CODE FALSE> + BOOL37>
 235                     <DEAD TEMP29>
 236                     <NTHUV LV17 4 = TEMP29>
 237                     <DEAD LV17>
 238                     <TYPE? TEMP29 <TYPE-CODE FALSE> - PHRASE32>
 239                     <DEAD TEMP29>
 240 BOOL37
 241                     <FRAME '\1aEMIT>
 242                     <PUSH 212>
 243                     <FRAME '\1aADDR-VAR-TYPE>
 244                     <PUSH VAR16>
 245                     <CALL '\1aADDR-VAR-TYPE 1 = STACK>
 246                     <CALL '\1aEMIT 2>
 247 PHRASE32
 248                     <FRAME '\1aDEAD-VAR>
 249                     <PUSH VAR16>
 250                     <DEAD VAR16>
 251                     <CALL '\1aDEAD-VAR 1>
 252 PHRASE23
 253                     <RESTUV VARS4 1 = VARS4 (TYPE VECTOR)>
 254                     <JUMP + MAP6>
 255 MAPAP9
 256                     <RETURN 'NORMAL>
 257                     <END \1aSAFE-DEAD-VAR>
 258
 259 #WORD *24302232203*
 260                     <GFCN \1aDEAD-VAR ("VALUE" ATOM "TUPLE" <TUPLE [REST <OR VARTBL ATOM>]>)>
 261                     <MAKTUP VARS4 VAR16 LV17 AC37:AC = VARS4>
 262                     <INTGO>
 263                     <CHTYPE VARS4 <TYPE-CODE VECTOR> = VARS4>
 264                     <LOOP>
 265 MAP6
 266                     <INTGO>
 267                     <EMPUV? VARS4 + MAPAP9>
 268                     <NTHUV VARS4 1 = VAR16>
 269                     <TYPE? VAR16 <TYPE-CODE VARTBL> - MAPAP30>
 270                     <FRAME '\1aFIND-CACHE-VAR>
 271                     <PUSH VAR16>
 272                     <CALL '\1aFIND-CACHE-VAR 1 = LV17>
 273                     <TYPE? LV17 <TYPE-CODE FALSE> + BOOL22>
 274                     <NTHUV LV17 4 = LV17>
 275                     <TYPE? LV17 <TYPE-CODE FALSE> - PHRASE21>
 276                     <DEAD LV17>
 277 BOOL22
 278                     <FRAME '\1aINDICATE-VAR-TEMP-DECL>
 279                     <PUSH VAR16>
 280                     <PUSH %<>>
 281                     <CALL '\1aINDICATE-VAR-TEMP-DECL 2>
 282 PHRASE21
 283                     <GVAL 'ALL-ACS = LV17>
 284                     <LOOP>
 285 MAP27
 286                     <INTGO>
 287                     <EMPUV? LV17 + MAPAP30>
 288                     <NTHUV LV17 1 = AC37>
 289                     <FRAME '\1aBREAK-LINK>
 290                     <PUSH AC37>
 291                     <DEAD AC37>
 292                     <PUSH VAR16>
 293                     <CALL '\1aBREAK-LINK 2>
 294                     <RESTUV LV17 1 = LV17 (TYPE VECTOR)>
 295                     <JUMP + MAP27>
 296 MAPAP30
 297                     <RESTUV VARS4 1 = VARS4 (TYPE VECTOR)>
 298                     <JUMP + MAP6>
 299 MAPAP9
 300                     <RETURN 'NORMAL>
 301                     <END \1aDEAD-VAR>
 302
 303 #WORD *3721622763*
 304                     <GFCN \1aUSE-ALL-ACS ("VALUE" ANY)>
 305                     <TEMP TEMP7 TEMP10:VECTOR>
 306                     <INTGO>
 307                     <SET TEMP7 %<> (TYPE FALSE)>
 308                     <GVAL 'ALL-ACS = TEMP10>
 309                     <LOOP>
 310 MAP5
 311                     <INTGO>
 312                     <EMPUV? TEMP10 + MAP4>
 313                     <FRAME '\1aUSE-AC>
 314                     <NTHUV TEMP10 1 = STACK>
 315                     <CALL '\1aUSE-AC 1 = TEMP7>
 316                     <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
 317                     <JUMP + MAP5>
 318 MAP4
 319                     <RETURN TEMP7>
 320                     <DEAD TEMP7>
 321                     <END \1aUSE-ALL-ACS>
 322
 323 <GDECL (EMPTY-VAR) VARTBL (EMPTY-LINKVAR) LINKVAR>
 324
 325 #WORD *174743027*
 326                     <GFCN \1aCREATE-LINKVAR ("VALUE" LINKVAR VARTBL) VAR4>
 327                     <TEMP TEMP6>
 328                     <INTGO>
 329                     <PUSH VAR4>
 330                     <DEAD VAR4>
 331                     <PUSH %<>>
 332                     <PUSH %<>>
 333                     <PUSH %<>>
 334                     <PUSH %<>>
 335                     <PUSH %<>>
 336                     <PUSH %<>>
 337                     <PUSH %<>>
 338                     <PUSH %<>>
 339                     <PUSH ()>
 340                     <UBLOCK <TYPE-CODE VECTOR> 10 = TEMP6 (TYPE VECTOR)>
 341                     <CHTYPE TEMP6 <TYPE-CODE LINKVAR> = TEMP6>
 342                     <RETURN TEMP6>
 343                     <DEAD TEMP6>
 344                     <END \1aCREATE-LINKVAR>
 345
 346 #WORD *20511546341*
 347                     <GFCN \1aCOPY-LINKVAR ("VALUE" LINKVAR LINKVAR) LV4>
 348                     <TEMP TEMP6>
 349                     <INTGO>
 350                     <NTHUV LV4 1 = STACK (TYPE VARTBL)>
 351                     <NTHUV LV4 2 = STACK>
 352                     <NTHUV LV4 3 = STACK>
 353                     <NTHUV LV4 4 = STACK>
 354                     <NTHUV LV4 5 = STACK>
 355                     <NTHUV LV4 6 = STACK>
 356                     <NTHUV LV4 7 = STACK>
 357                     <NTHUV LV4 8 = STACK>
 358                     <NTHUV LV4 9 = STACK>
 359                     <NTHUV LV4 10 = STACK (TYPE LIST)>
 360                     <DEAD LV4>
 361                     <UBLOCK <TYPE-CODE VECTOR> 10 = TEMP6 (TYPE VECTOR)>
 362                     <CHTYPE TEMP6 <TYPE-CODE LINKVAR> = TEMP6>
 363                     <RETURN TEMP6>
 364                     <DEAD TEMP6>
 365                     <END \1aCOPY-LINKVAR>
 366
 367 "THIS OPERATION SAYS THAT THE TYPE-WORD, VALUE-WORD, COUNT, OR TYPE
 368  OF A VARIABLE IS IN AN AC"
 369
 370 #WORD *32224011717*
 371                     <GFCN \1aLINK-VAR-TO-AC ("VALUE" <OR ATOM FALSE LINKVAR> ANY AC ANY "OPTIONAL" ANY ANY) VAR7 AC8 KIND9 STORED?10 FLUSH-DECL11>
 372                     <OPT-DISPATCH 3 %<> OPT4 OPT5 OPT6>
 373 OPT4
 374                     <PUSH %<>>
 375 OPT5
 376                     <PUSH 'T>
 377 OPT6
 378                     <TEMP (TIN?14 %<>) (CIN?15 %<>) (VIN?16 %<>) LV13:LINKVAR TEMP21>
 379                     <INTGO>
 380                     <FRAME '\1aCACHE-VAR>
 381                     <PUSH VAR7>
 382                     <CALL '\1aCACHE-VAR 1 = LV13>
 383                     <NTHUV LV13 7 = TEMP21>
 384                     <TYPE? TEMP21 <TYPE-CODE FALSE> - BOOL20>
 385                     <DEAD TEMP21>
 386                     <NTHUV LV13 9 = TEMP21>
 387                     <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE19>
 388                     <DEAD TEMP21>
 389 BOOL20
 390                     <SET TIN?14 'T (TYPE ATOM)>
 391 PHRASE19
 392                     <FRAME '\1aOR?>
 393                     <NTHUV LV13 8 = STACK>
 394                     <NTHUV LV13 9 = STACK>
 395                     <CALL '\1aOR? 2 = TEMP21>
 396                     <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE23>
 397                     <DEAD TEMP21>
 398                     <SET CIN?15 'T (TYPE ATOM)>
 399 PHRASE23
 400                     <NTHUV LV13 6 = TEMP21>
 401                     <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE26>
 402                     <DEAD TEMP21>
 403                     <SET VIN?16 'T (TYPE ATOM)>
 404 PHRASE26
 405                     <FRAME '\1aPLACE-LV-IN-AC>
 406                     <PUSH AC8>
 407                     <PUSH LV13>
 408                     <CALL '\1aPLACE-LV-IN-AC 2>
 409                     <EQUAL? KIND9 'TYPE-VALUE-PAIR - PHRASE29>
 410                     <FRAME '\1aPLACE-LV-IN-AC>
 411                     <FRAME '\1aNEXT-AC>
 412                     <PUSH AC8>
 413                     <CALL '\1aNEXT-AC 1 = STACK>
 414                     <PUSH LV13>
 415                     <CALL '\1aPLACE-LV-IN-AC 2>
 416 PHRASE29
 417                     <TYPE? FLUSH-DECL11 <TYPE-CODE FALSE> + BOOL32>
 418                     <DEAD FLUSH-DECL11>
 419                     <FRAME '\1aINDICATE-VAR-TEMP-DECL>
 420                     <PUSH VAR7>
 421                     <DEAD VAR7>
 422                     <PUSH %<>>
 423                     <CALL '\1aINDICATE-VAR-TEMP-DECL 2>
 424 BOOL32
 425                     <EQUAL? KIND9 'TYPE-VALUE-PAIR - PHRASE35>
 426                     <NTHUV LV13 9 = TEMP21>
 427                     <TYPE? TEMP21 <TYPE-CODE FALSE> + BOOL36>
 428                     <FRAME '\1aREMOVE-LV-FROM-AC>
 429                     <PUSH TEMP21>
 430                     <DEAD TEMP21>
 431                     <PUSH LV13>
 432                     <CALL '\1aREMOVE-LV-FROM-AC 2>
 433 BOOL36
 434                     <PUTUV LV13 9 AC8>
 435                     <FRAME '\1aNEXT-AC>
 436                     <PUSH AC8>
 437                     <DEAD AC8>
 438                     <CALL '\1aNEXT-AC 1 = AC8>
 439                     <NTHUV LV13 6 = TEMP21>
 440                     <TYPE? TEMP21 <TYPE-CODE FALSE> + BOOL39>
 441                     <FRAME '\1aREMOVE-LV-FROM-AC>
 442                     <PUSH TEMP21>
 443                     <DEAD TEMP21>
 444                     <PUSH LV13>
 445                     <CALL '\1aREMOVE-LV-FROM-AC 2>
 446 BOOL39
 447                     <PUTUV LV13 6 AC8>
 448                     <DEAD AC8>
 449                     <JUMP + COND34>
 450 PHRASE35
 451                     <EQUAL? KIND9 'VALUE - PHRASE41>
 452                     <NTHUV LV13 6 = TEMP21>
 453                     <TYPE? TEMP21 <TYPE-CODE FALSE> + BOOL42>
 454                     <FRAME '\1aREMOVE-LV-FROM-AC>
 455                     <PUSH TEMP21>
 456                     <DEAD TEMP21>
 457                     <PUSH LV13>
 458                     <CALL '\1aREMOVE-LV-FROM-AC 2>
 459 BOOL42
 460                     <PUTUV LV13 6 AC8>
 461                     <DEAD AC8>
 462                     <JUMP + COND34>
 463 PHRASE41
 464                     <EQUAL? KIND9 'TYPE - PHRASE44>
 465                     <NTHUV LV13 7 = TEMP21>
 466                     <TYPE? TEMP21 <TYPE-CODE FALSE> + BOOL45>
 467                     <FRAME '\1aREMOVE-LV-FROM-AC>
 468                     <PUSH TEMP21>
 469                     <DEAD TEMP21>
 470                     <PUSH LV13>
 471                     <CALL '\1aREMOVE-LV-FROM-AC 2>
 472 BOOL45
 473                     <PUTUV LV13 7 AC8>
 474                     <DEAD AC8>
 475                     <JUMP + COND34>
 476 PHRASE44
 477                     <EQUAL? KIND9 'TYPE-WORD - PHRASE47>
 478                     <NTHUV LV13 9 = TEMP21>
 479                     <TYPE? TEMP21 <TYPE-CODE FALSE> + BOOL48>
 480                     <FRAME '\1aREMOVE-LV-FROM-AC>
 481                     <PUSH TEMP21>
 482                     <DEAD TEMP21>
 483                     <PUSH LV13>
 484                     <CALL '\1aREMOVE-LV-FROM-AC 2>
 485 BOOL48
 486                     <PUTUV LV13 9 AC8>
 487                     <DEAD AC8>
 488                     <JUMP + COND34>
 489 PHRASE47
 490                     <EQUAL? KIND9 'COUNT - PHRASE50>
 491                     <NTHUV LV13 8 = TEMP21>
 492                     <TYPE? TEMP21 <TYPE-CODE FALSE> + BOOL51>
 493                     <FRAME '\1aREMOVE-LV-FROM-AC>
 494                     <PUSH TEMP21>
 495                     <DEAD TEMP21>
 496                     <PUSH LV13>
 497                     <CALL '\1aREMOVE-LV-FROM-AC 2>
 498 BOOL51
 499                     <PUTUV LV13 8 AC8>
 500                     <DEAD AC8>
 501                     <JUMP + COND34>
 502 PHRASE50
 503                     <FRAME '\1aERROR>
 504                     <PUSH 'BAD-MODE>
 505                     <PUSH KIND9>
 506                     <DEAD KIND9>
 507                     <PUSH 'LINK-VAR-TO-AC>
 508                     <CALL '\1aERROR 3>
 509 COND34
 510                     <EQUAL? STORED?10 'NO-CHANGE - TAG56>
 511                     <RETURN %<>>
 512 TAG56
 513                     <VEQUAL? VIN?16 0 - BOOL57>
 514                     <DEAD VIN?16>
 515                     <PUTUV LV13 2 STORED?10>
 516 BOOL57
 517                     <VEQUAL? TIN?14 0 - BOOL58>
 518                     <DEAD TIN?14>
 519                     <PUTUV LV13 4 STORED?10>
 520 BOOL58
 521                     <SET TEMP21 CIN?15>
 522                     <DEAD CIN?15>
 523                     <VEQUAL? TEMP21 0 - BOOL59>
 524                     <PUTUV LV13 3 STORED?10>
 525                     <DEAD STORED?10>
 526                     <SET TEMP21 LV13>
 527                     <DEAD LV13>
 528 BOOL59
 529                     <RETURN TEMP21>
 530                     <DEAD TEMP21>
 531                     <END \1aLINK-VAR-TO-AC>
 532
 533 #WORD *17370210317*
 534                     <GFCN \1aPLACE-LV-IN-AC ("VALUE" <OR FALSE AC> AC LINKVAR) AC4 LV5>
 535                     <TEMP VARS6 TEMP9 TEMP14>
 536                     <INTGO>
 537                     <NTHUV AC4 8 = VARS6 (TYPE VECTOR)>
 538                     <SET TEMP9 VARS6>
 539                     <EMPUV? TEMP9 + TAG11>
 540                     <LOOP (LV5 VALUE) (TEMP9 LENGTH VALUE)>
 541 TAG12
 542                     <NTHUV TEMP9 1 = TEMP14>
 543                     <VEQUAL? TEMP14 LV5 + TAG10>
 544                     <DEAD TEMP14>
 545                     <RESTUV TEMP9 1 = TEMP9 (TYPE VECTOR)>
 546                     <EMPUV? TEMP9 - TAG12>
 547                     <JUMP + TAG11>
 548 TAG10
 549                     <RETURN %<>>
 550 TAG11
 551                     <TOPU VARS6 = TEMP14>
 552                     <VEQUAL? TEMP14 VARS6 - PHRASE16>
 553                     <DEAD TEMP14>
 554                     <PUSH LV5>
 555                     <DEAD LV5>
 556                     <SET TEMP9 1 (TYPE FIX)>
 557                     <SET TEMP14 VARS6>
 558                     <DEAD VARS6>
 559                     <LOOP (TEMP14 VALUE LENGTH) (TEMP9 VALUE)>
 560 TAG19
 561                     <INTGO>
 562                     <EMPUV? TEMP14 + TAG17>
 563                     <NTHUV TEMP14 1 = STACK>
 564                     <RESTUV TEMP14 1 = TEMP14 (TYPE VECTOR)>
 565                     <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
 566                     <JUMP + TAG19>
 567 TAG17
 568                     <UBLOCK <TYPE-CODE VECTOR> TEMP9 = VARS6>
 569                     <DEAD TEMP9>
 570                     <JUMP + PHRASE21>
 571 PHRASE16
 572                     <BACKU VARS6 1 = VARS6>
 573                     <PUTUV VARS6 1 LV5>
 574                     <DEAD LV5>
 575 PHRASE21
 576                     <LENUV VARS6 = TEMP14 (TYPE FIX)>
 577                     <GRTR? TEMP14 1 - BOOL22 (TYPE FIX)>
 578                     <DEAD TEMP14>
 579                     <FRAME '\1aUSE-AC>
 580                     <PUSH AC4>
 581                     <CALL '\1aUSE-AC 1>
 582 BOOL22
 583                     <PUTUV AC4 8 VARS6>
 584                     <DEAD VARS6>
 585                     <RETURN AC4>
 586                     <DEAD AC4>
 587                     <END \1aPLACE-LV-IN-AC>
 588
 589 #WORD *10007674551*
 590                     <GFCN \1aREMOVE-LV-FROM-AC ("VALUE" AC AC LINKVAR) AC4 LV5>
 591                     <TEMP VARS6:VECTOR>
 592                     <INTGO>
 593                     <NTHUV AC4 8 = VARS6 (TYPE VECTOR)>
 594                     <FRAME '\1aREMOVE-LINKVAR>
 595                     <PUSH LV5>
 596                     <DEAD LV5>
 597                     <PUSH VARS6>
 598                     <DEAD VARS6>
 599                     <CALL '\1aREMOVE-LINKVAR 2 = VARS6>
 600                     <PUTUV AC4 8 VARS6>
 601                     <DEAD VARS6>
 602                     <RETURN AC4>
 603                     <DEAD AC4>
 604                     <END \1aREMOVE-LV-FROM-AC>
 605
 606 #WORD *14405234700*
 607                     <GFCN \1aINDICATE-CACHED-VARIABLE-DECL ("VALUE" ANY VARTBL <OR FALSE ATOM>) VAR4 DECL5>
 608                     <TEMP LV6 TEMP10>
 609                     <INTGO>
 610                     <FRAME '\1aFIND-CACHE-VAR>
 611                     <PUSH VAR4>
 612                     <CALL '\1aFIND-CACHE-VAR 1 = LV6>
 613                     <SET TEMP10 LV6>
 614                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE9>
 615                     <PUTUV LV6 5 DECL5>
 616                     <DEAD LV6>
 617                     <FRAME '\1aINDICATE-VAR-TEMP-DECL>
 618                     <PUSH VAR4>
 619                     <DEAD VAR4>
 620                     <PUSH DECL5>
 621                     <DEAD DECL5>
 622                     <CALL '\1aINDICATE-VAR-TEMP-DECL 2 = TEMP10>
 623 PHRASE9
 624                     <RETURN TEMP10>
 625                     <DEAD TEMP10>
 626                     <END \1aINDICATE-CACHED-VARIABLE-DECL>
 627
 628 #WORD *31222514405*
 629                     <GFCN \1aINDICATE-CACHED-VARIABLE-STORED ("VALUE" <OR FALSE LINKVAR> VARTBL <OR FALSE ATOM> ATOM) VAR4 STORED?5 TYP6>
 630                     <TEMP LV7 TEMP10>
 631                     <INTGO>
 632                     <FRAME '\1aFIND-CACHE-VAR>
 633                     <PUSH VAR4>
 634                     <DEAD VAR4>
 635                     <CALL '\1aFIND-CACHE-VAR 1 = LV7>
 636                     <SET TEMP10 LV7>
 637                     <TYPE? TEMP10 <TYPE-CODE FALSE> + BOOL9>
 638                     <VEQUAL? TYP6 'TYPE - PHRASE12>
 639                     <PUTUV LV7 4 STORED?5>
 640                     <DEAD STORED?5>
 641                     <JUMP + PHRASE14>
 642 PHRASE12
 643                     <VEQUAL? TYP6 'VALUE - PHRASE13>
 644                     <PUTUV LV7 2 STORED?5>
 645                     <DEAD STORED?5>
 646                     <JUMP + PHRASE14>
 647 PHRASE13
 648                     <VEQUAL? TYP6 'COUNT + TAG15>
 649                     <RETURN %<>>
 650 TAG15
 651                     <PUTUV LV7 3 STORED?5>
 652                     <DEAD STORED?5>
 653 PHRASE14
 654                     <PUTUV LV7 5 TYP6>
 655                     <DEAD TYP6>
 656                     <SET TEMP10 LV7>
 657                     <DEAD LV7>
 658 BOOL9
 659                     <RETURN TEMP10>
 660                     <DEAD TEMP10>
 661                     <END \1aINDICATE-CACHED-VARIABLE-STORED>
 662
 663 #WORD *16111701075*
 664                     <GFCN \1aINIT-VARIABLE-CACHE ("VALUE" AC-STATE)>
 665                     <TEMP TEMP7 RES4:VECTOR TEMP9>
 666                     <INTGO>
 667                     <FRAME '\1aINIT-VAR-LIST>
 668                     <CALL '\1aINIT-VAR-LIST 0>
 669                     <FRAME '\1aCREATE-VAR>
 670                     <PUSH '\ >
 671                     <PUSH 'T>
 672                     <CALL '\1aCREATE-VAR 2 = TEMP7>
 673                     <SETG 'EMPTY-VAR TEMP7>
 674                     <DEAD TEMP7>
 675                     <FRAME '\1aCREATE-LINKVAR>
 676                     <GVAL 'EMPTY-VAR = STACK>
 677                     <CALL '\1aCREATE-LINKVAR 1 = TEMP7>
 678                     <SETG 'EMPTY-LINKVAR TEMP7>
 679                     <DEAD TEMP7>
 680                     <GVAL 'EMPTY-LINKVAR = TEMP7>
 681                     <UUBLOCK <TYPE-CODE VECTOR> 30 = RES4>
 682                     <SET TEMP9 RES4>
 683                     <LOOP (TEMP9 VALUE LENGTH) (TEMP7 TYPE VALUE LENGTH)>
 684 ISTR10
 685                     <EMPUV? TEMP9 + ISTRE11>
 686                     <PUTUV TEMP9 1 TEMP7>
 687                     <RESTUV TEMP9 1 = TEMP9>
 688                     <JUMP + ISTR10>
 689 ISTRE11
 690                     <LENUV RES4 = TEMP7 (TYPE FIX)>
 691                     <RESTUV RES4 TEMP7 = TEMP7 (TYPE VECTOR)>
 692                     <DEAD RES4>
 693                     <SETG 'VARIABLE-CACHE TEMP7>
 694                     <RETURN TEMP7>
 695                     <DEAD TEMP7>
 696                     <END \1aINIT-VARIABLE-CACHE>
 697
 698 #WORD *20754454723*
 699                     <GFCN \1aFIND-CACHE-VAR ("VALUE" <OR FALSE LINKVAR> VARTBL "OPTIONAL" AC-STATE) VAR6 CACHE7>
 700                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
 701 OPT4
 702                     <PUSH #T$UNBOUND 0>
 703 OPT5
 704                     <TEMP TEMP19 TEMP16:VECTOR TEMP24:VARTBL>
 705                     <INTGO>
 706                     <TYPE? CACHE7 <TYPE-CODE UNBOUND> - TAG8>
 707                     <GVAL 'VARIABLE-CACHE = CACHE7>
 708 TAG8
 709                     <SET TEMP19 %<> (TYPE FALSE)>
 710                     <SET TEMP16 CACHE7 (TYPE VECTOR)>
 711                     <DEAD CACHE7>
 712                     <LOOP>
 713 MAP11
 714                     <INTGO>
 715                     <EMPUV? TEMP16 + MAPAP14>
 716                     <NTHUV TEMP16 1 = TEMP19>
 717                     <NTHUV TEMP19 1 = TEMP24 (TYPE VARTBL)>
 718                     <VEQUAL? TEMP24 VAR6 + TAG23>
 719                     <DEAD TEMP24>
 720                     <SET TEMP19 %<> (TYPE FALSE)>
 721                     <JUMP + BOOL22>
 722 TAG23
 723                     <RETURN TEMP19>
 724                     <DEAD TEMP19>
 725 BOOL22
 726                     <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
 727                     <JUMP + MAP11>
 728 MAPAP14
 729                     <RETURN TEMP19>
 730                     <DEAD TEMP19>
 731                     <END \1aFIND-CACHE-VAR>
 732
 733 #WORD *32064602743*
 734                     <GFCN \1aVAR-VALUE-IN-AC? ("VALUE" <OR AC FALSE> VARTBL) VAR4>
 735                     <TEMP LVAR5 TEMP8>
 736                     <INTGO>
 737                     <FRAME '\1aFIND-CACHE-VAR>
 738                     <PUSH VAR4>
 739                     <DEAD VAR4>
 740                     <CALL '\1aFIND-CACHE-VAR 1 = LVAR5>
 741                     <SET TEMP8 LVAR5>
 742                     <TYPE? TEMP8 <TYPE-CODE FALSE> + BOOL7>
 743                     <NTHUV LVAR5 6 = TEMP8>
 744                     <DEAD LVAR5>
 745 BOOL7
 746                     <RETURN TEMP8>
 747                     <DEAD TEMP8>
 748                     <END \1aVAR-VALUE-IN-AC?>
 749
 750 #WORD *36042045460*
 751                     <GFCN \1aVAR-TYPE-IN-AC? ("VALUE" <OR AC FALSE> VARTBL) VAR4>
 752                     <TEMP LVAR5 TEMP8>
 753                     <INTGO>
 754                     <FRAME '\1aFIND-CACHE-VAR>
 755                     <PUSH VAR4>
 756                     <DEAD VAR4>
 757                     <CALL '\1aFIND-CACHE-VAR 1 = LVAR5>
 758                     <SET TEMP8 LVAR5>
 759                     <TYPE? TEMP8 <TYPE-CODE FALSE> + BOOL9>
 760                     <NTHUV LVAR5 7 = TEMP8>
 761                     <TYPE? TEMP8 <TYPE-CODE FALSE> - BOOL9>
 762                     <NTHUV LVAR5 9 = TEMP8>
 763                     <DEAD LVAR5>
 764 BOOL9
 765                     <RETURN TEMP8>
 766                     <DEAD TEMP8>
 767                     <END \1aVAR-TYPE-IN-AC?>
 768
 769 #WORD *23264704741*
 770                     <GFCN \1aVAR-COUNT-IN-AC? ("VALUE" <OR AC FALSE> VARTBL) VAR4>
 771                     <TEMP LVAR5 TEMP8>
 772                     <INTGO>
 773                     <FRAME '\1aFIND-CACHE-VAR>
 774                     <PUSH VAR4>
 775                     <DEAD VAR4>
 776                     <CALL '\1aFIND-CACHE-VAR 1 = LVAR5>
 777                     <SET TEMP8 LVAR5>
 778                     <TYPE? TEMP8 <TYPE-CODE FALSE> + BOOL7>
 779                     <NTHUV LVAR5 8 = TEMP8>
 780                     <DEAD LVAR5>
 781 BOOL7
 782                     <RETURN TEMP8>
 783                     <DEAD TEMP8>
 784                     <END \1aVAR-COUNT-IN-AC?>
 785
 786 #WORD *21266410040*
 787                     <GFCN \1aVAR-TYPE-WORD-IN-AC? ("VALUE" <OR AC FALSE> VARTBL) VAR4>
 788                     <TEMP LVAR5 TEMP8>
 789                     <INTGO>
 790                     <FRAME '\1aFIND-CACHE-VAR>
 791                     <PUSH VAR4>
 792                     <DEAD VAR4>
 793                     <CALL '\1aFIND-CACHE-VAR 1 = LVAR5>
 794                     <SET TEMP8 LVAR5>
 795                     <TYPE? TEMP8 <TYPE-CODE FALSE> + BOOL7>
 796                     <NTHUV LVAR5 9 = TEMP8>
 797                     <DEAD LVAR5>
 798 BOOL7
 799                     <RETURN TEMP8>
 800                     <DEAD TEMP8>
 801                     <END \1aVAR-TYPE-WORD-IN-AC?>
 802
 803 #WORD *6605014644*
 804                     <GFCN \1aVAR-COUNT-STORED? ("VALUE" ANY ANY) VAR4>
 805                     <TEMP LVAR5>
 806                     <INTGO>
 807                     <FRAME '\1aFIND-CACHE-VAR>
 808                     <PUSH VAR4>
 809                     <CALL '\1aFIND-CACHE-VAR 1 = LVAR5>
 810                     <TYPE? LVAR5 <TYPE-CODE FALSE> + PHRASE7>
 811                     <NTHUV LVAR5 3 = LVAR5>
 812                     <TYPE? LVAR5 <TYPE-CODE FALSE> + COND6>
 813                     <FRAME '\1aADDR-VAR-COUNT>
 814                     <PUSH VAR4>
 815                     <DEAD VAR4>
 816                     <CALL '\1aADDR-VAR-COUNT 1 = LVAR5>
 817                     <RETURN LVAR5>
 818                     <DEAD LVAR5>
 819 PHRASE7
 820                     <FRAME '\1aADDR-VAR-COUNT>
 821                     <PUSH VAR4>
 822                     <DEAD VAR4>
 823                     <CALL '\1aADDR-VAR-COUNT 1 = LVAR5>
 824 COND6
 825                     <RETURN LVAR5>
 826                     <DEAD LVAR5>
 827                     <END \1aVAR-COUNT-STORED?>
 828
 829 #WORD *1043333760*
 830                     <GFCN \1aSAFE-TYPE-WORD? ("VALUE" <OR AC ATOM FALSE> VARTBL) VAR4>
 831                     <TEMP LVAR5 TEMP10>
 832                     <INTGO>
 833                     <FRAME '\1aFIND-CACHE-VAR>
 834                     <PUSH VAR4>
 835                     <CALL '\1aFIND-CACHE-VAR 1 = LVAR5>
 836                     <TYPE? LVAR5 <TYPE-CODE FALSE> + PHRASE7>
 837                     <NTHUV LVAR5 9 = TEMP10>
 838                     <TYPE? TEMP10 <TYPE-CODE FALSE> - COND6>
 839                     <NTHUV LVAR5 4 = TEMP10>
 840                     <TYPE? TEMP10 <TYPE-CODE FALSE> + BOOL11>
 841                     <DEAD TEMP10>
 842                     <NTHUV LVAR5 3 = TEMP10>
 843                     <TYPE? TEMP10 <TYPE-CODE FALSE> - COND6>
 844 BOOL11
 845                     <NTHUV VAR4 4 = TEMP10>
 846                     <DEAD VAR4>
 847                     <TYPE? TEMP10 <TYPE-CODE FALSE> + COND6>
 848                     <FRAME '\1aCOUNT-NEEDED?>
 849                     <NTHUV LVAR5 5 = STACK>
 850                     <DEAD LVAR5>
 851                     <CALL '\1aCOUNT-NEEDED? 1 = TEMP10>
 852                     <TYPE? TEMP10 <TYPE-CODE FALSE> - TAG14>
 853                     <DEAD TEMP10>
 854                     <RETURN 'T>
 855 TAG14
 856                     <RETURN %<>>
 857 PHRASE7
 858                     <SET TEMP10 'T (TYPE ATOM)>
 859 COND6
 860                     <RETURN TEMP10>
 861                     <DEAD TEMP10>
 862                     <END \1aSAFE-TYPE-WORD?>
 863
 864 #WORD *21765737467*
 865                     <GFCN \1aCACHE-VAR ("VALUE" LINKVAR VARTBL "OPTIONAL" <OR FALSE LINKVAR>) VAR6 LVC7>
 866                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
 867 OPT4
 868                     <PUSH %<>>
 869 OPT5
 870                     <TEMP RES8 CACHE9 TEMP19 TEMP21:FIX>
 871                     <INTGO>
 872                     <FRAME '\1aFIND-CACHE-VAR>
 873                     <PUSH VAR6>
 874                     <CALL '\1aFIND-CACHE-VAR 1 = RES8>
 875                     <TYPE? RES8 <TYPE-CODE FALSE> - PHRASE12>
 876                     <GVAL 'VARIABLE-CACHE = CACHE9>
 877                     <TYPE? LVC7 <TYPE-CODE FALSE> + PHRASE14>
 878                     <FRAME '\1aCOPY-LINKVAR>
 879                     <PUSH LVC7>
 880                     <DEAD LVC7>
 881                     <CALL '\1aCOPY-LINKVAR 1 = RES8>
 882                     <JUMP + COND13>
 883 PHRASE14
 884                     <FRAME '\1aCREATE-LINKVAR>
 885                     <PUSH VAR6>
 886                     <DEAD VAR6>
 887                     <CALL '\1aCREATE-LINKVAR 1 = RES8>
 888 COND13
 889                     <TOPU CACHE9 = TEMP19>
 890                     <VEQUAL? TEMP19 CACHE9 - PHRASE18>
 891                     <DEAD TEMP19>
 892                     <PUSH RES8>
 893                     <SET TEMP21 1 (TYPE FIX)>
 894                     <SET TEMP19 CACHE9>
 895                     <DEAD CACHE9>
 896                     <LOOP (TEMP19 VALUE LENGTH) (TEMP21 VALUE)>
 897 TAG22
 898                     <INTGO>
 899                     <EMPUV? TEMP19 + TAG20>
 900                     <NTHUV TEMP19 1 = STACK>
 901                     <RESTUV TEMP19 1 = TEMP19 (TYPE VECTOR)>
 902                     <ADD TEMP21 1 = TEMP21 (TYPE FIX)>
 903                     <JUMP + TAG22>
 904 TAG20
 905                     <UBLOCK <TYPE-CODE VECTOR> TEMP21 = CACHE9>
 906                     <DEAD TEMP21>
 907                     <JUMP + PHRASE24>
 908 PHRASE18
 909                     <BACKU CACHE9 1 = CACHE9>
 910                     <PUTUV CACHE9 1 RES8>
 911 PHRASE24
 912                     <SETG 'VARIABLE-CACHE CACHE9>
 913                     <DEAD CACHE9>
 914 PHRASE12
 915                     <RETURN RES8>
 916                     <DEAD RES8>
 917                     <END \1aCACHE-VAR>
 918
 919 #WORD *27141656646*
 920                     <GFCN \1aBREAK-LINK ("VALUE" <OR FALSE <VECTOR [REST LINKVAR]>> AC VARTBL) AC4 VAR5>
 921                     <TEMP VARS6 TEMP10>
 922                     <INTGO>
 923                     <NTHUV AC4 8 = VARS6 (TYPE VECTOR)>
 924                     <FRAME '\1aFIND-CACHE-VAR>
 925                     <PUSH VAR5>
 926                     <DEAD VAR5>
 927                     <PUSH VARS6>
 928                     <DEAD VARS6>
 929                     <CALL '\1aFIND-CACHE-VAR 2 = VARS6>
 930                     <SET TEMP10 VARS6>
 931                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE20>
 932                     <FRAME '\1aREMOVE-LV-FROM-AC>
 933                     <PUSH AC4>
 934                     <PUSH VARS6>
 935                     <CALL '\1aREMOVE-LV-FROM-AC 2>
 936                     <NTHUV VARS6 6 = TEMP10>
 937                     <EQUAL? TEMP10 AC4 - PHRASE14>
 938                     <DEAD TEMP10>
 939                     <PUTUV VARS6 6 %<>>
 940                     <JUMP + PHRASE18>
 941 PHRASE14
 942                     <NTHUV VARS6 7 = TEMP10>
 943                     <EQUAL? TEMP10 AC4 - PHRASE16>
 944                     <DEAD TEMP10>
 945                     <PUTUV VARS6 7 %<>>
 946                     <JUMP + PHRASE18>
 947 PHRASE16
 948                     <NTHUV VARS6 9 = TEMP10>
 949                     <EQUAL? TEMP10 AC4 - PHRASE17>
 950                     <DEAD TEMP10>
 951                     <PUTUV VARS6 9 %<>>
 952                     <JUMP + PHRASE18>
 953 PHRASE17
 954                     <NTHUV VARS6 8 = TEMP10>
 955                     <EQUAL? TEMP10 AC4 - PHRASE18>
 956                     <DEAD TEMP10>
 957                     <PUTUV VARS6 8 %<>>
 958 PHRASE18
 959                     <NTHUV VARS6 6 = TEMP10>
 960                     <TYPE? TEMP10 <TYPE-CODE FALSE> + TAG22>
 961                     <DEAD TEMP10>
 962                     <RETURN %<>>
 963 TAG22
 964                     <NTHUV VARS6 7 = TEMP10>
 965                     <TYPE? TEMP10 <TYPE-CODE FALSE> + TAG23>
 966                     <DEAD TEMP10>
 967                     <RETURN %<>>
 968 TAG23
 969                     <NTHUV VARS6 9 = TEMP10>
 970                     <TYPE? TEMP10 <TYPE-CODE FALSE> + TAG24>
 971                     <DEAD TEMP10>
 972                     <RETURN %<>>
 973 TAG24
 974                     <NTHUV VARS6 8 = TEMP10>
 975                     <TYPE? TEMP10 <TYPE-CODE FALSE> + TAG25>
 976                     <DEAD TEMP10>
 977                     <RETURN %<>>
 978 TAG25
 979                     <FRAME '\1aREMOVE-VAR-FROM-CACHE>
 980                     <PUSH VARS6>
 981                     <DEAD VARS6>
 982                     <CALL '\1aREMOVE-VAR-FROM-CACHE 1 = TEMP10>
 983 PHRASE20
 984                     <RETURN TEMP10>
 985                     <DEAD TEMP10>
 986                     <END \1aBREAK-LINK>
 987
 988 #WORD *24232642212*
 989                     <GFCN \1aREMOVE-VAR-FROM-CACHE ("VALUE" AC-STATE ANY) LV4>
 990                     <TEMP TEMP6:VECTOR>
 991                     <INTGO>
 992                     <FRAME '\1aREMOVE-LINKVAR>
 993                     <PUSH LV4>
 994                     <DEAD LV4>
 995                     <GVAL 'VARIABLE-CACHE = STACK>
 996                     <CALL '\1aREMOVE-LINKVAR 2 = TEMP6>
 997                     <SETG 'VARIABLE-CACHE TEMP6>
 998                     <RETURN TEMP6>
 999                     <DEAD TEMP6>
1000                     <END \1aREMOVE-VAR-FROM-CACHE>
1001
1002 #WORD *32346746506*
1003                     <GFCN \1aREMOVE-LINKVAR ("VALUE" <VECTOR [REST LINKVAR]> LINKVAR "OPTIONAL" <VECTOR [REST LINKVAR]>) LV6 CACHE7>
1004                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
1005 OPT4
1006                     <PUSH #T$UNBOUND 0>
1007 OPT5
1008                     <TEMP LVS8 TEMP16>
1009                     <INTGO>
1010                     <TYPE? CACHE7 <TYPE-CODE UNBOUND> - TAG10>
1011                     <GVAL 'VARIABLE-CACHE = CACHE7>
1012 TAG10
1013                     <SET LVS8 CACHE7>
1014                     <EMPUV? LVS8 + TAG12>
1015                     <LOOP (LV6 VALUE) (LVS8 LENGTH VALUE)>
1016 TAG14
1017                     <NTHUV LVS8 1 = TEMP16>
1018                     <VEQUAL? TEMP16 LV6 + TAG13>
1019                     <DEAD TEMP16>
1020                     <RESTUV LVS8 1 = LVS8 (TYPE VECTOR)>
1021                     <EMPUV? LVS8 - TAG14>
1022 TAG12
1023                     <SET LVS8 %<> (TYPE FALSE)>
1024 TAG13
1025                     <VEQUAL? LVS8 0 + PHRASE18>
1026                     <LENUV CACHE7 = TEMP16 (TYPE FIX)>
1027                     <LENUV LVS8 = LVS8 (TYPE FIX)>
1028                     <SUB TEMP16 LVS8 = TEMP16 (TYPE FIX)>
1029                     <DEAD LVS8>
1030                     <GRTR? TEMP16 0 - BOOL20 (TYPE FIX)>
1031                     <RESTUV CACHE7 1 = LVS8 (TYPE VECTOR)>
1032                     <MOVE-WORDS CACHE7 LVS8 TEMP16 (TYPE VECTOR) (DIRECTION FORWARD)>
1033                     <DEAD LVS8 TEMP16>
1034 BOOL20
1035                     <RESTUV CACHE7 1 = LVS8 (TYPE VECTOR)>
1036                     <DEAD CACHE7>
1037                     <RETURN LVS8>
1038                     <DEAD LVS8>
1039 PHRASE18
1040                     <RETURN CACHE7>
1041                     <DEAD CACHE7>
1042                     <END \1aREMOVE-LINKVAR>
1043
1044 #WORD *15407655045*
1045                     <GFCN \1aCLEAR-VARS-FROM-AC ("VALUE" <OR FALSE <VECTOR [REST LINKVAR]>> ANY "OPTIONAL" ANY ANY) AC7 SAVE?8 ALL?9>
1046                     <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
1047 OPT4
1048                     <PUSH %<>>
1049 OPT5
1050                     <PUSH %<>>
1051 OPT6
1052                     <TEMP VARS10:VECTOR TEMP20 LV22 TAC23>
1053                     <INTGO>
1054                     <NTHUV AC7 8 = VARS10 (TYPE VECTOR)>
1055                     <SET TEMP20 %<> (TYPE FALSE)>
1056                     <LOOP>
1057 MAP12
1058                     <INTGO>
1059                     <EMPUV? VARS10 + MAPAP15>
1060                     <NTHUV VARS10 1 = LV22>
1061                     <EQUAL? LV22 SAVE?8 - TAG26>
1062                     <SET TEMP20 %<> (TYPE FALSE)>
1063                     <JUMP + PHRASE43>
1064 TAG26
1065                     <FRAME '\1aBREAK-LINK>
1066                     <PUSH AC7>
1067                     <NTHUV LV22 1 = STACK (TYPE VARTBL)>
1068                     <CALL '\1aBREAK-LINK 2>
1069                     <SET TEMP20 ALL?9>
1070                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE43>
1071                     <NTHUV LV22 6 = TAC23>
1072                     <TYPE? TAC23 <TYPE-CODE FALSE> + PHRASE31>
1073                     <VEQUAL? TAC23 AC7 + PHRASE31>
1074                     <FRAME '\1aBREAK-LINK>
1075                     <PUSH TAC23>
1076                     <DEAD TAC23>
1077                     <NTHUV LV22 1 = STACK (TYPE VARTBL)>
1078                     <CALL '\1aBREAK-LINK 2>
1079 PHRASE31
1080                     <NTHUV LV22 9 = TAC23>
1081                     <TYPE? TAC23 <TYPE-CODE FALSE> + PHRASE35>
1082                     <VEQUAL? TAC23 AC7 + PHRASE35>
1083                     <FRAME '\1aBREAK-LINK>
1084                     <PUSH TAC23>
1085                     <DEAD TAC23>
1086                     <NTHUV LV22 1 = STACK (TYPE VARTBL)>
1087                     <CALL '\1aBREAK-LINK 2>
1088 PHRASE35
1089                     <NTHUV LV22 7 = TAC23>
1090                     <TYPE? TAC23 <TYPE-CODE FALSE> + PHRASE39>
1091                     <VEQUAL? TAC23 AC7 + PHRASE39>
1092                     <FRAME '\1aBREAK-LINK>
1093                     <PUSH TAC23>
1094                     <DEAD TAC23>
1095                     <NTHUV LV22 1 = STACK (TYPE VARTBL)>
1096                     <CALL '\1aBREAK-LINK 2>
1097 PHRASE39
1098                     <NTHUV LV22 8 = TAC23>
1099                     <SET TEMP20 TAC23>
1100                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE43>
1101                     <VEQUAL? TAC23 AC7 - TAG45>
1102                     <SET TEMP20 %<> (TYPE FALSE)>
1103                     <JUMP + PHRASE43>
1104 TAG45
1105                     <FRAME '\1aBREAK-LINK>
1106                     <PUSH TAC23>
1107                     <DEAD TAC23>
1108                     <NTHUV LV22 1 = STACK (TYPE VARTBL)>
1109                     <DEAD LV22>
1110                     <CALL '\1aBREAK-LINK 2 = TEMP20>
1111 PHRASE43
1112                     <RESTUV VARS10 1 = VARS10 (TYPE VECTOR)>
1113                     <JUMP + MAP12>
1114 MAPAP15
1115                     <RETURN TEMP20>
1116                     <DEAD TEMP20>
1117                     <END \1aCLEAR-VARS-FROM-AC>
1118
1119 #WORD *25164767002*
1120                     <GFCN \1aMUNG-AC ("VALUE" <OR FALSE <VECTOR [REST LINKVAR]>> AC) VAC4>
1121                     <TEMP TEMP8>
1122                     <INTGO>
1123                     <FRAME '\1aSTORE-AC>
1124                     <PUSH VAC4>
1125                     <PUSH 'T>
1126                     <CALL '\1aSTORE-AC 2>
1127                     <FRAME '\1aUSE-AC>
1128                     <PUSH VAC4>
1129                     <CALL '\1aUSE-AC 1>
1130                     <FRAME '\1aCLEAR-VARS-FROM-AC>
1131                     <PUSH VAC4>
1132                     <DEAD VAC4>
1133                     <CALL '\1aCLEAR-VARS-FROM-AC 1 = TEMP8>
1134                     <RETURN TEMP8>
1135                     <DEAD TEMP8>
1136                     <END \1aMUNG-AC>
1137
1138 #WORD *12771605461*
1139                     <GFCN \1aFLUSH-ACS ("VALUE" ANY)>
1140                     <TEMP TEMP7 TEMP10:VECTOR>
1141                     <INTGO>
1142                     <SET TEMP7 %<> (TYPE FALSE)>
1143                     <GVAL 'ALL-ACS = TEMP10>
1144                     <LOOP>
1145 MAP5
1146                     <INTGO>
1147                     <EMPUV? TEMP10 + MAP4>
1148                     <FRAME '\1aMUNG-AC>
1149                     <NTHUV TEMP10 1 = STACK>
1150                     <CALL '\1aMUNG-AC 1 = TEMP7>
1151                     <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
1152                     <JUMP + MAP5>
1153 MAP4
1154                     <RETURN TEMP7>
1155                     <DEAD TEMP7>
1156                     <END \1aFLUSH-ACS>
1157
1158 #WORD *37232707022*
1159                     <GFCN \1aEXCH-AC ("VALUE" <OR FALSE LINKVAR> AC AC) AC14 AC25>
1160                     <TEMP VARS6:VECTOR TEMP7 LV21:LINKVAR>
1161                     <INTGO>
1162                     <NTHUV AC25 8 = VARS6 (TYPE VECTOR)>
1163                     <NTHUV AC14 8 = TEMP7 (TYPE VECTOR)>
1164                     <PUTUV AC25 8 TEMP7>
1165                     <DEAD TEMP7>
1166                     <PUTUV AC14 8 VARS6>
1167                     <DEAD VARS6>
1168                     <FRAME '\1aCLOAD-AC>
1169                     <PUSH AC14>
1170                     <CALL '\1aCLOAD-AC 1>
1171                     <FRAME '\1aCLOAD-AC>
1172                     <PUSH AC25>
1173                     <CALL '\1aCLOAD-AC 1>
1174                     <SET TEMP7 %<> (TYPE FALSE)>
1175                     <GVAL 'VARIABLE-CACHE = VARS6>
1176                     <LOOP>
1177 MAP11
1178                     <INTGO>
1179                     <EMPUV? VARS6 + MAPAP14>
1180                     <NTHUV VARS6 1 = LV21>
1181                     <FRAME '\1aEXCH-TEST>
1182                     <PUSH AC14>
1183                     <PUSH AC25>
1184                     <NTHUV LV21 6 = STACK>
1185                     <CALL '\1aEXCH-TEST 3 = TEMP7>
1186                     <PUTUV LV21 6 TEMP7>
1187                     <DEAD TEMP7>
1188                     <FRAME '\1aEXCH-TEST>
1189                     <PUSH AC14>
1190                     <PUSH AC25>
1191                     <NTHUV LV21 7 = STACK>
1192                     <CALL '\1aEXCH-TEST 3 = TEMP7>
1193                     <PUTUV LV21 7 TEMP7>
1194                     <DEAD TEMP7>
1195                     <FRAME '\1aEXCH-TEST>
1196                     <PUSH AC14>
1197                     <PUSH AC25>
1198                     <NTHUV LV21 8 = STACK>
1199                     <CALL '\1aEXCH-TEST 3 = TEMP7>
1200                     <PUTUV LV21 8 TEMP7>
1201                     <DEAD TEMP7>
1202                     <FRAME '\1aEXCH-TEST>
1203                     <PUSH AC14>
1204                     <PUSH AC25>
1205                     <NTHUV LV21 9 = STACK>
1206                     <CALL '\1aEXCH-TEST 3 = TEMP7>
1207                     <PUTUV LV21 9 TEMP7>
1208                     <DEAD TEMP7>
1209                     <SET TEMP7 LV21>
1210                     <DEAD LV21>
1211                     <RESTUV VARS6 1 = VARS6 (TYPE VECTOR)>
1212                     <JUMP + MAP11>
1213 MAPAP14
1214                     <RETURN TEMP7>
1215                     <DEAD TEMP7>
1216                     <END \1aEXCH-AC>
1217
1218 #WORD *12154104727*
1219                     <GFCN \1aEXCH-TEST ("VALUE" <OR AC FALSE> AC AC <OR AC FALSE>) AC14 AC25 ACL6>
1220                     <TEMP TEMP9>
1221                     <INTGO>
1222                     <EQUAL? AC14 ACL6 - PHRASE8>
1223                     <RETURN AC25>
1224                     <DEAD AC25>
1225 PHRASE8
1226                     <EQUAL? AC25 ACL6 - PHRASE10>
1227                     <DEAD AC25>
1228                     <RETURN AC14>
1229                     <DEAD AC14>
1230 PHRASE10
1231                     <RETURN ACL6>
1232                     <DEAD ACL6>
1233                     <END \1aEXCH-TEST>
1234
1235 #WORD *35057322011*
1236                     <GFCN \1aMOVE-AC ("VALUE" <OR FALSE <VECTOR [REST LINKVAR]>> AC AC) AC14 AC25>
1237                     <TEMP VARS16:VECTOR VARS27:VECTOR TEMP20:VECTOR LV21 TEMP24>
1238                     <INTGO>
1239                     <NTHUV AC14 8 = VARS16 (TYPE VECTOR)>
1240                     <NTHUV AC25 8 = VARS27 (TYPE VECTOR)>
1241                     <FRAME '\1aUSE-AC>
1242                     <PUSH AC14>
1243                     <CALL '\1aUSE-AC 1>
1244                     <GVAL 'VARIABLE-CACHE = TEMP20>
1245                     <LOOP>
1246 MAP10
1247                     <INTGO>
1248                     <EMPUV? TEMP20 + MAPAP13>
1249                     <NTHUV TEMP20 1 = LV21>
1250                     <NTHUV LV21 6 = TEMP24>
1251                     <EQUAL? TEMP24 AC14 - PHRASE23>
1252                     <DEAD TEMP24>
1253                     <PUTUV LV21 6 AC25>
1254                     <DEAD LV21>
1255                     <JUMP + PHRASE27>
1256 PHRASE23
1257                     <NTHUV LV21 7 = TEMP24>
1258                     <EQUAL? TEMP24 AC14 - PHRASE25>
1259                     <DEAD TEMP24>
1260                     <PUTUV LV21 7 AC25>
1261                     <DEAD LV21>
1262                     <JUMP + PHRASE27>
1263 PHRASE25
1264                     <NTHUV LV21 9 = TEMP24>
1265                     <EQUAL? TEMP24 AC14 - PHRASE26>
1266                     <DEAD TEMP24>
1267                     <PUTUV LV21 9 AC25>
1268                     <DEAD LV21>
1269                     <JUMP + PHRASE27>
1270 PHRASE26
1271                     <NTHUV LV21 8 = TEMP24>
1272                     <EQUAL? TEMP24 AC14 - PHRASE27>
1273                     <DEAD TEMP24>
1274                     <PUTUV LV21 8 AC25>
1275                     <DEAD LV21>
1276 PHRASE27
1277                     <RESTUV TEMP20 1 = TEMP20 (TYPE VECTOR)>
1278                     <JUMP + MAP10>
1279 MAPAP13
1280                     <FRAME '\1aADJUST-LENGTH>
1281                     <PUSH VARS27>
1282                     <DEAD VARS27>
1283                     <LENUV VARS16 = STACK (TYPE FIX)>
1284                     <CALL '\1aADJUST-LENGTH 2 = VARS27>
1285                     <PUTUV AC25 8 VARS27>
1286                     <DEAD AC25>
1287                     <SET TEMP20 VARS27 (TYPE VECTOR)>
1288                     <DEAD VARS27>
1289                     <LOOP>
1290 MAP30
1291                     <INTGO>
1292                     <EMPUV? TEMP20 + MAPAP33>
1293                     <EMPUV? VARS16 + MAPAP33>
1294                     <SET VARS27 TEMP20>
1295                     <SET LV21 VARS16>
1296                     <NTHUV LV21 1 = TEMP24>
1297                     <DEAD LV21>
1298                     <PUTUV VARS27 1 TEMP24>
1299                     <DEAD VARS27 TEMP24>
1300                     <RESTUV TEMP20 1 = TEMP20 (TYPE VECTOR)>
1301                     <RESTUV VARS16 1 = VARS16 (TYPE VECTOR)>
1302                     <JUMP + MAP30>
1303 MAPAP33
1304                     <FRAME '\1aCLEAR-VARS-FROM-AC>
1305                     <PUSH AC14>
1306                     <DEAD AC14>
1307                     <CALL '\1aCLEAR-VARS-FROM-AC 1 = TEMP24>
1308                     <RETURN TEMP24>
1309                     <DEAD TEMP24>
1310                     <END \1aMOVE-AC>
1311
1312 #WORD *35337723700*
1313                     <GFCN \1aADJUST-LENGTH ("VALUE" VECTOR VECTOR FIX) VEC4 LEN5>
1314                     <TEMP TEMP9 TVEC6 TEMP14:FIX>
1315                     <INTGO>
1316                     <LENUV VEC4 = TEMP9 (TYPE FIX)>
1317                     <LESS? LEN5 TEMP9 - PHRASE8 (TYPE FIX)>
1318                     <DEAD TEMP9>
1319                     <LENUV VEC4 = TEMP9 (TYPE FIX)>
1320                     <SUB TEMP9 LEN5 = TEMP9 (TYPE FIX)>
1321                     <DEAD LEN5>
1322                     <RESTUV VEC4 TEMP9 = VEC4 (TYPE VECTOR)>
1323                     <DEAD TEMP9>
1324                     <RETURN VEC4>
1325                     <DEAD VEC4>
1326 PHRASE8
1327                     <LENUV VEC4 = TEMP9 (TYPE FIX)>
1328                     <GRTR? LEN5 TEMP9 - COND11 (TYPE FIX)>
1329                     <DEAD TEMP9>
1330                     <TOPU VEC4 = TVEC6>
1331                     <DEAD VEC4>
1332                     <LENUV TVEC6 = TEMP9 (TYPE FIX)>
1333                     <LESS? LEN5 TEMP9 - PHRASE12 (TYPE FIX)>
1334                     <DEAD TEMP9>
1335                     <LENUV TVEC6 = TEMP9 (TYPE FIX)>
1336                     <SUB TEMP9 LEN5 = TEMP9 (TYPE FIX)>
1337                     <DEAD LEN5>
1338                     <RESTUV TVEC6 TEMP9 = VEC4 (TYPE VECTOR)>
1339                     <DEAD TVEC6 TEMP9>
1340                     <RETURN VEC4>
1341                     <DEAD VEC4>
1342 PHRASE12
1343                     <SET TEMP14 0 (TYPE FIX)>
1344                     <LENUV TVEC6 = TEMP9 (TYPE FIX)>
1345                     <SUB TEMP9 LEN5 = TEMP9 (TYPE FIX)>
1346                     <DEAD LEN5>
1347                     <UUBLOCK <TYPE-CODE VECTOR> TEMP9 = TEMP9 (TYPE VECTOR)>
1348                     <LOOP (TEMP9 VALUE LENGTH) (TEMP14 VALUE)>
1349 TAG16
1350                     <INTGO>
1351                     <EMPUV? TEMP9 + TAG13>
1352                     <NTHUV TEMP9 1 = STACK>
1353                     <RESTUV TEMP9 1 = TEMP9 (TYPE VECTOR)>
1354                     <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
1355                     <JUMP + TAG16>
1356 TAG13
1357                     <SET TEMP9 TVEC6>
1358                     <DEAD TVEC6>
1359                     <LOOP (TEMP9 VALUE LENGTH) (TEMP14 VALUE)>
1360 TAG18
1361                     <INTGO>
1362                     <EMPUV? TEMP9 + TAG17>
1363                     <NTHUV TEMP9 1 = STACK>
1364                     <RESTUV TEMP9 1 = TEMP9 (TYPE VECTOR)>
1365                     <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
1366                     <JUMP + TAG18>
1367 TAG17
1368                     <UBLOCK <TYPE-CODE VECTOR> TEMP14 = VEC4>
1369                     <DEAD TEMP14>
1370 COND11
1371                     <RETURN VEC4>
1372                     <DEAD VEC4>
1373                     <END \1aADJUST-LENGTH>
1374
1375 #WORD *4153764447*
1376                     <GFCN \1aSET-AC-AGE ("VALUE" FIX AC) AC4>
1377                     <TEMP TEMP5:FIX>
1378                     <INTGO>
1379                     <GVAL 'AC-TIME = TEMP5>
1380                     <PUTUV AC4 3 TEMP5 (TYPE FIX)>
1381                     <DEAD AC4 TEMP5>
1382                     <GVAL 'AC-TIME = TEMP5>
1383                     <ADD TEMP5 1 = TEMP5 (TYPE FIX)>
1384                     <SETG 'AC-TIME TEMP5>
1385                     <RETURN TEMP5>
1386                     <DEAD TEMP5>
1387                     <END \1aSET-AC-AGE>
1388
1389 #WORD *4135344073*
1390                     <GFCN \1aUSE-AC ("VALUE" AC AC) AC4>
1391                     <TEMP>
1392                     <INTGO>
1393                     <PUTUV AC4 9 'T>
1394                     <RETURN AC4>
1395                     <DEAD AC4>
1396                     <END \1aUSE-AC>
1397
1398 #WORD *25411156030*
1399                     <GFCN \1aPROTECT ("VALUE" AC AC) AC4>
1400                     <TEMP>
1401                     <INTGO>
1402                     <PUTUV AC4 4 'T>
1403                     <RETURN AC4>
1404                     <DEAD AC4>
1405                     <END \1aPROTECT>
1406
1407 #WORD *26476055667*
1408                     <GFCN \1aPROTECT-USE ("VALUE" AC AC) AC4>
1409                     <TEMP TEMP7:AC>
1410                     <INTGO>
1411                     <FRAME '\1aPROTECT>
1412                     <PUSH AC4>
1413                     <CALL '\1aPROTECT 1>
1414                     <FRAME '\1aUSE-AC>
1415                     <PUSH AC4>
1416                     <DEAD AC4>
1417                     <CALL '\1aUSE-AC 1 = TEMP7>
1418                     <RETURN TEMP7>
1419                     <DEAD TEMP7>
1420                     <END \1aPROTECT-USE>
1421
1422 #WORD *31107311045*
1423                     <GFCN \1aUNPROTECT ("VALUE" AC AC) AC4>
1424                     <TEMP>
1425                     <INTGO>
1426                     <PUTUV AC4 4 %<>>
1427                     <RETURN AC4>
1428                     <DEAD AC4>
1429                     <END \1aUNPROTECT>
1430
1431 #WORD *3020661073*
1432                     <GFCN \1aUNPROTECT-ACS ("VALUE" <OR AC FALSE>)>
1433                     <TEMP TEMP7 TEMP10:VECTOR>
1434                     <INTGO>
1435                     <SET TEMP7 %<> (TYPE FALSE)>
1436                     <GVAL 'ALL-ACS = TEMP10>
1437                     <LOOP>
1438 MAP5
1439                     <INTGO>
1440                     <EMPUV? TEMP10 + MAP4>
1441                     <FRAME '\1aUNPROTECT>
1442                     <NTHUV TEMP10 1 = STACK>
1443                     <CALL '\1aUNPROTECT 1 = TEMP7>
1444                     <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
1445                     <JUMP + MAP5>
1446 MAP4
1447                     <RETURN TEMP7>
1448                     <DEAD TEMP7>
1449                     <END \1aUNPROTECT-ACS>
1450
1451 #WORD *26245667474*
1452                     <GFCN \1aLOAD-AC ("VALUE" <OR FALSE VARTBL> AC ANY) AC4 EA5>
1453                     <TEMP TEMP6>
1454                     <INTGO>
1455                     <GVAL 'CODE-COUNT = TEMP6>
1456                     <PUTUV AC4 6 TEMP6>
1457                     <DEAD TEMP6>
1458                     <PUTUV AC4 7 EA5>
1459                     <DEAD EA5>
1460                     <PUTUV AC4 9 %<>>
1461                     <DEAD AC4>
1462                     <FRAME '\1aCLEAR-STATUS>
1463                     <CALL '\1aCLEAR-STATUS 0 = TEMP6>
1464                     <RETURN TEMP6>
1465                     <DEAD TEMP6>
1466                     <END \1aLOAD-AC>
1467
1468 #WORD *21310044426*
1469                     <GFCN \1aCLOAD-AC ("VALUE" AC AC) AC4>
1470                     <TEMP>
1471                     <INTGO>
1472                     <PUTUV AC4 6 %<>>
1473                     <PUTUV AC4 7 %<>>
1474                     <RETURN AC4>
1475                     <DEAD AC4>
1476                     <END \1aCLOAD-AC>
1477
1478 #WORD *10575071642*
1479                     <GFCN \1aSET-STATUS-AC ("VALUE" <OR AC FALSE VARTBL> AC) AC4>
1480                     <TEMP TEMP7>
1481                     <INTGO>
1482                     <GVAL 'AC-STORE-OPT = TEMP7>
1483                     <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE6>
1484                     <DEAD TEMP7>
1485                     <SETG 'STATUS-AC AC4>
1486                     <RETURN AC4>
1487                     <DEAD AC4>
1488 PHRASE6
1489                     <FRAME '\1aCLEAR-STATUS>
1490                     <CALL '\1aCLEAR-STATUS 0 = TEMP7>
1491                     <RETURN TEMP7>
1492                     <DEAD TEMP7>
1493                     <END \1aSET-STATUS-AC>
1494
1495 #WORD *5003173422*
1496                     <GFCN \1aSET-STATUS-VAR ("VALUE" <OR ATOM FALSE> VARTBL ATOM) VAR4 STYP5>
1497                     <TEMP TEMP8>
1498                     <INTGO>
1499                     <GVAL 'STATUS-AC = TEMP8>
1500                     <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE7>
1501                     <GVAL 'AC-STORE-OPT = TEMP8>
1502                     <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE7>
1503                     <SETG 'STATUS-VAR VAR4>
1504                     <DEAD VAR4>
1505                     <SETG 'STATUS-TYPE STYP5>
1506                     <SET TEMP8 STYP5>
1507                     <DEAD STYP5>
1508 PHRASE7
1509                     <RETURN TEMP8>
1510                     <DEAD TEMP8>
1511                     <END \1aSET-STATUS-VAR>
1512
1513 #WORD *23660435346*
1514                     <GFCN \1aCLEAR-STATUS ("VALUE" <OR FALSE VARTBL>)>
1515                     <TEMP>
1516                     <INTGO>
1517                     <SETG 'STATUS-AC %<>>
1518                     <SETG 'STATUS-VAR %<>>
1519                     <RETURN %<>>
1520                     <END \1aCLEAR-STATUS>
1521
1522 #WORD *15143701462*
1523                     <GFCN \1aSTATUS? ("VALUE" <OR AC ATOM FALSE> VARTBL ATOM) VAR4 STYPE5>
1524                     <TEMP SAC7 TEMP11 LVAR6>
1525                     <INTGO>
1526                     <GVAL 'STATUS-AC = SAC7>
1527                     <GVAL 'STATUS-AC = TEMP11>
1528                     <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE9>
1529                     <DEAD TEMP11>
1530                     <FRAME '\1aFIND-CACHE-VAR>
1531                     <PUSH VAR4>
1532                     <NTHUV SAC7 8 = STACK (TYPE VECTOR)>
1533                     <CALL '\1aFIND-CACHE-VAR 2 = LVAR6>
1534                     <TYPE? LVAR6 <TYPE-CODE FALSE> + PHRASE9>
1535                     <VEQUAL? STYPE5 'VALUE - BOOL14>
1536                     <NTHUV LVAR6 6 = TEMP11>
1537                     <EQUAL? TEMP11 SAC7 + BOOL13>
1538                     <DEAD TEMP11>
1539 BOOL14
1540                     <VEQUAL? STYPE5 'COUNT + BOOL13>
1541                     <NTHUV LVAR6 8 = TEMP11>
1542                     <DEAD LVAR6>
1543                     <EQUAL? TEMP11 SAC7 - PHRASE9>
1544                     <DEAD TEMP11>
1545 BOOL13
1546                     <GVAL 'STATUS-AC = TEMP11>
1547                     <RETURN TEMP11>
1548                     <DEAD TEMP11>
1549 PHRASE9
1550                     <GVAL 'STATUS-VAR = SAC7>
1551                     <EQUAL? SAC7 VAR4 + TAG17>
1552                     <DEAD SAC7 VAR4>
1553                     <RETURN %<>>
1554 TAG17
1555                     <GVAL 'STATUS-TYPE = SAC7>
1556                     <VEQUAL? SAC7 STYPE5 + TAG19>
1557                     <DEAD SAC7 STYPE5>
1558                     <RETURN %<>>
1559 TAG19
1560                     <GVAL 'STATUS-AC = SAC7>
1561                     <TYPE? SAC7 <TYPE-CODE FALSE> + PHRASE21>
1562                     <DEAD SAC7>
1563                     <GVAL 'STATUS-AC = TEMP11>
1564                     <RETURN TEMP11>
1565                     <DEAD TEMP11>
1566 PHRASE21
1567                     <RETURN 'VAR>
1568                     <END \1aSTATUS?>
1569
1570 #WORD *26464166206*
1571                     <GFCN \1aPRINT-LINKVAR ("VALUE" STRING LINKVAR) LV4>
1572                     <TEMP OUTCHAN5 TEMP10>
1573                     <INTGO>
1574                     <GEN-LVAL 'OUTCHAN = OUTCHAN5>
1575                     <FRAME '\1aPRINC>
1576                     <PUSH "#LINKVAR [">
1577                     <PUSH OUTCHAN5>
1578                     <CALL '\1aPRINC 2>
1579                     <FRAME '\1aPRINC>
1580                     <NTHUV LV4 1 = TEMP10 (TYPE VARTBL)>
1581                     <NTHUV TEMP10 1 = STACK (TYPE ATOM)>
1582                     <DEAD TEMP10>
1583                     <PUSH OUTCHAN5>
1584                     <CALL '\1aPRINC 2>
1585                     <FRAME '\1aPRINC>
1586                     <PUSH " ">
1587                     <PUSH OUTCHAN5>
1588                     <CALL '\1aPRINC 2>
1589                     <FRAME '\1aPRINC>
1590                     <NTHUV LV4 5 = STACK>
1591                     <PUSH OUTCHAN5>
1592                     <CALL '\1aPRINC 2>
1593                     <FRAME '\1aTESTPRINT>
1594                     <NTHUV LV4 6 = STACK>
1595                     <PUSH "VALUE">
1596                     <PUSH OUTCHAN5>
1597                     <CALL '\1aTESTPRINT 3>
1598                     <FRAME '\1aTESTPRINT>
1599                     <NTHUV LV4 7 = STACK>
1600                     <PUSH "TYPE">
1601                     <PUSH OUTCHAN5>
1602                     <CALL '\1aTESTPRINT 3>
1603                     <FRAME '\1aTESTPRINT>
1604                     <NTHUV LV4 9 = STACK>
1605                     <PUSH "TYPE-WORD">
1606                     <PUSH OUTCHAN5>
1607                     <CALL '\1aTESTPRINT 3>
1608                     <FRAME '\1aTESTPRINT>
1609                     <NTHUV LV4 8 = STACK>
1610                     <DEAD LV4>
1611                     <PUSH "COUNT">
1612                     <PUSH OUTCHAN5>
1613                     <CALL '\1aTESTPRINT 3>
1614                     <FRAME '\1aPRINC>
1615                     <PUSH "]">
1616                     <PUSH OUTCHAN5>
1617                     <DEAD OUTCHAN5>
1618                     <CALL '\1aPRINC 2 = TEMP10>
1619                     <RETURN TEMP10>
1620                     <DEAD TEMP10>
1621                     <END \1aPRINT-LINKVAR>
1622
1623 #WORD *1376230320*
1624                     <GFCN \1aTESTPRINT ("VALUE" <OR ATOM FALSE> <OR FALSE AC> STRING CHANNEL) AC4 TYP5 OUTCHAN6>
1625                     <TEMP TEMP3:LBIND TEMP9>
1626                     <INTGO>
1627                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
1628                     <BBIND 'OUTCHAN 'CHANNEL %<> OUTCHAN6>
1629                     <DEAD OUTCHAN6>
1630                     <FIXBIND>
1631                     <SET TEMP9 AC4>
1632                     <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE8>
1633                     <FRAME '\1aPRINC>
1634                     <PUSH " #">
1635                     <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
1636                     <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
1637                     <DEAD TEMP9>
1638                     <CALL '\1aPRINC 2>
1639                     <FRAME '\1aPRINC>
1640                     <PUSH TYP5>
1641                     <DEAD TYP5>
1642                     <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
1643                     <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
1644                     <DEAD TEMP9>
1645                     <CALL '\1aPRINC 2>
1646                     <FRAME '\1aPRINC>
1647                     <PUSH " ">
1648                     <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
1649                     <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
1650                     <DEAD TEMP9>
1651                     <CALL '\1aPRINC 2>
1652                     <FRAME '\1aPRIN1>
1653                     <NTHUV AC4 1 = STACK (TYPE ATOM)>
1654                     <DEAD AC4>
1655                     <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
1656                     <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
1657                     <DEAD TEMP9>
1658                     <CALL '\1aPRIN1 2 = TEMP9>
1659 PHRASE8
1660                     <UNBIND TEMP3>
1661                     <DEAD TEMP3>
1662                     <ADJ -9>
1663                     <RETURN TEMP9>
1664                     <DEAD TEMP9>
1665                     <END \1aTESTPRINT>
1666
1667 <COND (<GASSIGNED? PRINT-LINKVAR> <PRINTTYPE LINKVAR ,PRINT-LINKVAR>)>
1668
1669 #WORD *3535053551*
1670                     <GFCN \1aPRINT-AC ("VALUE" STRING AC) AC4>
1671                     <TEMP OUTCHAN5 TEMP22:VECTOR LV23:LINKVAR>
1672                     <INTGO>
1673                     <GEN-LVAL 'OUTCHAN = OUTCHAN5>
1674                     <FRAME '\1aPRINC>
1675                     <PUSH "#AC [">
1676                     <PUSH OUTCHAN5>
1677                     <CALL '\1aPRINC 2>
1678                     <FRAME '\1aPRIN1>
1679                     <NTHUV AC4 1 = STACK (TYPE ATOM)>
1680                     <PUSH OUTCHAN5>
1681                     <CALL '\1aPRIN1 2>
1682                     <FRAME '\1aPRINC>
1683                     <PUSH " ">
1684                     <PUSH OUTCHAN5>
1685                     <CALL '\1aPRINC 2>
1686                     <NTHUV AC4 8 = TEMP22 (TYPE VECTOR)>
1687                     <LOOP>
1688 MAP12
1689                     <INTGO>
1690                     <EMPUV? TEMP22 + MAPAP15>
1691                     <NTHUV TEMP22 1 = LV23>
1692                     <FRAME '\1aPRINT-SHORT-LINKVAR>
1693                     <PUSH LV23>
1694                     <DEAD LV23>
1695                     <PUSH AC4>
1696                     <CALL '\1aPRINT-SHORT-LINKVAR 2>
1697                     <RESTUV TEMP22 1 = TEMP22 (TYPE VECTOR)>
1698                     <JUMP + MAP12>
1699 MAPAP15
1700                     <FRAME '\1aPRINC>
1701                     <PUSH "]">
1702                     <PUSH OUTCHAN5>
1703                     <DEAD OUTCHAN5>
1704                     <CALL '\1aPRINC 2 = OUTCHAN5>
1705                     <RETURN OUTCHAN5>
1706                     <DEAD OUTCHAN5>
1707                     <END \1aPRINT-AC>
1708
1709 <COND (<GASSIGNED? PRINT-AC> <PRINTTYPE AC ,PRINT-AC>)>
1710
1711 #WORD *22043563371*
1712                     <GFCN \1aPRINT-SHORT-LINKVAR ("VALUE" STRING LINKVAR AC) LV4 AC5>
1713                     <TEMP OUTCHAN6 TEMP11>
1714                     <INTGO>
1715                     <GEN-LVAL 'OUTCHAN = OUTCHAN6>
1716                     <NTHUV LV4 7 = TEMP11>
1717                     <EQUAL? TEMP11 AC5 - PHRASE10>
1718                     <DEAD TEMP11>
1719                     <FRAME '\1aPRINC>
1720                     <PUSH "#TYPE ">
1721                     <PUSH OUTCHAN6>
1722                     <CALL '\1aPRINC 2>
1723                     <JUMP + PHRASE17>
1724 PHRASE10
1725                     <NTHUV LV4 6 = TEMP11>
1726                     <EQUAL? TEMP11 AC5 - PHRASE13>
1727                     <DEAD TEMP11>
1728                     <FRAME '\1aPRINC>
1729                     <PUSH "#VALUE ">
1730                     <PUSH OUTCHAN6>
1731                     <CALL '\1aPRINC 2>
1732                     <JUMP + PHRASE17>
1733 PHRASE13
1734                     <NTHUV LV4 9 = TEMP11>
1735                     <EQUAL? TEMP11 AC5 - PHRASE15>
1736                     <DEAD TEMP11>
1737                     <FRAME '\1aPRINC>
1738                     <PUSH "#TYPE-WORD ">
1739                     <PUSH OUTCHAN6>
1740                     <CALL '\1aPRINC 2>
1741                     <JUMP + PHRASE17>
1742 PHRASE15
1743                     <NTHUV LV4 8 = TEMP11>
1744                     <EQUAL? TEMP11 AC5 - PHRASE17>
1745                     <DEAD TEMP11>
1746                     <FRAME '\1aPRINC>
1747                     <PUSH "#COUNT ">
1748                     <PUSH OUTCHAN6>
1749                     <CALL '\1aPRINC 2>
1750 PHRASE17
1751                     <FRAME '\1aPRINC>
1752                     <NTHUV LV4 1 = TEMP11 (TYPE VARTBL)>
1753                     <DEAD LV4>
1754                     <NTHUV TEMP11 1 = STACK (TYPE ATOM)>
1755                     <DEAD TEMP11>
1756                     <PUSH OUTCHAN6>
1757                     <CALL '\1aPRINC 2>
1758                     <FRAME '\1aPRINC>
1759                     <PUSH " ">
1760                     <PUSH OUTCHAN6>
1761                     <DEAD OUTCHAN6>
1762                     <CALL '\1aPRINC 2 = TEMP11>
1763                     <RETURN TEMP11>
1764                     <DEAD TEMP11>
1765                     <END \1aPRINT-SHORT-LINKVAR>
1766
1767 #WORD *35711215061*
1768                     <GFCN \1aFREE-TYPE-AC? ("VALUE" ANY "OPTIONAL" ANY ANY) HOWFREE?7 REAL?8>
1769                     <OPT-DISPATCH 0 %<> OPT4 OPT5 OPT6>
1770 OPT4
1771                     <PUSH 'NOVARS>
1772 OPT5
1773                     <PUSH %<>>
1774 OPT6
1775                     <TEMP TEMP10>
1776                     <INTGO>
1777                     <FRAME '\1aFIND-FREE-AC>
1778                     <GVAL 'TYPE-ACS = STACK>
1779                     <PUSH HOWFREE?7>
1780                     <DEAD HOWFREE?7>
1781                     <CALL '\1aFIND-FREE-AC 2 = TEMP10>
1782                     <RETURN TEMP10>
1783                     <DEAD TEMP10>
1784                     <END \1aFREE-TYPE-AC?>
1785
1786 #WORD *2020513542*
1787                     <GFCN \1aFREE-VALUE-AC? ("VALUE" ANY "OPTIONAL" ANY) HOWFREE?6>
1788                     <OPT-DISPATCH 0 %<> OPT4 OPT5>
1789 OPT4
1790                     <PUSH 'NOVARS>
1791 OPT5
1792                     <TEMP TEMP8>
1793                     <INTGO>
1794                     <FRAME '\1aFIND-FREE-AC>
1795                     <GVAL 'VAL-ACS = STACK>
1796                     <PUSH HOWFREE?6>
1797                     <DEAD HOWFREE?6>
1798                     <CALL '\1aFIND-FREE-AC 2 = TEMP8>
1799                     <RETURN TEMP8>
1800                     <DEAD TEMP8>
1801                     <END \1aFREE-VALUE-AC?>
1802
1803 #WORD *30635022433*
1804                     <GFCN \1aFREE-AC? ("VALUE" ANY "OPTIONAL" ANY ANY) PREF7 HOWFREE?8>
1805                     <OPT-DISPATCH 0 %<> OPT4 OPT5 OPT6>
1806 OPT4
1807                     <PUSH 'NONE>
1808 OPT5
1809                     <PUSH 'NOVARS>
1810 OPT6
1811                     <TEMP TEMP12>
1812                     <INTGO>
1813                     <EQUAL? PREF7 'DOUBLE - PHRASE10>
1814                     <FRAME '\1aFIND-FREE-PAIR>
1815                     <PUSH HOWFREE?8>
1816                     <DEAD HOWFREE?8>
1817                     <CALL '\1aFIND-FREE-PAIR 1 = TEMP12>
1818                     <RETURN TEMP12>
1819                     <DEAD TEMP12>
1820 PHRASE10
1821                     <EQUAL? PREF7 'NONE - PHRASE13>
1822                     <FRAME '\1aFIND-FREE-AC>
1823                     <GVAL 'ALL-ACS = STACK>
1824                     <PUSH HOWFREE?8>
1825                     <DEAD HOWFREE?8>
1826                     <CALL '\1aFIND-FREE-AC 2 = TEMP12>
1827                     <RETURN TEMP12>
1828                     <DEAD TEMP12>
1829 PHRASE13
1830                     <EQUAL? PREF7 'TYPE + BOOL16>
1831                     <EQUAL? PREF7 'PREF-TYPE - PHRASE15>
1832 BOOL16
1833                     <FRAME '\1aFIND-FREE-AC>
1834                     <GVAL 'TYPE-ACS = STACK>
1835                     <PUSH HOWFREE?8>
1836                     <CALL '\1aFIND-FREE-AC 2 = TEMP12>
1837                     <TYPE? TEMP12 <TYPE-CODE FALSE> - COND9>
1838                     <FRAME '\1aFIND-FREE-AC>
1839                     <GVAL 'VAL-ACS = STACK>
1840                     <PUSH HOWFREE?8>
1841                     <DEAD HOWFREE?8>
1842                     <CALL '\1aFIND-FREE-AC 2 = TEMP12>
1843                     <RETURN TEMP12>
1844                     <DEAD TEMP12>
1845 PHRASE15
1846                     <EQUAL? PREF7 'VALUE + BOOL21>
1847                     <EQUAL? PREF7 'PREF-VAL - PHRASE20>
1848                     <DEAD PREF7>
1849 BOOL21
1850                     <FRAME '\1aFIND-FREE-AC>
1851                     <GVAL 'VAL-ACS = STACK>
1852                     <PUSH HOWFREE?8>
1853                     <CALL '\1aFIND-FREE-AC 2 = TEMP12>
1854                     <TYPE? TEMP12 <TYPE-CODE FALSE> - COND9>
1855                     <FRAME '\1aFIND-FREE-AC>
1856                     <GVAL 'TYPE-ACS = STACK>
1857                     <PUSH HOWFREE?8>
1858                     <DEAD HOWFREE?8>
1859                     <CALL '\1aFIND-FREE-AC 2 = TEMP12>
1860                     <RETURN TEMP12>
1861                     <DEAD TEMP12>
1862 PHRASE20
1863                     <FRAME '\1aERROR>
1864                     <PUSH 'BAD-PREFERENCE>
1865                     <PUSH 'FREE-AC?>
1866                     <CALL '\1aERROR 2 = TEMP12>
1867 COND9
1868                     <RETURN TEMP12>
1869                     <DEAD TEMP12>
1870                     <END \1aFREE-AC?>
1871
1872 #WORD *2770344334*
1873                     <GFCN \1aFIND-FREE-PAIR ("VALUE" <OR AC FALSE> ANY) HOWFREE?4>
1874                     <TEMP ACS8:VECTOR TEMP14 AC19 TEMP18>
1875                     <INTGO>
1876                     <GVAL 'ALL-ACS = ACS8>
1877                     <LOOP>
1878 AGAIN11
1879                     <INTGO>
1880                     <LENUV ACS8 = TEMP14 (TYPE FIX)>
1881                     <LESS? TEMP14 2 - PHRASE13 (TYPE FIX)>
1882                     <DEAD TEMP14>
1883                     <RETURN %<>>
1884 PHRASE13
1885                     <NTHUV ACS8 1 = AC19>
1886                     <NTHUV AC19 4 = TEMP14>
1887                     <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE33>
1888                     <DEAD TEMP14>
1889                     <NTHUV ACS8 2 = TEMP14>
1890                     <NTHUV TEMP14 4 = TEMP18>
1891                     <TYPE? TEMP18 <TYPE-CODE FALSE> - PHRASE33>
1892                     <DEAD TEMP18>
1893                     <EQUAL? HOWFREE?4 'NOVARS - PHRASE20>
1894                     <FRAME '\1aALL-DEAD?>
1895                     <PUSH AC19>
1896                     <CALL '\1aALL-DEAD? 1 = TEMP18>
1897                     <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE33>
1898                     <DEAD TEMP18>
1899                     <FRAME '\1aALL-DEAD?>
1900                     <PUSH TEMP14>
1901                     <DEAD TEMP14>
1902                     <CALL '\1aALL-DEAD? 1 = TEMP18>
1903                     <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE33>
1904                     <DEAD TEMP18>
1905                     <RETURN AC19>
1906                     <DEAD AC19>
1907 PHRASE20
1908                     <EQUAL? HOWFREE?4 'STORED - PHRASE27>
1909                     <FRAME '\1aALL-STORED?>
1910                     <PUSH AC19>
1911                     <CALL '\1aALL-STORED? 1 = TEMP18>
1912                     <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE33>
1913                     <DEAD TEMP18>
1914                     <FRAME '\1aALL-STORED?>
1915                     <PUSH TEMP14>
1916                     <DEAD TEMP14>
1917                     <CALL '\1aALL-STORED? 1 = TEMP18>
1918                     <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE33>
1919                     <DEAD TEMP18>
1920                     <RETURN AC19>
1921                     <DEAD AC19>
1922 PHRASE27
1923                     <FRAME '\1aERROR>
1924                     <PUSH 'BAD-MODE>
1925                     <PUSH 'FIND-FREE-PAIR>
1926                     <CALL '\1aERROR 2>
1927 PHRASE33
1928                     <RESTUV ACS8 2 = ACS8 (TYPE VECTOR)>
1929                     <JUMP + AGAIN11>
1930                     <END \1aFIND-FREE-PAIR>
1931
1932 #WORD *27655454112*
1933                     <GFCN \1aFIND-FREE-AC ("VALUE" ANY <VECTOR [REST AC]> ATOM) ACLIST4 HOWFREE?5>
1934                     <TEMP TEMP15 TEMP12:VECTOR AC17:AC>
1935                     <INTGO>
1936                     <SET TEMP15 %<> (TYPE FALSE)>
1937                     <SET TEMP12 ACLIST4 (TYPE VECTOR)>
1938                     <DEAD ACLIST4>
1939                     <LOOP>
1940 MAP7
1941                     <INTGO>
1942                     <EMPUV? TEMP12 + MAPAP10>
1943                     <NTHUV TEMP12 1 = AC17>
1944                     <NTHUV AC17 4 = TEMP15>
1945                     <TYPE? TEMP15 <TYPE-CODE FALSE> + TAG20>
1946                     <DEAD TEMP15>
1947                     <SET TEMP15 %<> (TYPE FALSE)>
1948                     <JUMP + COND21>
1949 TAG20
1950                     <VEQUAL? HOWFREE?5 'NOVARS - PHRASE22>
1951                     <FRAME '\1aALL-DEAD?>
1952                     <PUSH AC17>
1953                     <CALL '\1aALL-DEAD? 1 = TEMP15>
1954                     <TYPE? TEMP15 <TYPE-CODE FALSE> + COND21>
1955                     <RETURN AC17>
1956                     <DEAD AC17>
1957 PHRASE22
1958                     <VEQUAL? HOWFREE?5 'STORED - PHRASE25>
1959                     <FRAME '\1aALL-STORED?>
1960                     <PUSH AC17>
1961                     <CALL '\1aALL-STORED? 1 = TEMP15>
1962                     <TYPE? TEMP15 <TYPE-CODE FALSE> + COND21>
1963                     <RETURN AC17>
1964                     <DEAD AC17>
1965 PHRASE25
1966                     <FRAME '\1aERROR>
1967                     <PUSH 'BAD-MODE>
1968                     <PUSH 'FIND-FREE-AC>
1969                     <CALL '\1aERROR 2 = TEMP15>
1970 COND21
1971                     <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
1972                     <JUMP + MAP7>
1973 MAPAP10
1974                     <RETURN TEMP15>
1975                     <DEAD TEMP15>
1976                     <END \1aFIND-FREE-AC>
1977
1978 #WORD *36251131534*
1979                     <GFCN \1aAC-VAR-STORED? ("VALUE" ANY VARTBL AC) VAR4 AC5>
1980                     <TEMP LV6:LINKVAR TEMP12>
1981                     <INTGO>
1982                     <FRAME '\1aFIND-CACHE-VAR>
1983                     <PUSH VAR4>
1984                     <CALL '\1aFIND-CACHE-VAR 1 = LV6>
1985                     <NTHUV LV6 6 = TEMP12>
1986                     <EQUAL? TEMP12 AC5 - PHRASE11>
1987                     <DEAD TEMP12>
1988                     <NTHUV LV6 2 = TEMP12>
1989                     <DEAD LV6>
1990                     <RETURN TEMP12>
1991                     <DEAD TEMP12>
1992 PHRASE11
1993                     <NTHUV LV6 8 = TEMP12>
1994                     <EQUAL? TEMP12 AC5 - PHRASE13>
1995                     <DEAD TEMP12>
1996                     <NTHUV LV6 3 = TEMP12>
1997                     <DEAD LV6>
1998                     <RETURN TEMP12>
1999                     <DEAD TEMP12>
2000 PHRASE13
2001                     <NTHUV LV6 7 = TEMP12>
2002                     <EQUAL? TEMP12 AC5 - PHRASE15>
2003                     <DEAD TEMP12>
2004                     <NTHUV LV6 4 = TEMP12>
2005                     <DEAD LV6>
2006                     <RETURN TEMP12>
2007                     <DEAD TEMP12>
2008 PHRASE15
2009                     <NTHUV LV6 9 = TEMP12>
2010                     <EQUAL? TEMP12 AC5 - PHRASE16>
2011                     <DEAD TEMP12>
2012                     <NTHUV LV6 4 = TEMP12>
2013                     <DEAD LV6>
2014                     <RETURN TEMP12>
2015                     <DEAD TEMP12>
2016 PHRASE16
2017                     <FRAME '\1aERROR>
2018                     <PUSH "VAR NOT IN AC">
2019                     <PUSH VAR4>
2020                     <DEAD VAR4>
2021                     <PUSH AC5>
2022                     <DEAD AC5>
2023                     <CALL '\1aERROR 3 = TEMP12>
2024                     <RETURN TEMP12>
2025                     <DEAD TEMP12>
2026                     <END \1aAC-VAR-STORED?>
2027
2028 #WORD *22235253262*
2029                     <GFCN \1aALL-STORED? ("VALUE" <OR ATOM FALSE> AC) AC4>
2030                     <TEMP (VAL5 'T) TEMP17:VECTOR LV18:LINKVAR TEMP21>
2031                     <INTGO>
2032                     <NTHUV AC4 8 = TEMP17 (TYPE VECTOR)>
2033                     <LOOP>
2034 MAP7
2035                     <INTGO>
2036                     <EMPUV? TEMP17 + MAPAP10>
2037                     <NTHUV TEMP17 1 = LV18>
2038                     <NTHUV LV18 6 = TEMP21>
2039                     <EQUAL? TEMP21 AC4 - PHRASE20>
2040                     <DEAD TEMP21>
2041                     <NTHUV LV18 2 = TEMP21>
2042                     <DEAD LV18>
2043                     <TYPE? TEMP21 <TYPE-CODE FALSE> - COND19>
2044                     <DEAD TEMP21>
2045                     <RETURN %<>>
2046 PHRASE20
2047                     <NTHUV LV18 8 = TEMP21>
2048                     <EQUAL? TEMP21 AC4 - PHRASE23>
2049                     <DEAD TEMP21>
2050                     <NTHUV LV18 3 = TEMP21>
2051                     <DEAD LV18>
2052                     <TYPE? TEMP21 <TYPE-CODE FALSE> - COND19>
2053                     <DEAD TEMP21>
2054                     <RETURN %<>>
2055 PHRASE23
2056                     <NTHUV LV18 7 = TEMP21>
2057                     <EQUAL? TEMP21 AC4 - PHRASE25>
2058                     <DEAD TEMP21>
2059                     <NTHUV LV18 4 = TEMP21>
2060                     <DEAD LV18>
2061                     <TYPE? TEMP21 <TYPE-CODE FALSE> - COND19>
2062                     <DEAD TEMP21>
2063                     <RETURN %<>>
2064 PHRASE25
2065                     <NTHUV LV18 9 = TEMP21>
2066                     <EQUAL? TEMP21 AC4 - PHRASE27>
2067                     <DEAD TEMP21>
2068                     <NTHUV LV18 4 = TEMP21>
2069                     <DEAD LV18>
2070                     <TYPE? TEMP21 <TYPE-CODE FALSE> - COND19>
2071                     <DEAD TEMP21>
2072                     <RETURN %<>>
2073 PHRASE27
2074                     <FRAME '\1aERROR>
2075                     <PUSH "VAR NOT IN AC">
2076                     <PUSH 'ALL-STORED?>
2077                     <CALL '\1aERROR 2>
2078 COND19
2079                     <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
2080                     <JUMP + MAP7>
2081 MAPAP10
2082                     <RETURN VAL5>
2083                     <DEAD VAL5>
2084                     <END \1aALL-STORED?>
2085
2086 #WORD *7741643555*
2087                     <GFCN \1aALL-DEAD? ("VALUE" <OR ATOM FALSE> AC) AC4>
2088                     <TEMP (VAL5 'T) TEMP17:VECTOR LV18:LINKVAR TEMP22>
2089                     <INTGO>
2090                     <NTHUV AC4 8 = TEMP17 (TYPE VECTOR)>
2091                     <DEAD AC4>
2092                     <LOOP>
2093 MAP7
2094                     <INTGO>
2095                     <EMPUV? TEMP17 + MAPAP10>
2096                     <NTHUV TEMP17 1 = LV18>
2097                     <NTHUV LV18 1 = TEMP22 (TYPE VARTBL)>
2098                     <NTHUV TEMP22 5 = TEMP22>
2099                     <TYPE? TEMP22 <TYPE-CODE FALSE> - PHRASE20>
2100                     <DEAD TEMP22>
2101                     <FRAME '\1aWILL-DIE?>
2102                     <NTHUV LV18 1 = STACK (TYPE VARTBL)>
2103                     <DEAD LV18>
2104                     <CALL '\1aWILL-DIE? 1 = TEMP22>
2105                     <TYPE? TEMP22 <TYPE-CODE FALSE> - PHRASE20>
2106                     <DEAD TEMP22>
2107                     <RETURN %<>>
2108 PHRASE20
2109                     <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
2110                     <JUMP + MAP7>
2111 MAPAP10
2112                     <RETURN VAL5>
2113                     <DEAD VAL5>
2114                     <END \1aALL-DEAD?>
2115
2116 #WORD *12771605461*
2117                     <GFCN \1aFLUSH-ALL-ACS ("VALUE" <OR FALSE <VECTOR [REST LINKVAR]>>)>
2118                     <TEMP TEMP7 TEMP10:VECTOR>
2119                     <INTGO>
2120                     <SET TEMP7 %<> (TYPE FALSE)>
2121                     <GVAL 'ALL-ACS = TEMP10>
2122                     <LOOP>
2123 MAP5
2124                     <INTGO>
2125                     <EMPUV? TEMP10 + MAP4>
2126                     <FRAME '\1aMUNG-AC>
2127                     <NTHUV TEMP10 1 = STACK>
2128                     <CALL '\1aMUNG-AC 1 = TEMP7>
2129                     <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
2130                     <JUMP + MAP5>
2131 MAP4
2132                     <RETURN TEMP7>
2133                     <DEAD TEMP7>
2134                     <END \1aFLUSH-ALL-ACS>
2135
2136 #WORD *15174413116*
2137                     <GFCN \1aMOVE-TO-AC ("VALUE" ANY AC ANY ATOM) AC4 ADDR5 LEN6>
2138                     <TEMP TEMP10>
2139                     <INTGO>
2140                     <VEQUAL? LEN6 'LONG - PHRASE8>
2141                     <FRAME '\1aEMIT-MOVE>
2142                     <PUSH ADDR5>
2143                     <NTHUV AC4 2 = TEMP10 (TYPE FIX)>
2144                     <OR TEMP10 #WORD *120* = TEMP10>
2145                     <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
2146                     <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
2147                     <DEAD TEMP10>
2148                     <PUSH 'LONG>
2149                     <CALL '\1aEMIT-MOVE 3>
2150                     <FRAME '\1aLOAD-AC>
2151                     <PUSH AC4>
2152                     <DEAD AC4>
2153                     <PUSH ADDR5>
2154                     <DEAD ADDR5>
2155                     <CALL '\1aLOAD-AC 2 = TEMP10>
2156                     <RETURN TEMP10>
2157                     <DEAD TEMP10>
2158 PHRASE8
2159                     <VEQUAL? LEN6 'WORD - PHRASE12>
2160                     <FRAME '\1aEMIT>
2161                     <PUSH 60>
2162                     <PUSH ADDR5>
2163                     <DEAD ADDR5>
2164                     <NTHUV AC4 2 = TEMP10 (TYPE FIX)>
2165                     <DEAD AC4>
2166                     <OR TEMP10 #WORD *120* = TEMP10>
2167                     <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
2168                     <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
2169                     <DEAD TEMP10>
2170                     <CALL '\1aEMIT 3 = TEMP10>
2171                     <RETURN TEMP10>
2172                     <DEAD TEMP10>
2173 PHRASE12
2174                     <VEQUAL? LEN6 'BYTE + TAG16>
2175                     <DEAD LEN6>
2176                     <RETURN %<>>
2177 TAG16
2178                     <FRAME '\1aEMIT>
2179                     <PUSH 154>
2180                     <PUSH ADDR5>
2181                     <DEAD ADDR5>
2182                     <NTHUV AC4 2 = TEMP10 (TYPE FIX)>
2183                     <DEAD AC4>
2184                     <OR TEMP10 #WORD *120* = TEMP10>
2185                     <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
2186                     <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
2187                     <DEAD TEMP10>
2188                     <CALL '\1aEMIT 3 = TEMP10>
2189                     <RETURN TEMP10>
2190                     <DEAD TEMP10>
2191                     <END \1aMOVE-TO-AC>
2192
2193 #WORD *10356412754*
2194                     <GFCN \1aPREV-AC ("VALUE" <OR AC !<FALSE>> AC) AC4>
2195                     <TEMP ACN5 TEMP12:VECTOR>
2196                     <INTGO>
2197                     <NTHUV AC4 2 = ACN5 (TYPE FIX)>
2198                     <DEAD AC4>
2199                     <VEQUAL? ACN5 0 - PHRASE7 (TYPE FIX)>
2200                     <RETURN %<>>
2201 PHRASE7
2202                     <GVAL 'ALL-ACS = TEMP12>
2203                     <NTHUV TEMP12 ACN5 = ACN5 (TYPE AC)>
2204                     <DEAD TEMP12>
2205                     <RETURN ACN5>
2206                     <DEAD ACN5>
2207                     <END \1aPREV-AC>
2208
2209 #WORD *6641606221*
2210                     <GFCN \1aNEXT-AC ("VALUE" AC ANY) AC4>
2211                     <TEMP ACN5 TEMP6:VECTOR>
2212                     <INTGO>
2213                     <NTHUV AC4 2 = ACN5 (TYPE FIX)>
2214                     <DEAD AC4>
2215                     <GVAL 'ALL-ACS = TEMP6>
2216                     <ADD ACN5 2 = ACN5 (TYPE FIX)>
2217                     <NTHUV TEMP6 ACN5 = ACN5 (TYPE AC)>
2218                     <DEAD TEMP6>
2219                     <RETURN ACN5>
2220                     <DEAD ACN5>
2221                     <END \1aNEXT-AC>