mim/development/mim/vaxc/toplev.mima

   1
   2 <SETG HAS-RESULT <>>
   3
   4 #WORD *22544275571*
   5 <GFCN \1aMIMOC ("VALUE" ATOM <LIST [REST <OR FORM ATOM>]> "OPTIONAL" ANY) CODLIST6 NEW-MSUBR7>
   6                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
   7 OPT4
   8                     <PUSH 'T>
   9 OPT5
  10                     <TEMP TEMP3:LBIND LABEL?19 FROB?20 FIRST?21 PROTECT?22 TEMP26 CODITEM16 PPTR17 NUM14 TF23 OUTST73 TEMP85 STATUS8>
  11                     <INTGO>
  12                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
  13                     <BBIND 'CODPTR 'LIST 'FIX CODLIST6>
  14                     <DEAD CODLIST6>
  15                     <FRAME '\1aINIT-ALL-STUFF>
  16                     <PUSH NEW-MSUBR7>
  17                     <DEAD NEW-MSUBR7>
  18                     <CALL '\1aINIT-ALL-STUFF 1>
  19                     <SETG 'FLUSH-NEXT 0>
  20                     <SET LABEL?19 %<> (TYPE FALSE)>
  21                     <SET FROB?20 %<> (TYPE FALSE)>
  22                     <SET FIRST?21 'T (TYPE ATOM)>
  23                     <SET PROTECT?22 %<> (TYPE FALSE)>
  24                     <LOOP>
  25 AGAIN24
  26                     <INTGO>
  27                     <NTHR 'CODPTR 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
  28                     <NTHR TEMP26 1 = PROTECT?22 (RECORD-TYPE LBIND)>
  29                     <DEAD TEMP26>
  30                     <NTHL PROTECT?22 1 = CODITEM16>
  31                     <DEAD PROTECT?22>
  32                     <NTHR 'CODPTR 2 = PROTECT?22 (RECORD-TYPE ATOM) (TYPE LBIND)>
  33                     <NTHR PROTECT?22 1 = PPTR17 (RECORD-TYPE LBIND)>
  34                     <DEAD PROTECT?22>
  35                     <NTHR 'CODPTR 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
  36                     <NTHR TEMP26 1 = TEMP26 (RECORD-TYPE LBIND)>
  37                     <RESTL TEMP26 1 = PROTECT?22 (TYPE LIST)>
  38                     <DEAD TEMP26>
  39                     <NTHR 'CODPTR 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
  40                     <PUTR TEMP26 1 PROTECT?22 (RECORD-TYPE LBIND)>
  41                     <DEAD TEMP26 PROTECT?22>
  42                     <NTHR 'MAX-SPACE 1 = PROTECT?22 (RECORD-TYPE ATOM) (BRANCH-FALSE + BOOL35)>
  43                     <TYPE? PROTECT?22 <TYPE-CODE FALSE> + BOOL35>
  44                     <NTHR PROTECT?22 1 = PROTECT?22 (RECORD-TYPE GBIND)>
  45                     <TYPE? PROTECT?22 <TYPE-CODE UNBOUND> + BOOL35>
  46                     <DEAD PROTECT?22>
  47                     <GVAL 'MAX-SPACE = PROTECT?22>
  48                     <TYPE? PROTECT?22 <TYPE-CODE FALSE> + BOOL35>
  49                     <DEAD PROTECT?22>
  50                     <PUTREST PPTR17 ()>
  51                     <DEAD PPTR17>
  52 BOOL35
  53                     <GVAL 'FLUSH-NEXT = PROTECT?22>
  54                     <GRTR? PROTECT?22 0 - COND40 (TYPE FIX)>
  55                     <DEAD PROTECT?22>
  56                     <GVAL 'FLUSH-NEXT = PROTECT?22>
  57                     <SUB PROTECT?22 1 = PROTECT?22 (TYPE FIX)>
  58                     <SETG 'FLUSH-NEXT PROTECT?22>
  59                     <DEAD PROTECT?22>
  60                     <NTHR 'CODPTR 2 = PROTECT?22 (RECORD-TYPE ATOM) (TYPE LBIND)>
  61                     <NTHR PROTECT?22 1 = PROTECT?22 (RECORD-TYPE LBIND)>
  62                     <EMPL? PROTECT?22 - AGAIN24 (TYPE LIST)>
  63                     <DEAD PROTECT?22>
  64                     <JUMP + EXIT12>
  65 COND40
  66                     <FRAME '\1aUNPROTECT-ACS>
  67                     <CALL '\1aUNPROTECT-ACS 0>
  68                     <FRAME '\1aCLEAR-DEATH>
  69                     <CALL '\1aCLEAR-DEATH 0>
  70                     <FRAME '\1aGETPROP>
  71                     <PUSH CODITEM16>
  72                     <PUSH 'DONE>
  73                     <CALL '\1aGETPROP 2 = PROTECT?22>
  74                     <TYPE? PROTECT?22 <TYPE-CODE FALSE> - COND46>
  75                     <DEAD PROTECT?22>
  76                     <TYPE? CODITEM16 <TYPE-CODE FORM> - PHRASE48>
  77                     <NTHL CODITEM16 1 = PROTECT?22 (TYPE ATOM)>
  78                     <NTHR PROTECT?22 1 = TEMP26 (RECORD-TYPE ATOM) (BRANCH-FALSE + BOOL51)>
  79                     <DEAD PROTECT?22>
  80                     <TYPE? TEMP26 <TYPE-CODE FALSE> + BOOL51>
  81                     <NTHR TEMP26 1 = TEMP26 (RECORD-TYPE GBIND)>
  82                     <TYPE? TEMP26 <TYPE-CODE UNBOUND> + BOOL51>
  83                     <DEAD TEMP26>
  84                     <NTHL CODITEM16 1 = TEMP26 (TYPE ATOM)>
  85                     <GVAL TEMP26 = NUM14>
  86                     <DEAD TEMP26>
  87                     <TYPE? NUM14 <TYPE-CODE FIX> + PHRASE50>
  88 BOOL51
  89                     <FRAME '\1aERROR>
  90                     <PUSH "UNKNOWN">
  91                     <PUSH CODITEM16>
  92                     <CALL '\1aERROR 2>
  93 PHRASE50
  94                     <LESS? NUM14 0 - PHRASE54>
  95                     <SET PROTECT?22 'T (TYPE ATOM)>
  96                     <TYPE? NUM14 <TYPE-CODE FIX> - TAG57>
  97                     <SUB 0 NUM14 = NUM14 (TYPE FIX)>
  98                     <JUMP + PHRASE59>
  99 TAG57
 100                     <SUBF 0.0 NUM14 = NUM14 (TYPE FLOAT)>
 101                     <JUMP + PHRASE59>
 102 PHRASE54
 103                     <SET PROTECT?22 %<> (TYPE FALSE)>
 104 PHRASE59
 105                     <GVAL 'OP-APPLY-VECTOR = TEMP26>
 106                     <NTHUV TEMP26 NUM14 = PPTR17>
 107                     <DEAD TEMP26>
 108                     <NTHL CODITEM16 1 = TEMP26>
 109                     <EQUAL? TEMP26 'CALL!-MIMOP + BOOL61>
 110                     <DEAD TEMP26>
 111                     <NTHL CODITEM16 1 = TEMP26>
 112                     <EQUAL? TEMP26 'FRAME!-MIMOP + BOOL61>
 113                     <DEAD TEMP26>
 114                     <SET TF23 CODITEM16>
 115                     <CHTYPE TF23 <TYPE-CODE LIST> = TF23>
 116                     <LOOP (TF23 VALUE)>
 117 TAG65
 118                     <NTHL TF23 1 = TEMP26>
 119                     <TYPE? TEMP26 <TYPE-CODE ATOM> - TAG66>
 120                     <VEQUAL? TEMP26 '+ + TAG68>
 121                     <DEAD TEMP26>
 122 TAG66
 123                     <RESTL TF23 1 = TF23 (TYPE LIST)>
 124                     <EMPL? TF23 - TAG65>
 125                     <SET TF23 CODITEM16>
 126                     <CHTYPE TF23 <TYPE-CODE LIST> = TF23>
 127                     <LOOP (TF23 VALUE)>
 128 TAG69
 129                     <NTHL TF23 1 = TEMP26>
 130                     <TYPE? TEMP26 <TYPE-CODE ATOM> - TAG70>
 131                     <VEQUAL? TEMP26 '- + TAG68>
 132                     <DEAD TEMP26>
 133 TAG70
 134                     <RESTL TF23 1 = TF23 (TYPE LIST)>
 135                     <EMPL? TF23 - TAG69>
 136                     <SET TF23 %<> (TYPE FALSE)>
 137 TAG68
 138                     <VEQUAL? TF23 0 + BOOL61>
 139                     <GVAL 'OUTST-LABEL-TABLE = OUTST73>
 140                     <RESTL TF23 1 = TF23 (TYPE LIST)>
 141                     <NTHL TF23 1 = TEMP26>
 142                     <DEAD TF23>
 143                     <SET TEMP85 %<> (TYPE FALSE)>
 144                     <SET TF23 OUTST73 (TYPE VECTOR)>
 145                     <DEAD OUTST73>
 146                     <LOOP>
 147 MAP78
 148                     <INTGO>
 149                     <EMPUV? TF23 + MAPAP81>
 150                     <NTHUV TF23 1 = OUTST73>
 151                     <NTHUV OUTST73 1 = TEMP85>
 152                     <EQUAL? TEMP85 TEMP26 + TAG90>
 153                     <DEAD TEMP85>
 154                     <SET TEMP85 %<> (TYPE FALSE)>
 155                     <JUMP + COND92>
 156 TAG90
 157                     <NTHUV OUTST73 5 = TEMP85>
 158                     <DEAD OUTST73>
 159                     <TYPE? TEMP85 <TYPE-CODE FALSE> + PHRASE93>
 160                     <DEAD TEMP85>
 161                     <SET TEMP26 'T (TYPE ATOM)>
 162                     <JUMP + MAPEX80>
 163 PHRASE93
 164                     <SET TEMP26 %<> (TYPE FALSE)>
 165                     <JUMP + MAPEX80>
 166 COND92
 167                     <RESTUV TF23 1 = TF23 (TYPE VECTOR)>
 168                     <JUMP + MAP78>
 169 MAPAP81
 170                     <SET TEMP26 TEMP85>
 171                     <DEAD TEMP85>
 172 MAPEX80
 173                     <TYPE? TEMP26 <TYPE-CODE FALSE> - COND60>
 174                     <DEAD TEMP26>
 175 BOOL61
 176                     <FRAME '\1aSET-DEATH>
 177                     <NTHR 'CODPTR 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
 178                     <NTHR TEMP26 1 = STACK (RECORD-TYPE LBIND)>
 179                     <DEAD TEMP26>
 180                     <CALL '\1aSET-DEATH 1>
 181 COND60
 182                     <VEQUAL? NUM14 -1 - PHRASE99 (TYPE FIX)>
 183                     <FRAME '\1aERROR>
 184                     <PUSH "BAD OPERATION">
 185                     <PUSH 'MIMOC>
 186                     <PUSH CODITEM16>
 187                     <CALL '\1aERROR 3>
 188 PHRASE99
 189                     <GVAL 'DEAD!-MIMOP = TEMP26>
 190                     <EQUAL? TEMP26 NUM14 - PHRASE104>
 191                     <DEAD TEMP26>
 192                     <VEQUAL? LABEL?19 0 - PHRASE104>
 193                     <DEAD LABEL?19>
 194                     <SET LABEL?19 STATUS8>
 195                     <DEAD STATUS8>
 196                     <JUMP + COND103>
 197 PHRASE104
 198                     <SET LABEL?19 %<> (TYPE FALSE)>
 199 COND103
 200                     <VEQUAL? FIRST?21 0 + PHRASE107>
 201                     <SET FIRST?21 %<> (TYPE FALSE)>
 202                     <SET FROB?20 %<> (TYPE FALSE)>
 203                     <JUMP + PHRASE110>
 204 PHRASE107
 205                     <TYPE? FROB?20 <TYPE-CODE FALSE> - PHRASE110>
 206                     <FRAME '\1aFIRST-PROCESS>
 207                     <NTHR 'CODPTR 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
 208                     <NTHR TEMP26 1 = STACK (RECORD-TYPE LBIND)>
 209                     <DEAD TEMP26>
 210                     <CALL '\1aFIRST-PROCESS 1 = FROB?20>
 211                     <EQUAL? FROB?20 'TEMP!-MIMOP + PHRASE110>
 212                     <FRAME '\1aILDB-LOOKAHEAD>
 213                     <NTHR 'CODPTR 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
 214                     <NTHR TEMP26 1 = STACK (RECORD-TYPE LBIND)>
 215                     <DEAD TEMP26>
 216                     <CALL '\1aILDB-LOOKAHEAD 1>
 217 PHRASE110
 218                     <GVAL 'PASS-OPS = TF23>
 219                     <EMPUU? TF23 + PHRASE118>
 220                     <LOOP (NUM14 VALUE) (TF23 LENGTH VALUE)>
 221 TAG120
 222                     <NTHUU TF23 1 = TEMP26>
 223                     <VEQUAL? TEMP26 NUM14 + TAG119>
 224                     <DEAD TEMP26>
 225                     <RESTUU TF23 1 = TF23 (TYPE UVECTOR)>
 226                     <EMPUU? TF23 - TAG120>
 227                     <JUMP + PHRASE118>
 228 TAG119
 229                     <FRAME>
 230                     <SET TEMP26 0 (TYPE FIX)>
 231                     <RESTL CODITEM16 1 = TF23 (TYPE LIST)>
 232                     <CHTYPE TF23 <TYPE-CODE LIST> = TF23>
 233                     <LOOP (TF23 VALUE) (TEMP26 VALUE)>
 234 TAG123
 235                     <INTGO>
 236                     <EMPL? TF23 + TAG122>
 237                     <NTHL TF23 1 = STACK>
 238                     <RESTL TF23 1 = TF23 (TYPE LIST)>
 239                     <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
 240                     <JUMP + TAG123>
 241 TAG122
 242                     <ACALL PPTR17 TEMP26 = STATUS8>
 243                     <DEAD PPTR17 TEMP26>
 244                     <JUMP + PHRASE125>
 245 PHRASE118
 246                     <FRAME '\1aPROCESS-ARGS>
 247                     <RESTL CODITEM16 1 = TF23 (TYPE LIST)>
 248                     <CHTYPE TF23 <TYPE-CODE LIST> = STACK>
 249                     <DEAD TF23>
 250                     <PUSH NUM14>
 251                     <PUSH PROTECT?22>
 252                     <DEAD PROTECT?22>
 253                     <CALL '\1aPROCESS-ARGS 3 = OUTST73>
 254                     <FRAME>
 255                     <SET TF23 0 (TYPE FIX)>
 256                     <SET TEMP26 OUTST73>
 257                     <DEAD OUTST73>
 258                     <LOOP (TEMP26 VALUE LENGTH) (TF23 VALUE)>
 259 TAG128
 260                     <INTGO>
 261                     <EMPUV? TEMP26 + TAG127>
 262                     <NTHUV TEMP26 1 = STACK>
 263                     <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
 264                     <ADD TF23 1 = TF23 (TYPE FIX)>
 265                     <JUMP + TAG128>
 266 TAG127
 267                     <ACALL PPTR17 TF23 = STATUS8>
 268                     <DEAD PPTR17 TF23>
 269 PHRASE125
 270                     <TYPE? FROB?20 <TYPE-CODE FALSE> + BOOL132>
 271                     <NTHL CODITEM16 1 = TEMP26>
 272                     <EQUAL? TEMP26 'MAKTUP!-MIMOP + BOOL132>
 273                     <DEAD TEMP26>
 274                     <NTHL CODITEM16 1 = TEMP26>
 275                     <DEAD CODITEM16>
 276                     <EQUAL? TEMP26 'OPT-DISPATCH!-MIMOP - PHRASE134>
 277                     <DEAD TEMP26>
 278 BOOL132
 279                     <FRAME '\1aFIRST-PROCESS>
 280                     <NTHR 'CODPTR 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
 281                     <NTHR TEMP26 1 = STACK (RECORD-TYPE LBIND)>
 282                     <DEAD TEMP26>
 283                     <CALL '\1aFIRST-PROCESS 1 = FROB?20>
 284                     <EQUAL? FROB?20 'TEMP!-MIMOP + PHRASE134>
 285                     <FRAME '\1aILDB-LOOKAHEAD>
 286                     <NTHR 'CODPTR 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
 287                     <NTHR TEMP26 1 = STACK (RECORD-TYPE LBIND)>
 288                     <DEAD TEMP26>
 289                     <CALL '\1aILDB-LOOKAHEAD 1>
 290 PHRASE134
 291                     <TYPE? LABEL?19 <TYPE-CODE FALSE> + PHRASE142>
 292                     <SET STATUS8 LABEL?19>
 293                     <DEAD LABEL?19>
 294                     <SET LABEL?19 %<> (TYPE FALSE)>
 295                     <JUMP + PHRASE143>
 296 PHRASE142
 297                     <TYPE? STATUS8 <TYPE-CODE FALSE> - PHRASE143>
 298                     <SET STATUS8 'NORMAL (TYPE ATOM)>
 299 PHRASE143
 300                     <SET LABEL?19 %<> (TYPE FALSE)>
 301                     <JUMP + COND46>
 302 PHRASE48
 303                     <TYPE? CODITEM16 <TYPE-CODE ATOM> - PHRASE144>
 304                     <SET LABEL?19 'T (TYPE ATOM)>
 305                     <FRAME '\1aGEN-LABEL>
 306                     <PUSH CODITEM16>
 307                     <DEAD CODITEM16>
 308                     <PUSH STATUS8>
 309                     <CALL '\1aGEN-LABEL 2>
 310                     <JUMP + COND46>
 311 PHRASE144
 312                     <FRAME '\1aERROR>
 313                     <PUSH "BAD CODE ITEM">
 314                     <PUSH 'MIMOC>
 315                     <CALL '\1aERROR 2>
 316 COND46
 317                     <NTHR 'CODPTR 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
 318                     <NTHR TEMP26 1 = TEMP26 (RECORD-TYPE LBIND)>
 319                     <EMPL? TEMP26 - AGAIN24 (TYPE LIST)>
 320                     <DEAD TEMP26>
 321 EXIT12
 322                     <FRAME '\1aPUSH-TEMPS>
 323                     <CALL '\1aPUSH-TEMPS 0>
 324                     <UNBIND TEMP3>
 325                     <DEAD TEMP3>
 326                     <ADJ -9>
 327                     <RETURN 'T>
 328                     <END \1aMIMOC>
 329 #WORD *12140463432*
 330 <GFCN \1aSET-DEATH ("VALUE" ANY LIST "OPTIONAL" ANY) CODPTR6 REALLY-DEAD7>
 331                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
 332 OPT4
 333                     <PUSH %<>>
 334 OPT5
 335                     <TEMP N8:FIX TEMP18 TEMP15:LIST CODITEM20 TEMP45:LIST>
 336                     <INTGO>
 337                     <GVAL 'FLUSH-NEXT = N8>
 338                     <SET TEMP18 %<> (TYPE FALSE)>
 339                     <SET TEMP15 CODPTR6 (TYPE LIST)>
 340                     <DEAD CODPTR6>
 341                     <LOOP>
 342 MAP10
 343                     <INTGO>
 344                     <EMPL? TEMP15 + MAPAP13>
 345                     <NTHL TEMP15 1 = CODITEM20>
 346                     <TYPE? CODITEM20 <TYPE-CODE FORM> - PHRASE23>
 347                     <SUB N8 1 = N8 (TYPE FIX)>
 348                     <LESS? N8 0 + TAG27 (TYPE FIX)>
 349                     <SET TEMP18 %<> (TYPE FALSE)>
 350                     <JUMP + COND22>
 351 TAG27
 352                     <FRAME '\1aGETPROP>
 353                     <PUSH CODITEM20>
 354                     <PUSH 'DONE>
 355                     <CALL '\1aGETPROP 2 = TEMP18>
 356                     <TYPE? TEMP18 <TYPE-CODE FALSE> + TAG32>
 357                     <DEAD TEMP18>
 358                     <SET TEMP18 %<> (TYPE FALSE)>
 359                     <JUMP + COND22>
 360 TAG32
 361                     <NTHL CODITEM20 1 = TEMP18>
 362                     <EQUAL? TEMP18 'DEAD!-MIMOP - PHRASE34>
 363                     <DEAD TEMP18>
 364                     <SET TEMP18 %<> (TYPE FALSE)>
 365                     <RESTL CODITEM20 1 = TEMP45 (TYPE LIST)>
 366                     <DEAD CODITEM20>
 367                     <CHTYPE TEMP45 <TYPE-CODE LIST> = TEMP45>
 368                     <LOOP>
 369 MAP36
 370                     <INTGO>
 371                     <EMPL? TEMP45 + MAPAP39>
 372                     <NTHL TEMP45 1 = CODITEM20>
 373                     <TYPE? CODITEM20 <TYPE-CODE VARTBL> + TAG49>
 374                     <SET TEMP18 %<> (TYPE FALSE)>
 375                     <JUMP + PHRASE52>
 376 TAG49
 377                     <PUTUV CODITEM20 5 'T>
 378                     <SET TEMP18 REALLY-DEAD7>
 379                     <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE52>
 380                     <FRAME '\1aDEAD-VAR>
 381                     <PUSH CODITEM20>
 382                     <DEAD CODITEM20>
 383                     <CALL '\1aDEAD-VAR 1 = TEMP18>
 384 PHRASE52
 385                     <RESTL TEMP45 1 = TEMP45 (TYPE LIST)>
 386                     <JUMP + MAP36>
 387 MAPAP39
 388                     <JUMP + COND22>
 389 PHRASE34
 390                     <RETURN 'T>
 391 PHRASE23
 392                     <RETURN 'T>
 393 COND22
 394                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
 395                     <JUMP + MAP10>
 396 MAPAP13
 397                     <RETURN TEMP18>
 398                     <DEAD TEMP18>
 399                     <END \1aSET-DEATH>
 400 <SETG ARGVEC <IVECTOR ,MAX-NUMBER-ARGS>>
 401
 402 #WORD *5012437231*
 403 <GFCN \1aFIRST-PROCESS ("VALUE" <OR ATOM FALSE <LIST ANY>> <LIST [REST <OR FORM ATOM>]>) L4>
 404                     <TEMP FP6 TEMP13:LIST X18 TEMP33 TEMP34 PTR36:LIST>
 405                     <INTGO>
 406                     <SET FP6 %<> (TYPE FALSE)>
 407                     <SET TEMP13 L4 (TYPE LIST)>
 408                     <DEAD L4>
 409                     <LOOP>
 410 MAP8
 411                     <INTGO>
 412                     <EMPL? TEMP13 + MAPAP11>
 413                     <NTHL TEMP13 1 = X18>
 414                     <TYPE? X18 <TYPE-CODE FORM> + TAG22>
 415                     <SET FP6 %<> (TYPE FALSE)>
 416                     <JUMP + PHRASE95>
 417 TAG22
 418                     <NTHL X18 1 = FP6 (TYPE ATOM)>
 419                     <NTHR FP6 1 = FP6 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG26)>
 420                     <TYPE? FP6 <TYPE-CODE FALSE> + TAG26>
 421                     <NTHR FP6 1 = FP6 (RECORD-TYPE GBIND)>
 422                     <TYPE? FP6 <TYPE-CODE UNBOUND> - TAG25>
 423                     <DEAD FP6>
 424 TAG26
 425                     <SET FP6 %<> (TYPE FALSE)>
 426                     <JUMP + PHRASE95>
 427 TAG25
 428                     <NTHL X18 1 = FP6 (TYPE ATOM)>
 429                     <GVAL FP6 = TEMP33>
 430                     <DEAD FP6>
 431                     <GVAL 'PASS-OPS = FP6>
 432                     <TYPE? TEMP33 <TYPE-CODE FIX> - TAG30>
 433                     <EMPUU? FP6 + TAG30>
 434                     <LOOP (TEMP33 VALUE) (FP6 LENGTH VALUE)>
 435 TAG31
 436                     <NTHUU FP6 1 = TEMP34>
 437                     <VEQUAL? TEMP34 TEMP33 + PHRASE29>
 438                     <DEAD TEMP34>
 439                     <RESTUU FP6 1 = FP6 (TYPE UVECTOR)>
 440                     <EMPUU? FP6 - TAG31>
 441 TAG30
 442                     <RESTL X18 1 = PTR36 (TYPE LIST)>
 443                     <CHTYPE PTR36 <TYPE-CODE LIST> = PTR36>
 444                     <LOOP>
 445 AGAIN40
 446                     <INTGO>
 447                     <EMPL? PTR36 - PHRASE42 (TYPE LIST)>
 448                     <SET FP6 'T (TYPE ATOM)>
 449                     <JUMP + PHRASE95>
 450 PHRASE42
 451                     <NTHL PTR36 1 = FP6>
 452                     <EQUAL? FP6 '= - PHRASE44>
 453                     <CHTYPE FP6 <TYPE-CODE RES-IND> = TEMP33>
 454                     <DEAD FP6>
 455                     <PUTL PTR36 1 TEMP33>
 456                     <DEAD TEMP33>
 457                     <RESTL PTR36 1 = PTR36 (TYPE LIST)>
 458                     <NTHL PTR36 1 = FP6>
 459                     <EQUAL? FP6 'STACK + PHRASE59>
 460                     <FRAME '\1aFIND-VAR>
 461                     <PUSH FP6>
 462                     <DEAD FP6>
 463                     <CALL '\1aFIND-VAR 1 = FP6>
 464                     <TYPE? FP6 <TYPE-CODE FALSE> + PHRASE46>
 465                     <PUTL PTR36 1 FP6>
 466                     <DEAD FP6>
 467                     <JUMP + PHRASE59>
 468 PHRASE46
 469                     <FRAME '\1aERROR>
 470                     <PUSH "NOT A VARIABLE">
 471                     <NTHL PTR36 1 = STACK>
 472                     <PUSH 'PROCESS-ARGS>
 473                     <CALL '\1aERROR 3>
 474                     <JUMP + PHRASE59>
 475 PHRASE44
 476                     <TYPE? FP6 <TYPE-CODE ATOM> - PHRASE49>
 477                     <FRAME '\1aFIND-VAR>
 478                     <PUSH FP6>
 479                     <DEAD FP6>
 480                     <CALL '\1aFIND-VAR 1 = FP6>
 481                     <TYPE? FP6 <TYPE-CODE FALSE> + PHRASE59>
 482                     <PUTUV FP6 5 %<>>
 483                     <PUTL PTR36 1 FP6>
 484                     <DEAD FP6>
 485                     <JUMP + PHRASE59>
 486 PHRASE49
 487                     <TYPE? FP6 <TYPE-CODE FORM> - PHRASE53>
 488                     <EMPL? FP6 + PHRASE53>
 489                     <RESTL FP6 1 = TEMP33 (TYPE LIST)>
 490                     <EMPL? TEMP33 + PHRASE53>
 491                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
 492                     <EMPL? TEMP33 - PHRASE53>
 493                     <DEAD TEMP33>
 494                     <NTHL FP6 1 = TEMP33>
 495                     <EQUAL? TEMP33 'TYPE - PHRASE53>
 496                     <DEAD TEMP33>
 497                     <NTHL X18 1 = TEMP33>
 498                     <EQUAL? TEMP33 'CHTYPE!-MIMOP - PHRASE53>
 499                     <DEAD TEMP33>
 500                     <FRAME '\1aFIND-VAR>
 501                     <RESTL FP6 1 = TEMP33 (TYPE LIST)>
 502                     <DEAD FP6>
 503                     <NTHL TEMP33 1 = STACK>
 504                     <DEAD TEMP33>
 505                     <CALL '\1aFIND-VAR 1 = FP6>
 506                     <TYPE? FP6 <TYPE-CODE FALSE> + PHRASE59>
 507                     <FRAME '\1aFORM>
 508                     <PUSH 'TYPE>
 509                     <PUSH FP6>
 510                     <CALL '\1aFORM 2 = TEMP33>
 511                     <PUTL PTR36 1 TEMP33>
 512                     <DEAD TEMP33>
 513                     <PUTUV FP6 5 %<>>
 514                     <DEAD FP6>
 515                     <JUMP + PHRASE59>
 516 PHRASE53
 517                     <TYPE? FP6 <TYPE-CODE FORM> - PHRASE59>
 518                     <EMPL? FP6 + PHRASE59>
 519                     <RESTL FP6 1 = TEMP33 (TYPE LIST)>
 520                     <EMPL? TEMP33 + PHRASE59>
 521                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
 522                     <EMPL? TEMP33 - PHRASE59>
 523                     <DEAD TEMP33>
 524                     <NTHL FP6 1 = TEMP34>
 525                     <EQUAL? TEMP34 'QUOTE + BOOL61>
 526                     <EQUAL? TEMP34 'TYPE-CODE - PHRASE59>
 527 BOOL61
 528                     <RESTL FP6 1 = TEMP33 (TYPE LIST)>
 529                     <NTHL TEMP33 1 = TEMP33>
 530                     <TYPE? TEMP33 <TYPE-CODE ATOM> - PHRASE59>
 531                     <DEAD TEMP33>
 532                     <RESTL FP6 1 = TEMP33 (TYPE LIST)>
 533                     <DEAD FP6>
 534                     <NTHL TEMP33 1 = FP6 (TYPE ATOM)>
 535                     <DEAD TEMP33>
 536                     <EQUAL? TEMP34 'TYPE-CODE - BOOL62>
 537                     <DEAD TEMP34>
 538                     <FRAME '\1aCHECK-MIMOP-TYPE>
 539                     <PUSH FP6>
 540                     <CALL '\1aCHECK-MIMOP-TYPE 1 = TEMP34>
 541                     <TYPE? TEMP34 <TYPE-CODE FALSE> + BOOL62>
 542                     <SET FP6 TEMP34>
 543                     <DEAD TEMP34>
 544 BOOL62
 545                     <PUTL PTR36 1 FP6>
 546                     <DEAD FP6>
 547 PHRASE59
 548                     <RESTL PTR36 1 = PTR36 (TYPE LIST)>
 549                     <JUMP + AGAIN40>
 550 PHRASE29
 551                     <NTHL X18 1 = TEMP33 (TYPE ATOM)>
 552                     <VEQUAL? TEMP33 'TEMP!-MIMOP - PHRASE64>
 553                     <DEAD TEMP33>
 554                     <GETS 'BIND = TEMP33 (TYPE LBIND)>
 555                     <BBIND 'FIRST-PROCESS? 'ATOM 'FIX 'T>
 556                     <FRAME '\1aTEMP-PROCESS>
 557                     <SET FP6 0 (TYPE FIX)>
 558                     <RESTL X18 1 = TEMP34 (TYPE LIST)>
 559                     <CHTYPE TEMP34 <TYPE-CODE LIST> = TEMP34>
 560                     <LOOP (TEMP34 VALUE) (FP6 VALUE)>
 561 TAG70
 562                     <INTGO>
 563                     <EMPL? TEMP34 + TAG68>
 564                     <NTHL TEMP34 1 = STACK>
 565                     <RESTL TEMP34 1 = TEMP34 (TYPE LIST)>
 566                     <ADD FP6 1 = FP6 (TYPE FIX)>
 567                     <JUMP + TAG70>
 568 TAG68
 569                     <CALL '\1aTEMP-PROCESS FP6>
 570                     <DEAD FP6>
 571                     <UNBIND TEMP33>
 572                     <DEAD TEMP33>
 573                     <ADJ -9>
 574                     <SET FP6 %<> (TYPE FALSE)>
 575                     <RESTL X18 1 = TEMP33 (TYPE LIST)>
 576                     <DEAD X18>
 577                     <CHTYPE TEMP33 <TYPE-CODE LIST> = TEMP33>
 578                     <LOOP>
 579 MAP73
 580                     <INTGO>
 581                     <EMPL? TEMP33 + MAPAP76>
 582                     <SET PTR36 TEMP33>
 583                     <NTHL PTR36 1 = FP6>
 584                     <TYPE? FP6 <TYPE-CODE LIST> - PHRASE84>
 585                     <NTHL FP6 1 = X18>
 586                     <TYPE? X18 <TYPE-CODE ADECL> - PHRASE86>
 587                     <DEAD X18>
 588                     <FRAME '\1aFIND-VAR>
 589                     <NTHL FP6 1 = X18 (TYPE ADECL)>
 590                     <NTHUV X18 1 = STACK>
 591                     <DEAD X18>
 592                     <CALL '\1aFIND-VAR 1 = X18>
 593                     <PUTL FP6 1 X18>
 594                     <DEAD X18>
 595                     <JUMP + PHRASE93>
 596 PHRASE86
 597                     <FRAME '\1aFIND-VAR>
 598                     <NTHL FP6 1 = STACK>
 599                     <CALL '\1aFIND-VAR 1 = X18>
 600                     <PUTL FP6 1 X18>
 601                     <DEAD X18>
 602                     <JUMP + PHRASE93>
 603 PHRASE84
 604                     <TYPE? FP6 <TYPE-CODE ADECL> - PHRASE91>
 605                     <FRAME '\1aFIND-VAR>
 606                     <NTHUV FP6 1 = STACK>
 607                     <DEAD FP6>
 608                     <CALL '\1aFIND-VAR 1 = X18>
 609                     <PUTL PTR36 1 X18>
 610                     <DEAD X18>
 611                     <SET FP6 PTR36>
 612                     <DEAD PTR36>
 613                     <JUMP + PHRASE93>
 614 PHRASE91
 615                     <FRAME '\1aFIND-VAR>
 616                     <PUSH FP6>
 617                     <DEAD FP6>
 618                     <CALL '\1aFIND-VAR 1 = X18>
 619                     <PUTL PTR36 1 X18>
 620                     <DEAD X18>
 621                     <SET FP6 PTR36>
 622                     <DEAD PTR36>
 623 PHRASE93
 624                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
 625                     <JUMP + MAP73>
 626 MAPAP76
 627                     <JUMP + PHRASE95>
 628 PHRASE64
 629                     <NTHL X18 1 = TEMP33 (TYPE ATOM)>
 630                     <VEQUAL? TEMP33 'MAKTUP!-MIMOP + TAG97>
 631                     <DEAD TEMP33>
 632                     <NTHL X18 1 = TEMP33 (TYPE ATOM)>
 633                     <DEAD X18>
 634                     <VEQUAL? TEMP33 'OPT-DISPATCH!-MIMOP + TAG97>
 635                     <DEAD TEMP33>
 636                     <SET FP6 %<> (TYPE FALSE)>
 637                     <JUMP + PHRASE95>
 638 TAG97
 639                     <RETURN 'TEMP!-MIMOP>
 640 PHRASE95
 641                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
 642                     <JUMP + MAP8>
 643 MAPAP11
 644                     <RETURN FP6>
 645                     <DEAD FP6>
 646                     <END \1aFIRST-PROCESS>
 647 #WORD *366300014*
 648 <GFCN \1aPROCESS-ARGS ("VALUE" VECTOR LIST FIX ANY) LST4 NUM5 PROTECT?6>
 649                     <TEMP (CNT7:FIX 1) ARGS8 PTR14 ITEM15 TEMP24 TEMP29>
 650                     <INTGO>
 651                     <GVAL 'ARGVEC = ARGS8>
 652                     <SETG 'HAS-RESULT %<>>
 653                     <SET PTR14 LST4>
 654                     <DEAD LST4>
 655                     <LOOP>
 656 AGAIN16
 657                     <INTGO>
 658                     <EMPL? PTR14 + EXIT12 (TYPE LIST)>
 659                     <NTHL PTR14 1 = ITEM15>
 660                     <TYPE? ITEM15 <TYPE-CODE RES-IND> - PHRASE20>
 661                     <RESTL PTR14 1 = PTR14 (TYPE LIST)>
 662                     <NTHL PTR14 1 = ITEM15>
 663                     <GVAL 'CHANNEL-OP!-MIMOP = TEMP24>
 664                     <EQUAL? TEMP24 NUM5 + BOOL23>
 665                     <DEAD TEMP24>
 666                     <GVAL 'DOUBLE!-MIMOP = TEMP24>
 667                     <EQUAL? TEMP24 NUM5 - PHRASE22>
 668                     <DEAD TEMP24>
 669 BOOL23
 670                     <SETG 'HAS-RESULT ITEM15>
 671                     <DEAD ITEM15>
 672                     <RESTL PTR14 1 = PTR14 (TYPE LIST)>
 673                     <JUMP + AGAIN16>
 674 PHRASE22
 675                     <EQUAL? ITEM15 'STACK + PHRASE34>
 676                     <GVAL 'DEAD-MIM-CODES = TEMP24>
 677                     <EMPUU? TEMP24 + PHRASE34>
 678                     <LOOP (NUM5 VALUE) (TEMP24 LENGTH VALUE)>
 679 TAG27
 680                     <NTHUU TEMP24 1 = TEMP29>
 681                     <VEQUAL? TEMP29 NUM5 + TAG26>
 682                     <DEAD TEMP29>
 683                     <RESTUU TEMP24 1 = TEMP24 (TYPE UVECTOR)>
 684                     <EMPUU? TEMP24 - TAG27>
 685                     <JUMP + PHRASE34>
 686 TAG26
 687                     <PUTUV ITEM15 5 'T>
 688                     <JUMP + PHRASE34>
 689 PHRASE20
 690                     <TYPE? ITEM15 <TYPE-CODE VARTBL> - PHRASE30>
 691                     <TYPE? PROTECT?6 <TYPE-CODE FALSE> + PHRASE32>
 692                     <FRAME '\1aPROTECT-VAL>
 693                     <PUSH ITEM15>
 694                     <CALL '\1aPROTECT-VAL 1>
 695 PHRASE32
 696                     <PUTUV ITEM15 5 %<>>
 697                     <JUMP + PHRASE34>
 698 PHRASE30
 699                     <TYPE? ITEM15 <TYPE-CODE FORM> - PHRASE34>
 700                     <EMPL? ITEM15 + PHRASE34>
 701                     <RESTL ITEM15 1 = TEMP24 (TYPE LIST)>
 702                     <EMPL? TEMP24 + PHRASE34>
 703                     <RESTL TEMP24 1 = TEMP24 (TYPE LIST)>
 704                     <EMPL? TEMP24 - PHRASE34>
 705                     <DEAD TEMP24>
 706                     <NTHL ITEM15 1 = TEMP24>
 707                     <EQUAL? TEMP24 'TYPE - PHRASE34>
 708                     <DEAD TEMP24>
 709                     <GVAL 'CHTYPE!-MIMOP = TEMP24>
 710                     <EQUAL? TEMP24 NUM5 - PHRASE34>
 711                     <DEAD TEMP24>
 712                     <TYPE? PROTECT?6 <TYPE-CODE FALSE> + PHRASE37>
 713                     <FRAME '\1aPROTECT-VAL>
 714                     <RESTL ITEM15 1 = TEMP24 (TYPE LIST)>
 715                     <NTHL TEMP24 1 = STACK>
 716                     <DEAD TEMP24>
 717                     <CALL '\1aPROTECT-VAL 1>
 718 PHRASE37
 719                     <RESTL ITEM15 1 = TEMP24 (TYPE LIST)>
 720                     <NTHL TEMP24 1 = TEMP24 (TYPE VARTBL)>
 721                     <PUTUV TEMP24 5 %<>>
 722                     <DEAD TEMP24>
 723 PHRASE34
 724                     <LENUV ARGS8 = TEMP24 (TYPE FIX)>
 725                     <GRTR? CNT7 TEMP24 - PHRASE40 (TYPE FIX)>
 726                     <DEAD TEMP24>
 727                     <LENUV ARGS8 = TEMP24 (TYPE FIX)>
 728                     <ADD TEMP24 50 = TEMP24 (TYPE FIX)>
 729                     <UUBLOCK <TYPE-CODE VECTOR> TEMP24 = TEMP29 (TYPE VECTOR)>
 730                     <DEAD TEMP24>
 731                     <SETG 'ARGVEC TEMP29>
 732                     <DEAD TEMP29>
 733                     <LENUV ARGS8 = TEMP29 (TYPE FIX)>
 734                     <GVAL 'ARGVEC = TEMP24>
 735                     <MOVE-WORDS ARGS8 TEMP24 TEMP29 (TYPE VECTOR) (DIRECTION %<>)>
 736                     <DEAD ARGS8 TEMP29>
 737                     <SET ARGS8 TEMP24>
 738                     <DEAD TEMP24>
 739 PHRASE40
 740                     <PUTUV ARGS8 CNT7 ITEM15>
 741                     <DEAD ITEM15>
 742                     <ADD CNT7 1 = CNT7 (TYPE FIX)>
 743                     <RESTL PTR14 1 = PTR14 (TYPE LIST)>
 744                     <JUMP + AGAIN16>
 745 EXIT12
 746                     <LENUV ARGS8 = TEMP24 (TYPE FIX)>
 747                     <SUB CNT7 1 = TEMP29 (TYPE FIX)>
 748                     <SUB TEMP24 TEMP29 = PTR14 (TYPE FIX)>
 749                     <DEAD TEMP24 TEMP29>
 750                     <SUB CNT7 1 = TEMP29 (TYPE FIX)>
 751                     <DEAD CNT7>
 752                     <RESTUV ARGS8 PTR14 = TEMP24 (TYPE VECTOR)>
 753                     <DEAD PTR14>
 754                     <MOVE-WORDS ARGS8 TEMP24 TEMP29 (TYPE VECTOR) (DIRECTION %<>)>
 755                     <DEAD ARGS8 TEMP29>
 756                     <RETURN TEMP24>
 757                     <DEAD TEMP24>
 758                     <END \1aPROCESS-ARGS>
 759 <GDECL (DEAD-MIM-CODES) <UVECTOR [REST FIX]>>
 760
 761 #WORD *32151370366*
 762 <GFCN \1aINIT-ALL-STUFF ("VALUE" ANY BOOLEAN) RESET-ALL4>
 763                     <TEMP TEMP22>
 764                     <INTGO>
 765                     <SETG 'MAKTUP-FLAG %<>>
 766                     <SETG 'ICALL-LEVEL 0>
 767                     <FRAME '\1aRESET-AC-STACK-MODEL>
 768                     <CALL '\1aRESET-AC-STACK-MODEL 0>
 769                     <FRAME '\1aRESET-CODE>
 770                     <CALL '\1aRESET-CODE 0>
 771                     <TYPE? RESET-ALL4 <TYPE-CODE FALSE> + PHRASE8>
 772                     <FRAME '\1aRESET-FCODE>
 773                     <CALL '\1aRESET-FCODE 0>
 774                     <FRAME '\1aRESET-CONSTANTS>
 775                     <CALL '\1aRESET-CONSTANTS 0>
 776                     <FRAME '\1aINIT-MVEC-STUFF>
 777                     <CALL '\1aINIT-MVEC-STUFF 0>
 778                     <FRAME '\1aINIT-UNRESOLVED-CALLS>
 779                     <CALL '\1aINIT-UNRESOLVED-CALLS 0>
 780                     <FRAME '\1aINIT-CALL-ENTRYS>
 781                     <CALL '\1aINIT-CALL-ENTRYS 0>
 782 PHRASE8
 783                     <FRAME '\1aINIT-LABEL-TABLE>
 784                     <PUSH RESET-ALL4>
 785                     <DEAD RESET-ALL4>
 786                     <CALL '\1aINIT-LABEL-TABLE 1>
 787                     <FRAME '\1aRESET-CALL-TABLE>
 788                     <CALL '\1aRESET-CALL-TABLE 0>
 789                     <FRAME '\1aINIT-VAR-LIST>
 790                     <CALL '\1aINIT-VAR-LIST 0>
 791                     <FRAME '\1aINIT-INTERNAL-ENTRYS>
 792                     <CALL '\1aINIT-INTERNAL-ENTRYS 0>
 793                     <SETG 'TEMP-PATCH -1>
 794                     <FRAME '\1aRESET-FRAME-LABEL-TABLE>
 795                     <CALL '\1aRESET-FRAME-LABEL-TABLE 0>
 796                     <FRAME '\1aINIT-PATCH-TABLE>
 797                     <CALL '\1aINIT-PATCH-TABLE 0>
 798                     <FRAME '\1aRESET-PUSH-LABEL-TABLE>
 799                     <CALL '\1aRESET-PUSH-LABEL-TABLE 0>
 800                     <FRAME '\1aRESET-MOVE-LABEL-TABLE>
 801                     <CALL '\1aRESET-MOVE-LABEL-TABLE 0 = TEMP22>
 802                     <RETURN TEMP22>
 803                     <DEAD TEMP22>
 804                     <END \1aINIT-ALL-STUFF>
 805 #WORD *20132517726*
 806                     <GFCN \1aFCN-PROCESS ("VALUE" ATOM ANY LIST "TUPLE" <<PRIMTYPE VECTOR> [REST ATOM]>) NAME4 DCLS5>
 807                     <MAKTUP VARS6 (VARLST7:LIST ()) (NVARLST8:LIST ()) LAB9 TEMP13 TEMP14:STRING TEMP15 TEMP16 TEMP17 = VARS6>
 808                     <INTGO>
 809                     <FRAME '\1aMAKE-LABEL>
 810                     <PUSH "FNAME">
 811                     <CALL '\1aMAKE-LABEL 1 = LAB9>
 812                     <SETG 'FUNCTION-DECL DCLS5>
 813                     <NTHL DCLS5 1 = TEMP13>
 814                     <TYPE? TEMP13 <TYPE-CODE STRING> - PHRASE12>
 815                     <IFCAN "STRING-EQUAL?">
 816                     <STRING-EQUAL? TEMP13 "VALUE" - PHRASE12>
 817                     <ENDIF "STRING-EQUAL?">
 818                     <IFCANNOT "STRING-EQUAL?">
 819                     <SET TEMP14 "VALUE" (TYPE STRING)>
 820                     <LENUS TEMP13 = TEMP15 (TYPE FIX)>
 821                     <VEQUAL? TEMP15 5 - PHRASE12>
 822                     <LOOP (TEMP13 VALUE LENGTH) (TEMP14 VALUE LENGTH) (TEMP15 VALUE)>
 823 TAG18
 824                     <NTHUS TEMP13 1 = TEMP16>
 825                     <NTHUS TEMP14 1 = TEMP17>
 826                     <VEQUAL? TEMP16 TEMP17 - PHRASE12>
 827                     <DEAD TEMP16 TEMP17>
 828                     <RESTUS TEMP13 1 = TEMP13 (TYPE STRING)>
 829                     <RESTUS TEMP14 1 = TEMP14 (TYPE STRING)>
 830                     <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
 831                     <GRTR? TEMP15 0 + TAG18 (TYPE FIX)>
 832                     <ENDIF "STRING-EQUAL?">
 833                     <RESTL DCLS5 1 = DCLS5 (TYPE LIST)>
 834                     <RESTL DCLS5 1 = DCLS5 (TYPE LIST)>
 835 PHRASE12
 836                     <SETG 'FUNCTION-NAME NAME4>
 837                     <DEAD NAME4>
 838                     <SETG 'ICALL-LABELS ()>
 839                     <SET TEMP15 %<> (TYPE FALSE)>
 840                     <LOOP>
 841 AGAIN24
 842                     <INTGO>
 843                     <EMPUV? VARS6 + EXIT19>
 844                     <NTHUV VARS6 1 = TEMP13 (TYPE ATOM)>
 845                     <NTHL DCLS5 1 = TEMP16>
 846                     <TYPE? TEMP16 <TYPE-CODE STRING> - PHRASE28>
 847                     <RESTL DCLS5 1 = DCLS5 (TYPE LIST)>
 848                     <SET TEMP15 'T (TYPE ATOM)>
 849                     <SET TEMP16 'ANY (TYPE ATOM)>
 850                     <JUMP + PHRASE29>
 851 PHRASE28
 852                     <VEQUAL? TEMP15 0 + PHRASE29>
 853                     <SET TEMP16 'ANY (TYPE ATOM)>
 854 PHRASE29
 855                     <FRAME '\1aCREATE-VAR>
 856                     <PUSH TEMP13>
 857                     <DEAD TEMP13>
 858                     <PUSH %<>>
 859                     <CALL '\1aCREATE-VAR 2 = TEMP17>
 860                     <EMPL? VARLST7 - PHRASE32 (TYPE LIST)>
 861                     <CONS TEMP17 () = VARLST7>
 862                     <SET NVARLST8 VARLST7>
 863                     <JUMP + PHRASE33>
 864 PHRASE32
 865                     <CONS TEMP17 () = TEMP13>
 866                     <PUTREST NVARLST8 TEMP13>
 867                     <DEAD TEMP13>
 868                     <RESTL NVARLST8 1 = NVARLST8 (TYPE LIST)>
 869 PHRASE33
 870                     <FRAME '\1aINDICATE-VAR-DECL>
 871                     <PUSH TEMP17>
 872                     <DEAD TEMP17>
 873                     <FRAME '\1aISTYPE?>
 874                     <PUSH TEMP16>
 875                     <DEAD TEMP16>
 876                     <CALL '\1aISTYPE? 1 = STACK>
 877                     <CALL '\1aINDICATE-VAR-DECL 2>
 878                     <RESTUV VARS6 1 = VARS6 (TYPE VECTOR)>
 879                     <CHTYPE VARS6 <TYPE-CODE VECTOR> = VARS6>
 880                     <RESTL DCLS5 1 = DCLS5 (TYPE LIST)>
 881                     <JUMP + AGAIN24>
 882 EXIT19
 883                     <SETG 'ARGLIST-VARS VARLST7>
 884                     <DEAD VARLST7>
 885                     <FRAME '\1aEMIT-LABEL>
 886                     <PUSH LAB9>
 887                     <PUSH %<>>
 888                     <CALL '\1aEMIT-LABEL 2>
 889                     <FRAME '\1aADD-INTERNAL-ENTRY>
 890                     <PUSH -1>
 891                     <PUSH LAB9>
 892                     <DEAD LAB9>
 893                     <CALL '\1aADD-INTERNAL-ENTRY 2>
 894                     <RETURN 'NORMAL>
 895                     <END \1aFCN-PROCESS>
 896
 897 #WORD *37454324747*
 898 <GFCN \1aTEMP-PROCESS ("VALUE" ATOM "TUPLE" <TUPLE [REST <OR VARTBL ATOM ADECL LIST>]>)>
 899                     <MAKTUP TEMPS4 TEMP11 NOT-YET?7 ADL5 TBL32 = TEMPS4>
 900                     <INTGO>
 901                     <GEN-ASSIGNED? 'FIRST-PROCESS? + TAG10>
 902                     <SET TEMP11 %<> (TYPE FALSE)>
 903                     <JUMP + BOOL8>
 904 TAG10
 905                     <GEN-LVAL 'FIRST-PROCESS? = TEMP11>
 906 BOOL8
 907                     <SET NOT-YET?7 TEMP11>
 908                     <DEAD TEMP11>
 909                     <TYPE? NOT-YET?7 <TYPE-CODE FALSE> - PHRASE16>
 910                     <FRAME '\1aMAKE-LABEL>
 911                     <CALL '\1aMAKE-LABEL 0 = TEMP11>
 912                     <FRAME '\1aEMIT-LABEL>
 913                     <PUSH TEMP11>
 914                     <DEAD TEMP11>
 915                     <PUSH %<>>
 916                     <CALL '\1aEMIT-LABEL 2>
 917                     <FRAME '\1aINDICATE-TEMP-PATCH>
 918                     <FRAME '\1aADD-PATCH>
 919                     <PUSH 'TEMPORARIES>
 920                     <CALL '\1aADD-PATCH 1 = STACK>
 921                     <CALL '\1aINDICATE-TEMP-PATCH 1>
 922 PHRASE16
 923                     <CHTYPE TEMPS4 <TYPE-CODE VECTOR> = TEMP11>
 924                     <DEAD TEMPS4>
 925                     <LOOP>
 926 MAP22
 927                     <INTGO>
 928                     <EMPUV? TEMP11 + MAPAP25>
 929                     <NTHUV TEMP11 1 = TEMPS4>
 930                     <TYPE? TEMPS4 <TYPE-CODE VARTBL> - PHRASE35>
 931                     <FRAME '\1aCREATE-VAR>
 932                     <PUSH TEMPS4>
 933                     <DEAD TEMPS4>
 934                     <PUSH 'T>
 935                     <PUSH NOT-YET?7>
 936                     <CALL '\1aCREATE-VAR 3>
 937                     <JUMP + PHRASE53>
 938 PHRASE35
 939                     <TYPE? TEMPS4 <TYPE-CODE ATOM> - PHRASE37>
 940                     <FRAME '\1aCREATE-VAR>
 941                     <PUSH TEMPS4>
 942                     <DEAD TEMPS4>
 943                     <PUSH 'T>
 944                     <PUSH NOT-YET?7>
 945                     <CALL '\1aCREATE-VAR 3>
 946                     <JUMP + PHRASE53>
 947 PHRASE37
 948                     <TYPE? TEMPS4 <TYPE-CODE LIST> - PHRASE39>
 949                     <NTHL TEMPS4 1 = ADL5>
 950                     <TYPE? ADL5 <TYPE-CODE ADECL> - PHRASE41>
 951                     <FRAME '\1aCREATE-VAR>
 952                     <NTHUV ADL5 1 = STACK>
 953                     <PUSH 'T>
 954                     <PUSH NOT-YET?7>
 955                     <CALL '\1aCREATE-VAR 3 = TBL32>
 956                     <FRAME '\1aINDICATE-VAR-DECL>
 957                     <PUSH TBL32>
 958                     <NTHUV ADL5 2 = STACK>
 959                     <DEAD ADL5>
 960                     <CALL '\1aINDICATE-VAR-DECL 2>
 961                     <JUMP + PHRASE44>
 962 PHRASE41
 963                     <FRAME '\1aCREATE-VAR>
 964                     <PUSH ADL5>
 965                     <DEAD ADL5>
 966                     <PUSH 'T>
 967                     <PUSH NOT-YET?7>
 968                     <CALL '\1aCREATE-VAR 3 = TBL32>
 969 PHRASE44
 970                     <TYPE? NOT-YET?7 <TYPE-CODE FALSE> - PHRASE53>
 971                     <RESTL TEMPS4 1 = TEMPS4 (TYPE LIST)>
 972                     <NTHL TEMPS4 1 = ADL5>
 973                     <DEAD TEMPS4>
 974                     <TYPE? ADL5 <TYPE-CODE FORM> - PHRASE49>
 975                     <EMPL? ADL5 + PHRASE49>
 976                     <RESTL ADL5 1 = TEMPS4 (TYPE LIST)>
 977                     <EMPL? TEMPS4 + PHRASE49>
 978                     <RESTL TEMPS4 1 = TEMPS4 (TYPE LIST)>
 979                     <EMPL? TEMPS4 - PHRASE49>
 980                     <DEAD TEMPS4>
 981                     <NTHL ADL5 1 = TEMPS4>
 982                     <EQUAL? TEMPS4 'QUOTE - PHRASE49>
 983                     <DEAD TEMPS4>
 984                     <RESTL ADL5 1 = TEMPS4 (TYPE LIST)>
 985                     <NTHL TEMPS4 1 = TEMPS4>
 986                     <TYPE? TEMPS4 <TYPE-CODE ATOM> - PHRASE49>
 987                     <DEAD TEMPS4>
 988                     <RESTL ADL5 1 = TEMPS4 (TYPE LIST)>
 989                     <DEAD ADL5>
 990                     <NTHL TEMPS4 1 = ADL5 (TYPE ATOM)>
 991                     <DEAD TEMPS4>
 992 PHRASE49
 993                     <FRAME '\1aINDICATE-VAR-INIT>
 994                     <PUSH TBL32>
 995                     <DEAD TBL32>
 996                     <PUSH ADL5>
 997                     <DEAD ADL5>
 998                     <CALL '\1aINDICATE-VAR-INIT 2>
 999                     <JUMP + PHRASE53>
