mim/development/mim/mimc/peep.mima

   1
   2 <PACKAGE "PEEP">
   3
   4 <ENTRY PEEP>
   5
   6 <USE "NEWSTRUC" "COMPDEC" "ADVMESS" "CHKDCL" "NPRINT" "LIST-HACKS" "MIMGEN">
   7
   8 '<DEFMAC DEBUG ("ARGS" X) <FORM PROG () !.X>>
   9
  10 #WORD *347474732*
  11 <GFCN \1aPEEP ("VALUE" ATOM ANY) L4>
  12                     <TEMP>
  13                     <INTGO>
  14                     <FRAME '\1aPEEP-PASS1>
  15                     <PUSH L4>
  16                     <DEAD L4>
  17                     <CALL '\1aPEEP-PASS1 1>
  18                     <RETURN 'T>
  19                     <END \1aPEEP>
  20 #WORD *21020057746*
  21 <GFCN \1aPEEP-PASS1 ("VALUE" ANY LIST) L4>
  22                     <TEMP (EQV6:LIST ()) TEMP3:LBIND TEMP12 LBP10:LIST RETS11:LIST L21:LIST IT22 EQVP24 TEMP35 LN23 TEMP44 BF17 TEMP76 LBL93:ATOM M67 I69:FORM TEMP141>
  23                     <INTGO>
  24                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
  25                     <GEN-LVAL 'OUTCHAN = TEMP12>
  26                     <BBIND 'OUTCHAN 'CHANNEL 'FIX TEMP12>
  27                     <DEAD TEMP12>
  28                     <SETG 'CHANGED %<>>
  29                     <LOOP>
  30 AGAIN18
  31                     <INTGO>
  32                     <SET LBP10 () (TYPE LIST)>
  33                     <SET RETS11 () (TYPE LIST)>
  34                     <SET EQV6 () (TYPE LIST)>
  35                     <SET TEMP12 %<> (TYPE FALSE)>
  36                     <SET L21 L4>
  37                     <LOOP>
  38 AGAIN25
  39                     <INTGO>
  40                     <EMPL? L21 + EXIT19 (TYPE LIST)>
  41                     <NTHL L21 1 = IT22>
  42                     <TYPE? IT22 <TYPE-CODE ATOM> - PHRASE29>
  43                     <SET EQVP24 EQV6>
  44                     <EMPL? EQVP24 + TAG32>
  45                     <LOOP (IT22 VALUE) (EQVP24 VALUE)>
  46 TAG33
  47                     <NTHL EQVP24 1 = TEMP35>
  48                     <TYPE? TEMP35 <TYPE-CODE ATOM> - TAG34>
  49                     <VEQUAL? TEMP35 IT22 + BOOL30>
  50                     <DEAD TEMP35>
  51 TAG34
  52                     <RESTL EQVP24 1 = EQVP24 (TYPE LIST)>
  53                     <EMPL? EQVP24 - TAG33>
  54 TAG32
  55                     <CONS () EQV6 = TEMP35>
  56                     <DEAD EQV6>
  57                     <CONS IT22 TEMP35 = EQV6>
  58                     <DEAD TEMP35>
  59                     <SET EQVP24 EQV6>
  60 BOOL30
  61                     <RESTL L21 1 = LN23 (TYPE LIST)>
  62                     <CONS () LBP10 = TEMP35>
  63                     <DEAD LBP10>
  64                     <CONS L21 TEMP35 = TEMP35>
  65                     <CONS IT22 TEMP35 = LBP10>
  66                     <DEAD IT22 TEMP35>
  67                     <LOOP>
  68 AGAIN37
  69                     <INTGO>
  70                     <EMPL? LN23 + EXIT36 (TYPE LIST)>
  71                     <NTHL LN23 1 = IT22>
  72                     <TYPE? IT22 <TYPE-CODE ATOM> - EXIT36>
  73                     <DEAD IT22>
  74                     <SET TEMP12 'T (TYPE ATOM)>
  75                     <NTHL LN23 1 = STACK (TYPE ATOM)>
  76                     <SET TEMP44 1 (TYPE FIX)>
  77                     <RESTL EQVP24 1 = TEMP35 (TYPE LIST)>
  78                     <NTHL TEMP35 1 = IT22>
  79                     <DEAD TEMP35>
  80                     <TYPE IT22 = TEMP35>
  81                     <AND TEMP35 7 = TEMP35>
  82                     <VEQUAL? TEMP35 1 + TAG46>
  83                     <DEAD TEMP35>
  84                     <LOOP (IT22 TYPE VALUE LENGTH) (TEMP44 VALUE)>
  85 TAG52
  86                     <INTGO>
  87                     <EMPTY? IT22 + TAG51>
  88                     <NTH1 IT22 = STACK>
  89                     <REST1 IT22 = IT22>
  90                     <ADD TEMP44 1 = TEMP44 (TYPE FIX)>
  91                     <JUMP + TAG52>
  92 TAG51
  93                     <LIST TEMP44 = TEMP35 (TYPE LIST)>
  94                     <DEAD TEMP44>
  95                     <JUMP + TAG47>
  96 TAG46
  97                     <LOOP>
  98 TAG49
  99                     <VEQUAL? TEMP44 0 + TAG48>
 100                     <POP = TEMP35>
 101                     <CONS TEMP35 IT22 = IT22 (TYPE LIST)>
 102                     <DEAD TEMP35>
 103                     <SUB TEMP44 1 = TEMP44 (TYPE FIX)>
 104                     <JUMP + TAG49>
 105 TAG48
 106                     <SET TEMP35 IT22>
 107                     <DEAD IT22>
 108 TAG47
 109                     <RESTL EQVP24 1 = IT22 (TYPE LIST)>
 110                     <PUTL IT22 1 TEMP35>
 111                     <DEAD IT22 TEMP35>
 112                     <RESTL LN23 1 = LN23 (TYPE LIST)>
 113                     <JUMP + AGAIN37>
 114 EXIT36
 115                     <PUTREST L21 LN23>
 116                     <DEAD LN23>
 117                     <JUMP + PHRASE54>
 118 PHRASE29
 119                     <TYPE? IT22 <TYPE-CODE FORM> - PHRASE54>
 120                     <EMPL? IT22 + PHRASE54 (TYPE FORM)>
 121                     <NTHL IT22 1 = IT22>
 122                     <EQUAL? IT22 '`END + EXIT19>
 123                     <DEAD IT22>
 124 PHRASE54
 125                     <RESTL L21 1 = L21 (TYPE LIST)>
 126                     <JUMP + AGAIN25>
 127 EXIT19
 128                     <SET EQVP24 () (TYPE LIST)>
 129                     <SET TEMP35 () (TYPE LIST)>
 130                     <SET IT22 L4 (TYPE LIST)>
 131                     <LOOP>
 132 MAP57
 133                     <INTGO>
 134                     <EMPL? IT22 + MAPAP60>
 135                     <SET L21 IT22>
 136                     <NTHL L21 1 = TEMP44>
 137                     <TYPE? TEMP44 <TYPE-CODE ATOM> - PHRASE73>
 138                     <SET BF17 %<> (TYPE FALSE)>
 139                     <JUMP + PHRASE172>
 140 PHRASE73
 141                     <NTHL TEMP44 1 = TEMP76>
 142                     <EQUAL? TEMP76 '`END + MAPAP60>
 143                     <DEAD TEMP76>
 144                     <NTHL TEMP44 1 = TEMP76>
 145                     <EQUAL? TEMP76 '`OPT-DISPATCH + BOOL79>
 146                     <DEAD TEMP76>
 147                     <NTHL TEMP44 1 = TEMP76>
 148                     <EQUAL? TEMP76 '`DISPATCH - PHRASE78>
 149                     <DEAD TEMP76>
 150 BOOL79
 151                     <SET BF17 %<> (TYPE FALSE)>
 152                     <RESTL TEMP44 1 = TEMP76 (TYPE LIST)>
 153                     <RESTL TEMP76 1 = TEMP76 (TYPE LIST)>
 154                     <RESTL TEMP76 1 = TEMP76 (TYPE LIST)>
 155                     <CHTYPE TEMP76 <TYPE-CODE LIST> = TEMP76>
 156                     <LOOP>
 157 MAP81
 158                     <INTGO>
 159                     <EMPL? TEMP76 + MAPAP84>
 160                     <SET LN23 TEMP76>
 161                     <FRAME '\1aFIND-EQV>
 162                     <NTHL LN23 1 = STACK (TYPE ATOM)>
 163                     <PUSH EQV6>
 164                     <CALL '\1aFIND-EQV 2 = LBL93>
 165                     <PUTL LN23 1 LBL93>
 166                     <DEAD LN23>
 167                     <FRAME '\1aBUILD-LABEL-TABLE>
 168                     <PUSH LBL93>
 169                     <DEAD LBL93>
 170                     <PUSH LBP10>
 171                     <PUSH L21>
 172                     <CALL '\1aBUILD-LABEL-TABLE 3>
 173                     <RESTL TEMP76 1 = TEMP76 (TYPE LIST)>
 174                     <JUMP + MAP81>
 175 MAPAP84
 176                     <RESTL TEMP44 1 = LN23 (TYPE LIST)>
 177                     <DEAD TEMP44>
 178                     <RESTL LN23 1 = LN23 (TYPE LIST)>
 179                     <RESTL LN23 1 = L21 (TYPE LIST)>
 180                     <DEAD LN23>
 181                     <CHTYPE L21 <TYPE-CODE LIST> = L21>
 182                     <LOOP (L21 VALUE)>
 183 TAG100
 184                     <INTGO>
 185                     <EMPL? L21 + PHRASE172>
 186                     <NTHL L21 1 = LN23>
 187                     <CONS LN23 () = LN23 (TYPE LIST)>
 188                     <EMPL? EQVP24 - TAG101>
 189                     <SET EQVP24 LN23 (TYPE LIST)>
 190                     <JUMP + TAG102>
 191 TAG101
 192                     <PUTREST TEMP35 LN23>
 193                     <DEAD TEMP35>
 194 TAG102
 195                     <SET TEMP35 LN23 (TYPE LIST)>
 196                     <DEAD LN23>
 197                     <RESTL L21 1 = L21 (TYPE LIST)>
 198                     <JUMP + TAG100>
 199 PHRASE78
 200                     <SET M67 TEMP44>
 201                     <CHTYPE M67 <TYPE-CODE LIST> = M67>
 202                     <LOOP (M67 VALUE)>
 203 TAG107
 204                     <NTHL M67 1 = LN23>
 205                     <TYPE? LN23 <TYPE-CODE ATOM> - TAG108>
 206                     <VEQUAL? LN23 '+ + BOOL104>
 207                     <DEAD LN23>
 208 TAG108
 209                     <RESTL M67 1 = M67 (TYPE LIST)>
 210                     <EMPL? M67 - TAG107>
 211                     <CHTYPE TEMP44 <TYPE-CODE LIST> = TEMP76>
 212                     <LOOP (TEMP76 VALUE)>
 213 TAG111
 214                     <NTHL TEMP76 1 = LN23>
 215                     <TYPE? LN23 <TYPE-CODE ATOM> - TAG112>
 216                     <VEQUAL? LN23 '- + TAG109>
 217                     <DEAD LN23>
 218 TAG112
 219                     <RESTL TEMP76 1 = TEMP76 (TYPE LIST)>
 220                     <EMPL? TEMP76 - TAG111>
 221                     <JUMP + TAG110>
 222 TAG109
 223                     <SET M67 TEMP76>
 224                     <DEAD TEMP76>
 225                     <JUMP + BOOL104>
 226 TAG110
 227                     <NTHL TEMP44 1 = TEMP76>
 228                     <EQUAL? TEMP76 '`NTHR - PHRASE159>
 229                     <DEAD TEMP76>
 230                     <SET BF17 TEMP44>
 231                     <LOOP (BF17 VALUE)>
 232 TAG114
 233                     <RESTL BF17 1 = TEMP76 (TYPE LIST)>
 234                     <EMPL? TEMP76 + TAG115>
 235                     <SET BF17 TEMP76>
 236                     <DEAD TEMP76>
 237                     <JUMP + TAG114>
 238 TAG115
 239                     <NTHL BF17 1 = BF17>
 240                     <TYPE? BF17 <TYPE-CODE LIST> - PHRASE159>
 241                     <NTHL BF17 1 = TEMP76>
 242                     <EQUAL? TEMP76 '`BRANCH-FALSE - PHRASE159>
 243                     <DEAD TEMP76>
 244                     <RESTL BF17 1 = M67 (TYPE LIST)>
 245                     <DEAD BF17>
 246                     <SET BF17 M67>
 247 BOOL104
 248                     <FRAME '\1aFIND-EQV>
 249                     <RESTL M67 1 = TEMP76 (TYPE LIST)>
 250                     <NTHL TEMP76 1 = STACK (TYPE ATOM)>
 251                     <DEAD TEMP76>
 252                     <PUSH EQV6>
 253                     <CALL '\1aFIND-EQV 2 = LBL93>
 254                     <SET LN23 L4>
 255                     <EMPL? LN23 + TAG118>
 256                     <LOOP (LBL93 VALUE) (LN23 VALUE)>
 257 TAG120
 258                     <NTHL LN23 1 = TEMP76>
 259                     <TYPE? TEMP76 <TYPE-CODE ATOM> - TAG121>
 260                     <VEQUAL? TEMP76 LBL93 + TAG119>
 261                     <DEAD TEMP76>
 262 TAG121
 263                     <RESTL LN23 1 = LN23 (TYPE LIST)>
 264                     <EMPL? LN23 - TAG120>
 265 TAG118
 266                     <SET LN23 %<> (TYPE FALSE)>
 267                     <JUMP + PHRASE117>
 268 TAG119
 269                     <RESTL M67 1 = TEMP76 (TYPE LIST)>
 270                     <PUTL TEMP76 1 LBL93>
 271                     <DEAD TEMP76>
 272                     <JUMP + PHRASE126>
 273 PHRASE117
 274                     <VEQUAL? LBL93 '`COMPERR + BOOL124>
 275                     <VEQUAL? LBL93 '`UNWCONT - PHRASE123>
 276 BOOL124
 277                     <SET BF17 %<> (TYPE FALSE)>
 278                     <JUMP + PHRASE172>
 279 PHRASE123
 280                     <FRAME '\1aCOMPILE-LOSSAGE>
 281                     <PUSH "Bad label: ">
 282                     <PUSH LBL93>
 283                     <PUSH M67>
 284                     <PUSH L4>
 285                     <CALL '\1aCOMPILE-LOSSAGE 4>
 286 PHRASE126
 287                     <FRAME '\1aNEXTINS>
 288                     <PUSH LN23>
 289                     <DEAD LN23>
 290                     <CALL '\1aNEXTINS 1 = TEMP76>
 291                     <NTHL TEMP76 1 = I69 (TYPE FORM)>
 292                     <DEAD TEMP76>
 293                     <NTHL I69 1 = TEMP76>
 294                     <EQUAL? TEMP76 '`JUMP - PHRASE129>
 295                     <DEAD TEMP76>
 296                     <SET BF17 %<> (TYPE FALSE)>
 297                     <FRAME '\1aFIND-EQV>
 298                     <RESTL I69 1 = TEMP76 (TYPE LIST)>
 299                     <DEAD I69>
 300                     <RESTL TEMP76 1 = TEMP76 (TYPE LIST)>
 301                     <NTHL TEMP76 1 = STACK (TYPE ATOM)>
 302                     <DEAD TEMP76>
 303                     <PUSH EQV6>
 304                     <CALL '\1aFIND-EQV 2 = LBL93>
 305                     <RESTL M67 1 = TEMP76 (TYPE LIST)>
 306                     <DEAD M67>
 307                     <PUTL TEMP76 1 LBL93>
 308                     <DEAD TEMP76>
 309                     <SET TEMP12 'T (TYPE ATOM)>
 310                     <FRAME '\1aBUILD-LABEL-TABLE>
 311                     <PUSH LBL93>
 312                     <PUSH LBP10>
 313                     <PUSH L21>
 314                     <DEAD L21>
 315                     <CALL '\1aBUILD-LABEL-TABLE 3>
 316                     <CONS LBL93 () = TEMP76 (TYPE LIST)>
 317                     <DEAD LBL93>
 318                     <EMPL? EQVP24 - TAG134>
 319                     <SET EQVP24 TEMP76 (TYPE LIST)>
 320                     <JUMP + TAG135>
 321 TAG134
 322                     <PUTREST TEMP35 TEMP76>
 323                     <DEAD TEMP35>
 324 TAG135
 325                     <SET TEMP35 TEMP76 (TYPE LIST)>
 326                     <DEAD TEMP76>
 327                     <JUMP + PHRASE172>
 328 PHRASE129
 329                     <NTHL TEMP44 1 = TEMP76>
 330                     <EQUAL? TEMP76 '`JUMP - PHRASE136>
 331                     <DEAD TEMP76>
 332                     <NTHL I69 1 = TEMP76>
 333                     <SET LN23 [`RETURN `MRETURN `RTUPLE `AGAIN] (TYPE VECTOR)>
 334                     <TYPE? TEMP76 <TYPE-CODE ATOM> - PHRASE136>
 335                     <LOOP (TEMP76 VALUE) (LN23 LENGTH VALUE)>
 336 TAG139
 337                     <NTHUV LN23 1 = TEMP141>
 338                     <VEQUAL? TEMP141 TEMP76 + TAG138>
 339                     <DEAD TEMP141>
 340                     <RESTUV LN23 1 = LN23 (TYPE VECTOR)>
 341                     <EMPUV? LN23 - TAG139>
 342                     <JUMP + PHRASE136>
 343 TAG138
 344                     <FRAME '\1aFORM>
 345                     <SET TEMP76 0 (TYPE FIX)>
 346                     <SET LN23 I69>
 347                     <DEAD I69>
 348                     <LOOP (LN23 VALUE) (TEMP76 VALUE)>
 349 TAG143
 350                     <INTGO>
 351                     <EMPL? LN23 + TAG142>
 352                     <NTHL LN23 1 = STACK>
 353                     <RESTL LN23 1 = LN23 (TYPE LIST)>
 354                     <ADD TEMP76 1 = TEMP76 (TYPE FIX)>
 355                     <JUMP + TAG143>
 356 TAG142
 357                     <CALL '\1aFORM TEMP76 = TEMP76>
 358                     <PUTL L21 1 TEMP76>
 359                     <DEAD L21 TEMP76>
 360                     <SET TEMP12 'T (TYPE ATOM)>
 361                     <SET BF17 %<> (TYPE FALSE)>
 362                     <JUMP + PHRASE172>
 363 PHRASE136
 364                     <NTHL TEMP44 1 = TEMP76>
 365                     <DEAD TEMP44>
 366                     <EQUAL? TEMP76 '`JUMP + PHRASE146>
 367                     <DEAD TEMP76>
 368                     <RESTL L21 1 = LN23 (TYPE LIST)>
 369                     <EMPL? LN23 + PHRASE146 (TYPE LIST)>
 370                     <NTHL LN23 1 = TEMP76>
 371                     <TYPE? TEMP76 <TYPE-CODE ATOM> + PHRASE146>
 372                     <DEAD TEMP76>
 373                     <NTHL LN23 1 = I69 (TYPE FORM)>
 374                     <NTHL I69 1 = TEMP76>
 375                     <EQUAL? TEMP76 '`JUMP - PHRASE146>
 376                     <DEAD TEMP76>
 377                     <RESTL LN23 1 = TEMP44 (TYPE LIST)>
 378                     <EMPL? TEMP44 + PHRASE146 (TYPE LIST)>
 379                     <NTHL TEMP44 1 = TEMP76>
 380                     <TYPE? TEMP76 <TYPE-CODE ATOM> - PHRASE146>
 381                     <DEAD TEMP76>
 382                     <FRAME '\1aFIND-EQV>
 383                     <NTHL TEMP44 1 = STACK (TYPE ATOM)>
 384                     <PUSH EQV6>
 385                     <CALL '\1aFIND-EQV 2 = TEMP76>
 386                     <VEQUAL? TEMP76 LBL93 - PHRASE146>
 387                     <DEAD TEMP76>
 388                     <TYPE? BF17 <TYPE-CODE FALSE> - PHRASE146>
 389                     <NTHL M67 1 = TEMP76>
 390                     <EQUAL? TEMP76 '+ - PHRASE150>
 391                     <DEAD TEMP76>
 392                     <SET TEMP76 '- (TYPE ATOM)>
 393                     <JUMP + PHRASE151>
 394 PHRASE150
 395                     <SET TEMP76 '+ (TYPE ATOM)>
 396 PHRASE151
 397                     <PUTL M67 1 TEMP76>
 398                     <DEAD TEMP76>
 399                     <FRAME '\1aFIND-EQV>
 400                     <RESTL I69 1 = TEMP76 (TYPE LIST)>
 401                     <DEAD I69>
 402                     <RESTL TEMP76 1 = TEMP76 (TYPE LIST)>
 403                     <NTHL TEMP76 1 = STACK (TYPE ATOM)>
 404                     <DEAD TEMP76>
 405                     <PUSH EQV6>
 406                     <CALL '\1aFIND-EQV 2 = LBL93>
 407                     <RESTL M67 1 = TEMP76 (TYPE LIST)>
 408                     <DEAD M67>
 409                     <PUTL TEMP76 1 LBL93>
 410                     <DEAD TEMP76>
 411                     <FRAME '\1aFIND-EQV>
 412                     <NTHL TEMP44 1 = STACK (TYPE ATOM)>
 413                     <PUSH EQV6>
 414                     <CALL '\1aFIND-EQV 2 = TEMP76>
 415                     <PUTL LN23 1 TEMP76>
 416                     <DEAD TEMP76>
 417                     <FRAME '\1aPATCH-LABEL-TABLE>
 418                     <PUSH LBP10>
 419                     <NTHL LN23 1 = STACK (TYPE ATOM)>
 420                     <PUSH LN23>
 421                     <CALL '\1aPATCH-LABEL-TABLE 3>
 422                     <RESTL TEMP44 1 = TEMP76 (TYPE LIST)>
 423                     <DEAD TEMP44>
 424                     <PUTREST LN23 TEMP76>
 425                     <DEAD LN23 TEMP76>
 426                     <SET TEMP12 'T (TYPE ATOM)>
 427                     <FRAME '\1aBUILD-LABEL-TABLE>
 428                     <PUSH LBL93>
 429                     <PUSH LBP10>
 430                     <PUSH L21>
 431                     <DEAD L21>
 432                     <CALL '\1aBUILD-LABEL-TABLE 3>
 433                     <CONS LBL93 () = TEMP76 (TYPE LIST)>
 434                     <DEAD LBL93>
 435                     <EMPL? EQVP24 - TAG157>
 436                     <SET EQVP24 TEMP76 (TYPE LIST)>
 437                     <JUMP + TAG158>
 438 TAG157
 439                     <PUTREST TEMP35 TEMP76>
 440                     <DEAD TEMP35>
 441 TAG158
 442                     <SET TEMP35 TEMP76 (TYPE LIST)>
 443                     <DEAD TEMP76>
 444                     <JUMP + PHRASE172>
 445 PHRASE146
 446                     <EQUAL? BF17 M67 + PHRASE161>
 447                     <DEAD M67>
 448                     <SET BF17 %<> (TYPE FALSE)>
 449 PHRASE161
 450                     <FRAME '\1aBUILD-LABEL-TABLE>
 451                     <PUSH LBL93>
 452                     <PUSH LBP10>
 453                     <PUSH L21>
 454                     <DEAD L21>
 455                     <CALL '\1aBUILD-LABEL-TABLE 3>
 456                     <CONS LBL93 () = TEMP76 (TYPE LIST)>
 457                     <DEAD LBL93>
 458                     <EMPL? EQVP24 - TAG164>
 459                     <SET EQVP24 TEMP76 (TYPE LIST)>
 460                     <JUMP + TAG165>
 461 TAG164
 462                     <PUTREST TEMP35 TEMP76>
 463                     <DEAD TEMP35>
 464 TAG165
 465                     <SET TEMP35 TEMP76 (TYPE LIST)>
 466                     <DEAD TEMP76>
 467                     <JUMP + PHRASE172>
 468 PHRASE159
 469                     <NTHL TEMP44 1 = TEMP76>
 470                     <EQUAL? TEMP76 '`ICALL - PHRASE166>
 471                     <DEAD TEMP76>
 472                     <FRAME '\1aFIND-EQV>
 473                     <RESTL TEMP44 1 = TEMP76 (TYPE LIST)>
 474                     <NTHL TEMP76 1 = STACK (TYPE ATOM)>
 475                     <DEAD TEMP76>
 476                     <PUSH EQV6>
 477                     <CALL '\1aFIND-EQV 2 = LBL93>
 478                     <RESTL TEMP44 1 = TEMP76 (TYPE LIST)>
 479                     <DEAD TEMP44>
 480                     <PUTL TEMP76 1 LBL93>
 481                     <DEAD TEMP76>
 482                     <SET BF17 %<> (TYPE FALSE)>
 483                     <FRAME '\1aBUILD-LABEL-TABLE>
 484                     <PUSH LBL93>
 485                     <PUSH LBP10>
 486                     <PUSH L21>
 487                     <DEAD L21>
 488                     <CALL '\1aBUILD-LABEL-TABLE 3>
 489                     <CONS LBL93 () = TEMP76 (TYPE LIST)>
 490                     <DEAD LBL93>
 491                     <EMPL? EQVP24 - TAG170>
 492                     <SET EQVP24 TEMP76 (TYPE LIST)>
 493                     <JUMP + TAG171>
 494 TAG170
 495                     <PUTREST TEMP35 TEMP76>
 496                     <DEAD TEMP35>
 497 TAG171
 498                     <SET TEMP35 TEMP76 (TYPE LIST)>
 499                     <DEAD TEMP76>
 500                     <JUMP + PHRASE172>
 501 PHRASE166
 502                     <SET BF17 %<> (TYPE FALSE)>
 503 PHRASE172
 504                     <RESTL IT22 1 = IT22 (TYPE LIST)>
 505                     <JUMP + MAP57>
 506 MAPAP60
 507                     <SET EQV6 L4>
 508                     <SET L21 EQV6>
 509                     <LOOP>
 510 AGAIN183
 511                     <INTGO>
 512                     <EMPL? EQV6 + EXIT174 (TYPE LIST)>
 513                     <NTHL EQV6 1 = TEMP76>
 514                     <TYPE? TEMP76 <TYPE-CODE ATOM> - PHRASE186>
 515                     <DEAD TEMP76>
 516                     <NTHL EQV6 1 = TEMP76 (TYPE ATOM)>
 517                     <SET LN23 EQVP24>
 518                     <EMPL? LN23 + TAG188>
 519                     <LOOP (TEMP76 VALUE) (LN23 VALUE)>
 520 TAG189
 521                     <NTHL LN23 1 = TEMP141>
 522                     <TYPE? TEMP141 <TYPE-CODE ATOM> - TAG190>
 523                     <VEQUAL? TEMP141 TEMP76 + PHRASE186>
 524                     <DEAD TEMP141>
 525 TAG190
 526                     <RESTL LN23 1 = LN23 (TYPE LIST)>
 527                     <EMPL? LN23 - TAG189>
 528 TAG188
 529                     <RESTL EQV6 1 = LN23 (TYPE LIST)>
 530                     <PUTREST L21 LN23>
 531                     <DEAD LN23>
 532                     <SET TEMP12 'T (TYPE ATOM)>
 533                     <JUMP + PHRASE255>
 534 PHRASE186
 535                     <NTHL EQV6 1 = IT22>
 536                     <TYPE? IT22 <TYPE-CODE FORM> - PHRASE191>
 537                     <NTHL IT22 1 = LN23>
 538                     <EQUAL? LN23 '`END + EXIT174>
 539                     <DEAD LN23>
 540 PHRASE191
 541                     <TYPE? IT22 <TYPE-CODE FORM> - PHRASE193>
 542                     <SET TEMP35 IT22>
 543                     <CHTYPE TEMP35 <TYPE-CODE LIST> = TEMP35>
 544                     <EMPL? TEMP35 + TAG197>
 545                     <LOOP (TEMP35 VALUE)>
 546 TAG198
 547                     <NTHL TEMP35 1 = LN23>
 548                     <TYPE? LN23 <TYPE-CODE ATOM> - TAG199>
 549                     <VEQUAL? LN23 '+ + TAG201>
 550                     <DEAD LN23>
 551 TAG199
 552                     <RESTL TEMP35 1 = TEMP35 (TYPE LIST)>
 553                     <EMPL? TEMP35 - TAG198>
 554 TAG197
 555                     <SET TEMP35 IT22>
 556                     <CHTYPE TEMP35 <TYPE-CODE LIST> = TEMP35>
 557                     <EMPL? TEMP35 + TAG200>
 558                     <LOOP (TEMP35 VALUE)>
 559 TAG202
 560                     <NTHL TEMP35 1 = LN23>
 561                     <TYPE? LN23 <TYPE-CODE ATOM> - TAG203>
 562                     <VEQUAL? LN23 '- + TAG201>
 563                     <DEAD LN23>
 564 TAG203
 565                     <RESTL TEMP35 1 = TEMP35 (TYPE LIST)>
 566                     <EMPL? TEMP35 - TAG202>
 567 TAG200
 568                     <SET TEMP35 %<> (TYPE FALSE)>
 569 TAG201
 570                     <VEQUAL? TEMP35 0 + PHRASE193>
 571                     <SET LN23 EQV6>
 572                     <SET TEMP76 1 (TYPE FIX)>
 573                     <LOOP (LN23 VALUE) (TEMP76 VALUE)>
 574 TAG205
 575                     <EMPL? LN23 + PHRASE193>
 576                     <SUB TEMP76 1 = TEMP76 (TYPE FIX)>
 577                     <LESS? TEMP76 0 + TAG206>
 578                     <RESTL LN23 1 = LN23 (TYPE LIST)>
 579                     <JUMP + TAG205>
 580 TAG206
 581                     <RESTL EQV6 1 = TEMP76 (TYPE LIST)>
 582                     <NTHL TEMP76 1 = TEMP76>
 583                     <RESTL TEMP35 1 = LN23 (TYPE LIST)>
 584                     <DEAD TEMP35>
 585                     <NTHL LN23 1 = LN23>
 586                     <EQUAL? TEMP76 LN23 - PHRASE193>
 587                     <DEAD TEMP76 LN23>
 588                     <NTHL IT22 1 = TEMP35>
 589                     <EQUAL? TEMP35 '`SYSOP + PHRASE193>
 590                     <EQUAL? TEMP35 '`SCALL + PHRASE193>
 591                     <DEAD TEMP35>
 592                     <FRAME '\1aREMOVE-LABEL>
 593                     <PUSH LBP10>
 594                     <RESTL EQV6 1 = LN23 (TYPE LIST)>
 595                     <NTHL LN23 1 = STACK (TYPE ATOM)>
 596                     <DEAD LN23>
 597                     <PUSH EQV6>
 598                     <CALL '\1aREMOVE-LABEL 3>
 599                     <RESTL EQV6 1 = LN23 (TYPE LIST)>
 600                     <PUTREST L21 LN23>
 601                     <DEAD LN23>
 602                     <SET TEMP12 'T (TYPE ATOM)>
 603                     <JUMP + PHRASE255>
 604 PHRASE193
 605                     <TYPE? IT22 <TYPE-CODE FORM> - PHRASE208>
 606                     <NTHL IT22 1 = LN23>
 607                     <EQUAL? LN23 '`SET - PHRASE208>
 608                     <DEAD LN23>
 609                     <RESTL EQV6 1 = LN23 (TYPE LIST)>
 610                     <EMPL? LN23 + PHRASE208 (TYPE LIST)>
 611                     <DEAD LN23>
 612                     <RESTL EQV6 1 = LN23 (TYPE LIST)>
 613                     <NTHL LN23 1 = LN23>
 614                     <TYPE? LN23 <TYPE-CODE FORM> - PHRASE208>
 615                     <DEAD LN23>
 616                     <RESTL EQV6 1 = LN23 (TYPE LIST)>
 617                     <NTHL LN23 1 = LN23 (TYPE FORM)>
 618                     <NTHL LN23 1 = LN23>
 619                     <EQUAL? LN23 '`RETURN - PHRASE208>
 620                     <DEAD LN23>
 621                     <RESTL IT22 1 = LN23 (TYPE LIST)>
 622                     <NTHL LN23 1 = LN23>
 623                     <RESTL EQV6 1 = TEMP76 (TYPE LIST)>
 624                     <NTHL TEMP76 1 = TEMP76 (TYPE FORM)>
 625                     <RESTL TEMP76 1 = TEMP76 (TYPE LIST)>
 626                     <NTHL TEMP76 1 = TEMP76>
 627                     <EQUAL? LN23 TEMP76 - PHRASE208>
 628                     <DEAD LN23 TEMP76>
 629                     <RESTL EQV6 1 = TEMP76 (TYPE LIST)>
 630                     <NTHL TEMP76 1 = TEMP76 (TYPE FORM)>
 631                     <RESTL IT22 1 = LN23 (TYPE LIST)>
 632                     <DEAD IT22>
 633                     <RESTL LN23 1 = LN23 (TYPE LIST)>
 634                     <NTHL LN23 1 = LN23>
 635                     <RESTL TEMP76 1 = TEMP141 (TYPE LIST)>
 636                     <DEAD TEMP76>
 637                     <PUTL TEMP141 1 LN23>
 638                     <DEAD TEMP141 LN23>
 639                     <RESTL EQV6 1 = TEMP76 (TYPE LIST)>
 640                     <PUTREST L21 TEMP76>
 641                     <DEAD TEMP76>
 642                     <JUMP + PHRASE255>
 643 PHRASE208
 644                     <TYPE? IT22 <TYPE-CODE FORM> - PHRASE210>
 645                     <NTHL IT22 1 = TEMP76>
 646                     <EQUAL? TEMP76 '`RETURN - BOOL213>
 647                     <DEAD TEMP76>
 648                     <CONS EQV6 RETS11 = RETS11>
 649                     <JUMP + TAG214>
 650 BOOL213
 651                     <NTHL IT22 1 = TEMP76>
 652                     <SET LN23 [`JUMP `RTUPLE `MRETURN `AGAIN] (TYPE VECTOR)>
 653                     <TYPE? TEMP76 <TYPE-CODE ATOM> - PHRASE210>
 654                     <LOOP (TEMP76 VALUE) (LN23 LENGTH VALUE)>
 655 TAG215
 656                     <NTHUV LN23 1 = TEMP141>
 657                     <VEQUAL? TEMP141 TEMP76 + TAG214>
 658                     <DEAD TEMP141>
 659                     <RESTUV LN23 1 = LN23 (TYPE VECTOR)>
 660                     <EMPUV? LN23 - TAG215>
 661                     <JUMP + PHRASE210>
 662 TAG214
 663                     <SET LN23 EQV6>
 664                     <SET TEMP76 1 (TYPE FIX)>
 665                     <LOOP (LN23 VALUE) (TEMP76 VALUE)>
 666 TAG218
 667                     <EMPL? LN23 + PHRASE210>
 668                     <SUB TEMP76 1 = TEMP76 (TYPE FIX)>
 669                     <LESS? TEMP76 0 + TAG219>
 670                     <RESTL LN23 1 = LN23 (TYPE LIST)>
 671                     <JUMP + TAG218>
 672 TAG219
 673                     <RESTL EQV6 1 = TEMP76 (TYPE LIST)>
 674                     <NTHL TEMP76 1 = IT22>
 675                     <DEAD TEMP76>
 676                     <TYPE? IT22 <TYPE-CODE ATOM> + PHRASE210>
 677                     <TYPE? IT22 <TYPE-CODE FORM> - TAG221>
 678                     <EMPL? IT22 + TAG221>
 679                     <NTHL IT22 1 = TEMP76>
 680                     <SET LN23 [`END `DEAD `ENDIF] (TYPE VECTOR)>
 681                     <TYPE? TEMP76 <TYPE-CODE ATOM> - TAG221>
 682                     <LOOP (TEMP76 VALUE) (LN23 LENGTH VALUE)>
 683 TAG222
 684                     <NTHUV LN23 1 = TEMP141>
 685                     <VEQUAL? TEMP141 TEMP76 + PHRASE210>
 686                     <DEAD TEMP141>
 687                     <RESTUV LN23 1 = LN23 (TYPE VECTOR)>
 688                     <EMPUV? LN23 - TAG222>
 689 TAG221
 690                     <RESTL EQV6 1 = TEMP76 (TYPE LIST)>
 691                     <RESTL TEMP76 1 = LN23 (TYPE LIST)>
 692                     <DEAD TEMP76>
 693                     <PUTREST EQV6 LN23>
 694                     <DEAD LN23>
 695                     <SET L21 EQV6>
 696                     <SET TEMP12 'T (TYPE ATOM)>
 697                     <JUMP + PHRASE255>
 698 PHRASE210
 699                     <TYPE? IT22 <TYPE-CODE FORM> - PHRASE224>
 700                     <NTHL IT22 1 = LN23>
 701                     <EQUAL? LN23 '`CHTYPE - PHRASE224>
 702                     <DEAD LN23>
 703                     <RESTL EQV6 1 = LN23 (TYPE LIST)>
 704                     <NTHL LN23 1 = TEMP35>
 705                     <DEAD LN23>
 706                     <TYPE? TEMP35 <TYPE-CODE FORM> - PHRASE224>
 707                     <NTHL TEMP35 1 = LN23>
 708                     <EQUAL? LN23 '`CHTYPE - PHRASE224>
 709                     <DEAD LN23>
 710                     <RESTL TEMP35 1 = LN23 (TYPE LIST)>
 711                     <NTHL LN23 1 = LN23>
 712                     <NTHL TEMP35 5 = TEMP76>
 713                     <EQUAL? LN23 TEMP76 - PHRASE224>
 714                     <DEAD LN23 TEMP76>
 715                     <RESTL TEMP35 1 = TEMP76 (TYPE LIST)>
 716                     <NTHL TEMP76 1 = TEMP76>
 717                     <NTHL IT22 5 = LN23>
 718                     <EQUAL? TEMP76 LN23 - PHRASE224>
 719                     <DEAD TEMP76 LN23>
 720                     <RESTL TEMP35 1 = LN23 (TYPE LIST)>
 721                     <DEAD TEMP35>
 722                     <RESTL LN23 1 = LN23 (TYPE LIST)>
 723                     <NTHL LN23 1 = LN23>
 724                     <RESTL IT22 1 = TEMP76 (TYPE LIST)>
 725                     <DEAD IT22>
 726                     <RESTL TEMP76 1 = TEMP76 (TYPE LIST)>
 727                     <PUTL TEMP76 1 LN23>
 728                     <DEAD TEMP76 LN23>
 729                     <RESTL EQV6 1 = TEMP76 (TYPE LIST)>
 730                     <RESTL TEMP76 1 = LN23 (TYPE LIST)>
 731                     <DEAD TEMP76>
 732                     <PUTREST EQV6 LN23>
 733                     <DEAD LN23>
 734                     <SET L21 EQV6>
 735                     <SET TEMP12 'T (TYPE ATOM)>
 736                     <JUMP + PHRASE255>
 737 PHRASE224
 738                     <TYPE? IT22 <TYPE-CODE FORM> - PHRASE226>
 739                     <NTHL IT22 1 = LN23>
 740                     <EQUAL? LN23 '`SET - PHRASE226>
 741                     <DEAD LN23>
 742                     <RESTL IT22 1 = LN23 (TYPE LIST)>
 743                     <RESTL LN23 1 = LN23 (TYPE LIST)>
 744                     <NTHL LN23 1 = TEMP44>
 745                     <DEAD LN23>
 746                     <EQUAL? TEMP44 %<> + BOOL228>
 747                     <TYPE? TEMP44 <TYPE-CODE FORM> - PHRASE226>
 748                     <EMPL? TEMP44 + PHRASE226>
 749                     <RESTL TEMP44 1 = LN23 (TYPE LIST)>
 750                     <EMPL? LN23 + PHRASE226>
 751                     <RESTL LN23 1 = LN23 (TYPE LIST)>
 752                     <EMPL? LN23 - PHRASE226>
 753                     <DEAD LN23>
 754                     <NTHL TEMP44 1 = LN23>
 755                     <EQUAL? LN23 'QUOTE - PHRASE226>
 756                     <DEAD LN23>
 757                     <RESTL TEMP44 1 = LN23 (TYPE LIST)>
 758                     <NTHL LN23 1 = LN23>
 759                     <EQUAL? LN23 'T - PHRASE226>
 760                     <DEAD LN23>
 761 BOOL228
 762                     <RESTL EQV6 1 = LN23 (TYPE LIST)>
 763                     <NTHL LN23 1 = TEMP35>
 764                     <DEAD LN23>
 765                     <TYPE? TEMP35 <TYPE-CODE FORM> - PHRASE226>
 766                     <NTHL TEMP35 1 = LN23>
 767                     <EQUAL? LN23 '`JUMP - PHRASE226>
 768                     <DEAD LN23>
 769                     <FRAME '\1aDEST-INS>
 770                     <RESTL TEMP35 1 = LN23 (TYPE LIST)>
 771                     <DEAD TEMP35>
 772                     <RESTL LN23 1 = LN23 (TYPE LIST)>
 773                     <NTHL LN23 1 = STACK (TYPE ATOM)>
 774                     <DEAD LN23>
 775                     <PUSH LBP10>
 776                     <CALL '\1aDEST-INS 2 = M67>
 777                     <RESTL M67 1 = LN23 (TYPE LIST)>
 778                     <NTHL LN23 1 = TEMP35>
 779                     <DEAD LN23>
 780                     <TYPE? TEMP35 <TYPE-CODE FORM> - PHRASE226>
 781                     <NTHL TEMP35 1 = LN23>
 782                     <EQUAL? LN23 '`TYPE? - PHRASE226>
 783                     <DEAD LN23>
 784                     <RESTL TEMP35 1 = LN23 (TYPE LIST)>
 785                     <NTHL LN23 1 = LN23>
 786                     <RESTL IT22 1 = TEMP76 (TYPE LIST)>
 787                     <NTHL TEMP76 1 = TEMP76>
 788                     <EQUAL? LN23 TEMP76 - PHRASE226>
 789                     <DEAD LN23 TEMP76>
 790                     <RESTL TEMP35 1 = TEMP76 (TYPE LIST)>
 791                     <RESTL TEMP76 1 = TEMP76 (TYPE LIST)>
 792                     <NTHL TEMP76 1 = TEMP141>
 793                     <DEAD TEMP76>
 794                     <TYPE? TEMP141 <TYPE-CODE FORM> - PHRASE226>
 795                     <NTHL TEMP141 1 = TEMP76>
 796                     <EQUAL? TEMP76 '`TYPE-CODE - PHRASE226>
 797                     <DEAD TEMP76>
 798                     <RESTL TEMP141 1 = TEMP76 (TYPE LIST)>
 799                     <NTHL TEMP76 1 = TEMP76>
 800                     <EQUAL? TEMP76 'ATOM + BOOL231>
 801                     <DEAD TEMP76>
 802                     <RESTL TEMP141 1 = TEMP76 (TYPE LIST)>
 803                     <NTHL TEMP76 1 = TEMP76>
 804                     <EQUAL? TEMP76 'FALSE - PHRASE226>
 805                     <DEAD TEMP76>
 806 BOOL231
 807                     <FRAME '\1aJUMP?>
 808                     <PUSH TEMP44>
 809                     <DEAD TEMP44>
 810                     <RESTL TEMP141 1 = TEMP76 (TYPE LIST)>
 811                     <DEAD TEMP141>
 812                     <NTHL TEMP76 1 = STACK (TYPE ATOM)>
 813                     <DEAD TEMP76>
 814                     <RESTL TEMP35 1 = TEMP76 (TYPE LIST)>
 815                     <RESTL TEMP76 1 = TEMP76 (TYPE LIST)>
 816                     <RESTL TEMP76 1 = TEMP76 (TYPE LIST)>
 817                     <NTHL TEMP76 1 = STACK (TYPE ATOM)>
 818                     <DEAD TEMP76>
 819                     <CALL '\1aJUMP? 3 = TEMP76>
 820                     <VEQUAL? TEMP76 0 + PHRASE233>
 821                     <DEAD TEMP76>
 822                     <FRAME '\1aFORM>
 823                     <PUSH '`JUMP>
 824                     <PUSH '+>
 825                     <NTHL TEMP35 5 = STACK>
 826                     <DEAD TEMP35>
 827                     <CALL '\1aFORM 3 = TEMP76>
 828                     <RESTL EQV6 1 = LN23 (TYPE LIST)>
 829                     <PUTL LN23 1 TEMP76>
 830                     <DEAD LN23 TEMP76>
 831                     <JUMP + PHRASE236>
 832 PHRASE233
 833                     <FRAME '\1aFORM>
 834                     <PUSH '`JUMP>
 835                     <PUSH '+>
 836                     <FRAME '\1aMAKE-TAG>
 837                     <PUSH "PEEP">
 838                     <CALL '\1aMAKE-TAG 1 = TEMP35>
 839                     <PUSH TEMP35>
 840                     <CALL '\1aFORM 3 = TEMP76>
 841                     <RESTL EQV6 1 = LN23 (TYPE LIST)>
 842                     <PUTL LN23 1 TEMP76>
 843                     <DEAD LN23 TEMP76>
 844                     <CONS TEMP35 EQVP24 = EQVP24>
 845                     <RESTL M67 1 = TEMP76 (TYPE LIST)>
 846                     <RESTL M67 1 = TEMP141 (TYPE LIST)>
 847                     <DEAD M67>
 848                     <RESTL TEMP141 1 = LN23 (TYPE LIST)>
 849                     <DEAD TEMP141>
 850                     <CONS TEMP35 LN23 = LN23>
 851                     <DEAD TEMP35>
 852                     <PUTREST TEMP76 LN23>
 853                     <DEAD TEMP76 LN23>
 854 PHRASE236
 855                     <SET L21 EQV6>
 856                     <SET TEMP12 'T (TYPE ATOM)>
 857                     <JUMP + PHRASE255>
 858 PHRASE226
 859                     <TYPE? IT22 <TYPE-CODE FORM> - PHRASE239>
 860                     <NTHL IT22 1 = TEMP76>
 861                     <EQUAL? TEMP76 '`SET - PHRASE239>
 862                     <DEAD TEMP76>
 863                     <RESTL IT22 1 = TEMP76 (TYPE LIST)>
 864                     <RESTL TEMP76 1 = TEMP76 (TYPE LIST)>
 865                     <NTHL TEMP76 1 = TEMP44>
 866                     <DEAD TEMP76>
 867                     <EQUAL? TEMP44 %<> + BOOL241>
 868                     <TYPE? TEMP44 <TYPE-CODE FORM> - PHRASE239>
 869                     <EMPL? TEMP44 + PHRASE239>
 870                     <RESTL TEMP44 1 = TEMP76 (TYPE LIST)>
 871                     <EMPL? TEMP76 + PHRASE239>
 872                     <RESTL TEMP76 1 = TEMP76 (TYPE LIST)>
 873                     <EMPL? TEMP76 - PHRASE239>
 874                     <DEAD TEMP76>
 875                     <NTHL TEMP44 1 = TEMP76>
 876                     <EQUAL? TEMP76 'QUOTE - PHRASE239>
 877                     <DEAD TEMP76>
 878                     <RESTL TEMP44 1 = TEMP76 (TYPE LIST)>
 879                     <NTHL TEMP76 1 = TEMP76>
 880                     <EQUAL? TEMP76 'T - PHRASE239>
 881                     <DEAD TEMP76>
 882 BOOL241
 883                     <RESTL EQV6 1 = TEMP76 (TYPE LIST)>
 884                     <NTHL TEMP76 1 = TEMP35>
 885                     <DEAD TEMP76>
 886                     <TYPE? TEMP35 <TYPE-CODE FORM> - PHRASE239>
 887                     <NTHL TEMP35 1 = TEMP76>
 888                     <EQUAL? TEMP76 '`TYPE? - PHRASE239>
 889                     <DEAD TEMP76>
 890                     <RESTL TEMP35 1 = TEMP76 (TYPE LIST)>
 891                     <NTHL TEMP76 1 = TEMP76>
 892                     <RESTL IT22 1 = LN23 (TYPE LIST)>
 893                     <NTHL LN23 1 = LN23>
 894                     <EQUAL? TEMP76 LN23 - PHRASE239>
 895                     <DEAD TEMP76 LN23>
 896                     <RESTL TEMP35 1 = LN23 (TYPE LIST)>
 897                     <RESTL LN23 1 = LN23 (TYPE LIST)>
 898                     <NTHL LN23 1 = TEMP141>
 899                     <DEAD LN23>
 900                     <TYPE? TEMP141 <TYPE-CODE FORM> - PHRASE239>
 901                     <NTHL TEMP141 1 = LN23>
 902                     <EQUAL? LN23 '`TYPE-CODE - PHRASE239>
 903                     <DEAD LN23>
 904                     <RESTL TEMP141 1 = LN23 (TYPE LIST)>
 905                     <NTHL LN23 1 = LN23>
 906                     <EQUAL? LN23 'ATOM + BOOL243>
 907                     <DEAD LN23>
 908                     <RESTL TEMP141 1 = LN23 (TYPE LIST)>
 909                     <NTHL LN23 1 = LN23>
 910                     <EQUAL? LN23 'FALSE - PHRASE239>
 911                     <DEAD LN23>
 912 BOOL243
 913                     <FRAME '\1aJUMP?>
 914                     <PUSH TEMP44>
 915                     <DEAD TEMP44>
 916                     <RESTL TEMP141 1 = LN23 (TYPE LIST)>
 917                     <DEAD TEMP141>
 918                     <NTHL LN23 1 = STACK (TYPE ATOM)>
 919                     <DEAD LN23>
 920                     <RESTL TEMP35 1 = LN23 (TYPE LIST)>
 921                     <RESTL LN23 1 = LN23 (TYPE LIST)>
 922                     <RESTL LN23 1 = LN23 (TYPE LIST)>
 923                     <NTHL LN23 1 = STACK (TYPE ATOM)>
 924                     <DEAD LN23>
 925                     <CALL '\1aJUMP? 3 = LN23>
 926                     <VEQUAL? LN23 0 + PHRASE245>
 927                     <DEAD LN23>
 928                     <FRAME '\1aFORM>
 929                     <PUSH '`JUMP>
 930                     <PUSH '+>
 931                     <NTHL TEMP35 5 = STACK>
 932                     <DEAD TEMP35>
 933                     <CALL '\1aFORM 3 = LN23>
 934                     <RESTL EQV6 1 = TEMP76 (TYPE LIST)>
 935                     <PUTL TEMP76 1 LN23>
 936                     <DEAD TEMP76 LN23>
 937                     <JUMP + PHRASE248>
 938 PHRASE245
 939                     <RESTL EQV6 1 = TEMP76 (TYPE LIST)>
 940                     <RESTL TEMP76 1 = LN23 (TYPE LIST)>
 941                     <DEAD TEMP76>
 942                     <PUTREST EQV6 LN23>
 943                     <DEAD LN23>
 944 PHRASE248
 945                     <SET L21 EQV6>
 946                     <SET TEMP12 'T (TYPE ATOM)>
 947                     <JUMP + PHRASE255>
 948 PHRASE239
 949                     <TYPE? IT22 <TYPE-CODE FORM> - PHRASE249>
 950                     <CHTYPE IT22 <TYPE-CODE LIST> = LN23>
 951                     <DEAD IT22>
 952                     <EMPL? LN23 + PHRASE249>
 953                     <LOOP (LN23 VALUE)>
 954 TAG253
 955                     <NTHL LN23 1 = TEMP76>
 956                     <TYPE? TEMP76 <TYPE-CODE ATOM> - TAG254>
 957                     <VEQUAL? TEMP76 '= + TAG252>
 958                     <DEAD TEMP76>
 959 TAG254
 960                     <RESTL LN23 1 = LN23 (TYPE LIST)>
 961                     <EMPL? LN23 - TAG253>
 962                     <JUMP + PHRASE249>
 963 TAG252
 964                     <SET IT22 LN23>
 965                     <DEAD LN23>
 966                     <EMPL? IT22 + PHRASE249>
 967                     <RESTL IT22 1 = LN23 (TYPE LIST)>
 968                     <EMPL? LN23 + PHRASE249>
 969                     <DEAD LN23>
 970                     <RESTL IT22 1 = LN23 (TYPE LIST)>
 971                     <DEAD IT22>
 972                     <NTHL LN23 1 = IT22>
 973                     <DEAD LN23>
 974                     <TYPE? IT22 <TYPE-CODE FORM> - PHRASE249>
 975                     <NTHL IT22 1 = LN23>
 976                     <EQUAL? LN23 'QUOTE - PHRASE249>
 977                     <DEAD LN23>
 978                     <RESTL IT22 1 = LN23 (TYPE LIST)>
 979                     <DEAD IT22>
 980                     <NTHL LN23 1 = LN23>
 981                     <EQUAL? LN23 'FLUSHED - PHRASE249>
 982                     <DEAD LN23>
 983                     <RESTL EQV6 1 = LN23 (TYPE LIST)>
 984                     <PUTREST L21 LN23>
 985                     <DEAD LN23>
 986                     <SET TEMP12 'T (TYPE ATOM)>
 987                     <JUMP + PHRASE255>
 988 PHRASE249
 989                     <SET L21 EQV6>
 990 PHRASE255
 991                     <RESTL EQV6 1 = EQV6 (TYPE LIST)>
 992                     <JUMP + AGAIN183>
 993 EXIT174
 994                     <VEQUAL? TEMP12 0 + PHRASE257>
 995                     <DEAD TEMP12>
 996                     <SETG 'CHANGED 'T>
 997                     <JUMP + AGAIN18>
 998 PHRASE257
 999                     <FRAME '\1aEQV-CODE>
1000                     <PUSH L4>
1001                     <PUSH LBP10>
1002                     <DEAD LBP10>
1003                     <PUSH RETS11>
1004                     <DEAD RETS11>
1005                     <CALL '\1aEQV-CODE 3 = LN23>
1006                     <TYPE? LN23 <TYPE-CODE FALSE> + EXIT15>
1007                     <DEAD LN23>
1008                     <SETG 'CHANGED 'T>
1009                     <JUMP + AGAIN18>
1010 EXIT15
1011                     <GVAL 'CHANGED = LN23>
1012                     <UNBIND TEMP3>
1013                     <DEAD TEMP3>
1014                     <ADJ -9>
1015                     <RETURN LN23>
1016                     <DEAD LN23>
1017                     <END \1aPEEP-PASS1>\r\r
1018 #WORD *16040660037*
1019 <GFCN \1aDEST-INS ("VALUE" <OR !<FALSE> LIST> ATOM <LIST [REST ATOM LIST LIST]>) ATM4 LBP5>
1020                     <TEMP TEMP6>
1021                     <INTGO>
1022                     <LOOP>
1023 AGAIN9
1024                     <INTGO>
1025                     <EMPL? LBP5 - PHRASE11 (TYPE LIST)>
1026                     <RETURN %<>>
1027 PHRASE11
1028                     <NTHL LBP5 1 = TEMP6 (TYPE ATOM)>
1029                     <VEQUAL? TEMP6 ATM4 - PHRASE13>
1030                     <DEAD TEMP6>
1031                     <RESTL LBP5 1 = TEMP6 (TYPE LIST)>
1032                     <DEAD LBP5>
1033                     <NTHL TEMP6 1 = TEMP6 (TYPE LIST)>
1034                     <RETURN TEMP6>
1035                     <DEAD TEMP6>
1036 PHRASE13
1037                     <RESTL LBP5 1 = LBP5 (TYPE LIST)>
1038                     <RESTL LBP5 1 = LBP5 (TYPE LIST)>
1039                     <RESTL LBP5 1 = LBP5 (TYPE LIST)>
1040                     <JUMP + AGAIN9>
1041                     <END \1aDEST-INS>
1042 #WORD *22427520002*
1043 <GFCN \1aJUMP? ("VALUE" <OR ATOM !<FALSE>> ANY ATOM ATOM) TF4 TNAME5 DIR6>
1044                     <TEMP TEMP13>
1045                     <INTGO>
1046                     <TYPE? TF4 <TYPE-CODE FALSE> + PHRASE8>
1047                     <DEAD TF4>
1048                     <SET TF4 'ATOM (TYPE ATOM)>
1049                     <JUMP + PHRASE9>
1050 PHRASE8
1051                     <SET TF4 'FALSE (TYPE ATOM)>
1052 PHRASE9
1053                     <VEQUAL? TF4 TNAME5 - PHRASE11>
1054                     <DEAD TF4 TNAME5>
1055                     <VEQUAL? DIR6 '+ - TAG12>
1056                     <DEAD DIR6>
1057                     <RETURN 'T>
1058 TAG12
1059                     <RETURN %<>>
1060 PHRASE11
1061                     <VEQUAL? DIR6 '- - TAG16>
1062                     <DEAD DIR6>
1063                     <RETURN 'T>
1064 TAG16
1065                     <RETURN %<>>
1066                     <END \1aJUMP?>
1067 #WORD *36574030510*
1068                     <GFCN \1aEQV-CODE ("VALUE" <OR ATOM FALSE> LIST <LIST [REST ATOM LIST LIST]> LIST) L4 LBLS5 RETS6>
1069                     <TEMP (WIN7 %<>) RL14:LIST TEMP24 TST23 INSP38 INS39 TS45 TWO47 TEMP52 TEMP53 TA66 TB67 OIP10:LIST OTS9:LIST TB135>
1070                     <INTGO>
1071                     <FRAME '\1aLREVERSE>
1072                     <PUSH L4>
1073                     <DEAD L4>
1074                     <CALL '\1aLREVERSE 1 = L4>
1075                     <LOOP>
1076 AGAIN16
1077                     <INTGO>
1078                     <EMPL? LBLS5 + EXIT12 (TYPE LIST) (DEAD-JUMP LBLS5)>
1079                     <RESTL LBLS5 1 = RL14 (TYPE LIST)>
1080                     <RESTL RL14 1 = RL14 (TYPE LIST)>
1081                     <NTHL RL14 1 = RL14 (TYPE LIST)>
1082                     <EMPL? RL14 + EXIT22 (TYPE LIST) (DEAD-JUMP RL14)>
1083                     <RESTL LBLS5 1 = TEMP24 (TYPE LIST)>
1084                     <NTHL TEMP24 1 = TEMP24 (TYPE LIST)>
1085                     <RESTL TEMP24 1 = TST23 (TYPE LIST)>
1086                     <DEAD TEMP24>
1087                     <LOOP>
1088 AGAIN25
1089                     <INTGO>
1090                     <EMPL? TST23 + MAPAP32 (TYPE LIST) (DEAD-JUMP TST23)>
1091                     <SET TEMP24 RL14 (TYPE LIST)>
1092                     <LOOP>
1093 MAP29
1094                     <INTGO>
1095                     <EMPL? TEMP24 + MAPAP32 (DEAD-JUMP TST23 TEMP24)>
1096                     <NTHL TEMP24 1 = INSP38>
1097                     <NTHL INSP38 1 = INS39 (TYPE FORM)>
1098                     <NTHL INS39 1 = INS39 (TYPE ATOM)>
1099                     <VEQUAL? INS39 '`JUMP - EXIT43 (DEAD-JUMP INSP38)>
1100                     <DEAD INS39>
1101                     <RESTL INSP38 1 = INSP38 (TYPE LIST)>
1102                     <SET TS45 TST23>
1103                     <LOOP>
1104 AGAIN48
1105                     <INTGO>
1106                     <NTHL INSP38 1 = INS39>
1107                     <TYPE? INS39 <TYPE-CODE FORM> - PHRASE50 (DEAD-JUMP INS39 INSP38)>
1108                     <NTHL TS45 1 = TWO47>
1109                     <TYPE? TWO47 <TYPE-CODE FORM> - PHRASE50 (DEAD-JUMP TWO47 INS39 INSP38)>
1110                     <LENL INS39 = TEMP52 (TYPE FIX)>
1111                     <LENL TWO47 = TEMP53 (TYPE FIX)>
1112                     <VEQUAL? TEMP52 TEMP53 - PHRASE50 (TYPE FIX) (DEAD-JUMP TWO47 INS39 INSP38)>
1113                     <DEAD TEMP52 TEMP53>
1114                     <EMPL? INS39 + PHRASE50 (TYPE FORM) (DEAD-JUMP TWO47 INS39 INSP38)>
1115                     <NTHL INS39 1 = TEMP52>
1116                     <EQUAL? TEMP52 '`ENDIF + PHRASE50 (DEAD-JUMP TWO47 INS39 INSP38)>
1117                     <DEAD TEMP52>
1118                     <CHTYPE INS39 <TYPE-CODE LIST> = TEMP52>
1119                     <DEAD INS39>
1120                     <CHTYPE TWO47 <TYPE-CODE LIST> = TEMP53>
1121                     <DEAD TWO47>
1122                     <EMPL? TEMP52 + PHRASE50 (DEAD-JUMP TEMP53 TEMP52 INSP38)>
1123                     <EMPL? TEMP53 + PHRASE50 (DEAD-JUMP TEMP53 TEMP52 INSP38)>
1124                     <LOOP>
1125 MAP55
1126                     <INTGO>
1127                     <EMPL? TEMP52 + MAPAP58 (DEAD-JUMP OTS9 OIP10 TEMP53 TEMP52)>
1128                     <EMPL? TEMP53 + MAPAP58 (DEAD-JUMP OTS9 OIP10 TEMP53 TEMP52)>
1129                     <NTHL TEMP52 1 = INS39>
1130                     <NTHL TEMP53 1 = TWO47>
1131                     <TYPE INS39 = TA66>
1132                     <TYPE TWO47 = TB67>
1133                     <EQUAL? INS39 TWO47 + PHRASE71 (DEAD-JUMP TB67 TA66 TWO47 INS39)>
1134                     <VEQUAL? TA66 TB67 - PHRASE50 (TYPE FIX) (DEAD-JUMP TEMP53 TEMP52 TWO47 INS39 INSP38)>
1135                     <DEAD TA66 TB67>
1136                     <FRAME '\1aN=?>
1137                     <PUSH INS39>
1138                     <DEAD INS39>
1139                     <PUSH TWO47>
1140                     <DEAD TWO47>
1141                     <CALL '\1aN=? 2 = INS39>
1142                     <VEQUAL? INS39 0 - PHRASE50 (DEAD-JUMP TEMP53 TEMP52 INSP38)>
1143                     <DEAD INS39>
1144 PHRASE71
1145                     <RESTL TEMP52 1 = TEMP52 (TYPE LIST)>
1146                     <RESTL TEMP53 1 = TEMP53 (TYPE LIST)>
1147                     <JUMP + MAP55>
1148 MAPAP58
1149                     <SET OIP10 INSP38>
1150                     <DEAD INSP38>
1151                     <RESTL OIP10 1 = INSP38 (TYPE LIST)>
1152                     <SET OTS9 TS45>
1153                     <DEAD TS45>
1154                     <RESTL OTS9 1 = TS45 (TYPE LIST)>
1155                     <JUMP + AGAIN48>
1156 PHRASE50
1157                     <VEQUAL? TS45 TST23 + EXIT43>
1158                     <DEAD TS45>
1159                     <NTHL OIP10 1 = INS39>
1160                     <NTH1 INS39 = INS39>
1161                     <EQUAL? INS39 '`ENDIF + EXIT43 (DEAD-FALL WIN7)>
1162                     <DEAD INS39>
1163                     <SET WIN7 'T (TYPE ATOM)>
1164                     <FRAME '\1aMAKE-TAG>
1165                     <PUSH "PEEP">
1166                     <CALL '\1aMAKE-TAG 1 = TWO47>
1167                     <CONS TWO47 () = TEMP52>
1168                     <RESTL OTS9 1 = INS39 (TYPE LIST)>
1169                     <PUTREST TEMP52 INS39>
1170                     <DEAD INS39>
1171                     <PUTREST OTS9 TEMP52>
1172                     <DEAD TEMP52>
1173                     <FRAME '\1aFORM>
1174                     <PUSH '`JUMP>
1175                     <PUSH '+>
1176                     <PUSH TWO47>
1177                     <DEAD TWO47>
1178                     <CALL '\1aFORM 3 = TEMP52>
1179                     <PUTL OIP10 1 TEMP52>
1180                     <DEAD TEMP52>
1181 EXIT43
1182                     <RESTL TEMP24 1 = TEMP24 (TYPE LIST)>
1183                     <JUMP + MAP29>
1184 MAPAP32
1185                     <NTHL RL14 1 = TST23 (TYPE LIST)>
1186                     <NTHL TST23 1 = TEMP52 (TYPE FORM)>
1187                     <NTHL TEMP52 1 = TEMP52>
1188                     <EQUAL? TEMP52 '`JUMP - EXIT22 (DEAD-JUMP TST23 RL14)>
1189                     <DEAD TEMP52>
1190                     <RESTL RL14 1 = RL14 (TYPE LIST)>
1191                     <EMPL? RL14 + EXIT22 (TYPE LIST) (DEAD-JUMP TST23 RL14)>
1192                     <RESTL TST23 1 = TST23 (TYPE LIST)>
1193                     <JUMP + AGAIN25>
1194 EXIT22
1195                     <RESTL LBLS5 1 = LBLS5 (TYPE LIST)>
1196                     <RESTL LBLS5 1 = LBLS5 (TYPE LIST)>
1197                     <RESTL LBLS5 1 = LBLS5 (TYPE LIST)>
1198                     <JUMP + AGAIN16>
1199 EXIT12
1200                     <EMPL? RETS6 + MAPAP89 (TYPE LIST) (DEAD-JUMP RETS6 OTS9 OIP10)>
1201                     <RESTL RETS6 1 = TEMP52 (TYPE LIST)>
1202                     <EMPL? TEMP52 + MAPAP89 (TYPE LIST) (DEAD-JUMP RETS6 OTS9 OIP10)>
1203                     <DEAD TEMP52>
1204                     <SET TEMP52 RETS6 (TYPE LIST)>
1205                     <DEAD RETS6>
1206                     <LOOP>
1207 MAP86
1208                     <INTGO>
1209                     <EMPL? TEMP52 + MAPAP89 (DEAD-JUMP OTS9 OIP10 TEMP52)>
1210                     <SET RL14 TEMP52>
1211                     <NTHL RL14 1 = TEMP53 (TYPE LIST)>
1212                     <RESTL RL14 1 = INS39 (TYPE LIST)>
1213                     <DEAD RL14>
1214                     <EMPL? INS39 + MAPAP101 (TYPE LIST) (DEAD-JUMP TEMP53 INS39)>
1215                     <LOOP>
1216 MAP98
1217                     <INTGO>
1218                     <EMPL? INS39 + MAPAP101 (DEAD-JUMP TEMP53 INS39)>
1219                     <NTHL INS39 1 = RL14>
1220                     <NTHL TEMP53 1 = TEMP24 (TYPE FORM)>
1221                     <NTHL TEMP24 1 = TWO47>
1222                     <NTHL RL14 1 = TST23 (TYPE FORM)>
1223                     <NTHL TST23 1 = TA66>
1224                     <EQUAL? TWO47 TA66 - EXIT112 (DEAD-JUMP TST23 TEMP24 RL14)>
1225                     <DEAD TWO47 TA66>
1226                     <RESTL TEMP24 1 = TA66 (TYPE LIST)>
1227                     <DEAD TEMP24>
1228                     <NTHL TA66 1 = TA66>
1229                     <RESTL TST23 1 = TWO47 (TYPE LIST)>
1230                     <DEAD TST23>
1231                     <NTHL TWO47 1 = TWO47>
1232                     <EQUAL? TA66 TWO47 - EXIT112 (DEAD-JUMP RL14)>
1233                     <DEAD TA66 TWO47>
1234                     <RESTL TEMP53 1 = TEMP24 (TYPE LIST)>
1235                     <RESTL RL14 1 = TST23 (TYPE LIST)>
1236                     <LOOP>
1237 AGAIN117
1238                     <INTGO>
1239                     <NTHL TEMP24 1 = TWO47>
1240                     <TYPE? TWO47 <TYPE-CODE FORM> - PHRASE119 (DEAD-JUMP TWO47 TEMP24)>
1241                     <NTHL TST23 1 = TB67>
1242                     <TYPE? TB67 <TYPE-CODE FORM> - PHRASE119 (DEAD-JUMP TB67 TWO47 TEMP24)>
1243                     <LENL TWO47 = TA66 (TYPE FIX)>
1244                     <LENL TB67 = INSP38 (TYPE FIX)>
1245                     <VEQUAL? TA66 INSP38 - PHRASE119 (TYPE FIX) (DEAD-JUMP TB67 TWO47 TEMP24)>
1246                     <DEAD TA66 INSP38>
1247                     <EMPL? TWO47 + PHRASE119 (TYPE FORM) (DEAD-JUMP TB67 TWO47 TEMP24)>
1248                     <NTHL TWO47 1 = TA66>
1249                     <EQUAL? TA66 '`ENDIF + PHRASE119 (DEAD-JUMP TB67 TWO47 TEMP24)>
1250                     <DEAD TA66>
1251                     <CHTYPE TWO47 <TYPE-CODE LIST> = TA66>
1252                     <DEAD TWO47>
1253                     <CHTYPE TB67 <TYPE-CODE LIST> = INSP38>
1254                     <DEAD TB67>
1255                     <EMPL? TA66 + PHRASE119 (DEAD-JUMP TA66 INSP38 TEMP24)>
1256                     <EMPL? INSP38 + PHRASE119 (DEAD-JUMP TA66 INSP38 TEMP24)>
1257                     <LOOP>
1258 MAP123
1259                     <INTGO>
1260                     <EMPL? TA66 + MAPAP126 (DEAD-JUMP OTS9 OIP10 TA66 INSP38)>
1261                     <EMPL? INSP38 + MAPAP126 (DEAD-JUMP OTS9 OIP10 TA66 INSP38)>
1262                     <NTHL TA66 1 = TWO47>
1263                     <NTHL INSP38 1 = TB67>
1264                     <TYPE TWO47 = TS45>
1265                     <TYPE TB67 = TB135>
1266                     <EQUAL? TWO47 TB67 + PHRASE139 (DEAD-JUMP TB135 TB67 TWO47 TS45)>
1267                     <VEQUAL? TS45 TB135 - PHRASE119 (TYPE FIX) (DEAD-JUMP TB67 TA66 TWO47 INSP38 TEMP24)>
1268                     <DEAD TS45 TB135>
1269                     <FRAME '\1aN=?>
1270                     <PUSH TWO47>
1271                     <DEAD TWO47>
1272                     <PUSH TB67>
1273                     <DEAD TB67>
1274                     <CALL '\1aN=? 2 = TWO47>
1275                     <VEQUAL? TWO47 0 - PHRASE119 (DEAD-JUMP TA66 INSP38 TEMP24)>
1276                     <DEAD TWO47>
1277 PHRASE139
1278                     <RESTL TA66 1 = TA66 (TYPE LIST)>
1279                     <RESTL INSP38 1 = INSP38 (TYPE LIST)>
1280                     <JUMP + MAP123>
1281 MAPAP126
1282                     <SET OIP10 TEMP24>
1283                     <DEAD TEMP24>
1284                     <RESTL OIP10 1 = TEMP24 (TYPE LIST)>
1285                     <SET OTS9 TST23>
1286                     <DEAD TST23>
1287                     <RESTL OTS9 1 = TST23 (TYPE LIST)>
1288                     <JUMP + AGAIN117>
1289 PHRASE119
1290                     <RESTL RL14 1 = INSP38 (TYPE LIST)>
1291                     <DEAD RL14>
1292                     <VEQUAL? INSP38 TST23 + EXIT112>
1293                     <DEAD INSP38 TST23>
1294                     <NTHL OIP10 1 = TA66>
1295                     <NTH1 TA66 = TA66>
1296                     <EQUAL? TA66 '`ENDIF + EXIT112 (DEAD-FALL WIN7)>
1297                     <DEAD TA66>
1298                     <SET WIN7 'T (TYPE ATOM)>
1299                     <FRAME '\1aMAKE-TAG>
1300                     <PUSH "PEEP">
1301                     <CALL '\1aMAKE-TAG 1 = TWO47>
1302                     <CONS TWO47 () = TB67>
1303                     <RESTL OIP10 1 = TA66 (TYPE LIST)>
1304                     <PUTREST TB67 TA66>
1305                     <DEAD TA66>
1306                     <PUTREST OIP10 TB67>
1307                     <DEAD TB67>
1308                     <FRAME '\1aFORM>
1309                     <PUSH '`JUMP>
1310                     <PUSH '+>
1311                     <PUSH TWO47>
1312                     <DEAD TWO47>
1313                     <CALL '\1aFORM 3 = TB67>
1314                     <PUTL OTS9 1 TB67>
1315                     <DEAD TB67>
1316 EXIT112
1317                     <RESTL INS39 1 = INS39 (TYPE LIST)>
1318                     <JUMP + MAP98>
1319 MAPAP101
1320                     <RESTL TEMP52 1 = TEMP52 (TYPE LIST)>
1321                     <JUMP + MAP86>
1322 MAPAP89
1323                     <FRAME '\1aLREVERSE>
1324                     <PUSH L4>
1325                     <DEAD L4>
1326                     <CALL '\1aLREVERSE 1>
1327                     <RETURN WIN7>
1328                     <DEAD WIN7>
1329                     <END \1aEQV-CODE>
1330
1331 #WORD *31014565412*
1332 <GFCN \1aBUILD-LABEL-TABLE ("VALUE" ATOM ATOM <LIST [REST ATOM LIST LIST]> LIST) LBL4 LBP5 L6>
1333                     <TEMP TEMP7 TEMP16:LIST>
1334                     <INTGO>
1335                     <LOOP>
1336 AGAIN10
1337                     <INTGO>
1338                     <EMPL? LBP5 - PHRASE12 (TYPE LIST)>
1339                     <RETURN 'T>
1340 PHRASE12
1341                     <NTHL LBP5 1 = TEMP7 (TYPE ATOM)>
1342                     <VEQUAL? TEMP7 LBL4 - PHRASE14>
1343                     <DEAD TEMP7>
1344                     <RESTL LBP5 1 = TEMP7 (TYPE LIST)>
1345                     <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
1346                     <NTHL TEMP7 1 = TEMP7 (TYPE LIST)>
1347                     <CONS L6 TEMP7 = TEMP7>
1348                     <DEAD L6>
1349                     <RESTL LBP5 1 = TEMP16 (TYPE LIST)>
1350                     <DEAD LBP5>
1351                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
1352                     <PUTL TEMP16 1 TEMP7 (TYPE LIST)>
1353                     <DEAD TEMP16 TEMP7>
1354                     <RETURN 'T>
1355 PHRASE14
1356                     <RESTL LBP5 1 = LBP5 (TYPE LIST)>
1357                     <RESTL LBP5 1 = LBP5 (TYPE LIST)>
1358                     <RESTL LBP5 1 = LBP5 (TYPE LIST)>
1359                     <JUMP + AGAIN10>
1360                     <END \1aBUILD-LABEL-TABLE>
1361 #WORD *37426641373*
1362 <GFCN \1aPATCH-LABEL-TABLE ("VALUE" ATOM <LIST [REST ATOM LIST LIST]> ATOM LIST) LBP4 ATM5 L6>
1363                     <TEMP TEMP7>
1364                     <INTGO>
1365                     <LOOP>
1366 AGAIN10
1367                     <INTGO>
1368                     <EMPL? LBP4 - PHRASE12 (TYPE LIST)>
1369                     <RETURN 'T>
1370 PHRASE12
1371                     <NTHL LBP4 1 = TEMP7 (TYPE ATOM)>
1372                     <VEQUAL? TEMP7 ATM5 - PHRASE14>
1373                     <DEAD TEMP7>
1374                     <RESTL LBP4 1 = TEMP7 (TYPE LIST)>
1375                     <DEAD LBP4>
1376                     <PUTL TEMP7 1 L6 (TYPE LIST)>
1377                     <DEAD TEMP7 L6>
1378                     <RETURN 'T>
1379 PHRASE14
1380                     <RESTL LBP4 1 = LBP4 (TYPE LIST)>
1381                     <RESTL LBP4 1 = LBP4 (TYPE LIST)>
1382                     <RESTL LBP4 1 = LBP4 (TYPE LIST)>
1383                     <JUMP + AGAIN10>
1384                     <END \1aPATCH-LABEL-TABLE>
1385 #WORD *37146005535*
1386 <GFCN \1aREMOVE-LABEL ("VALUE" ATOM <LIST [REST ATOM LIST LIST]> ATOM LIST) LBP4 ATM5 L6>
1387                     <TEMP TEMP7 A10:LIST B11:LIST>
1388                     <INTGO>
1389                     <LOOP>
1390 AGAIN12
1391                     <INTGO>
1392                     <EMPL? LBP4 - PHRASE14 (TYPE LIST)>
1393                     <RETURN 'T>
1394 PHRASE14
1395                     <NTHL LBP4 1 = TEMP7 (TYPE ATOM)>
1396                     <VEQUAL? TEMP7 ATM5 - PHRASE16>
1397                     <DEAD TEMP7>
1398                     <RESTL LBP4 1 = TEMP7 (TYPE LIST)>
1399                     <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
1400                     <NTHL TEMP7 1 = A10 (TYPE LIST)>
1401                     <DEAD TEMP7>
1402                     <SET B11 A10>
1403                     <LOOP>
1404 AGAIN19
1405                     <INTGO>
1406                     <EMPL? A10 + EXIT18 (TYPE LIST)>
1407                     <NTHL A10 1 = TEMP7>
1408                     <EQUAL? TEMP7 L6 - PHRASE23>
1409                     <DEAD TEMP7>
1410                     <VEQUAL? A10 B11 - PHRASE26>
1411                     <RESTL A10 1 = TEMP7 (TYPE LIST)>
1412                     <DEAD A10>
1413                     <RESTL LBP4 1 = A10 (TYPE LIST)>
1414                     <DEAD LBP4>
1415                     <RESTL A10 1 = A10 (TYPE LIST)>
1416                     <PUTL A10 1 TEMP7 (TYPE LIST)>
1417                     <DEAD A10 TEMP7>
1418                     <RETURN 'T>
1419 PHRASE26
1420                     <RESTL A10 1 = TEMP7 (TYPE LIST)>
1421                     <DEAD A10>
1422                     <PUTREST B11 TEMP7>
1423                     <DEAD B11 TEMP7>
1424                     <RETURN 'T>
1425 PHRASE23
1426                     <SET B11 A10>
1427                     <RESTL A10 1 = A10 (TYPE LIST)>
1428                     <JUMP + AGAIN19>
1429 EXIT18
1430                     <RETURN 'T>
1431 PHRASE16
1432                     <RESTL LBP4 1 = LBP4 (TYPE LIST)>
1433                     <RESTL LBP4 1 = LBP4 (TYPE LIST)>
1434                     <RESTL LBP4 1 = LBP4 (TYPE LIST)>
1435                     <JUMP + AGAIN12>
1436                     <END \1aREMOVE-LABEL>
1437 #WORD *1147411124*
1438 <GFCN \1aNEXTINS ("VALUE" <LIST <OR ATOM FORM>> LIST) L4>
1439                     <TEMP TEMP14 TEMP16:LIST LL17:LIST>
1440                     <INTGO>
1441                     <SET TEMP14 %<> (TYPE FALSE)>
1442                     <RESTL L4 1 = TEMP16 (TYPE LIST)>
1443                     <DEAD L4>
1444                     <LOOP>
1445 MAP6
1446                     <INTGO>
1447                     <EMPL? TEMP16 + MAPAP9>
1448                     <SET LL17 TEMP16>
1449                     <NTHL LL17 1 = TEMP14>
1450                     <TYPE? TEMP14 <TYPE-CODE FORM> + TAG21>
1451                     <DEAD TEMP14>
1452                     <SET TEMP14 %<> (TYPE FALSE)>
1453                     <JUMP + PHRASE20>
1454 TAG21
1455                     <RETURN LL17>
1456                     <DEAD LL17>
1457 PHRASE20
1458                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
1459                     <JUMP + MAP6>
1460 MAPAP9
1461                     <RETURN TEMP14>
1462                     <DEAD TEMP14>
1463                     <END \1aNEXTINS>
1464 #WORD *23027601452*
1465 <GFCN \1aFIND-EQV ("VALUE" ATOM ATOM <LIST [REST ATOM <LIST [REST ATOM]>]>) ATM4 EQVL5>
1466                     <TEMP TEMP9 TEMP20>
1467                     <INTGO>
1468                     <VEQUAL? ATM4 '`COMPERR + BOOL8>
1469                     <VEQUAL? ATM4 '`UNWCONT - PHRASE7>
1470 BOOL8
1471                     <RETURN ATM4>
1472                     <DEAD ATM4>
1473 PHRASE7
1474                     <LOOP>
1475 AGAIN13
1476                     <INTGO>
1477                     <RESTL EQVL5 1 = TEMP9 (TYPE LIST)>
1478                     <NTHL TEMP9 1 = TEMP9 (TYPE LIST)>
1479                     <EMPL? TEMP9 + PHRASE15>
1480                     <LOOP (ATM4 VALUE) (TEMP9 VALUE)>
1481 TAG17
1482                     <NTHL TEMP9 1 = TEMP20>
1483                     <VEQUAL? TEMP20 ATM4 + TAG16>
1484                     <DEAD TEMP20>
1485                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
1486                     <EMPL? TEMP9 - TAG17>
1487                     <JUMP + PHRASE15>
1488 TAG16
1489                     <NTHL EQVL5 1 = TEMP9 (TYPE ATOM)>
1490                     <DEAD EQVL5>
1491                     <RETURN TEMP9>
1492                     <DEAD TEMP9>
1493 PHRASE15
1494                     <RESTL EQVL5 1 = EQVL5 (TYPE LIST)>
1495                     <RESTL EQVL5 1 = EQVL5 (TYPE LIST)>
1496                     <EMPL? EQVL5 - AGAIN13 (TYPE LIST)>
1497                     <RETURN ATM4>
1498                     <DEAD ATM4>
1499                     <END \1aFIND-EQV>
1500 <ENDPACKAGE>