mim/development/mim/vaxc/recordgen.mima

   1
   2 #WORD *15620355001*
   3                     <GFCN \1aPUTR-GEN ("VALUE" ATOM ANY <OR FIX VARTBL> ANY "OPTIONAL" ANY ANY) VAR7 NUM8 VAL9 HINT10 PHINT11>
   4                     <OPT-DISPATCH 3 %<> OPT4 OPT5 OPT6>
   5 OPT4
   6                     <PUSH %<>>
   7 OPT5
   8                     <PUSH %<>>
   9 OPT6
  10                     <TEMP RD12 TEMP42 VAC14 TCOFF16 ANYCOFF19 ETYP13:ATOM>
  11                     <INTGO>
  12                     <TYPE? VAR7 <TYPE-CODE VARTBL> + PHRASE26>
  13                     <FRAME '\1aTYPE>
  14                     <PUSH VAR7>
  15                     <CALL '\1aTYPE 1 = HINT10>
  16 PHRASE26
  17                     <TYPE? PHINT11 <TYPE-CODE FALSE> + PHRASE29>
  18                     <FRAME '\1aPARSE-HINT>
  19                     <PUSH PHINT11>
  20                     <DEAD PHINT11>
  21                     <PUSH 'TYPE>
  22                     <CALL '\1aPARSE-HINT 2 = PHINT11>
  23 PHRASE29
  24                     <TYPE? NUM8 <TYPE-CODE VARTBL> + BOOL33>
  25                     <TYPE? HINT10 <TYPE-CODE FALSE> - PHRASE32>
  26 BOOL33
  27                     <FRAME '\1aCALL-RTE>
  28                     <GVAL 'IPUTR!-MIMOP = STACK>
  29                     <PUSH 'CALL>
  30                     <PUSH %<>>
  31                     <PUSH %<>>
  32                     <PUSH VAR7>
  33                     <DEAD VAR7>
  34                     <PUSH NUM8>
  35                     <DEAD NUM8>
  36                     <PUSH VAL9>
  37                     <DEAD VAL9>
  38                     <CALL '\1aCALL-RTE 7>
  39                     <RETURN 'NORMAL>
  40 PHRASE32
  41                     <FRAME '\1aGET-RELE-DESCRIPTOR>
  42                     <PUSH NUM8>
  43                     <PUSH HINT10>
  44                     <CALL '\1aGET-RELE-DESCRIPTOR 2 = RD12>
  45                     <TYPE? RD12 <TYPE-CODE FALSE> - BOOL36>
  46                     <FRAME '\1aERROR>
  47                     <PUSH "RECORD TYPE NOT FOUND">
  48                     <PUSH NUM8>
  49                     <PUSH HINT10>
  50                     <PUSH 'PUTR-GEN>
  51                     <CALL '\1aERROR 4>
  52 BOOL36
  53                     <GVAL 'MAKTUP-FLAG = TEMP42>
  54                     <TYPE? TEMP42 <TYPE-CODE FALSE> + PHRASE40>
  55                     <DEAD TEMP42>
  56                     <VEQUAL? NUM8 2 - PHRASE40 (TYPE FIX)>
  57                     <DEAD NUM8>
  58                     <EQUAL? VAL9 'UNWIND + BOOL43>
  59                     <EQUAL? VAL9 'T$UNWIND - PHRASE40>
  60 BOOL43
  61                     <TYPE? HINT10 <TYPE-CODE FALSE> + PHRASE40>
  62                     <FRAME '\1aPARSE-HINT>
  63                     <PUSH HINT10>
  64                     <PUSH 'RECORD-TYPE>
  65                     <CALL '\1aPARSE-HINT 2 = TEMP42>
  66                     <TYPE? TEMP42 <TYPE-CODE FALSE> + PHRASE40>
  67                     <EQUAL? TEMP42 'LBIND + BOOL46>
  68                     <EQUAL? TEMP42 'LBIND - PHRASE40>
  69                     <DEAD TEMP42>
  70 BOOL46
  71                     <FRAME '\1aEMIT-PUSH>
  72                     <FRAME '\1aTYPE-WORD>
  73                     <PUSH 'FRAME>
  74                     <CALL '\1aTYPE-WORD 1 = STACK>
  75                     <PUSH 'LONG>
  76                     <CALL '\1aEMIT-PUSH 2>
  77                     <FRAME '\1aEMIT-PUSH>
  78                     <GVAL 'AC-F = TEMP42>
  79                     <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
  80                     <OR TEMP42 #WORD *120* = TEMP42>
  81                     <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
  82                     <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
  83                     <DEAD TEMP42>
  84                     <PUSH 'LONG>
  85                     <CALL '\1aEMIT-PUSH 2>
  86 PHRASE40
  87                     <FRAME '\1aGET-RSTACK?>
  88                     <PUSH HINT10>
  89                     <DEAD HINT10>
  90                     <CALL '\1aGET-RSTACK? 1 = TEMP42>
  91                     <FRAME '\1aPROTECT-VAL>
  92                     <PUSH VAL9>
  93                     <CALL '\1aPROTECT-VAL 1>
  94                     <TYPE? VAR7 <TYPE-CODE VARTBL> - PHRASE53>
  95                     <FRAME '\1aLOAD-VAR>
  96                     <PUSH VAR7>
  97                     <PUSH 'VALUE>
  98                     <PUSH %<>>
  99                     <PUSH 'PREF-VAL>
 100                     <CALL '\1aLOAD-VAR 4 = VAC14>
 101                     <JUMP + PHRASE55>
 102 PHRASE53
 103                     <FRAME '\1aGET-AC>
 104                     <PUSH 'PREF-VAL>
 105                     <PUSH 'T>
 106                     <CALL '\1aGET-AC 2 = VAC14>
 107                     <FRAME '\1aMOVE-VALUE>
 108                     <PUSH VAR7>
 109                     <PUSH VAC14>
 110                     <CALL '\1aMOVE-VALUE 2>
 111 PHRASE55
 112                     <FRAME '\1aPROTECT>
 113                     <PUSH VAC14>
 114                     <CALL '\1aPROTECT 1>
 115                     <FRAME '\1aMA-DISP>
 116                     <PUSH VAC14>
 117                     <NTHUV RD12 2 = STACK (TYPE FIX)>
 118                     <CALL '\1aMA-DISP 2 = TCOFF16>
 119                     <FRAME '\1aMA-DISP>
 120                     <PUSH VAC14>
 121                     <NTHUV RD12 2 = TEMP42 (TYPE FIX)>
 122                     <ADD TEMP42 2 = STACK (TYPE FIX)>
 123                     <DEAD TEMP42>
 124                     <CALL '\1aMA-DISP 2 = ANYCOFF19>
 125                     <FRAME '\1aMA-DISP>
 126                     <PUSH VAC14>
 127                     <DEAD VAC14>
 128                     <NTHUV RD12 1 = STACK (TYPE FIX)>
 129                     <CALL '\1aMA-DISP 2 = VAC14>
 130                     <NTHUV RD12 3 = ETYP13 (TYPE ATOM)>
 131                     <VEQUAL? ETYP13 'ANY - PHRASE63>
 132                     <FRAME '\1aFIX-CONSTANT?>
 133                     <PUSH VAL9>
 134                     <CALL '\1aFIX-CONSTANT? 1 = TEMP42>
 135                     <TYPE? TEMP42 <TYPE-CODE FALSE> - BOOL73>
 136                     <DEAD TEMP42>
 137                     <TYPE? VAL9 <TYPE-CODE VARTBL> - PHRASE65>
 138                     <FRAME '\1aFIND-CACHE-VAR>
 139                     <PUSH VAL9>
 140                     <CALL '\1aFIND-CACHE-VAR 1 = RD12>
 141                     <TYPE? RD12 <TYPE-CODE FALSE> + PHRASE65>
 142                     <NTHUV RD12 2 = TEMP42>
 143                     <TYPE? TEMP42 <TYPE-CODE FALSE> + BOOL70>
 144                     <DEAD TEMP42>
 145                     <NTHUV RD12 4 = TEMP42>
 146                     <TYPE? TEMP42 <TYPE-CODE FALSE> + BOOL70>
 147                     <DEAD TEMP42>
 148                     <NTHUV RD12 3 = TEMP42>
 149                     <TYPE? TEMP42 <TYPE-CODE FALSE> - PHRASE65>
 150                     <DEAD TEMP42>
 151 BOOL70
 152                     <NTHUV RD12 9 = TEMP42>
 153                     <TYPE? TEMP42 <TYPE-CODE FALSE> + BOOL73>
 154                     <NTHUV RD12 6 = RD12>
 155                     <FRAME '\1aNEXT-AC>
 156                     <PUSH TEMP42>
 157                     <DEAD TEMP42>
 158                     <CALL '\1aNEXT-AC 1 = TEMP42>
 159                     <EQUAL? RD12 TEMP42 + PHRASE65>
 160                     <DEAD RD12 TEMP42>
 161 BOOL73
 162                     <FRAME '\1aMOVE-VALUE>
 163                     <PUSH VAL9>
 164                     <PUSH VAC14>
 165                     <DEAD VAC14>
 166                     <CALL '\1aMOVE-VALUE 2>
 167                     <FRAME '\1aMOVE-TYPE>
 168                     <PUSH VAL9>
 169                     <DEAD VAL9>
 170                     <PUSH TCOFF16>
 171                     <DEAD TCOFF16>
 172                     <PUSH ANYCOFF19>
 173                     <DEAD ANYCOFF19>
 174                     <CALL '\1aMOVE-TYPE 3>
 175                     <JUMP + PHRASE164>
 176 PHRASE65
 177                     <TYPE? VAL9 <TYPE-CODE VARTBL> - PHRASE79>
 178                     <FRAME '\1aEMIT>
 179                     <PUSH 125>
 180                     <FRAME '\1aVAR-TYPE-ADDRESS>
 181                     <PUSH VAL9>
 182                     <DEAD VAL9>
 183                     <PUSH 'TYPE-WORD>
 184                     <CALL '\1aVAR-TYPE-ADDRESS 2 = STACK>
 185                     <PUSH TCOFF16>
 186                     <DEAD TCOFF16>
 187                     <CALL '\1aEMIT 3>
 188                     <JUMP + PHRASE164>
 189 PHRASE79
 190                     <FRAME '\1aEMIT>
 191                     <PUSH 125>
 192                     <FRAME '\1aADDR-TYPE-MQUOTE>
 193                     <PUSH VAL9>
 194                     <DEAD VAL9>
 195                     <CALL '\1aADDR-TYPE-MQUOTE 1 = STACK>
 196                     <PUSH TCOFF16>
 197                     <DEAD TCOFF16>
 198                     <CALL '\1aEMIT 3>
 199                     <JUMP + PHRASE164>
 200 PHRASE63
 201                     <VEQUAL? ETYP13 'SMALL-INT + BOOL86>
 202                     <VEQUAL? ETYP13 'SMALL-POS-INT - PHRASE85>
 203 BOOL86
 204                     <TYPE? VAL9 <TYPE-CODE FIX> - PHRASE88>
 205                     <FRAME '\1aEMIT-MOVE>
 206                     <FRAME '\1aMA-IMM>
 207                     <PUSH VAL9>
 208                     <DEAD VAL9>
 209                     <CALL '\1aMA-IMM 1 = STACK>
 210                     <PUSH VAC14>
 211                     <DEAD VAC14>
 212                     <PUSH 'WORD>
 213                     <CALL '\1aEMIT-MOVE 3>
 214                     <JUMP + PHRASE164>
 215 PHRASE88
 216                     <TYPE? VAL9 <TYPE-CODE VARTBL> - PHRASE91>
 217                     <FRAME '\1aVAR-VALUE-IN-AC?>
 218                     <PUSH VAL9>
 219                     <CALL '\1aVAR-VALUE-IN-AC? 1 = RD12>
 220                     <TYPE? RD12 <TYPE-CODE FALSE> + PHRASE93>
 221                     <FRAME '\1aEMIT-MOVE>
 222                     <NTHUV RD12 2 = TEMP42 (TYPE FIX)>
 223                     <DEAD RD12>
 224                     <OR TEMP42 #WORD *120* = TEMP42>
 225                     <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
 226                     <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
 227                     <DEAD TEMP42>
 228                     <PUSH VAC14>
 229                     <DEAD VAC14>
 230                     <PUSH 'WORD>
 231                     <CALL '\1aEMIT-MOVE 3>
 232                     <JUMP + PHRASE164>
 233 PHRASE93
 234                     <FRAME '\1aMA-DISP>
 235                     <GVAL 'AC-F = STACK>
 236                     <NTHUV VAL9 2 = TEMP42 (TYPE FIX)>
 237                     <DEAD VAL9>
 238                     <ADD TEMP42 2 = STACK (TYPE FIX)>
 239                     <DEAD TEMP42>
 240                     <CALL '\1aMA-DISP 2 = RD12>
 241                     <FRAME '\1aEMIT-MOVE>
 242                     <PUSH RD12>
 243                     <DEAD RD12>
 244                     <PUSH VAC14>
 245                     <DEAD VAC14>
 246                     <PUSH 'WORD>
 247                     <CALL '\1aEMIT-MOVE 3>
 248                     <JUMP + PHRASE164>
 249 PHRASE91
 250                     <FRAME '\1aERROR>
 251                     <PUSH "BAD ARGUMENT">
 252                     <PUSH 'PUT-RECORD>
 253                     <CALL '\1aERROR 2>
 254                     <JUMP + PHRASE164>
 255 PHRASE85
 256                     <VEQUAL? ETYP13 'TYPE-C + BOOL101>
 257                     <VEQUAL? ETYP13 'VWORD1 - PHRASE100>
 258 BOOL101
 259                     <NTHUV RD12 5 = TEMP42>
 260                     <DEAD RD12>
 261                     <TYPE? TEMP42 <TYPE-CODE FALSE> + PHRASE103>
 262                     <DEAD TEMP42>
 263                     <EQUAL? VAL9 %<> + BOOL106>
 264                     <TYPE? VAL9 <TYPE-CODE VARTBL> - BOOL107>
 265                     <FRAME '\1aVARTBL-DECL>
 266                     <PUSH VAL9>
 267                     <CALL '\1aVARTBL-DECL 1 = TEMP42>
 268                     <EQUAL? TEMP42 'FALSE + BOOL106>
 269                     <DEAD TEMP42>
 270 BOOL107
 271                     <EQUAL? PHINT11 'FALSE - PHRASE105>
 272 BOOL106
 273                     <VEQUAL? ETYP13 'TYPE-C - PHRASE110>
 274                     <DEAD ETYP13>
 275                     <FRAME '\1aEMIT>
 276                     <PUSH 178>
 277                     <FRAME '\1aMA-IMM>
 278                     <PUSH 0>
 279                     <CALL '\1aMA-IMM 1 = STACK>
 280                     <PUSH VAC14>
 281                     <DEAD VAC14>
 282                     <CALL '\1aEMIT 3>
 283                     <JUMP + PHRASE164>
 284 PHRASE110
 285                     <FRAME '\1aEMIT>
 286                     <PUSH 212>
 287                     <PUSH VAC14>
 288                     <DEAD VAC14>
 289                     <CALL '\1aEMIT 2>
 290                     <JUMP + PHRASE164>
 291 PHRASE105
 292                     <TYPE? VAL9 <TYPE-CODE VARTBL> - BOOL116>
 293                     <FRAME '\1aVARTBL-DECL>
 294                     <PUSH VAL9>
 295                     <CALL '\1aVARTBL-DECL 1 = TEMP42>
 296                     <TYPE? TEMP42 <TYPE-CODE FALSE> - BOOL116>
 297                     <DEAD TEMP42>
 298                     <TYPE? PHINT11 <TYPE-CODE FALSE> + PHRASE115>
 299                     <DEAD PHINT11>
 300 BOOL116
 301                     <VEQUAL? ETYP13 'TYPE-C - PHRASE119>
 302                     <DEAD ETYP13>
 303                     <FRAME '\1aEMIT>
 304                     <PUSH 176>
 305                     <TYPE? VAL9 <TYPE-CODE VARTBL> - PHRASE122>
 306                     <FRAME '\1aVAR-VALUE-ADDRESS>
 307                     <PUSH VAL9>
 308                     <DEAD VAL9>
 309                     <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP42>
 310                     <JUMP + PHRASE124>
 311 PHRASE122
 312                     <FRAME '\1aMA-IMM>
 313                     <PUSH VAL9>
 314                     <DEAD VAL9>
 315                     <CALL '\1aMA-IMM 1 = TEMP42>
 316 PHRASE124
 317                     <PUSH TEMP42>
 318                     <DEAD TEMP42>
 319                     <PUSH VAC14>
 320                     <DEAD VAC14>
 321                     <CALL '\1aEMIT 3>
 322                     <JUMP + PHRASE164>
 323 PHRASE119
 324                     <FRAME '\1aMOVE-VALUE>
 325                     <PUSH VAL9>
 326                     <DEAD VAL9>
 327                     <PUSH VAC14>
 328                     <DEAD VAC14>
 329                     <CALL '\1aMOVE-VALUE 2>
 330                     <JUMP + PHRASE164>
 331 PHRASE115
 332                     <FRAME '\1aTESTSET>
 333                     <PUSH VAL9>
 334                     <DEAD VAL9>
 335                     <PUSH VAC14>
 336                     <DEAD VAC14>
 337                     <PUSH %<>>
 338                     <VEQUAL? ETYP13 'TYPE-C - TAG130>
 339                     <DEAD ETYP13>
 340                     <PUSH 'T>
 341                     <JUMP + TAG131>
 342 TAG130
 343                     <PUSH %<>>
 344 TAG131
 345                     <CALL '\1aTESTSET 4>
 346                     <JUMP + PHRASE164>
 347 PHRASE103
 348                     <FRAME '\1aMOVE-VALUE>
 349                     <PUSH VAL9>
 350                     <DEAD VAL9>
 351                     <PUSH VAC14>
 352                     <DEAD VAC14>
 353                     <CALL '\1aMOVE-VALUE 2>
 354                     <JUMP + PHRASE164>
 355 PHRASE100
 356                     <VEQUAL? ETYP13 'COUNTVWORD - PHRASE134>
 357                     <NTHUV RD12 5 = TEMP42>
 358                     <TYPE? TEMP42 <TYPE-CODE FALSE> + PHRASE136>
 359                     <DEAD TEMP42>
 360                     <EQUAL? VAL9 %<> + BOOL138>
 361                     <FRAME '\1aVARTBL-DECL>
 362                     <PUSH VAR7>
 363                     <DEAD VAR7>
 364                     <CALL '\1aVARTBL-DECL 1 = TEMP42>
 365                     <EQUAL? TEMP42 'FALSE + BOOL138>
 366                     <DEAD TEMP42>
 367                     <EQUAL? PHINT11 'FALSE - PHRASE136>
 368 BOOL138
 369                     <FRAME '\1aEMIT>
 370                     <PUSH 212>
 371                     <PUSH VAC14>
 372                     <DEAD VAC14>
 373                     <CALL '\1aEMIT 2>
 374                     <FRAME '\1aEMIT>
 375                     <PUSH 180>
 376                     <PUSH TCOFF16>
 377                     <DEAD TCOFF16>
 378                     <CALL '\1aEMIT 2>
 379                     <JUMP + PHRASE164>
 380 PHRASE136
 381                     <TYPE? VAL9 <TYPE-CODE VARTBL> - PHRASE142>
 382                     <NTHUV RD12 5 = TEMP42>
 383                     <DEAD RD12>
 384                     <TYPE? TEMP42 <TYPE-CODE FALSE> + BOOL145>
 385                     <DEAD TEMP42>
 386                     <TYPE? PHINT11 <TYPE-CODE FALSE> - BOOL145>
 387                     <DEAD PHINT11>
 388                     <FRAME '\1aVARTBL-DECL>
 389                     <PUSH VAL9>
 390                     <CALL '\1aVARTBL-DECL 1 = TEMP42>
 391                     <TYPE? TEMP42 <TYPE-CODE FALSE> + PHRASE144>
 392                     <DEAD TEMP42>
 393 BOOL145
 394                     <FRAME '\1aMOVE-VALUE>
 395                     <PUSH VAL9>
 396                     <PUSH VAC14>
 397                     <DEAD VAC14>
 398                     <CALL '\1aMOVE-VALUE 2>
 399                     <FRAME '\1aCOUNT-STORE-REC>
 400                     <PUSH VAL9>
 401                     <DEAD VAL9>
 402                     <PUSH TCOFF16>
 403                     <DEAD TCOFF16>
 404                     <CALL '\1aCOUNT-STORE-REC 2>
 405                     <JUMP + PHRASE164>
 406 PHRASE144
 407                     <FRAME '\1aTESTSET>
 408                     <PUSH VAL9>
 409                     <DEAD VAL9>
 410                     <PUSH VAC14>
 411                     <DEAD VAC14>
 412                     <PUSH TCOFF16>
 413                     <DEAD TCOFF16>
 414                     <CALL '\1aTESTSET 3>
 415                     <JUMP + PHRASE164>
 416 PHRASE142
 417                     <FRAME '\1aMOVE-VALUE>
 418                     <PUSH VAL9>
 419                     <PUSH VAC14>
 420                     <DEAD VAC14>
 421                     <CALL '\1aMOVE-VALUE 2>
 422                     <FRAME '\1aEMIT-MOVE>
 423                     <FRAME '\1aMA-IMM>
 424                     <FRAME '\1aLENGTH>
 425                     <PUSH VAL9>
 426                     <DEAD VAL9>
 427                     <CALL '\1aLENGTH 1 = STACK>
 428                     <CALL '\1aMA-IMM 1 = STACK>
 429                     <PUSH TCOFF16>
 430                     <DEAD TCOFF16>
 431                     <PUSH 'WORD>
 432                     <CALL '\1aEMIT-MOVE 3>
 433                     <JUMP + PHRASE164>
 434 PHRASE134
 435                     <VEQUAL? ETYP13 'BYTE - PHRASE156>
 436                     <TYPE? VAL9 <TYPE-CODE FIX> - PHRASE158>
 437                     <FRAME '\1aEMIT-MOVE>
 438                     <FRAME '\1aMA-IMM>
 439                     <PUSH VAL9>
 440                     <DEAD VAL9>
 441                     <CALL '\1aMA-IMM 1 = STACK>
 442                     <PUSH VAC14>
 443                     <DEAD VAC14>
 444                     <PUSH 'BYTE>
 445                     <CALL '\1aEMIT-MOVE 3>
 446                     <JUMP + PHRASE164>
 447 PHRASE158
 448                     <FRAME '\1aEMIT-MOVE>
 449                     <FRAME '\1aVAR-VALUE-ADDRESS>
 450                     <PUSH VAL9>
 451                     <DEAD VAL9>
 452                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
 453                     <PUSH VAC14>
 454                     <DEAD VAC14>
 455                     <PUSH 'BYTE>
 456                     <CALL '\1aEMIT-MOVE 3>
 457                     <JUMP + PHRASE164>
 458 PHRASE156
 459                     <VEQUAL? ETYP13 'BOOLEAN - PHRASE164>
 460                     <DEAD ETYP13>
 461                     <FRAME '\1aTEST-BOOL>
 462                     <PUSH VAC14>
 463                     <DEAD VAC14>
 464                     <NTHUV RD12 4 = STACK (TYPE FIX)>
 465                     <DEAD RD12>
 466                     <PUSH VAL9>
 467                     <DEAD VAL9>
 468                     <CALL '\1aTEST-BOOL 3>
 469 PHRASE164
 470                     <FRAME '\1aCLEAR-STATUS>
 471                     <CALL '\1aCLEAR-STATUS 0>
 472                     <RETURN 'NORMAL>
 473                     <END \1aPUTR-GEN>
 474
 475 #WORD *2765352447*
 476                     <GFCN \1aTESTSET ("VALUE" ANY VARTBL EFF-ADDR <OR FIX FALSE EFF-ADDR> "OPTIONAL" ANY) VAR6 VADDR7 TCADDR8 HW9>
 477                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
 478 OPT4
 479                     <PUSH %<>>
 480 OPT5
 481                     <TEMP FLAB11 TEMP17 ELAB10>
 482                     <INTGO>
 483                     <FRAME '\1aMAKE-LABEL>
 484                     <CALL '\1aMAKE-LABEL 0 = FLAB11>
 485                     <FRAME '\1aTYPE-TST-GEN>
 486                     <PUSH VAR6>
 487                     <PUSH 'FALSE>
 488                     <PUSH '->
 489                     <PUSH FLAB11>
 490                     <CALL '\1aTYPE-TST-GEN 4>
 491                     <FRAME '\1aEMIT>
 492                     <TYPE? HW9 <TYPE-CODE FALSE> + PHRASE16>
 493                     <SET TEMP17 180 (TYPE FIX)>
 494                     <JUMP + PHRASE18>
 495 PHRASE16
 496                     <SET TEMP17 212 (TYPE FIX)>
 497 PHRASE18
 498                     <PUSH TEMP17>
 499                     <DEAD TEMP17>
 500                     <PUSH VADDR7>
 501                     <CALL '\1aEMIT 2>
 502                     <TYPE? TCADDR8 <TYPE-CODE EFF-ADDR> - BOOL19>
 503                     <FRAME '\1aEMIT>
 504                     <PUSH 180>
 505                     <PUSH TCADDR8>
 506                     <CALL '\1aEMIT 2>
 507 BOOL19
 508                     <FRAME '\1aMAKE-LABEL>
 509                     <CALL '\1aMAKE-LABEL 0 = ELAB10>
 510                     <FRAME '\1aGEN-BRANCH>
 511                     <PUSH 17>
 512                     <PUSH ELAB10>
 513                     <PUSH %<>>
 514                     <CALL '\1aGEN-BRANCH 3>
 515                     <FRAME '\1aEMIT-LABEL>
 516                     <PUSH FLAB11>
 517                     <DEAD FLAB11>
 518                     <PUSH %<>>
 519                     <CALL '\1aEMIT-LABEL 2>
 520                     <FRAME '\1aEMIT-MOVE>
 521                     <FRAME '\1aVAR-VALUE-ADDRESS>
 522                     <PUSH VAR6>
 523                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
 524                     <PUSH VADDR7>
 525                     <DEAD VADDR7>
 526                     <TYPE? HW9 <TYPE-CODE FALSE> + PHRASE27>
 527                     <DEAD HW9>
 528                     <SET TEMP17 'WORD (TYPE ATOM)>
 529                     <JUMP + PHRASE28>
 530 PHRASE27
 531                     <SET TEMP17 'LONG (TYPE ATOM)>
 532 PHRASE28
 533                     <PUSH TEMP17>
 534                     <DEAD TEMP17>
 535                     <CALL '\1aEMIT-MOVE 3>
 536                     <TYPE? TCADDR8 <TYPE-CODE EFF-ADDR> - PHRASE30>
 537                     <FRAME '\1aCOUNT-STORE-REC>
 538                     <PUSH VAR6>
 539                     <DEAD VAR6>
 540                     <PUSH TCADDR8>
 541                     <DEAD TCADDR8>
 542                     <CALL '\1aCOUNT-STORE-REC 2>
 543 PHRASE30
 544                     <FRAME '\1aEMIT-LABEL>
 545                     <PUSH ELAB10>
 546                     <DEAD ELAB10>
 547                     <PUSH %<>>
 548                     <CALL '\1aEMIT-LABEL 2 = TEMP17>
 549                     <RETURN TEMP17>
 550                     <DEAD TEMP17>
 551                     <END \1aTESTSET>
 552
 553 #WORD *32051763072*
 554                     <GFCN \1aTEST-BOOL ("VALUE" ANY EFF-ADDR FIX VARTBL) VCADDR4 BITNO5 VAL6>
 555                     <TEMP FLAB7>
 556                     <INTGO>
 557                     <FRAME '\1aMAKE-LABEL>
 558                     <CALL '\1aMAKE-LABEL 0 = FLAB7>
 559                     <FRAME '\1aTYPE-TST-GEN>
 560                     <PUSH VAL6>
 561                     <DEAD VAL6>
 562                     <PUSH 'FALSE>
 563                     <PUSH '->
 564                     <PUSH FLAB7>
 565                     <DEAD FLAB7>
 566                     <CALL '\1aTYPE-TST-GEN 4>
 567                     <FRAME '\1aEMIT>
 568                     <PUSH 202>
 569                     <PUSH VCADDR4>
 570                     <FRAME '\1aMA-IMM>
 571                     <LSH 1 BITNO5 = STACK (TYPE FIX)>
 572                     <CALL '\1aMA-IMM 1 = STACK>
 573                     <CALL '\1aEMIT 3>
 574                     <FRAME '\1aMAKE-LABEL>
 575                     <CALL '\1aMAKE-LABEL 0 = FLAB7>
 576                     <FRAME '\1aGEN-BRANCH>
 577                     <PUSH 17>
 578                     <PUSH FLAB7>
 579                     <PUSH %<>>
 580                     <CALL '\1aGEN-BRANCH 3>
 581                     <FRAME '\1aEMIT>
 582                     <GVAL 'INST-BISL = STACK>
 583                     <PUSH VCADDR4>
 584                     <DEAD VCADDR4>
 585                     <FRAME '\1aMA-IMM>
 586                     <LSH 1 BITNO5 = STACK (TYPE FIX)>
 587                     <DEAD BITNO5>
 588                     <CALL '\1aMA-IMM 1 = STACK>
 589                     <CALL '\1aEMIT 3>
 590                     <FRAME '\1aEMIT-LABEL>
 591                     <PUSH FLAB7>
 592                     <DEAD FLAB7>
 593                     <PUSH %<>>
 594                     <CALL '\1aEMIT-LABEL 2 = FLAB7>
 595                     <RETURN FLAB7>
 596                     <DEAD FLAB7>
 597                     <END \1aTEST-BOOL>
 598
 599 #WORD *1463367306*
 600                     <GFCN \1aNTH-RECORD-GEN ("VALUE" ATOM ANY <OR VARTBL FIX> <OR ATOM VARTBL> "OPTIONAL" ANY <OR FALSE HINT>) VAR7 OFF8 RES9 HINT110 HINT211>
 601                     <OPT-DISPATCH 3 %<> OPT4 OPT5 OPT6>
 602 OPT4
 603                     <PUSH %<>>
 604 OPT5
 605                     <PUSH %<>>
 606 OPT6
 607                     <TEMP (BRANCH?13 %<>) RD12 STACK?23 NTYP20 VAC14 TCOFF16 TEMP51 VOFF18 ETYP22:ATOM>
 608                     <INTGO>
 609                     <TYPE? VAR7 <TYPE-CODE VARTBL> + PHRASE26>
 610                     <FRAME '\1aTYPE>
 611                     <PUSH VAR7>
 612                     <CALL '\1aTYPE 1 = HINT110>
 613 PHRASE26
 614                     <TYPE? HINT110 <TYPE-CODE FALSE> + BOOL30>
 615                     <TYPE? OFF8 <TYPE-CODE VARTBL> - PHRASE29>
 616 BOOL30
 617                     <FRAME '\1aCALL-RTE>
 618                     <GVAL 'INTHR!-MIMOP = STACK>
 619                     <PUSH 'CALL>
 620                     <PUSH RES9>
 621                     <DEAD RES9>
 622                     <PUSH %<>>
 623                     <PUSH VAR7>
 624                     <DEAD VAR7>
 625                     <PUSH OFF8>
 626                     <DEAD OFF8>
 627                     <CALL '\1aCALL-RTE 6>
 628                     <RETURN 'NORMAL>
 629 PHRASE29
 630                     <FRAME '\1aGET-RELE-DESCRIPTOR>
 631                     <PUSH OFF8>
 632                     <PUSH HINT110>
 633                     <CALL '\1aGET-RELE-DESCRIPTOR 2 = RD12>
 634                     <TYPE? RD12 <TYPE-CODE FALSE> - BOOL33>
 635                     <FRAME '\1aERROR>
 636                     <PUSH "RECORD TYPE NOT FOUND">
 637                     <PUSH HINT110>
 638                     <PUSH OFF8>
 639                     <DEAD OFF8>
 640                     <PUSH 'NTH-RECORD-GEN>
 641                     <CALL '\1aERROR 4>
 642 BOOL33
 643                     <FRAME '\1aGET-RSTACK?>
 644                     <PUSH HINT110>
 645                     <DEAD HINT110>
 646                     <CALL '\1aGET-RSTACK? 1 = STACK?23>
 647                     <NTHUV RD12 7 = STACK?23>
 648                     <SET NTYP20 HINT211>
 649                     <TYPE? NTYP20 <TYPE-CODE FALSE> + BOOL37>
 650                     <FRAME '\1aPARSE-HINT>
 651                     <PUSH HINT211>
 652                     <PUSH 'TYPE>
 653                     <CALL '\1aPARSE-HINT 2 = NTYP20>
 654 BOOL37
 655                     <EQUAL? RES9 'STACK + PHRASE40>
 656                     <FRAME '\1aGET-RELE-BRANCH?>
 657                     <PUSH HINT211>
 658                     <DEAD HINT211>
 659                     <CALL '\1aGET-RELE-BRANCH? 1 = BRANCH?13>
 660 PHRASE40
 661                     <TYPE? VAR7 <TYPE-CODE VARTBL> - PHRASE43>
 662                     <FRAME '\1aLOAD-VAR>
 663                     <PUSH VAR7>
 664                     <PUSH 'VALUE>
 665                     <PUSH %<>>
 666                     <PUSH 'PREF-VAL>
 667                     <CALL '\1aLOAD-VAR 4 = VAC14>
 668                     <JUMP + PHRASE45>
 669 PHRASE43
 670                     <FRAME '\1aGET-AC>
 671                     <PUSH 'VALUE>
 672                     <PUSH 'T>
 673                     <CALL '\1aGET-AC 2 = VAC14>
 674                     <FRAME '\1aMOVE-VALUE>
 675                     <PUSH VAR7>
 676                     <PUSH VAC14>
 677                     <CALL '\1aMOVE-VALUE 2>
 678 PHRASE45
 679                     <FRAME '\1aPROTECT>
 680                     <PUSH VAC14>
 681                     <CALL '\1aPROTECT 1>
 682                     <FRAME '\1aMA-DISP>
 683                     <PUSH VAC14>
 684                     <NTHUV RD12 2 = STACK (TYPE FIX)>
 685                     <CALL '\1aMA-DISP 2 = TCOFF16>
 686                     <FRAME '\1aMA-DISP>
 687                     <PUSH VAC14>
 688                     <NTHUV RD12 2 = TEMP51 (TYPE FIX)>
 689                     <ADD TEMP51 2 = STACK (TYPE FIX)>
 690                     <DEAD TEMP51>
 691                     <CALL '\1aMA-DISP 2 = TEMP51>
 692                     <FRAME '\1aMA-DISP>
 693                     <PUSH VAC14>
 694                     <NTHUV RD12 1 = STACK (TYPE FIX)>
 695                     <CALL '\1aMA-DISP 2 = VOFF18>
 696                     <EQUAL? VAR7 RES9 - PHRASE54>
 697                     <FRAME '\1aDEAD-VAR>
 698                     <PUSH VAR7>
 699                     <DEAD VAR7>
 700                     <CALL '\1aDEAD-VAR 1>
 701 PHRASE54
 702                     <NTHUV RD12 3 = ETYP22 (TYPE ATOM)>
 703                     <VEQUAL? ETYP22 'ANY - PHRASE57>
 704                     <FRAME '\1aRANY-OFF>
 705                     <PUSH RES9>
 706                     <DEAD RES9>
 707                     <PUSH TCOFF16>
 708                     <DEAD TCOFF16>
 709                     <PUSH VOFF18>
 710                     <DEAD VOFF18>
 711                     <PUSH VAC14>
 712                     <DEAD VAC14>
 713                     <CALL '\1aRANY-OFF 4>
 714                     <RETURN 'NORMAL>
 715 PHRASE57
 716                     <VEQUAL? ETYP22 'VWORD1 + BOOL61>
 717                     <VEQUAL? ETYP22 'COUNTVWORD - PHRASE59>
 718 BOOL61
 719                     <TYPE? BRANCH?13 <TYPE-CODE FALSE> + PHRASE59>
 720                     <FRAME '\1aBRANCH-VALUE>
 721                     <PUSH VOFF18>
 722                     <PUSH BRANCH?13>
 723                     <DEAD BRANCH?13>
 724                     <NTHUV RD12 6 = STACK>
 725                     <CALL '\1aBRANCH-VALUE 3 = BRANCH?13>
 726                     <FRAME '\1aGEN-NTH>
 727                     <PUSH VOFF18>
 728                     <DEAD VOFF18>
 729                     <PUSH STACK?23>
 730                     <DEAD STACK?23>
 731                     <PUSH VAC14>
 732                     <DEAD VAC14>
 733                     <PUSH RES9>
 734                     <DEAD RES9>
 735                     <NTHUV RD12 6 = STACK>
 736                     <PUSH %<>>
 737                     <NTHUV RD12 6 = TEMP51>
 738                     <TYPE? TEMP51 <TYPE-CODE FALSE> + PHRASE65>
 739                     <SET TEMP51 BRANCH?13>
 740 PHRASE65
 741                     <PUSH TEMP51>
 742                     <DEAD TEMP51>
 743                     <NTHUV RD12 6 = TEMP51>
 744                     <DEAD RD12>
 745                     <TYPE? TEMP51 <TYPE-CODE FALSE> + PHRASE67>
 746                     <DEAD TEMP51>
 747                     <FRAME '\1aNEXT-AC>
 748                     <PUSH BRANCH?13>
 749                     <DEAD BRANCH?13>
 750                     <CALL '\1aNEXT-AC 1 = TEMP51>
 751                     <JUMP + PHRASE69>
 752 PHRASE67
 753                     <SET TEMP51 BRANCH?13>
 754                     <DEAD BRANCH?13>
 755 PHRASE69
 756                     <PUSH TEMP51>
 757                     <DEAD TEMP51>
 758                     <CALL '\1aGEN-NTH 8>
 759                     <RETURN 'NORMAL>
 760 PHRASE59
 761                     <VEQUAL? ETYP22 'TYPE-C - PHRASE70>
 762                     <TYPE? BRANCH?13 <TYPE-CODE FALSE> + PHRASE70>
 763                     <FRAME '\1aBRANCH-HW>
 764                     <PUSH VOFF18>
 765                     <PUSH BRANCH?13>
 766                     <DEAD BRANCH?13>
 767                     <CALL '\1aBRANCH-HW 2 = BRANCH?13>
 768                     <FRAME '\1aGEN-NTH>
 769                     <PUSH VOFF18>
 770                     <DEAD VOFF18>
 771                     <PUSH STACK?23>
 772                     <DEAD STACK?23>
 773                     <PUSH VAC14>
 774                     <DEAD VAC14>
 775                     <PUSH RES9>
 776                     <DEAD RES9>
 777                     <NTHUV RD12 6 = STACK>
 778                     <DEAD RD12>
 779                     <PUSH 'T>
 780                     <PUSH %<>>
 781                     <PUSH BRANCH?13>
 782                     <DEAD BRANCH?13>
 783                     <CALL '\1aGEN-NTH 8>
 784                     <RETURN 'NORMAL>
 785 PHRASE70
 786                     <VEQUAL? ETYP22 'VWORD1 + BOOL75>
 787                     <VEQUAL? ETYP22 'TYPE-C - PHRASE74>
 788 BOOL75
 789                     <NTHUV RD12 5 = TEMP51>
 790                     <TYPE? TEMP51 <TYPE-CODE FALSE> + PHRASE77>
 791                     <DEAD TEMP51>
 792                     <FRAME '\1aTEST-NTH>
 793                     <PUSH VOFF18>
 794                     <DEAD VOFF18>
 795                     <PUSH STACK?23>
 796                     <DEAD STACK?23>
 797                     <PUSH VAC14>
 798                     <DEAD VAC14>
 799                     <PUSH RES9>
 800                     <DEAD RES9>
 801                     <NTHUV RD12 6 = STACK>
 802                     <DEAD RD12>
 803                     <PUSH NTYP20>
 804                     <DEAD NTYP20>
 805                     <VEQUAL? ETYP22 'TYPE-C - TAG79>
 806                     <DEAD ETYP22>
 807                     <PUSH 'T>
 808                     <JUMP + TAG80>
 809 TAG79
 810                     <PUSH %<>>
 811 TAG80
 812                     <CALL '\1aTEST-NTH 7>
 813                     <RETURN 'NORMAL>
 814 PHRASE77
 815                     <FRAME '\1aGEN-NTH>
 816                     <PUSH VOFF18>
 817                     <DEAD VOFF18>
 818                     <PUSH STACK?23>
 819                     <DEAD STACK?23>
 820                     <PUSH VAC14>
 821                     <DEAD VAC14>
 822                     <PUSH RES9>
 823                     <DEAD RES9>
 824                     <NTHUV RD12 6 = STACK>
 825                     <DEAD RD12>
 826                     <VEQUAL? ETYP22 'TYPE-C - TAG82>
 827                     <DEAD ETYP22>
 828                     <PUSH 'T>
 829                     <JUMP + TAG83>
 830 TAG82
 831                     <PUSH %<>>
 832 TAG83
 833                     <CALL '\1aGEN-NTH 6>
 834                     <RETURN 'NORMAL>
 835 PHRASE74
 836                     <VEQUAL? ETYP22 'COUNTVWORD - PHRASE84>
 837                     <NTHUV RD12 5 = TEMP51>
 838                     <DEAD RD12>
 839                     <TYPE? TEMP51 <TYPE-CODE FALSE> + PHRASE86>
 840                     <DEAD TEMP51>
 841                     <FRAME '\1aTEST-NTH>
 842                     <PUSH VOFF18>
 843                     <DEAD VOFF18>
 844                     <PUSH STACK?23>
 845                     <DEAD STACK?23>
 846                     <PUSH VAC14>
 847                     <DEAD VAC14>
 848                     <PUSH RES9>
 849                     <DEAD RES9>
 850                     <PUSH TCOFF16>
 851                     <DEAD TCOFF16>
 852                     <PUSH NTYP20>
 853                     <DEAD NTYP20>
 854                     <CALL '\1aTEST-NTH 6>
 855                     <RETURN 'NORMAL>
 856 PHRASE86
 857                     <FRAME '\1aGEN-NTH>
 858                     <PUSH VOFF18>
 859                     <DEAD VOFF18>
 860                     <PUSH STACK?23>
 861                     <DEAD STACK?23>
 862                     <PUSH VAC14>
 863                     <DEAD VAC14>
 864                     <PUSH RES9>
 865                     <DEAD RES9>
 866                     <PUSH TCOFF16>
 867                     <DEAD TCOFF16>
 868                     <CALL '\1aGEN-NTH 5>
 869                     <RETURN 'NORMAL>
 870 PHRASE84
 871                     <VEQUAL? ETYP22 'SMALL-FR-OFFSET - PHRASE89>
 872                     <FRAME '\1aPROTECT>
 873                     <FRAME '\1aGET-AC>
 874                     <PUSH 'PREF-VAL>
 875                     <PUSH 'T>
 876                     <CALL '\1aGET-AC 2 = BRANCH?13>
 877                     <PUSH BRANCH?13>
 878                     <CALL '\1aPROTECT 1>
 879                     <FRAME '\1aEMIT>
 880                     <PUSH 50>
 881                     <PUSH VOFF18>
 882                     <DEAD VOFF18>
 883                     <NTHUV BRANCH?13 2 = TEMP51 (TYPE FIX)>
 884                     <OR TEMP51 #WORD *120* = TEMP51>
 885                     <LSH TEMP51 24 = TEMP51 (TYPE FIX)>
 886                     <CHTYPE TEMP51 <TYPE-CODE EFF-ADDR> = STACK>
 887                     <DEAD TEMP51>
 888                     <CALL '\1aEMIT 3>
 889                     <FRAME '\1aEMIT>
 890                     <PUSH 192>
 891                     <NTHUV VAC14 2 = TEMP51 (TYPE FIX)>
 892                     <DEAD VAC14>
 893                     <OR TEMP51 #WORD *120* = TEMP51>
 894                     <LSH TEMP51 24 = TEMP51 (TYPE FIX)>
 895                     <CHTYPE TEMP51 <TYPE-CODE EFF-ADDR> = STACK>
 896                     <DEAD TEMP51>
 897                     <NTHUV BRANCH?13 2 = TEMP51 (TYPE FIX)>
 898                     <OR TEMP51 #WORD *120* = TEMP51>
 899                     <LSH TEMP51 24 = TEMP51 (TYPE FIX)>
 900                     <CHTYPE TEMP51 <TYPE-CODE EFF-ADDR> = STACK>
 901                     <DEAD TEMP51>
 902                     <CALL '\1aEMIT 3>
 903                     <FRAME '\1aDEST-DECL>
 904                     <PUSH BRANCH?13>
 905                     <DEAD BRANCH?13>
 906                     <PUSH RES9>
 907                     <DEAD RES9>
 908                     <PUSH 'LBIND>
 909                     <CALL '\1aDEST-DECL 3>
 910                     <RETURN 'NORMAL>
 911 PHRASE89
 912                     <VEQUAL? ETYP22 'SMALL-INT + BOOL96>
 913                     <VEQUAL? ETYP22 'SMALL-POS-INT - PHRASE95>
 914 BOOL96
 915                     <FRAME '\1aPROTECT>
 916                     <FRAME '\1aGET-AC>
 917                     <PUSH 'PREF-VAL>
 918                     <PUSH 'T>
 919                     <CALL '\1aGET-AC 2 = BRANCH?13>
 920                     <PUSH BRANCH?13>
 921                     <CALL '\1aPROTECT 1>
 922                     <VEQUAL? ETYP22 'SMALL-INT - PHRASE100>
 923                     <DEAD ETYP22>
 924                     <FRAME '\1aEMIT>
 925                     <PUSH 50>
 926                     <PUSH VOFF18>
 927                     <DEAD VOFF18>
 928                     <NTHUV BRANCH?13 2 = TEMP51 (TYPE FIX)>
 929                     <OR TEMP51 #WORD *120* = TEMP51>
 930                     <LSH TEMP51 24 = TEMP51 (TYPE FIX)>
 931                     <CHTYPE TEMP51 <TYPE-CODE EFF-ADDR> = STACK>
 932                     <DEAD TEMP51>
 933                     <CALL '\1aEMIT 3>
 934                     <JUMP + PHRASE102>
 935 PHRASE100
 936                     <FRAME '\1aEMIT>
 937                     <PUSH 60>
 938                     <PUSH VOFF18>
 939                     <DEAD VOFF18>
 940                     <NTHUV BRANCH?13 2 = TEMP51 (TYPE FIX)>
 941                     <OR TEMP51 #WORD *120* = TEMP51>
 942                     <LSH TEMP51 24 = TEMP51 (TYPE FIX)>
 943                     <CHTYPE TEMP51 <TYPE-CODE EFF-ADDR> = STACK>
 944                     <DEAD TEMP51>
 945                     <CALL '\1aEMIT 3>
 946 PHRASE102
 947                     <FRAME '\1aDEST-DECL>
 948                     <PUSH BRANCH?13>
 949                     <DEAD BRANCH?13>
 950                     <PUSH RES9>
 951                     <DEAD RES9>
 952                     <PUSH 'FIX>
 953                     <CALL '\1aDEST-DECL 3>
 954                     <RETURN 'NORMAL>
 955 PHRASE95
 956                     <VEQUAL? ETYP22 'BYTE - PHRASE105>
 957                     <FRAME '\1aPROTECT>
 958                     <FRAME '\1aGET-AC>
 959                     <PUSH 'PREF-VAL>
 960                     <PUSH 'T>
 961                     <CALL '\1aGET-AC 2 = BRANCH?13>
 962                     <PUSH BRANCH?13>
 963                     <CALL '\1aPROTECT 1>
 964                     <FRAME '\1aEMIT>
 965                     <PUSH 154>
 966                     <PUSH VOFF18>
 967                     <DEAD VOFF18>
 968                     <NTHUV BRANCH?13 2 = TEMP51 (TYPE FIX)>
 969                     <OR TEMP51 #WORD *120* = TEMP51>
 970                     <LSH TEMP51 24 = TEMP51 (TYPE FIX)>
 971                     <CHTYPE TEMP51 <TYPE-CODE EFF-ADDR> = STACK>
 972                     <DEAD TEMP51>
 973                     <CALL '\1aEMIT 3>
 974                     <FRAME '\1aDEST-DECL>
 975                     <PUSH BRANCH?13>
 976                     <DEAD BRANCH?13>
 977                     <PUSH RES9>
 978                     <DEAD RES9>
 979                     <PUSH 'FIX>
 980                     <CALL '\1aDEST-DECL 3>
 981                     <RETURN 'NORMAL>
 982 PHRASE105
 983                     <VEQUAL? ETYP22 'BOOLEAN - COND111>
 984                     <DEAD ETYP22>
 985                     <TYPE? BRANCH?13 <TYPE-CODE FALSE> + PHRASE112>
 986                     <FRAME '\1aBOOL-NTH-BRANCH>
 987                     <PUSH VOFF18>
 988                     <DEAD VOFF18>
 989                     <NTHUV RD12 4 = STACK (TYPE FIX)>
 990                     <DEAD RD12>
 991                     <PUSH BRANCH?13>
 992                     <DEAD BRANCH?13>
 993                     <CALL '\1aBOOL-NTH-BRANCH 3>
 994                     <RETURN 'NORMAL>
 995 PHRASE112
 996                     <FRAME '\1aBOOL-NTH>
 997                     <PUSH VOFF18>
 998                     <DEAD VOFF18>
 999                     <NTHUV RD12 4 = STACK (TYPE FIX)>
