mim/development/mim/mimc/buildl.mima

   1
   2 <PACKAGE "BUILDL">
   3
   4 <ENTRY LIST-BUILD>
   5
   6 <USE "COMPDEC" "CODGEN" "CHKDCL" "ADVMESS" "MIMGEN" "STRGEN">
   7
   8 #WORD *13417153157*
   9                     <GFCN \1aLIST-BUILD ("VALUE" ANY NODE ANY) NOD4 W5>
  10                     <TEMP K6:LIST (KK7:LIST ()) (OOPSF15 %<>) (SUGGEST18 'DONT-CARE) TEMP22 N39 TEMP43 TG116>
  11                     <INTGO>
  12                     <NTHUV NOD4 5 = K6 (TYPE LIST)>
  13                     <DEAD NOD4>
  14                     <TYPE? W5 <TYPE-CODE TEMP> - PHRASE20>
  15                     <NTHUV W5 2 = TEMP22 (TYPE FIX)>
  16                     <VEQUAL? TEMP22 0 - PHRASE20 (TYPE FIX)>
  17                     <DEAD TEMP22>
  18                     <SET SUGGEST18 W5>
  19 PHRASE20
  20                     <EMPL? K6 + BOOL28>
  21                     <RESTL K6 1 = TEMP22 (TYPE LIST)>
  22                     <EMPL? TEMP22 - BOOL28>
  23                     <DEAD TEMP22>
  24                     <SET KK7 K6>
  25                     <DEAD K6>
  26                     <JUMP + MAPAP33>
  27 BOOL28
  28                     <SET TEMP22 K6 (TYPE LIST)>
  29                     <EMPL? TEMP22 + PHRASE26>
  30                     <LOOP>
  31 MAP30
  32                     <INTGO>
  33                     <EMPL? TEMP22 + MAPAP33>
  34                     <NTHL TEMP22 1 = N39>
  35                     <LENUV N39 = TEMP43 (TYPE FIX)>
  36                     <LESS? TEMP43 8 + PHRASE41 (TYPE FIX)>
  37                     <DEAD TEMP43>
  38                     <NTHUV N39 8 = TEMP43>
  39                     <TYPE? TEMP43 <TYPE-CODE FALSE> - PHRASE26>
  40                     <DEAD TEMP43>
  41 PHRASE41
  42                     <CONS N39 KK7 = KK7>
  43                     <DEAD N39>
  44                     <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
  45                     <JUMP + MAP30>
  46 MAPAP33
  47                     <NTHL KK7 1 = N39 (TYPE NODE)>
  48                     <NTHUV N39 1 = TEMP22 (TYPE FIX)>
  49                     <VEQUAL? TEMP22 68 - PHRASE46 (TYPE FIX)>
  50                     <DEAD TEMP22>
  51                     <FRAME '\1aSTRUCTYP>
  52                     <NTHUV N39 5 = OOPSF15 (TYPE LIST)>
  53                     <DEAD N39>
  54                     <NTHL OOPSF15 1 = N39 (TYPE NODE)>
  55                     <DEAD OOPSF15>
  56                     <NTHUV N39 3 = STACK>
  57                     <CALL '\1aSTRUCTYP 1 = OOPSF15>
  58                     <EQUAL? OOPSF15 'LIST - PHRASE46>
  59                     <DEAD OOPSF15>
  60                     <FRAME '\1aGEN>
  61                     <PUSH N39>
  62                     <DEAD N39>
  63                     <CALL '\1aGEN 1 = TEMP22>
  64                     <RESTL KK7 1 = KK7 (TYPE LIST)>
  65                     <JUMP + PHRASE50>
  66 PHRASE46
  67                     <FRAME '\1aREFERENCE>
  68                     <PUSH ()>
  69                     <CALL '\1aREFERENCE 1 = TEMP22>
  70 PHRASE50
  71                     <SET OOPSF15 KK7 (TYPE LIST)>
  72                     <DEAD KK7>
  73                     <LOOP>
  74 MAP53
  75                     <INTGO>
  76                     <EMPL? OOPSF15 + MAPAP56>
  77                     <SET K6 OOPSF15>
  78                     <NTHL K6 1 = TEMP43 (TYPE NODE)>
  79                     <NTHUV TEMP43 1 = N39 (TYPE FIX)>
  80                     <VEQUAL? N39 68 - PHRASE62 (TYPE FIX)>
  81                     <DEAD N39>
  82                     <FRAME '\1aSEG-BUILD-LIST>
  83                     <NTHUV TEMP43 5 = N39 (TYPE LIST)>
  84                     <DEAD TEMP43>
  85                     <NTHL N39 1 = STACK (TYPE NODE)>
  86                     <DEAD N39>
  87                     <PUSH TEMP22>
  88                     <DEAD TEMP22>
  89                     <PUSH %<>>
  90                     <PUSH %<>>
  91                     <PUSH %<>>
  92                     <CALL '\1aSEG-BUILD-LIST 5 = TEMP22>
  93                     <JUMP + PHRASE65>
  94 PHRASE62
  95                     <FRAME '\1aFREE-TEMP>
  96                     <FRAME '\1aGEN>
  97                     <PUSH TEMP43>
  98                     <DEAD TEMP43>
  99                     <CALL '\1aGEN 1 = TEMP43>
 100                     <PUSH TEMP43>
 101                     <PUSH %<>>
 102                     <CALL '\1aFREE-TEMP 2>
 103                     <EQUAL? TEMP22 W5 + PHRASE69>
 104                     <EQUAL? TEMP22 SUGGEST18 + PHRASE69>
 105                     <FRAME '\1aFREE-TEMP>
 106                     <PUSH TEMP22>
 107                     <PUSH %<>>
 108                     <CALL '\1aFREE-TEMP 2>
 109                     <JUMP + PHRASE72>
 110 PHRASE69
 111                     <FRAME '\1aDEALLOCATE-TEMP>
 112                     <PUSH TEMP22>
 113                     <CALL '\1aDEALLOCATE-TEMP 1>
 114 PHRASE72
 115                     <FRAME '\1aIEMIT>
 116                     <PUSH '`CONS>
 117                     <FRAME '\1aATOMCHK>
 118                     <PUSH TEMP43>
 119                     <DEAD TEMP43>
 120                     <CALL '\1aATOMCHK 1 = STACK>
 121                     <PUSH TEMP22>
 122                     <DEAD TEMP22>
 123                     <PUSH '=>
 124                     <RESTL K6 1 = N39 (TYPE LIST)>
 125                     <DEAD K6>
 126                     <EMPL? N39 - PHRASE77 (TYPE LIST)>
 127                     <DEAD N39>
 128                     <EQUAL? W5 'DONT-CARE + PHRASE77>
 129                     <TYPE? W5 <TYPE-CODE TEMP> - PHRASE80>
 130                     <FRAME '\1aUSE-TEMP>
 131                     <PUSH W5>
 132                     <PUSH 'LIST>
 133                     <CALL '\1aUSE-TEMP 2>
 134 PHRASE80
 135                     <SET TEMP22 W5>
 136                     <JUMP + PHRASE84>
 137 PHRASE77
 138                     <TYPE? SUGGEST18 <TYPE-CODE TEMP> - PHRASE82>
 139                     <FRAME '\1aUSE-TEMP>
 140                     <PUSH SUGGEST18>
 141                     <PUSH 'LIST>
 142                     <CALL '\1aUSE-TEMP 2>
 143                     <SET TEMP22 SUGGEST18>
 144                     <JUMP + PHRASE84>
 145 PHRASE82
 146                     <FRAME '\1aGEN-TEMP>
 147                     <PUSH 'LIST>
 148                     <CALL '\1aGEN-TEMP 1 = TEMP22>
 149 PHRASE84
 150                     <PUSH TEMP22>
 151                     <CALL '\1aIEMIT 5>
 152 PHRASE65
 153                     <RESTL OOPSF15 1 = OOPSF15 (TYPE LIST)>
 154                     <JUMP + MAP53>
 155 MAPAP56
 156                     <FRAME '\1aMOVE-ARG>
 157                     <PUSH TEMP22>
 158                     <DEAD TEMP22>
 159                     <PUSH W5>
 160                     <DEAD W5>
 161                     <CALL '\1aMOVE-ARG 2 = OOPSF15>
 162                     <RETURN OOPSF15>
 163                     <DEAD OOPSF15>
 164 PHRASE26
 165                     <NTHL K6 1 = N39 (TYPE NODE)>
 166                     <NTHUV N39 1 = TEMP22 (TYPE FIX)>
 167                     <VEQUAL? TEMP22 68 - PHRASE89 (TYPE FIX)>
 168                     <DEAD TEMP22>
 169                     <FRAME '\1aSEG-BUILD-LIST>
 170                     <NTHUV N39 5 = TEMP22 (TYPE LIST)>
 171                     <DEAD N39>
 172                     <NTHL TEMP22 1 = STACK (TYPE NODE)>
 173                     <DEAD TEMP22>
 174                     <FRAME '\1aREFERENCE>
 175                     <PUSH ()>
 176                     <CALL '\1aREFERENCE 1 = STACK>
 177                     <PUSH 'T>
 178                     <PUSH 'T>
 179                     <PUSH %<>>
 180                     <CALL '\1aSEG-BUILD-LIST 5 = TEMP22>
 181                     <FRAME '\1aNTH>
 182                     <PUSH TEMP22>
 183                     <PUSH 2>
 184                     <CALL '\1aNTH 2 = SUGGEST18>
 185                     <NTH1 TEMP22 = TEMP43>
 186                     <FRAME '\1aNTH>
 187                     <PUSH TEMP22>
 188                     <DEAD TEMP22>
 189                     <PUSH 3>
 190                     <CALL '\1aNTH 2 = OOPSF15>
 191                     <JUMP + PHRASE94>
 192 PHRASE89
 193                     <FRAME '\1aGEN>
 194                     <PUSH N39>
 195                     <DEAD N39>
 196                     <PUSH 'DONT-CARE>
 197                     <CALL '\1aGEN 2 = TEMP22>
 198                     <FRAME '\1aFREE-TEMP>
 199                     <PUSH TEMP22>
 200                     <PUSH %<>>
 201                     <CALL '\1aFREE-TEMP 2>
 202                     <FRAME '\1aIEMIT>
 203                     <PUSH '`CONS>
 204                     <FRAME '\1aATOMCHK>
 205                     <PUSH TEMP22>
 206                     <DEAD TEMP22>
 207                     <CALL '\1aATOMCHK 1 = STACK>
 208                     <PUSH ()>
 209                     <PUSH '=>
 210                     <TYPE? SUGGEST18 <TYPE-CODE TEMP> - PHRASE100>
 211                     <FRAME '\1aUSE-TEMP>
 212                     <PUSH SUGGEST18>
 213                     <PUSH 'LIST>
 214                     <CALL '\1aUSE-TEMP 2>
 215                     <JUMP + PHRASE102>
 216 PHRASE100
 217                     <FRAME '\1aGEN-TEMP>
 218                     <PUSH 'LIST>
 219                     <CALL '\1aGEN-TEMP 1 = SUGGEST18>
 220 PHRASE102
 221                     <SET TEMP43 SUGGEST18>
 222                     <PUSH TEMP43>
 223                     <CALL '\1aIEMIT 5>
 224 PHRASE94
 225                     <RESTL K6 1 = K6 (TYPE LIST)>
 226                     <LOOP>
 227 MAP105
 228                     <INTGO>
 229                     <EMPL? K6 + MAPAP108>
 230                     <SET KK7 K6>
 231                     <NTHL KK7 1 = TEMP22 (TYPE NODE)>
 232                     <NTHUV TEMP22 1 = N39 (TYPE FIX)>
 233                     <VEQUAL? N39 68 - PHRASE116 (TYPE FIX)>
 234                     <DEAD N39>
 235                     <FRAME '\1aSTRUCTYP>
 236                     <NTHUV TEMP22 5 = N39 (TYPE LIST)>
 237                     <DEAD TEMP22>
 238                     <NTHL N39 1 = TEMP22 (TYPE NODE)>
 239                     <DEAD N39>
 240                     <NTHUV TEMP22 3 = STACK>
 241                     <CALL '\1aSTRUCTYP 1 = N39>
 242                     <EQUAL? N39 'LIST - PHRASE119>
 243                     <DEAD N39>
 244                     <RESTL KK7 1 = N39 (TYPE LIST)>
 245                     <DEAD KK7>
 246                     <EMPL? N39 - PHRASE119 (TYPE LIST)>
 247                     <DEAD N39>
 248                     <FRAME '\1aGEN>
 249                     <PUSH TEMP22>
 250                     <DEAD TEMP22>
 251                     <PUSH 'DONT-CARE>
 252                     <CALL '\1aGEN 2 = TEMP22>
 253                     <TYPE? OOPSF15 <TYPE-CODE FALSE> + PHRASE124>
 254                     <FRAME '\1aEMPTY-LIST>
 255                     <PUSH SUGGEST18>
 256                     <FRAME '\1aMAKE-TAG>
 257                     <CALL '\1aMAKE-TAG 0 = TG116>
 258                     <PUSH TG116>
 259                     <PUSH 'T>
 260                     <CALL '\1aEMPTY-LIST 3>
 261 PHRASE124
 262                     <FRAME '\1aIEMIT>
 263                     <PUSH '`PUTREST>
 264                     <PUSH SUGGEST18>
 265                     <PUSH TEMP22>
 266                     <CALL '\1aIEMIT 3>
 267                     <TYPE? OOPSF15 <TYPE-CODE FALSE> + PHRASE129>
 268                     <FRAME '\1aLABEL-TAG>
 269                     <PUSH TG116>
 270                     <DEAD TG116>
 271                     <CALL '\1aLABEL-TAG 1>
 272                     <FRAME '\1aEMPTY-LIST>
 273                     <PUSH SUGGEST18>
 274                     <FRAME '\1aMAKE-TAG>
 275                     <CALL '\1aMAKE-TAG 0 = TG116>
 276                     <PUSH TG116>
 277                     <PUSH %<>>
 278                     <CALL '\1aEMPTY-LIST 3>
 279                     <FRAME '\1aSET-TEMP>
 280                     <PUSH TEMP43>
 281                     <PUSH TEMP22>
 282                     <CALL '\1aSET-TEMP 2>
 283                     <FRAME '\1aLABEL-TAG>
 284                     <PUSH TG116>
 285                     <CALL '\1aLABEL-TAG 1>
 286 PHRASE129
 287                     <FRAME '\1aFREE-TEMP>
 288                     <PUSH TEMP22>
 289                     <DEAD TEMP22>
 290                     <CALL '\1aFREE-TEMP 1>
 291                     <JUMP + PHRASE158>
 292 PHRASE119
 293                     <FRAME '\1aSEG-BUILD-LIST>
 294                     <PUSH TEMP22>
 295                     <DEAD TEMP22>
 296                     <PUSH SUGGEST18>
 297                     <DEAD SUGGEST18>
 298                     <PUSH 'T>
 299                     <PUSH %<>>
 300                     <SET N39 OOPSF15>
 301                     <TYPE? N39 <TYPE-CODE FALSE> + PHRASE139>
 302                     <SET N39 TEMP43>
 303 PHRASE139
 304                     <PUSH N39>
 305                     <DEAD N39>
 306                     <CALL '\1aSEG-BUILD-LIST 5 = SUGGEST18>
 307                     <JUMP + PHRASE158>
 308 PHRASE116
 309                     <FRAME '\1aFREE-TEMP>
 310                     <FRAME '\1aGEN>
 311                     <PUSH TEMP22>
 312                     <DEAD TEMP22>
 313                     <PUSH 'DONT-CARE>
 314                     <CALL '\1aGEN 2 = TEMP22>
 315                     <PUSH TEMP22>
 316                     <PUSH %<>>
 317                     <CALL '\1aFREE-TEMP 2>
 318                     <FRAME '\1aIEMIT>
 319                     <PUSH '`CONS>
 320                     <FRAME '\1aATOMCHK>
 321                     <PUSH TEMP22>
 322                     <DEAD TEMP22>
 323                     <CALL '\1aATOMCHK 1 = STACK>
 324                     <PUSH ()>
 325                     <PUSH '=>
 326                     <FRAME '\1aGEN-TEMP>
 327                     <PUSH 'LIST>
 328                     <CALL '\1aGEN-TEMP 1 = TEMP22>
 329                     <PUSH TEMP22>
 330                     <CALL '\1aIEMIT 5>
 331                     <TYPE? OOPSF15 <TYPE-CODE FALSE> + PHRASE147>
 332                     <FRAME '\1aEMPTY-LIST>
 333                     <PUSH SUGGEST18>
 334                     <FRAME '\1aMAKE-TAG>
 335                     <CALL '\1aMAKE-TAG 0 = TG116>
 336                     <PUSH TG116>
 337                     <PUSH 'T>
 338                     <CALL '\1aEMPTY-LIST 3>
 339 PHRASE147
 340                     <FRAME '\1aIEMIT>
 341                     <PUSH '`PUTREST>
 342                     <PUSH SUGGEST18>
 343                     <PUSH TEMP22>
 344                     <CALL '\1aIEMIT 3>
 345                     <TYPE? OOPSF15 <TYPE-CODE FALSE> + PHRASE152>
 346                     <FRAME '\1aBRANCH-TAG>
 347                     <FRAME '\1aMAKE-TAG>
 348                     <CALL '\1aMAKE-TAG 0 = N39>
 349                     <PUSH N39>
 350                     <CALL '\1aBRANCH-TAG 1>
 351                     <FRAME '\1aLABEL-TAG>
 352                     <PUSH TG116>
 353                     <CALL '\1aLABEL-TAG 1>
 354                     <FRAME '\1aSET-TEMP>
 355                     <PUSH TEMP43>
 356                     <PUSH TEMP22>
 357                     <DEAD TEMP22>
 358                     <CALL '\1aSET-TEMP 2>
 359                     <FRAME '\1aLABEL-TAG>
 360                     <PUSH N39>
 361                     <DEAD N39>
 362                     <CALL '\1aLABEL-TAG 1>
 363                     <JUMP + PHRASE158>
 364 PHRASE152
 365                     <EQUAL? SUGGEST18 TEMP43 + PHRASE160>
 366                     <FRAME '\1aFREE-TEMP>
 367                     <PUSH SUGGEST18>
 368                     <DEAD SUGGEST18>
 369                     <CALL '\1aFREE-TEMP 1>
 370 PHRASE160
 371                     <SET SUGGEST18 TEMP22>
 372                     <DEAD TEMP22>
 373 PHRASE158
 374                     <RESTL K6 1 = K6 (TYPE LIST)>
 375                     <JUMP + MAP105>
 376 MAPAP108
 377                     <EQUAL? TEMP43 SUGGEST18 + PHRASE163>
 378                     <FRAME '\1aFREE-TEMP>
 379                     <PUSH SUGGEST18>
 380                     <DEAD SUGGEST18>
 381                     <CALL '\1aFREE-TEMP 1>
 382 PHRASE163
 383                     <FRAME '\1aMOVE-ARG>
 384                     <PUSH TEMP43>
 385                     <DEAD TEMP43>
 386                     <PUSH W5>
 387                     <DEAD W5>
 388                     <CALL '\1aMOVE-ARG 2 = OOPSF15>
 389                     <RETURN OOPSF15>
 390                     <DEAD OOPSF15>
 391                     <END \1aLIST-BUILD>
 392
 393 #WORD *21245437214*
 394                     <GFCN \1aSEG-BUILD-LIST ("VALUE" ANY NODE ANY ANY ANY ANY) NOD4 DAT5 FLG6 FST7 SMQ8>
 395                     <TEMP TYP9 TG210 ITYP11 TPS12 ET13 ML14:FIX D320 TEM18 FDAT21:TEMP TEMP69 TEMP76:ATOM TG315>
 396                     <INTGO>
 397                     <NTHUV NOD4 3 = TYP9>
 398                     <FRAME '\1aMAKE-TAG>
 399                     <CALL '\1aMAKE-TAG 0 = TG210>
 400                     <FRAME '\1aISTYPE?>
 401                     <PUSH TYP9>
 402                     <CALL '\1aISTYPE? 1 = ITYP11>
 403                     <FRAME '\1aSTRUCTYP>
 404                     <PUSH TYP9>
 405                     <CALL '\1aSTRUCTYP 1 = TPS12>
 406                     <FRAME '\1aGET-ELE-TYPE>
 407                     <PUSH TYP9>
 408                     <PUSH 'ALL>
 409                     <CALL '\1aGET-ELE-TYPE 2 = ET13>
 410                     <FRAME '\1aMINL>
 411                     <PUSH TYP9>
 412                     <DEAD TYP9>
 413                     <CALL '\1aMINL 1 = ML14>
 414                     <FRAME '\1aMAKE-TAG>
 415                     <CALL '\1aMAKE-TAG 0 = TYP9>
 416                     <SET D320 DAT5>
 417                     <TYPE? D320 <TYPE-CODE TEMP> - PHRASE29>
 418                     <FRAME '\1aUSE-TEMP>
 419                     <PUSH D320>
 420                     <PUSH 'LIST>
 421                     <CALL '\1aUSE-TEMP 2>
 422 PHRASE29
 423                     <FRAME '\1aISTYPE-GOOD?>
 424                     <PUSH ET13>
 425                     <DEAD ET13>
 426                     <CALL '\1aISTYPE-GOOD? 1>
 427                     <FRAME '\1aGEN>
 428                     <PUSH NOD4>
 429                     <DEAD NOD4>
 430                     <FRAME '\1aGEN-TEMP>
 431                     <PUSH %<>>
 432                     <CALL '\1aGEN-TEMP 1 = STACK>
 433                     <CALL '\1aGEN 2 = ET13>
 434                     <TYPE? FST7 <TYPE-CODE FALSE> - BOOL36>
 435                     <TYPE? FLG6 <TYPE-CODE FALSE> - PHRASE35>
 436 BOOL36
 437                     <VEQUAL? ML14 0 - PHRASE38 (TYPE FIX)>
 438                     <FRAME '\1aMOVE-ARG>
 439                     <PUSH DAT5>
 440                     <DEAD DAT5>
 441                     <FRAME '\1aGEN-TEMP>
 442                     <PUSH %<>>
 443                     <CALL '\1aGEN-TEMP 1 = STACK>
 444                     <CALL '\1aMOVE-ARG 2 = DAT5>
 445                     <FRAME '\1aMT-TEST>
 446                     <PUSH ET13>
 447                     <PUSH TYP9>
 448                     <PUSH TPS12>
 449                     <PUSH ITYP11>
 450                     <CALL '\1aMT-TEST 4>
 451                     <JUMP + PHRASE44>
 452 PHRASE38
 453                     <FRAME '\1aGEN-TEMP>
 454                     <CALL '\1aGEN-TEMP 0 = DAT5>
 455 PHRASE44
 456                     <FRAME '\1aNTH-DO>
 457                     <PUSH TPS12>
 458                     <PUSH ET13>
 459                     <FRAME '\1aGEN-TEMP>
 460                     <CALL '\1aGEN-TEMP 0 = TEM18>
 461                     <PUSH TEM18>
 462                     <PUSH 1>
 463                     <CALL '\1aNTH-DO 4>
 464                     <FRAME '\1aFREE-TEMP>
 465                     <PUSH TEM18>
 466                     <PUSH %<>>
 467                     <CALL '\1aFREE-TEMP 2>
 468                     <FRAME '\1aIEMIT>
 469                     <PUSH '`CONS>
 470                     <PUSH TEM18>
 471                     <DEAD TEM18>
 472                     <PUSH D320>
 473                     <PUSH '=>
 474                     <FRAME '\1aGEN-TEMP>
 475                     <PUSH 'LIST>
 476                     <CALL '\1aGEN-TEMP 1 = FDAT21>
 477                     <PUSH FDAT21>
 478                     <CALL '\1aIEMIT 5>
 479                     <FRAME '\1aSET-TEMP>
 480                     <PUSH DAT5>
 481                     <PUSH FDAT21>
 482                     <CALL '\1aSET-TEMP 2>
 483                     <FRAME '\1aFREE-TEMP>
 484                     <PUSH DAT5>
 485                     <CALL '\1aFREE-TEMP 1>
 486                     <JUMP + PHRASE53>
 487 PHRASE35
 488                     <FRAME '\1aSET-TEMP>
 489                     <FRAME '\1aGEN-TEMP>
 490                     <PUSH %<>>
 491                     <CALL '\1aGEN-TEMP 1 = FDAT21>
 492                     <PUSH FDAT21>
 493                     <PUSH DAT5>
 494                     <CALL '\1aSET-TEMP 2>
 495 PHRASE53
 496                     <TYPE? FST7 <TYPE-CODE FALSE> - BOOL58>
 497                     <TYPE? FLG6 <TYPE-CODE FALSE> - PHRASE57>
 498 BOOL58
 499                     <FRAME '\1a1REST>
 500                     <PUSH ET13>
 501                     <DEAD ET13>
 502                     <PUSH TPS12>
 503                     <CALL '\1a1REST 2 = ET13>
 504 PHRASE57
 505                     <GRTR? ML14 1 + PHRASE61 (TYPE FIX)>
 506                     <FRAME '\1aMT-TEST>
 507                     <PUSH ET13>
 508                     <PUSH TYP9>
 509                     <PUSH TPS12>
 510                     <PUSH ITYP11>
 511                     <CALL '\1aMT-TEST 4>
 512 PHRASE61
 513                     <FRAME '\1aIEMIT>
 514                     <PUSH '`LOOP>
 515                     <TYPE? TPS12 <TYPE-CODE FALSE> - PHRASE67>
 516                     <CONS 'LENGTH () = TEM18>
 517                     <CONS 'VALUE TEM18 = TEM18>
 518                     <CONS 'TYPE TEM18 = TEM18>
 519                     <NTHUV ET13 1 = TEMP69 (TYPE ATOM)>
 520                     <CONS TEMP69 TEM18 = TEM18>
 521                     <DEAD TEMP69>
 522                     <JUMP + PHRASE71>
 523 PHRASE67
 524                     <EQUAL? TPS12 'LIST - PHRASE70>
 525                     <CONS 'VALUE () = TEM18>
 526                     <NTHUV ET13 1 = TEMP69 (TYPE ATOM)>
 527                     <CONS TEMP69 TEM18 = TEM18>
 528                     <DEAD TEMP69>
 529                     <JUMP + PHRASE71>
 530 PHRASE70
 531                     <CONS 'LENGTH () = TEM18>
 532                     <CONS 'VALUE TEM18 = TEM18>
 533                     <NTHUV ET13 1 = TEMP69 (TYPE ATOM)>
 534                     <CONS TEMP69 TEM18 = TEM18>
 535                     <DEAD TEMP69>
 536 PHRASE71
 537                     <PUSH TEM18>
 538                     <DEAD TEM18>
 539                     <CONS 'VALUE () = TEM18>
 540                     <NTHUV FDAT21 1 = TEMP69 (TYPE ATOM)>
 541                     <CONS TEMP69 TEM18 = STACK>
 542                     <DEAD TEMP69 TEM18>
 543                     <SET TEMP69 3 (TYPE FIX)>
 544                     <TYPE? FLG6 <TYPE-CODE FALSE> - PHRASE73>
 545                     <TYPE? D320 <TYPE-CODE TEMP> - PHRASE73>
 546                     <CONS 'VALUE () = TEM18>
 547                     <NTHUV D320 1 = TEMP76 (TYPE ATOM)>
 548                     <CONS TEMP76 TEM18 = TEM18>
 549                     <DEAD TEMP76>
 550                     <CONS TEM18 () = TEM18>
 551                     <JUMP + PHRASE77>
 552 PHRASE73
 553                     <SET TEM18 () (TYPE LIST)>
 554 PHRASE77
 555                     <LOOP (TEM18 VALUE) (TEMP69 VALUE)>
 556 TAG78
 557                     <INTGO>
 558                     <EMPL? TEM18 + TAG65>
 559                     <NTHL TEM18 1 = STACK>
 560                     <RESTL TEM18 1 = TEM18 (TYPE LIST)>
 561                     <ADD TEMP69 1 = TEMP69 (TYPE FIX)>
 562                     <JUMP + TAG78>
 563 TAG65
 564                     <CALL '\1aIEMIT TEMP69>
 565                     <DEAD TEMP69>
 566                     <FRAME '\1aLABEL-TAG>
 567                     <PUSH TG210>
 568                     <CALL '\1aLABEL-TAG 1>
 569                     <FRAME '\1aNTH-DO>
 570                     <PUSH TPS12>
 571                     <PUSH ET13>
 572                     <FRAME '\1aGEN-TEMP>
 573                     <CALL '\1aGEN-TEMP 0 = TEM18>
 574                     <PUSH TEM18>
 575                     <PUSH 1>
 576                     <CALL '\1aNTH-DO 4>
 577                     <FRAME '\1aIEMIT>
 578                     <PUSH '`CONS>
 579                     <PUSH TEM18>
 580                     <TYPE? FLG6 <TYPE-CODE FALSE> + PHRASE85>
 581                     <SET TEMP69 () (TYPE LIST)>
 582                     <JUMP + PHRASE86>
 583 PHRASE85
 584                     <SET TEMP69 D320>
 585                     <DEAD D320>
 586 PHRASE86
 587                     <PUSH TEMP69>
 588                     <DEAD TEMP69>
 589                     <PUSH '=>
 590                     <PUSH TEM18>
 591                     <CALL '\1aIEMIT 5>
 592                     <TYPE? SMQ8 <TYPE-CODE FALSE> + PHRASE88>
 593                     <FRAME '\1aEMPTY-LIST>
 594                     <PUSH FDAT21>
 595                     <FRAME '\1aMAKE-TAG>
 596                     <CALL '\1aMAKE-TAG 0 = TG315>
 597                     <PUSH TG315>
 598                     <PUSH 'T>
 599                     <CALL '\1aEMPTY-LIST 3>
 600 PHRASE88
 601                     <FRAME '\1aIEMIT>
 602                     <PUSH '`PUTREST>
 603                     <PUSH FDAT21>
 604                     <PUSH TEM18>
 605                     <CALL '\1aIEMIT 3>
 606                     <TYPE? SMQ8 <TYPE-CODE FALSE> + PHRASE93>
 607                     <FRAME '\1aBRANCH-TAG>
 608                     <FRAME '\1aMAKE-TAG>
 609                     <CALL '\1aMAKE-TAG 0 = D320>
 610                     <PUSH D320>
 611                     <CALL '\1aBRANCH-TAG 1>
 612                     <FRAME '\1aLABEL-TAG>
 613                     <PUSH TG315>
 614                     <DEAD TG315>
 615                     <CALL '\1aLABEL-TAG 1>
 616                     <FRAME '\1aEMPTY-LIST>
 617                     <PUSH FDAT21>
 618                     <PUSH D320>
 619                     <DEAD D320>
 620                     <PUSH %<>>
 621                     <CALL '\1aEMPTY-LIST 3>
 622                     <FRAME '\1aSET-TEMP>
 623                     <PUSH SMQ8>
 624                     <DEAD SMQ8>
 625                     <PUSH TEM18>
 626                     <CALL '\1aSET-TEMP 2>
 627 PHRASE93
 628                     <FRAME '\1aSET-TEMP>
 629                     <PUSH FDAT21>
 630                     <PUSH TEM18>
 631                     <CALL '\1aSET-TEMP 2>
 632                     <FRAME '\1aFREE-TEMP>
 633                     <PUSH FDAT21>
 634                     <CALL '\1aFREE-TEMP 1>
 635                     <FRAME '\1aFREE-TEMP>
 636                     <PUSH TEM18>
 637                     <DEAD TEM18>
 638                     <CALL '\1aFREE-TEMP 1>
 639                     <FRAME '\1aREST-N-JMP>
 640                     <PUSH ET13>
 641                     <PUSH TPS12>
 642                     <DEAD TPS12>
 643                     <PUSH TG210>
 644                     <DEAD TG210>
 645                     <PUSH ET13>
 646                     <PUSH ITYP11>
 647                     <DEAD ITYP11>
 648                     <CALL '\1aREST-N-JMP 5>
 649                     <FRAME '\1aLABEL-TAG>
 650                     <PUSH TYP9>
 651                     <DEAD TYP9>
 652                     <CALL '\1aLABEL-TAG 1>
 653                     <FRAME '\1aFREE-TEMP>
 654                     <PUSH ET13>
 655                     <DEAD ET13>
 656                     <CALL '\1aFREE-TEMP 1>
 657                     <TYPE? FLG6 <TYPE-CODE FALSE> + PHRASE106>
 658                     <TYPE? FST7 <TYPE-CODE FALSE> + PHRASE106>
 659                     <DEAD FST7>
 660                     <VEQUAL? ML14 0 - TAG108 (TYPE FIX)>
 661                     <DEAD ML14>
 662                     <SET TEMP69 'T (TYPE ATOM)>
 663                     <JUMP + TAG111>
 664 TAG108
 665                     <SET TEMP69 %<> (TYPE FALSE)>
 666 TAG111
 667                     <CONS TEMP69 () = TEM18>
 668                     <DEAD TEMP69>
 669                     <CONS FDAT21 TEM18 = TEM18>
 670                     <DEAD FDAT21>
 671                     <CONS DAT5 TEM18 = TEM18>
 672                     <DEAD DAT5>
 673                     <RETURN TEM18>
 674                     <DEAD TEM18>
 675 PHRASE106
 676                     <TYPE? FLG6 <TYPE-CODE FALSE> + PHRASE112>
 677                     <DEAD FLG6>
 678                     <RETURN FDAT21>
 679                     <DEAD FDAT21>
 680 PHRASE112
 681                     <FRAME '\1aFREE-TEMP>
 682                     <PUSH FDAT21>
 683                     <DEAD FDAT21>
 684                     <CALL '\1aFREE-TEMP 1>
 685                     <RETURN DAT5>
 686                     <DEAD DAT5>
 687                     <END \1aSEG-BUILD-LIST>
 688
 689 #WORD *17620227635*
 690                     <GFCN \1aMT-TEST ("VALUE" ANY ANY ANY ATOM ANY) D4 TG5 TP6 TYP7>
 691                     <TEMP TEMP9>
 692                     <INTGO>
 693                     <FRAME '\1aEMPTY-CHECK>
 694                     <PUSH TP6>
 695                     <DEAD TP6>
 696                     <PUSH D4>
 697                     <DEAD D4>
 698                     <PUSH TYP7>
 699                     <DEAD TYP7>
 700                     <PUSH 'T>
 701                     <PUSH TG5>
 702                     <DEAD TG5>
 703                     <CALL '\1aEMPTY-CHECK 5 = TEMP9>
 704                     <RETURN TEMP9>
 705                     <DEAD TEMP9>
 706                     <END \1aMT-TEST>
 707
 708 #WORD *1223203161*
 709                     <GFCN \1a1REST ("VALUE" ANY ANY ATOM) D4 TP5>
 710                     <TEMP>
 711                     <INTGO>
 712                     <FRAME '\1aREST-DO>
 713                     <PUSH TP5>
 714                     <DEAD TP5>
 715                     <PUSH D4>
 716                     <PUSH D4>
 717                     <PUSH 1>
 718                     <CALL '\1aREST-DO 4>
 719                     <RETURN D4>
 720                     <DEAD D4>
 721                     <END \1a1REST>
 722
 723 #WORD *1205147616*
 724                     <GFCN \1aREST-N-JMP ("VALUE" ATOM ANY ANY ANY ANY ANY) D4 TP5 TG6 D17 TYP8>
 725                     <TEMP>
 726                     <INTGO>
 727                     <FRAME '\1aREST-DO>
 728                     <PUSH TP5>
 729                     <PUSH D4>
 730                     <PUSH D17>
 731                     <DEAD D17>
 732                     <PUSH 1>
 733                     <CALL '\1aREST-DO 4>
 734                     <FRAME '\1aEMPTY-CHECK>
 735                     <PUSH TP5>
 736                     <DEAD TP5>
 737                     <PUSH D4>
 738                     <DEAD D4>
 739                     <PUSH TYP8>
 740                     <DEAD TYP8>
 741                     <PUSH %<>>
 742                     <PUSH TG6>
 743                     <DEAD TG6>
 744                     <CALL '\1aEMPTY-CHECK 5>
 745                     <RETURN 'T>
 746                     <END \1aREST-N-JMP>
 747
 748 <ENDPACKAGE>