mim/development/mim/vaxc/callrte.mima

   1
   2 <USE "CHANNEL-TYPE">
   3
   4 #WORD *7400653026*
   5                     <GFCN \1aFIND-CALL ("VALUE" <OR ATOM !<FALSE>> ATOM <LIST [REST ATOM]>) ATM4 LIST5>
   6                     <TEMP TEMP6>
   7                     <INTGO>
   8                     <LOOP>
   9 AGAIN9
  10                     <INTGO>
  11                     <EMPL? LIST5 - PHRASE11 (TYPE LIST)>
  12                     <RETURN %<>>
  13 PHRASE11
  14                     <FRAME '\1aSAME-NAME?>
  15                     <PUSH ATM4>
  16                     <NTHL LIST5 1 = STACK (TYPE ATOM)>
  17                     <CALL '\1aSAME-NAME? 2 = TEMP6>
  18                     <TYPE? TEMP6 <TYPE-CODE FALSE> + PHRASE13>
  19                     <DEAD TEMP6>
  20                     <RETURN 'T>
  21 PHRASE13
  22                     <RESTL LIST5 1 = LIST5 (TYPE LIST)>
  23                     <JUMP + AGAIN9>
  24                     <END \1aFIND-CALL>
  25
  26 #WORD *36313040576*
  27                     <GFCN \1aSAME-NAME? ("VALUE" <OR ATOM FALSE> ATOM ATOM) X4 Y5>
  28                     <TEMP TEMP10 S16:STRING S27:STRING TEMP19 TEMP20 TEMP21 TEMP22>
  29                     <INTGO>
  30                     <GVAL 'INT-MODE = TEMP10>
  31                     <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE9>
  32                     <DEAD TEMP10>
  33                     <VEQUAL? X4 Y5 - TAG11>
  34                     <DEAD X4 Y5>
  35                     <RETURN 'T>
  36 TAG11
  37                     <RETURN %<>>
  38 PHRASE9
  39                     <NTHR X4 3 = S16 (RECORD-TYPE ATOM)>
  40                     <NTHR Y5 3 = S27 (RECORD-TYPE ATOM)>
  41                     <VEQUAL? X4 Y5 - TAG15>
  42                     <DEAD X4 Y5>
  43                     <RETURN 'T>
  44 TAG15
  45                     <LENUS S16 = TEMP10 (TYPE FIX)>
  46                     <GRTR? TEMP10 2 - TAG18 (TYPE FIX)>
  47                     <DEAD TEMP10>
  48                     <NTHUS S16 1 = TEMP10 (TYPE CHARACTER)>
  49                     <VEQUAL? TEMP10 !\T - TAG18>
  50                     <DEAD TEMP10>
  51                     <NTHUS S16 2 = TEMP10 (TYPE CHARACTER)>
  52                     <VEQUAL? TEMP10 !\$ - TAG18>
  53                     <DEAD TEMP10>
  54                     <RESTUS S16 2 = TEMP10 (TYPE STRING)>
  55                     <IFCAN "STRING-EQUAL?">
  56                     <STRING-EQUAL? TEMP10 S27 - TAG18>
  57                     <ENDIF "STRING-EQUAL?">
  58                     <IFCANNOT "STRING-EQUAL?">
  59                     <SET TEMP19 S27>
  60                     <LENUS TEMP10 = TEMP20 (TYPE FIX)>
  61                     <LENUS TEMP19 = TEMP21 (TYPE FIX)>
  62                     <VEQUAL? TEMP20 TEMP21 - TAG18>
  63                     <DEAD TEMP21>
  64                     <LOOP (TEMP10 VALUE LENGTH) (TEMP19 VALUE LENGTH) (TEMP20 VALUE)>
  65 TAG23
  66                     <NTHUS TEMP10 1 = TEMP21>
  67                     <NTHUS TEMP19 1 = TEMP22>
  68                     <VEQUAL? TEMP21 TEMP22 - TAG18>
  69                     <DEAD TEMP21 TEMP22>
  70                     <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
  71                     <RESTUS TEMP19 1 = TEMP19 (TYPE STRING)>
  72                     <SUB TEMP20 1 = TEMP20 (TYPE FIX)>
  73                     <GRTR? TEMP20 0 + TAG23 (TYPE FIX)>
  74                     <ENDIF "STRING-EQUAL?">
  75                     <RETURN 'T>
  76 TAG18
  77                     <LENUS S27 = TEMP19 (TYPE FIX)>
  78                     <GRTR? TEMP19 2 + TAG25 (TYPE FIX)>
  79                     <DEAD TEMP19>
  80                     <RETURN %<>>
  81 TAG25
  82                     <NTHUS S27 1 = TEMP19 (TYPE CHARACTER)>
  83                     <VEQUAL? TEMP19 !\T + TAG26>
  84                     <DEAD TEMP19>
  85                     <RETURN %<>>
  86 TAG26
  87                     <NTHUS S27 2 = TEMP19 (TYPE CHARACTER)>
  88                     <VEQUAL? TEMP19 !\$ + TAG27>
  89                     <DEAD TEMP19>
  90                     <RETURN %<>>
  91 TAG27
  92                     <RESTUS S27 2 = TEMP19 (TYPE STRING)>
  93                     <DEAD S27>
  94                     <IFCAN "STRING-EQUAL?">
  95                     <STRING-EQUAL? TEMP19 S16 - TAG28>
  96                     <ENDIF "STRING-EQUAL?">
  97                     <IFCANNOT "STRING-EQUAL?">
  98                     <SET TEMP10 S16>
  99                     <DEAD S16>
 100                     <LENUS TEMP19 = TEMP22 (TYPE FIX)>
 101                     <LENUS TEMP10 = TEMP21 (TYPE FIX)>
 102                     <VEQUAL? TEMP22 TEMP21 - TAG28>
 103                     <DEAD TEMP21>
 104                     <LOOP (TEMP19 VALUE LENGTH) (TEMP10 VALUE LENGTH) (TEMP22 VALUE)>
 105 TAG30
 106                     <NTHUS TEMP19 1 = TEMP21>
 107                     <NTHUS TEMP10 1 = TEMP20>
 108                     <VEQUAL? TEMP21 TEMP20 - TAG28>
 109                     <DEAD TEMP21>
 110                     <RESTUS TEMP19 1 = TEMP19 (TYPE STRING)>
 111                     <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
 112                     <SUB TEMP22 1 = TEMP22 (TYPE FIX)>
 113                     <GRTR? TEMP22 0 + TAG30 (TYPE FIX)>
 114                     <ENDIF "STRING-EQUAL?">
 115                     <RETURN 'T>
 116 TAG28
 117                     <RETURN %<>>
 118                     <END \1aSAME-NAME?>
 119
 120 #WORD *21154063116*
 121                     <GFCN \1aINIT-CALL-DISPATCH ("VALUE" FIX)>
 122                     <TEMP TEMP4 TEMP5>
 123                     <INTGO>
 124                     <UUBLOCK <TYPE-CODE VECTOR> 200 = TEMP4>
 125                     <SET TEMP5 TEMP4>
 126                     <LOOP (TEMP5 VALUE LENGTH)>
 127 ISTR6
 128                     <EMPUV? TEMP5 + ISTRE7>
 129                     <PUTUV TEMP5 1 %<>>
 130                     <RESTUV TEMP5 1 = TEMP5>
 131                     <JUMP + ISTR6>
 132 ISTRE7
 133                     <SETG 'RTE-DISP-TABLE TEMP4>
 134                     <DEAD TEMP4>
 135                     <GVAL 'DISPATCH-TABLE-START = TEMP4>
 136                     <SETG 'RTE-PTR TEMP4>
 137                     <RETURN TEMP4>
 138                     <DEAD TEMP4>
 139                     <END \1aINIT-CALL-DISPATCH>
 140
 141 <GDECL (RTE-PTR) FIX>
 142
 143 #WORD *15327534134*
 144                     <GFCN \1aCREATE-CALL-DESC ("VALUE" FIX STRING BOOLEAN <OR FALSE DATUM> "TUPLE" ANY) NAME4 FLUSH?5 RESULT?6>
 145                     <MAKTUP ARGS7:TUPLE OFF9:FIX ANAME8 TEMP13 TEMP14 = ARGS7>
 146                     <INTGO>
 147                     <GVAL 'RTE-PTR = OFF9>
 148                     <FRAME '\1aLOOKUP>
 149                     <PUSH NAME4>
 150                     <GVAL 'MIMOP-OBLIST = STACK>
 151                     <CALL '\1aLOOKUP 2 = ANAME8>
 152                     <TYPE? ANAME8 <TYPE-CODE FALSE> - BOOL10>
 153                     <FRAME '\1aINSERT>
 154                     <PUSH NAME4>
 155                     <DEAD NAME4>
 156                     <GVAL 'MIMOP-OBLIST = STACK>
 157                     <CALL '\1aINSERT 2 = ANAME8>
 158 BOOL10
 159                     <DIV OFF9 4 = TEMP13 (TYPE FIX)>
 160                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
 161                     <GVAL 'RTE-DISP-TABLE = TEMP14>
 162                     <PUTUV TEMP14 TEMP13 ANAME8>
 163                     <DEAD TEMP14 TEMP13>
 164                     <PUSH OFF9>
 165                     <DEAD OFF9>
 166                     <PUSH ANAME8>
 167                     <SET TEMP13 0 (TYPE FIX)>
 168                     <SET TEMP14 ARGS7>
 169                     <DEAD ARGS7>
 170                     <LOOP (TEMP14 VALUE LENGTH) (TEMP13 VALUE)>
 171 TAG17
 172                     <INTGO>
 173                     <EMPUV? TEMP14 + TAG16>
 174                     <NTHUV TEMP14 1 = STACK>
 175                     <RESTUV TEMP14 1 = TEMP14 (TYPE VECTOR)>
 176                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
 177                     <JUMP + TAG17>
 178 TAG16
 179                     <UBLOCK <TYPE-CODE VECTOR> TEMP13 = STACK (TYPE VECTOR)>
 180                     <DEAD TEMP13>
 181                     <PUSH RESULT?6>
 182                     <DEAD RESULT?6>
 183                     <PUSH FLUSH?5>
 184                     <DEAD FLUSH?5>
 185                     <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP13 (TYPE VECTOR)>
 186                     <CHTYPE TEMP13 <TYPE-CODE CALL-DESCRIPTOR> = TEMP13>
 187                     <NTHR ANAME8 1 = TEMP14 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG19)>
 188                     <TYPE? TEMP14 <TYPE-CODE FALSE> + TAG19>
 189                     <PUTR TEMP14 1 TEMP13 (RECORD-TYPE GBIND)>
 190                     <DEAD TEMP14 TEMP13>
 191                     <JUMP + TAG20>
 192 TAG19
 193                     <FRAME '\1aSETG>
 194                     <PUSH ANAME8>
 195                     <DEAD ANAME8>
 196                     <PUSH TEMP13>
 197                     <DEAD TEMP13>
 198                     <CALL '\1aSETG 2 = TEMP13>
 199 TAG20
 200                     <GVAL 'RTE-PTR = TEMP13>
 201                     <ADD TEMP13 4 = TEMP13 (TYPE FIX)>
 202                     <SETG 'RTE-PTR TEMP13>
 203                     <RETURN TEMP13>
 204                     <DEAD TEMP13>
 205                     <END \1aCREATE-CALL-DESC>
 206
 207 #WORD *11775576654*
 208                     <GFCN \1aCREATE-DATUM ("VALUE" DATUM <OR FALSE ATOM> <OR FALSE ATOM> <OR FALSE ATOM>) TYP4 TAC5 VAC6>
 209                     <TEMP TEMP8>
 210                     <INTGO>
 211                     <PUSH TYP4>
 212                     <DEAD TYP4>
 213                     <PUSH TAC5>
 214                     <DEAD TAC5>
 215                     <PUSH VAC6>
 216                     <DEAD VAC6>
 217                     <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP8 (TYPE VECTOR)>
 218                     <CHTYPE TEMP8 <TYPE-CODE DATUM> = TEMP8>
 219                     <RETURN TEMP8>
 220                     <DEAD TEMP8>
 221                     <END \1aCREATE-DATUM>
 222
 223 #WORD *27704007003*
 224                     <GFCN \1aRTE-ARGS ("VALUE" AC-LDESC ATOM <OR FALSE ATOM> ATOM) KIND4 TAC5 VAC6>
 225                     <TEMP TEMP12 TEMP13>
 226                     <INTGO>
 227                     <SET TEMP12 [VALUE TYPE-VALUE-PAIR COUNT-VALUE-PAIR] (TYPE VECTOR)>
 228                     <LOOP (KIND4 VALUE) (TEMP12 LENGTH VALUE)>
 229 TAG10
 230                     <NTHUV TEMP12 1 = TEMP13>
 231                     <VEQUAL? TEMP13 KIND4 + PHRASE8>
 232                     <DEAD TEMP13>
 233                     <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
 234                     <EMPUV? TEMP12 - TAG10>
 235                     <FRAME '\1aERROR>
 236                     <PUSH "BAD-AC-LDESC">
 237                     <PUSH 'CREATE-AC-LDESC>
 238                     <CALL '\1aERROR 2>
 239 PHRASE8
 240                     <TYPE? TAC5 <TYPE-CODE FALSE> + PHRASE16>
 241                     <NTHR TAC5 1 = TEMP12 (RECORD-TYPE ATOM) (BRANCH-FALSE + BOOL18)>
 242                     <TYPE? TEMP12 <TYPE-CODE FALSE> + BOOL18>
 243                     <NTHR TEMP12 1 = TEMP12 (RECORD-TYPE GBIND)>
 244                     <TYPE? TEMP12 <TYPE-CODE UNBOUND> + BOOL18>
 245                     <DEAD TEMP12>
 246                     <GVAL TAC5 = TEMP12>
 247                     <TYPE? TEMP12 <TYPE-CODE AC> + PHRASE16>
 248                     <DEAD TEMP12>
 249 BOOL18
 250                     <FRAME '\1aERROR>
 251                     <PUSH "BAD AC">
 252                     <PUSH 'CREATE-AC-LDESC>
 253                     <CALL '\1aERROR 2>
 254 PHRASE16
 255                     <NTHR VAC6 1 = TEMP12 (RECORD-TYPE ATOM) (BRANCH-FALSE + BOOL22)>
 256                     <TYPE? TEMP12 <TYPE-CODE FALSE> + BOOL22>
 257                     <NTHR TEMP12 1 = TEMP12 (RECORD-TYPE GBIND)>
 258                     <TYPE? TEMP12 <TYPE-CODE UNBOUND> + BOOL22>
 259                     <DEAD TEMP12>
 260                     <GVAL VAC6 = TEMP12>
 261                     <TYPE? TEMP12 <TYPE-CODE AC> + PHRASE21>
 262                     <DEAD TEMP12>
 263 BOOL22
 264                     <FRAME '\1aERROR>
 265                     <PUSH "BAD AC">
 266                     <PUSH 'CREATE-AC-LDESC>
 267                     <CALL '\1aERROR 2>
 268 PHRASE21
 269                     <PUSH KIND4>
 270                     <DEAD KIND4>
 271                     <PUSH TAC5>
 272                     <DEAD TAC5>
 273                     <PUSH VAC6>
 274                     <DEAD VAC6>
 275                     <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP12 (TYPE VECTOR)>
 276                     <CHTYPE TEMP12 <TYPE-CODE AC-LDESC> = TEMP12>
 277                     <RETURN TEMP12>
 278                     <DEAD TEMP12>
 279                     <END \1aRTE-ARGS>
 280
 281 <SETG SAME-STACK <>>
 282
 283 #WORD *35255565274*
 284                     <GFCN \1aCALL-RTE ("VALUE" ATOM CALL-DESCRIPTOR ATOM <OR ATOM FALSE VARTBL> <OR FALSE HINT ATOM> "TUPLE" ANY) CDESC4 INST5 DEST6 HINT7>
 285                     <MAKTUP ARGS8 TEMP17 TEMP18 SARGS36:VECTOR ADS37:VECTOR = ARGS8>
 286                     <INTGO>
 287                     <TYPE? DEST6 <TYPE-CODE VARTBL> - PHRASE12>
 288                     <SET TEMP17 ARGS8>
 289                     <EMPUV? TEMP17 + TAG14>
 290                     <LOOP (DEST6 VALUE) (TEMP17 LENGTH VALUE)>
 291 TAG15
 292                     <NTHUV TEMP17 1 = TEMP18>
 293                     <TYPE? TEMP18 <TYPE-CODE VARTBL> - TAG16>
 294                     <VEQUAL? TEMP18 DEST6 + PHRASE12>
 295                     <DEAD TEMP18>
 296 TAG16
 297                     <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
 298                     <EMPUV? TEMP17 - TAG15>
 299 TAG14
 300                     <FRAME '\1aVAR-VALUE-IN-AC?>
 301                     <PUSH DEST6>
 302                     <CALL '\1aVAR-VALUE-IN-AC? 1 = TEMP17>
 303                     <TYPE? TEMP17 <TYPE-CODE FALSE> - BOOL19>
 304                     <DEAD TEMP17>
 305                     <FRAME '\1aVAR-TYPE-IN-AC?>
 306                     <PUSH DEST6>
 307                     <CALL '\1aVAR-TYPE-IN-AC? 1 = TEMP17>
 308                     <TYPE? TEMP17 <TYPE-CODE FALSE> - BOOL19>
 309                     <DEAD TEMP17>
 310                     <FRAME '\1aVAR-COUNT-IN-AC?>
 311                     <PUSH DEST6>
 312                     <CALL '\1aVAR-COUNT-IN-AC? 1 = TEMP17>
 313                     <TYPE? TEMP17 <TYPE-CODE FALSE> - BOOL19>
 314                     <DEAD TEMP17>
 315                     <FRAME '\1aVAR-TYPE-WORD-IN-AC?>
 316                     <PUSH DEST6>
 317                     <CALL '\1aVAR-TYPE-WORD-IN-AC? 1 = TEMP17>
 318                     <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE12>
 319                     <DEAD TEMP17>
 320 BOOL19
 321                     <FRAME '\1aDEAD-VAR>
 322                     <PUSH DEST6>
 323                     <CALL '\1aDEAD-VAR 1>
 324 PHRASE12
 325                     <CHTYPE ARGS8 <TYPE-CODE VECTOR> = TEMP17>
 326                     <NTHUV CDESC4 3 = TEMP18 (TYPE VECTOR)>
 327                     <LOOP>
 328 MAP26
 329                     <INTGO>
 330                     <EMPUV? TEMP17 + MAPAP29>
 331                     <EMPUV? TEMP18 + MAPAP29>
 332                     <SET SARGS36 TEMP17>
 333                     <SET ADS37 TEMP18>
 334                     <FRAME '\1aPROCESS-RTE-ARG>
 335                     <NTHUV SARGS36 1 = STACK>
 336                     <NTHUV ADS37 1 = STACK>
 337                     <DEAD ADS37>
 338                     <PUSH SARGS36>
 339                     <DEAD SARGS36>
 340                     <PUSH ARGS8>
 341                     <NTHUV CDESC4 3 = STACK (TYPE VECTOR)>
 342                     <CALL '\1aPROCESS-RTE-ARG 5>
 343                     <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
 344                     <RESTUV TEMP18 1 = TEMP18 (TYPE VECTOR)>
 345                     <JUMP + MAP26>
 346 MAPAP29
 347                     <FRAME '\1aFREE-RESULT-ACS>
 348                     <NTHUV CDESC4 3 = STACK (TYPE VECTOR)>
 349                     <NTHUV CDESC4 4 = STACK>
 350                     <CALL '\1aFREE-RESULT-ACS 2>
 351                     <NTHUV CDESC4 5 = TEMP17>
 352                     <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE41>
 353                     <DEAD TEMP17>
 354                     <FRAME '\1aFLUSH-ALL-ACS>
 355                     <CALL '\1aFLUSH-ALL-ACS 0>
 356 PHRASE41
 357                     <NTHUV CDESC4 1 = ARGS8 (TYPE FIX)>
 358                     <VEQUAL? INST5 'CALL - PHRASE44>
 359                     <FRAME '\1aEMIT>
 360                     <PUSH 22>
 361                     <GVAL 'AC-PC = TEMP18>
 362                     <NTHUV TEMP18 2 = TEMP18 (TYPE FIX)>
 363                     <OR TEMP18 #WORD *220* = TEMP18>
 364                     <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
 365                     <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = TEMP18>
 366                     <CONS TEMP18 () = TEMP18>
 367                     <FRAME '\1aLREV>
 368                     <PUSH ARGS8>
 369                     <DEAD ARGS8>
 370                     <CALL '\1aLREV 1 = TEMP17>
 371                     <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = TEMP17>
 372                     <CONS TEMP17 () = TEMP17>
 373                     <PUTREST TEMP18 TEMP17>
 374                     <DEAD TEMP17>
 375                     <CHTYPE TEMP18 <TYPE-CODE LADDR> = STACK>
 376                     <DEAD TEMP18>
 377                     <CALL '\1aEMIT 2>
 378                     <JUMP + PHRASE47>
 379 PHRASE44
 380                     <VEQUAL? INST5 'JUMP - PHRASE47>
 381                     <DEAD INST5>
 382                     <FRAME '\1aEMIT>
 383                     <PUSH 23>
 384                     <GVAL 'AC-PC = TEMP18>
 385                     <NTHUV TEMP18 2 = TEMP18 (TYPE FIX)>
 386                     <OR TEMP18 #WORD *220* = TEMP18>
 387                     <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
 388                     <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = TEMP18>
 389                     <CONS TEMP18 () = TEMP18>
 390                     <FRAME '\1aLREV>
 391                     <PUSH ARGS8>
 392                     <DEAD ARGS8>
 393                     <CALL '\1aLREV 1 = TEMP17>
 394                     <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = TEMP17>
 395                     <CONS TEMP17 () = TEMP17>
 396                     <PUTREST TEMP18 TEMP17>
 397                     <DEAD TEMP17>
 398                     <CHTYPE TEMP18 <TYPE-CODE LADDR> = STACK>
 399                     <DEAD TEMP18>
 400                     <CALL '\1aEMIT 2>
 401 PHRASE47
 402                     <FRAME '\1aSET-RTE-RESULT>
 403                     <NTHUV CDESC4 4 = STACK>
 404                     <DEAD CDESC4>
 405                     <PUSH DEST6>
 406                     <DEAD DEST6>
 407                     <PUSH HINT7>
 408                     <DEAD HINT7>
 409                     <CALL '\1aSET-RTE-RESULT 3>
 410                     <FRAME '\1aCLEAR-STATUS>
 411                     <CALL '\1aCLEAR-STATUS 0>
 412                     <RETURN 'NORMAL>
 413                     <END \1aCALL-RTE>
 414
 415 #WORD *33316145050*
 416                     <GFCN \1aFREE-RESULT-ACS ("VALUE" ATOM <VECTOR [REST ARG-DESCRIPTOR]> <OR FALSE DATUM>) ARGS4 RESULT5>
 417                     <TEMP VAC6 TEMP13>
 418                     <INTGO>
 419                     <TYPE? RESULT5 <TYPE-CODE DATUM> - BOOL17>
 420                     <NTHUV RESULT5 2 = VAC6>
 421                     <TYPE? VAC6 <TYPE-CODE FALSE> + BOOL11>
 422                     <FRAME '\1aCALLUSE?>
 423                     <PUSH VAC6>
 424                     <PUSH ARGS4>
 425                     <CALL '\1aCALLUSE? 2 = TEMP13>
 426                     <TYPE? TEMP13 <TYPE-CODE FALSE> - BOOL11>
 427                     <DEAD TEMP13>
 428                     <FRAME '\1aGET-AC>
 429                     <GVAL VAC6 = STACK>
 430                     <DEAD VAC6>
 431                     <PUSH 'T>
 432                     <CALL '\1aGET-AC 2>
 433 BOOL11
 434                     <NTHUV RESULT5 3 = VAC6 (TYPE ATOM)>
 435                     <DEAD RESULT5>
 436                     <FRAME '\1aCALLUSE?>
 437                     <PUSH VAC6>
 438                     <PUSH ARGS4>
 439                     <DEAD ARGS4>
 440                     <CALL '\1aCALLUSE? 2 = TEMP13>
 441                     <TYPE? TEMP13 <TYPE-CODE FALSE> - BOOL17>
 442                     <DEAD TEMP13>
 443                     <FRAME '\1aGET-AC>
 444                     <GVAL VAC6 = STACK>
 445                     <DEAD VAC6>
 446                     <PUSH 'T>
 447                     <CALL '\1aGET-AC 2>
 448 BOOL17
 449                     <RETURN 'T>
 450                     <END \1aFREE-RESULT-ACS>
 451
 452 #WORD *2356267240*
 453                     <GFCN \1aCALLUSE? ("VALUE" <OR ATOM FALSE> ATOM <VECTOR [REST ARG-DESCRIPTOR]>) VAC4 ARGS5>
 454                     <TEMP (RES6 %<>) TEMP13:VECTOR ARG18 TEMP23>
 455                     <INTGO>
 456                     <SET TEMP13 ARGS5 (TYPE VECTOR)>
 457                     <DEAD ARGS5>
 458                     <LOOP>
 459 MAP8
 460                     <INTGO>
 461                     <EMPUV? TEMP13 + MAPAP11>
 462                     <NTHUV TEMP13 1 = ARG18>
 463                     <TYPE? ARG18 <TYPE-CODE AC-LDESC> - PHRASE20>
 464                     <NTHUV ARG18 2 = TEMP23>
 465                     <EQUAL? TEMP23 VAC4 + BOOL22>
 466                     <DEAD TEMP23>
 467                     <NTHUV ARG18 3 = TEMP23 (TYPE ATOM)>
 468                     <DEAD ARG18>
 469                     <VEQUAL? TEMP23 VAC4 - PHRASE20>
 470                     <DEAD TEMP23>
 471 BOOL22
 472                     <RETURN 'T>
 473 PHRASE20
 474                     <RESTUV TEMP13 1 = TEMP13 (TYPE VECTOR)>
 475                     <JUMP + MAP8>
 476 MAPAP11
 477                     <RETURN RES6>
 478                     <DEAD RES6>
 479                     <END \1aCALLUSE?>
 480
 481 #WORD *6575435335*
 482                     <GFCN \1aSET-RTE-RESULT ("VALUE" ANY <OR FALSE DATUM> <OR FALSE ATOM VARTBL> <OR FALSE HINT ATOM>) RDAT4 DEST5 HINT6>
 483                     <TEMP TEMP9>
 484                     <INTGO>
 485                     <SET TEMP9 RDAT4>
 486                     <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE8>
 487                     <SET TEMP9 DEST5>
 488                     <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE8>
 489                     <NTHUV RDAT4 2 = TEMP9>
 490                     <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE12>
 491                     <DEAD TEMP9>
 492                     <FRAME '\1aDEST-PAIR>
 493                     <NTHUV RDAT4 3 = TEMP9 (TYPE ATOM)>
 494                     <GVAL TEMP9 = STACK>
 495                     <DEAD TEMP9>
 496                     <NTHUV RDAT4 2 = TEMP9 (TYPE ATOM)>
 497                     <DEAD RDAT4>
 498                     <GVAL TEMP9 = STACK>
 499                     <DEAD TEMP9>
 500                     <PUSH DEST5>
 501                     <CALL '\1aDEST-PAIR 3>
 502                     <JUMP + COND11>
 503 PHRASE12
 504                     <NTHUV RDAT4 1 = TEMP9>
 505                     <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE15>
 506                     <DEAD TEMP9>
 507                     <FRAME '\1aDEST-DECL>
 508                     <NTHUV RDAT4 3 = TEMP9 (TYPE ATOM)>
 509                     <GVAL TEMP9 = STACK>
 510                     <DEAD TEMP9>
 511                     <PUSH DEST5>
 512                     <NTHUV RDAT4 1 = STACK (TYPE ATOM)>
 513                     <DEAD RDAT4>
 514                     <CALL '\1aDEST-DECL 3>
 515                     <JUMP + COND11>
 516 PHRASE15
 517                     <FRAME '\1aERROR>
 518                     <PUSH "BAD DATUM">
 519                     <PUSH 'SET-RTE-RESULT>
 520                     <CALL '\1aERROR 2>
 521 COND11
 522                     <FRAME '\1aPROCESS-DESTINATION-HINT>
 523                     <PUSH HINT6>
 524                     <DEAD HINT6>
 525                     <PUSH DEST5>
 526                     <DEAD DEST5>
 527                     <CALL '\1aPROCESS-DESTINATION-HINT 2 = TEMP9>
 528 PHRASE8
 529                     <RETURN TEMP9>
 530                     <DEAD TEMP9>
 531                     <END \1aSET-RTE-RESULT>
 532
 533 <NEWTYPE ARG-DONE FIX>
 534
 535 #WORD *14055057554*
 536                     <GFCN \1aPROCESS-RTE-ARG ("VALUE" STRUCTURED ANY <OR AC-LDESC ATOM> ANY TUPLE VECTOR) ARG4 AD5 SARGS6 ARGS7 ADS8>
 537                     <TEMP PRA11 TAC10 TEMP28 VAC9>
 538                     <INTGO>
 539                     <TYPE? ARG4 <TYPE-CODE ARG-DONE> - TAG15>
 540                     <SET PRA11 %<> (TYPE FALSE)>
 541                     <JUMP + PHRASE13>
 542 TAG15
 543                     <EQUAL? AD5 'STACK - PHRASE18>
 544                     <TYPE? ARG4 <TYPE-CODE VARTBL> - PHRASE20>
 545                     <FRAME '\1aPUSH-VAR>
 546                     <PUSH ARG4>
 547                     <DEAD ARG4>
 548                     <CALL '\1aPUSH-VAR 1>
 549                     <JUMP + PHRASE67>
 550 PHRASE20
 551                     <FRAME '\1aPUSH-CONSTANT>
 552                     <PUSH ARG4>
 553                     <DEAD ARG4>
 554                     <CALL '\1aPUSH-CONSTANT 1>
 555                     <JUMP + PHRASE67>
 556 PHRASE18
 557                     <TYPE? AD5 <TYPE-CODE AC-LDESC> - PHRASE24>
 558                     <NTHUV AD5 1 = PRA11 (TYPE ATOM)>
 559                     <VEQUAL? PRA11 'TYPE-VALUE-PAIR - PHRASE24>
 560                     <DEAD PRA11>
 561                     <FRAME '\1aNEXT-AC>
 562                     <NTHUV AD5 2 = PRA11 (TYPE ATOM)>
 563                     <GVAL PRA11 = TAC10>
 564                     <DEAD PRA11>
 565                     <PUSH TAC10>
 566                     <CALL '\1aNEXT-AC 1 = PRA11>
 567                     <NTHUV AD5 3 = TEMP28 (TYPE ATOM)>
 568                     <GVAL TEMP28 = VAC9>
 569                     <DEAD TEMP28>
 570                     <EQUAL? PRA11 VAC9 - PHRASE24>
 571                     <DEAD PRA11>
 572                     <FRAME '\1aCHECK-AC-USE>
 573                     <PUSH ARGS7>
 574                     <DEAD ARGS7>
 575                     <PUSH SARGS6>
 576                     <PUSH ADS8>
 577                     <DEAD ADS8>
 578                     <PUSH ARG4>
 579                     <DEAD ARG4>
 580                     <PUSH TAC10>
 581                     <PUSH VAC9>
 582                     <CALL '\1aCHECK-AC-USE 6>
 583                     <NTHUV SARGS6 1 = ARG4>
 584                     <TYPE? ARG4 <TYPE-CODE ARG-DONE> - PHRASE31>
 585                     <RETURN 'T>
 586 PHRASE31
 587                     <FRAME '\1aLOAD-AC-PAIR>
 588                     <PUSH ARG4>
 589                     <DEAD ARG4>
 590                     <PUSH %<>>
 591                     <NTHUV AD5 2 = TEMP28 (TYPE ATOM)>
 592                     <DEAD AD5>
 593                     <GVAL TEMP28 = STACK>
 594                     <DEAD TEMP28>
 595                     <CALL '\1aLOAD-AC-PAIR 3>
 596                     <FRAME '\1aPROTECT-USE>
 597                     <PUSH TAC10>
 598                     <DEAD TAC10>
 599                     <CALL '\1aPROTECT-USE 1>
 600                     <FRAME '\1aPROTECT-USE>
 601                     <PUSH VAC9>
 602                     <DEAD VAC9>
 603                     <CALL '\1aPROTECT-USE 1>
 604                     <JUMP + PHRASE67>
 605 PHRASE24
 606                     <TYPE? AD5 <TYPE-CODE AC-LDESC> - PHRASE67>
 607                     <FRAME '\1aCHECK-AC-USE>
 608                     <PUSH ARGS7>
 609                     <DEAD ARGS7>
 610                     <PUSH SARGS6>
 611                     <PUSH ADS8>
 612                     <DEAD ADS8>
 613                     <PUSH ARG4>
 614                     <DEAD ARG4>
 615                     <NTHUV AD5 2 = STACK>
 616                     <NTHUV AD5 3 = STACK (TYPE ATOM)>
 617                     <CALL '\1aCHECK-AC-USE 6>
 618                     <NTHUV SARGS6 1 = ARG4>
 619                     <TYPE? ARG4 <TYPE-CODE ARG-DONE> - PHRASE38>
 620                     <RETURN 'T>
 621 PHRASE38
 622                     <TYPE? ARG4 <TYPE-CODE VARTBL> - PHRASE40>
 623                     <FRAME '\1aLOAD-VAR>
 624                     <PUSH ARG4>
 625                     <NTHUV AD5 1 = TEMP28 (TYPE ATOM)>
 626                     <VEQUAL? TEMP28 'TYPE-VALUE-PAIR - PHRASE43>
 627                     <DEAD TEMP28>
 628                     <SET TEMP28 'VALUE (TYPE ATOM)>
 629                     <JUMP + PHRASE44>
 630 PHRASE43
 631                     <SET TEMP28 'JUST-VALUE (TYPE ATOM)>
 632 PHRASE44
 633                     <PUSH TEMP28>
 634                     <DEAD TEMP28>
 635                     <PUSH 'T>
 636                     <NTHUV AD5 3 = TEMP28 (TYPE ATOM)>
 637                     <GVAL TEMP28 = STACK>
 638                     <DEAD TEMP28>
 639                     <CALL '\1aLOAD-VAR 4 = VAC9>
 640                     <FRAME '\1aPROTECT-USE>
 641                     <PUSH VAC9>
 642                     <DEAD VAC9>
 643                     <CALL '\1aPROTECT-USE 1>
 644                     <JUMP + PHRASE46>
 645 PHRASE40
 646                     <FRAME '\1aGET-AC>
 647                     <NTHUV AD5 3 = TEMP28 (TYPE ATOM)>
 648                     <GVAL TEMP28 = STACK>
 649                     <DEAD TEMP28>
 650                     <PUSH 'T>
 651                     <CALL '\1aGET-AC 2 = VAC9>
 652                     <FRAME '\1aPROTECT-USE>
 653                     <PUSH VAC9>
 654                     <CALL '\1aPROTECT-USE 1>
 655                     <FRAME '\1aMOVE-VALUE>
 656                     <PUSH ARG4>
 657                     <PUSH VAC9>
 658                     <CALL '\1aMOVE-VALUE 2>
 659                     <FRAME '\1aMUNG-AC>
 660                     <PUSH VAC9>
 661                     <DEAD VAC9>
 662                     <CALL '\1aMUNG-AC 1>
 663 PHRASE46
 664                     <TYPE? ARG4 <TYPE-CODE VARTBL> - PHRASE52>
 665                     <NTHUV AD5 1 = TEMP28 (TYPE ATOM)>
 666                     <VEQUAL? TEMP28 'TYPE-VALUE-PAIR - PHRASE54>
 667                     <DEAD TEMP28>
 668                     <FRAME '\1aLOAD-VAR>
 669                     <PUSH ARG4>
 670                     <DEAD ARG4>
 671                     <PUSH 'TYPE-WORD>
 672                     <PUSH 'T>
 673                     <NTHUV AD5 2 = TEMP28 (TYPE ATOM)>
 674                     <DEAD AD5>
 675                     <GVAL TEMP28 = STACK>
 676                     <DEAD TEMP28>
 677                     <CALL '\1aLOAD-VAR 4 = VAC9>
 678                     <FRAME '\1aPROTECT-USE>
 679                     <PUSH VAC9>
 680                     <DEAD VAC9>
 681                     <CALL '\1aPROTECT-USE 1>
 682                     <JUMP + PHRASE67>
 683 PHRASE54
 684                     <NTHUV AD5 1 = TEMP28 (TYPE ATOM)>
 685                     <VEQUAL? TEMP28 'COUNT-VALUE-PAIR - PHRASE67>
 686                     <DEAD TEMP28>
 687                     <FRAME '\1aLOAD-VAR>
 688                     <PUSH ARG4>
 689                     <DEAD ARG4>
 690                     <PUSH 'COUNT>
 691                     <PUSH 'T>
 692                     <NTHUV AD5 2 = TEMP28 (TYPE ATOM)>
 693                     <DEAD AD5>
 694                     <GVAL TEMP28 = STACK>
 695                     <DEAD TEMP28>
 696                     <CALL '\1aLOAD-VAR 4 = VAC9>
 697                     <FRAME '\1aPROTECT-USE>
 698                     <PUSH VAC9>
 699                     <DEAD VAC9>
 700                     <CALL '\1aPROTECT-USE 1>
 701                     <JUMP + PHRASE67>
 702 PHRASE52
 703                     <NTHUV AD5 1 = TEMP28 (TYPE ATOM)>
 704                     <VEQUAL? TEMP28 'TYPE-VALUE-PAIR - PHRASE62>
 705                     <DEAD TEMP28>
 706                     <FRAME '\1aGET-AC>
 707                     <NTHUV AD5 2 = TEMP28 (TYPE ATOM)>
 708                     <DEAD AD5>
 709                     <GVAL TEMP28 = STACK>
 710                     <DEAD TEMP28>
 711                     <PUSH 'T>
 712                     <CALL '\1aGET-AC 2 = VAC9>
 713                     <FRAME '\1aPROTECT-USE>
 714                     <PUSH VAC9>
 715                     <CALL '\1aPROTECT-USE 1>
 716                     <FRAME '\1aMOVE-TYPE>
 717                     <PUSH ARG4>
 718                     <DEAD ARG4>
 719                     <NTHUV VAC9 2 = TEMP28 (TYPE FIX)>
 720                     <OR TEMP28 #WORD *120* = TEMP28>
 721                     <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
 722                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
 723                     <DEAD TEMP28>
 724                     <CALL '\1aMOVE-TYPE 2>
 725                     <FRAME '\1aMUNG-AC>
 726                     <PUSH VAC9>
 727                     <DEAD VAC9>
 728                     <CALL '\1aMUNG-AC 1>
 729                     <JUMP + PHRASE67>
 730 PHRASE62
 731                     <NTHUV AD5 1 = TEMP28 (TYPE ATOM)>
 732                     <VEQUAL? TEMP28 'COUNT-VALUE-PAIR - PHRASE67>
 733                     <DEAD TEMP28>
 734                     <FRAME '\1aGET-AC>
 735                     <NTHUV AD5 2 = TEMP28 (TYPE ATOM)>
 736                     <DEAD AD5>
 737                     <GVAL TEMP28 = STACK>
 738                     <DEAD TEMP28>
 739                     <PUSH 'T>
 740                     <CALL '\1aGET-AC 2 = VAC9>
 741                     <FRAME '\1aPROTECT-USE>
 742                     <PUSH VAC9>
 743                     <CALL '\1aPROTECT-USE 1>
 744                     <FRAME '\1aLOAD-CONSTANT>
 745                     <PUSH VAC9>
 746                     <FRAME '\1aLENGTH>
 747                     <PUSH ARG4>
 748                     <DEAD ARG4>
 749                     <CALL '\1aLENGTH 1 = STACK>
 750                     <CALL '\1aLOAD-CONSTANT 2>
 751                     <FRAME '\1aMUNG-AC>
 752                     <PUSH VAC9>
 753                     <DEAD VAC9>
 754                     <CALL '\1aMUNG-AC 1>
 755 PHRASE67
 756                     <FRAME '\1aPUT>
 757                     <PUSH SARGS6>
 758                     <DEAD SARGS6>
 759                     <PUSH 1>
 760                     <PUSH #ARG-DONE 0>
 761                     <CALL '\1aPUT 3 = PRA11>
 762 PHRASE13
 763                     <RETURN PRA11>
 764                     <DEAD PRA11>
 765                     <END \1aPROCESS-RTE-ARG>
 766
 767 #WORD *34163435240*
 768                     <GFCN \1aCHECK-AC-USE ("VALUE" <OR ATOM FALSE> TUPLE TUPLE VECTOR ANY "TUPLE" TUPLE) ARGS4 SARGS5 ADS6 ARG7>
 769                     <MAKTUP ACS8 TEMP18 AC20 TEMP36:VECTOR LINKVAR37:LINKVAR TEMP44 TEMP59 TEMP60 = ACS8>
 770                     <INTGO>
 771                     <SET TEMP18 %<> (TYPE FALSE)>
 772                     <CHTYPE ACS8 <TYPE-CODE VECTOR> = ACS8>
 773                     <LOOP>
 774 MAP10
 775                     <INTGO>
 776                     <EMPUV? ACS8 + MAPAP13>
 777                     <NTHUV ACS8 1 = AC20>
 778                     <TYPE? AC20 <TYPE-CODE ATOM> - PHRASE22>
 779                     <GVAL AC20 = AC20>
 780 PHRASE22
 781                     <SET TEMP18 AC20>
 782                     <TYPE? TEMP18 <TYPE-CODE FALSE> + MAPEX28>
 783                     <SET TEMP18 %<> (TYPE FALSE)>
 784                     <NTHUV AC20 8 = TEMP36 (TYPE VECTOR)>
 785                     <LOOP>
 786 MAP26
 787                     <INTGO>
 788                     <EMPUV? TEMP36 + MAPAP29>
 789                     <NTHUV TEMP36 1 = LINKVAR37>
 790                     <NTHUV LINKVAR37 1 = TEMP18 (TYPE VARTBL)>
 791                     <NTHUV LINKVAR37 6 = TEMP44>
 792                     <EQUAL? TEMP44 AC20 - BOOL43>
 793                     <DEAD TEMP44>
 794                     <NTHUV LINKVAR37 2 = TEMP44>
 795                     <TYPE? TEMP44 <TYPE-CODE FALSE> + TAG49>
 796                     <DEAD TEMP44>
 797 BOOL43
 798                     <NTHUV LINKVAR37 7 = TEMP44>
 799                     <EQUAL? TEMP44 AC20 - BOOL45>
 800                     <DEAD TEMP44>
 801                     <NTHUV LINKVAR37 4 = TEMP44>
 802                     <TYPE? TEMP44 <TYPE-CODE FALSE> + TAG49>
 803                     <DEAD TEMP44>
 804 BOOL45
 805                     <NTHUV LINKVAR37 8 = TEMP44>
 806                     <EQUAL? TEMP44 AC20 - BOOL46>
 807                     <DEAD TEMP44>
 808                     <NTHUV LINKVAR37 3 = TEMP44>
 809                     <TYPE? TEMP44 <TYPE-CODE FALSE> + TAG49>
 810                     <DEAD TEMP44>
 811 BOOL46
 812                     <NTHUV LINKVAR37 9 = TEMP44>
 813                     <EQUAL? TEMP44 AC20 + TAG48>
 814                     <DEAD TEMP44>
 815                     <SET TEMP18 %<> (TYPE FALSE)>
 816                     <JUMP + EXIT50>
 817 TAG48
 818                     <NTHUV LINKVAR37 4 = TEMP44>
 819                     <TYPE? TEMP44 <TYPE-CODE FALSE> + TAG49>
 820                     <DEAD TEMP44>
 821                     <SET TEMP18 %<> (TYPE FALSE)>
 822                     <JUMP + EXIT50>
 823 TAG49
 824                     <SET TEMP44 ARGS4>
 825                     <LOOP>
 826 AGAIN52
 827                     <INTGO>
 828                     <CHTYPE TEMP44 <TYPE-CODE VECTOR> = TEMP59>
 829                     <DEAD TEMP44>
 830                     <EMPUV? TEMP59 + TAG55>
 831                     <LOOP (TEMP18 VALUE) (TEMP59 LENGTH VALUE)>
 832 TAG57
 833                     <NTHUV TEMP59 1 = TEMP60>
 834                     <TYPE? TEMP60 <TYPE-CODE VARTBL> - TAG58>
 835                     <VEQUAL? TEMP60 TEMP18 + TAG56>
 836                     <DEAD TEMP60>
 837 TAG58
 838                     <RESTUV TEMP59 1 = TEMP59 (TYPE VECTOR)>
 839                     <EMPUV? TEMP59 - TAG57>
 840 TAG55
 841                     <SET TEMP44 %<> (TYPE FALSE)>
 842                     <JUMP + TAG61>
 843 TAG56
 844                     <SET TEMP44 TEMP59>
 845                     <DEAD TEMP59>
 846 TAG61
 847                     <VEQUAL? TEMP44 0 + PHRASE54>
 848                     <EQUAL? TEMP44 SARGS5 - PHRASE63>
 849                     <RESTUV TEMP44 1 = TEMP44 (TYPE VECTOR)>
 850                     <JUMP + AGAIN52>
 851 PHRASE63
 852                     <LENUV TEMP44 = TEMP59 (TYPE FIX)>
 853                     <LENUV SARGS5 = TEMP60 (TYPE FIX)>
 854                     <LESS? TEMP59 TEMP60 - PHRASE64 (TYPE FIX)>
 855                     <DEAD TEMP59 TEMP60>
 856                     <FRAME '\1aPROCESS-RTE-ARG>
 857                     <NTHUV TEMP44 1 = STACK>
 858                     <LENUV ADS6 = TEMP59 (TYPE FIX)>
 859                     <LENUV TEMP44 = TEMP60 (TYPE FIX)>
 860                     <SUB TEMP59 TEMP60 = TEMP59 (TYPE FIX)>
 861                     <DEAD TEMP60>
 862                     <ADD TEMP59 1 = TEMP59 (TYPE FIX)>
 863                     <NTHUV ADS6 TEMP59 = STACK>
 864                     <DEAD TEMP59>
 865                     <PUSH TEMP44>
 866                     <PUSH ARGS4>
 867                     <PUSH ADS6>
 868                     <CALL '\1aPROCESS-RTE-ARG 5>
 869                     <JUMP + AGAIN52>
 870 PHRASE64
 871                     <FRAME '\1aISTORE-VAR>
 872                     <PUSH LINKVAR37>
 873                     <DEAD LINKVAR37>
 874                     <PUSH %<>>
 875                     <PUSH 'T>
 876                     <CALL '\1aISTORE-VAR 3>
 877                     <SET TEMP18 'T (TYPE ATOM)>
 878                     <JUMP + EXIT50>
 879 PHRASE54
 880                     <SET TEMP18 'T (TYPE ATOM)>
 881 EXIT50
 882                     <RESTUV TEMP36 1 = TEMP36 (TYPE VECTOR)>
 883                     <JUMP + MAP26>
 884 MAPAP29
 885 MAPEX28
 886                     <RESTUV ACS8 1 = ACS8 (TYPE VECTOR)>
 887                     <JUMP + MAP10>
 888 MAPAP13
 889                     <RETURN TEMP18>
 890                     <DEAD TEMP18>
 891                     <END \1aCHECK-AC-USE>
 892
 893 #WORD *26631011145*
 894                     <GFCN \1aRESET-FRAME-LABEL-TABLE ("VALUE" <LIST [REST SPEC-LABEL]>)>
 895                     <TEMP>
 896                     <INTGO>
 897                     <SETG 'FRAME-LABEL-TABLE ()>
 898                     <RETURN ()>
 899                     <END \1aRESET-FRAME-LABEL-TABLE>
 900
 901 #WORD *15225464233*
 902                     <GFCN \1aSFRAME-GEN ("VALUE" ATOM "OPTIONAL" ANY) NAME6>
 903                     <OPT-DISPATCH 0 %<> OPT4 OPT5>
 904 OPT4
 905                     <PUSH %<>>
 906 OPT5
 907                     <TEMP TEMP8:ATOM>
 908                     <INTGO>
 909                     <FRAME '\1aFRAME-GEN>
 910                     <PUSH NAME6>
 911                     <DEAD NAME6>
 912                     <PUSH 'T>
 913                     <CALL '\1aFRAME-GEN 2 = TEMP8>
 914                     <RETURN TEMP8>
 915                     <DEAD TEMP8>
 916                     <END \1aSFRAME-GEN>
 917
 918 #WORD *35141403346*
 919                     <GFCN \1aFRAME-GEN ("VALUE" ATOM "OPTIONAL" <OR FALSE ATOM> ANY) NAME7 SEG8>
 920                     <OPT-DISPATCH 0 %<> OPT4 OPT5 OPT6>
 921 OPT4
 922                     <PUSH %<>>
 923 OPT5
 924                     <PUSH %<>>
 925 OPT6
 926                     <TEMP TEMP15 TLAB9 VAC11>
 927                     <INTGO>
 928                     <GVAL 'GLUE = TEMP15>
 929                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE13>
 930                     <DEAD TEMP15>
 931                     <TYPE? NAME7 <TYPE-CODE FALSE> + PHRASE13>
 932                     <FRAME '\1aQUICK-CALL?>
 933                     <PUSH NAME7>
 934                     <DEAD NAME7>
 935                     <CALL '\1aQUICK-CALL? 1 = TEMP15>
 936                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE13>
 937                     <DEAD TEMP15>
 938                     <FRAME '\1aEMIT-PUSH>
 939                     <FRAME '\1aTYPE-CODE>
 940                     <TYPE? SEG8 <TYPE-CODE FALSE> + PHRASE20>
 941                     <DEAD SEG8>
 942                     <SET TEMP15 'QSFRAME (TYPE ATOM)>
 943                     <JUMP + PHRASE21>
 944 PHRASE20
 945                     <SET TEMP15 'QFRAME (TYPE ATOM)>
 946 PHRASE21
 947                     <PUSH TEMP15>
 948                     <DEAD TEMP15>
 949                     <CALL '\1aTYPE-CODE 1 = STACK>
 950                     <PUSH 'WORD>
 951                     <CALL '\1aEMIT-PUSH 2>
 952                     <FRAME '\1aMAKE-LABEL>
 953                     <CALL '\1aMAKE-LABEL 0 = TLAB9>
 954                     <GVAL 'FRAME-LABEL-TABLE = TEMP15>
 955                     <CONS TLAB9 TEMP15 = TEMP15>
 956                     <SETG 'FRAME-LABEL-TABLE TEMP15>
 957                     <DEAD TEMP15>
 958                     <FRAME '\1aEMIT-PUSH-LABEL>
 959                     <PUSH TLAB9>
 960                     <DEAD TLAB9>
 961                     <CALL '\1aEMIT-PUSH-LABEL 1>
 962                     <FRAME '\1aEMIT-PUSH>
 963                     <GVAL 'AC-F = TEMP15>
 964                     <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
 965                     <OR TEMP15 #WORD *120* = TEMP15>
 966                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
 967                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
 968                     <DEAD TEMP15>
 969                     <PUSH 'LONG>
 970                     <CALL '\1aEMIT-PUSH 2>
 971                     <FRAME '\1aMAKE-LABEL>
 972                     <CALL '\1aMAKE-LABEL 0 = TLAB9>
 973                     <GVAL 'MAKTUP-FLAG = TEMP15>
 974                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE27>
 975                     <DEAD TEMP15>
 976                     <GVAL 'ICALL-LEVEL = TEMP15>
 977                     <VEQUAL? TEMP15 0 - PHRASE27 (TYPE FIX)>
 978                     <DEAD TEMP15>
 979                     <FRAME '\1aGET-AC>
 980                     <PUSH 'PREF-VAL>
 981                     <PUSH 'T>
 982                     <CALL '\1aGET-AC 2 = VAC11>
 983                     <FRAME '\1aEMIT-MOVE>
 984                     <GVAL 'AC-F = TEMP15>
 985                     <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
 986                     <OR TEMP15 #WORD *240* = TEMP15>
 987                     <LSH TEMP15 8 = TEMP15 (TYPE FIX)>
 988                     <OR TEMP15 #WORD *374* = TEMP15>
 989                     <LSH TEMP15 16 = TEMP15 (TYPE FIX)>
 990                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
 991                     <DEAD TEMP15>
 992                     <NTHUV VAC11 2 = TEMP15 (TYPE FIX)>
 993                     <OR TEMP15 #WORD *120* = TEMP15>
 994                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
 995                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
 996                     <DEAD TEMP15>
 997                     <PUSH 'LONG>
 998                     <CALL '\1aEMIT-MOVE 3>
 999                     <FRAME '\1aEMIT>
