mim/development/mim/mimc/getord.mima

   1
   2 <PACKAGE "GETORD">
   3
   4 <ENTRY GETORDER>
   5
   6 "GETORDER FUNCTIONS"
   7
   8 #WORD *11147245240*
   9                     <GFCN \1aCHECK ("VALUE" <OR ATOM FALSE> ATOM) ATM4>
  10                     <TEMP TEMP9>
  11                     <INTGO>
  12                     <NTHR ATM4 1 = TEMP9 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG8) (DEAD-JUMP ATM4 TEMP9)>
  13                     <TYPE? TEMP9 <TYPE-CODE FALSE> + TAG8 (DEAD-JUMP ATM4 TEMP9)>
  14                     <NTHR TEMP9 1 = TEMP9 (RECORD-TYPE GBIND)>
  15                     <TYPE? TEMP9 <TYPE-CODE UNBOUND> - TAG7 (DEAD-FALL ATM4)>
  16                     <DEAD TEMP9>
  17 TAG8
  18                     <RETURN %<>>
  19 TAG7
  20                     <GVAL ATM4 = TEMP9>
  21                     <TYPE? TEMP9 <TYPE-CODE FUNCTION> - TAG12 (DEAD-FALL ATM4)>
  22                     <DEAD TEMP9>
  23                     <RETURN 'FUNCTION>
  24 TAG12
  25                     <GVAL ATM4 = TEMP9>
  26                     <DEAD ATM4>
  27                     <TYPE? TEMP9 <TYPE-CODE MACRO> - TAG14>
  28                     <DEAD TEMP9>
  29                     <RETURN 'MACRO>
  30 TAG14
  31                     <RETURN %<>>
  32                     <END \1aCHECK>
  33
  34 #WORD *20025145332*
  35                     <GFCN \1aPREV ("VALUE" LIST LIST LIST) LS4 SUBLS5>
  36                     <TEMP TEMP6:FIX TEMP7>
  37                     <INTGO>
  38                     <LENL LS4 = TEMP6 (TYPE FIX)>
  39                     <LENL SUBLS5 = TEMP7 (TYPE FIX)>
  40                     <DEAD SUBLS5>
  41                     <SUB TEMP6 TEMP7 = TEMP6 (TYPE FIX)>
  42                     <DEAD TEMP7>
  43                     <SUB TEMP6 1 = TEMP6 (TYPE FIX)>
  44                     <SET TEMP7 LS4>
  45                     <DEAD LS4>
  46                     <GRTR? TEMP6 0 - RESTL9 (TYPE FIX) (DEAD-JUMP TEMP6)>
  47                     <LOOP (TEMP7 VALUE) (TEMP6 VALUE)>
  48 RESTL8
  49                     <INTGO>
  50                     <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
  51                     <SUB TEMP6 1 = TEMP6 (TYPE FIX)>
  52                     <GRTR? TEMP6 0 + RESTL8 (TYPE FIX) (DEAD-FALL TEMP6)>
  53 RESTL9
  54                     <RETURN TEMP7>
  55                     <DEAD TEMP7>
  56                     <END \1aPREV>
  57
  58 #WORD *30473025061*
  59                     <GFCN \1aSPLOUTEM ("VALUE" ATOM LIST ATOM) FL4 OU5>
  60                     <TEMP TEMP6 TEMP18>
  61                     <INTGO>
  62                     <LOOP>
  63 AGAIN10
  64                     <INTGO>
  65                     <EMPL? FL4 - PHRASE12 (TYPE LIST) (DEAD-FALL OU5 FL4)>
  66                     <RETURN 'T>
  67 PHRASE12
  68                     <NTHL FL4 1 = TEMP6>
  69                     <EMPTY? TEMP6 + PHRASE21 (DEAD-JUMP TEMP6)>
  70                     <LOOP (OU5 VALUE) (TEMP6 LENGTH VALUE TYPE)>
  71 TAG16
  72                     <NTH1 TEMP6 = TEMP18>
  73                     <TYPE? TEMP18 <TYPE-CODE ATOM> - TAG17 (DEAD-JUMP TEMP18)>
  74                     <VEQUAL? TEMP18 OU5 + TAG15>
  75                     <DEAD TEMP18>
  76 TAG17
  77                     <REST1 TEMP6 = TEMP6>
  78                     <EMPTY? TEMP6 - TAG16 (DEAD-FALL TEMP6)>
  79                     <JUMP + PHRASE21>
  80 TAG15
  81                     <NTHL FL4 1 = TEMP18>
  82                     <EQUAL? TEMP18 TEMP6 - PHRASE20>
  83                     <DEAD TEMP18>
  84                     <RESTL TEMP6 1 = TEMP18 (TYPE LIST)>
  85                     <DEAD TEMP6>
  86                     <PUTL FL4 1 TEMP18>
  87                     <DEAD TEMP18>
  88                     <JUMP + PHRASE21>
  89 PHRASE20
  90                     <FRAME '\1aPREV>
  91                     <NTHL FL4 1 = STACK (TYPE LIST)>
  92                     <PUSH TEMP6>
  93                     <CALL '\1aPREV 2 = TEMP18>
  94                     <RESTL TEMP6 1 = TEMP6 (TYPE LIST)>
  95                     <PUTREST TEMP18 TEMP6>
  96                     <DEAD TEMP18 TEMP6>
  97 PHRASE21
  98                     <RESTL FL4 1 = FL4 (TYPE LIST)>
  99                     <RESTL FL4 1 = FL4 (TYPE LIST)>
 100                     <JUMP + AGAIN10>
 101                     <END \1aSPLOUTEM>
 102
 103 #WORD *17757412215*
 104                     <GFCN \1aREVERSE ("VALUE" LIST LIST) LS4>
 105                     <TEMP RES8:LIST TEM9:LIST>
 106                     <INTGO>
 107                     <SET RES8 () (TYPE LIST)>
 108                     <LOOP>
 109 AGAIN10
 110                     <INTGO>
 111                     <EMPL? LS4 - PHRASE12 (TYPE LIST) (DEAD-FALL LS4)>
 112                     <RETURN RES8>
 113                     <DEAD RES8>
 114 PHRASE12
 115                     <RESTL LS4 1 = TEM9 (TYPE LIST)>
 116                     <PUTREST LS4 RES8>
 117                     <DEAD RES8>
 118                     <SET RES8 LS4>
 119                     <DEAD LS4>
 120                     <SET LS4 TEM9>
 121                     <DEAD TEM9>
 122                     <JUMP + AGAIN10>
 123                     <END \1aREVERSE>
 124
 125 #WORD *1217422700*
 126                     <GFCN \1aORDEREM ("VALUE" <LIST [REST <OR ATOM LIST>]> LIST) FLIST4>
 127                     <TEMP RES9:LIST TEMP5 TEMP19 TEMP25 TEMP24:LIST TEMP43:LIST>
 128                     <INTGO>
 129                     <SET RES9 () (TYPE LIST)>
 130                     <LOOP>
 131 AGAIN10
 132                     <INTGO>
 133                     <EMPL? FLIST4 - PHRASE12 (TYPE LIST) (DEAD-FALL FLIST4)>
 134                     <FRAME '\1aREVERSE>
 135                     <PUSH RES9>
 136                     <DEAD RES9>
 137                     <CALL '\1aREVERSE 1 = TEMP5>
 138                     <RETURN TEMP5>
 139                     <DEAD TEMP5>
 140 PHRASE12
 141                     <SET TEMP5 FLIST4>
 142                     <LOOP (TEMP5 VALUE)>
 143 TAG17
 144                     <NTHL TEMP5 1 = TEMP19>
 145                     <TYPE? TEMP19 <TYPE-CODE LIST> - TAG18 (DEAD-JUMP TEMP19)>
 146                     <VEQUAL? TEMP19 () + TAG16>
 147                     <DEAD TEMP19>
 148 TAG18
 149                     <RESTL TEMP5 1 = TEMP5 (TYPE LIST)>
 150                     <EMPL? TEMP5 - TAG17 (DEAD-FALL TEMP5)>
 151                     <JUMP + PHRASE14>
 152 TAG16
 153                     <RESTL TEMP5 1 = TEMP19 (TYPE LIST)>
 154                     <NTHL TEMP19 1 = TEMP19>
 155                     <CONS TEMP19 RES9 = RES9>
 156                     <DEAD TEMP19>
 157                     <VEQUAL? TEMP5 FLIST4 - PHRASE21 (DEAD-FALL TEMP5)>
 158                     <RESTL FLIST4 1 = FLIST4 (TYPE LIST)>
 159                     <RESTL FLIST4 1 = FLIST4 (TYPE LIST)>
 160                     <JUMP + PHRASE22>
 161 PHRASE21
 162                     <FRAME '\1aPREV>
 163                     <PUSH FLIST4>
 164                     <PUSH TEMP5>
 165                     <CALL '\1aPREV 2 = TEMP19>
 166                     <RESTL TEMP5 1 = TEMP25 (TYPE LIST)>
 167                     <DEAD TEMP5>
 168                     <RESTL TEMP25 1 = TEMP24 (TYPE LIST)>
 169                     <DEAD TEMP25>
 170                     <PUTREST TEMP19 TEMP24>
 171                     <DEAD TEMP19 TEMP24>
 172 PHRASE22
 173                     <FRAME '\1aSPLOUTEM>
 174                     <PUSH FLIST4>
 175                     <NTHL RES9 1 = STACK (TYPE ATOM)>
 176                     <CALL '\1aSPLOUTEM 2>
 177                     <JUMP + AGAIN10>
 178 PHRASE14
 179                     <SET TEMP24 () (TYPE LIST)>
 180                     <LOOP>
 181 AGAIN31
 182                     <INTGO>
 183                     <SET TEMP5 %<> (TYPE FALSE)>
 184                     <SET TEMP19 FLIST4>
 185                     <LOOP>
 186 AGAIN34
 187                     <INTGO>
 188                     <FRAME '\1aCALLME>
 189                     <RESTL TEMP19 1 = TEMP25 (TYPE LIST)>
 190                     <NTHL TEMP25 1 = STACK (TYPE ATOM)>
 191                     <DEAD TEMP25>
 192                     <PUSH FLIST4>
 193                     <CALL '\1aCALLME 2 = TEMP25>
 194                     <VEQUAL? TEMP25 0 - PHRASE40 (DEAD-FALL TEMP5)>
 195                     <DEAD TEMP25>
 196                     <SET TEMP5 'T (TYPE ATOM)>
 197                     <RESTL TEMP19 1 = TEMP25 (TYPE LIST)>
 198                     <NTHL TEMP25 1 = TEMP25>
 199                     <CONS TEMP25 TEMP24 = TEMP24>
 200                     <DEAD TEMP25>
 201                     <VEQUAL? FLIST4 TEMP19 - PHRASE39>
 202                     <RESTL FLIST4 1 = FLIST4 (TYPE LIST)>
 203                     <RESTL FLIST4 1 = FLIST4 (TYPE LIST)>
 204                     <JUMP + PHRASE40>
 205 PHRASE39
 206                     <FRAME '\1aPREV>
 207                     <PUSH FLIST4>
 208                     <PUSH TEMP19>
 209                     <CALL '\1aPREV 2 = TEMP25>
 210                     <RESTL TEMP19 1 = TEMP43 (TYPE LIST)>
 211                     <RESTL TEMP43 1 = TEMP43 (TYPE LIST)>
 212                     <PUTREST TEMP25 TEMP43>
 213                     <DEAD TEMP25 TEMP43>
 214 PHRASE40
 215                     <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
 216                     <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
 217                     <EMPL? TEMP19 - AGAIN34 (TYPE LIST) (DEAD-FALL TEMP19)>
 218                     <VEQUAL? TEMP5 0 - AGAIN31>
 219                     <DEAD TEMP5>
 220                     <EMPL? FLIST4 + PHRASE47 (TYPE LIST)>
 221                     <FRAME '\1aCORDER>
 222                     <PUSH FLIST4>
 223                     <DEAD FLIST4>
 224                     <CALL '\1aCORDER 1 = FLIST4>
 225 PHRASE47
 226                     <FRAME '\1aREVERSE>
 227                     <PUSH RES9>
 228                     <CALL '\1aREVERSE 1 = TEMP5>
 229                     <EMPL? FLIST4 + RESTL58 (TYPE LIST) (DEAD-JUMP FLIST4)>
 230                     <EMPL? RES9 - PHRASE53 (TYPE LIST) (DEAD-FALL TEMP5 RES9)>
 231                     <SET TEMP5 FLIST4>
 232                     <SET RES9 FLIST4>
 233                     <DEAD FLIST4>
 234                     <LOOP (RES9 VALUE)>
 235 TAG54
 236                     <RESTL RES9 1 = TEMP25 (TYPE LIST)>
 237                     <EMPL? TEMP25 + RESTL58 (DEAD-JUMP TEMP25) (DEAD-FALL RES9)>
 238                     <SET RES9 TEMP25>
 239                     <DEAD TEMP25>
 240                     <JUMP + TAG54>
 241 PHRASE53
 242                     <PUTREST RES9 FLIST4>
 243                     <LENL FLIST4 = TEMP25 (TYPE FIX)>
 244                     <DEAD FLIST4>
 245                     <GRTR? TEMP25 0 - RESTL58 (TYPE FIX) (DEAD-JUMP TEMP25)>
 246                     <LOOP (RES9 VALUE) (TEMP25 VALUE)>
 247 RESTL57
 248                     <INTGO>
 249                     <RESTL RES9 1 = RES9 (TYPE LIST)>
 250                     <SUB TEMP25 1 = TEMP25 (TYPE FIX)>
 251                     <GRTR? TEMP25 0 + RESTL57 (TYPE FIX) (DEAD-FALL TEMP25)>
 252 RESTL58
 253                     <EMPL? RES9 - PHRASE60 (TYPE LIST) (DEAD-FALL TEMP5 RES9)>
 254                     <RETURN TEMP24>
 255                     <DEAD TEMP24>
 256 PHRASE60
 257                     <PUTREST RES9 TEMP24>
 258                     <DEAD RES9 TEMP24>
 259                     <RETURN TEMP5>
 260                     <DEAD TEMP5>
 261                     <END \1aORDEREM>
 262
 263 #WORD *13623163050*
 264                     <GFCN \1aCALLME ("VALUE" <OR ATOM !<FALSE>> ATOM <LIST [REST <LIST [REST ATOM]> ATOM]>) ATM4 LST5>
 265                     <TEMP TEMP6 TEMP15:LIST>
 266                     <INTGO>
 267                     <LOOP>
 268 AGAIN9
 269                     <INTGO>
 270                     <EMPL? LST5 - BOOL10 (TYPE LIST) (DEAD-FALL LST5 ATM4)>
 271                     <RETURN %<>>
 272 BOOL10
 273                     <NTHL LST5 1 = TEMP15 (TYPE LIST)>
 274                     <EMPL? TEMP15 + BOOL11 (DEAD-JUMP TEMP15)>
 275                     <LOOP (ATM4 VALUE) (TEMP15 VALUE)>
 276 TAG13
 277                     <NTHL TEMP15 1 = TEMP6>
 278                     <VEQUAL? TEMP6 ATM4 + TAG12 (DEAD-JUMP LST5 ATM4 TEMP15)>
 279                     <DEAD TEMP6>
 280                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
 281                     <EMPL? TEMP15 - TAG13 (DEAD-FALL TEMP15)>
 282                     <JUMP + BOOL11>
 283 TAG12
 284                     <RETURN 'T>
 285 BOOL11
 286                     <RESTL LST5 1 = LST5 (TYPE LIST)>
 287                     <RESTL LST5 1 = LST5 (TYPE LIST)>
 288                     <JUMP + AGAIN9>
 289                     <END \1aCALLME>
 290
 291 #WORD *4524201334*
 292                     <GFCN \1aCORDER ("VALUE" LIST <LIST [REST <LIST [REST ATOM]> ATOM]>) LST4>
 293                     <TEMP (RES5:LIST ()) LS8:LIST TEMP12 SHORT18 LST20:LIST>
 294                     <INTGO>
 295                     <SET LS8 LST4>
 296                     <LOOP>
 297 AGAIN9
 298                     <INTGO>
 299                     <EMPL? LS8 + EXIT6 (TYPE LIST) (DEAD-JUMP LS8)>
 300                     <FRAME '\1aALLREACH>
 301                     <RESTL LS8 1 = TEMP12 (TYPE LIST)>
 302                     <NTHL TEMP12 1 = TEMP12 (TYPE ATOM)>
 303                     <CONS TEMP12 () = STACK>
 304                     <DEAD TEMP12>
 305                     <NTHL LS8 1 = STACK (TYPE LIST)>
 306                     <PUSH LST4>
 307                     <CALL '\1aALLREACH 3 = TEMP12>
 308                     <PUTL LS8 1 TEMP12 (TYPE LIST)>
 309                     <DEAD TEMP12>
 310                     <RESTL LS8 1 = LS8 (TYPE LIST)>
 311                     <RESTL LS8 1 = LS8 (TYPE LIST)>
 312                     <JUMP + AGAIN9>
 313 EXIT6
 314                     <SET LS8 () (TYPE LIST)>
 315                     <LOOP>
 316 AGAIN15
 317                     <INTGO>
 318                     <SET SHORT18 %<CHTYPE <MIN> FIX> (TYPE FIX)>
 319                     <SET LST20 LST4>
 320                     <LOOP>
 321 AGAIN21
 322                     <INTGO>
 323                     <EMPL? LST20 + EXIT16 (TYPE LIST) (DEAD-JUMP LST20 SHORT18)>
 324                     <NTHL LST20 1 = TEMP12 (TYPE LIST)>
 325                     <LENL TEMP12 = TEMP12 (TYPE FIX)>
 326                     <LESS? TEMP12 SHORT18 - PHRASE24 (TYPE FIX) (DEAD-JUMP TEMP12) (DEAD-FALL SHORT18 LS8)>
 327                     <SET SHORT18 TEMP12>
 328                     <DEAD TEMP12>
 329                     <SET LS8 LST20>
 330 PHRASE24
 331                     <RESTL LST20 1 = LST20 (TYPE LIST)>
 332                     <RESTL LST20 1 = LST20 (TYPE LIST)>
 333                     <JUMP + AGAIN21>
 334 EXIT16
 335                     <NTHL LS8 1 = TEMP12 (TYPE LIST)>
 336                     <EMPL? TEMP12 + PHRASE27 (DEAD-JUMP TEMP12)>
 337                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
 338                     <EMPL? TEMP12 - PHRASE27>
 339                     <DEAD TEMP12>
 340                     <NTHL LS8 1 = TEMP12 (TYPE LIST)>
 341                     <NTHL TEMP12 1 = TEMP12>
 342                     <JUMP + PHRASE28>
 343 PHRASE27
 344                     <NTHL LS8 1 = TEMP12 (TYPE LIST)>
 345 PHRASE28
 346                     <CONS TEMP12 RES5 = RES5>
 347                     <DEAD TEMP12>
 348                     <NTHL LS8 1 = LST20 (TYPE LIST)>
 349                     <LOOP>
 350 MAP30
 351                     <INTGO>
 352                     <EMPL? LST20 + MAPAP33 (DEAD-JUMP LST20)>
 353                     <NTHL LST20 1 = TEMP12>
 354                     <FRAME '\1aSPLOUTEM>
 355                     <PUSH LST4>
 356                     <PUSH TEMP12>
 357                     <DEAD TEMP12>
 358                     <CALL '\1aSPLOUTEM 2>
 359                     <RESTL LST20 1 = LST20 (TYPE LIST)>
 360                     <JUMP + MAP30>
 361 MAPAP33
 362                     <LOOP>
 363 AGAIN44
 364                     <INTGO>
 365                     <SET TEMP12 LST4>
 366                     <EMPL? TEMP12 + EXIT42 (DEAD-JUMP TEMP12)>
 367                     <LOOP (TEMP12 VALUE)>
 368 TAG49
 369                     <NTHL TEMP12 1 = SHORT18>
 370                     <TYPE? SHORT18 <TYPE-CODE LIST> - TAG50 (DEAD-JUMP SHORT18)>
 371                     <VEQUAL? SHORT18 () + TAG48>
 372                     <DEAD SHORT18>
 373 TAG50
 374                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
 375                     <EMPL? TEMP12 - TAG49 (DEAD-FALL TEMP12)>
 376                     <JUMP + EXIT42>
 377 TAG48
 378                     <VEQUAL? TEMP12 LST4 - PHRASE52 (DEAD-FALL LST4)>
 379                     <RESTL TEMP12 1 = LST20 (TYPE LIST)>
 380                     <DEAD TEMP12>
 381                     <RESTL LST20 1 = LST4 (TYPE LIST)>
 382                     <DEAD LST20>
 383                     <JUMP + AGAIN44>
 384 PHRASE52
 385                     <FRAME '\1aPREV>
 386                     <PUSH LST4>
 387                     <PUSH TEMP12>
 388                     <CALL '\1aPREV 2 = LST20>
 389                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
 390                     <RESTL TEMP12 1 = SHORT18 (TYPE LIST)>
 391                     <DEAD TEMP12>
 392                     <PUTREST LST20 SHORT18>
 393                     <DEAD LST20 SHORT18>
 394                     <JUMP + AGAIN44>
 395 EXIT42
 396                     <EMPL? LST4 - AGAIN15 (TYPE LIST) (DEAD-FALL LST4 LS8)>
 397                     <FRAME '\1aREVERSE>
 398                     <PUSH RES5>
 399                     <DEAD RES5>
 400                     <CALL '\1aREVERSE 1 = LST20>
 401                     <RETURN LST20>
 402                     <DEAD LST20>
 403                     <END \1aCORDER>
 404
 405 #WORD *26374122245*
 406                     <GFCN \1aALLREACH ("VALUE" <LIST [REST ATOM]> <LIST [REST ATOM]> <LIST [REST ATOM]> <LIST [REST <LIST [REST ATOM]> ATOM]>) LATM4 LST5 MLST6>
 407                     <TEMP TEMP13:LIST ATM18:ATOM TEMP23 TEMP24>
 408                     <INTGO>
 409                     <SET TEMP13 LST5 (TYPE LIST)>
 410                     <DEAD LST5>
 411                     <LOOP>
 412 MAP8
 413                     <INTGO>
 414                     <EMPL? TEMP13 + MAPAP11 (DEAD-JUMP MLST6 TEMP13)>
 415                     <NTHL TEMP13 1 = ATM18>
 416                     <SET TEMP23 LATM4>
 417                     <EMPL? TEMP23 + TAG20 (DEAD-JUMP TEMP23)>
 418                     <LOOP (ATM18 VALUE) (TEMP23 VALUE)>
 419 TAG21
 420                     <NTHL TEMP23 1 = TEMP24>
 421                     <VEQUAL? TEMP24 ATM18 + PHRASE25 (DEAD-JUMP TEMP23 ATM18)>
 422                     <DEAD TEMP24>
 423                     <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
 424                     <EMPL? TEMP23 - TAG21 (DEAD-FALL TEMP23)>
 425 TAG20
 426                     <FRAME '\1aALLREACH>
 427                     <CONS ATM18 LATM4 = STACK>
 428                     <DEAD LATM4>
 429                     <SET TEMP23 MLST6>
 430                     <LOOP>
 431 AGAIN29
 432                     <INTGO>
 433                     <RESTL TEMP23 1 = TEMP24 (TYPE LIST)>
 434                     <NTHL TEMP24 1 = TEMP24 (TYPE ATOM)>
 435                     <VEQUAL? TEMP24 ATM18 - BOOL30 (DEAD-FALL ATM18)>
 436                     <DEAD TEMP24>
 437                     <NTHL TEMP23 1 = STACK (TYPE LIST)>
 438                     <DEAD TEMP23>
 439                     <JUMP + EXIT27>
 440 BOOL30
 441                     <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
 442                     <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
 443                     <JUMP + AGAIN29>
 444 EXIT27
 445                     <PUSH MLST6>
 446                     <CALL '\1aALLREACH 3 = LATM4>
 447 PHRASE25
 448                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
 449                     <JUMP + MAP8>
 450 MAPAP11
 451                     <RETURN LATM4>
 452                     <DEAD LATM4>
 453                     <END \1aALLREACH>
 454
 455 #WORD *7060447414*
 456                     <GFCN \1aREMEMIT ("VALUE" <OR ATOM <LIST ATOM [REST ATOM]>> ATOM) ATM4>
 457                     <TEMP TEMP8 TEMP6>
 458                     <INTGO>
 459                     <GEN-LVAL 'FUNC = TEMP8>
 460                     <VEQUAL? TEMP8 ATM4 - TAG7 (DEAD-FALL ATM4)>
 461                     <DEAD TEMP8>
 462                     <RETURN 'T>
 463 TAG7
 464                     <GEN-LVAL 'FUNCL = TEMP6>
 465                     <EMPL? TEMP6 + TAG12 (DEAD-JUMP TEMP6)>
 466                     <LOOP (ATM4 VALUE) (TEMP6 VALUE)>
 467 TAG13
 468                     <NTHL TEMP6 1 = TEMP8>
 469                     <VEQUAL? TEMP8 ATM4 + BOOL5 (DEAD-JUMP ATM4)>
 470                     <DEAD TEMP8>
 471                     <RESTL TEMP6 1 = TEMP6 (TYPE LIST)>
 472                     <EMPL? TEMP6 - TAG13 (DEAD-FALL TEMP6)>
 473 TAG12
 474                     <GEN-LVAL 'FUNCL = TEMP8>
 475                     <CONS ATM4 TEMP8 = TEMP6>
 476                     <DEAD ATM4 TEMP8>
 477                     <GEN-SET 'FUNCL TEMP6>
 478 BOOL5
 479                     <RETURN TEMP6>
 480                     <DEAD TEMP6>
 481                     <END \1aREMEMIT>
 482
 483 #WORD *2431076633*
 484                     <GFCN \1aFINDREC ("VALUE" ANY ANY) OBJ4>
 485                     <TEMP (FM5 <>) TEMP7 TEMP19>
 486                     <INTGO>
 487                     <MONAD? OBJ4 - TAG8>
 488                     <SET TEMP7 'T (TYPE ATOM)>
 489                     <JUMP + TAG9>
 490 TAG8
 491                     <SET TEMP7 %<> (TYPE FALSE)>
 492 TAG9
 493                     <VEQUAL? TEMP7 0 - MAP56 (DEAD-JUMP OBJ4) (DEAD-FALL TEMP7)>
 494                     <TYPE? OBJ4 <TYPE-CODE FORM> + TAG12>
 495                     <TYPE? OBJ4 <TYPE-CODE SEGMENT> - PHRASE10>
 496 TAG12
 497                     <CHTYPE OBJ4 <TYPE-CODE FORM> = FM5>
 498                     <EMPL? FM5 + PHRASE10 (TYPE FORM) (DEAD-JUMP FM5)>
 499                     <NTHL FM5 1 = TEMP7>
 500                     <TYPE? TEMP7 <TYPE-CODE ATOM> - PHRASE14 (DEAD-JUMP FM5)>
 501                     <DEAD TEMP7>
 502                     <NTHL FM5 1 = TEMP7 (TYPE ATOM)>
 503                     <NTHR TEMP7 1 = TEMP7 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE14) (DEAD-JUMP TEMP7 FM5)>
 504                     <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE14 (DEAD-JUMP TEMP7 FM5)>
 505                     <NTHR TEMP7 1 = TEMP7 (RECORD-TYPE GBIND)>
 506                     <TYPE? TEMP7 <TYPE-CODE UNBOUND> + PHRASE14 (DEAD-JUMP FM5)>
 507                     <DEAD TEMP7>
 508                     <NTHL FM5 1 = TEMP7 (TYPE ATOM)>
 509                     <GVAL TEMP7 = TEMP19>
 510                     <DEAD TEMP7>
 511                     <TYPE? TEMP19 <TYPE-CODE FUNCTION> - BOOL18>
 512                     <DEAD TEMP19>
 513                     <FRAME '\1aREMEMIT>
 514                     <NTHL FM5 1 = STACK (TYPE ATOM)>
 515                     <CALL '\1aREMEMIT 1>
 516 BOOL18
 517                     <NTHL FM5 1 = TEMP19 (TYPE ATOM)>
 518                     <GVAL TEMP19 = TEMP7>
 519                     <DEAD TEMP19>
 520                     <TYPE? TEMP7 <TYPE-CODE MACRO> - BOOL21>
 521                     <DEAD TEMP7>
 522                     <NTHL FM5 1 = TEMP7 (TYPE ATOM)>
 523                     <GVAL TEMP7 = TEMP19>
 524                     <DEAD TEMP7>
 525                     <EMPTY? TEMP19 + BOOL21>
 526                     <DEAD TEMP19>
 527                     <FRAME '\1aFINDREC>
 528                     <FRAME '\1aEMACRO>
 529                     <PUSH FM5>
 530                     <CALL '\1aEMACRO 1 = STACK>
 531                     <CALL '\1aFINDREC 1>
 532 BOOL21
 533                     <NTHL FM5 1 = TEMP19 (TYPE ATOM)>
 534                     <GVAL TEMP19 = TEMP7>
 535                     <DEAD TEMP19>
 536                     <GVAL 'MAPF = TEMP19>
 537                     <EQUAL? TEMP7 TEMP19 + BOOL25>
 538                     <DEAD TEMP7 TEMP19>
 539                     <NTHL FM5 1 = TEMP19 (TYPE ATOM)>
 540                     <GVAL TEMP19 = TEMP7>
 541                     <DEAD TEMP19>
 542                     <GVAL 'MAPR = TEMP19>
 543                     <EQUAL? TEMP7 TEMP19 - MAP40 (DEAD-JUMP FM5)>
 544                     <DEAD TEMP7 TEMP19>
 545 BOOL25
 546                     <SET TEMP19 FM5>
 547                     <SET TEMP7 3 (TYPE FIX)>
 548                     <LOOP (TEMP19 VALUE) (TEMP7 VALUE)>
 549 TAG27
 550                     <EMPL? TEMP19 + MAP40 (DEAD-JUMP TEMP19 TEMP7 FM5)>
 551                     <SUB TEMP7 1 = TEMP7 (TYPE FIX)>
 552                     <LESS? TEMP7 0 + TAG28 (DEAD-JUMP TEMP19 TEMP7)>
 553                     <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
 554                     <JUMP + TAG27>
 555 TAG28
 556                     <RESTL FM5 1 = TEMP19 (TYPE LIST)>
 557                     <NTHL TEMP19 1 = TEMP19>
 558                     <TYPE? TEMP19 <TYPE-CODE FORM> - BOOL31>
 559                     <DEAD TEMP19>
 560                     <FRAME '\1aCHK-GVAL>
 561                     <RESTL FM5 1 = TEMP19 (TYPE LIST)>
 562                     <NTHL TEMP19 1 = STACK (TYPE FORM)>
 563                     <DEAD TEMP19>
 564                     <CALL '\1aCHK-GVAL 1>
 565 BOOL31
 566                     <RESTL FM5 1 = TEMP7 (TYPE LIST)>
 567                     <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
 568                     <NTHL TEMP7 1 = TEMP7>
 569                     <TYPE? TEMP7 <TYPE-CODE FORM> - MAP40 (DEAD-JUMP FM5)>
 570                     <DEAD TEMP7>
 571                     <FRAME '\1aCHK-GVAL>
 572                     <RESTL FM5 1 = TEMP7 (TYPE LIST)>
 573                     <DEAD FM5>
 574                     <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
 575                     <NTHL TEMP7 1 = STACK (TYPE FORM)>
 576                     <DEAD TEMP7>
 577                     <CALL '\1aCHK-GVAL 1>
 578                     <JUMP + MAP40>
 579 PHRASE14
 580                     <FRAME '\1aSTRUCTURED?>
 581                     <NTHL OBJ4 1 = STACK>
 582                     <CALL '\1aSTRUCTURED? 1 = TEMP7>
 583                     <TYPE? TEMP7 <TYPE-CODE FALSE> + MAP40>
 584                     <DEAD TEMP7>
 585                     <NTHL OBJ4 1 = TEMP19>
 586                     <LOOP>
 587 MAP41
 588                     <INTGO>
 589                     <EMPTY? TEMP19 + MAP40 (DEAD-JUMP TEMP19)>
 590                     <FRAME '\1aFINDREC>
 591                     <NTH1 TEMP19 = STACK>
 592                     <CALL '\1aFINDREC 1>
 593                     <REST1 TEMP19 = TEMP19>
 594                     <JUMP + MAP41>
 595 MAP40
 596                     <RESTL OBJ4 1 = FM5 (TYPE LIST)>
 597                     <CHTYPE FM5 <TYPE-CODE LIST> = FM5>
 598                     <EMPL? FM5 - TAG48 (TYPE LIST) (DEAD-FALL OBJ4)>
 599                     <DEAD FM5>
 600                     <RETURN 'T>
 601 TAG48
 602                     <SET TEMP7 %<> (TYPE FALSE)>
 603                     <RESTL OBJ4 1 = FM5 (TYPE LIST)>
 604                     <DEAD OBJ4>
 605                     <CHTYPE FM5 <TYPE-CODE LIST> = FM5>
 606                     <LOOP>
 607 MAP51
 608                     <INTGO>
 609                     <EMPL? FM5 + MAP50 (DEAD-JUMP FM5) (DEAD-FALL TEMP7)>
 610                     <FRAME '\1aFINDREC>
 611                     <NTHL FM5 1 = STACK>
 612                     <CALL '\1aFINDREC 1 = TEMP7>
 613                     <RESTL FM5 1 = FM5 (TYPE LIST)>
 614                     <JUMP + MAP51>
 615 MAP50
 616                     <RETURN TEMP7>
 617                     <DEAD TEMP7>
 618 PHRASE10
 619                     <SET TEMP7 %<> (TYPE FALSE)>
 620                     <SET TEMP19 OBJ4>
 621                     <DEAD OBJ4>
 622                     <LOOP>
 623 MAP57
 624                     <INTGO>
 625                     <EMPTY? TEMP19 + MAP56 (DEAD-JUMP TEMP19) (DEAD-FALL TEMP7)>
 626                     <FRAME '\1aFINDREC>
 627                     <NTH1 TEMP19 = STACK>
 628                     <CALL '\1aFINDREC 1 = TEMP7>
 629                     <REST1 TEMP19 = TEMP19>
 630                     <JUMP + MAP57>
 631 MAP56
 632                     <RETURN TEMP7>
 633                     <DEAD TEMP7>
 634                     <END \1aFINDREC>
 635
 636 #WORD *5465313554*
 637                     <GFCN \1aANONFEMACRO1 ("VALUE" ANY ANY "TUPLE" ANY) FR4>
 638                     <MAKTUP T5:TUPLE TEMP9 TEMP13:FIX = T5>
 639                     <INTGO>
 640                     <NTHR 'MACACT 1 = TEMP9 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE7) (DEAD-JUMP TEMP9)>
 641                     <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE7 (DEAD-JUMP TEMP9)>
 642                     <NTHR TEMP9 1 = TEMP9 (RECORD-TYPE GBIND)>
 643                     <TYPE? TEMP9 <TYPE-CODE UNBOUND> + PHRASE7>
 644                     <DEAD TEMP9>
 645                     <FRAME '\1aLEGAL?>
 646                     <GVAL 'MACACT = STACK>
 647                     <CALL '\1aLEGAL? 1 = TEMP9>
 648                     <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE7>
 649                     <DEAD TEMP9>
 650                     <FRAME '\1aDISMISS>
 651                     <SET TEMP13 0 (TYPE FIX)>
 652                     <SET TEMP9 T5>
 653                     <DEAD T5>
 654                     <LOOP (TEMP9 VALUE LENGTH) (TEMP13 VALUE)>
 655 TAG14
 656                     <INTGO>
 657                     <EMPUV? TEMP9 + TAG12 (DEAD-JUMP TEMP9)>
 658                     <NTHUV TEMP9 1 = STACK>
 659                     <RESTUV TEMP9 1 = TEMP9 (TYPE VECTOR)>
 660                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
 661                     <JUMP + TAG14>
 662 TAG12
 663                     <UBLOCK <TYPE-CODE VECTOR> TEMP13 = STACK>
 664                     <DEAD TEMP13>
 665                     <GVAL 'MACACT = STACK (TYPE FRAME)>
 666                     <CALL '\1aDISMISS 2 = TEMP9>
 667                     <RETURN TEMP9>
 668                     <DEAD TEMP9>
 669 PHRASE7
 670                     <FRAME '\1aLISTEN>
 671                     <PUSH T5>
 672                     <DEAD T5>
 673                     <CALL '\1aLISTEN 1 = TEMP9>
 674                     <RETURN TEMP9>
 675                     <DEAD TEMP9>
 676                     <END \1aANONFEMACRO1>
 677                     <GFCN \1aEMACRO ("VALUE" ANY ANY) OBJ5>
 678                     <TEMP ERR6 TEM7>
 679                     <INTGO>
 680                     <FRAME '\1aCLASS>
 681                     <PUSH "ERROR">
 682                     <CALL '\1aCLASS 1 = ERR6>
 683                     <TYPE? ERR6 <TYPE-CODE FALSE> + PHRASE10>
 684                     <FRAME '\1aOFF>
 685                     <PUSH ERR6>
 686                     <CALL '\1aOFF 1>
 687 PHRASE10
 688                     <FRAME '\1aON>
 689                     <FRAME '\1aHANDLER>
 690                     <PUSH "ERROR">
 691                     <GVAL 'ANONFEMACRO1 = STACK>
 692                     <PUSH 100>
 693                     <CALL '\1aHANDLER 3 = STACK>
 694                     <CALL '\1aON 1>
 695                     <ICALL EXIT16 = TEM7>
 696                     <TEMP TEMP17 TEMP20>
 697                     <INTGO>
 698                     <CFRAME = TEMP17>
 699                     <NTHR TEMP17 5 = TEMP17 (RECORD-TYPE FRAME)>
 700                     <CFRAME = TEMP20 (TYPE FRAME)>
 701                     <BBIND 'MACACT 'ANY 'FIX TEMP20>
 702                     <DEAD TEMP20>
 703                     <ACTIVATION>
 704                     <NTHR 'MACACT 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
 705                     <NTHR TEMP20 1 = TEMP20 (RECORD-TYPE LBIND)>
 706                     <SETG 'MACACT TEMP20>
 707                     <DEAD TEMP20>
 708                     <FRAME '\1aEXPAND>
 709                     <SETLR TEMP20 TEMP17 OBJ5>
 710                     <PUSH TEMP20>
 711                     <DEAD TEMP20>
 712                     <CALL '\1aEXPAND 1 = TEMP20>
 713                     <CONS TEMP20 () = TEMP20 (DEAD-FALL OBJ5 TEMP17)>
 714                     <RETURN TEMP20>
 715                     <DEAD TEMP20>
 716 EXIT16
 717                     <TYPE? TEM7 <TYPE-CODE VECTOR> - PHRASE15>
 718                     <FRAME '\1aOFF>
 719                     <PUSH "ERROR">
 720                     <CALL '\1aOFF 1>
 721                     <TYPE? ERR6 <TYPE-CODE FALSE> + PHRASE27 (DEAD-JUMP ERR6)>
 722                     <FRAME '\1aON>
 723                     <PUSH ERR6>
 724                     <DEAD ERR6>
 725                     <CALL '\1aON 1>
 726 PHRASE27
 727                     <FRAME '\1aERROR>
 728                     <PUSH " MACRO EXPANSION LOSSAGE ">
 729                     <SET ERR6 1 (TYPE FIX)>
 730                     <LOOP (TEM7 VALUE LENGTH) (ERR6 VALUE)>
 731 TAG32
 732                     <INTGO>
 733                     <EMPUV? TEM7 + TAG29 (DEAD-JUMP TEM7)>
 734                     <NTHUV TEM7 1 = STACK>
 735                     <RESTUV TEM7 1 = TEM7 (TYPE VECTOR)>
 736                     <ADD ERR6 1 = ERR6 (TYPE FIX)>
 737                     <JUMP + TAG32>
 738 TAG29
 739                     <CALL '\1aERROR ERR6 = ERR6>
 740                     <RETURN ERR6>
 741                     <DEAD ERR6>
 742 PHRASE15
 743                     <FRAME '\1aOFF>
 744                     <PUSH "ERROR">
 745                     <CALL '\1aOFF 1>
 746                     <TYPE? ERR6 <TYPE-CODE FALSE> + BOOL36 (DEAD-JUMP ERR6)>
 747                     <FRAME '\1aON>
 748                     <PUSH ERR6>
 749                     <DEAD ERR6>
 750                     <CALL '\1aON 1>
 751 BOOL36
 752                     <NTH1 TEM7 = ERR6>
 753                     <DEAD TEM7>
 754                     <RETURN ERR6>
 755                     <DEAD ERR6>
 756                     <END \1aEMACRO>
 757
 758 #WORD *25334577364*
 759                     <GFCN \1aCHK-GVAL ("VALUE" <OR ATOM FALSE <LIST ATOM [REST ATOM]>> FORM) FM4>
 760                     <TEMP TEMP9 TEMP13>
 761                     <INTGO>
 762                     <EMPL? FM4 + TAG8 (DEAD-JUMP FM4)>
 763                     <RESTL FM4 1 = TEMP9 (TYPE LIST)>
 764                     <EMPL? TEMP9 + TAG8 (DEAD-JUMP FM4 TEMP9)>
 765                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
 766                     <EMPL? TEMP9 + TAG7 (DEAD-FALL FM4)>
 767                     <DEAD TEMP9>
 768 TAG8
 769                     <RETURN %<>>
 770 TAG7
 771                     <NTHL FM4 1 = TEMP9>
 772                     <TYPE? TEMP9 <TYPE-CODE ATOM> + TAG10 (DEAD-FALL FM4)>
 773                     <DEAD TEMP9>
 774                     <RETURN %<>>
 775 TAG10
 776                     <NTHL FM4 1 = TEMP9 (TYPE ATOM)>
 777                     <GVAL TEMP9 = TEMP13>
 778                     <DEAD TEMP9>
 779                     <GVAL 'GVAL = TEMP9>
 780                     <EQUAL? TEMP13 TEMP9 + TAG12 (DEAD-FALL FM4)>
 781                     <DEAD TEMP13 TEMP9>
 782                     <RETURN %<>>
 783 TAG12
 784                     <RESTL FM4 1 = TEMP9 (TYPE LIST)>
 785                     <NTHL TEMP9 1 = TEMP9>
 786                     <TYPE? TEMP9 <TYPE-CODE ATOM> + TAG14 (DEAD-FALL FM4)>
 787                     <DEAD TEMP9>
 788                     <RETURN %<>>
 789 TAG14
 790                     <RESTL FM4 1 = TEMP9 (TYPE LIST)>
 791                     <NTHL TEMP9 1 = TEMP9 (TYPE ATOM)>
 792                     <NTHR TEMP9 1 = TEMP13 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG17) (DEAD-JUMP FM4 TEMP13)>
 793                     <DEAD TEMP9>
 794                     <TYPE? TEMP13 <TYPE-CODE FALSE> + TAG17 (DEAD-JUMP FM4 TEMP13)>
 795                     <NTHR TEMP13 1 = TEMP13 (RECORD-TYPE GBIND)>
 796                     <TYPE? TEMP13 <TYPE-CODE UNBOUND> - TAG16 (DEAD-FALL FM4)>
 797                     <DEAD TEMP13>
 798 TAG17
 799                     <RETURN %<>>
 800 TAG16
 801                     <RESTL FM4 1 = TEMP13 (TYPE LIST)>
 802                     <NTHL TEMP13 1 = TEMP13 (TYPE ATOM)>
 803                     <GVAL TEMP13 = TEMP9>
 804                     <DEAD TEMP13>
 805                     <TYPE? TEMP9 <TYPE-CODE FUNCTION> + TAG24>
 806                     <DEAD TEMP9>
 807                     <RESTL FM4 1 = TEMP9 (TYPE LIST)>
 808                     <NTHL TEMP9 1 = TEMP9 (TYPE ATOM)>
 809                     <GVAL TEMP9 = TEMP13>
 810                     <DEAD TEMP9>
 811                     <TYPE? TEMP13 <TYPE-CODE MACRO> + TAG21 (DEAD-FALL FM4)>
 812                     <DEAD TEMP13>
 813                     <RETURN %<>>
 814 TAG21
 815                     <RESTL FM4 1 = TEMP13 (TYPE LIST)>
 816                     <NTHL TEMP13 1 = TEMP13 (TYPE ATOM)>
 817                     <GVAL TEMP13 = TEMP9>
 818                     <DEAD TEMP13>
 819                     <EMPTY? TEMP9 - TAG23 (DEAD-FALL FM4)>
 820                     <DEAD TEMP9>
 821                     <RETURN %<>>
 822 TAG23
 823                     <RESTL FM4 1 = TEMP9 (TYPE LIST)>
 824                     <NTHL TEMP9 1 = TEMP9 (TYPE ATOM)>
 825                     <GVAL TEMP9 = TEMP13>
 826                     <DEAD TEMP9>
 827                     <NTH1 TEMP13 = TEMP13>
 828                     <TYPE? TEMP13 <TYPE-CODE FUNCTION> + TAG24 (DEAD-FALL FM4)>
 829                     <DEAD TEMP13>
 830                     <RETURN %<>>
 831 TAG24
 832                     <FRAME '\1aREMEMIT>
 833                     <RESTL FM4 1 = TEMP13 (TYPE LIST)>
 834                     <DEAD FM4>
 835                     <NTHL TEMP13 1 = STACK (TYPE ATOM)>
 836                     <DEAD TEMP13>
 837                     <CALL '\1aREMEMIT 1 = TEMP9>
 838                     <RETURN TEMP9>
 839                     <DEAD TEMP9>
 840                     <END \1aCHK-GVAL>
 841
 842 #WORD *22203463771*
 843                     <GFCN \1aFINDEM ("VALUE" <LIST [REST ATOM]> ATOM) FUNC4>
 844                     <TEMP TEMP3:LBIND TEMP7>
 845                     <INTGO>
 846                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
 847                     <BBIND 'FUNC 'ATOM %<> FUNC4>
 848                     <DEAD FUNC4>
 849                     <FIXBIND>
 850                     <BBIND 'FUNCL <LIST [REST ATOM]> 'FIX ()>
 851                     <FRAME '\1aFINDREC>
 852                     <NTHR 'FUNC 2 = TEMP7 (RECORD-TYPE ATOM) (TYPE LBIND)>
 853                     <NTHR TEMP7 1 = TEMP7 (RECORD-TYPE LBIND)>
 854                     <GVAL TEMP7 = STACK>
 855                     <DEAD TEMP7>
 856                     <CALL '\1aFINDREC 1>
 857                     <NTHR 'FUNCL 2 = TEMP7 (RECORD-TYPE ATOM) (TYPE LBIND)>
 858                     <NTHR TEMP7 1 = TEMP7 (RECORD-TYPE LBIND)>
 859                     <UNBIND TEMP3>
 860                     <DEAD TEMP3>
 861                     <ADJ -18>
 862                     <RETURN TEMP7>
 863                     <DEAD TEMP7>
 864                     <END \1aFINDEM>
 865
 866 #WORD *13403552100*
 867                     <GFCN \1aFINDEMALL ("VALUE" <LIST <LIST [REST ATOM]> ATOM> <<PRIMTYPE VECTOR> [REST ATOM]>) ATM4>
 868                     <TEMP TD8:LIST TEMP12:LIST TEMP13 CURDO16:LIST TEMP27 TEMP28>
 869                     <INTGO>
 870                     <SET TD8 () (TYPE LIST)>
 871                     <LOOP>
 872 AGAIN9
 873                     <INTGO>
 874                     <EMPUV? ATM4 + EXIT6 (DEAD-JUMP ATM4)>
 875                     <FRAME '\1aFINDEM>
 876                     <NTHUV ATM4 1 = STACK (TYPE ATOM)>
 877                     <CALL '\1aFINDEM 1 = TEMP12>
 878                     <CONS TEMP12 () = TEMP12>
 879                     <NTHUV ATM4 1 = TEMP13 (TYPE ATOM)>
 880                     <CONS TEMP13 () = TEMP13>
 881                     <PUTREST TEMP12 TEMP13>
 882                     <PUTREST TEMP13 TD8>
 883                     <DEAD TEMP13 TD8>
 884                     <SET TD8 TEMP12>
 885                     <DEAD TEMP12>
 886                     <RESTUV ATM4 1 = ATM4 (TYPE VECTOR)>
 887                     <CHTYPE ATM4 <TYPE-CODE VECTOR> = ATM4>
 888                     <JUMP + AGAIN9>
 889 EXIT6
 890                     <SET TEMP12 TD8>
 891                     <NTHL TD8 1 = CURDO16 (TYPE LIST)>
 892                     <LOOP>
 893 AGAIN17
 894                     <INTGO>
 895                     <EMPL? CURDO16 - PHRASE22 (TYPE LIST) (DEAD-FALL CURDO16)>
 896                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
 897                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
 898                     <EMPL? TEMP12 - PHRASE21 (TYPE LIST) (DEAD-FALL TEMP12)>
 899                     <RETURN TD8>
 900                     <DEAD TD8>
 901 PHRASE21
 902                     <NTHL TEMP12 1 = CURDO16 (TYPE LIST)>
 903                     <JUMP + AGAIN17>
 904 PHRASE22
 905                     <NTHL CURDO16 1 = TEMP13 (TYPE ATOM)>
 906                     <SET TEMP27 TD8>
 907                     <LOOP (TEMP13 VALUE) (TEMP27 VALUE)>
 908 TAG24
 909                     <NTHL TEMP27 1 = TEMP28>
 910                     <TYPE? TEMP28 <TYPE-CODE ATOM> - TAG25 (DEAD-JUMP TEMP28)>
 911                     <VEQUAL? TEMP28 TEMP13 + PHRASE29 (DEAD-JUMP TEMP27 TEMP13)>
 912                     <DEAD TEMP28>
 913 TAG25
 914                     <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
 915                     <EMPL? TEMP27 - TAG24 (DEAD-FALL TEMP27 TEMP13)>
 916                     <SET TEMP27 TEMP12>
 917                     <LOOP (TEMP27 VALUE)>
 918 TAG30
 919                     <RESTL TEMP27 1 = TEMP13 (TYPE LIST)>
 920                     <EMPL? TEMP13 + TAG31 (DEAD-JUMP TEMP13) (DEAD-FALL TEMP27)>
 921                     <SET TEMP27 TEMP13>
 922                     <DEAD TEMP13>
 923                     <JUMP + TAG30>
 924 TAG31
 925                     <FRAME '\1aFINDEM>
 926                     <NTHL CURDO16 1 = STACK (TYPE ATOM)>
 927                     <CALL '\1aFINDEM 1 = TEMP13>
 928                     <CONS TEMP13 () = TEMP13>
 929                     <NTHL CURDO16 1 = TEMP28 (TYPE ATOM)>
 930                     <CONS TEMP28 () = TEMP28>
 931                     <PUTREST TEMP13 TEMP28>
 932                     <DEAD TEMP28>
 933                     <PUTREST TEMP27 TEMP13>
 934                     <DEAD TEMP27 TEMP13>
 935 PHRASE29
 936                     <RESTL CURDO16 1 = CURDO16 (TYPE LIST)>
 937                     <JUMP + AGAIN17>
 938                     <END \1aFINDEMALL>
 939
 940 #WORD *15613554253*
 941                     <GFCN \1aGETORDER ("VALUE" ANY "TUPLE" <TUPLE [REST ATOM]>)>
 942                     <MAKTUP ATMS4:TUPLE TEMP13 TEMP14 TEMP12 TEMP17 = ATMS4>
 943                     <INTGO>
 944                     <SET TEMP13 () (TYPE LIST)>
 945                     <SET TEMP14 () (TYPE LIST)>
 946                     <CHTYPE ATMS4 <TYPE-CODE VECTOR> = TEMP12>
 947                     <LOOP>
 948 MAP11
 949                     <INTGO>
 950                     <EMPUV? TEMP12 + MAP10 (DEAD-JUMP TEMP12 TEMP14)>
 951                     <FRAME '\1aCHECK>
 952                     <NTHUV TEMP12 1 = STACK>
 953                     <CALL '\1aCHECK 1 = TEMP17>
 954                     <CONS TEMP17 () = TEMP17 (TYPE LIST)>
 955                     <EMPL? TEMP13 - TAG18 (DEAD-FALL TEMP14 TEMP13)>
 956                     <SET TEMP13 TEMP17 (TYPE LIST)>
 957                     <JUMP + TAG19>
 958 TAG18
 959                     <PUTREST TEMP14 TEMP17>
 960                     <DEAD TEMP14>
 961 TAG19
 962                     <SET TEMP14 TEMP17 (TYPE LIST)>
 963                     <DEAD TEMP17>
 964                     <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
 965                     <JUMP + MAP11>
 966 MAP10
 967                     <SET TEMP12 TEMP13>
 968                     <DEAD TEMP13>
 969                     <EMPL? TEMP12 + TAG7 (DEAD-JUMP TEMP12)>
 970                     <LOOP (TEMP12 VALUE)>
 971 TAG8
 972                     <NTHL TEMP12 1 = TEMP17>
 973                     <TYPE? TEMP17 <TYPE-CODE FALSE> - TAG9 (DEAD-JUMP TEMP17)>
 974                     <VEQUAL? TEMP17 %<> + PHRASE6 (DEAD-JUMP TEMP12 ATMS4)>
 975                     <DEAD TEMP17>
 976 TAG9
 977                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
 978                     <EMPL? TEMP12 - TAG8 (DEAD-FALL TEMP12)>
 979 TAG7
 980                     <FRAME '\1aORDEREM>
 981                     <FRAME '\1aFINDEMALL>
 982                     <PUSH ATMS4>
 983                     <DEAD ATMS4>
 984                     <CALL '\1aFINDEMALL 1 = STACK>
 985                     <CALL '\1aORDEREM 1 = TEMP12>
 986                     <RETURN TEMP12>
 987                     <DEAD TEMP12>
 988 PHRASE6
 989                     <FRAME '\1aERROR>
 990                     <PUSH 'BAD-ARG>
 991                     <PUSH 'GETORDER>
 992                     <CALL '\1aERROR 2 = TEMP12>
 993                     <RETURN TEMP12>
 994                     <DEAD TEMP12>
 995                     <END \1aGETORDER>
 996
 997 <SET LIST_OF_FUNCTIONS '(CHECK PREV SPLOUTEM REVERSE ORDEREM REMEMIT FINDREC FINDEM FINDEMALL GETORDER)>
 998
 999 <ENDPACKAGE>