1000 PHRASE39
1001                     <FRAME '\1aCREATE-VAR>
1002                     <NTHUV TEMPS4 1 = STACK>
1003                     <PUSH 'T>
1004                     <PUSH NOT-YET?7>
1005                     <CALL '\1aCREATE-VAR 3 = TBL32>
1006                     <FRAME '\1aINDICATE-VAR-DECL>
1007                     <PUSH TBL32>
1008                     <DEAD TBL32>
1009                     <NTHUV TEMPS4 2 = STACK>
1010                     <DEAD TEMPS4>
1011                     <CALL '\1aINDICATE-VAR-DECL 2>
1012 PHRASE53
1013                     <RESTUV TEMP11 1 = TEMP11 (TYPE VECTOR)>
1014                     <JUMP + MAP22>
1015 MAPAP25
1016                     <RETURN 'NORMAL>
1017                     <END \1aTEMP-PROCESS>
1018 #WORD *17011045050*
1019 <GFCN \1aISTYPE? ("VALUE" <OR ATOM FALSE> <OR ATOM FORM>) DCL4>
1020                     <TEMP TEMP11>
1021                     <INTGO>
1022                     <TYPE? DCL4 <TYPE-CODE ATOM> - PHRASE6>
1023                     <NTHR DCL4 5 = TEMP11 (RECORD-TYPE ATOM) (BRANCH-FALSE - TAG9)>
1024                     <TYPE? TEMP11 <TYPE-CODE FALSE> - TAG9>
1025                     <DEAD TEMP11>
1026                     <RETURN %<>>
1027 TAG9
1028                     <RETURN DCL4>
1029                     <DEAD DCL4>
1030 PHRASE6
1031                     <NTHL DCL4 1 = DCL4>
1032                     <TYPE? DCL4 <TYPE-CODE ATOM> + TAG14>
1033                     <RETURN %<>>
1034 TAG14
1035                     <NTHR DCL4 5 = TEMP11 (RECORD-TYPE ATOM) (BRANCH-FALSE - TAG16)>
1036                     <TYPE? TEMP11 <TYPE-CODE FALSE> - TAG16>
1037                     <DEAD TEMP11>
1038                     <RETURN %<>>
1039 TAG16
1040                     <RETURN DCL4>
1041                     <DEAD DCL4>
1042                     <END \1aISTYPE?>
1043 #WORD *13603150262*
1044 <GFCN \1aEND-GEN ("VALUE" ATOM)>
1045                     <TEMP>
1046                     <INTGO>
1047                     <RETURN 'UNCONDITIONAL-BRANCH>
1048                     <END \1aEND-GEN>
1049 #WORD *12612157154*
1050 <GFCN \1aUCBRANCH-GEN ("VALUE" ATOM ATOM ATOM) DIR4 LABEL5>
1051                     <TEMP>
1052                     <INTGO>
1053                     <FRAME '\1aGEN-BRANCH>
1054                     <PUSH 17>
1055                     <PUSH LABEL5>
1056                     <DEAD LABEL5>
1057                     <PUSH 'UNCONDITIONAL-BRANCH>
1058                     <CALL '\1aGEN-BRANCH 3>
1059                     <RETURN 'UNCONDITIONAL-BRANCH>
1060                     <END \1aUCBRANCH-GEN>
1061 #WORD *25240537201*
1062 <GFCN \1aLOCATION-GEN ("VALUE" ATOM ATOM ATOM VARTBL) DIR4 LABEL5 RES6>
1063                     <TEMP VAC7 TEMP11:FIX>
1064                     <INTGO>
1065                     <FRAME '\1aPROTECT>
1066                     <FRAME '\1aGET-AC>
1067                     <PUSH 'ANY-AC>
1068                     <PUSH 'T>
1069                     <CALL '\1aGET-AC 2 = VAC7>
1070                     <PUSH VAC7>
1071                     <CALL '\1aPROTECT 1>
1072                     <FRAME '\1aEMIT-MOVE-LABEL>
1073                     <PUSH LABEL5>
1074                     <DEAD LABEL5>
1075                     <NTHUV VAC7 2 = TEMP11 (TYPE FIX)>
1076                     <OR TEMP11 #WORD *120* = TEMP11>
1077                     <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
1078                     <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
1079                     <DEAD TEMP11>
1080                     <CALL '\1aEMIT-MOVE-LABEL 2>
1081                     <FRAME '\1aDEST-DECL>
1082                     <PUSH VAC7>
1083                     <DEAD VAC7>
1084                     <PUSH RES6>
1085                     <DEAD RES6>
1086                     <PUSH 'FIX>
1087                     <CALL '\1aDEST-DECL 3>
1088                     <RETURN 'NORMAL>
1089                     <END \1aLOCATION-GEN>
1090 #WORD *22636607013*
1091 <GFCN \1aLOAD-VAR-APP ("VALUE" ANY VARTBL "OPTIONAL" ANY ANY ANY) VAR8 MUNG9 DCL10 USE?11>
1092                     <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7>
1093 OPT4
1094                     <PUSH 'T>
1095 OPT5
1096                     <PUSH #T$UNBOUND 0>
1097 OPT6
1098                     <PUSH 'T>
1099 OPT7
1100                     <TEMP TEMP19>
1101                     <INTGO>
1102                     <TYPE? DCL10 <TYPE-CODE UNBOUND> - TAG12>
1103                     <FRAME '\1aVARTBL-DECL>
1104                     <PUSH VAR8>
1105                     <CALL '\1aVARTBL-DECL 1 = DCL10>
1106 TAG12
1107                     <TYPE? DCL10 <TYPE-CODE FALSE> + BOOL17>
1108                     <FRAME '\1aSTRUCTURED-TYPE?>
1109                     <PUSH DCL10>
1110                     <CALL '\1aSTRUCTURED-TYPE? 1 = TEMP19>
1111                     <VEQUAL? TEMP19 0 + PHRASE16>
1112                     <DEAD TEMP19>
1113 BOOL17
1114                     <FRAME '\1aLOAD-VAR>
1115                     <PUSH VAR8>
1116                     <DEAD VAR8>
1117                     <PUSH 'VALUE>
1118                     <PUSH MUNG9>
1119                     <DEAD MUNG9>
1120                     <PUSH 'PREF-VAL>
1121                     <PUSH DCL10>
1122                     <DEAD DCL10>
1123                     <PUSH USE?11>
1124                     <DEAD USE?11>
1125                     <CALL '\1aLOAD-VAR 6 = TEMP19>
1126                     <RETURN TEMP19>
1127                     <DEAD TEMP19>
1128 PHRASE16
1129                     <FRAME '\1aLOAD-VAR>
1130                     <PUSH VAR8>
1131                     <DEAD VAR8>
1132                     <PUSH 'VALUE>
1133                     <PUSH MUNG9>
1134                     <DEAD MUNG9>
1135                     <PUSH 'PREF-VAL>
1136                     <PUSH DCL10>
1137                     <DEAD DCL10>
1138                     <PUSH USE?11>
1139                     <DEAD USE?11>
1140                     <CALL '\1aLOAD-VAR 6 = TEMP19>
1141                     <RETURN TEMP19>
1142                     <DEAD TEMP19>
1143                     <END \1aLOAD-VAR-APP>
1144 #WORD *13142347107*
1145 <GFCN \1aPROCESS-DESTINATION-HINT ("VALUE" ANY <OR FALSE HINT ATOM> <OR ATOM VARTBL>) HINT4 DEST5>
1146                     <TEMP TEMP9 DCL6>
1147                     <INTGO>
1148                     <TYPE? DEST5 <TYPE-CODE VARTBL> + TAG11>
1149                     <RETURN %<>>
1150 TAG11
1151                     <TYPE? HINT4 <TYPE-CODE LIST> - PHRASE14>
1152                     <FRAME '\1aPARSE-HINT>
1153                     <PUSH HINT4>
1154                     <DEAD HINT4>
1155                     <PUSH 'TYPE>
1156                     <CALL '\1aPARSE-HINT 2 = DCL6>
1157                     <SET TEMP9 DCL6>
1158                     <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE8>
1159                     <JUMP + PHRASE16>
1160 PHRASE14
1161                     <TYPE? HINT4 <TYPE-CODE ATOM> + TAG17>
1162                     <RETURN %<>>
1163 TAG17
1164                     <SET DCL6 HINT4>
1165                     <DEAD HINT4>
1166 PHRASE16
1167                     <FRAME '\1aINDICATE-VAR-TEMP-DECL>
1168                     <PUSH DEST5>
1169                     <DEAD DEST5>
1170                     <PUSH DCL6>
1171                     <DEAD DCL6>
1172                     <CALL '\1aINDICATE-VAR-TEMP-DECL 2 = TEMP9>
1173 PHRASE8
1174                     <RETURN TEMP9>
1175                     <DEAD TEMP9>
1176                     <END \1aPROCESS-DESTINATION-HINT>
1177 #WORD *27456356251*
1178 <GFCN \1aMOVE-TYPE ("VALUE" ANY ANY <OR AC EFF-ADDR> "OPTIONAL" <OR FALSE EFF-ADDR>) VAL6 TEADDR7 CEADDR8>
1179                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
1180 OPT4
1181                     <PUSH %<>>
1182 OPT5
1183                     <TEMP TEMP15 RADDR10 LVAR12>
1184                     <INTGO>
1185                     <TYPE? TEADDR7 <TYPE-CODE AC> - PHRASE14>
1186                     <NTHUV TEADDR7 2 = TEMP15 (TYPE FIX)>
1187                     <OR TEMP15 #WORD *120* = TEMP15>
1188                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
1189                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = RADDR10>
1190                     <DEAD TEMP15>
1191                     <JUMP + COND13>
1192 PHRASE14
1193                     <SET RADDR10 TEADDR7>
1194 COND13
1195                     <TYPE? VAL6 <TYPE-CODE VARTBL> - PHRASE17>
1196                     <FRAME '\1aSAFE-TYPE-WORD?>
1197                     <PUSH VAL6>
1198                     <CALL '\1aSAFE-TYPE-WORD? 1 = TEMP15>
1199                     <TYPE? TEMP15 <TYPE-CODE FALSE> - BOOL24>
1200                     <DEAD TEMP15>
1201                     <FRAME '\1aFIND-CACHE-VAR>
1202                     <PUSH VAL6>
1203                     <CALL '\1aFIND-CACHE-VAR 1 = LVAR12>
1204                     <TYPE? LVAR12 <TYPE-CODE FALSE> + PHRASE19>
1205                     <NTHUV LVAR12 7 = TEMP15>
1206                     <TYPE? TEMP15 <TYPE-CODE FALSE> - BOOL25>
1207                     <DEAD TEMP15>
1208                     <NTHUV LVAR12 9 = TEMP15>
1209                     <TYPE? TEMP15 <TYPE-CODE FALSE> - BOOL25>
1210                     <DEAD TEMP15>
1211                     <NTHUV LVAR12 8 = TEMP15>
1212                     <TYPE? TEMP15 <TYPE-CODE FALSE> - BOOL25>
1213                     <DEAD TEMP15>
1214                     <FRAME '\1aVARTBL-DECL>
1215                     <PUSH VAL6>
1216                     <CALL '\1aVARTBL-DECL 1 = TEMP15>
1217                     <TYPE? TEMP15 <TYPE-CODE FALSE> + BOOL24>
1218                     <DEAD TEMP15>
1219 BOOL25
1220                     <NTHUV LVAR12 4 = TEMP15>
1221                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE19>
1222                     <DEAD TEMP15>
1223                     <NTHUV LVAR12 3 = TEMP15>
1224                     <DEAD LVAR12>
1225                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE19>
1226                     <DEAD TEMP15>
1227 BOOL24
1228                     <FRAME '\1aEMIT-MOVE>
1229                     <FRAME '\1aVAR-TYPE-ADDRESS>
1230                     <PUSH VAL6>
1231                     <PUSH 'TYPE-WORD>
1232                     <CALL '\1aVAR-TYPE-ADDRESS 2 = STACK>
1233                     <PUSH RADDR10>
1234                     <DEAD RADDR10>
1235                     <PUSH 'LONG>
1236                     <CALL '\1aEMIT-MOVE 3>
1237                     <TYPE? TEADDR7 <TYPE-CODE AC> + TAG31>
1238                     <RETURN %<>>
1239 TAG31
1240                     <FRAME '\1aLOAD-AC>
1241                     <PUSH TEADDR7>
1242                     <DEAD TEADDR7>
1243                     <FRAME '\1aVAR-TYPE-ADDRESS>
1244                     <PUSH VAL6>
1245                     <DEAD VAL6>
1246                     <PUSH 'TYPE-WORD>
1247                     <CALL '\1aVAR-TYPE-ADDRESS 2 = STACK>
1248                     <CALL '\1aLOAD-AC 2 = TEMP15>
1249                     <RETURN TEMP15>
1250                     <DEAD TEMP15>
1251 PHRASE19
1252                     <FRAME '\1aVARTBL-DECL>
1253                     <PUSH VAL6>
1254                     <CALL '\1aVARTBL-DECL 1 = TEMP15>
1255                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE35>
1256                     <FRAME '\1aCOUNT-NEEDED?>
1257                     <PUSH TEMP15>
1258                     <CALL '\1aCOUNT-NEEDED? 1 = LVAR12>
1259                     <TYPE? LVAR12 <TYPE-CODE FALSE> + PHRASE38>
1260                     <DEAD LVAR12>
1261                     <FRAME '\1aVAR-COUNT-ADDRESS>
1262                     <PUSH VAL6>
1263                     <DEAD VAL6>
1264                     <CALL '\1aVAR-COUNT-ADDRESS 1 = LVAR12>
1265                     <TYPE? TEADDR7 <TYPE-CODE AC> - PHRASE43>
1266                     <FRAME '\1aEMIT-MOVE>
1267                     <FRAME '\1aTYPE-WORD>
1268                     <PUSH TEMP15>
1269                     <DEAD TEMP15>
1270                     <CALL '\1aTYPE-WORD 1 = STACK>
1271                     <PUSH RADDR10>
1272                     <DEAD RADDR10>
1273                     <PUSH 'LONG>
1274                     <CALL '\1aEMIT-MOVE 3>
1275                     <FRAME '\1aEMIT>
1276                     <PUSH 168>
1277                     <PUSH LVAR12>
1278                     <DEAD LVAR12>
1279                     <NTHUV TEADDR7 2 = LVAR12 (TYPE FIX)>
1280                     <OR LVAR12 #WORD *120* = LVAR12>
1281                     <LSH LVAR12 24 = LVAR12 (TYPE FIX)>
1282                     <CHTYPE LVAR12 <TYPE-CODE EFF-ADDR> = STACK>
1283                     <DEAD LVAR12>
1284                     <CALL '\1aEMIT 3>
1285                     <FRAME '\1aUSE-AC>
1286                     <PUSH TEADDR7>
1287                     <DEAD TEADDR7>
1288                     <CALL '\1aUSE-AC 1 = TEMP15>
1289                     <RETURN TEMP15>
1290                     <DEAD TEMP15>
1291 PHRASE43
1292                     <FRAME '\1aEMIT-MOVE>
1293                     <PUSH LVAR12>
1294                     <DEAD LVAR12>
1295                     <PUSH CEADDR8>
1296                     <DEAD CEADDR8>
1297                     <PUSH 'WORD>
1298                     <CALL '\1aEMIT-MOVE 3>
1299                     <FRAME '\1aEMIT-MOVE>
1300                     <FRAME '\1aTYPE-CODE>
1301                     <PUSH TEMP15>
1302                     <DEAD TEMP15>
1303                     <PUSH 'WORD>
1304                     <CALL '\1aTYPE-CODE 2 = STACK>
1305                     <PUSH TEADDR7>
1306                     <DEAD TEADDR7>
1307                     <PUSH 'WORD>
1308                     <CALL '\1aEMIT-MOVE 3 = TEMP15>
1309                     <RETURN TEMP15>
1310                     <DEAD TEMP15>
1311 PHRASE38
1312                     <FRAME '\1aEMIT-MOVE>
1313                     <FRAME '\1aTYPE-WORD>
1314                     <PUSH TEMP15>
1315                     <CALL '\1aTYPE-WORD 1 = STACK>
1316                     <PUSH RADDR10>
1317                     <DEAD RADDR10>
1318                     <PUSH 'LONG>
1319                     <CALL '\1aEMIT-MOVE 3>
1320                     <TYPE? TEADDR7 <TYPE-CODE AC> + TAG56>
1321                     <RETURN %<>>
1322 TAG56
1323                     <FRAME '\1aLOAD-AC>
1324                     <PUSH TEADDR7>
1325                     <DEAD TEADDR7>
1326                     <FRAME '\1aTYPE-WORD>
1327                     <PUSH TEMP15>
1328                     <DEAD TEMP15>
1329                     <CALL '\1aTYPE-WORD 1 = STACK>
1330                     <CALL '\1aLOAD-AC 2 = TEMP15>
1331                     <RETURN TEMP15>
1332                     <DEAD TEMP15>
1333 PHRASE35
1334                     <FRAME '\1aERROR>
1335                     <PUSH "NO TYPE WORD">
1336                     <PUSH 'MOVE-TYPE>
1337                     <CALL '\1aERROR 2 = TEMP15>
1338                     <RETURN TEMP15>
1339                     <DEAD TEMP15>
1340 PHRASE17
1341                     <FRAME '\1aFIX-CONSTANT?>
1342                     <PUSH VAL6>
1343                     <CALL '\1aFIX-CONSTANT? 1 = LVAR12>
1344                     <TYPE? LVAR12 <TYPE-CODE FALSE> + PHRASE61>
1345                     <DEAD LVAR12>
1346                     <FRAME '\1aEMIT-MOVE>
1347                     <FRAME '\1aTYPE-WORD>
1348                     <FRAME '\1aTYPE>
1349                     <PUSH VAL6>
1350                     <CALL '\1aTYPE 1 = STACK>
1351                     <CALL '\1aTYPE-WORD 1 = STACK>
1352                     <PUSH RADDR10>
1353                     <DEAD RADDR10>
1354                     <PUSH 'LONG>
1355                     <CALL '\1aEMIT-MOVE 3>
1356                     <TYPE? TEADDR7 <TYPE-CODE AC> + TAG67>
1357                     <RETURN %<>>
1358 TAG67
1359                     <FRAME '\1aLOAD-AC>
1360                     <PUSH TEADDR7>
1361                     <DEAD TEADDR7>
1362                     <FRAME '\1aTYPE-WORD>
1363                     <FRAME '\1aTYPE>
1364                     <PUSH VAL6>
1365                     <DEAD VAL6>
1366                     <CALL '\1aTYPE 1 = STACK>
1367                     <CALL '\1aTYPE-WORD 1 = STACK>
1368                     <CALL '\1aLOAD-AC 2 = TEMP15>
1369                     <RETURN TEMP15>
1370                     <DEAD TEMP15>
1371 PHRASE61
1372                     <FRAME '\1aADDR-TYPE-M>
1373                     <FRAME '\1aADD-MVEC>
1374                     <PUSH VAL6>
1375                     <DEAD VAL6>
1376                     <CALL '\1aADD-MVEC 1 = STACK>
1377                     <CALL '\1aADDR-TYPE-M 1 = LVAR12>
1378                     <FRAME '\1aEMIT-MOVE>
1379                     <PUSH LVAR12>
1380                     <PUSH TEADDR7>
1381                     <PUSH 'LONG>
1382                     <CALL '\1aEMIT-MOVE 3>
1383                     <TYPE? TEADDR7 <TYPE-CODE AC> + TAG77>
1384                     <RETURN %<>>
1385 TAG77
1386                     <FRAME '\1aLOAD-AC>
1387                     <PUSH TEADDR7>
1388                     <DEAD TEADDR7>
1389                     <PUSH LVAR12>
1390                     <DEAD LVAR12>
1391                     <CALL '\1aLOAD-AC 2 = TEMP15>
1392                     <RETURN TEMP15>
1393                     <DEAD TEMP15>
1394                     <END \1aMOVE-TYPE>\r\0\r\0
1395 #WORD *36712774607*
1396 <GFCN \1aGEN-CONSTANT ("VALUE" <OR AC EFF-ADDR> ANY <OR ATOM AC> <OR ATOM AC> ATOM) RCNS4 VALUE-AC5 TYPE-AC6 GEN-PREF7>
1397                     <TEMP CNS8 TYP11:ATOM VAC9 TEMP20 TAC10>
1398                     <INTGO>
1399                     <SET CNS8 RCNS4>
1400                     <FRAME '\1aTYPE>
1401                     <PUSH CNS8>
1402                     <CALL '\1aTYPE 1 = TYP11>
1403                     <FRAME '\1aPROTECT>
1404                     <FRAME '\1aGET-AC>
1405                     <PUSH VALUE-AC5>
1406                     <DEAD VALUE-AC5>
1407                     <PUSH 'T>
1408                     <CALL '\1aGET-AC 2 = VAC9>
1409                     <PUSH VAC9>
1410                     <CALL '\1aPROTECT 1>
1411                     <FRAME '\1aMOVE-VALUE>
1412                     <PUSH CNS8>
1413                     <PUSH VAC9>
1414                     <CALL '\1aMOVE-VALUE 2>
1415                     <VEQUAL? GEN-PREF7 'TYPE-WORD + PHRASE17>
1416                     <FRAME '\1aCOUNT-NEEDED?>
1417                     <PUSH TYP11>
1418                     <CALL '\1aCOUNT-NEEDED? 1 = TEMP20>
1419                     <TYPE? TEMP20 <TYPE-CODE FALSE> - PHRASE17>
1420                     <DEAD TEMP20>
1421                     <SETG 'CONSTANT-TYPE-AC %<>>
1422                     <SETG 'CONSTANT-COUNT-AC %<>>
1423                     <RETURN VAC9>
1424                     <DEAD VAC9>
1425 PHRASE17
1426                     <FRAME '\1aGET-AC>
1427                     <PUSH 'PREF-TYPE>
1428                     <CALL '\1aGET-AC 1 = TAC10>
1429                     <FRAME '\1aMUNG-AC>
1430                     <PUSH TAC10>
1431                     <CALL '\1aMUNG-AC 1>
1432                     <VEQUAL? GEN-PREF7 'TYPE-WORD - PHRASE25>
1433                     <DEAD GEN-PREF7>
1434                     <FRAME '\1aFIX-CONSTANT?>
1435                     <PUSH CNS8>
1436                     <DEAD CNS8>
1437                     <CALL '\1aFIX-CONSTANT? 1 = CNS8>
1438                     <TYPE? CNS8 <TYPE-CODE FALSE> + PHRASE27>
1439                     <DEAD CNS8>
1440                     <FRAME '\1aEMIT-MOVE>
1441                     <FRAME '\1aTYPE-WORD>
1442                     <PUSH TYP11>
1443                     <CALL '\1aTYPE-WORD 1 = STACK>
1444                     <NTHUV TAC10 2 = TEMP20 (TYPE FIX)>
1445                     <OR TEMP20 #WORD *120* = TEMP20>
1446                     <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
1447                     <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = STACK>
1448                     <DEAD TEMP20>
1449                     <PUSH 'LONG>
1450                     <CALL '\1aEMIT-MOVE 3>
1451                     <FRAME '\1aLOAD-AC>
1452                     <PUSH TAC10>
1453                     <FRAME '\1aTYPE-WORD>
1454                     <PUSH TYP11>
1455                     <DEAD TYP11>
1456                     <CALL '\1aTYPE-WORD 1 = STACK>
1457                     <CALL '\1aLOAD-AC 2>
1458                     <JUMP + PHRASE33>
1459 PHRASE27
1460                     <FRAME '\1aEMIT-MOVE>
1461                     <FRAME '\1aADDR-TYPE-MQUOTE>
1462                     <PUSH RCNS4>
1463                     <CALL '\1aADDR-TYPE-MQUOTE 1 = STACK>
1464                     <NTHUV TAC10 2 = TEMP20 (TYPE FIX)>
1465                     <OR TEMP20 #WORD *120* = TEMP20>
1466                     <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
1467                     <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = STACK>
1468                     <DEAD TEMP20>
1469                     <PUSH 'LONG>
1470                     <CALL '\1aEMIT-MOVE 3>
1471                     <FRAME '\1aLOAD-AC>
1472                     <PUSH TAC10>
1473                     <FRAME '\1aADDR-TYPE-MQUOTE>
1474                     <PUSH RCNS4>
1475                     <DEAD RCNS4>
1476                     <CALL '\1aADDR-TYPE-MQUOTE 1 = STACK>
1477                     <CALL '\1aLOAD-AC 2>
1478 PHRASE33
1479                     <SETG 'CONSTANT-TYPE-AC TAC10>
1480                     <DEAD TAC10>
1481                     <RETURN VAC9>
1482                     <DEAD VAC9>
1483 PHRASE25
1484                     <FRAME '\1aLOAD-CONSTANT>
1485                     <PUSH TAC10>
1486                     <FRAME '\1aLENGTH>
1487                     <PUSH RCNS4>
1488                     <DEAD RCNS4>
1489                     <CALL '\1aLENGTH 1 = STACK>
1490                     <CALL '\1aLOAD-CONSTANT 2>
1491                     <SETG 'CONSTANT-COUNT-AC TAC10>
1492                     <DEAD TAC10>
1493                     <RETURN VAC9>
1494                     <DEAD VAC9>
1495                     <END \1aGEN-CONSTANT>
1496 #WORD *21453464736*
1497 <GFCN \1aLOAD-CONSTANT ("VALUE" ANY ANY ANY) DEST4 RVAL5>
1498                     <TEMP TEMP10 VAL6:FIX TEMP23 TEMP32 TEMP44>
1499                     <INTGO>
1500                     <TYPE? DEST4 <TYPE-CODE AC> - PHRASE9>
1501                     <NTHUV DEST4 2 = TEMP10 (TYPE FIX)>
1502                     <DEAD DEST4>
1503                     <OR TEMP10 #WORD *120* = TEMP10>
1504                     <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
1505                     <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = TEMP10>
1506                     <JUMP + PHRASE11>
1507 PHRASE9
1508                     <SET TEMP10 DEST4>
1509                     <DEAD DEST4>
1510 PHRASE11
1511                     <FRAME '\1aFIX-CONSTANT?>
1512                     <PUSH RVAL5>
1513                     <CALL '\1aFIX-CONSTANT? 1 = VAL6>
1514                     <VEQUAL? VAL6 0 - PHRASE14 (TYPE FIX)>
1515                     <FRAME '\1aEMIT>
1516                     <PUSH 212>
1517                     <PUSH TEMP10>
1518                     <DEAD TEMP10>
1519                     <CALL '\1aEMIT 2 = TEMP10>
1520                     <RETURN TEMP10>
1521                     <DEAD TEMP10>
1522 PHRASE14
1523                     <LESS? VAL6 1 + PHRASE18 (TYPE FIX)>
1524                     <GRTR? VAL6 63 + PHRASE18 (TYPE FIX)>
1525                     <FRAME '\1aEMIT>
1526                     <PUSH 208>
1527                     <AND VAL6 #WORD *77* = TEMP23>
1528                     <DEAD VAL6>
1529                     <LSH TEMP23 24 = TEMP23 (TYPE FIX)>
1530                     <CHTYPE TEMP23 <TYPE-CODE EFF-ADDR> = STACK>
1531                     <DEAD TEMP23>
1532                     <PUSH TEMP10>
1533                     <DEAD TEMP10>
1534                     <CALL '\1aEMIT 3 = TEMP10>
1535                     <RETURN TEMP10>
1536                     <DEAD TEMP10>
1537 PHRASE18
1538                     <LESS? VAL6 -63 + PHRASE24 (TYPE FIX)>
1539                     <GRTR? VAL6 -1 + PHRASE24 (TYPE FIX)>
1540                     <FRAME '\1aEMIT>
1541                     <PUSH 206>
1542                     <SUB 0 VAL6 = TEMP23 (TYPE FIX)>
1543                     <DEAD VAL6>
1544                     <AND TEMP23 #WORD *77* = TEMP23>
1545                     <LSH TEMP23 24 = TEMP23 (TYPE FIX)>
1546                     <CHTYPE TEMP23 <TYPE-CODE EFF-ADDR> = STACK>
1547                     <DEAD TEMP23>
1548                     <PUSH TEMP10>
1549                     <DEAD TEMP10>
1550                     <CALL '\1aEMIT 3 = TEMP10>
1551                     <RETURN TEMP10>
1552                     <DEAD TEMP10>
1553 PHRASE24
1554                     <LESS? VAL6 64 + PHRASE29 (TYPE FIX)>
1555                     <GRTR? VAL6 255 + PHRASE29 (TYPE FIX)>
1556                     <FRAME '\1aEMIT>
1557                     <PUSH 154>
1558                     <GVAL 'AC-PC = TEMP23>
1559                     <NTHUV TEMP23 2 = TEMP23 (TYPE FIX)>
1560                     <OR TEMP23 #WORD *200* = TEMP23>
1561                     <LSH TEMP23 24 = TEMP23 (TYPE FIX)>
1562                     <AND VAL6 #WORD *377* = TEMP32>
1563                     <DEAD VAL6>
1564                     <LSH TEMP32 16 = TEMP32 (TYPE FIX)>
1565                     <OR TEMP23 TEMP32 = TEMP23>
1566                     <DEAD TEMP32>
1567                     <CHTYPE TEMP23 <TYPE-CODE EFF-ADDR> = STACK>
1568                     <DEAD TEMP23>
1569                     <PUSH TEMP10>
1570                     <DEAD TEMP10>
1571                     <CALL '\1aEMIT 3 = TEMP10>
1572                     <RETURN TEMP10>
1573                     <DEAD TEMP10>
1574 PHRASE29
1575                     <LESS? VAL6 -127 + PHRASE33 (TYPE FIX)>
1576                     <GRTR? VAL6 -64 + PHRASE33 (TYPE FIX)>
1577                     <FRAME '\1aEMIT>
1578                     <PUSH 152>
1579                     <GVAL 'AC-PC = TEMP23>
1580                     <NTHUV TEMP23 2 = TEMP32 (TYPE FIX)>
1581                     <DEAD TEMP23>
1582                     <OR TEMP32 #WORD *200* = TEMP32>
1583                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1584                     <AND VAL6 #WORD *377* = TEMP23>
1585                     <DEAD VAL6>
1586                     <LSH TEMP23 16 = TEMP23 (TYPE FIX)>
1587                     <OR TEMP32 TEMP23 = TEMP32>
1588                     <DEAD TEMP23>
1589                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1590                     <DEAD TEMP32>
1591                     <PUSH TEMP10>
1592                     <DEAD TEMP10>
1593                     <CALL '\1aEMIT 3 = TEMP10>
1594                     <RETURN TEMP10>
1595                     <DEAD TEMP10>
1596 PHRASE33
1597                     <LESS? VAL6 255 + PHRASE36 (TYPE FIX)>
1598                     <GRTR? VAL6 65535 + PHRASE36 (TYPE FIX)>
1599                     <FRAME '\1aEMIT>
1600                     <PUSH 60>
1601                     <GVAL 'AC-PC = TEMP32>
1602                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1603                     <OR TEMP32 #WORD *200* = TEMP32>
1604                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1605                     <AND VAL6 #WORD *377* = TEMP23>
1606                     <LSH TEMP23 16 = TEMP23 (TYPE FIX)>
1607                     <AND VAL6 #WORD *177400* = TEMP44>
1608                     <DEAD VAL6>
1609                     <OR TEMP23 TEMP44 = TEMP23>
1610                     <DEAD TEMP44>
1611                     <AND TEMP23 #WORD *77777400* = TEMP23>
1612                     <OR TEMP32 TEMP23 = TEMP32>
1613                     <DEAD TEMP23>
1614                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1615                     <DEAD TEMP32>
1616                     <PUSH TEMP10>
1617                     <DEAD TEMP10>
1618                     <CALL '\1aEMIT 3 = TEMP10>
1619                     <RETURN TEMP10>
1620                     <DEAD TEMP10>
1621 PHRASE36
1622                     <LESS? VAL6 -32767 + PHRASE45 (TYPE FIX)>
1623                     <GRTR? VAL6 -128 + PHRASE45 (TYPE FIX)>
1624                     <FRAME '\1aEMIT>
1625                     <PUSH 50>
1626                     <GVAL 'AC-PC = TEMP32>
1627                     <NTHUV TEMP32 2 = TEMP44 (TYPE FIX)>
1628                     <DEAD TEMP32>
1629                     <OR TEMP44 #WORD *200* = TEMP44>
1630                     <LSH TEMP44 24 = TEMP44 (TYPE FIX)>
1631                     <AND VAL6 #WORD *377* = TEMP23>
1632                     <LSH TEMP23 16 = TEMP23 (TYPE FIX)>
1633                     <AND VAL6 #WORD *177400* = TEMP32>
1634                     <DEAD VAL6>
1635                     <OR TEMP23 TEMP32 = TEMP32>
1636                     <DEAD TEMP23>
1637                     <AND TEMP32 #WORD *77777400* = TEMP32>
1638                     <OR TEMP44 TEMP32 = TEMP44>
1639                     <DEAD TEMP32>
1640                     <CHTYPE TEMP44 <TYPE-CODE EFF-ADDR> = STACK>
1641                     <DEAD TEMP44>
1642                     <PUSH TEMP10>
1643                     <DEAD TEMP10>
1644                     <CALL '\1aEMIT 3 = TEMP10>
1645                     <RETURN TEMP10>
1646                     <DEAD TEMP10>
1647 PHRASE45
1648                     <TYPE? RVAL5 <TYPE-CODE FLOAT> - PHRASE52>
1649                     <LESS? RVAL5 0.0 + PHRASE54 (TYPE FLOAT)>
1650                     <FRAME '\1aEMIT>
1651                     <PUSH 80>
1652                     <FRAME '\1aFLOAT-IMM>
1653                     <PUSH VAL6>
1654                     <DEAD VAL6>
1655                     <CALL '\1aFLOAT-IMM 1 = STACK>
1656                     <PUSH TEMP10>
1657                     <DEAD TEMP10>
1658                     <CALL '\1aEMIT 3 = TEMP10>
1659                     <RETURN TEMP10>
1660                     <DEAD TEMP10>
1661 PHRASE54
1662                     <FRAME '\1aEMIT>
1663                     <PUSH 82>
1664                     <FRAME '\1aFLOAT-IMM>
1665                     <FRAME '\1aFLOATCONVERT>
1666                     <SUBF 0 RVAL5 = STACK (TYPE FLOAT)>
1667                     <DEAD RVAL5>
1668                     <CALL '\1aFLOATCONVERT 1 = STACK>
1669                     <CALL '\1aFLOAT-IMM 1 = STACK>
1670                     <PUSH TEMP10>
1671                     <DEAD TEMP10>
1672                     <CALL '\1aEMIT 3 = TEMP10>
1673                     <RETURN TEMP10>
1674                     <DEAD TEMP10>
1675 PHRASE52
1676                     <FRAME '\1aEMIT>
1677                     <PUSH 208>
1678                     <GVAL 'AC-PC = TEMP44>
1679                     <NTHUV TEMP44 2 = TEMP32 (TYPE FIX)>
1680                     <DEAD TEMP44>
1681                     <OR TEMP32 #WORD *200* = TEMP32>
1682                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1683                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = TEMP32>
1684                     <CONS TEMP32 () = TEMP32>
1685                     <FRAME '\1aLREV>
1686                     <PUSH VAL6>
1687                     <DEAD VAL6>
1688                     <CALL '\1aLREV 1 = TEMP23>
1689                     <CHTYPE TEMP23 <TYPE-CODE EFF-ADDR> = TEMP23>
1690                     <CONS TEMP23 () = TEMP23>
1691                     <PUTREST TEMP32 TEMP23>
1692                     <DEAD TEMP23>
1693                     <CHTYPE TEMP32 <TYPE-CODE LADDR> = STACK>
1694                     <DEAD TEMP32>
1695                     <PUSH TEMP10>
1696                     <DEAD TEMP10>
1697                     <CALL '\1aEMIT 3 = TEMP10>
1698                     <RETURN TEMP10>
1699                     <DEAD TEMP10>
1700                     <END \1aLOAD-CONSTANT>
1701 #WORD *36461610643*
1702 <GFCN \1aDEST-DECL ("VALUE" ANY AC <OR ATOM VARTBL> ATOM "OPTIONAL" <OR FALSE ATOM>) AC6 DEST7 DCL8 STATUS?9>
1703                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
1704 OPT4
1705                     <PUSH %<>>
1706 OPT5
1707                     <TEMP TEMP14>
1708                     <INTGO>
1709                     <EQUAL? DEST7 'STACK - PHRASE11>
1710                     <FRAME '\1aPUSH-PAIR>
1711                     <PUSH DCL8>
1712                     <DEAD DCL8>
1713                     <PUSH AC6>
1714                     <DEAD AC6>
1715                     <CALL '\1aPUSH-PAIR 2>
1716                     <FRAME '\1aCLEAR-STATUS>
1717                     <CALL '\1aCLEAR-STATUS 0 = TEMP14>
1718                     <RETURN TEMP14>
1719                     <DEAD TEMP14>
1720 PHRASE11
1721                     <TYPE? DEST7 <TYPE-CODE VARTBL> + TAG16>
1722                     <RETURN %<>>
1723 TAG16
1724                     <FRAME '\1aDEAD-VAR>
1725                     <PUSH DEST7>
1726                     <CALL '\1aDEAD-VAR 1>
1727                     <FRAME '\1aLINK-VAR-TO-AC>
1728                     <PUSH DEST7>
1729                     <PUSH AC6>
1730                     <PUSH 'VALUE>
1731                     <PUSH %<>>
1732                     <CALL '\1aLINK-VAR-TO-AC 4>
1733                     <FRAME '\1aINDICATE-CACHED-VARIABLE-DECL>
1734                     <PUSH DEST7>
1735                     <PUSH DCL8>
1736                     <DEAD DCL8>
1737                     <CALL '\1aINDICATE-CACHED-VARIABLE-DECL 2>
1738                     <SET TEMP14 STATUS?9>
1739                     <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE22>
1740                     <FRAME '\1aSET-STATUS-AC>
1741                     <PUSH AC6>
1742                     <DEAD AC6>
1743                     <CALL '\1aSET-STATUS-AC 1>
1744                     <FRAME '\1aSET-STATUS-VAR>
1745                     <PUSH DEST7>
1746                     <DEAD DEST7>
1747                     <PUSH STATUS?9>
1748                     <DEAD STATUS?9>
1749                     <CALL '\1aSET-STATUS-VAR 2 = TEMP14>
1750 PHRASE22
1751                     <RETURN TEMP14>
1752                     <DEAD TEMP14>
1753                     <END \1aDEST-DECL>\r\0\r\0
1754 #WORD *32701003434*
1755 <GFCN \1aDEST-COUNT-DECL ("VALUE" ANY AC AC <OR ATOM VARTBL> ATOM "OPTIONAL" <OR FALSE ATOM>) VAC6 CAC7 DEST8 DCL9 STATUS?10>
1756                     <OPT-DISPATCH 4 %<> OPT4 OPT5>
1757 OPT4
1758                     <PUSH %<>>
1759 OPT5
1760                     <TEMP TEMP15>
1761                     <INTGO>
1762                     <EQUAL? DEST8 'STACK - PHRASE12>
1763                     <FRAME '\1aPUSH-PAIR-WITH-CNT>
1764                     <PUSH DCL9>
1765                     <DEAD DCL9>
1766                     <PUSH VAC6>
1767                     <DEAD VAC6>
1768                     <PUSH CAC7>
1769                     <DEAD CAC7>
1770                     <CALL '\1aPUSH-PAIR-WITH-CNT 3>
1771                     <FRAME '\1aCLEAR-STATUS>
1772                     <CALL '\1aCLEAR-STATUS 0 = TEMP15>
1773                     <RETURN TEMP15>
1774                     <DEAD TEMP15>
1775 PHRASE12
1776                     <TYPE? DEST8 <TYPE-CODE VARTBL> + TAG17>
1777                     <RETURN %<>>
1778 TAG17
1779                     <FRAME '\1aDEAD-VAR>
1780                     <PUSH DEST8>
1781                     <CALL '\1aDEAD-VAR 1>
1782                     <FRAME '\1aLINK-VAR-TO-AC>
1783                     <PUSH DEST8>
1784                     <PUSH VAC6>
1785                     <PUSH 'VALUE>
1786                     <PUSH %<>>
1787                     <CALL '\1aLINK-VAR-TO-AC 4>
1788                     <FRAME '\1aINDICATE-CACHED-VARIABLE-DECL>
1789                     <PUSH DEST8>
1790                     <PUSH DCL9>
1791                     <DEAD DCL9>
1792                     <CALL '\1aINDICATE-CACHED-VARIABLE-DECL 2>
1793                     <FRAME '\1aLINK-VAR-TO-AC>
1794                     <PUSH DEST8>
1795                     <PUSH CAC7>
1796                     <DEAD CAC7>
1797                     <PUSH 'COUNT>
1798                     <PUSH %<>>
1799                     <CALL '\1aLINK-VAR-TO-AC 4>
1800                     <SET TEMP15 STATUS?10>
1801                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE24>
1802                     <FRAME '\1aSET-STATUS-AC>
1803                     <PUSH VAC6>
1804                     <DEAD VAC6>
1805                     <CALL '\1aSET-STATUS-AC 1>
1806                     <FRAME '\1aSET-STATUS-VAR>
1807                     <PUSH DEST8>
1808                     <DEAD DEST8>
1809                     <PUSH STATUS?10>
1810                     <DEAD STATUS?10>
1811                     <CALL '\1aSET-STATUS-VAR 2 = TEMP15>
1812 PHRASE24
1813                     <RETURN TEMP15>
1814                     <DEAD TEMP15>
1815                     <END \1aDEST-COUNT-DECL>
1816 #WORD *26551305174*
1817 <GFCN \1aDEST-PAIR ("VALUE" ANY AC AC <OR ATOM VARTBL> "OPTIONAL" <OR FALSE ATOM>) VAC6 CAC7 DEST8 STATUS?9>
1818                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
1819 OPT4
1820                     <PUSH %<>>
1821 OPT5
1822                     <TEMP TEMP13 TEMP18>
1823                     <INTGO>
1824                     <EQUAL? DEST8 'STACK - PHRASE11>
1825                     <GVAL 'GC-MODE = TEMP13>
1826                     <TYPE? TEMP13 <TYPE-CODE FALSE> + BOOL12>
1827                     <DEAD TEMP13>
1828                     <FRAME '\1aEMIT>
1829                     <PUSH 170>
1830                     <FRAME '\1aMA-IMM>
1831                     <PUSH 32800>
1832                     <CALL '\1aMA-IMM 1 = STACK>
1833                     <NTHUV CAC7 2 = TEMP13 (TYPE FIX)>
1834                     <OR TEMP13 #WORD *120* = TEMP13>
1835                     <LSH TEMP13 24 = TEMP13 (TYPE FIX)>
1836                     <CHTYPE TEMP13 <TYPE-CODE EFF-ADDR> = STACK>
1837                     <DEAD TEMP13>
1838                     <CALL '\1aEMIT 3>
1839 BOOL12
1840                     <NTHUV CAC7 2 = TEMP13 (TYPE FIX)>
1841                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
1842                     <NTHUV VAC6 2 = TEMP18 (TYPE FIX)>
1843                     <VEQUAL? TEMP13 TEMP18 - PHRASE17 (TYPE FIX)>
1844                     <DEAD TEMP13 TEMP18>
1845                     <FRAME '\1aEMIT-PUSH>
1846                     <NTHUV CAC7 2 = TEMP18 (TYPE FIX)>
1847                     <DEAD CAC7>
1848                     <OR TEMP18 #WORD *120* = TEMP18>
1849                     <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
1850                     <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
1851                     <DEAD TEMP18>
1852                     <PUSH 'DOUBLE>
1853                     <CALL '\1aEMIT-PUSH 2>
1854                     <JUMP + PHRASE20>
1855 PHRASE17
1856                     <FRAME '\1aEMIT-PUSH>
1857                     <NTHUV CAC7 2 = TEMP18 (TYPE FIX)>
1858                     <DEAD CAC7>
1859                     <OR TEMP18 #WORD *120* = TEMP18>
1860                     <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
1861                     <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
1862                     <DEAD TEMP18>
1863                     <PUSH 'LONG>
1864                     <CALL '\1aEMIT-PUSH 2>
1865                     <FRAME '\1aEMIT-PUSH>
1866                     <NTHUV VAC6 2 = TEMP18 (TYPE FIX)>
1867                     <DEAD VAC6>
1868                     <OR TEMP18 #WORD *120* = TEMP18>
1869                     <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
1870                     <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
1871                     <DEAD TEMP18>
1872                     <PUSH 'LONG>
1873                     <CALL '\1aEMIT-PUSH 2>
1874 PHRASE20
1875                     <FRAME '\1aCLEAR-STATUS>
1876                     <CALL '\1aCLEAR-STATUS 0 = TEMP18>
1877                     <RETURN TEMP18>
1878                     <DEAD TEMP18>
1879 PHRASE11
1880                     <TYPE? DEST8 <TYPE-CODE VARTBL> + TAG25>
1881                     <RETURN %<>>
1882 TAG25
1883                     <FRAME '\1aDEAD-VAR>
1884                     <PUSH DEST8>
1885                     <CALL '\1aDEAD-VAR 1>
1886                     <FRAME '\1aLINK-VAR-TO-AC>
1887                     <PUSH DEST8>
1888                     <PUSH VAC6>
1889                     <PUSH 'VALUE>
1890                     <PUSH %<>>
1891                     <CALL '\1aLINK-VAR-TO-AC 4>
1892                     <FRAME '\1aLINK-VAR-TO-AC>
1893                     <PUSH DEST8>
1894                     <PUSH CAC7>
1895                     <DEAD CAC7>
1896                     <PUSH 'TYPE-WORD>
1897                     <PUSH %<>>
1898                     <CALL '\1aLINK-VAR-TO-AC 4>
1899                     <SET TEMP18 STATUS?9>
1900                     <DEAD STATUS?9>
1901                     <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE31>
1902                     <FRAME '\1aSET-STATUS-AC>
1903                     <PUSH VAC6>
1904                     <DEAD VAC6>
1905                     <CALL '\1aSET-STATUS-AC 1>
1906                     <FRAME '\1aSET-STATUS-VAR>
1907                     <PUSH DEST8>
1908                     <DEAD DEST8>
1909                     <PUSH 'VALUE>
1910                     <CALL '\1aSET-STATUS-VAR 2 = TEMP18>
1911 PHRASE31
1912                     <RETURN TEMP18>
1913                     <DEAD TEMP18>
1914                     <END \1aDEST-PAIR>
1915 #WORD *14130037471*
1916 <GFCN \1aDEST-TYPE-VALUE ("VALUE" ANY AC AC <OR ATOM VARTBL> "OPTIONAL" <OR FALSE ATOM> LINKVAR) VAC7 TAC8 DEST9 STATUS?10 LVAR11>
1917                     <OPT-DISPATCH 3 %<> OPT4 OPT5 OPT6>
1918 OPT4
1919                     <PUSH %<>>
1920 OPT5
1921                     <PUSH #T$UNBOUND 0>
1922 OPT6
1923                     <TEMP TEMP15>
1924                     <INTGO>
1925                     <EQUAL? DEST9 'STACK - PHRASE13>
1926                     <FRAME '\1aEMIT-PUSH>
1927                     <NTHUV TAC8 2 = TEMP15 (TYPE FIX)>
1928                     <DEAD TAC8>
1929                     <OR TEMP15 #WORD *120* = TEMP15>
1930                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
1931                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1932                     <DEAD TEMP15>
1933                     <PUSH 'WORD>
1934                     <CALL '\1aEMIT-PUSH 2>
1935                     <FRAME '\1aCLEAR-PUSH>
1936                     <PUSH 'WORD>
1937                     <CALL '\1aCLEAR-PUSH 1>
1938                     <FRAME '\1aEMIT-PUSH>
1939                     <NTHUV VAC7 2 = TEMP15 (TYPE FIX)>
1940                     <DEAD VAC7>
1941                     <OR TEMP15 #WORD *120* = TEMP15>
1942                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
1943                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1944                     <DEAD TEMP15>
1945                     <PUSH 'LONG>
1946                     <CALL '\1aEMIT-PUSH 2>
1947                     <FRAME '\1aCLEAR-STATUS>
1948                     <CALL '\1aCLEAR-STATUS 0 = TEMP15>
1949                     <RETURN TEMP15>
1950                     <DEAD TEMP15>
1951 PHRASE13
1952                     <TYPE? DEST9 <TYPE-CODE VARTBL> + TAG20>
1953                     <RETURN %<>>
1954 TAG20
1955                     <FRAME '\1aDEAD-VAR>
1956                     <PUSH DEST9>
1957                     <CALL '\1aDEAD-VAR 1>
1958                     <FRAME '\1aLINK-VAR-TO-AC>
1959                     <PUSH DEST9>
1960                     <PUSH VAC7>
1961                     <PUSH 'VALUE>
1962                     <PUSH %<>>
1963                     <CALL '\1aLINK-VAR-TO-AC 4>
1964                     <FRAME '\1aLINK-VAR-TO-AC>
1965                     <PUSH DEST9>
1966                     <PUSH TAC8>
1967                     <DEAD TAC8>
1968                     <PUSH 'TYPE>
1969                     <PUSH %<>>
1970                     <CALL '\1aLINK-VAR-TO-AC 4>
1971                     <FRAME '\1aFIND-CACHE-VAR>
1972                     <PUSH DEST9>
1973                     <CALL '\1aFIND-CACHE-VAR 1 = LVAR11>
1974                     <PUTUV LVAR11 3 'T>
1975                     <DEAD LVAR11>
1976                     <SET TEMP15 STATUS?10>
1977                     <DEAD STATUS?10>
1978                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE27>
1979                     <FRAME '\1aSET-STATUS-AC>
1980                     <PUSH VAC7>
1981                     <DEAD VAC7>
1982                     <CALL '\1aSET-STATUS-AC 1>
1983                     <FRAME '\1aSET-STATUS-VAR>
1984                     <PUSH DEST9>
1985                     <DEAD DEST9>
1986                     <PUSH 'VALUE>
1987                     <CALL '\1aSET-STATUS-VAR 2 = TEMP15>
1988 PHRASE27
1989                     <RETURN TEMP15>
1990                     <DEAD TEMP15>
1991                     <END \1aDEST-TYPE-VALUE>
1992 #WORD *4363717326*
1993 <GFCN \1aPUSH-PAIR ("VALUE" ANY ATOM AC) TYP4 VAC5>
1994                     <TEMP TEMP9>
1995                     <INTGO>
1996                     <FRAME '\1aEMIT-PUSH>
1997                     <FRAME '\1aTYPE-WORD>
1998                     <PUSH TYP4>
1999                     <DEAD TYP4>
2000                     <CALL '\1aTYPE-WORD 1 = STACK>
2001                     <PUSH 'LONG>
2002                     <CALL '\1aEMIT-PUSH 2>
2003                     <FRAME '\1aEMIT-PUSH>
2004                     <NTHUV VAC5 2 = TEMP9 (TYPE FIX)>
2005                     <DEAD VAC5>
2006                     <OR TEMP9 #WORD *120* = TEMP9>
2007                     <LSH TEMP9 24 = TEMP9 (TYPE FIX)>
2008                     <CHTYPE TEMP9 <TYPE-CODE EFF-ADDR> = STACK>
2009                     <DEAD TEMP9>
2010                     <PUSH 'LONG>
2011                     <CALL '\1aEMIT-PUSH 2 = TEMP9>
2012                     <RETURN TEMP9>
2013                     <DEAD TEMP9>
2014                     <END \1aPUSH-PAIR>
2015 #WORD *32402000114*
2016 <GFCN \1aPUSH-PAIR-WITH-CNT ("VALUE" ANY ATOM AC AC) DCL4 VAC5 DAC6>
2017                     <TEMP TEMP10>
2018                     <INTGO>
2019                     <FRAME '\1aEMIT-PUSH>
2020                     <FRAME '\1aTYPE-CODE>
2021                     <PUSH DCL4>
2022                     <DEAD DCL4>
2023                     <CALL '\1aTYPE-CODE 1 = STACK>
2024                     <PUSH 'WORD>
2025                     <CALL '\1aEMIT-PUSH 2>
2026                     <FRAME '\1aEMIT-PUSH>
2027                     <NTHUV DAC6 2 = TEMP10 (TYPE FIX)>
2028                     <DEAD DAC6>
2029                     <OR TEMP10 #WORD *120* = TEMP10>
2030                     <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
2031                     <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
2032                     <DEAD TEMP10>
2033                     <PUSH 'WORD>
2034                     <CALL '\1aEMIT-PUSH 2>
2035                     <FRAME '\1aEMIT-PUSH>
2036                     <NTHUV VAC5 2 = TEMP10 (TYPE FIX)>
2037                     <DEAD VAC5>
2038                     <OR TEMP10 #WORD *120* = TEMP10>
2039                     <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
2040                     <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
2041                     <DEAD TEMP10>
2042                     <PUSH 'LONG>
2043                     <CALL '\1aEMIT-PUSH 2 = TEMP10>
2044                     <RETURN TEMP10>
2045                     <DEAD TEMP10>
2046                     <END \1aPUSH-PAIR-WITH-CNT>
2047 #WORD *23424440641*
2048 <GFCN \1aPUSH-GEN ("VALUE" ATOM ANY) VAL4>
2049                     <TEMP>
2050                     <INTGO>
2051                     <TYPE? VAL4 <TYPE-CODE VARTBL> - PHRASE6>
2052                     <FRAME '\1aPUSH-VAR>
2053                     <PUSH VAL4>
2054                     <DEAD VAL4>
2055                     <CALL '\1aPUSH-VAR 1>
2056                     <RETURN 'NORMAL>
2057 PHRASE6
2058                     <FRAME '\1aPUSH-CONSTANT>
2059                     <PUSH VAL4>
2060                     <DEAD VAL4>
2061                     <CALL '\1aPUSH-CONSTANT 1>
2062                     <RETURN 'NORMAL>
2063                     <END \1aPUSH-GEN>
2064 #WORD *525340034*
2065 <GFCN \1aPOP-GEN ("VALUE" ANY VARTBL) RES4>
2066                     <TEMP TAC6>
2067                     <INTGO>
2068                     <FRAME '\1aFIND-FREE-PAIR>
2069                     <PUSH 'NOVARS>
2070                     <CALL '\1aFIND-FREE-PAIR 1 = TAC6>
2071                     <FRAME '\1aEMIT-POP>
2072                     <PUSH TAC6>
2073                     <PUSH 'DOUBLE>
2074                     <CALL '\1aEMIT-POP 2>
2075                     <FRAME '\1aDEST-PAIR>
2076                     <FRAME '\1aNEXT-AC>
2077                     <PUSH TAC6>
2078                     <CALL '\1aNEXT-AC 1 = STACK>
2079                     <PUSH TAC6>
2080                     <DEAD TAC6>
2081                     <PUSH RES4>
2082                     <DEAD RES4>
2083                     <CALL '\1aDEST-PAIR 3 = TAC6>
2084                     <RETURN TAC6>
2085                     <DEAD TAC6>
2086                     <END \1aPOP-GEN>
2087 #WORD *20766040643*
2088 <GFCN \1aINIT-OPERATIONS ("VALUE" OBLIST)>
2089                     <TEMP TEMP4 TEMP5>
2090                     <INTGO>
2091                     <UUBLOCK <TYPE-CODE VECTOR> 200 = TEMP4>
2092                     <SET TEMP5 TEMP4>
2093                     <LOOP (TEMP5 VALUE LENGTH)>
2094 ISTR6
2095                     <EMPUV? TEMP5 + ISTRE7>
2096                     <PUTUV TEMP5 1 -1>
2097                     <RESTUV TEMP5 1 = TEMP5>
2098                     <JUMP + ISTR6>
2099 ISTRE7
2100                     <SETG 'OP-APPLY-VECTOR TEMP4>
2101                     <DEAD TEMP4>
2102                     <SETG 'OP-COUNT 1>
2103                     <FRAME '\1aMOBLIST>
2104                     <PUSH 'MIMOP>
2105                     <PUSH 51>
2106                     <CALL '\1aMOBLIST 2 = TEMP4>
2107                     <SETG 'MIMOP-OBLIST TEMP4>
2108                     <DEAD TEMP4>
2109                     <FRAME '\1aMOBLIST>
2110                     <PUSH 'VARS>
2111                     <PUSH 51>
2112                     <CALL '\1aMOBLIST 2 = TEMP4>
2113                     <SETG 'VAR-OBLIST TEMP4>
2114                     <RETURN TEMP4>
2115                     <DEAD TEMP4>
2116                     <END \1aINIT-OPERATIONS>
2117 #WORD *17754135751*
2118 <GFCN \1aDEFINE-MIMOP ("VALUE" FIX STRING ANY "OPTIONAL" ANY) NAME6 FCN7 PROTECT?8>
2119                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
2120 OPT4
2121                     <PUSH %<>>
2122 OPT5
2123                     <TEMP CNT9:FIX TEMP14 ANAME10 TEMP20>
2124                     <INTGO>
2125                     <GVAL 'OP-COUNT = CNT9>
2126                     <GRTR? CNT9 200 - PHRASE12 (TYPE FIX)>
2127                     <FRAME '\1aERROR>
2128                     <PUSH "TOO MANY OPERATIONS">
2129                     <PUSH 'DEFINE-MIMOP>
2130                     <CALL '\1aERROR 2>
2131 PHRASE12
2132                     <GVAL 'OP-APPLY-VECTOR = TEMP14>
2133                     <PUTUV TEMP14 CNT9 FCN7>
2134                     <DEAD TEMP14 FCN7>
2135                     <FRAME '\1aLOOKUP>
2136                     <PUSH NAME6>
2137                     <GVAL 'MIMOP-OBLIST = STACK>
2138                     <CALL '\1aLOOKUP 2 = ANAME10>
2139                     <TYPE? ANAME10 <TYPE-CODE FALSE> - BOOL15>
2140                     <FRAME '\1aINSERT>
2141                     <PUSH NAME6>
2142                     <DEAD NAME6>
2143                     <GVAL 'MIMOP-OBLIST = STACK>
2144                     <CALL '\1aINSERT 2 = ANAME10>
2145 BOOL15
2146                     <TYPE? PROTECT?8 <TYPE-CODE FALSE> + PHRASE19>
2147                     <DEAD PROTECT?8>
2148                     <SUB 0 CNT9 = TEMP14 (TYPE FIX)>
2149                     <JUMP + COND18>
2150 PHRASE19
2151                     <SET TEMP14 CNT9>
2152 COND18
2153                     <NTHR ANAME10 1 = TEMP20 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG21)>
2154                     <TYPE? TEMP20 <TYPE-CODE FALSE> + TAG21>
2155                     <PUTR TEMP20 1 TEMP14 (RECORD-TYPE GBIND)>
2156                     <DEAD TEMP20 TEMP14>
2157                     <JUMP + TAG22>
2158 TAG21
2159                     <FRAME '\1aSETG>
2160                     <PUSH ANAME10>
2161                     <DEAD ANAME10>
2162                     <PUSH TEMP14>
2163                     <DEAD TEMP14>
2164                     <CALL '\1aSETG 2 = TEMP14>
2165 TAG22
2166                     <ADD CNT9 1 = TEMP14 (TYPE FIX)>
2167                     <DEAD CNT9>
2168                     <SETG 'OP-COUNT TEMP14>
2169                     <RETURN TEMP14>
2170                     <DEAD TEMP14>
2171                     <END \1aDEFINE-MIMOP>
2172 #WORD *6423764200*
2173 <GFCN \1aSTRUCTURED-TYPE? ("VALUE" <OR ATOM !<FALSE> <VECTOR ATOM [REST ATOM]>> ATOM) DCL4>
2174                     <TEMP TEMP8 TEMP14 TEMP15>
2175                     <INTGO>
2176                     <FRAME '\1aISTYPE?>
2177                     <PUSH DCL4>
2178                     <CALL '\1aISTYPE? 1 = TEMP8>
2179                     <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE6>
2180                     <DEAD TEMP8>
2181                     <FRAME '\1aTYPEPRIM>
2182                     <PUSH DCL4>
2183                     <DEAD DCL4>
2184                     <CALL '\1aTYPEPRIM 1 = TEMP8>
2185                     <SET TEMP14 [OFFSET RECORD UVECTOR STRING LIST VECTOR ATOM] (TYPE VECTOR)>
2186                     <TYPE? TEMP8 <TYPE-CODE ATOM> - TAG9>
2187                     <LOOP (TEMP8 VALUE) (TEMP14 LENGTH VALUE)>
2188 TAG11
2189                     <NTHUV TEMP14 1 = TEMP15>
2190                     <VEQUAL? TEMP15 TEMP8 + COND5>
2191                     <DEAD TEMP15>
2192                     <RESTUV TEMP14 1 = TEMP14 (TYPE VECTOR)>
2193                     <EMPUV? TEMP14 - TAG11>
2194 TAG9
2195                     <RETURN %<>>
2196 PHRASE6
2197                     <SET TEMP14 'T (TYPE ATOM)>
2198 COND5
2199                     <RETURN TEMP14>
2200                     <DEAD TEMP14>
2201                     <END \1aSTRUCTURED-TYPE?>
2202 #WORD *33766010353*
2203 <GFCN \1aCOUNT-NEEDED? ("VALUE" <OR FALSE <VECTOR ATOM [REST ATOM]>> ATOM) DCL4>
2204                     <TEMP TEMP7 TEMP14 TEMP15>
2205                     <INTGO>
2206                     <FRAME '\1aCLEAN-DECL>
2207                     <PUSH DCL4>
2208                     <DEAD DCL4>
2209                     <CALL '\1aCLEAN-DECL 1 = DCL4>
2210                     <FRAME '\1aISTYPE?>
2211                     <PUSH DCL4>
2212                     <CALL '\1aISTYPE? 1 = TEMP7>
2213                     <TYPE? TEMP7 <TYPE-CODE FALSE> + TAG10>
2214                     <FRAME '\1aTYPEPRIM>
2215                     <PUSH DCL4>
2216                     <DEAD DCL4>
2217                     <CALL '\1aTYPEPRIM 1 = TEMP14>
2218                     <SET TEMP7 [OFFSET STRING VECTOR RECORD UVECTOR TUPLE BYTES] (TYPE VECTOR)>
2219                     <TYPE? TEMP14 <TYPE-CODE ATOM> - TAG9>
2220                     <LOOP (TEMP14 VALUE) (TEMP7 LENGTH VALUE)>
2221 TAG11
2222                     <NTHUV TEMP7 1 = TEMP15>
2223                     <VEQUAL? TEMP15 TEMP14 + TAG10>
2224                     <DEAD TEMP15>
2225                     <RESTUV TEMP7 1 = TEMP7 (TYPE VECTOR)>
2226                     <EMPUV? TEMP7 - TAG11>
2227 TAG9
2228                     <SET TEMP7 %<> (TYPE FALSE)>
2229 TAG10
2230                     <RETURN TEMP7>
2231                     <DEAD TEMP7>
2232                     <END \1aCOUNT-NEEDED?>
2233 #WORD *20751001175*
2234 <GFCN \1aPARSE-HINT ("VALUE" ANY HINT ATOM) HINT4 NAME5>
2235                     <TEMP HTYP6 TEMP11>
2236                     <INTGO>
2237                     <NTHL HINT4 1 = HTYP6>
2238                     <TYPE? HTYP6 <TYPE-CODE FORM> - PHRASE9>
2239                     <EMPL? HTYP6 + PHRASE9>
2240                     <RESTL HTYP6 1 = TEMP11 (TYPE LIST)>
2241                     <EMPL? TEMP11 + PHRASE9>
2242                     <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
2243                     <EMPL? TEMP11 - PHRASE9>
2244                     <DEAD TEMP11>
2245                     <NTHL HTYP6 1 = TEMP11>
2246                     <EQUAL? TEMP11 'QUOTE - PHRASE9>
2247                     <DEAD TEMP11>
2248                     <RESTL HTYP6 1 = TEMP11 (TYPE LIST)>
2249                     <DEAD HTYP6>
2250                     <NTHL TEMP11 1 = HTYP6>
2251                     <DEAD TEMP11>
2252 PHRASE9
2253                     <EQUAL? HTYP6 NAME5 + TAG14>
2254                     <DEAD NAME5>
2255                     <RETURN %<>>
2256 TAG14
2257                     <EQUAL? HTYP6 'TYPE - PHRASE16>
2258                     <DEAD HTYP6>
2259                     <RESTL HINT4 1 = HTYP6 (TYPE LIST)>
2260                     <NTHL HTYP6 1 = HTYP6 (TYPE ATOM)>
2261                     <NTHR HTYP6 5 = HTYP6 (RECORD-TYPE ATOM) (BRANCH-FALSE - PHRASE16)>
2262                     <TYPE? HTYP6 <TYPE-CODE FALSE> - PHRASE16>
2263                     <DEAD HTYP6>
2264                     <FRAME '\1aCHECK-MIMOP-TYPE>
2265                     <RESTL HINT4 1 = HTYP6 (TYPE LIST)>
2266                     <NTHL HTYP6 1 = STACK (TYPE ATOM)>
2267                     <DEAD HTYP6>
2268                     <CALL '\1aCHECK-MIMOP-TYPE 1 = HTYP6>
2269                     <TYPE? HTYP6 <TYPE-CODE FALSE> + PHRASE16>
2270                     <RETURN HTYP6>
2271                     <DEAD HTYP6>
2272 PHRASE16
2273                     <RESTL HINT4 1 = HTYP6 (TYPE LIST)>
2274                     <DEAD HINT4>
2275                     <NTHL HTYP6 1 = TEMP11>
2276                     <DEAD HTYP6>
2277                     <RETURN TEMP11>
2278                     <DEAD TEMP11>
2279                     <END \1aPARSE-HINT>
2280 #WORD *27210706361*
2281 <GFCN \1aADD-TO-AC ("VALUE" ANY AC EFF-ADDR) VAC4 VADDR5>
2282                     <TEMP TEMP7>
2283                     <INTGO>
2284                     <FRAME '\1aEMIT>
2285                     <PUSH 192>
2286                     <PUSH VADDR5>
2287                     <DEAD VADDR5>
2288                     <NTHUV VAC4 2 = TEMP7 (TYPE FIX)>
2289                     <DEAD VAC4>
2290                     <OR TEMP7 #WORD *120* = TEMP7>
2291                     <LSH TEMP7 24 = TEMP7 (TYPE FIX)>
2292                     <CHTYPE TEMP7 <TYPE-CODE EFF-ADDR> = STACK>
2293                     <DEAD TEMP7>
2294                     <CALL '\1aEMIT 3 = TEMP7>
2295                     <RETURN TEMP7>
2296                     <DEAD TEMP7>
2297                     <END \1aADD-TO-AC>
2298 #WORD *23010741361*
2299 <GFCN \1aSUB-FROM-AC ("VALUE" ANY AC EFF-ADDR) VAC4 VADDR5>
2300                     <TEMP TEMP7>
2301                     <INTGO>
2302                     <FRAME '\1aEMIT>
2303                     <PUSH 194>
2304                     <PUSH VADDR5>
2305                     <DEAD VADDR5>
2306                     <NTHUV VAC4 2 = TEMP7 (TYPE FIX)>
2307                     <DEAD VAC4>
2308                     <OR TEMP7 #WORD *120* = TEMP7>
2309                     <LSH TEMP7 24 = TEMP7 (TYPE FIX)>
2310                     <CHTYPE TEMP7 <TYPE-CODE EFF-ADDR> = STACK>
2311                     <DEAD TEMP7>
2312                     <CALL '\1aEMIT 3 = TEMP7>
2313                     <RETURN TEMP7>
2314                     <DEAD TEMP7>
2315                     <END \1aSUB-FROM-AC>
2316 #WORD *1065720713*
2317 <GFCN \1aMOVE-VALUE ("VALUE" ANY ANY <OR AC EFF-ADDR>) VAL4 EADDR5>
2318                     <TEMP ADDR17 TEMP14>
2319                     <INTGO>
2320                     <TYPE? VAL4 <TYPE-CODE VARTBL> - PHRASE9>
2321                     <FRAME '\1aVAR-VALUE-ADDRESS>
2322                     <PUSH VAL4>
2323                     <DEAD VAL4>
2324                     <CALL '\1aVAR-VALUE-ADDRESS 1 = ADDR17>
2325                     <TYPE? EADDR5 <TYPE-CODE AC> - PHRASE12>
2326                     <FRAME '\1aEMIT-MOVE>
2327                     <PUSH ADDR17>
2328                     <NTHUV EADDR5 2 = TEMP14 (TYPE FIX)>
2329                     <OR TEMP14 #WORD *120* = TEMP14>
2330                     <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
2331                     <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
2332                     <DEAD TEMP14>
2333                     <PUSH 'LONG>
2334                     <CALL '\1aEMIT-MOVE 3>
2335                     <FRAME '\1aLOAD-AC>
2336                     <PUSH EADDR5>
2337                     <DEAD EADDR5>
2338                     <PUSH ADDR17>
2339                     <DEAD ADDR17>
2340                     <CALL '\1aLOAD-AC 2 = TEMP14>
2341                     <RETURN TEMP14>
2342                     <DEAD TEMP14>
2343 PHRASE12
2344                     <FRAME '\1aEMIT-MOVE>
2345                     <PUSH ADDR17>
2346                     <DEAD ADDR17>
2347                     <PUSH EADDR5>
2348                     <DEAD EADDR5>
2349                     <PUSH 'LONG>
2350                     <CALL '\1aEMIT-MOVE 3 = TEMP14>
2351                     <RETURN TEMP14>
2352                     <DEAD TEMP14>
2353 PHRASE9
2354                     <FRAME '\1aFIX-CONSTANT?>
2355                     <PUSH VAL4>
2356                     <CALL '\1aFIX-CONSTANT? 1 = TEMP14>
2357                     <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE17>
2358                     <DEAD TEMP14>
2359                     <FRAME '\1aLOAD-CONSTANT>
2360                     <PUSH EADDR5>
2361                     <DEAD EADDR5>
2362                     <PUSH VAL4>
2363                     <DEAD VAL4>
2364                     <CALL '\1aLOAD-CONSTANT 2 = TEMP14>
2365                     <RETURN TEMP14>
2366                     <DEAD TEMP14>
2367 PHRASE17
2368                     <FRAME '\1aADDR-VALUE-MQUOTE>
2369                     <PUSH VAL4>
2370                     <DEAD VAL4>
2371                     <CALL '\1aADDR-VALUE-MQUOTE 1 = ADDR17>
2372                     <TYPE? EADDR5 <TYPE-CODE AC> - PHRASE24>
2373                     <FRAME '\1aEMIT-MOVE>
2374                     <PUSH ADDR17>
2375                     <NTHUV EADDR5 2 = TEMP14 (TYPE FIX)>
2376                     <OR TEMP14 #WORD *120* = TEMP14>
2377                     <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
2378                     <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
2379                     <DEAD TEMP14>
2380                     <PUSH 'LONG>
2381                     <CALL '\1aEMIT-MOVE 3>
2382                     <FRAME '\1aLOAD-AC>
2383                     <PUSH EADDR5>
2384                     <DEAD EADDR5>
2385                     <PUSH ADDR17>
2386                     <DEAD ADDR17>
2387                     <CALL '\1aLOAD-AC 2 = TEMP14>
2388                     <RETURN TEMP14>
2389                     <DEAD TEMP14>
2390 PHRASE24
2391                     <FRAME '\1aEMIT-MOVE>
2392                     <PUSH ADDR17>
2393                     <DEAD ADDR17>
2394                     <PUSH EADDR5>
2395                     <DEAD EADDR5>
2396                     <PUSH 'LONG>
2397                     <CALL '\1aEMIT-MOVE 3 = TEMP14>
2398                     <RETURN TEMP14>
2399                     <DEAD TEMP14>
2400                     <END \1aMOVE-VALUE>
2401 #WORD *23274201721*
2402 <GFCN \1aADD-CONSTANT-TO-AC ("VALUE" ANY FIX AC) VAL4 DEST5>
2403                     <TEMP TEMP10 ACADDR7:EFF-ADDR TEMP38>
2404                     <INTGO>
2405                     <NTHUV DEST5 2 = TEMP10 (TYPE FIX)>
2406                     <DEAD DEST5>
2407                     <OR TEMP10 #WORD *120* = TEMP10>
2408                     <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
2409                     <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = ACADDR7>
2410                     <DEAD TEMP10>
2411                     <FRAME '\1aFIX-CONSTANT?>
2412                     <PUSH VAL4>
2413                     <DEAD VAL4>
2414                     <CALL '\1aFIX-CONSTANT? 1 = VAL4>
2415                     <VEQUAL? VAL4 0 - TAG13 (TYPE FIX)>
2416                     <RETURN 'T>
2417 TAG13
2418                     <VEQUAL? VAL4 1 - PHRASE16 (TYPE FIX)>
2419                     <FRAME '\1aEMIT>
2420                     <PUSH 214>
2421                     <PUSH ACADDR7>
2422                     <DEAD ACADDR7>
2423                     <CALL '\1aEMIT 2 = TEMP10>
2424                     <RETURN TEMP10>
2425                     <DEAD TEMP10>
2426 PHRASE16
2427                     <VEQUAL? VAL4 -1 - PHRASE20 (TYPE FIX)>
2428                     <FRAME '\1aEMIT>
2429                     <PUSH 215>
2430                     <PUSH ACADDR7>
2431                     <DEAD ACADDR7>
2432                     <CALL '\1aEMIT 2 = TEMP10>
2433                     <RETURN TEMP10>
2434                     <DEAD TEMP10>
2435 PHRASE20
2436                     <LESS? VAL4 0 + PHRASE24 (TYPE FIX)>
2437                     <GRTR? VAL4 63 + PHRASE24 (TYPE FIX)>
2438                     <FRAME '\1aEMIT>
2439                     <PUSH 192>
2440                     <AND VAL4 #WORD *77* = TEMP10>
2441                     <DEAD VAL4>
2442                     <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
2443                     <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
2444                     <DEAD TEMP10>
2445                     <PUSH ACADDR7>
2446                     <DEAD ACADDR7>
2447                     <CALL '\1aEMIT 3 = TEMP10>
2448                     <RETURN TEMP10>
2449                     <DEAD TEMP10>
2450 PHRASE24
2451                     <LESS? VAL4 -63 + PHRASE30 (TYPE FIX)>
2452                     <GRTR? VAL4 0 + PHRASE30 (TYPE FIX)>
2453                     <FRAME '\1aEMIT>
2454                     <PUSH 194>
2455                     <SUB 0 VAL4 = TEMP10 (TYPE FIX)>
2456                     <DEAD VAL4>
2457                     <AND TEMP10 #WORD *77* = TEMP10>
2458                     <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
2459                     <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
2460                     <DEAD TEMP10>
2461                     <PUSH ACADDR7>
2462                     <DEAD ACADDR7>
2463                     <CALL '\1aEMIT 3 = TEMP10>
2464                     <RETURN TEMP10>
2465                     <DEAD TEMP10>
2466 PHRASE30
2467                     <FRAME '\1aEMIT>
2468                     <PUSH 192>
2469                     <GVAL 'AC-PC = TEMP10>
2470                     <NTHUV TEMP10 2 = TEMP10 (TYPE FIX)>
2471                     <OR TEMP10 #WORD *200* = TEMP10>
2472                     <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
2473                     <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = TEMP10>
2474                     <CONS TEMP10 () = TEMP10>
2475                     <FRAME '\1aLREV>
2476                     <PUSH VAL4>
2477                     <DEAD VAL4>
2478                     <CALL '\1aLREV 1 = TEMP38>
2479                     <CHTYPE TEMP38 <TYPE-CODE EFF-ADDR> = TEMP38>
2480                     <CONS TEMP38 () = TEMP38>
2481                     <PUTREST TEMP10 TEMP38>
2482                     <DEAD TEMP38>
2483                     <CHTYPE TEMP10 <TYPE-CODE LADDR> = STACK>
2484                     <DEAD TEMP10>
2485                     <PUSH ACADDR7>
2486                     <DEAD ACADDR7>
2487                     <CALL '\1aEMIT 3 = TEMP10>
2488                     <RETURN TEMP10>
2489                     <DEAD TEMP10>
2490                     <END \1aADD-CONSTANT-TO-AC>
2491 #WORD *26347750664*
2492 <GFCN \1aCLEAN-DECL ("VALUE" <OR ATOM LINK> ATOM) DCL4>
2493                     <TEMP NAME5 SNAME6 TEMP10 TEMP18>
2494                     <INTGO>
2495                     <NTHR DCL4 3 = NAME5 (RECORD-TYPE ATOM)>
2496                     <SET SNAME6 NAME5>
2497                     <LENUS NAME5 = TEMP10 (TYPE FIX)>
2498                     <GRTR? TEMP10 2 - PHRASE8 (TYPE FIX)>
2499                     <DEAD TEMP10>
2500                     <NTHUS NAME5 2 = TEMP10 (TYPE CHARACTER)>
2501                     <VEQUAL? TEMP10 !\$ - PHRASE8>
2502                     <DEAD TEMP10>
2503                     <NTHUS NAME5 1 = TEMP10 (TYPE CHARACTER)>
2504                     <VEQUAL? TEMP10 !\T - PHRASE8>
2505                     <DEAD TEMP10>
2506                     <FRAME '\1aLOOKUP>
2507                     <RESTUS NAME5 2 = STACK (TYPE STRING)>
2508                     <DEAD NAME5>
2509                     <FRAME '\1aROOT>
2510                     <CALL '\1aROOT 0 = STACK>
2511                     <CALL '\1aLOOKUP 2 = NAME5>
2512                     <TYPE? NAME5 <TYPE-CODE FALSE> + PHRASE8>
2513                     <FRAME '\1aISTYPE?>
2514                     <PUSH NAME5>
2515                     <CALL '\1aISTYPE? 1 = TEMP10>
2516                     <TYPE? TEMP10 <TYPE-CODE FALSE> - TAG15>
2517                     <DEAD TEMP10>
2518                     <SET TEMP10 [LBIND GBIND] (TYPE VECTOR)>
2519                     <LOOP (NAME5 VALUE) (TEMP10 LENGTH VALUE)>
2520 TAG16
2521                     <NTHUV TEMP10 1 = TEMP18>
2522                     <VEQUAL? TEMP18 NAME5 + TAG15>
2523                     <DEAD TEMP18>
2524                     <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
2525                     <EMPUV? TEMP10 - TAG16>
2526                     <JUMP + PHRASE8>
2527 TAG15
2528                     <RETURN NAME5>
2529                     <DEAD NAME5>
2530 PHRASE8
2531                     <FRAME '\1aISTYPE?>
2532                     <PUSH DCL4>
2533                     <CALL '\1aISTYPE? 1 = TEMP18>
2534                     <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE19>
2535                     <DEAD TEMP18>
2536                     <RETURN DCL4>
2537                     <DEAD DCL4>
2538 PHRASE19
2539                     <FRAME '\1aLOOKUP>
2540                     <PUSH SNAME6>
2541                     <DEAD SNAME6>
2542                     <FRAME '\1aROOT>
2543                     <CALL '\1aROOT 0 = STACK>
2544                     <CALL '\1aLOOKUP 2 = TEMP10>
2545                     <TYPE? TEMP10 <TYPE-CODE FALSE> - COND7>
2546                     <SET TEMP10 DCL4>
2547                     <DEAD DCL4>
2548 COND7
2549                     <RETURN TEMP10>
2550                     <DEAD TEMP10>
2551                     <END \1aCLEAN-DECL>
2552 #WORD *7556013211*
2553 <GFCN \1aCHECK-MIMOP-TYPE ("VALUE" <OR ATOM FALSE> ATOM) ITEM4>
2554                     <TEMP TEMP10 TEMP11>
2555                     <INTGO>
2556                     <NTHR ITEM4 4 = TEMP10 (RECORD-TYPE ATOM)>
2557                     <GVAL 'MIMOP-OBLIST = TEMP11>
2558                     <EQUAL? TEMP10 TEMP11 + TAG9>
2559                     <DEAD TEMP10 TEMP11>
2560                     <RETURN %<>>
2561 TAG9
2562                     <NTHR ITEM4 5 = TEMP11 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG12)>
2563                     <TYPE? TEMP11 <TYPE-CODE FALSE> + TAG12>
2564                     <DEAD TEMP11>
2565                     <RETURN %<>>
2566 TAG12
2567                     <FRAME '\1aLOOKUP>
2568                     <NTHR ITEM4 3 = STACK (RECORD-TYPE ATOM)>
2569                     <DEAD ITEM4>
2570                     <FRAME '\1aROOT>
2571                     <CALL '\1aROOT 0 = STACK>
2572                     <CALL '\1aLOOKUP 2 = ITEM4>
2573                     <NTHR ITEM4 5 = TEMP11 (RECORD-TYPE ATOM) (BRANCH-FALSE - TAG16)>
2574                     <TYPE? TEMP11 <TYPE-CODE FALSE> - TAG16>
2575                     <DEAD TEMP11>
2576                     <RETURN %<>>
2577 TAG16
2578                     <RETURN ITEM4>
2579                     <DEAD ITEM4>
2580                     <END \1aCHECK-MIMOP-TYPE>
2581 #WORD *25756015762*
2582 <GFCN \1aPRINT-MSUBR ("VALUE" ATOM ANY "OPTIONAL" CHANNEL) BYTEOFF6 OUTCHAN7>
2583                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
2584 OPT4
2585                     <PUSH #T$UNBOUND 0>
2586 OPT5
2587                     <TEMP TEMP10>
2588                     <INTGO>
2589                     <TYPE? OUTCHAN7 <TYPE-CODE UNBOUND> - TAG8>
2590                     <GEN-LVAL 'OUTCHAN = OUTCHAN7>
2591 TAG8
2592                     <GVAL 'BOOT-MODE = TEMP10>
2593                     <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE14>
2594                     <DEAD TEMP10>
2595                     <FRAME '\1aPRINC>
2596                     <PUSH "<SETG \1a">
2597                     <PUSH OUTCHAN7>
2598                     <CALL '\1aPRINC 2>
2599                     <FRAME '\1aPRIN1>
2600                     <GVAL 'FUNCTION-NAME = STACK>
2601                     <PUSH OUTCHAN7>
2602                     <CALL '\1aPRIN1 2>
2603                     <FRAME '\1aPRINC>
2604                     <PUSH " ">
2605                     <PUSH OUTCHAN7>
2606                     <CALL '\1aPRINC 2>
2607 PHRASE14
2608                     <FRAME '\1aPRINC>
2609                     <PUSH "#MSUBR [">
2610                     <PUSH OUTCHAN7>
2611                     <CALL '\1aPRINC 2>
2612                     <FRAME '\1aPRIN1>
2613                     <GVAL 'INTERNAL-MSUBR-NAME = STACK>
2614                     <PUSH OUTCHAN7>
2615                     <CALL '\1aPRIN1 2>
2616                     <FRAME '\1aPRINC>
2617                     <PUSH !\ >
2618                     <PUSH OUTCHAN7>
2619                     <CALL '\1aPRINC 2>
2620                     <FRAME '\1aPRIN1>
2621                     <GVAL 'FUNCTION-NAME = STACK>
2622                     <PUSH OUTCHAN7>
2623                     <CALL '\1aPRIN1 2>
2624                     <FRAME '\1aPRINC>
2625                     <PUSH !\ >
2626                     <PUSH OUTCHAN7>
2627                     <CALL '\1aPRINC 2>
2628                     <FRAME '\1aPRIN1>
2629                     <GVAL 'FUNCTION-DECL = STACK>
2630                     <PUSH OUTCHAN7>
2631                     <CALL '\1aPRIN1 2>
2632                     <FRAME '\1aPRINC>
2633                     <PUSH !\ >
2634                     <PUSH OUTCHAN7>
2635                     <CALL '\1aPRINC 2>
2636                     <FRAME '\1aPRIN1>
2637                     <PUSH BYTEOFF6>
2638                     <DEAD BYTEOFF6>
2639                     <PUSH OUTCHAN7>
2640                     <CALL '\1aPRIN1 2>
2641                     <FRAME '\1aPRINC>
2642                     <PUSH !\]>
2643                     <PUSH OUTCHAN7>
2644                     <CALL '\1aPRINC 2>
2645                     <GVAL 'BOOT-MODE = TEMP10>
2646                     <TYPE? TEMP10 <TYPE-CODE FALSE> - BOOL28>
2647                     <DEAD TEMP10>
2648                     <FRAME '\1aPRINC>
2649                     <PUSH ">">
2650                     <PUSH OUTCHAN7>
2651                     <CALL '\1aPRINC 2>
2652 BOOL28
2653                     <FRAME '\1aCRLF>
2654                     <PUSH OUTCHAN7>
2655                     <DEAD OUTCHAN7>
2656                     <CALL '\1aCRLF 1 = TEMP10>
2657                     <RETURN TEMP10>
2658                     <DEAD TEMP10>
2659                     <END \1aPRINT-MSUBR>
2660 <MSETG INFINITY <CHTYPE <MIN> FIX>>
2661
2662 #WORD *11030635005*
2663 <GFCN \1aPRINT-IMSUBR ("VALUE" ATOM "OPTIONAL" CHANNEL) OUTCHAN6>
2664                     <OPT-DISPATCH 0 %<> OPT4 OPT5>
2665 OPT4
2666                     <PUSH #T$UNBOUND 0>
2667 OPT5
2668                     <TEMP TEMP10>
2669                     <INTGO>
2670                     <TYPE? OUTCHAN6 <TYPE-CODE UNBOUND> - TAG8>
2671                     <GEN-LVAL 'OUTCHAN = OUTCHAN6>
2672 TAG8
2673                     <FRAME '\1aM-HLEN>
2674                     <PUSH OUTCHAN6>
2675                     <CALL '\1aM-HLEN 1 = TEMP10>
2676                     <FRAME '\1aCRLF>
2677                     <PUSH OUTCHAN6>
2678                     <CALL '\1aCRLF 1>
2679                     <GVAL 'BOOT-MODE = TEMP10>
2680                     <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE16>
2681                     <DEAD TEMP10>
2682                     <FRAME '\1aPRINC>
2683                     <PUSH "<SETG \1a">
2684                     <PUSH OUTCHAN6>
2685                     <CALL '\1aPRINC 2>
2686                     <FRAME '\1aPRIN1>
2687                     <GVAL 'INTERNAL-MSUBR-NAME = STACK>
2688                     <PUSH OUTCHAN6>
2689                     <CALL '\1aPRIN1 2>
2690                     <FRAME '\1aPRINC>
2691                     <PUSH " ">
2692                     <PUSH OUTCHAN6>
2693                     <CALL '\1aPRINC 2>
2694 PHRASE16
2695                     <FRAME '\1aPRINC>
2696                     <PUSH "#IMSUBR [">
2697                     <PUSH OUTCHAN6>
2698                     <CALL '\1aPRINC 2>
2699                     <GVAL 'BOOT-MODE = TEMP10>
2700                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE23>
2701                     <DEAD TEMP10>
2702                     <FRAME '\1aPRINT-HEX-CODE>
2703                     <PUSH OUTCHAN6>
2704                     <CALL '\1aPRINT-HEX-CODE 1>
2705                     <JUMP + PHRASE25>
2706 PHRASE23
2707                     <FRAME '\1aPRINT-NHEX-CODE>
2708                     <PUSH OUTCHAN6>
2709                     <CALL '\1aPRINT-NHEX-CODE 1>
2710 PHRASE25
2711                     <FRAME '\1aPRINC>
2712                     <PUSH !\ >
2713                     <PUSH OUTCHAN6>
2714                     <CALL '\1aPRINC 2>
2715                     <FRAME '\1aPRIN1>
2716                     <GVAL 'INTERNAL-MSUBR-NAME = STACK>
2717                     <PUSH OUTCHAN6>
2718                     <CALL '\1aPRIN1 2>
2719                     <FRAME '\1aPRINC>
2720                     <PUSH !\ >
2721                     <PUSH OUTCHAN6>
2722                     <CALL '\1aPRINC 2>
2723                     <FRAME '\1aPRINT-MVEC-ELEMENTS>
2724                     <PUSH OUTCHAN6>
2725                     <CALL '\1aPRINT-MVEC-ELEMENTS 1>
2726                     <FRAME '\1aPRINC>
2727                     <PUSH !\]>
2728                     <PUSH OUTCHAN6>
2729                     <CALL '\1aPRINC 2>
2730                     <GVAL 'BOOT-MODE = TEMP10>
2731                     <TYPE? TEMP10 <TYPE-CODE FALSE> - BOOL32>
2732                     <DEAD TEMP10>
2733                     <FRAME '\1aPRINC>
2734                     <PUSH ">">
2735                     <PUSH OUTCHAN6>
2736                     <CALL '\1aPRINC 2>
2737 BOOL32
2738                     <FRAME '\1aCRLF>
2739                     <PUSH OUTCHAN6>
2740                     <DEAD OUTCHAN6>
2741                     <CALL '\1aCRLF 1 = TEMP10>
2742                     <RETURN TEMP10>
2743                     <DEAD TEMP10>
2744                     <END \1aPRINT-IMSUBR>
2745 <GDECL (MSUBR-BUF) STRING (MSUBR-PTR) FIX>
2746
2747 <SETG FAST-MCODE T>
2748
2749 <SETG MS-TEMPSTR <ISTRING 4>>
2750
2751 #WORD *6632132653*
2752 <GFCN \1aPRINT-NHEX-CODE ("VALUE" ANY "OPTIONAL" CHANNEL FIX FIX ANY) OUTCHAN9 PTR10 MAXPTR11 LEN12>
2753                     <OPT-DISPATCH 0 %<> OPT4 OPT5 OPT6 OPT7 OPT8>
2754 OPT4
2755                     <PUSH #T$UNBOUND 0>
2756 OPT5
2757                     <PUSH 1>
2758 OPT6
2759                     <PUSH #T$UNBOUND 0>
2760 OPT7
2761                     <PUSH #T$UNBOUND 0>
2762 OPT8
2763                     <TEMP TEMP15 TST28:STRING TEMP40>
2764                     <INTGO>
2765                     <TYPE? OUTCHAN9 <TYPE-CODE UNBOUND> - TAG13>
2766                     <GEN-LVAL 'OUTCHAN = OUTCHAN9>
2767 TAG13
2768                     <TYPE? MAXPTR11 <TYPE-CODE UNBOUND> - TAG18>
2769                     <GVAL 'FBYTE-OFFSET = MAXPTR11>
2770 TAG18
2771                     <TYPE? LEN12 <TYPE-CODE UNBOUND> - TAG20>
2772                     <ADD MAXPTR11 1 = TEMP15 (TYPE FIX)>
2773                     <DIV TEMP15 4 = LEN12 (TYPE FIX)>
2774                     <DEAD TEMP15>
2775 TAG20
2776                     <NTHR 'MSUBR-BUF 1 = TEMP15 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG25)>
2777                     <TYPE? TEMP15 <TYPE-CODE FALSE> + TAG25>
2778                     <NTHR TEMP15 1 = TEMP15 (RECORD-TYPE GBIND)>
2779                     <TYPE? TEMP15 <TYPE-CODE UNBOUND> - PHRASE24>
2780                     <DEAD TEMP15>
2781 TAG25
2782                     <UUBLOCK <TYPE-CODE STRING> 1024 = TEMP15 (TYPE STRING)>
2783                     <SETG 'MSUBR-BUF TEMP15>
2784                     <DEAD TEMP15>
2785                     <JUMP + COND23>
2786 PHRASE24
2787                     <GVAL 'MSUBR-BUF = TEMP15>
2788                     <TOPU TEMP15 = TEMP15>
2789                     <SETG 'MSUBR-BUF TEMP15>
2790                     <DEAD TEMP15>
2791 COND23
2792                     <SETG 'MSUBR-PTR 0>
2793                     <SETG 'MSUBR-CHAN OUTCHAN9>
2794                     <FRAME '\1aWRITE-BYTE>
2795                     <PUSH !\|>
2796                     <CALL '\1aWRITE-BYTE 1>
2797                     <GVAL 'MS-TEMPSTR = TST28>
2798                     <IFSYS "VAX">
2799                     <GVAL 'INT-MODE = TEMP15>
2800                     <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE35>
2801                     <DEAD TEMP15>
2802                     <NTHR 'FAST-MCODE 1 = TEMP15 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE35)>
2803                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE35>
2804                     <NTHR TEMP15 1 = TEMP15 (RECORD-TYPE GBIND)>
2805                     <TYPE? TEMP15 <TYPE-CODE UNBOUND> + PHRASE35>
2806                     <DEAD TEMP15>
2807                     <GVAL 'FAST-MCODE = TEMP15>
2808                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE35>
2809                     <DEAD TEMP15>
2810                     <FRAME '\1aWRITE-BYTE>
2811                     <PUSH !\|>
2812                     <CALL '\1aWRITE-BYTE 1>
2813                     <NTHR 'UVECTOR 5 = TEMP15 (RECORD-TYPE ATOM) (TYPE TYPE-C)>
2814                     <VALUE TST28 = TEMP40>
2815                     <OBJECT TEMP15 1 TEMP40 = TEMP15>
2816                     <DEAD TEMP40>
2817                     <PUTUU TEMP15 1 LEN12>
2818                     <DEAD TEMP15 LEN12>
2819                     <SET TEMP40 TST28 (TYPE STRING)>
2820                     <DEAD TST28>
2821                     <LOOP>
2822 MAP42
2823                     <INTGO>
2824                     <EMPUS? TEMP40 + MAP41>
2825                     <FRAME '\1aWRITE-BYTE>
2826                     <NTHUS TEMP40 1 = STACK>
2827                     <CALL '\1aWRITE-BYTE 1>
2828                     <RESTUS TEMP40 1 = TEMP40 (TYPE STRING)>
2829                     <JUMP + MAP42>
2830 MAP41
2831                     <LOOP>
2832 AGAIN47
2833                     <INTGO>
2834                     <FRAME '\1aWRITE-BYTE>
2835                     <FRAME '\1aNTH-FCODE>
2836                     <PUSH PTR10>
2837                     <CALL '\1aNTH-FCODE 1 = STACK>
2838                     <CALL '\1aWRITE-BYTE 1>
2839                     <ADD PTR10 1 = PTR10 (TYPE FIX)>
2840                     <GRTR? PTR10 MAXPTR11 + PHRASE51 (TYPE FIX)>
2841                     <FRAME '\1aWRITE-BYTE>
2842                     <FRAME '\1aNTH-FCODE>
2843                     <PUSH PTR10>
2844                     <CALL '\1aNTH-FCODE 1 = TEMP15>
2845                     <CHTYPE TEMP15 <TYPE-CODE CHARACTER> = STACK>
2846                     <DEAD TEMP15>
2847                     <CALL '\1aWRITE-BYTE 1>
2848                     <JUMP + PHRASE54>
2849 PHRASE51
2850                     <FRAME '\1aWRITE-BYTE>
2851                     <PUSH !\\0>
2852                     <CALL '\1aWRITE-BYTE 1>
2853 PHRASE54
2854                     <ADD PTR10 1 = PTR10 (TYPE FIX)>
2855                     <GRTR? PTR10 MAXPTR11 + PHRASE57 (TYPE FIX)>
2856                     <FRAME '\1aWRITE-BYTE>
2857                     <FRAME '\1aNTH-FCODE>
2858                     <PUSH PTR10>
2859                     <CALL '\1aNTH-FCODE 1 = TEMP15>
2860                     <CHTYPE TEMP15 <TYPE-CODE CHARACTER> = STACK>
2861                     <DEAD TEMP15>
2862                     <CALL '\1aWRITE-BYTE 1>
2863                     <JUMP + PHRASE60>
2864 PHRASE57
2865                     <FRAME '\1aWRITE-BYTE>
2866                     <PUSH !\\0>
2867                     <CALL '\1aWRITE-BYTE 1>
2868 PHRASE60
2869                     <ADD PTR10 1 = PTR10 (TYPE FIX)>
2870                     <GRTR? PTR10 MAXPTR11 + PHRASE63 (TYPE FIX)>
2871                     <FRAME '\1aWRITE-BYTE>
2872                     <FRAME '\1aNTH-FCODE>
2873                     <PUSH PTR10>
2874                     <CALL '\1aNTH-FCODE 1 = TEMP15>
2875                     <CHTYPE TEMP15 <TYPE-CODE CHARACTER> = STACK>
2876                     <DEAD TEMP15>
2877                     <CALL '\1aWRITE-BYTE 1>
2878                     <JUMP + PHRASE66>
2879 PHRASE63
2880                     <FRAME '\1aWRITE-BYTE>
2881                     <PUSH !\\0>
2882                     <CALL '\1aWRITE-BYTE 1>
2883 PHRASE66
2884                     <ADD PTR10 1 = PTR10 (TYPE FIX)>
2885                     <GRTR? PTR10 MAXPTR11 - AGAIN47 (TYPE FIX)>
2886                     <JUMP + EXIT27>
2887 PHRASE35
2888                     <ENDIF "VAX">
2889                     <FRAME '\1aPRINTBYTE>
2890                     <DIV LEN12 65536 = STACK (TYPE FIX)>
2891                     <CALL '\1aPRINTBYTE 1>
2892                     <FRAME '\1aPRINTBYTE>
2893                     <AND LEN12 65535 = TEMP15>
2894                     <DIV TEMP15 256 = STACK (TYPE FIX)>
2895                     <DEAD TEMP15>
2896                     <CALL '\1aPRINTBYTE 1>
2897                     <FRAME '\1aPRINTBYTE>
2898                     <AND LEN12 255 = STACK>
2899                     <DEAD LEN12>
2900                     <CALL '\1aPRINTBYTE 1>
2901                     <LOOP>
2902 AGAIN75
2903                     <INTGO>
2904                     <ADD PTR10 3 = TEMP40 (TYPE FIX)>
2905                     <LESS? MAXPTR11 TEMP40 + PHRASE77 (TYPE FIX)>
2906                     <DEAD TEMP40>
2907                     <FRAME '\1aPRINTBYTE>
2908                     <FRAME '\1aNTH-FCODE>
2909                     <ADD PTR10 3 = STACK (TYPE FIX)>
2910                     <CALL '\1aNTH-FCODE 1 = STACK>
2911                     <CALL '\1aPRINTBYTE 1>
2912                     <JUMP + PHRASE80>
2913 PHRASE77
2914                     <FRAME '\1aPRINTBYTE>
2915                     <PUSH 0>
2916                     <CALL '\1aPRINTBYTE 1>
2917 PHRASE80
2918                     <ADD PTR10 2 = TEMP40 (TYPE FIX)>
2919                     <LESS? MAXPTR11 TEMP40 + PHRASE83 (TYPE FIX)>
2920                     <DEAD TEMP40>
2921                     <FRAME '\1aPRINTBYTE>
2922                     <FRAME '\1aNTH-FCODE>
2923                     <ADD PTR10 2 = STACK (TYPE FIX)>
2924                     <CALL '\1aNTH-FCODE 1 = STACK>
2925                     <CALL '\1aPRINTBYTE 1>
2926                     <JUMP + PHRASE86>
2927 PHRASE83
2928                     <FRAME '\1aPRINTBYTE>
2929                     <PUSH 0>
2930                     <CALL '\1aPRINTBYTE 1>
2931 PHRASE86
2932                     <ADD PTR10 1 = TEMP40 (TYPE FIX)>
2933                     <LESS? MAXPTR11 TEMP40 + PHRASE89 (TYPE FIX)>
2934                     <DEAD TEMP40>
2935                     <FRAME '\1aPRINTBYTE>
2936                     <FRAME '\1aNTH-FCODE>
2937                     <ADD PTR10 1 = STACK (TYPE FIX)>
2938                     <CALL '\1aNTH-FCODE 1 = STACK>
2939                     <CALL '\1aPRINTBYTE 1>
2940                     <JUMP + PHRASE92>
2941 PHRASE89
2942                     <FRAME '\1aPRINTBYTE>
2943                     <PUSH 0>
2944                     <CALL '\1aPRINTBYTE 1>
2945 PHRASE92
2946                     <FRAME '\1aPRINTBYTE>
2947                     <FRAME '\1aNTH-FCODE>
2948                     <PUSH PTR10>
2949                     <CALL '\1aNTH-FCODE 1 = STACK>
2950                     <CALL '\1aPRINTBYTE 1>
2951                     <ADD PTR10 4 = PTR10 (TYPE FIX)>
2952                     <GRTR? PTR10 MAXPTR11 - AGAIN75 (TYPE FIX)>
2953                     <FRAME '\1aWRITE-BYTE>
2954                     <PUSH !\|>
2955                     <CALL '\1aWRITE-BYTE 1>
2956 EXIT27
2957                     <FRAME '\1aCHANNEL-OP>
2958                     <PUSH OUTCHAN9>
2959                     <DEAD OUTCHAN9>
2960                     <PUSH 'WRITE-BUFFER>
2961                     <GVAL 'MSUBR-BUF = TEMP40>
2962                     <TOPU TEMP40 = STACK>
2963                     <DEAD TEMP40>
2964                     <GVAL 'MSUBR-PTR = STACK>
2965                     <CALL '\1aCHANNEL-OP 4 = TEMP40>
2966                     <RETURN TEMP40>
2967                     <DEAD TEMP40>
2968                     <END \1aPRINT-NHEX-CODE>\r\0\r\0
2969 #WORD *30211416723*
2970 <GFCN \1aPRINTBYTE ("VALUE" FIX FIX) NUM4>
2971                     <TEMP TEMP6:FIX>
2972                     <INTGO>
2973                     <FRAME '\1aWRITE-BYTE>
2974                     <LSH NUM4 -5 = TEMP6 (TYPE FIX)>
2975                     <ADD TEMP6 65 = TEMP6 (TYPE FIX)>
2976                     <CHTYPE TEMP6 <TYPE-CODE CHARACTER> = STACK>
2977                     <DEAD TEMP6>
2978                     <CALL '\1aWRITE-BYTE 1>
2979                     <FRAME '\1aWRITE-BYTE>
2980                     <AND NUM4 #WORD *37* = TEMP6>
2981                     <DEAD NUM4>
2982                     <ADD TEMP6 65 = TEMP6 (TYPE FIX)>
2983                     <CHTYPE TEMP6 <TYPE-CODE CHARACTER> = STACK>
2984                     <DEAD TEMP6>
2985                     <CALL '\1aWRITE-BYTE 1 = TEMP6>
2986                     <RETURN TEMP6>
2987                     <DEAD TEMP6>
2988                     <END \1aPRINTBYTE>
2989 #WORD *33531324710*
2990 <GFCN \1aWRITE-BYTE ("VALUE" FIX CHARACTER) BYTE4>
2991                     <TEMP S5>
2992                     <INTGO>
2993                     <GVAL 'MSUBR-BUF = S5>
2994                     <EMPUS? S5 - PHRASE7 (TYPE STRING)>
2995                     <TOPU S5 = S5>
2996                     <FRAME '\1aCHANNEL-OP>
2997                     <GVAL 'MSUBR-CHAN = STACK>
2998                     <PUSH 'WRITE-BUFFER>
2999                     <PUSH S5>
3000                     <GVAL 'MSUBR-PTR = STACK>
3001                     <CALL '\1aCHANNEL-OP 4>
3002                     <SETG 'MSUBR-PTR 0>
3003 PHRASE7
3004                     <PUTUS S5 1 BYTE4>
3005                     <DEAD BYTE4>
3006                     <RESTUS S5 1 = S5 (TYPE STRING)>
3007                     <SETG 'MSUBR-BUF S5>
3008                     <DEAD S5>
3009                     <GVAL 'MSUBR-PTR = S5>
3010                     <ADD S5 1 = S5 (TYPE FIX)>
3011                     <SETG 'MSUBR-PTR S5>
3012                     <RETURN S5>
3013                     <DEAD S5>
3014                     <END \1aWRITE-BYTE>