1000                     <PUSH 149>
1001                     <NTHUV VAC11 2 = TEMP15 (TYPE FIX)>
1002                     <OR TEMP15 #WORD *240* = TEMP15>
1003                     <LSH TEMP15 8 = TEMP15 (TYPE FIX)>
1004                     <OR TEMP15 #WORD *377* = TEMP15>
1005                     <LSH TEMP15 16 = TEMP15 (TYPE FIX)>
1006                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1007                     <DEAD TEMP15>
1008                     <CALL '\1aEMIT 2>
1009                     <FRAME '\1aGEN-BRANCH>
1010                     <PUSH 25>
1011                     <PUSH TLAB9>
1012                     <PUSH %<>>
1013                     <CALL '\1aGEN-BRANCH 3>
1014                     <FRAME '\1aEMIT-MOVE>
1015                     <NTHUV VAC11 2 = TEMP15 (TYPE FIX)>
1016                     <OR TEMP15 #WORD *240* = TEMP15>
1017                     <LSH TEMP15 8 = TEMP15 (TYPE FIX)>
1018                     <OR TEMP15 #WORD *374* = TEMP15>
1019                     <LSH TEMP15 16 = TEMP15 (TYPE FIX)>
1020                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1021                     <DEAD TEMP15>
1022                     <NTHUV VAC11 2 = TEMP15 (TYPE FIX)>
1023                     <OR TEMP15 #WORD *120* = TEMP15>
1024                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
1025                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1026                     <DEAD TEMP15>
1027                     <PUSH 'LONG>
1028                     <CALL '\1aEMIT-MOVE 3>
1029                     <FRAME '\1aEMIT-LABEL>
1030                     <PUSH TLAB9>
1031                     <DEAD TLAB9>
1032                     <PUSH %<>>
1033                     <CALL '\1aEMIT-LABEL 2>
1034                     <FRAME '\1aEMIT-PUSH>
1035                     <NTHUV VAC11 2 = TEMP15 (TYPE FIX)>
1036                     <DEAD VAC11>
1037                     <OR TEMP15 #WORD *120* = TEMP15>
1038                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
1039                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1040                     <DEAD TEMP15>
1041                     <PUSH 'LONG>
1042                     <CALL '\1aEMIT-PUSH 2>
1043                     <RETURN 'NORMAL>
1044 PHRASE27
1045                     <FRAME '\1aEMIT-PUSH>
1046                     <GVAL 'AC-F = TEMP15>
1047                     <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
1048                     <OR TEMP15 #WORD *240* = TEMP15>
1049                     <LSH TEMP15 8 = TEMP15 (TYPE FIX)>
1050                     <OR TEMP15 #WORD *374* = TEMP15>
1051                     <LSH TEMP15 16 = TEMP15 (TYPE FIX)>
1052                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1053                     <DEAD TEMP15>
1054                     <PUSH 'LONG>
1055                     <CALL '\1aEMIT-PUSH 2>
1056                     <FRAME '\1aGEN-BRANCH>
1057                     <PUSH 24>
1058                     <PUSH TLAB9>
1059                     <PUSH %<>>
1060                     <CALL '\1aGEN-BRANCH 3>
1061                     <FRAME '\1aEMIT-MOVE>
1062                     <GVAL 'AC-F = TEMP15>
1063                     <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
1064                     <OR TEMP15 #WORD *120* = TEMP15>
1065                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
1066                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1067                     <DEAD TEMP15>
1068                     <GVAL 'AC-TP = TEMP15>
1069                     <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
1070                     <OR TEMP15 #WORD *240* = TEMP15>
1071                     <LSH TEMP15 8 = TEMP15 (TYPE FIX)>
1072                     <OR TEMP15 #WORD *374* = TEMP15>
1073                     <LSH TEMP15 16 = TEMP15 (TYPE FIX)>
1074                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1075                     <DEAD TEMP15>
1076                     <PUSH 'LONG>
1077                     <CALL '\1aEMIT-MOVE 3>
1078                     <FRAME '\1aEMIT-LABEL>
1079                     <PUSH TLAB9>
1080                     <DEAD TLAB9>
1081                     <PUSH %<>>
1082                     <CALL '\1aEMIT-LABEL 2>
1083                     <RETURN 'NORMAL>
1084 PHRASE13
1085                     <FRAME '\1aCALL-RTE>
1086                     <TYPE? SEG8 <TYPE-CODE FALSE> + PHRASE45>
1087                     <DEAD SEG8>
1088                     <GVAL 'ISFRAME!-MIMOP = TEMP15>
1089                     <JUMP + PHRASE46>
1090 PHRASE45
1091                     <GVAL 'IFRAME!-MIMOP = TEMP15>
1092 PHRASE46
1093                     <PUSH TEMP15>
1094                     <DEAD TEMP15>
1095                     <PUSH 'CALL>
1096                     <PUSH %<>>
1097                     <PUSH %<>>
1098                     <CALL '\1aCALL-RTE 4>
1099                     <RETURN 'NORMAL>
1100                     <END \1aFRAME-GEN>
1101
1102 #WORD *2521202206*
1103                     <GFCN \1aSCALL-GEN ("VALUE" ATOM ANY ANY ANY ANY ANY ANY "OPTIONAL" ANY) NAME6 NARGS7 RES8 DIR9 TAG10 COUNT11 HINT12>
1104                     <OPT-DISPATCH 6 %<> OPT4 OPT5>
1105 OPT4
1106                     <PUSH %<>>
1107 OPT5
1108                     <TEMP TEMP14:ATOM>
1109                     <INTGO>
1110                     <FRAME '\1aCCALL-GEN>
1111                     <PUSH NAME6>
1112                     <DEAD NAME6>
1113                     <PUSH NARGS7>
1114                     <DEAD NARGS7>
1115                     <PUSH RES8>
1116                     <DEAD RES8>
1117                     <PUSH TAG10>
1118                     <DEAD TAG10>
1119                     <PUSH COUNT11>
1120                     <DEAD COUNT11>
1121                     <PUSH HINT12>
1122                     <DEAD HINT12>
1123                     <CALL '\1aCCALL-GEN 6 = TEMP14>
1124                     <RETURN TEMP14>
1125                     <DEAD TEMP14>
1126                     <END \1aSCALL-GEN>
1127
1128 #WORD *202023123*
1129                     <GFCN \1aCALL-GEN ("VALUE" ATOM ANY ANY "OPTIONAL" ANY ANY) NAME7 NARGS8 RES9 HINT10>
1130                     <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6>
1131 OPT4
1132                     <PUSH %<>>
1133 OPT5
1134                     <PUSH %<>>
1135 OPT6
1136                     <TEMP TEMP12:ATOM>
1137                     <INTGO>
1138                     <FRAME '\1aCCALL-GEN>
1139                     <PUSH NAME7>
1140                     <DEAD NAME7>
1141                     <PUSH NARGS8>
1142                     <DEAD NARGS8>
1143                     <PUSH RES9>
1144                     <DEAD RES9>
1145                     <PUSH %<>>
1146                     <PUSH %<>>
1147                     <PUSH HINT10>
1148                     <DEAD HINT10>
1149                     <CALL '\1aCCALL-GEN 6 = TEMP12>
1150                     <RETURN TEMP12>
1151                     <DEAD TEMP12>
1152                     <END \1aCALL-GEN>
1153
1154 #WORD *34570424760*
1155                     <GFCN \1aCCALL-GEN ("VALUE" ATOM <OR ATOM VARTBL> <OR FIX VARTBL> <OR ATOM VARTBL FALSE> ANY ANY <OR FALSE ATOM>) NAME4 NARGS5 RES6 TAG7 COUNT8 HINT9>
1156                     <TEMP TLAB10 TEMP15 TEMP36:VECTOR X37:AC>
1157                     <INTGO>
1158                     <FRAME '\1aMAKE-LABEL>
1159                     <CALL '\1aMAKE-LABEL 0 = TLAB10>
1160                     <GVAL 'GLUE = TEMP15>
1161                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE13>
1162                     <DEAD TEMP15>
1163                     <TYPE? NAME4 <TYPE-CODE ATOM> - PHRASE13>
1164                     <FRAME '\1aQUICK-CALL?>
1165                     <PUSH NAME4>
1166                     <CALL '\1aQUICK-CALL? 1 = TEMP15>
1167                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE13>
1168                     <DEAD TEMP15>
1169                     <TYPE? NARGS5 <TYPE-CODE FIX> - PHRASE18>
1170                     <FRAME '\1aFLUSH-ALL-ACS>
1171                     <CALL '\1aFLUSH-ALL-ACS 0>
1172                     <FRAME '\1aEMIT>
1173                     <PUSH 222>
1174                     <FRAME '\1aMA-DISP>
1175                     <GVAL 'AC-TP = STACK>
1176                     <MUL NARGS5 -8 = STACK (TYPE FIX)>
1177                     <CALL '\1aMA-DISP 2 = STACK>
1178                     <GVAL 'AC-F = TEMP15>
1179                     <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
1180                     <OR TEMP15 #WORD *120* = TEMP15>
1181                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
1182                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1183                     <DEAD TEMP15>
1184                     <CALL '\1aEMIT 3>
1185                     <FRAME '\1aLOAD-CONSTANT>
1186                     <GVAL 'AC-0 = STACK>
1187                     <PUSH NARGS5>
1188                     <CALL '\1aLOAD-CONSTANT 2>
1189                     <FRAME '\1aEMIT-CALL>
1190                     <PUSH NAME4>
1191                     <DEAD NAME4>
1192                     <PUSH NARGS5>
1193                     <DEAD NARGS5>
1194                     <CALL '\1aEMIT-CALL 2>
1195                     <JUMP + PHRASE24>
1196 PHRASE18
1197                     <FRAME '\1aLOAD-VAR>
1198                     <PUSH NARGS5>
1199                     <DEAD NARGS5>
1200                     <PUSH 'VALUE>
1201                     <PUSH 'T>
1202                     <GVAL 'AC-0 = STACK>
1203                     <CALL '\1aLOAD-VAR 4>
1204                     <GVAL 'ALL-ACS = TEMP36>
1205                     <LOOP>
1206 MAP27
1207                     <INTGO>
1208                     <EMPUV? TEMP36 + MAPAP30>
1209                     <NTHUV TEMP36 1 = X37>
1210                     <GVAL 'AC-0 = TEMP15>
1211                     <EQUAL? TEMP15 X37 + PHRASE39>
1212                     <DEAD TEMP15>
1213                     <FRAME '\1aMUNG-AC>
1214                     <PUSH X37>
1215                     <DEAD X37>
1216                     <CALL '\1aMUNG-AC 1>
1217 PHRASE39
1218                     <RESTUV TEMP36 1 = TEMP36 (TYPE VECTOR)>
1219                     <JUMP + MAP27>
1220 MAPAP30
1221                     <FRAME '\1aEMIT>
1222                     <PUSH 120>
1223                     <FRAME '\1aMA-IMM>
1224                     <PUSH 3>
1225                     <CALL '\1aMA-IMM 1 = STACK>
1226                     <GVAL 'AC-0 = TEMP15>
1227                     <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
1228                     <OR TEMP15 #WORD *120* = TEMP15>
1229                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
1230                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1231                     <DEAD TEMP15>
1232                     <GVAL 'AC-1 = TEMP15>
1233                     <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
1234                     <OR TEMP15 #WORD *120* = TEMP15>
1235                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
1236                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1237                     <DEAD TEMP15>
1238                     <CALL '\1aEMIT 4>
1239                     <FRAME '\1aEMIT>
1240                     <PUSH 195>
1241                     <GVAL 'AC-1 = TEMP15>
1242                     <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
1243                     <OR TEMP15 #WORD *120* = TEMP15>
1244                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
1245                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1246                     <DEAD TEMP15>
1247                     <GVAL 'AC-TP = TEMP15>
1248                     <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
1249                     <OR TEMP15 #WORD *120* = TEMP15>
1250                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
1251                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1252                     <DEAD TEMP15>
1253                     <GVAL 'AC-F = TEMP15>
1254                     <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
1255                     <OR TEMP15 #WORD *120* = TEMP15>
1256                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
1257                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1258                     <DEAD TEMP15>
1259                     <CALL '\1aEMIT 4>
1260                     <FRAME '\1aEMIT-CALL>
1261                     <PUSH NAME4>
1262                     <DEAD NAME4>
1263                     <PUSH -1>
1264                     <CALL '\1aEMIT-CALL 2>
1265 PHRASE24
1266                     <FRAME '\1aEMIT-LABEL>
1267                     <GVAL 'FRAME-LABEL-TABLE = TEMP15>
1268                     <NTHL TEMP15 1 = STACK (TYPE SPEC-LABEL)>
1269                     <DEAD TEMP15>
1270                     <PUSH %<>>
1271                     <CALL '\1aEMIT-LABEL 2>
1272                     <GVAL 'FRAME-LABEL-TABLE = TEMP15>
1273                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
1274                     <SETG 'FRAME-LABEL-TABLE TEMP15>
1275                     <DEAD TEMP15>
1276                     <TYPE? TAG7 <TYPE-CODE FALSE> + PHRASE48>
1277                     <FRAME '\1aEMIT-BRANCH>
1278                     <PUSH 17>
1279                     <PUSH TLAB10>
1280                     <PUSH %<>>
1281                     <PUSH 0>
1282                     <PUSH %<>>
1283                     <PUSH 'T>
1284                     <CALL '\1aEMIT-BRANCH 6>
1285                     <FRAME '\1aEMIT>
1286                     <PUSH 192>
1287                     <GVAL 'AC-1 = TEMP15>
1288                     <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
1289                     <OR TEMP15 #WORD *120* = TEMP15>
1290                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
1291                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1292                     <DEAD TEMP15>
1293                     <FRAME '\1aADDR-VAR-VALUE>
1294                     <PUSH COUNT8>
1295                     <DEAD COUNT8>
1296                     <CALL '\1aADDR-VAR-VALUE 1 = STACK>
1297                     <CALL '\1aEMIT 3>
1298                     <FRAME '\1aGEN-BRANCH>
1299                     <PUSH 17>
1300                     <PUSH TAG7>
1301                     <DEAD TAG7>
1302                     <PUSH %<>>
1303                     <CALL '\1aGEN-BRANCH 3>
1304 PHRASE48
1305                     <FRAME '\1aEMIT-LABEL>
1306                     <PUSH TLAB10>
1307                     <DEAD TLAB10>
1308                     <PUSH %<>>
1309                     <CALL '\1aEMIT-LABEL 2>
1310                     <FRAME '\1aSET-RTE-RESULT>
1311                     <GVAL 'MCALL!-MIMOP = TEMP15>
1312                     <NTHUV TEMP15 4 = STACK>
1313                     <DEAD TEMP15>
1314                     <PUSH RES6>
1315                     <DEAD RES6>
1316                     <PUSH HINT9>
1317                     <DEAD HINT9>
1318                     <CALL '\1aSET-RTE-RESULT 3>
1319                     <RETURN 'NORMAL>
1320 PHRASE13
1321                     <FRAME '\1aCALL-RTE>
1322                     <GVAL 'MCALL!-MIMOP = STACK>
1323                     <PUSH 'CALL>
1324                     <TYPE? TAG7 <TYPE-CODE FALSE> + PHRASE58>
1325                     <SET TEMP15 %<> (TYPE FALSE)>
1326                     <JUMP + PHRASE59>
1327 PHRASE58
1328                     <SET TEMP15 RES6>
1329 PHRASE59
1330                     <PUSH TEMP15>
1331                     <DEAD TEMP15>
1332                     <PUSH HINT9>
1333                     <PUSH NARGS5>
1334                     <DEAD NARGS5>
1335                     <PUSH NAME4>
1336                     <DEAD NAME4>
1337                     <CALL '\1aCALL-RTE 6>
1338                     <TYPE? TAG7 <TYPE-CODE FALSE> + PHRASE61>
1339                     <FRAME '\1aEMIT-BRANCH>
1340                     <PUSH 17>
1341                     <PUSH TLAB10>
1342                     <PUSH %<>>
1343                     <PUSH 0>
1344                     <PUSH %<>>
1345                     <PUSH 'T>
1346                     <CALL '\1aEMIT-BRANCH 6>
1347                     <FRAME '\1aEMIT>
1348                     <PUSH 192>
1349                     <GVAL 'AC-1 = TEMP15>
1350                     <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
1351                     <OR TEMP15 #WORD *120* = TEMP15>
1352                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
1353                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1354                     <DEAD TEMP15>
1355                     <FRAME '\1aADDR-VAR-VALUE>
1356                     <PUSH COUNT8>
1357                     <DEAD COUNT8>
1358                     <CALL '\1aADDR-VAR-VALUE 1 = STACK>
1359                     <CALL '\1aEMIT 3>
1360                     <FRAME '\1aGEN-BRANCH>
1361                     <PUSH 17>
1362                     <PUSH TAG7>
1363                     <DEAD TAG7>
1364                     <PUSH 'UNCONDITIONAL-BRANCH>
1365                     <CALL '\1aGEN-BRANCH 3>
1366                     <FRAME '\1aEMIT-LABEL>
1367                     <PUSH TLAB10>
1368                     <DEAD TLAB10>
1369                     <PUSH %<>>
1370                     <CALL '\1aEMIT-LABEL 2>
1371                     <FRAME '\1aSET-RTE-RESULT>
1372                     <GVAL 'MCALL!-MIMOP = TEMP15>
1373                     <NTHUV TEMP15 4 = STACK>
1374                     <DEAD TEMP15>
1375                     <PUSH RES6>
1376                     <DEAD RES6>
1377                     <PUSH HINT9>
1378                     <DEAD HINT9>
1379                     <CALL '\1aSET-RTE-RESULT 3>
1380 PHRASE61
1381                     <RETURN 'NORMAL>
1382                     <END \1aCCALL-GEN>
1383
1384 #WORD *17351715105*
1385                     <GFCN \1aCALL-STACK-FUNCTION ("VALUE" ATOM TUPLE CALL-DESCRIPTOR <OR ATOM FALSE> "TUPLE" ANY) ARGS4 CALLR5 TYP6>
1386                     <MAKTUP CARGS7:TUPLE (CNT9:FIX 0) TEMP16 FARGS21 ARG22 DEST8 TEMP29 = CARGS7>
1387                     <INTGO>
1388                     <CHTYPE ARGS4 <TYPE-CODE VECTOR> = TEMP16>
1389                     <DEAD ARGS4>
1390                     <LOOP>
1391 MAP11
1392                     <INTGO>
1393                     <EMPUV? TEMP16 + MAPAP14>
1394                     <SET FARGS21 TEMP16>
1395                     <NTHUV FARGS21 1 = ARG22>
1396                     <EQUAL? ARG22 'STACK + BOOL25>
1397                     <TYPE? ARG22 <TYPE-CODE VARTBL> - PHRASE24>
1398 BOOL25
1399                     <SET DEST8 ARG22>
1400 PHRASE24
1401                     <LENUV FARGS21 = TEMP29 (TYPE FIX)>
1402                     <VEQUAL? TEMP29 1 + MAPAP14 (TYPE FIX)>
1403                     <DEAD TEMP29>
1404                     <NTHUV FARGS21 2 = TEMP29>
1405                     <DEAD FARGS21>
1406                     <TYPE? TEMP29 <TYPE-CODE LIST> + MAPAP14>
1407                     <DEAD TEMP29>
1408                     <FRAME '\1aPUSH-GEN>
1409                     <PUSH ARG22>
1410                     <DEAD ARG22>
1411                     <CALL '\1aPUSH-GEN 1>
1412                     <ADD CNT9 1 = CNT9 (TYPE FIX)>
1413                     <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
1414                     <JUMP + MAP11>
1415 MAPAP14
1416                     <FRAME '\1aCALL-RTE>
1417                     <PUSH CALLR5>
1418                     <DEAD CALLR5>
1419                     <PUSH 'CALL>
1420                     <PUSH DEST8>
1421                     <DEAD DEST8>
1422                     <PUSH TYP6>
1423                     <DEAD TYP6>
1424                     <SET FARGS21 5 (TYPE FIX)>
1425                     <SET TEMP16 CARGS7>
1426                     <DEAD CARGS7>
1427                     <LOOP (TEMP16 VALUE LENGTH) (FARGS21 VALUE)>
1428 TAG35
1429                     <INTGO>
1430                     <EMPUV? TEMP16 + TAG34>
1431                     <NTHUV TEMP16 1 = STACK>
1432                     <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
1433                     <ADD FARGS21 1 = FARGS21 (TYPE FIX)>
1434                     <JUMP + TAG35>
1435 TAG34
1436                     <PUSH CNT9>
1437                     <DEAD CNT9>
1438                     <CALL '\1aCALL-RTE FARGS21>
1439                     <DEAD FARGS21>
1440                     <RETURN 'NORMAL>
1441                     <END \1aCALL-STACK-FUNCTION>
1442
1443 #WORD *103470262*
1444                     <GFCN \1aQUICK-CALL? ("VALUE" <OR ATOM FALSE> ATOM) NAME4>
1445                     <TEMP TEMP6>
1446                     <INTGO>
1447                     <FRAME '\1aFIND-CALL>
1448                     <PUSH NAME4>
1449                     <DEAD NAME4>
1450                     <GVAL 'GLUE-FCNS = STACK>
1451                     <CALL '\1aFIND-CALL 2 = TEMP6>
1452                     <RETURN TEMP6>
1453                     <DEAD TEMP6>
1454                     <END \1aQUICK-CALL?>
1455
1456 #WORD *13511443265*
1457                     <GFCN \1aCHANNEL-OP-GEN ("VALUE" ATOM ATOM ATOM VARTBL "TUPLE" ANY) TYPE4 OPER5 CHANNEL6>
1458                     <MAKTUP ARGS7 RES8 TEMP13 FROB9 ARG31 = ARGS7>
1459                     <INTGO>
1460                     <GVAL 'HAS-RESULT = RES8>
1461                     <GVAL 'GLUE = TEMP13>
1462                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE11>
1463                     <DEAD TEMP13>
1464                     <FRAME '\1aCT-QUERY>
1465                     <PUSH TYPE4>
1466                     <PUSH OPER5>
1467                     <CALL '\1aCT-QUERY 2 = FROB9>
1468                     <TYPE? FROB9 <TYPE-CODE FALSE> + PHRASE11>
1469                     <FRAME '\1aQUICK-CALL?>
1470                     <PUSH FROB9>
1471                     <CALL '\1aQUICK-CALL? 1 = TEMP13>
1472                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE11>
1473                     <DEAD TEMP13>
1474                     <FRAME '\1aFRAME-GEN>
1475                     <PUSH FROB9>
1476                     <CALL '\1aFRAME-GEN 1>
1477                     <JUMP + PHRASE17>
1478 PHRASE11
1479                     <SET FROB9 %<> (TYPE FALSE)>
1480                     <FRAME '\1aCALL-RTE>
1481                     <GVAL 'IFRAME!-MIMOP = STACK>
1482                     <PUSH 'CALL>
1483                     <PUSH %<>>
1484                     <PUSH %<>>
1485                     <CALL '\1aCALL-RTE 4>
1486 PHRASE17
1487                     <FRAME '\1aPUSH-VAR>
1488                     <PUSH CHANNEL6>
1489                     <DEAD CHANNEL6>
1490                     <CALL '\1aPUSH-VAR 1>
1491                     <FRAME '\1aPUSH-CONSTANT>
1492                     <PUSH OPER5>
1493                     <CALL '\1aPUSH-CONSTANT 1>
1494                     <CHTYPE ARGS7 <TYPE-CODE VECTOR> = TEMP13>
1495                     <LOOP>
1496 MAP22
1497                     <INTGO>
1498                     <EMPUV? TEMP13 + MAPAP25>
1499                     <NTHUV TEMP13 1 = ARG31>
1500                     <TYPE? ARG31 <TYPE-CODE VARTBL> - PHRASE33>
1501                     <FRAME '\1aPUSH-VAR>
1502                     <PUSH ARG31>
1503                     <DEAD ARG31>
1504                     <CALL '\1aPUSH-VAR 1>
1505                     <JUMP + PHRASE35>
1506 PHRASE33
1507                     <FRAME '\1aPUSH-CONSTANT>
1508                     <PUSH ARG31>
1509                     <DEAD ARG31>
1510                     <CALL '\1aPUSH-CONSTANT 1>
1511 PHRASE35
1512                     <RESTUV TEMP13 1 = TEMP13 (TYPE VECTOR)>
1513                     <JUMP + MAP22>
1514 MAPAP25
1515                     <FRAME '\1aFLUSH-ALL-ACS>
1516                     <CALL '\1aFLUSH-ALL-ACS 0>
1517                     <TYPE? FROB9 <TYPE-CODE FALSE> + PHRASE39>
1518                     <FRAME '\1aCALL-GEN>
1519                     <PUSH FROB9>
1520                     <DEAD FROB9>
1521                     <LENUV ARGS7 = FROB9 (TYPE FIX)>
1522                     <DEAD ARGS7>
1523                     <ADD FROB9 2 = STACK (TYPE FIX)>
1524                     <DEAD FROB9>
1525                     <PUSH RES8>
1526                     <DEAD RES8>
1527                     <CALL '\1aCALL-GEN 3 = ARGS7>
1528                     <RETURN ARGS7>
1529                     <DEAD ARGS7>
1530 PHRASE39
1531                     <FRAME '\1aEMIT-MOVE>
1532                     <FRAME '\1aMA-DEF-DISP>
1533                     <GVAL 'AC-M = STACK>
1534                     <FRAME '\1aADD-MVEC>
1535                     <CONS OPER5 () = FROB9>
1536                     <DEAD OPER5>
1537                     <CONS TYPE4 FROB9 = FROB9>
1538                     <DEAD TYPE4>
1539                     <CHTYPE FROB9 <TYPE-CODE XCHANNEL-OP> = STACK>
1540                     <DEAD FROB9>
1541                     <CALL '\1aADD-MVEC 1 = FROB9>
1542                     <ADD FROB9 4 = STACK (TYPE FIX)>
1543                     <DEAD FROB9>
1544                     <CALL '\1aMA-DEF-DISP 2 = STACK>
1545                     <GVAL 'AC-0 = FROB9>
1546                     <NTHUV FROB9 2 = FROB9 (TYPE FIX)>
1547                     <OR FROB9 #WORD *120* = FROB9>
1548                     <LSH FROB9 24 = FROB9 (TYPE FIX)>
1549                     <CHTYPE FROB9 <TYPE-CODE EFF-ADDR> = STACK>
1550                     <DEAD FROB9>
1551                     <PUSH 'DOUBLE>
1552                     <CALL '\1aEMIT-MOVE 3>
1553                     <FRAME '\1aEMIT-MOVE>
1554                     <FRAME '\1aMA-IMM>
1555                     <LENUV ARGS7 = FROB9 (TYPE FIX)>
1556                     <DEAD ARGS7>
1557                     <ADD FROB9 2 = STACK (TYPE FIX)>
1558                     <DEAD FROB9>
1559                     <CALL '\1aMA-IMM 1 = STACK>
1560                     <GVAL 'AC-0 = FROB9>
1561                     <NTHUV FROB9 2 = FROB9 (TYPE FIX)>
1562                     <OR FROB9 #WORD *120* = FROB9>
1563                     <LSH FROB9 24 = FROB9 (TYPE FIX)>
1564                     <CHTYPE FROB9 <TYPE-CODE EFF-ADDR> = STACK>
1565                     <DEAD FROB9>
1566                     <PUSH 'LONG>
1567                     <CALL '\1aEMIT-MOVE 3>
1568                     <FRAME '\1aEMIT>
1569                     <PUSH 22>
1570                     <GVAL 'AC-PC = FROB9>
1571                     <NTHUV FROB9 2 = FROB9 (TYPE FIX)>
1572                     <OR FROB9 #WORD *220* = FROB9>
1573                     <LSH FROB9 24 = FROB9 (TYPE FIX)>
1574                     <CHTYPE FROB9 <TYPE-CODE EFF-ADDR> = FROB9>
1575                     <CONS FROB9 () = FROB9>
1576                     <FRAME '\1aLREV>
1577                     <GVAL 'MCALL!-MIMOP = TEMP13>
1578                     <NTHUV TEMP13 1 = STACK (TYPE FIX)>
1579                     <DEAD TEMP13>
1580                     <CALL '\1aLREV 1 = TEMP13>
1581                     <CHTYPE TEMP13 <TYPE-CODE EFF-ADDR> = TEMP13>
1582                     <CONS TEMP13 () = TEMP13>
1583                     <PUTREST FROB9 TEMP13>
1584                     <DEAD TEMP13>
1585                     <CHTYPE FROB9 <TYPE-CODE LADDR> = STACK>
1586                     <DEAD FROB9>
1587                     <CALL '\1aEMIT 2>
1588                     <FRAME '\1aSET-RTE-RESULT>
1589                     <GVAL 'MCALL!-MIMOP = FROB9>
1590                     <NTHUV FROB9 4 = STACK>
1591                     <DEAD FROB9>
1592                     <PUSH RES8>
1593                     <DEAD RES8>
1594                     <PUSH %<>>
1595                     <CALL '\1aSET-RTE-RESULT 3>
1596                     <FRAME '\1aCLEAR-STATUS>
1597                     <CALL '\1aCLEAR-STATUS 0>
1598                     <RETURN 'NORMAL>
1599                     <END \1aCHANNEL-OP-GEN>