1000                     <DEAD RD12>
1001                     <PUSH RES9>
1002                     <DEAD RES9>
1003                     <CALL '\1aBOOL-NTH 3>
1004 COND111
1005                     <RETURN 'NORMAL>
1006                     <END \1aNTH-RECORD-GEN>
1007
1008 #WORD *4051103505*
1009                     <GFCN \1aBRANCH-VALUE ("VALUE" ANY EFF-ADDR <LIST ATOM ATOM> ANY) VADDR4 BRANCH?5 TWO?6>
1010                     <TEMP TEMP11 AC7>
1011                     <INTGO>
1012                     <FRAME '\1aGET-AC>
1013                     <TYPE? TWO?6 <TYPE-CODE FALSE> + PHRASE10>
1014                     <SET TEMP11 'DOUBLE (TYPE ATOM)>
1015                     <JUMP + PHRASE12>
1016 PHRASE10
1017                     <SET TEMP11 'PREF-VAL (TYPE ATOM)>
1018 PHRASE12
1019                     <PUSH TEMP11>
1020                     <DEAD TEMP11>
1021                     <PUSH 'T>
1022                     <CALL '\1aGET-AC 2 = AC7>
1023                     <FRAME '\1aEMIT>
1024                     <PUSH 208>
1025                     <PUSH VADDR4>
1026                     <DEAD VADDR4>
1027                     <TYPE? TWO?6 <TYPE-CODE FALSE> + PHRASE15>
1028                     <DEAD TWO?6>
1029                     <FRAME '\1aNEXT-AC>
1030                     <PUSH AC7>
1031                     <CALL '\1aNEXT-AC 1 = TEMP11>
1032                     <JUMP + PHRASE17>
1033 PHRASE15
1034                     <SET TEMP11 AC7>
1035 PHRASE17
1036                     <NTHUV TEMP11 2 = TEMP11 (TYPE FIX)>
1037                     <OR TEMP11 #WORD *120* = TEMP11>
1038                     <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
1039                     <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
1040                     <DEAD TEMP11>
1041                     <CALL '\1aEMIT 3>
1042                     <NTHL BRANCH?5 1 = TEMP11 (TYPE ATOM)>
1043                     <VEQUAL? TEMP11 '- - PHRASE19>
1044                     <DEAD TEMP11>
1045                     <FRAME '\1aGEN-BRANCH>
1046                     <PUSH 18>
1047                     <RESTL BRANCH?5 1 = TEMP11 (TYPE LIST)>
1048                     <DEAD BRANCH?5>
1049                     <NTHL TEMP11 1 = STACK (TYPE ATOM)>
1050                     <DEAD TEMP11>
1051                     <PUSH %<>>
1052                     <CALL '\1aGEN-BRANCH 3>
1053                     <RETURN AC7>
1054                     <DEAD AC7>
1055 PHRASE19
1056                     <FRAME '\1aGEN-BRANCH>
1057                     <PUSH 19>
1058                     <RESTL BRANCH?5 1 = TEMP11 (TYPE LIST)>
1059                     <DEAD BRANCH?5>
1060                     <NTHL TEMP11 1 = STACK (TYPE ATOM)>
1061                     <DEAD TEMP11>
1062                     <PUSH %<>>
1063                     <CALL '\1aGEN-BRANCH 3>
1064                     <RETURN AC7>
1065                     <DEAD AC7>
1066                     <END \1aBRANCH-VALUE>
1067
1068 #WORD *12765267764*
1069                     <GFCN \1aBRANCH-HW ("VALUE" STRUCTURED EFF-ADDR <LIST ATOM ATOM>) VADDR4 BRANCH?5>
1070                     <TEMP AC6 TEMP9>
1071                     <INTGO>
1072                     <FRAME '\1aGET-AC>
1073                     <PUSH 'PREF-VAL>
1074                     <PUSH 'T>
1075                     <CALL '\1aGET-AC 2 = AC6>
1076                     <FRAME '\1aEMIT>
1077                     <PUSH 50>
1078                     <PUSH VADDR4>
1079                     <DEAD VADDR4>
1080                     <NTHUV AC6 2 = TEMP9 (TYPE FIX)>
1081                     <OR TEMP9 #WORD *120* = TEMP9>
1082                     <LSH TEMP9 24 = TEMP9 (TYPE FIX)>
1083                     <CHTYPE TEMP9 <TYPE-CODE EFF-ADDR> = STACK>
1084                     <DEAD TEMP9>
1085                     <CALL '\1aEMIT 3>
1086                     <NTHL BRANCH?5 1 = TEMP9 (TYPE ATOM)>
1087                     <VEQUAL? TEMP9 '- - PHRASE11>
1088                     <DEAD TEMP9>
1089                     <FRAME '\1aGEN-BRANCH>
1090                     <PUSH 24>
1091                     <RESTL BRANCH?5 1 = TEMP9 (TYPE LIST)>
1092                     <DEAD BRANCH?5>
1093                     <NTHL TEMP9 1 = STACK (TYPE ATOM)>
1094                     <DEAD TEMP9>
1095                     <PUSH %<>>
1096                     <CALL '\1aGEN-BRANCH 3>
1097                     <RETURN AC6>
1098                     <DEAD AC6>
1099 PHRASE11
1100                     <FRAME '\1aGEN-BRANCH>
1101                     <PUSH 25>
1102                     <RESTL BRANCH?5 1 = TEMP9 (TYPE LIST)>
1103                     <DEAD BRANCH?5>
1104                     <NTHL TEMP9 1 = STACK (TYPE ATOM)>
1105                     <DEAD TEMP9>
1106                     <PUSH %<>>
1107                     <CALL '\1aGEN-BRANCH 3>
1108                     <RETURN AC6>
1109                     <DEAD AC6>
1110                     <END \1aBRANCH-HW>
1111
1112 #WORD *22037064475*
1113                     <GFCN \1aRANY-OFF ("VALUE" ANY <OR ATOM VARTBL> ANY ANY AC) RES4 TCOFF5 VOFF6 VAC7>
1114                     <TEMP TEMP12 TAC8>
1115                     <INTGO>
1116                     <EQUAL? RES4 'STACK - PHRASE10>
1117                     <FRAME '\1aEMIT-PUSH>
1118                     <PUSH TCOFF5>
1119                     <DEAD TCOFF5>
1120                     <PUSH 'DOUBLE>
1121                     <CALL '\1aEMIT-PUSH 2 = TEMP12>
1122                     <RETURN TEMP12>
1123                     <DEAD TEMP12>
1124 PHRASE10
1125                     <GVAL 'AC-0 = TEMP12>
1126                     <EQUAL? TEMP12 VAC7 + PHRASE15>
1127                     <DEAD TEMP12>
1128                     <FRAME '\1aPREV-AC>
1129                     <PUSH VAC7>
1130                     <CALL '\1aPREV-AC 1 = TAC8>
1131                     <NTHUV TAC8 4 = TEMP12>
1132                     <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE15>
1133                     <DEAD TEMP12>
1134                     <FRAME '\1aALL-DEAD?>
1135                     <PUSH TAC8>
1136                     <CALL '\1aALL-DEAD? 1 = TEMP12>
1137                     <TYPE? TEMP12 <TYPE-CODE FALSE> - BOOL19>
1138                     <DEAD TEMP12>
1139                     <FRAME '\1aALL-STORED?>
1140                     <PUSH TAC8>
1141                     <CALL '\1aALL-STORED? 1 = TEMP12>
1142                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE15>
1143                     <DEAD TEMP12>
1144 BOOL19
1145                     <FRAME '\1aMUNG-AC>
1146                     <PUSH VAC7>
1147                     <CALL '\1aMUNG-AC 1>
1148                     <FRAME '\1aGET-AC>
1149                     <PUSH TAC8>
1150                     <PUSH 'T>
1151                     <CALL '\1aGET-AC 2>
1152                     <FRAME '\1aEMIT>
1153                     <PUSH 125>
1154                     <PUSH TCOFF5>
1155                     <DEAD TCOFF5>
1156                     <NTHUV TAC8 2 = TEMP12 (TYPE FIX)>
1157                     <OR TEMP12 #WORD *120* = TEMP12>
1158                     <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
1159                     <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
1160                     <DEAD TEMP12>
1161                     <CALL '\1aEMIT 3>
1162                     <JUMP + PHRASE25>
1163 PHRASE15
1164                     <FRAME '\1aPROTECT>
1165                     <FRAME '\1aGET-AC>
1166                     <PUSH 'DOUBLE>
1167                     <PUSH 'T>
1168                     <CALL '\1aGET-AC 2 = TAC8>
1169                     <PUSH TAC8>
1170                     <CALL '\1aPROTECT 1>
1171                     <FRAME '\1aEMIT>
1172                     <PUSH 125>
1173                     <PUSH TCOFF5>
1174                     <DEAD TCOFF5>
1175                     <NTHUV TAC8 2 = TEMP12 (TYPE FIX)>
1176                     <OR TEMP12 #WORD *120* = TEMP12>
1177                     <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
1178                     <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
1179                     <DEAD TEMP12>
1180                     <CALL '\1aEMIT 3>
1181                     <FRAME '\1aNEXT-AC>
1182                     <PUSH TAC8>
1183                     <CALL '\1aNEXT-AC 1 = VAC7>
1184 PHRASE25
1185                     <FRAME '\1aDEST-PAIR>
1186                     <PUSH VAC7>
1187                     <DEAD VAC7>
1188                     <PUSH TAC8>
1189                     <DEAD TAC8>
1190                     <PUSH RES4>
1191                     <DEAD RES4>
1192                     <CALL '\1aDEST-PAIR 3 = TEMP12>
1193                     <RETURN TEMP12>
1194                     <DEAD TEMP12>
1195                     <END \1aRANY-OFF>
1196
1197 #WORD *10355450321*
1198                     <GFCN \1aTEST-NTH ("VALUE" ANY EFF-ADDR ATOM AC <OR ATOM VARTBL> <OR EFF-ADDR FALSE FIX> <OR FALSE ATOM> "OPTIONAL" ANY) VADDR6 TYP7 VAC8 RES9 CADDR10 HTYP11 HW12>
1199                     <OPT-DISPATCH 6 %<> OPT4 OPT5>
1200 OPT4
1201                     <PUSH %<>>
1202 OPT5
1203                     <TEMP (TYPV18 %<>) TEMP26 RTAC16 RVAC15 ELAB14 FLAB13>
1204                     <INTGO>
1205                     <GVAL 'TYPE-WORDS = TEMP26>
1206                     <EMPUV? TEMP26 + TAG22>
1207                     <LOOP (TYP7 VALUE) (TEMP26 LENGTH VALUE)>
1208 TAG24
1209                     <NTHUV TEMP26 1 = TYPV18>
1210                     <TYPE? TYPV18 <TYPE-CODE ATOM> - TAG25>
1211                     <VEQUAL? TYPV18 TYP7 + TAG23>
1212                     <DEAD TYPV18>
1213 TAG25
1214                     <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
1215                     <EMPUV? TEMP26 - TAG24>
1216 TAG22
1217                     <SET TYPV18 %<> (TYPE FALSE)>
1218                     <JUMP + TAG28>
1219 TAG23
1220                     <SET TYPV18 TEMP26>
1221                     <DEAD TEMP26>
1222 TAG28
1223                     <VEQUAL? TYPV18 0 + PHRASE20>
1224                     <NTHUV TYPV18 2 = TYPV18>
1225 PHRASE20
1226                     <TYPE? RES9 <TYPE-CODE VARTBL> - PHRASE30>
1227                     <TYPE? HTYP11 <TYPE-CODE FALSE> + BOOL33>
1228                     <TYPE? CADDR10 <TYPE-CODE FALSE> + PHRASE32>
1229 BOOL33
1230                     <FRAME '\1aGET-AC>
1231                     <PUSH 'DOUBLE>
1232                     <PUSH 'T>
1233                     <CALL '\1aGET-AC 2 = RTAC16>
1234                     <FRAME '\1aNEXT-AC>
1235                     <PUSH RTAC16>
1236                     <CALL '\1aNEXT-AC 1 = RVAC15>
1237                     <FRAME '\1aPROTECT>
1238                     <PUSH RTAC16>
1239                     <CALL '\1aPROTECT 1>
1240                     <JUMP + PHRASE37>
1241 PHRASE32
1242                     <FRAME '\1aFIND-APP-AC>
1243                     <PUSH VAC8>
1244                     <DEAD VAC8>
1245                     <PUSH TYP7>
1246                     <CALL '\1aFIND-APP-AC 2 = RVAC15>
1247 PHRASE37
1248                     <FRAME '\1aPROTECT>
1249                     <PUSH RVAC15>
1250                     <CALL '\1aPROTECT 1>
1251 PHRASE30
1252                     <FRAME '\1aMAKE-LABEL>
1253                     <CALL '\1aMAKE-LABEL 0 = ELAB14>
1254                     <FRAME '\1aMAKE-LABEL>
1255                     <CALL '\1aMAKE-LABEL 0 = FLAB13>
1256                     <TYPE? HTYP11 <TYPE-CODE FALSE> - PHRASE43>
1257                     <FRAME '\1aEMIT>
1258                     <TYPE? HW12 <TYPE-CODE FALSE> + PHRASE46>
1259                     <SET TEMP26 181 (TYPE FIX)>
1260                     <JUMP + PHRASE47>
1261 PHRASE46
1262                     <SET TEMP26 213 (TYPE FIX)>
1263 PHRASE47
1264                     <PUSH TEMP26>
1265                     <DEAD TEMP26>
1266                     <PUSH VADDR6>
1267                     <CALL '\1aEMIT 2>
1268                     <FRAME '\1aGEN-BRANCH>
1269                     <TYPE? HW12 <TYPE-CODE FALSE> + PHRASE50>
1270                     <SET TEMP26 24 (TYPE FIX)>
1271                     <JUMP + PHRASE51>
1272 PHRASE50
1273                     <SET TEMP26 18 (TYPE FIX)>
1274 PHRASE51
1275                     <PUSH TEMP26>
1276                     <DEAD TEMP26>
1277                     <PUSH FLAB13>
1278                     <PUSH %<>>
1279                     <CALL '\1aGEN-BRANCH 3>
1280                     <EQUAL? RES9 'STACK - PHRASE53>
1281                     <FRAME '\1aEMIT-PUSH>
1282                     <FRAME '\1aTYPE-WORD>
1283                     <PUSH 'FALSE>
1284                     <CALL '\1aTYPE-WORD 1 = STACK>
1285                     <PUSH 'LONG>
1286                     <CALL '\1aEMIT-PUSH 2>
1287                     <FRAME '\1aCLEAR-PUSH>
1288                     <CALL '\1aCLEAR-PUSH 0>
1289                     <JUMP + PHRASE57>
1290 PHRASE53
1291                     <FRAME '\1aMOVE-TYPE>
1292                     <PUSH %<>>
1293                     <PUSH RTAC16>
1294                     <CALL '\1aMOVE-TYPE 2>
1295                     <FRAME '\1aMOVE-VALUE>
1296                     <PUSH %<>>
1297                     <PUSH RVAC15>
1298                     <CALL '\1aMOVE-VALUE 2>
1299 PHRASE57
1300                     <FRAME '\1aGEN-BRANCH>
1301                     <PUSH 17>
1302                     <PUSH ELAB14>
1303                     <PUSH %<>>
1304                     <CALL '\1aGEN-BRANCH 3>
1305                     <FRAME '\1aEMIT-LABEL>
1306                     <PUSH FLAB13>
1307                     <DEAD FLAB13>
1308                     <PUSH %<>>
1309                     <CALL '\1aEMIT-LABEL 2>
1310 PHRASE43
1311                     <EQUAL? RES9 'STACK - PHRASE63>
1312                     <TYPE? CADDR10 <TYPE-CODE FALSE> + PHRASE65>
1313                     <TYPE? CADDR10 <TYPE-CODE FIX> - PHRASE67>
1314                     <TYPE? TYPV18 <TYPE-CODE FALSE> + PHRASE69>
1315                     <LSH CADDR10 16 = TEMP26 (TYPE FIX)>
1316                     <OR TYPV18 TEMP26 = TYPV18>
1317                     <DEAD TEMP26>
1318                     <FRAME '\1aEMIT-PUSH>
1319                     <FRAME '\1aMA-IMM>
1320                     <PUSH TYPV18>
1321                     <DEAD TYPV18>
1322                     <CALL '\1aMA-IMM 1 = STACK>
1323                     <PUSH 'LONG>
1324                     <CALL '\1aEMIT-PUSH 2>
1325                     <JUMP + COND64>
1326 PHRASE69
1327                     <FRAME '\1aEMIT-PUSH>
1328                     <FRAME '\1aTYPE-CODE>
1329                     <PUSH TYP7>
1330                     <CALL '\1aTYPE-CODE 1 = STACK>
1331                     <PUSH 'WORD>
1332                     <CALL '\1aEMIT-PUSH 2>
1333                     <FRAME '\1aEMIT-PUSH>
1334                     <FRAME '\1aMA-IMM>
1335                     <PUSH CADDR10>
1336                     <CALL '\1aMA-IMM 1 = STACK>
1337                     <PUSH 'WORD>
1338                     <CALL '\1aEMIT-PUSH 2>
1339                     <JUMP + COND64>
1340 PHRASE67
1341                     <FRAME '\1aEMIT-PUSH>
1342                     <FRAME '\1aTYPE-CODE>
1343                     <PUSH TYP7>
1344                     <CALL '\1aTYPE-CODE 1 = STACK>
1345                     <PUSH 'WORD>
1346                     <CALL '\1aEMIT-PUSH 2>
1347                     <FRAME '\1aEMIT-PUSH>
1348                     <PUSH CADDR10>
1349                     <PUSH 'WORD>
1350                     <CALL '\1aEMIT-PUSH 2>
1351                     <JUMP + COND64>
1352 PHRASE65
1353                     <FRAME '\1aEMIT-PUSH>
1354                     <FRAME '\1aTYPE-WORD>
1355                     <PUSH TYP7>
1356                     <CALL '\1aTYPE-WORD 1 = STACK>
1357                     <PUSH 'LONG>
1358                     <CALL '\1aEMIT-PUSH 2>
1359 COND64
1360                     <TYPE? HW12 <TYPE-CODE FALSE> + PHRASE84>
1361                     <DEAD HW12>
1362                     <FRAME '\1aEMIT>
1363                     <PUSH 60>
1364                     <PUSH VADDR6>
1365                     <DEAD VADDR6>
1366                     <GVAL 'AC-TP = TEMP26>
1367                     <NTHUV TEMP26 2 = TEMP26 (TYPE FIX)>
1368                     <OR TEMP26 #WORD *200* = TEMP26>
1369                     <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
1370                     <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
1371                     <DEAD TEMP26>
1372                     <CALL '\1aEMIT 3>
1373                     <JUMP + PHRASE119>
1374 PHRASE84
1375                     <FRAME '\1aEMIT-PUSH>
1376                     <PUSH VADDR6>
1377                     <DEAD VADDR6>
1378                     <PUSH 'LONG>
1379                     <CALL '\1aEMIT-PUSH 2>
1380                     <JUMP + PHRASE119>
1381 PHRASE63
1382                     <TYPE? HTYP11 <TYPE-CODE FALSE> - PHRASE90>
1383                     <TYPE? CADDR10 <TYPE-CODE FIX> - PHRASE92>
1384                     <TYPE? TYPV18 <TYPE-CODE FIX> - PHRASE92>
1385                     <LSH CADDR10 16 = TEMP26 (TYPE FIX)>
1386                     <OR TYPV18 TEMP26 = TYPV18>
1387                     <DEAD TEMP26>
1388                     <FRAME '\1aLOAD-CONSTANT>
1389                     <PUSH RTAC16>
1390                     <PUSH TYPV18>
1391                     <DEAD TYPV18>
1392                     <CALL '\1aLOAD-CONSTANT 2>
1393                     <JUMP + PHRASE114>
1394 PHRASE92
1395                     <TYPE? CADDR10 <TYPE-CODE FALSE> + PHRASE97>
1396                     <TYPE? CADDR10 <TYPE-CODE FIX> - PHRASE99>
1397                     <FRAME '\1aLOAD-CONSTANT>
1398                     <PUSH RTAC16>
1399                     <FRAME '\1aMA-IMM>
1400                     <LSH CADDR10 16 = STACK (TYPE FIX)>
1401                     <CALL '\1aMA-IMM 1 = STACK>
1402                     <CALL '\1aLOAD-CONSTANT 2>
1403                     <FRAME '\1aEMIT>
1404                     <PUSH 176>
1405                     <FRAME '\1aTYPE-CODE>
1406                     <PUSH TYP7>
1407                     <CALL '\1aTYPE-CODE 1 = STACK>
1408                     <NTHUV RTAC16 2 = TEMP26 (TYPE FIX)>
1409                     <OR TEMP26 #WORD *120* = TEMP26>
1410                     <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
1411                     <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
1412                     <DEAD TEMP26>
1413                     <CALL '\1aEMIT 3>
1414                     <JUMP + PHRASE106>
1415 PHRASE99
1416                     <FRAME '\1aEMIT>
1417                     <PUSH 208>
1418                     <PUSH CADDR10>
1419                     <NTHUV RTAC16 2 = TEMP26 (TYPE FIX)>
1420                     <OR TEMP26 #WORD *120* = TEMP26>
1421                     <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
1422                     <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
1423                     <DEAD TEMP26>
1424                     <CALL '\1aEMIT 3>
1425                     <JUMP + PHRASE106>
1426 PHRASE97
1427                     <FRAME '\1aEMIT>
1428                     <PUSH 208>
1429                     <FRAME '\1aTYPE-WORD>
1430                     <PUSH TYP7>
1431                     <CALL '\1aTYPE-WORD 1 = STACK>
1432                     <NTHUV RTAC16 2 = TEMP26 (TYPE FIX)>
1433                     <OR TEMP26 #WORD *120* = TEMP26>
1434                     <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
1435                     <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
1436                     <DEAD TEMP26>
1437                     <CALL '\1aEMIT 3>
1438 PHRASE106
1439                     <FRAME '\1aUSE-AC>
1440                     <PUSH RTAC16>
1441                     <CALL '\1aUSE-AC 1>
1442                     <JUMP + PHRASE114>
1443 PHRASE90
1444                     <TYPE? CADDR10 <TYPE-CODE FIX> - PHRASE112>
1445                     <FRAME '\1aLOAD-CONSTANT>
1446                     <PUSH RTAC16>
1447                     <PUSH CADDR10>
1448                     <CALL '\1aLOAD-CONSTANT 2>
1449                     <JUMP + PHRASE114>
1450 PHRASE112
1451                     <TYPE? CADDR10 <TYPE-CODE FALSE> + PHRASE114>
1452                     <FRAME '\1aMOVE-TO-AC>
1453                     <PUSH RTAC16>
1454                     <PUSH CADDR10>
1455                     <PUSH 'WORD>
1456                     <CALL '\1aMOVE-TO-AC 3>
1457 PHRASE114
1458                     <TYPE? HW12 <TYPE-CODE FALSE> + PHRASE117>
1459                     <DEAD HW12>
1460                     <FRAME '\1aEMIT>
1461                     <PUSH 60>
1462                     <PUSH VADDR6>
1463                     <DEAD VADDR6>
1464                     <NTHUV RVAC15 2 = TEMP26 (TYPE FIX)>
1465                     <OR TEMP26 #WORD *120* = TEMP26>
1466                     <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
1467                     <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
1468                     <DEAD TEMP26>
1469                     <CALL '\1aEMIT 3>
1470                     <JUMP + PHRASE119>
1471 PHRASE117
1472                     <FRAME '\1aEMIT-MOVE>
1473                     <PUSH VADDR6>
1474                     <DEAD VADDR6>
1475                     <NTHUV RVAC15 2 = TEMP26 (TYPE FIX)>
1476                     <OR TEMP26 #WORD *120* = TEMP26>
1477                     <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
1478                     <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
1479                     <DEAD TEMP26>
1480                     <PUSH 'LONG>
1481                     <CALL '\1aEMIT-MOVE 3>
1482 PHRASE119
1483                     <TYPE? HTYP11 <TYPE-CODE FALSE> - PHRASE122>
1484                     <DEAD HTYP11>
1485                     <FRAME '\1aEMIT-LABEL>
1486                     <PUSH ELAB14>
1487                     <DEAD ELAB14>
1488                     <PUSH %<>>
1489                     <CALL '\1aEMIT-LABEL 2>
1490                     <TYPE? RES9 <TYPE-CODE VARTBL> + TAG125>
1491                     <RETURN %<>>
1492 TAG125
1493                     <FRAME '\1aDEST-PAIR>
1494                     <PUSH RVAC15>
1495                     <DEAD RVAC15>
1496                     <PUSH RTAC16>
1497                     <DEAD RTAC16>
1498                     <PUSH RES9>
1499                     <DEAD RES9>
1500                     <CALL '\1aDEST-PAIR 3 = TEMP26>
1501                     <RETURN TEMP26>
1502                     <DEAD TEMP26>
1503 PHRASE122
1504                     <TYPE? RES9 <TYPE-CODE VARTBL> + TAG129>
1505                     <RETURN %<>>
1506 TAG129
1507                     <TYPE? CADDR10 <TYPE-CODE FALSE> + PHRASE132>
1508                     <DEAD CADDR10>
1509                     <FRAME '\1aDEST-COUNT-DECL>
1510                     <PUSH RVAC15>
1511                     <DEAD RVAC15>
1512                     <PUSH RTAC16>
1513                     <DEAD RTAC16>
1514                     <PUSH RES9>
1515                     <DEAD RES9>
1516                     <PUSH TYP7>
1517                     <DEAD TYP7>
1518                     <CALL '\1aDEST-COUNT-DECL 4 = TEMP26>
1519                     <RETURN TEMP26>
1520                     <DEAD TEMP26>
1521 PHRASE132
1522                     <FRAME '\1aDEST-DECL>
1523                     <PUSH RVAC15>
1524                     <DEAD RVAC15>
1525                     <PUSH RES9>
1526                     <DEAD RES9>
1527                     <PUSH TYP7>
1528                     <DEAD TYP7>
1529                     <CALL '\1aDEST-DECL 3 = TEMP26>
1530                     <RETURN TEMP26>
1531                     <DEAD TEMP26>
1532                     <END \1aTEST-NTH>
1533
1534 #WORD *37654642355*
1535                     <GFCN \1aFIND-APP-AC ("VALUE" ANY AC <OR FALSE ATOM> "OPTIONAL" ANY) VAC6 TYP7 RES8>
1536                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
1537 OPT4
1538                     <PUSH %<>>
1539 OPT5
1540                     <TEMP TEMP13>
1541                     <INTGO>
1542                     <TYPE? TYP7 <TYPE-CODE FALSE> + BOOL11>
1543                     <FRAME '\1aSTRUCTURED-TYPE?>
1544                     <PUSH TYP7>
1545                     <DEAD TYP7>
1546                     <CALL '\1aSTRUCTURED-TYPE? 1 = TEMP13>
1547                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE10>
1548                     <DEAD TEMP13>
1549 BOOL11
1550                     <FRAME '\1aFREE-VALUE-AC?>
1551                     <PUSH 'STORED>
1552                     <CALL '\1aFREE-VALUE-AC? 1 = TEMP13>
1553                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE15>
1554                     <DEAD TEMP13>
1555                     <FRAME '\1aGET-AC>
1556                     <PUSH 'PREF-VAL>
1557                     <PUSH 'T>
1558                     <CALL '\1aGET-AC 2 = TEMP13>
1559                     <RETURN TEMP13>
1560                     <DEAD TEMP13>
1561 PHRASE15
1562                     <FRAME '\1aMUNG-AC>
1563                     <PUSH VAC6>
1564                     <CALL '\1aMUNG-AC 1>
1565                     <RETURN VAC6>
1566                     <DEAD VAC6>
1567 PHRASE10
1568                     <FRAME '\1aGET-AC>
1569                     <PUSH 'PREF-VAL>
1570                     <PUSH 'T>
1571                     <CALL '\1aGET-AC 2 = TEMP13>
1572                     <RETURN TEMP13>
1573                     <DEAD TEMP13>
1574                     <END \1aFIND-APP-AC>
1575
1576 #WORD *201601034*
1577                     <GFCN \1aGEN-NTH ("VALUE" ANY EFF-ADDR ATOM AC <OR ATOM VARTBL> <OR EFF-ADDR FALSE FIX> "OPTIONAL" ANY ANY ANY) VADDR8 TYP9 VAC10 RES11 CADDR12 HW13 RTAC14 RVAC15>
1578                     <OPT-DISPATCH 5 %<> OPT4 OPT5 OPT6 OPT7>
1579 OPT4
1580                     <PUSH %<>>
1581 OPT5
1582                     <PUSH %<>>
1583 OPT6
1584                     <PUSH %<>>
1585 OPT7
1586                     <TEMP (NO-LOAD17 %<>) TEMP26>
1587                     <INTGO>
1588                     <EQUAL? RES11 'STACK - PHRASE19>
1589                     <TYPE? CADDR12 <TYPE-CODE FIX> - PHRASE21>
1590                     <GVAL 'TYPE-WORDS = TEMP26>
1591                     <EMPUV? TEMP26 + PHRASE21>
1592                     <LOOP (TYP9 VALUE) (TEMP26 LENGTH VALUE)>
1593 TAG24
1594                     <NTHUV TEMP26 1 = NO-LOAD17>
1595                     <TYPE? NO-LOAD17 <TYPE-CODE ATOM> - TAG25>
1596                     <VEQUAL? NO-LOAD17 TYP9 + TAG23>
1597                     <DEAD NO-LOAD17>
1598 TAG25
1599                     <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
1600                     <EMPUV? TEMP26 - TAG24>
1601                     <JUMP + PHRASE21>
1602 TAG23
1603                     <FRAME '\1aTYPE-CODE>
1604                     <PUSH TYP9>
1605                     <DEAD TYP9>
1606                     <PUSH 'VALUE>
1607                     <CALL '\1aTYPE-CODE 2 = TEMP26>
1608                     <LSH CADDR12 16 = NO-LOAD17 (TYPE FIX)>
1609                     <DEAD CADDR12>
1610                     <OR TEMP26 NO-LOAD17 = NO-LOAD17>
1611                     <DEAD TEMP26>
1612                     <FRAME '\1aEMIT-PUSH>
1613                     <FRAME '\1aMA-IMM>
1614                     <PUSH NO-LOAD17>
1615                     <DEAD NO-LOAD17>
1616                     <CALL '\1aMA-IMM 1 = STACK>
1617                     <PUSH 'LONG>
1618                     <CALL '\1aEMIT-PUSH 2>
1619                     <JUMP + COND20>
1620 PHRASE21
1621                     <TYPE? CADDR12 <TYPE-CODE FALSE> + PHRASE31>
1622                     <FRAME '\1aEMIT-PUSH>
1623                     <FRAME '\1aTYPE-CODE>
1624                     <PUSH TYP9>
1625                     <DEAD TYP9>
1626                     <CALL '\1aTYPE-CODE 1 = STACK>
1627                     <PUSH 'WORD>
1628                     <CALL '\1aEMIT-PUSH 2>
1629                     <FRAME '\1aEMIT-PUSH>
1630                     <PUSH CADDR12>
1631                     <DEAD CADDR12>
1632                     <PUSH 'WORD>
1633                     <CALL '\1aEMIT-PUSH 2>
1634                     <JUMP + COND20>
1635 PHRASE31
1636                     <FRAME '\1aEMIT-PUSH>
1637                     <FRAME '\1aTYPE-WORD>
1638                     <PUSH TYP9>
1639                     <DEAD TYP9>
1640                     <CALL '\1aTYPE-WORD 1 = STACK>
1641                     <PUSH 'LONG>
1642                     <CALL '\1aEMIT-PUSH 2>
1643 COND20
1644                     <TYPE? HW13 <TYPE-CODE FALSE> + PHRASE38>
1645                     <DEAD HW13>
1646                     <FRAME '\1aEMIT>
1647                     <PUSH 60>
1648                     <PUSH VADDR8>
1649                     <DEAD VADDR8>
1650                     <GVAL 'AC-TP = NO-LOAD17>
1651                     <NTHUV NO-LOAD17 2 = NO-LOAD17 (TYPE FIX)>
1652                     <OR NO-LOAD17 #WORD *200* = NO-LOAD17>
1653                     <LSH NO-LOAD17 24 = NO-LOAD17 (TYPE FIX)>
1654                     <CHTYPE NO-LOAD17 <TYPE-CODE EFF-ADDR> = STACK>
1655                     <DEAD NO-LOAD17>
1656                     <CALL '\1aEMIT 3 = NO-LOAD17>
1657                     <RETURN NO-LOAD17>
1658                     <DEAD NO-LOAD17>
1659 PHRASE38
1660                     <FRAME '\1aEMIT-PUSH>
1661                     <PUSH VADDR8>
1662                     <DEAD VADDR8>
1663                     <PUSH 'LONG>
1664                     <CALL '\1aEMIT-PUSH 2 = NO-LOAD17>
1665                     <RETURN NO-LOAD17>
1666                     <DEAD NO-LOAD17>
1667 PHRASE19
1668                     <TYPE? RTAC14 <TYPE-CODE FALSE> - PHRASE44>
1669                     <TYPE? CADDR12 <TYPE-CODE FALSE> + PHRASE44>
1670                     <FRAME '\1aGET-AC>
1671                     <PUSH 'DOUBLE>
1672                     <PUSH 'T>
1673                     <CALL '\1aGET-AC 2 = RTAC14>
1674                     <FRAME '\1aPROTECT>
1675                     <FRAME '\1aNEXT-AC>
1676                     <PUSH RTAC14>
1677                     <CALL '\1aNEXT-AC 1 = RVAC15>
1678                     <PUSH RVAC15>
1679                     <CALL '\1aPROTECT 1>
1680                     <JUMP + PHRASE52>
1681 PHRASE44
1682                     <TYPE? RVAC15 <TYPE-CODE FALSE> - PHRASE49>
1683                     <FRAME '\1aPROTECT>
1684                     <FRAME '\1aFIND-APP-AC>
1685                     <PUSH VAC10>
1686                     <DEAD VAC10>
1687                     <PUSH TYP9>
1688                     <CALL '\1aFIND-APP-AC 2 = RVAC15>
1689                     <PUSH RVAC15>
1690                     <CALL '\1aPROTECT 1>
1691                     <JUMP + PHRASE52>
1692 PHRASE49
1693                     <SET NO-LOAD17 'T (TYPE ATOM)>
1694 PHRASE52
1695                     <TYPE? CADDR12 <TYPE-CODE FALSE> + PHRASE54>
1696                     <TYPE? CADDR12 <TYPE-CODE FIX> - PHRASE56>
1697                     <FRAME '\1aLOAD-CONSTANT>
1698                     <PUSH RTAC14>
1699                     <PUSH CADDR12>
1700                     <DEAD CADDR12>
1701                     <CALL '\1aLOAD-CONSTANT 2>
1702                     <JUMP + PHRASE58>
1703 PHRASE56
1704                     <FRAME '\1aEMIT>
1705                     <PUSH 60>
1706                     <PUSH CADDR12>
1707                     <DEAD CADDR12>
1708                     <NTHUV RTAC14 2 = TEMP26 (TYPE FIX)>
1709                     <OR TEMP26 #WORD *120* = TEMP26>
1710                     <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
1711                     <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
1712                     <DEAD TEMP26>
1713                     <CALL '\1aEMIT 3>
1714 PHRASE58
1715                     <VEQUAL? NO-LOAD17 0 - PHRASE61>
1716                     <DEAD NO-LOAD17>
1717                     <FRAME '\1aEMIT-MOVE>
1718                     <PUSH VADDR8>
1719                     <NTHUV RVAC15 2 = TEMP26 (TYPE FIX)>
1720                     <OR TEMP26 #WORD *120* = TEMP26>
1721                     <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
1722                     <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
1723                     <DEAD TEMP26>
1724                     <PUSH 'LONG>
1725                     <CALL '\1aEMIT-MOVE 3>
1726 PHRASE61
1727                     <FRAME '\1aDEST-COUNT-DECL>
1728                     <PUSH RVAC15>
1729                     <PUSH RTAC14>
1730                     <DEAD RTAC14>
1731                     <PUSH RES11>
1732                     <DEAD RES11>
1733                     <PUSH TYP9>
1734                     <DEAD TYP9>
1735                     <CALL '\1aDEST-COUNT-DECL 4>
1736                     <JUMP + PHRASE71>
1737 PHRASE54
1738                     <VEQUAL? NO-LOAD17 0 - PHRASE64>
1739                     <DEAD NO-LOAD17>
1740                     <TYPE? HW13 <TYPE-CODE FALSE> + PHRASE66>
1741                     <DEAD HW13>
1742                     <FRAME '\1aEMIT>
1743                     <PUSH 60>
1744                     <PUSH VADDR8>
1745                     <NTHUV RVAC15 2 = TEMP26 (TYPE FIX)>
1746                     <OR TEMP26 #WORD *120* = TEMP26>
1747                     <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
1748                     <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
1749                     <DEAD TEMP26>
1750                     <CALL '\1aEMIT 3>
1751                     <JUMP + PHRASE68>
1752 PHRASE66
1753                     <FRAME '\1aEMIT-MOVE>
1754                     <PUSH VADDR8>
1755                     <NTHUV RVAC15 2 = TEMP26 (TYPE FIX)>
1756                     <OR TEMP26 #WORD *120* = TEMP26>
1757                     <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
1758                     <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
1759                     <DEAD TEMP26>
1760                     <PUSH 'LONG>
1761                     <CALL '\1aEMIT-MOVE 3>
1762 PHRASE68
1763                     <FRAME '\1aDEST-DECL>
1764                     <PUSH RVAC15>
1765                     <PUSH RES11>
1766                     <DEAD RES11>
1767                     <PUSH TYP9>
1768                     <DEAD TYP9>
1769                     <CALL '\1aDEST-DECL 3>
1770                     <JUMP + PHRASE71>
1771 PHRASE64
1772                     <FRAME '\1aDEST-DECL>
1773                     <PUSH RVAC15>
1774                     <PUSH RES11>
1775                     <DEAD RES11>
1776                     <PUSH TYP9>
1777                     <DEAD TYP9>
1778                     <CALL '\1aDEST-DECL 3>
1779 PHRASE71
1780                     <FRAME '\1aLOAD-AC>
1781                     <PUSH RVAC15>
1782                     <DEAD RVAC15>
1783                     <PUSH VADDR8>
1784                     <DEAD VADDR8>
1785                     <CALL '\1aLOAD-AC 2 = NO-LOAD17>
1786                     <RETURN NO-LOAD17>
1787                     <DEAD NO-LOAD17>
1788                     <END \1aGEN-NTH>
1789
1790 #WORD *23246464213*
1791                     <GFCN \1aBOOL-NTH ("VALUE" ANY EFF-ADDR FIX <OR ATOM VARTBL>) VADDR4 BNO5 RES6>
1792                     <TEMP ELAB7 FLAB8 RTAC10 RVAC9>
1793                     <INTGO>
1794                     <FRAME '\1aMAKE-LABEL>
1795                     <CALL '\1aMAKE-LABEL 0 = ELAB7>
1796                     <FRAME '\1aMAKE-LABEL>
1797                     <CALL '\1aMAKE-LABEL 0 = FLAB8>
1798                     <TYPE? RES6 <TYPE-CODE VARTBL> - PHRASE14>
1799                     <FRAME '\1aGET-AC>
1800                     <PUSH 'PREF-TYPE>
1801                     <CALL '\1aGET-AC 1 = RTAC10>
1802                     <FRAME '\1aGET-AC>
1803                     <PUSH 'PREF-VAL>
1804                     <CALL '\1aGET-AC 1 = RVAC9>
1805                     <FRAME '\1aDEST-PAIR>
1806                     <PUSH RVAC9>
1807                     <PUSH RTAC10>
1808                     <PUSH RES6>
1809                     <CALL '\1aDEST-PAIR 3>
1810 PHRASE14
1811                     <FRAME '\1aGEN-BRANCH>
1812                     <PUSH 225>
1813                     <FRAME '\1aMA-IMM>
1814                     <PUSH BNO5>
1815                     <DEAD BNO5>
1816                     <CALL '\1aMA-IMM 1 = STACK>
1817                     <PUSH VADDR4>
1818                     <DEAD VADDR4>
1819                     <PUSH FLAB8>
1820                     <PUSH %<>>
1821                     <CALL '\1aGEN-BRANCH 5>
1822                     <EQUAL? RES6 'STACK - PHRASE21>
1823                     <FRAME '\1aEMIT-PUSH>
1824                     <FRAME '\1aADDR-TYPE-MQUOTE>
1825                     <PUSH 'T>
1826                     <CALL '\1aADDR-TYPE-MQUOTE 1 = STACK>
1827                     <PUSH 'LONG>
1828                     <CALL '\1aEMIT-PUSH 2>
1829                     <FRAME '\1aEMIT-PUSH>
1830                     <FRAME '\1aADDR-VALUE-MQUOTE>
1831                     <PUSH 'T>
1832                     <CALL '\1aADDR-VALUE-MQUOTE 1 = STACK>
1833                     <PUSH 'LONG>
1834                     <CALL '\1aEMIT-PUSH 2>
1835                     <JUMP + PHRASE26>
1836 PHRASE21
1837                     <FRAME '\1aMOVE-TYPE>
1838                     <PUSH 'T>
1839                     <PUSH RTAC10>
1840                     <CALL '\1aMOVE-TYPE 2>
1841                     <FRAME '\1aMOVE-VALUE>
1842                     <PUSH 'T>
1843                     <PUSH RVAC9>
1844                     <CALL '\1aMOVE-VALUE 2>
1845 PHRASE26
1846                     <FRAME '\1aGEN-BRANCH>
1847                     <PUSH 17>
1848                     <PUSH ELAB7>
1849                     <PUSH %<>>
1850                     <CALL '\1aGEN-BRANCH 3>
1851                     <FRAME '\1aEMIT-LABEL>
1852                     <PUSH FLAB8>
1853                     <DEAD FLAB8>
1854                     <PUSH %<>>
1855                     <CALL '\1aEMIT-LABEL 2>
1856                     <EQUAL? RES6 'STACK - PHRASE32>
1857                     <DEAD RES6>
1858                     <FRAME '\1aEMIT-PUSH>
1859                     <FRAME '\1aTYPE-WORD>
1860                     <PUSH 'FALSE>
1861                     <CALL '\1aTYPE-WORD 1 = STACK>
1862                     <PUSH 'LONG>
1863                     <CALL '\1aEMIT-PUSH 2>
1864                     <FRAME '\1aCLEAR-PUSH>
1865                     <CALL '\1aCLEAR-PUSH 0>
1866                     <JUMP + PHRASE36>
1867 PHRASE32
1868                     <FRAME '\1aMOVE-TYPE>
1869                     <PUSH %<>>
1870                     <PUSH RTAC10>
1871                     <DEAD RTAC10>
1872                     <CALL '\1aMOVE-TYPE 2>
1873                     <FRAME '\1aMOVE-VALUE>
1874                     <PUSH %<>>
1875                     <PUSH RVAC9>
1876                     <DEAD RVAC9>
1877                     <CALL '\1aMOVE-VALUE 2>
1878 PHRASE36
1879                     <FRAME '\1aEMIT-LABEL>
1880                     <PUSH ELAB7>
1881                     <DEAD ELAB7>
1882                     <PUSH %<>>
1883                     <CALL '\1aEMIT-LABEL 2 = ELAB7>
1884                     <RETURN ELAB7>
1885                     <DEAD ELAB7>
1886                     <END \1aBOOL-NTH>
1887
1888 #WORD *17532071620*
1889                     <GFCN \1aBOOL-NTH-BRANCH ("VALUE" ANY EFF-ADDR FIX <LIST ATOM ATOM>) VADDR4 BNO5 BRANCH6>
1890                     <TEMP TEMP11>
1891                     <INTGO>
1892                     <FRAME '\1aEMIT>
1893                     <GVAL 'INST-BTST = STACK>
1894                     <PUSH 'NO-SIZE-WORD>
1895                     <PUSH VADDR4>
1896                     <FRAME '\1aEXTWORD-DATA>
1897                     <PUSH BNO5>
1898                     <CALL '\1aEXTWORD-DATA 1 = STACK>
1899                     <CALL '\1aEMIT 4>
1900                     <NTHL BRANCH6 1 = TEMP11 (TYPE ATOM)>
1901                     <VEQUAL? TEMP11 '- - PHRASE10>
1902                     <DEAD TEMP11>
1903                     <FRAME '\1aGEN-BRANCH>
1904                     <PUSH 225>
1905                     <FRAME '\1aMA-IMM>
1906                     <PUSH BNO5>
1907                     <DEAD BNO5>
1908                     <CALL '\1aMA-IMM 1 = STACK>
1909                     <PUSH VADDR4>
1910                     <DEAD VADDR4>
1911                     <RESTL BRANCH6 1 = TEMP11 (TYPE LIST)>
1912                     <DEAD BRANCH6>
1913                     <NTHL TEMP11 1 = STACK (TYPE ATOM)>
1914                     <DEAD TEMP11>
1915                     <PUSH %<>>
1916                     <CALL '\1aGEN-BRANCH 5 = TEMP11>
1917                     <RETURN TEMP11>
1918                     <DEAD TEMP11>
1919 PHRASE10
1920                     <FRAME '\1aGEN-BRANCH>
1921                     <PUSH 224>
1922                     <FRAME '\1aMA-IMM>
1923                     <PUSH BNO5>
1924                     <DEAD BNO5>
1925                     <CALL '\1aMA-IMM 1 = STACK>
1926                     <PUSH VADDR4>
1927                     <DEAD VADDR4>
1928                     <RESTL BRANCH6 1 = TEMP11 (TYPE LIST)>
1929                     <DEAD BRANCH6>
1930                     <NTHL TEMP11 1 = STACK (TYPE ATOM)>
1931                     <DEAD TEMP11>
1932                     <PUSH %<>>
1933                     <CALL '\1aGEN-BRANCH 5 = TEMP11>
1934                     <RETURN TEMP11>
1935                     <DEAD TEMP11>
1936                     <END \1aBOOL-NTH-BRANCH>
1937
1938 #WORD *16023044255*
1939                     <GFCN \1aCOUNT-STORE-REC ("VALUE" ANY VARTBL ANY) VAL4 TCADDR5>
1940                     <TEMP LV6 TEMP12 TEMP18:FIX>
1941                     <INTGO>
1942                     <FRAME '\1aFIND-CACHE-VAR>
1943                     <PUSH VAL4>
1944                     <CALL '\1aFIND-CACHE-VAR 1 = LV6>
1945                     <TYPE? LV6 <TYPE-CODE FALSE> + BOOL11>
1946                     <NTHUV LV6 3 = TEMP12>
1947                     <TYPE? TEMP12 <TYPE-CODE FALSE> - BOOL11>
1948                     <DEAD TEMP12>
1949                     <NTHUV LV6 8 = TEMP12>
1950                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE10>
1951                     <DEAD TEMP12>
1952 BOOL11
1953                     <FRAME '\1aEMIT-MOVE>
1954                     <FRAME '\1aVAR-COUNT-ADDRESS>
1955                     <PUSH VAL4>
1956                     <DEAD VAL4>
1957                     <CALL '\1aVAR-COUNT-ADDRESS 1 = STACK>
1958                     <PUSH TCADDR5>
1959                     <DEAD TCADDR5>
1960                     <PUSH 'WORD>
1961                     <CALL '\1aEMIT-MOVE 3 = TEMP12>
1962                     <RETURN TEMP12>
1963                     <DEAD TEMP12>
1964 PHRASE10
1965                     <NTHUV LV6 9 = LV6>
1966                     <SET TEMP12 LV6>
1967                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE15>
1968                     <FRAME '\1aEMIT>
1969                     <PUSH 156>
1970                     <GVAL 'AC-PC = TEMP12>
1971                     <NTHUV TEMP12 2 = TEMP12 (TYPE FIX)>
1972                     <OR TEMP12 #WORD *200* = TEMP12>
1973                     <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
1974                     <LSH 16 16 = TEMP18 (TYPE FIX)>
1975                     <OR TEMP12 TEMP18 = TEMP12>
1976                     <DEAD TEMP18>
1977                     <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
1978                     <DEAD TEMP12>
1979                     <NTHUV LV6 2 = TEMP18 (TYPE FIX)>
1980                     <DEAD LV6>
1981                     <OR TEMP18 #WORD *120* = TEMP18>
1982                     <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
1983                     <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
1984                     <DEAD TEMP18>
1985                     <FRAME '\1aGET-AC>
1986                     <PUSH 'ANY-AC>
1987                     <PUSH 'T>
1988                     <CALL '\1aGET-AC 2 = LV6>
1989                     <NTHUV LV6 2 = TEMP18 (TYPE FIX)>
1990                     <OR TEMP18 #WORD *120* = TEMP18>
1991                     <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
1992                     <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
1993                     <DEAD TEMP18>
1994                     <CALL '\1aEMIT 4>
1995                     <FRAME '\1aEMIT-MOVE>
1996                     <NTHUV LV6 2 = TEMP18 (TYPE FIX)>
1997                     <DEAD LV6>
1998                     <OR TEMP18 #WORD *120* = TEMP18>
1999                     <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
2000                     <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
2001                     <DEAD TEMP18>
2002                     <PUSH TCADDR5>
2003                     <DEAD TCADDR5>
2004                     <PUSH 'WORD>
2005                     <CALL '\1aEMIT-MOVE 3 = TEMP12>
2006 PHRASE15
2007                     <RETURN TEMP12>
2008                     <DEAD TEMP12>
2009                     <END \1aCOUNT-STORE-REC>