mim/development/mim/mimc/mapana.mima

   1
   2 <PACKAGE "MAPANA">
   3
   4 <ENTRY MAPPER-AN MAPRET-STOP-ANA MAPLEAVE-ANA MENTROPY MAUX MAUX1 MTUPLE MBAD MOPT MOPT2 MNORM MARGS-ANA>
   5
   6 <USE "COMPDEC" "SYMANA" "CHKDCL" "CARANA" "ADVMESS">
   7
   8 <SETG SPECIAL-MAPF-R-SUBRS [,LIST ,+ ,* ,MAX ,MIN]>
   9
  10 #WORD *35775611245*
  11                     <GFCN \1aMAPPER-AN ("VALUE" ANY NODE ANY) MNOD4 MRTYP5>
  12                     <TEMP TEMP3:LBIND TEMP32 TEMP33 K6 (SBRL23 %<>) FINTYPE25 (CHF31 %<>) FAP9:NODE SBR22 TEMP53 TEMP54 ITRNOD8:NODE TT7 L-D18:LIST KK122:LIST ASSU17:LIST LAST-SEG163 SKIPF164>
  13                     <INTGO>
  14                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
  15                     <BBIND 'MNOD 'NODE %<> MNOD4>
  16                     <DEAD MNOD4>
  17                     <BBIND 'MRTYP 'ANY %<> MRTYP5>
  18                     <DEAD MRTYP5>
  19                     <FIXBIND>
  20                     <NTHR 'MNOD 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
  21                     <NTHR TEMP33 1 = TEMP32 (RECORD-TYPE LBIND)>
  22                     <DEAD TEMP33>
  23                     <NTHUV TEMP32 5 = K6 (TYPE LIST)>
  24                     <DEAD TEMP32>
  25                     <BBIND 'MPSTRS 'LIST 'FIX ()>
  26                     <NTHR 'MNOD 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
  27                     <NTHR TEMP33 1 = TEMP32 (RECORD-TYPE LBIND)>
  28                     <DEAD TEMP33>
  29                     <NTHUV TEMP32 9 = TEMP32>
  30                     <GVAL 'MAPR = TEMP33>
  31                     <EQUAL? TEMP32 TEMP33 - TAG36>
  32                     <DEAD TEMP32 TEMP33>
  33                     <SET TEMP33 'T (TYPE ATOM)>
  34                     <JUMP + TAG39>
  35 TAG36
  36                     <SET TEMP33 %<> (TYPE FALSE)>
  37 TAG39
  38                     <BBIND 'R? <OR ATOM FALSE> 'FIX TEMP33>
  39                     <DEAD TEMP33>
  40                     <BBIND 'TUPCNT 'FIX 'FIX 1>
  41                     <BBIND 'RETYPS 'ANY 'FIX 'NO-RETURN>
  42                     <BBIND 'L-V 'LIST 'FIX>
  43                     <BBIND 'D-V 'LIST 'FIX>
  44                     <BBIND 'VALSPCD 'LIST 'FIX>
  45                     <BBIND 'SEGFX <LIST [REST NODE]> 'FIX ()>
  46                     <BBIND 'STATE 'FIX 'FIX>
  47                     <BBIND 'FRET 'ANY 'FIX 'T>
  48                     <BBIND 'FSTOP 'ANY 'FIX 'T>
  49                     <GEN-LVAL 'VARTBL = TEMP33>
  50                     <BBIND 'OV 'SYMTAB 'FIX TEMP33>
  51                     <DEAD TEMP33>
  52                     <FRAME '\1aEANA>
  53                     <NTHL K6 1 = FAP9 (TYPE NODE)>
  54                     <PUSH FAP9>
  55                     <PUSH 'ANY>
  56                     <NTHR 'MNOD 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
  57                     <NTHR TEMP33 1 = TEMP33 (RECORD-TYPE LBIND)>
  58                     <NTHUV TEMP33 4 = STACK>
  59                     <DEAD TEMP33>
  60                     <CALL '\1aEANA 3>
  61                     <FRAME '\1aSUBAP?>
  62                     <PUSH FAP9>
  63                     <CALL '\1aSUBAP? 1 = SBR22>
  64                     <TYPE? SBR22 <TYPE-CODE FALSE> + PHRASE46>
  65                     <GVAL SBR22 = TEMP33>
  66                     <GVAL 'SPECIAL-MAPF-R-SUBRS = TEMP32>
  67                     <TYPE TEMP33 = TEMP53>
  68                     <EMPTY? TEMP32 + TAG49>
  69                     <LOOP (TEMP33 VALUE) (TEMP53 VALUE) (TEMP32 LENGTH VALUE TYPE)>
  70 TAG51
  71                     <NTH1 TEMP32 = TEMP54>
  72                     <TYPE? TEMP54 TEMP53 - TAG52>
  73                     <VEQUAL? TEMP54 TEMP33 + TAG50>
  74                     <DEAD TEMP54>
  75 TAG52
  76                     <REST1 TEMP32 = TEMP32>
  77                     <EMPTY? TEMP32 - TAG51>
  78 TAG49
  79                     <SET SBRL23 %<> (TYPE FALSE)>
  80                     <JUMP + PHRASE46>
  81 TAG50
  82                     <SET SBRL23 TEMP32>
  83                     <DEAD TEMP32>
  84                     <PUTUV FAP9 1 71 (TYPE FIX)>
  85                     <GVAL SBR22 = TEMP32>
  86                     <DEAD SBR22>
  87                     <GVAL 'LIST = TEMP53>
  88                     <EQUAL? TEMP32 TEMP53 + PHRASE56>
  89                     <DEAD TEMP32 TEMP53>
  90                     <SET FINTYPE25 <OR FIX FLOAT> (TYPE FORM)>
  91                     <NTHR 'STATE 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
  92                     <PUTR TEMP53 1 1 (RECORD-TYPE LBIND)>
  93                     <DEAD TEMP53>
  94                     <JUMP + PHRASE59>
  95 PHRASE56
  96                     <SET FINTYPE25 'LIST (TYPE ATOM)>
  97 PHRASE59
  98                     <LENUV SBRL23 = TEMP53 (TYPE FIX)>
  99                     <PUTUV FAP9 9 TEMP53>
 100                     <DEAD TEMP53>
 101 PHRASE46
 102                     <RESTL K6 1 = TEMP53 (TYPE LIST)>
 103                     <NTHL TEMP53 1 = ITRNOD8 (TYPE NODE)>
 104                     <DEAD TEMP53>
 105                     <RESTL K6 1 = TEMP32 (TYPE LIST)>
 106                     <RESTL TEMP32 1 = TEMP33 (TYPE LIST)>
 107                     <DEAD TEMP32>
 108                     <LOOP>
 109 MAP61
 110                     <INTGO>
 111                     <EMPL? TEMP33 + MAPAP64>
 112                     <NTHL TEMP33 1 = TEMP53>
 113                     <FRAME '\1aMINL>
 114                     <NTHUV TEMP53 3 = STACK>
 115                     <DEAD TEMP53>
 116                     <CALL '\1aMINL 1 = TEMP32>
 117                     <LESS? TEMP32 1 - PHRASE71 (TYPE FIX)>
 118                     <DEAD TEMP32>
 119                     <SET CHF31 'T (TYPE ATOM)>
 120 PHRASE71
 121                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
 122                     <JUMP + MAP61>
 123 MAPAP64
 124                     <NTHUV ITRNOD8 1 = TT7 (TYPE FIX)>
 125                     <VEQUAL? TT7 51 - PHRASE76 (TYPE FIX)>
 126                     <PUTUV ITRNOD8 8 %<>>
 127                     <RESTL K6 1 = K6 (TYPE LIST)>
 128                     <RESTL K6 1 = K6 (TYPE LIST)>
 129                     <SET TEMP33 K6 (TYPE LIST)>
 130                     <LOOP>
 131 MAP78
 132                     <INTGO>
 133                     <EMPL? TEMP33 + MAPAP81>
 134                     <NTHL TEMP33 1 = TEMP53>
 135                     <NTHUV TEMP53 1 = SBR22 (TYPE FIX)>
 136                     <VEQUAL? SBR22 3 + BOOL89 (TYPE FIX)>
 137                     <DEAD SBR22>
 138                     <NTHUV TEMP53 1 = SBR22 (TYPE FIX)>
 139                     <VEQUAL? SBR22 68 - PHRASE88 (TYPE FIX)>
 140                     <DEAD SBR22>
 141 BOOL89
 142                     <FRAME '\1aEANA>
 143                     <NTHUV TEMP53 5 = SBR22 (TYPE LIST)>
 144                     <NTHL SBR22 1 = STACK (TYPE NODE)>
 145                     <DEAD SBR22>
 146                     <PUSH 'STRUCTURED>
 147                     <NTHR 'MNOD 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
 148                     <NTHR SBR22 1 = SBR22 (RECORD-TYPE LBIND)>
 149                     <NTHUV SBR22 4 = STACK>
 150                     <DEAD SBR22>
 151                     <CALL '\1aEANA 3 = TEMP32>
 152                     <FRAME '\1aGET-ELE-TYPE>
 153                     <PUSH TEMP32>
 154                     <DEAD TEMP32>
 155                     <PUSH 'ALL>
 156                     <CALL '\1aGET-ELE-TYPE 2 = TEMP32>
 157                     <FRAME '\1aTYPE-OK?>
 158                     <PUSH TEMP32>
 159                     <PUSH 'STRUCTURED>
 160                     <CALL '\1aTYPE-OK? 2 = SBR22>
 161                     <TYPE? SBR22 <TYPE-CODE FALSE> - PHRASE101>
 162                     <DEAD SBR22>
 163                     <FRAME '\1aCOMPILE-ERROR>
 164                     <PUSH "MAPF/R on non structured object(s)">
 165                     <NTHR 'MNOD 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
 166                     <NTHR SBR22 1 = STACK (RECORD-TYPE LBIND)>
 167                     <DEAD SBR22>
 168                     <CALL '\1aCOMPILE-ERROR 2>
 169                     <JUMP + PHRASE101>
 170 PHRASE88
 171                     <FRAME '\1aEANA>
 172                     <PUSH TEMP53>
 173                     <PUSH 'STRUCTURED>
 174                     <NTHR 'MNOD 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
 175                     <NTHR SBR22 1 = SBR22 (RECORD-TYPE LBIND)>
 176                     <NTHUV SBR22 4 = STACK>
 177                     <DEAD SBR22>
 178                     <CALL '\1aEANA 3 = TEMP32>
 179 PHRASE101
 180                     <GEN-LVAL 'VERBOSE = SBR22>
 181                     <TYPE? SBR22 <TYPE-CODE FALSE> + PHRASE106>
 182                     <DEAD SBR22>
 183                     <FRAME '\1aSTRUCTYP>
 184                     <PUSH TEMP32>
 185                     <CALL '\1aSTRUCTYP 1 = SBR22>
 186                     <TYPE? SBR22 <TYPE-CODE FALSE> + BOOL110>
 187                     <EQUAL? SBR22 'TEMPLATE - PHRASE106>
 188                     <DEAD SBR22>
 189 BOOL110
 190                     <FRAME '\1aADDVMESS>
 191                     <NTHR 'MNOD 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
 192                     <NTHR SBR22 1 = STACK (RECORD-TYPE LBIND)>
 193                     <DEAD SBR22>
 194                     <CONS TEMP32 () = SBR22>
 195                     <DEAD TEMP32>
 196                     <CONS " type is:  " SBR22 = SBR22>
 197                     <CONS TEMP53 SBR22 = SBR22>
 198                     <DEAD TEMP53>
 199                     <CONS "Non-specific structure for MAPF/R:  " SBR22 = STACK>
 200                     <DEAD SBR22>
 201                     <CALL '\1aADDVMESS 2>
 202 PHRASE106
 203                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
 204                     <JUMP + MAP78>
 205 MAPAP81
 206                     <FRAME '\1aSAVE-L-D-STATE>
 207                     <GEN-LVAL 'VARTBL = STACK>
 208                     <CALL '\1aSAVE-L-D-STATE 1 = L-D18>
 209                     <GETS 'BIND = TEMP32 (TYPE LBIND)>
 210                     <BBIND 'HTMPS 'FIX 'FIX 0>
 211                     <BBIND 'TMPS 'FIX 'FIX 0>
 212                     <NTHUV ITRNOD8 11 = TEMP54 (TYPE SYMTAB)>
 213                     <BBIND 'VARTBL 'SYMTAB 'FIX TEMP54>
 214                     <DEAD TEMP54>
 215                     <SET KK122 K6>
 216                     <DEAD K6>
 217                     <GEN-LVAL 'LIFE = TEMP33>
 218                     <GEN-LVAL 'VERBOSE = TEMP53>
 219                     <LOOP>
 220 AGAIN129
 221                     <INTGO>
 222                     <GEN-LVAL 'VERBOSE = TEMP54>
 223                     <TYPE? TEMP54 <TYPE-CODE FALSE> + PHRASE131>
 224                     <DEAD TEMP54>
 225                     <GEN-SET 'VERBOSE TEMP53>
 226                     <PUTREST TEMP53 ()>
 227 PHRASE131
 228                     <GEN-SET 'LIFE TEMP33>
 229                     <NTHR 'L-V 2 = TEMP54 (RECORD-TYPE ATOM) (TYPE LBIND)>
 230                     <PUTR TEMP54 1 () (RECORD-TYPE LBIND)>
 231                     <DEAD TEMP54>
 232                     <NTHR 'FSTOP 2 = TEMP54 (RECORD-TYPE ATOM) (TYPE LBIND)>
 233                     <PUTR TEMP54 1 'T (RECORD-TYPE LBIND)>
 234                     <DEAD TEMP54>
 235                     <FRAME '\1aRESET-VARS>
 236                     <NTHR 'VARTBL 2 = TEMP54 (RECORD-TYPE ATOM) (TYPE LBIND)>
 237                     <NTHR TEMP54 1 = STACK (RECORD-TYPE LBIND)>
 238                     <DEAD TEMP54>
 239                     <NTHR 'OV 2 = TEMP54 (RECORD-TYPE ATOM) (TYPE LBIND)>
 240                     <NTHR TEMP54 1 = STACK (RECORD-TYPE LBIND)>
 241                     <DEAD TEMP54>
 242                     <CALL '\1aRESET-VARS 2>
 243                     <FRAME '\1aMUNG-L-D-STATE>
 244                     <NTHR 'VARTBL 2 = TEMP54 (RECORD-TYPE ATOM) (TYPE LBIND)>
 245                     <NTHR TEMP54 1 = STACK (RECORD-TYPE LBIND)>
 246                     <DEAD TEMP54>
 247                     <CALL '\1aMUNG-L-D-STATE 1>
 248                     <SET K6 KK122>
 249                     <NTHR 'RETYPS 2 = TEMP54 (RECORD-TYPE ATOM) (TYPE LBIND)>
 250                     <PUTR TEMP54 1 'NO-RETURN (RECORD-TYPE LBIND)>
 251                     <DEAD TEMP54>
 252                     <FRAME '\1aBUILD-TYPE-LIST>
 253                     <NTHR 'OV 2 = TEMP54 (RECORD-TYPE ATOM) (TYPE LBIND)>
 254                     <NTHR TEMP54 1 = STACK (RECORD-TYPE LBIND)>
 255                     <DEAD TEMP54>
 256                     <CALL '\1aBUILD-TYPE-LIST 1 = ASSU17>
 257                     <FRAME '\1aBUILD-TYPE-LIST>
 258                     <NTHR 'OV 2 = TEMP54 (RECORD-TYPE ATOM) (TYPE LBIND)>
 259                     <NTHR TEMP54 1 = STACK (RECORD-TYPE LBIND)>
 260                     <DEAD TEMP54>
 261                     <CALL '\1aBUILD-TYPE-LIST 1 = TEMP54>
 262                     <NTHR 'VALSPCD 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
 263                     <PUTR SBR22 1 TEMP54 (RECORD-TYPE LBIND)>
 264                     <DEAD SBR22 TEMP54>
 265                     <NTHUV ITRNOD8 10 = TT7 (TYPE LIST)>
 266                     <SET TEMP54 %<> (TYPE FALSE)>
 267                     <SET LAST-SEG163 %<> (TYPE FALSE)>
 268                     <SET SKIPF164 %<> (TYPE FALSE)>
 269                     <LOOP>
 270 AGAIN165
 271                     <INTGO>
 272                     <EMPL? TT7 - PHRASE167 (TYPE LIST)>
 273                     <TYPE? LAST-SEG163 <TYPE-CODE FALSE> - EXIT160>
 274                     <DEAD LAST-SEG163>
 275                     <EMPL? K6 + EXIT160 (TYPE LIST)>
 276                     <DEAD K6>
 277                     <FRAME '\1aCOMPILE-ERROR>
 278                     <PUSH "MAPF/R function takes too few args ">
 279                     <PUSH ITRNOD8>
 280                     <CALL '\1aCOMPILE-ERROR 2>
 281                     <JUMP + EXIT160>
 282 PHRASE167
 283                     <NTHL TT7 1 = SBR22 (TYPE SYMTAB)>
 284                     <NTHUV SBR22 4 = SBR22 (TYPE FIX)>
 285                     <VEQUAL? SBR22 4 - PHRASE173 (TYPE FIX)>
 286                     <DEAD SBR22>
 287                     <SET TEMP54 'T (TYPE ATOM)>
 288 PHRASE173
 289                     <EMPL? K6 + PHRASE181 (TYPE LIST)>
 290                     <NTHL K6 1 = SBR22 (TYPE NODE)>
 291                     <NTHUV SBR22 1 = SBR22 (TYPE FIX)>
 292                     <VEQUAL? SBR22 68 + BOOL177 (TYPE FIX)>
 293                     <DEAD SBR22>
 294                     <NTHL K6 1 = SBR22 (TYPE NODE)>
 295                     <NTHUV SBR22 1 = SBR22 (TYPE FIX)>
 296                     <VEQUAL? SBR22 3 - PHRASE181 (TYPE FIX)>
 297                     <DEAD SBR22>
 298 BOOL177
 299                     <RESTL K6 1 = SBR22 (TYPE LIST)>
 300                     <EMPL? SBR22 - PHRASE179 (TYPE LIST)>
 301                     <DEAD SBR22>
 302                     <SET LAST-SEG163 1 (TYPE FIX)>
 303 PHRASE179
 304                     <TYPE? LAST-SEG163 <TYPE-CODE FALSE> - PHRASE181>
 305                     <VEQUAL? TEMP54 0 - PHRASE181>
 306                     <SET SKIPF164 'T (TYPE ATOM)>
 307 PHRASE181
 308                     <FRAME '\1aMANAL-DISP>
 309                     <NTHL TT7 1 = STACK>
 310                     <EMPL? K6 - TAG189 (TYPE LIST)>
 311                     <SET SBR22 %<> (TYPE FALSE)>
 312                     <JUMP + PHRASE188>
 313 TAG189
 314                     <NTHL K6 1 = SBR22 (TYPE NODE)>
 315 PHRASE188
 316                     <PUSH SBR22>
 317                     <DEAD SBR22>
 318                     <PUSH SKIPF164>
 319                     <PUSH LAST-SEG163>
 320                     <CALL '\1aMANAL-DISP 4 = SBR22>
 321                     <TYPE? SBR22 <TYPE-CODE FALSE> - BOOL185>
 322                     <DEAD SBR22>
 323                     <VEQUAL? TEMP54 0 + PHRASE184>
 324 BOOL185
 325                     <RESTL TT7 1 = TT7 (TYPE LIST)>
 326 PHRASE184
 327                     <EMPL? TT7 + PHRASE191 (TYPE LIST)>
 328                     <NTHL TT7 1 = SBR22 (TYPE SYMTAB)>
 329                     <NTHUV SBR22 3 = SBR22>
 330                     <TYPE? SBR22 <TYPE-CODE FALSE> + PHRASE191>
 331                     <DEAD SBR22>
 332                     <PUTUV ITRNOD8 13 'T>
 333 PHRASE191
 334                     <TYPE? LAST-SEG163 <TYPE-CODE FALSE> + PHRASE194>
 335                     <ADD LAST-SEG163 1 = LAST-SEG163 (TYPE FIX)>
 336 PHRASE194
 337                     <TYPE? LAST-SEG163 <TYPE-CODE FALSE> - AGAIN165>
 338                     <EMPL? K6 + AGAIN165 (TYPE LIST)>
 339                     <RESTL K6 1 = K6 (TYPE LIST)>
 340                     <JUMP + AGAIN165>
 341 EXIT160
 342                     <CONS () () = SBR22>
 343                     <PUTUV ITRNOD8 16 SBR22>
 344                     <DEAD SBR22>
 345                     <NTHR 'TMPS 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
 346                     <NTHR SBR22 1 = TT7 (RECORD-TYPE LBIND)>
 347                     <DEAD SBR22>
 348                     <NTHR 'HTMPS 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
 349                     <NTHR SBR22 1 = K6 (RECORD-TYPE LBIND)>
 350                     <DEAD SBR22>
 351                     <GEN-LVAL 'LIFE = TEMP54>
 352                     <GEN-LVAL 'VERBOSE = LAST-SEG163>
 353                     <LOOP>
 354 AGAIN212
 355                     <INTGO>
 356                     <GEN-LVAL 'VERBOSE = SBR22>
 357                     <TYPE? SBR22 <TYPE-CODE FALSE> + PHRASE214>
 358                     <DEAD SBR22>
 359                     <GEN-SET 'VERBOSE LAST-SEG163>
 360                     <PUTREST LAST-SEG163 ()>
 361 PHRASE214
 362                     <GEN-SET 'LIFE TEMP54>
 363                     <NTHR 'FRET 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
 364                     <PUTR SBR22 1 'T (RECORD-TYPE LBIND)>
 365                     <DEAD SBR22>
 366                     <NTHR 'TMPS 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
 367                     <PUTR SBR22 1 TT7 (RECORD-TYPE LBIND)>
 368                     <DEAD SBR22>
 369                     <NTHR 'HTMPS 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
 370                     <PUTR SBR22 1 K6 (RECORD-TYPE LBIND)>
 371                     <DEAD SBR22>
 372                     <FRAME '\1aBUILD-TYPE-LIST>
 373                     <NTHR 'VARTBL 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
 374                     <NTHR SBR22 1 = STACK (RECORD-TYPE LBIND)>
 375                     <DEAD SBR22>
 376                     <CALL '\1aBUILD-TYPE-LIST 1 = SBR22>
 377                     <PUTUV ITRNOD8 18 SBR22 (TYPE LIST)>
 378                     <DEAD SBR22>
 379                     <PUTUV ITRNOD8 14 'NO-RETURN>
 380                     <FRAME '\1aSEQ-AN>
 381                     <NTHUV ITRNOD8 5 = STACK (TYPE LIST)>
 382                     <NTHUV ITRNOD8 17 = STACK>
 383                     <CALL '\1aSEQ-AN 2 = SKIPF164>
 384                     <NTHUV ITRNOD8 19 = SBR22>
 385                     <TYPE? SBR22 <TYPE-CODE FALSE> + BOOL231>
 386                     <DEAD SBR22>
 387                     <FRAME '\1aASSUM-OK?>
 388                     <NTHUV ITRNOD8 18 = STACK (TYPE LIST)>
 389                     <NTHUV ITRNOD8 19 = STACK (TYPE LIST)>
 390                     <CALL '\1aASSUM-OK? 2 = SBR22>
 391                     <TYPE? SBR22 <TYPE-CODE FALSE> + AGAIN212>
 392                     <DEAD SBR22>
 393 BOOL231
 394                     <EQUAL? SKIPF164 'NO-RETURN + PHRASE234>
 395                     <NTHR 'FRET 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
 396                     <NTHR SBR22 1 = SBR22 (RECORD-TYPE LBIND)>
 397                     <TYPE? SBR22 <TYPE-CODE FALSE> - PHRASE236>
 398                     <DEAD SBR22>
 399                     <FRAME '\1aMSAVE-L-D-STATE>
 400                     <NTHR 'L-V 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
 401                     <NTHR SBR22 1 = STACK (RECORD-TYPE LBIND)>
 402                     <DEAD SBR22>
 403                     <NTHR 'OV 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
 404                     <NTHR SBR22 1 = STACK (RECORD-TYPE LBIND)>
 405                     <DEAD SBR22>
 406                     <CALL '\1aMSAVE-L-D-STATE 2 = SBR22>
 407                     <NTHR 'L-V 2 = TEMP54 (RECORD-TYPE ATOM) (TYPE LBIND)>
 408                     <PUTR TEMP54 1 SBR22 (RECORD-TYPE LBIND)>
 409                     <DEAD TEMP54 SBR22>
 410                     <FRAME '\1aASSERT-TYPES>
 411                     <FRAME '\1aORUPC>
 412                     <NTHR 'VARTBL 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
 413                     <NTHR SBR22 1 = STACK (RECORD-TYPE LBIND)>
 414                     <DEAD SBR22>
 415                     <NTHUV ITRNOD8 16 = STACK (TYPE LIST)>
 416                     <CALL '\1aORUPC 2 = STACK>
 417                     <CALL '\1aASSERT-TYPES 1>
 418                     <JUMP + PHRASE257>
 419 PHRASE236
 420                     <FRAME '\1aSAVE-L-D-STATE>
 421                     <NTHR 'OV 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
 422                     <NTHR SBR22 1 = STACK (RECORD-TYPE LBIND)>
 423                     <DEAD SBR22>
 424                     <CALL '\1aSAVE-L-D-STATE 1 = SBR22>
 425                     <NTHR 'L-V 2 = TEMP54 (RECORD-TYPE ATOM) (TYPE LBIND)>
 426                     <PUTR TEMP54 1 SBR22 (RECORD-TYPE LBIND)>
 427                     <DEAD TEMP54 SBR22>
 428                     <JUMP + PHRASE257>
 429 PHRASE234
 430                     <NTHUV ITRNOD8 14 = SBR22>
 431                     <EQUAL? SBR22 'NO-RETURN + PHRASE257>
 432                     <DEAD SBR22>
 433                     <FRAME '\1aASSERT-TYPES>
 434                     <NTHUV ITRNOD8 16 = STACK (TYPE LIST)>
 435                     <CALL '\1aASSERT-TYPES 1>
 436 PHRASE257
 437                     <FRAME '\1aORUPC>
 438                     <NTHR 'OV 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
 439                     <NTHR SBR22 1 = STACK (RECORD-TYPE LBIND)>
 440                     <DEAD SBR22>
 441                     <NTHR 'VALSPCD 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
 442                     <NTHR SBR22 1 = STACK (RECORD-TYPE LBIND)>
 443                     <DEAD SBR22>
 444                     <CALL '\1aORUPC 2 = SBR22>
 445                     <NTHR 'VALSPCD 2 = TEMP54 (RECORD-TYPE ATOM) (TYPE LBIND)>
 446                     <PUTR TEMP54 1 SBR22 (RECORD-TYPE LBIND)>
 447                     <DEAD TEMP54 SBR22>
 448                     <FRAME '\1aASSUM-OK?>
 449                     <PUSH ASSU17>
 450                     <DEAD ASSU17>
 451                     <FRAME '\1aBUILD-TYPE-LIST>
 452                     <NTHR 'VARTBL 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
 453                     <NTHR SBR22 1 = STACK (RECORD-TYPE LBIND)>
 454                     <DEAD SBR22>
 455                     <CALL '\1aBUILD-TYPE-LIST 1 = STACK>
 456                     <CALL '\1aASSUM-OK? 2 = SBR22>
 457                     <TYPE? SBR22 <TYPE-CODE FALSE> + AGAIN129>
 458                     <DEAD SBR22>
 459                     <FRAME '\1aTYPE-MERGE>
 460                     <PUSH SKIPF164>
 461                     <NTHUV ITRNOD8 14 = STACK>
 462                     <CALL '\1aTYPE-MERGE 2 = SBR22>
 463                     <PUTUV ITRNOD8 14 SBR22>
 464                     <DEAD SBR22>
 465                     <FRAME '\1aTYPE-OK?>
 466                     <NTHUV ITRNOD8 14 = STACK>
 467                     <NTHUV ITRNOD8 17 = STACK>
 468                     <CALL '\1aTYPE-OK? 2 = SBR22>
 469                     <PUTUV ITRNOD8 3 SBR22>
 470                     <DEAD SBR22>
 471                     <UNBIND TEMP32>
 472                     <DEAD TEMP32>
 473                     <ADJ -27>
 474                     <FRAME '\1aASSERT-TYPES>
 475                     <NTHR 'VALSPCD 2 = TEMP32 (RECORD-TYPE ATOM) (TYPE LBIND)>
 476                     <NTHR TEMP32 1 = STACK (RECORD-TYPE LBIND)>
 477                     <DEAD TEMP32>
 478                     <CALL '\1aASSERT-TYPES 1>
 479                     <NTHR 'STATE 2 = TEMP32 (RECORD-TYPE ATOM) (TYPE LBIND)>
 480                     <NTHR TEMP32 1 = TEMP32 (RECORD-TYPE LBIND)>
 481                     <TYPE? TEMP32 <TYPE-CODE UNBOUND> + PHRASE283>
 482                     <DEAD TEMP32>
 483                     <FRAME '\1aFIX-STATE>
 484                     <NTHUV ITRNOD8 14 = STACK>
 485                     <PUSH ITRNOD8>
 486                     <CALL '\1aFIX-STATE 2>
 487                     <NTHR 'STATE 2 = TEMP32 (RECORD-TYPE ATOM) (TYPE LBIND)>
 488                     <NTHR TEMP32 1 = TEMP32 (RECORD-TYPE LBIND)>
 489                     <GRTR? TEMP32 4 - PHRASE280 (TYPE FIX)>
 490                     <DEAD TEMP32>
 491                     <SET SBRL23 %<> (TYPE FALSE)>
 492                     <PUTUV FAP9 1 66 (TYPE FIX)>
 493                     <SET FINTYPE25 <OR FIX FLOAT> (TYPE FORM)>
 494                     <JUMP + PHRASE283>
 495 PHRASE280
 496                     <NTHR 'STATE 2 = TEMP32 (RECORD-TYPE ATOM) (TYPE LBIND)>
 497                     <NTHR TEMP32 1 = TEMP32 (RECORD-TYPE LBIND)>
 498                     <SUB TEMP32 1 = TEMP32 (TYPE FIX)>
 499                     <NTHUV [FIX FLOAT FLOAT] TEMP32 = FINTYPE25 (TYPE ATOM)>
 500                     <DEAD TEMP32>
 501 PHRASE283
 502                     <FRAME '\1aSAVE-SURVIVORS>
 503                     <PUSH L-D18>
 504                     <DEAD L-D18>
 505                     <GEN-LVAL 'LIFE = STACK>
 506                     <PUSH 'T>
 507                     <CALL '\1aSAVE-SURVIVORS 3>
 508                     <FRAME '\1aSAVE-SURVIVORS>
 509                     <NTHR 'L-V 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
 510                     <NTHR SBR22 1 = STACK (RECORD-TYPE LBIND)>
 511                     <DEAD SBR22>
 512                     <GEN-LVAL 'LIFE = STACK>
 513                     <CALL '\1aSAVE-SURVIVORS 2>
 514                     <NTHR 'FSTOP 2 = TEMP54 (RECORD-TYPE ATOM) (TYPE LBIND)>
 515                     <NTHR TEMP54 1 = TEMP54 (RECORD-TYPE LBIND)>
 516                     <TYPE? TEMP54 <TYPE-CODE FALSE> + PHRASE295>
 517                     <DEAD TEMP54>
 518                     <FRAME '\1aSAVE-L-D-STATE>
 519                     <GEN-LVAL 'VARTBL = STACK>
 520                     <CALL '\1aSAVE-L-D-STATE 1 = TEMP32>
 521                     <JUMP + PHRASE302>
 522 PHRASE295
 523                     <FRAME '\1aMSAVE-L-D-STATE>
 524                     <NTHR 'D-V 2 = TEMP32 (RECORD-TYPE ATOM) (TYPE LBIND)>
 525                     <NTHR TEMP32 1 = STACK (RECORD-TYPE LBIND)>
 526                     <DEAD TEMP32>
 527                     <GEN-LVAL 'VARTBL = STACK>
 528                     <CALL '\1aMSAVE-L-D-STATE 2 = TEMP32>
 529 PHRASE302
 530                     <NTHR 'D-V 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
 531                     <PUTR TEMP33 1 TEMP32 (RECORD-TYPE LBIND)>
 532                     <DEAD TEMP33 TEMP32>
 533                     <FRAME '\1aFREST-L-D-STATE>
 534                     <NTHR 'D-V 2 = TEMP32 (RECORD-TYPE ATOM) (TYPE LBIND)>
 535                     <NTHR TEMP32 1 = STACK (RECORD-TYPE LBIND)>
 536                     <DEAD TEMP32>
 537                     <CALL '\1aFREST-L-D-STATE 1>
 538                     <FRAME '\1aKILL-REM>
 539                     <GEN-LVAL 'LIFE = STACK>
 540                     <NTHR 'OV 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
 541                     <NTHR TEMP33 1 = STACK (RECORD-TYPE LBIND)>
 542                     <DEAD TEMP33>
 543                     <CALL '\1aKILL-REM 2 = TEMP33>
 544                     <GEN-SET 'LIFE TEMP33>
 545                     <DEAD TEMP33>
 546                     <TYPE? SBRL23 <TYPE-CODE FALSE> + PHRASE323>
 547                     <DEAD SBRL23>
 548                     <FRAME '\1aMUNG-SEGS>
 549                     <NTHR 'SEGFX 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
 550                     <NTHR TEMP33 1 = STACK (RECORD-TYPE LBIND)>
 551                     <DEAD TEMP33>
 552                     <CALL '\1aMUNG-SEGS 1>
 553 PHRASE323
 554                     <NTHUV ITRNOD8 8 = TEMP33>
 555                     <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE328>
 556                     <DEAD TEMP33>
 557                     <FRAME '\1aUPDATE-SIDE-EFFECTS>
 558                     <PUSH ITRNOD8>
 559                     <NTHR 'MNOD 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
 560                     <NTHR TEMP33 1 = STACK (RECORD-TYPE LBIND)>
 561                     <DEAD TEMP33>
 562                     <CALL '\1aUPDATE-SIDE-EFFECTS 2>
 563 PHRASE328
 564                     <NTHUV FAP9 1 = TEMP33 (TYPE FIX)>
 565                     <VEQUAL? TEMP33 2 - PHRASE333 (TYPE FIX)>
 566                     <DEAD TEMP33>
 567                     <NTHUV FAP9 4 = TEMP33>
 568                     <EQUAL? TEMP33 %<> - PHRASE333>
 569                     <DEAD TEMP33>
 570                     <FRAME '\1aTYPE-OK?>
 571                     <VEQUAL? CHF31 0 + PHRASE337>
 572                     <DEAD CHF31>
 573                     <FRAME '\1aTYPE-MERGE>
 574                     <PUSH 'FALSE>
 575                     <PUSH SKIPF164>
 576                     <DEAD SKIPF164>
 577                     <NTHR 'RETYPS 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
 578                     <NTHR TEMP33 1 = STACK (RECORD-TYPE LBIND)>
 579                     <DEAD TEMP33>
 580                     <CALL '\1aTYPE-MERGE 3 = TEMP33>
 581                     <JUMP + PHRASE341>
 582 PHRASE337
 583                     <FRAME '\1aTYPE-OK?>
 584                     <FRAME '\1aTYPE-MERGE>
 585                     <PUSH SKIPF164>
 586                     <DEAD SKIPF164>
 587                     <NTHR 'RETYPS 2 = TEMP32 (RECORD-TYPE ATOM) (TYPE LBIND)>
 588                     <NTHR TEMP32 1 = STACK (RECORD-TYPE LBIND)>
 589                     <DEAD TEMP32>
 590                     <CALL '\1aTYPE-MERGE 2 = STACK>
 591                     <NTHR 'MRTYP 2 = TEMP32 (RECORD-TYPE ATOM) (TYPE LBIND)>
 592                     <NTHR TEMP32 1 = STACK (RECORD-TYPE LBIND)>
 593                     <DEAD TEMP32>
 594                     <CALL '\1aTYPE-OK? 2 = TEMP33>
 595 PHRASE341
 596                     <PUSH TEMP33>
 597                     <DEAD TEMP33>
 598                     <NTHR 'MRTYP 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
 599                     <NTHR TEMP33 1 = STACK (RECORD-TYPE LBIND)>
 600                     <DEAD TEMP33>
 601                     <CALL '\1aTYPE-OK? 2 = TEMP33>
 602                     <JUMP + PHRASE489>
 603 PHRASE333
 604                     <TYPE? FINTYPE25 <TYPE-CODE UNBOUND> + PHRASE351>
 605                     <VEQUAL? FINTYPE25 'LIST - PHRASE353>
 606                     <FRAME '\1aTYPE-OK?>
 607                     <FRAME '\1aTYPE-MERGE>
 608                     <FRAME '\1aFORM>
 609                     <PUSH 'LIST>
 610                     <PUSH 'REST>
 611                     <NTHUV ITRNOD8 3 = STACK>
 612                     <DEAD ITRNOD8>
 613                     <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
 614                     <CALL '\1aFORM 2 = STACK>
 615                     <NTHR 'RETYPS 2 = TEMP32 (RECORD-TYPE ATOM) (TYPE LBIND)>
 616                     <NTHR TEMP32 1 = STACK (RECORD-TYPE LBIND)>
 617                     <DEAD TEMP32>
 618                     <CALL '\1aTYPE-MERGE 2 = STACK>
 619                     <NTHR 'MRTYP 2 = TEMP32 (RECORD-TYPE ATOM) (TYPE LBIND)>
 620                     <NTHR TEMP32 1 = STACK (RECORD-TYPE LBIND)>
 621                     <DEAD TEMP32>
 622                     <CALL '\1aTYPE-OK? 2 = TEMP33>
 623                     <JUMP + PHRASE489>
 624 PHRASE353
 625                     <FRAME '\1aTYPE-OK?>
 626                     <FRAME '\1aTYPE-MERGE>
 627                     <PUSH FINTYPE25>
 628                     <DEAD FINTYPE25>
 629                     <NTHR 'RETYPS 2 = TEMP32 (RECORD-TYPE ATOM) (TYPE LBIND)>
 630                     <NTHR TEMP32 1 = STACK (RECORD-TYPE LBIND)>
 631                     <DEAD TEMP32>
 632                     <CALL '\1aTYPE-MERGE 2 = STACK>
 633                     <NTHR 'MRTYP 2 = TEMP32 (RECORD-TYPE ATOM) (TYPE LBIND)>
 634                     <NTHR TEMP32 1 = STACK (RECORD-TYPE LBIND)>
 635                     <DEAD TEMP32>
 636                     <CALL '\1aTYPE-OK? 2 = TEMP33>
 637                     <JUMP + PHRASE489>
 638 PHRASE351
 639                     <NTHUV FAP9 1 = TEMP32 (TYPE FIX)>
 640                     <VEQUAL? TEMP32 66 - PHRASE369 (TYPE FIX)>
 641                     <DEAD TEMP32>
 642                     <NTHUV FAP9 4 = TEMP32>
 643                     <SET TEMP33 [TUPLE VECTOR UVECTOR] (TYPE VECTOR)>
 644                     <TYPE? TEMP32 <TYPE-CODE ATOM> - PHRASE369>
 645                     <LOOP (TEMP32 VALUE) (TEMP33 LENGTH VALUE)>
 646 TAG372
 647                     <NTHUV TEMP33 1 = SBRL23>
 648                     <VEQUAL? SBRL23 TEMP32 + TAG371>
 649                     <DEAD SBRL23>
 650                     <RESTUV TEMP33 1 = TEMP33 (TYPE VECTOR)>
 651                     <EMPUV? TEMP33 - TAG372>
 652                     <JUMP + PHRASE369>
 653 TAG371
 654                     <FRAME '\1aFORM>
 655                     <NTHUV FAP9 4 = STACK>
 656                     <DEAD FAP9>
 657                     <PUSH 'REST>
 658                     <PUSH SKIPF164>
 659                     <DEAD SKIPF164>
 660                     <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
 661                     <CALL '\1aFORM 2 = SKIPF164>
 662                     <FRAME '\1aTYPE-OK?>
 663                     <FRAME '\1aTYPE-MERGE>
 664                     <NTHR 'RETYPS 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
 665                     <NTHR TEMP33 1 = STACK (RECORD-TYPE LBIND)>
 666                     <DEAD TEMP33>
 667                     <PUSH SKIPF164>
 668                     <DEAD SKIPF164>
 669                     <CALL '\1aTYPE-MERGE 2 = STACK>
 670                     <NTHR 'MRTYP 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
 671                     <NTHR TEMP33 1 = STACK (RECORD-TYPE LBIND)>
 672                     <DEAD TEMP33>
 673                     <CALL '\1aTYPE-OK? 2 = TEMP33>
 674                     <JUMP + PHRASE489>
 675 PHRASE369
 676                     <FRAME '\1aTYPE-OK?>
 677                     <FRAME '\1aTYPE-MERGE>
 678                     <FRAME '\1aAPPLTYP>
 679                     <PUSH FAP9>
 680                     <DEAD FAP9>
 681                     <CALL '\1aAPPLTYP 1 = STACK>
 682                     <NTHR 'RETYPS 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
 683                     <NTHR TEMP33 1 = STACK (RECORD-TYPE LBIND)>
 684                     <DEAD TEMP33>
 685                     <CALL '\1aTYPE-MERGE 2 = STACK>
 686                     <NTHR 'MRTYP 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
 687                     <NTHR TEMP33 1 = STACK (RECORD-TYPE LBIND)>
 688                     <DEAD TEMP33>
 689                     <CALL '\1aTYPE-OK? 2 = TEMP33>
 690                     <JUMP + PHRASE489>
 691 PHRASE76
 692                     <VEQUAL? TT7 62 + PHRASE394 (TYPE FIX)>
 693                     <FRAME '\1aEANA>
 694                     <PUSH ITRNOD8>
 695                     <PUSH 'APPLICABLE>
 696                     <NTHR 'MNOD 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
 697                     <NTHR TEMP33 1 = TEMP33 (RECORD-TYPE LBIND)>
 698                     <NTHUV TEMP33 4 = STACK>
 699                     <DEAD TEMP33>
 700                     <CALL '\1aEANA 3>
 701 PHRASE394
 702                     <RESTL K6 1 = TEMP32 (TYPE LIST)>
 703                     <DEAD K6>
 704                     <RESTL TEMP32 1 = TEMP33 (TYPE LIST)>
 705                     <DEAD TEMP32>
 706                     <NTHR 'MPSTRS 2 = TEMP32 (RECORD-TYPE ATOM) (TYPE LBIND)>
 707                     <PUTR TEMP32 1 TEMP33 (RECORD-TYPE LBIND)>
 708                     <DEAD TEMP32>
 709                     <LOOP>
 710 MAP399
 711                     <INTGO>
 712                     <EMPL? TEMP33 + MAPAP402>
 713                     <NTHL TEMP33 1 = TEMP53>
 714                     <NTHUV TEMP53 1 = TEMP32 (TYPE FIX)>
 715                     <VEQUAL? TEMP32 3 + BOOL415 (TYPE FIX)>
 716                     <DEAD TEMP32>
 717                     <NTHUV TEMP53 1 = TEMP32 (TYPE FIX)>
 718                     <VEQUAL? TEMP32 68 - PHRASE414 (TYPE FIX)>
 719                     <DEAD TEMP32>
 720 BOOL415
 721                     <FRAME '\1aEANA>
 722                     <NTHUV TEMP53 5 = TEMP32 (TYPE LIST)>
 723                     <NTHL TEMP32 1 = STACK (TYPE NODE)>
 724                     <DEAD TEMP32>
 725                     <PUSH 'STRUCTURED>
 726                     <NTHR 'MNOD 2 = TEMP32 (RECORD-TYPE ATOM) (TYPE LBIND)>
 727                     <NTHR TEMP32 1 = TEMP32 (RECORD-TYPE LBIND)>
 728                     <NTHUV TEMP32 4 = STACK>
 729                     <DEAD TEMP32>
 730                     <CALL '\1aEANA 3 = SBR22>
 731                     <FRAME '\1aGET-ELE-TYPE>
 732                     <PUSH SBR22>
 733                     <DEAD SBR22>
 734                     <PUSH 'ALL>
 735                     <CALL '\1aGET-ELE-TYPE 2 = SBR22>
 736                     <JUMP + PHRASE420>
 737 PHRASE414
 738                     <FRAME '\1aEANA>
 739                     <PUSH TEMP53>
 740                     <PUSH 'STRUCTURED>
 741                     <NTHR 'MNOD 2 = TEMP32 (RECORD-TYPE ATOM) (TYPE LBIND)>
 742                     <NTHR TEMP32 1 = TEMP32 (RECORD-TYPE LBIND)>
 743                     <NTHUV TEMP32 4 = STACK>
 744                     <DEAD TEMP32>
 745                     <CALL '\1aEANA 3 = SBR22>
 746 PHRASE420
 747                     <GEN-LVAL 'VERBOSE = TEMP32>
 748                     <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE425>
 749                     <DEAD TEMP32>
 750                     <FRAME '\1aSTRUCTYP>
 751                     <PUSH SBR22>
 752                     <CALL '\1aSTRUCTYP 1 = TEMP32>
 753                     <TYPE? TEMP32 <TYPE-CODE FALSE> + BOOL429>
 754                     <EQUAL? TEMP32 'TEMPLATE - PHRASE425>
 755                     <DEAD TEMP32>
 756 BOOL429
 757                     <FRAME '\1aADDVMESS>
 758                     <NTHR 'MNOD 2 = TEMP32 (RECORD-TYPE ATOM) (TYPE LBIND)>
 759                     <NTHR TEMP32 1 = STACK (RECORD-TYPE LBIND)>
 760                     <DEAD TEMP32>
 761                     <CONS SBR22 () = TEMP32>
 762                     <DEAD SBR22>
 763                     <CONS " type is:  " TEMP32 = TEMP32>
 764                     <CONS TEMP53 TEMP32 = TEMP32>
 765                     <DEAD TEMP53>
 766                     <CONS "Non-specific structure for MAPF/R:  " TEMP32 = STACK>
 767                     <DEAD TEMP32>
 768                     <CALL '\1aADDVMESS 2>
 769 PHRASE425
 770                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
 771                     <JUMP + MAP399>
 772 MAPAP402
 773                     <VEQUAL? TT7 62 - PHRASE435 (TYPE FIX)>
 774                     <DEAD TT7>
 775                     <FRAME '\1aEANA>
 776                     <NTHUV ITRNOD8 5 = TEMP33 (TYPE LIST)>
 777                     <NTHL TEMP33 1 = STACK (TYPE NODE)>
 778                     <DEAD TEMP33>
 779                     <PUSH 'ANY>
 780                     <NTHR 'MNOD 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
 781                     <NTHR TEMP33 1 = TEMP33 (RECORD-TYPE LBIND)>
 782                     <NTHUV TEMP33 4 = STACK>
 783                     <DEAD TEMP33>
 784                     <CALL '\1aEANA 3 = SKIPF164>
 785                     <VEQUAL? CHF31 0 + PHRASE442>
 786                     <DEAD CHF31>
 787                     <FRAME '\1aTYPE-MERGE>
 788                     <PUSH SKIPF164>
 789                     <DEAD SKIPF164>
 790                     <PUSH 'FALSE>
 791                     <CALL '\1aTYPE-MERGE 2 = SKIPF164>
 792                     <JUMP + PHRASE442>
 793 PHRASE435
 794                     <SET SKIPF164 'ANY (TYPE ATOM)>
 795 PHRASE442
 796                     <NTHR 'STATE 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
 797                     <NTHR TEMP33 1 = TEMP33 (RECORD-TYPE LBIND)>
 798                     <TYPE? TEMP33 <TYPE-CODE UNBOUND> + PHRASE450>
 799                     <DEAD TEMP33>
 800                     <FRAME '\1aFIX-STATE>
 801                     <PUSH SKIPF164>
 802                     <NTHUV ITRNOD8 5 = CHF31 (TYPE LIST)>
 803                     <DEAD ITRNOD8>
 804                     <NTHL CHF31 1 = STACK (TYPE NODE)>
 805                     <DEAD CHF31>
 806                     <CALL '\1aFIX-STATE 2>
 807                     <NTHR 'STATE 2 = CHF31 (RECORD-TYPE ATOM) (TYPE LBIND)>
 808                     <NTHR CHF31 1 = CHF31 (RECORD-TYPE LBIND)>
 809                     <GRTR? CHF31 4 - PHRASE447 (TYPE FIX)>
 810                     <DEAD CHF31>
 811                     <SET SBRL23 %<> (TYPE FALSE)>
 812                     <PUTUV FAP9 1 66 (TYPE FIX)>
 813                     <SET FINTYPE25 <OR FIX FLOAT> (TYPE FORM)>
 814                     <JUMP + PHRASE450>
 815 PHRASE447
 816                     <NTHR 'STATE 2 = CHF31 (RECORD-TYPE ATOM) (TYPE LBIND)>
 817                     <NTHR CHF31 1 = CHF31 (RECORD-TYPE LBIND)>
 818                     <SUB CHF31 1 = CHF31 (TYPE FIX)>
 819                     <NTHUV [FIX FLOAT FLOAT] CHF31 = FINTYPE25 (TYPE ATOM)>
 820                     <DEAD CHF31>
 821 PHRASE450
 822                     <TYPE? SBRL23 <TYPE-CODE FALSE> + PHRASE454>
 823                     <DEAD SBRL23>
 824                     <FRAME '\1aMUNG-SEGS>
 825                     <NTHR 'SEGFX 2 = CHF31 (RECORD-TYPE ATOM) (TYPE LBIND)>
 826                     <NTHR CHF31 1 = STACK (RECORD-TYPE LBIND)>
 827                     <DEAD CHF31>
 828                     <CALL '\1aMUNG-SEGS 1>
 829 PHRASE454
 830                     <NTHUV FAP9 1 = CHF31 (TYPE FIX)>
 831                     <VEQUAL? CHF31 2 - PHRASE459 (TYPE FIX)>
 832                     <DEAD CHF31>
 833                     <NTHUV FAP9 4 = CHF31>
 834                     <EQUAL? CHF31 %<> - PHRASE459>
 835                     <DEAD CHF31>
 836                     <FRAME '\1aTYPE-OK?>
 837                     <PUSH SKIPF164>
 838                     <DEAD SKIPF164>
 839                     <NTHR 'MRTYP 2 = CHF31 (RECORD-TYPE ATOM) (TYPE LBIND)>
 840                     <NTHR CHF31 1 = STACK (RECORD-TYPE LBIND)>
 841                     <DEAD CHF31>
 842                     <CALL '\1aTYPE-OK? 2 = TEMP33>
 843                     <JUMP + PHRASE489>
 844 PHRASE459
 845                     <TYPE? FINTYPE25 <TYPE-CODE UNBOUND> + PHRASE464>
 846                     <VEQUAL? FINTYPE25 'LIST - PHRASE466>
 847                     <FRAME '\1aTYPE-OK?>
 848                     <FRAME '\1aFORM>
 849                     <PUSH 'LIST>
 850                     <PUSH 'REST>
 851                     <PUSH SKIPF164>
 852                     <DEAD SKIPF164>
 853                     <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
 854                     <CALL '\1aFORM 2 = STACK>
 855                     <NTHR 'MRTYP 2 = CHF31 (RECORD-TYPE ATOM) (TYPE LBIND)>
 856                     <NTHR CHF31 1 = STACK (RECORD-TYPE LBIND)>
 857                     <DEAD CHF31>
 858                     <CALL '\1aTYPE-OK? 2 = TEMP33>
 859                     <JUMP + PHRASE489>
 860 PHRASE466
 861                     <FRAME '\1aTYPE-OK?>
 862                     <PUSH FINTYPE25>
 863                     <DEAD FINTYPE25>
 864                     <NTHR 'MRTYP 2 = CHF31 (RECORD-TYPE ATOM) (TYPE LBIND)>
 865                     <NTHR CHF31 1 = STACK (RECORD-TYPE LBIND)>
 866                     <DEAD CHF31>
 867                     <CALL '\1aTYPE-OK? 2 = TEMP33>
 868                     <JUMP + PHRASE489>
 869 PHRASE464
 870                     <NTHUV FAP9 1 = CHF31 (TYPE FIX)>
 871                     <VEQUAL? CHF31 66 - PHRASE476 (TYPE FIX)>
 872                     <DEAD CHF31>
 873                     <NTHUV FAP9 4 = CHF31>
 874                     <SET TEMP33 [TUPLE VECTOR UVECTOR] (TYPE VECTOR)>
 875                     <TYPE? CHF31 <TYPE-CODE ATOM> - PHRASE476>
 876                     <LOOP (CHF31 VALUE) (TEMP33 LENGTH VALUE)>
 877 TAG479
 878                     <NTHUV TEMP33 1 = TEMP32>
 879                     <VEQUAL? TEMP32 CHF31 + TAG478>
 880                     <DEAD TEMP32>
 881                     <RESTUV TEMP33 1 = TEMP33 (TYPE VECTOR)>
 882                     <EMPUV? TEMP33 - TAG479>
 883                     <JUMP + PHRASE476>
 884 TAG478
 885                     <FRAME '\1aFORM>
 886                     <NTHUV FAP9 4 = STACK>
 887                     <DEAD FAP9>
 888                     <PUSH 'REST>
 889                     <PUSH SKIPF164>
 890                     <DEAD SKIPF164>
 891                     <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
 892                     <CALL '\1aFORM 2 = SKIPF164>
 893                     <FRAME '\1aTYPE-OK?>
 894                     <FRAME '\1aTYPE-MERGE>
 895                     <NTHR 'RETYPS 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
 896                     <NTHR TEMP33 1 = STACK (RECORD-TYPE LBIND)>
 897                     <DEAD TEMP33>
 898                     <PUSH SKIPF164>
 899                     <DEAD SKIPF164>
 900                     <CALL '\1aTYPE-MERGE 2 = STACK>
 901                     <NTHR 'MRTYP 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
 902                     <NTHR TEMP33 1 = STACK (RECORD-TYPE LBIND)>
 903                     <DEAD TEMP33>
 904                     <CALL '\1aTYPE-OK? 2 = TEMP33>
 905                     <JUMP + PHRASE489>
 906 PHRASE476
 907                     <FRAME '\1aTYPE-OK?>
 908                     <FRAME '\1aAPPLTYP>
 909                     <PUSH FAP9>
 910                     <DEAD FAP9>
 911                     <CALL '\1aAPPLTYP 1 = STACK>
 912                     <NTHR 'MRTYP 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
 913                     <NTHR TEMP33 1 = STACK (RECORD-TYPE LBIND)>
 914                     <DEAD TEMP33>
 915                     <CALL '\1aTYPE-OK? 2 = TEMP33>
 916 PHRASE489
 917                     <UNBIND TEMP3>
 918                     <DEAD TEMP3>
 919                     <ADJ -126>
 920                     <RETURN TEMP33>
 921                     <DEAD TEMP33>
 922                     <END \1aMAPPER-AN>
 923
 924 \\f
 925
 926 #WORD *31142265764*
 927                     <GFCN \1aFIX-STATE ("VALUE" FIX ANY NODE) TEM4 N5>
 928                     <TEMP TEMP12 TEMP13 TEMP14 TT6>
 929                     <INTGO>
 930                     <NTHUV N5 1 = TEMP12 (TYPE FIX)>
 931                     <GVAL 'SEG-CODES = TEMP13>
 932                     <EMPTY? TEMP13 + TAG8>
 933                     <LOOP (TEMP12 VALUE) (TEMP13 LENGTH VALUE TYPE)>
 934 TAG10
 935                     <NTH1 TEMP13 = TEMP14>
 936                     <TYPE? TEMP14 <TYPE-CODE FIX> - TAG11>
 937                     <VEQUAL? TEMP14 TEMP12 + TAG9>
 938                     <DEAD TEMP14>
 939 TAG11
 940                     <REST1 TEMP13 = TEMP13>
 941                     <EMPTY? TEMP13 - TAG10>
 942 TAG8
 943                     <SET TEMP13 %<> (TYPE FALSE)>
 944 TAG9
 945                     <EQUAL? TEM4 'FIX - PHRASE17>
 946                     <SET TEMP13 1 (TYPE FIX)>
 947                     <JUMP + PHRASE31>
 948 PHRASE17
 949                     <EQUAL? TEM4 'FLOAT - PHRASE18>
 950                     <SET TEMP13 2 (TYPE FIX)>
 951                     <JUMP + PHRASE31>
 952 PHRASE18
 953                     <FRAME '\1aTYPE-OK?>
 954                     <PUSH TEM4>
 955                     <PUSH 'FLOAT>
 956                     <CALL '\1aTYPE-OK? 2 = TEMP12>
 957                     <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE19>
 958                     <DEAD TEMP12>
 959                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE22>
 960                     <DEAD TEMP13>
 961                     <FRAME '\1aTYPE-MERGE>
 962                     <PUSH <STRUCTURED [REST FIX]>>
 963                     <NTHUV N5 3 = STACK>
 964                     <CALL '\1aTYPE-MERGE 2 = TEMP12>
 965                     <JUMP + PHRASE24>
 966 PHRASE22
 967                     <SET TEMP12 'FIX (TYPE ATOM)>
 968 PHRASE24
 969                     <PUTUV N5 3 TEMP12>
 970                     <DEAD N5 TEMP12>
 971                     <SET TEMP13 1 (TYPE FIX)>
 972                     <JUMP + PHRASE31>
 973 PHRASE19
 974                     <FRAME '\1aTYPE-OK?>
 975                     <PUSH TEM4>
 976                     <DEAD TEM4>
 977                     <PUSH 'FIX>
 978                     <CALL '\1aTYPE-OK? 2 = TEMP12>
 979                     <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE25>
 980                     <DEAD TEMP12>
 981                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE28>
 982                     <DEAD TEMP13>
 983                     <FRAME '\1aTYPE-MERGE>
 984                     <PUSH <STRUCTURED [REST FLOAT]>>
 985                     <NTHUV N5 3 = STACK>
 986                     <CALL '\1aTYPE-MERGE 2 = TEMP12>
 987                     <JUMP + PHRASE30>
 988 PHRASE28
 989                     <SET TEMP12 'FLOAT (TYPE ATOM)>
 990 PHRASE30
 991                     <PUTUV N5 3 TEMP12>
 992                     <DEAD N5 TEMP12>
 993                     <SET TEMP13 2 (TYPE FIX)>
 994                     <JUMP + PHRASE31>
 995 PHRASE25
 996                     <SET TEMP13 3 (TYPE FIX)>
 997 PHRASE31
 998                     <SET TT6 TEMP13>
 999                     <DEAD TEMP13>
1000                     <GVAL 'ASTATE = TEMP13>
1001                     <GEN-LVAL 'STATE = TEMP12>
1002                     <NTHUV TEMP13 TEMP12 = TEMP14 (TYPE UVECTOR)>
1003                     <DEAD TEMP13 TEMP12>
1004                     <NTHUU TEMP14 TT6 = TEMP12 (TYPE FIX)>
1005                     <DEAD TEMP14 TT6>
1006                     <GEN-SET 'STATE TEMP12>
1007                     <RETURN TEMP12>
1008                     <DEAD TEMP12>
1009                     <END \1aFIX-STATE>
1010
1011 <SETG SEG-CODES [,SEG-CODE ,SEGMENT-CODE]>
1012
1013 #WORD *14121054422*
1014                     <GFCN \1aMUNG-SEGS ("VALUE" <OR FALSE NODE> <LIST [REST NODE]>) SEGS4>
1015                     <TEMP TEMP14 TEMP11:LIST>
1016                     <INTGO>
1017                     <SET TEMP14 %<> (TYPE FALSE)>
1018                     <SET TEMP11 SEGS4 (TYPE LIST)>
1019                     <DEAD SEGS4>
1020                     <LOOP>
1021 MAP6
1022                     <INTGO>
1023                     <EMPL? TEMP11 + MAPAP9>
1024                     <NTHL TEMP11 1 = TEMP14>
1025                     <PUTUV TEMP14 1 68 (TYPE FIX)>
1026                     <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
1027                     <JUMP + MAP6>
1028 MAPAP9
1029                     <RETURN TEMP14>
1030                     <DEAD TEMP14>
1031                     <END \1aMUNG-SEGS>
1032
1033 #WORD *32170554246*
1034                     <GFCN \1aMARGS-ANA ("VALUE" ANY NODE ANY) N4 R5>
1035                     <TEMP TEMP8 NN7:FIX>
1036                     <INTGO>
1037                     <GEN-LVAL 'MPSTRS = TEMP8>
1038                     <NTHUV N4 4 = NN7 (TYPE FIX)>
1039                     <DEAD N4>
1040                     <FRAME '\1aTYPE-OK?>
1041                     <FRAME '\1aGET-ELE-TYPE>
1042                     <SUB NN7 1 = NN7 (TYPE FIX)>
1043                     <GRTR? NN7 0 - RESTL17 (TYPE FIX)>
1044                     <LOOP (TEMP8 VALUE) (NN7 VALUE)>
1045 RESTL15
1046                     <INTGO>
1047                     <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
1048                     <SUB NN7 1 = NN7 (TYPE FIX)>
1049                     <GRTR? NN7 0 + RESTL15 (TYPE FIX)>
1050 RESTL17
1051                     <NTHL TEMP8 1 = TEMP8 (TYPE NODE)>
1052                     <NTHUV TEMP8 3 = STACK>
1053                     <DEAD TEMP8>
1054                     <PUSH 'ALL>
1055                     <GEN-LVAL 'R? = STACK>
1056                     <CALL '\1aGET-ELE-TYPE 3 = STACK>
1057                     <PUSH R5>
1058                     <DEAD R5>
1059                     <CALL '\1aTYPE-OK? 2 = R5>
1060                     <GEN-LVAL 'R? = TEMP8>
1061                     <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE21>
1062                     <DEAD TEMP8>
1063                     <FRAME '\1aTYPE-OK?>
1064                     <PUSH R5>
1065                     <DEAD R5>
1066                     <PUSH <STRUCTURED ANY>>
1067                     <CALL '\1aTYPE-OK? 2 = TEMP8>
1068                     <RETURN TEMP8>
1069                     <DEAD TEMP8>
1070 PHRASE21
1071                     <RETURN R5>
1072                     <DEAD R5>
1073                     <END \1aMARGS-ANA>
1074
1075 #WORD *32447376350*
1076                     <GFCN \1aMAUX ("VALUE" ATOM SYMTAB <OR FALSE NODE> ANY ANY) SYM4 STRUC5 SKIPF6 LAST-SEG7>
1077                     <TEMP TEMP12>
1078                     <INTGO>
1079                     <TYPE? STRUC5 <TYPE-CODE FALSE> + PHRASE9>
1080                     <DEAD STRUC5>
1081                     <TYPE? SKIPF6 <TYPE-CODE FALSE> - PHRASE9>
1082                     <DEAD SKIPF6>
1083                     <TYPE? LAST-SEG7 <TYPE-CODE FALSE> - PHRASE9>
1084                     <DEAD LAST-SEG7>
1085                     <FRAME '\1aCOMPILE-ERROR>
1086                     <PUSH "MAPF/R function takes too many args ">
1087                     <GEN-LVAL 'MNOD = TEMP12>
1088                     <NTHUV TEMP12 5 = TEMP12 (TYPE LIST)>
1089                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
1090                     <NTHL TEMP12 1 = STACK (TYPE NODE)>
1091                     <DEAD TEMP12>
1092                     <CALL '\1aCOMPILE-ERROR 2>
1093                     <RETURN 'T>
1094 PHRASE9
1095                     <FRAME '\1aNORM-BAN>
1096                     <PUSH SYM4>
1097                     <DEAD SYM4>
1098                     <CALL '\1aNORM-BAN 1>
1099                     <RETURN 'T>
1100                     <END \1aMAUX>
1101
1102 #WORD *32561556536*
1103                     <GFCN \1aMAUX1 ("VALUE" ATOM SYMTAB <OR FALSE NODE> ANY ANY) SYM4 STRUC5 SKIPF6 LAST-SEG7>
1104                     <TEMP TEMP12>
1105                     <INTGO>
1106                     <TYPE? STRUC5 <TYPE-CODE FALSE> + PHRASE9>
1107                     <DEAD STRUC5>
1108                     <TYPE? SKIPF6 <TYPE-CODE FALSE> - PHRASE9>
1109                     <DEAD SKIPF6>
1110                     <TYPE? LAST-SEG7 <TYPE-CODE FALSE> - PHRASE9>
1111                     <DEAD LAST-SEG7>
1112                     <FRAME '\1aCOMPILE-ERROR>
1113                     <PUSH "MAPF/R function takes too many args ">
1114                     <GEN-LVAL 'MNOD = TEMP12>
1115                     <NTHUV TEMP12 5 = TEMP12 (TYPE LIST)>
1116                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
1117                     <NTHL TEMP12 1 = STACK (TYPE NODE)>
1118                     <DEAD TEMP12>
1119                     <CALL '\1aCOMPILE-ERROR 2>
1120 PHRASE9
1121                     <GEN-LVAL 'ANALY-OK = TEMP12>
1122                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE16>
1123                     <DEAD TEMP12>
1124                     <SET TEMP12 'NO-RETURN (TYPE ATOM)>
1125                     <JUMP + PHRASE19>
1126 PHRASE16
1127                     <NTHUV SYM4 7 = TEMP12>
1128 PHRASE19
1129                     <PUTUV SYM4 18 TEMP12>
1130                     <DEAD TEMP12>
1131                     <GEN-LVAL 'ANALY-OK = TEMP12>
1132                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE21>
1133                     <DEAD TEMP12>
1134                     <SET TEMP12 'NO-RETURN (TYPE ATOM)>
1135                     <JUMP + PHRASE24>
1136 PHRASE21
1137                     <SET TEMP12 'ANY (TYPE ATOM)>
1138 PHRASE24
1139                     <PUTUV SYM4 17 TEMP12>
1140                     <DEAD SYM4 TEMP12>
1141                     <RETURN 'T>
1142                     <END \1aMAUX1>
1143
1144 #WORD *17154376411*
1145                     <GFCN \1aMNORM ("VALUE" ATOM SYMTAB <OR NODE FALSE> ANY ANY) SYM4 STRUC5 SKIPF6 LAST-SEG7>
1146                     <TEMP TEMP3:LBIND TEMP13 TEMP32>
1147                     <INTGO>
1148                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
1149                     <NTHUV SYM4 1 = TEMP13 (TYPE SYMTAB)>
1150                     <BBIND 'VARTBL 'SYMTAB 'FIX TEMP13>
1151                     <DEAD TEMP13>
1152                     <TYPE? STRUC5 <TYPE-CODE FALSE> + PHRASE15>
1153                     <TYPE? SKIPF6 <TYPE-CODE FALSE> - PHRASE15>
1154                     <TYPE? LAST-SEG7 <TYPE-CODE FALSE> + PHRASE18>
1155                     <FRAME '\1aGET-ELE-TYPE>
1156                     <FRAME '\1aEANA>
1157                     <NTHUV STRUC5 5 = TEMP13 (TYPE LIST)>
1158                     <NTHL TEMP13 1 = STACK (TYPE NODE)>
1159                     <DEAD TEMP13>
1160                     <PUSH 'STRUCTURED>
1161                     <PUSH 'MAPF/R>
1162                     <CALL '\1aEANA 3 = STACK>
1163                     <PUSH LAST-SEG7>
1164                     <DEAD LAST-SEG7>
1165                     <CALL '\1aGET-ELE-TYPE 2 = TEMP13>
1166                     <JUMP + PHRASE21>
1167 PHRASE18
1168                     <FRAME '\1aEANA>
1169                     <PUSH STRUC5>
1170                     <PUSH 'ANY>
1171                     <PUSH 'MAPF/R>
1172                     <CALL '\1aEANA 3 = TEMP13>
1173 PHRASE21
1174                     <FRAME '\1aTYPE-OK?>
1175                     <FRAME '\1aGET-ELE-TYPE>
1176                     <PUSH TEMP13>
1177                     <DEAD TEMP13>
1178                     <PUSH 'ALL>
1179                     <GEN-LVAL 'R? = STACK>
1180                     <CALL '\1aGET-ELE-TYPE 3 = STACK>
1181                     <NTHUV SYM4 7 = STACK>
1182                     <CALL '\1aTYPE-OK? 2 = TEMP13>
1183                     <TYPE? TEMP13 <TYPE-CODE FALSE> - PHRASE24>
1184                     <FRAME '\1aCOMPILE-ERROR>
1185                     <PUSH "MAPF/R structure violates arg DECL ">
1186                     <NTHUV SYM4 2 = STACK (TYPE ATOM)>
1187                     <PUSH " ">
1188                     <NTHUV SYM4 7 = STACK>
1189                     <PUSH STRUC5>
1190                     <DEAD STRUC5>
1191                     <CALL '\1aCOMPILE-ERROR 5>
1192 PHRASE24
1193                     <GEN-LVAL 'R? = TEMP32>
1194                     <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE31>
1195                     <DEAD TEMP32>
1196                     <FRAME '\1aTYPE-AND>
1197                     <PUSH TEMP13>
1198                     <DEAD TEMP13>
1199                     <PUSH <STRUCTURED ANY>>
1200                     <CALL '\1aTYPE-AND 2 = TEMP13>
1201 PHRASE31
1202                     <FRAME '\1aN=?>
1203                     <PUSH TEMP13>
1204                     <NTHUV SYM4 7 = STACK>
1205                     <CALL '\1aN=? 2 = TEMP32>
1206                     <VEQUAL? TEMP32 0 + PHRASE37>
1207                     <DEAD TEMP32>
1208                     <PUTUV SYM4 17 TEMP13>
1209 PHRASE37
1210                     <PUTUV SYM4 18 TEMP13>
1211                     <DEAD SYM4 TEMP13>
1212                     <JUMP + PHRASE39>
1213 PHRASE15
1214                     <TYPE? SKIPF6 <TYPE-CODE FALSE> - PHRASE39>
1215                     <DEAD SKIPF6>
1216                     <FRAME '\1aCOMPILE-ERROR>
1217                     <PUSH "Too fewa argumens MAPF/R function">
1218                     <GEN-LVAL 'MNOD = STACK>
1219                     <CALL '\1aCOMPILE-ERROR 2>
1220 PHRASE39
1221                     <UNBIND TEMP3>
1222                     <DEAD TEMP3>
1223                     <ADJ -9>
1224                     <RETURN 'T>
1225                     <END \1aMNORM>
1226
1227 #WORD *17624660077*
1228                     <GFCN \1aMOPT ("VALUE" ATOM SYMTAB <OR FALSE NODE> ANY ANY) SYM4 STRUC5 SKIPF6 LAST-SEG7>
1229                     <TEMP TEMP3:LBIND TEMP9:SYMTAB>
1230                     <INTGO>
1231                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
1232                     <NTHUV SYM4 1 = TEMP9 (TYPE SYMTAB)>
1233                     <BBIND 'VARTBL 'SYMTAB 'FIX TEMP9>
1234                     <DEAD TEMP9>
1235                     <TYPE? STRUC5 <TYPE-CODE FALSE> + PHRASE11>
1236                     <PUTUV SYM4 9 %<>>
1237                     <FRAME '\1aMNORM>
1238                     <PUSH SYM4>
1239                     <PUSH STRUC5>
1240                     <PUSH SKIPF6>
1241                     <PUSH LAST-SEG7>
1242                     <CALL '\1aMNORM 4>
1243 PHRASE11
1244                     <TYPE? STRUC5 <TYPE-CODE FALSE> + BOOL15>
1245                     <DEAD STRUC5>
1246                     <TYPE? SKIPF6 <TYPE-CODE FALSE> - BOOL15>
1247                     <DEAD SKIPF6>
1248                     <TYPE? LAST-SEG7 <TYPE-CODE FALSE> + PHRASE14>
1249                     <DEAD LAST-SEG7>
1250 BOOL15
1251                     <FRAME '\1aNORM-BAN>
1252                     <PUSH SYM4>
1253                     <DEAD SYM4>
1254                     <CALL '\1aNORM-BAN 1>
1255 PHRASE14
1256                     <UNBIND TEMP3>
1257                     <DEAD TEMP3>
1258                     <ADJ -9>
1259                     <RETURN 'T>
1260                     <END \1aMOPT>
1261
1262 #WORD *20315552172*
1263                     <GFCN \1aMBAD ("VALUE" ANY ANY ANY ANY ANY) SYM4 STRUC5 SKIPF6 LAST-SEG7>
1264                     <TEMP TEMP9>
1265                     <INTGO>
1266                     <FRAME '\1aCOMPILE-ERROR>
1267                     <PUSH "Unrecognized arg decl in MAPF/R function ">
1268                     <NTHUV SYM4 2 = STACK (TYPE ATOM)>
1269                     <DEAD SYM4>
1270                     <CALL '\1aCOMPILE-ERROR 2 = TEMP9>
1271                     <RETURN TEMP9>
1272                     <DEAD TEMP9>
1273                     <END \1aMBAD>
1274
1275 #WORD *5335112557*
1276                     <GFCN \1aMOPT2 ("VALUE" ATOM ANY ANY ANY ANY) SYM4 STRUC5 SKIPF6 LAST-SEG7>
1277                     <TEMP>
1278                     <INTGO>
1279                     <TYPE? STRUC5 <TYPE-CODE FALSE> + PHRASE9>
1280                     <FRAME '\1aMNORM>
1281                     <PUSH SYM4>
1282                     <DEAD SYM4>
1283                     <PUSH STRUC5>
1284                     <DEAD STRUC5>
1285                     <PUSH SKIPF6>
1286                     <DEAD SKIPF6>
1287                     <PUSH LAST-SEG7>
1288                     <DEAD LAST-SEG7>
1289                     <CALL '\1aMNORM 4>
1290 PHRASE9
1291                     <RETURN 'T>
1292                     <END \1aMOPT2>
1293
1294 \\f
1295
1296 #WORD *30576112375*
1297                     <GFCN \1aMTUPLE ("VALUE" <OR ATOM !<FALSE>> ANY ANY ANY ANY) SYM4 STRUC5 SKIPF6 LAST-SEG7>
1298                     <TEMP TEMP3:LBIND TEMP12 ATYP10 TEMP38>
1299                     <INTGO>
1300                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
1301                     <NTHUV SYM4 1 = TEMP12>
1302                     <BBIND 'VARTBL 'ANY 'FIX TEMP12>
1303                     <DEAD TEMP12>
1304                     <FRAME '\1aGET-ELE-TYPE>
1305                     <NTHUV SYM4 7 = STACK>
1306                     <TYPE? LAST-SEG7 <TYPE-CODE FALSE> + PHRASE15>
1307                     <SET TEMP12 'ALL (TYPE ATOM)>
1308                     <JUMP + PHRASE16>
1309 PHRASE15
1310                     <FRAME '\1a+>
1311                     <GEN-LVAL 'TUPCNT = STACK>
1312                     <PUSH 1>
1313                     <CALL '\1a+ 2 = TEMP12>
1314                     <GEN-SET 'TUPCNT TEMP12>
1315 PHRASE16
1316                     <PUSH TEMP12>
1317                     <DEAD TEMP12>
1318                     <CALL '\1aGET-ELE-TYPE 2 = ATYP10>
1319                     <TYPE? STRUC5 <TYPE-CODE FALSE> + PHRASE24>
1320                     <TYPE? SKIPF6 <TYPE-CODE FALSE> - PHRASE24>
1321                     <DEAD SKIPF6>
1322                     <GEN-LVAL 'R? = TEMP12>
1323                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE27>
1324                     <DEAD TEMP12>
1325                     <TYPE? LAST-SEG7 <TYPE-CODE FALSE> + PHRASE33>
1326                     <DEAD LAST-SEG7>
1327                     <FRAME '\1aEANA>
1328                     <NTHUV STRUC5 5 = TEMP12 (TYPE LIST)>
1329                     <DEAD STRUC5>
1330                     <NTHL TEMP12 1 = STACK (TYPE NODE)>
1331                     <DEAD TEMP12>
1332                     <PUSH 'STRUCTURED>
1333                     <PUSH 'MAPF/R>
1334                     <CALL '\1aEANA 3 = TEMP12>
1335                     <FRAME '\1aSTRUCTYP>
1336                     <FRAME '\1aGET-ELE-TYPE>
1337                     <PUSH TEMP12>
1338                     <DEAD TEMP12>
1339                     <PUSH 'ALL>
1340                     <CALL '\1aGET-ELE-TYPE 2 = STACK>
1341                     <CALL '\1aSTRUCTYP 1 = TEMP12>
1342                     <FRAME '\1aSTRUCTYP>
1343                     <PUSH ATYP10>
1344                     <DEAD ATYP10>
1345                     <CALL '\1aSTRUCTYP 1 = TEMP38>
1346                     <EQUAL? TEMP12 TEMP38 + PHRASE60>
1347                     <DEAD TEMP12 TEMP38>
1348                     <JUMP + PHRASE39>
1349 PHRASE33
1350                     <FRAME '\1aEANA>
1351                     <PUSH STRUC5>
1352                     <DEAD STRUC5>
1353                     <PUSH 'STRUCTURED>
1354                     <PUSH 'MAPF/R>
1355                     <CALL '\1aEANA 3 = TEMP12>
1356                     <FRAME '\1aSTRUCTYP>
1357                     <PUSH TEMP12>
1358                     <DEAD TEMP12>
1359                     <CALL '\1aSTRUCTYP 1 = TEMP38>
1360                     <FRAME '\1aSTRUCTYP>
1361                     <PUSH ATYP10>
1362                     <DEAD ATYP10>
1363                     <CALL '\1aSTRUCTYP 1 = TEMP12>
1364                     <EQUAL? TEMP38 TEMP12 + PHRASE60>
1365                     <DEAD TEMP38 TEMP12>
1366 PHRASE39
1367                     <FRAME '\1aCOMPILE-ERROR>
1368                     <PUSH "Bad argument to MAPF/R function ">
1369                     <NTHUV SYM4 2 = STACK (TYPE ATOM)>
1370                     <DEAD SYM4>
1371                     <GEN-LVAL 'MNOD = STACK>
1372                     <CALL '\1aCOMPILE-ERROR 3>
1373                     <JUMP + PHRASE60>
1374 PHRASE27
1375                     <TYPE? LAST-SEG7 <TYPE-CODE FALSE> + PHRASE56>
1376                     <DEAD LAST-SEG7>
1377                     <FRAME '\1aEANA>
1378                     <NTHUV STRUC5 5 = TEMP38 (TYPE LIST)>
1379                     <DEAD STRUC5>
1380                     <NTHL TEMP38 1 = STACK (TYPE NODE)>
1381                     <DEAD TEMP38>
1382                     <PUSH 'STRUCTURED>
1383                     <PUSH 'MAPF/R>
1384                     <CALL '\1aEANA 3 = TEMP12>
1385                     <FRAME '\1aTYPE-OK?>
1386                     <FRAME '\1aGET-ELE-TYPE>
1387                     <FRAME '\1aGET-ELE-TYPE>
1388                     <PUSH TEMP12>
1389                     <DEAD TEMP12>
1390                     <PUSH 'ALL>
1391                     <CALL '\1aGET-ELE-TYPE 2 = STACK>
1392                     <PUSH 'ALL>
1393                     <CALL '\1aGET-ELE-TYPE 2 = STACK>
1394                     <PUSH ATYP10>
1395                     <DEAD ATYP10>
1396                     <CALL '\1aTYPE-OK? 2 = TEMP38>
1397                     <TYPE? TEMP38 <TYPE-CODE FALSE> - PHRASE60>
1398                     <DEAD TEMP38>
1399                     <FRAME '\1aCOMPILE-ERROR>
1400                     <PUSH "Bad argument to MAPF/R function ">
1401                     <NTHUV SYM4 2 = STACK (TYPE ATOM)>
1402                     <DEAD SYM4>
1403                     <GEN-LVAL 'MNOD = STACK>
1404                     <CALL '\1aCOMPILE-ERROR 3>
1405                     <JUMP + PHRASE60>
1406 PHRASE56
1407                     <FRAME '\1aTYPE-OK?>
1408                     <FRAME '\1aGET-ELE-TYPE>
1409                     <FRAME '\1aEANA>
1410                     <PUSH STRUC5>
1411                     <DEAD STRUC5>
1412                     <PUSH 'STRUCTURED>
1413                     <PUSH 'MAPF/R>
1414                     <CALL '\1aEANA 3 = STACK>
1415                     <PUSH 'ALL>
1416                     <CALL '\1aGET-ELE-TYPE 2 = STACK>
1417                     <PUSH ATYP10>
1418                     <DEAD ATYP10>
1419                     <CALL '\1aTYPE-OK? 2 = TEMP12>
1420                     <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE60>
1421                     <DEAD TEMP12>
1422                     <FRAME '\1aCOMPILE-ERROR>
1423                     <PUSH "Bad argument to MAPF/R function ">
1424                     <NTHUV SYM4 2 = STACK (TYPE ATOM)>
1425                     <DEAD SYM4>
1426                     <GEN-LVAL 'MNOD = STACK>
1427                     <CALL '\1aCOMPILE-ERROR 3>
1428 PHRASE60
1429                     <SET TEMP12 %<> (TYPE FALSE)>
1430                     <JUMP + PHRASE69>
1431 PHRASE24
1432                     <SET TEMP12 'T (TYPE ATOM)>
1433 PHRASE69
1434                     <UNBIND TEMP3>
1435                     <DEAD TEMP3>
1436                     <ADJ -9>
1437                     <RETURN TEMP12>
1438                     <DEAD TEMP12>
1439                     <END \1aMTUPLE>
1440
1441 #WORD *15662631777*
1442                     <GFCN \1aMENTROPY ("VALUE" ATOM ANY ANY "OPTIONAL" ANY ANY) N7 R8 X9 Y10>
1443                     <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6>
1444 OPT4
1445                     <PUSH #T$UNBOUND 0>
1446 OPT5
1447                     <PUSH #T$UNBOUND 0>
1448 OPT6
1449                     <TEMP>
1450                     <INTGO>
1451                     <RETURN 'T>
1452                     <END \1aMENTROPY>
1453
1454 #WORD *22276207007*
1455                     <GFCN \1aMANAL-DISP ("VALUE" ANY ANY ANY ANY ANY) SYM4 NOD5 SKIPF6 LAST-SEG7>
1456                     <TEMP COD8>
1457                     <INTGO>
1458                     <NTHUV SYM4 4 = COD8 (TYPE FIX)>
1459                     <DISPATCH COD8 1 CASE11 CASE12 CASE13 CASE14 CASE15 CASE16 CASE17 CASE18 CASE19 CASE20 CASE21 CASE22 CASE23>
1460                     <DEAD COD8>
1461                     <RETURN %<>>
1462 CASE11
1463                     <FRAME '\1aMENTROPY>
1464                     <PUSH SYM4>
1465                     <DEAD SYM4>
1466                     <PUSH NOD5>
1467                     <DEAD NOD5>
1468                     <PUSH SKIPF6>
1469                     <DEAD SKIPF6>
1470                     <PUSH LAST-SEG7>
1471                     <DEAD LAST-SEG7>
1472                     <CALL '\1aMENTROPY 4 = COD8>
1473                     <RETURN COD8>
1474                     <DEAD COD8>
1475 CASE12
1476                     <FRAME '\1aMAUX>
1477                     <PUSH SYM4>
1478                     <DEAD SYM4>
1479                     <PUSH NOD5>
1480                     <DEAD NOD5>
1481                     <PUSH SKIPF6>
1482                     <DEAD SKIPF6>
1483                     <PUSH LAST-SEG7>
1484                     <DEAD LAST-SEG7>
1485                     <CALL '\1aMAUX 4 = COD8>
1486                     <RETURN COD8>
1487                     <DEAD COD8>
1488 CASE13
1489                     <FRAME '\1aMAUX1>
1490                     <PUSH SYM4>
1491                     <DEAD SYM4>
1492                     <PUSH NOD5>
1493                     <DEAD NOD5>
1494                     <PUSH SKIPF6>
1495                     <DEAD SKIPF6>
1496                     <PUSH LAST-SEG7>
1497                     <DEAD LAST-SEG7>
1498                     <CALL '\1aMAUX1 4 = COD8>
1499                     <RETURN COD8>
1500                     <DEAD COD8>
1501 CASE14
1502                     <FRAME '\1aMTUPLE>
1503                     <PUSH SYM4>
1504                     <DEAD SYM4>
1505                     <PUSH NOD5>
1506                     <DEAD NOD5>
1507                     <PUSH SKIPF6>
1508                     <DEAD SKIPF6>
1509                     <PUSH LAST-SEG7>
1510                     <DEAD LAST-SEG7>
1511                     <CALL '\1aMTUPLE 4 = COD8>
1512                     <RETURN COD8>
1513                     <DEAD COD8>
1514 CASE15
1515                     <FRAME '\1aMBAD>
1516                     <PUSH SYM4>
1517                     <DEAD SYM4>
1518                     <PUSH NOD5>
1519                     <DEAD NOD5>
1520                     <PUSH SKIPF6>
1521                     <DEAD SKIPF6>
1522                     <PUSH LAST-SEG7>
1523                     <DEAD LAST-SEG7>
1524                     <CALL '\1aMBAD 4 = COD8>
1525                     <RETURN COD8>
1526                     <DEAD COD8>
1527 CASE16
1528                     <FRAME '\1aMOPT>
1529                     <PUSH SYM4>
1530                     <DEAD SYM4>
1531                     <PUSH NOD5>
1532                     <DEAD NOD5>
1533                     <PUSH SKIPF6>
1534                     <DEAD SKIPF6>
1535                     <PUSH LAST-SEG7>
1536                     <DEAD LAST-SEG7>
1537                     <CALL '\1aMOPT 4 = COD8>
1538                     <RETURN COD8>
1539                     <DEAD COD8>
1540 CASE17
1541                     <FRAME '\1aMOPT>
1542                     <PUSH SYM4>
1543                     <DEAD SYM4>
1544                     <PUSH NOD5>
1545                     <DEAD NOD5>
1546                     <PUSH SKIPF6>
1547                     <DEAD SKIPF6>
1548                     <PUSH LAST-SEG7>
1549                     <DEAD LAST-SEG7>
1550                     <CALL '\1aMOPT 4 = COD8>
1551                     <RETURN COD8>
1552                     <DEAD COD8>
1553 CASE18
1554                     <FRAME '\1aMOPT2>
1555                     <PUSH SYM4>
1556                     <DEAD SYM4>
1557                     <PUSH NOD5>
1558                     <DEAD NOD5>
1559                     <PUSH SKIPF6>
1560                     <DEAD SKIPF6>
1561                     <PUSH LAST-SEG7>
1562                     <DEAD LAST-SEG7>
1563                     <CALL '\1aMOPT2 4 = COD8>
1564                     <RETURN COD8>
1565                     <DEAD COD8>
1566 CASE19
1567                     <FRAME '\1aMOPT2>
1568                     <PUSH SYM4>
1569                     <DEAD SYM4>
1570                     <PUSH NOD5>
1571                     <DEAD NOD5>
1572                     <PUSH SKIPF6>
1573                     <DEAD SKIPF6>
1574                     <PUSH LAST-SEG7>
1575                     <DEAD LAST-SEG7>
1576                     <CALL '\1aMOPT2 4 = COD8>
1577                     <RETURN COD8>
1578                     <DEAD COD8>
1579 CASE20
1580                     <FRAME '\1aMBAD>
1581                     <PUSH SYM4>
1582                     <DEAD SYM4>
1583                     <PUSH NOD5>
1584                     <DEAD NOD5>
1585                     <PUSH SKIPF6>
1586                     <DEAD SKIPF6>
1587                     <PUSH LAST-SEG7>
1588                     <DEAD LAST-SEG7>
1589                     <CALL '\1aMBAD 4 = COD8>
1590                     <RETURN COD8>
1591                     <DEAD COD8>
1592 CASE21
1593                     <FRAME '\1aMENTROPY>
1594                     <PUSH SYM4>
1595                     <DEAD SYM4>
1596                     <PUSH NOD5>
1597                     <DEAD NOD5>
1598                     <PUSH SKIPF6>
1599                     <DEAD SKIPF6>
1600                     <PUSH LAST-SEG7>
1601                     <DEAD LAST-SEG7>
1602                     <CALL '\1aMENTROPY 4 = COD8>
1603                     <RETURN COD8>
1604                     <DEAD COD8>
1605 CASE22
1606                     <FRAME '\1aMNORM>
1607                     <PUSH SYM4>
1608                     <DEAD SYM4>
1609                     <PUSH NOD5>
1610                     <DEAD NOD5>
1611                     <PUSH SKIPF6>
1612                     <DEAD SKIPF6>
1613                     <PUSH LAST-SEG7>
1614                     <DEAD LAST-SEG7>
1615                     <CALL '\1aMNORM 4 = COD8>
1616                     <RETURN COD8>
1617                     <DEAD COD8>
1618 CASE23
1619                     <FRAME '\1aMNORM>
1620                     <PUSH SYM4>
1621                     <DEAD SYM4>
1622                     <PUSH NOD5>
1623                     <DEAD NOD5>
1624                     <PUSH SKIPF6>
1625                     <DEAD SKIPF6>
1626                     <PUSH LAST-SEG7>
1627                     <DEAD LAST-SEG7>
1628                     <CALL '\1aMNORM 4 = COD8>
1629                     <RETURN COD8>
1630                     <DEAD COD8>
1631                     <END \1aMANAL-DISP>
1632
1633 "Additional SUBR analyzers associated with MAP hackers."
1634
1635 #WORD *32761305251*
1636                     <GFCN \1aMAPLEAVE-ANA ("VALUE" ATOM NODE ANY) N4 R5>
1637                     <TEMP K6 LN7>
1638                     <INTGO>
1639                     <NTHUV N4 5 = K6 (TYPE LIST)>
1640                     <LENL K6 = LN7 (TYPE FIX)>
1641                     <GEN-SET 'RET-OR-AGAIN 'T>
1642                     <GEN-ASSIGNED? 'MNOD - PHRASE12>
1643                     <FRAME '\1aARGCHK>
1644                     <PUSH LN7>
1645                     <PUSH (0 1)>
1646                     <PUSH 'MAPLEAVE>
1647                     <PUSH N4>
1648                     <CALL '\1aARGCHK 4>
1649                     <VEQUAL? LN7 0 - PHRASE16 (TYPE FIX)>
1650                     <DEAD LN7>
1651                     <FRAME '\1aNODE1>
1652                     <PUSH 2>
1653                     <PUSH N4>
1654                     <PUSH 'ATOM>
1655                     <PUSH 'T>
1656                     <PUSH ()>
1657                     <CALL '\1aNODE1 5 = K6>
1658                     <CONS K6 () = K6>
1659                     <PUTUV N4 5 K6 (TYPE LIST)>
1660 PHRASE16
1661                     <FRAME '\1aEANA>
1662                     <NTHL K6 1 = STACK (TYPE NODE)>
1663                     <DEAD K6>
1664                     <GEN-LVAL 'MRTYP = STACK>
1665                     <PUSH 'MAPLEAVE>
1666                     <CALL '\1aEANA 3 = K6>
1667                     <FRAME '\1aORUPC>
1668                     <GEN-LVAL 'OV = STACK>
1669                     <GEN-LVAL 'VALSPCD = STACK>
1670                     <CALL '\1aORUPC 2 = LN7>
1671                     <GEN-SET 'VALSPCD LN7>
1672                     <DEAD LN7>
1673                     <GEN-LVAL 'FSTOP = LN7>
1674                     <TYPE? LN7 <TYPE-CODE FALSE> + PHRASE35>
1675                     <DEAD LN7>
1676                     <FRAME '\1aSAVE-L-D-STATE>
1677                     <GEN-LVAL 'VARTBL = STACK>
1678                     <CALL '\1aSAVE-L-D-STATE 1 = LN7>
1679                     <JUMP + PHRASE42>
1680 PHRASE35
1681                     <FRAME '\1aMSAVE-L-D-STATE>
1682                     <GEN-LVAL 'D-V = STACK>
1683                     <GEN-LVAL 'VARTBL = STACK>
1684                     <CALL '\1aMSAVE-L-D-STATE 2 = LN7>
1685 PHRASE42
1686                     <GEN-SET 'D-V LN7>
1687                     <DEAD LN7>
1688                     <GEN-SET 'FSTOP %<>>
1689                     <FRAME '\1aTYPE-MERGE>
1690                     <GEN-LVAL 'RETYPS = STACK>
1691                     <PUSH K6>
1692                     <DEAD K6>
1693                     <CALL '\1aTYPE-MERGE 2 = K6>
1694                     <GEN-SET 'RETYPS K6>
1695                     <DEAD K6>
1696                     <PUTUV N4 1 63 (TYPE FIX)>
1697                     <DEAD N4>
1698                     <RETURN 'NO-RETURN>
1699 PHRASE12
1700                     <FRAME '\1aSUBR-C-AN>
1701                     <PUSH N4>
1702                     <DEAD N4>
1703                     <PUSH R5>
1704                     <DEAD R5>
1705                     <CALL '\1aSUBR-C-AN 2>
1706                     <RETURN 'NO-RETURN>
1707                     <END \1aMAPLEAVE-ANA>
1708
1709 \\f
1710
1711 #WORD *21456042677*
1712                     <GFCN \1aMAPRET-STOP-ANA ("VALUE" ATOM NODE ANY) NOD4 R5>
1713                     <TEMP (ARGS6:FIX 0) (TYP7 'NO-RETURN) TEMP19 ITRNOD9:NODE N41:NODE TEMP45>
1714                     <INTGO>
1715                     <GEN-SET 'RET-OR-AGAIN 'T>
1716                     <GEN-ASSIGNED? 'MNOD + BOOL15>
1717                     <FRAME '\1aSUBR-C-AN>
1718                     <PUSH NOD4>
1719                     <DEAD NOD4>
1720                     <PUSH R5>
1721                     <DEAD R5>
1722                     <CALL '\1aSUBR-C-AN 2>
1723                     <RETURN 'NO-RETURN>
1724 BOOL15
1725                     <GEN-LVAL 'MNOD = TEMP19>
1726                     <NTHUV TEMP19 5 = TEMP19 (TYPE LIST)>
1727                     <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
1728                     <NTHL TEMP19 1 = ITRNOD9 (TYPE NODE)>
1729                     <DEAD TEMP19>
1730                     <PUTUV ITRNOD9 12 'T>
1731                     <GEN-LVAL 'MNOD = TEMP19>
1732                     <NTHUV TEMP19 5 = TEMP19 (TYPE LIST)>
1733                     <NTHL TEMP19 1 = TEMP19 (TYPE NODE)>
1734                     <NTHUV TEMP19 4 = TEMP19>
1735                     <TYPE? TEMP19 <TYPE-CODE FALSE> - PHRASE23>
1736                     <DEAD TEMP19>
1737                     <FRAME '\1aCOMPILE-ERROR>
1738                     <PUSH "MAPRET/STOP with no final function.">
1739                     <GEN-LVAL 'MNOD = STACK>
1740                     <CALL '\1aCOMPILE-ERROR 2>
1741 PHRASE23
1742                     <NTHUV NOD4 5 = TEMP19 (TYPE LIST)>
1743                     <LOOP>
1744 MAP30
1745                     <INTGO>
1746                     <EMPL? TEMP19 + MAPAP33>
1747                     <NTHL TEMP19 1 = N41>
1748                     <NTHUV N41 1 = TEMP45 (TYPE FIX)>
1749                     <VEQUAL? TEMP45 3 + BOOL44 (TYPE FIX)>
1750                     <DEAD TEMP45>
1751                     <NTHUV N41 1 = TEMP45 (TYPE FIX)>
1752                     <VEQUAL? TEMP45 68 - PHRASE43 (TYPE FIX)>
1753                     <DEAD TEMP45>
1754 BOOL44
1755                     <FRAME '\1aEANA>
1756                     <NTHUV N41 5 = TEMP45 (TYPE LIST)>
1757                     <DEAD N41>
1758                     <NTHL TEMP45 1 = STACK (TYPE NODE)>
1759                     <DEAD TEMP45>
1760                     <GEN-ASSIGNED? 'STATE - PHRASE48>
1761                     <SET TEMP45 <STRUCTURED [REST <OR FIX FLOAT>]> (TYPE FORM)>
1762                     <JUMP + PHRASE50>
1763 PHRASE48
1764                     <SET TEMP45 'STRUCTURED (TYPE ATOM)>
1765 PHRASE50
1766                     <PUSH TEMP45>
1767                     <DEAD TEMP45>
1768                     <PUSH 'SEGMENT>
1769                     <CALL '\1aEANA 3 = TEMP45>
1770                     <FRAME '\1aTYPE-MERGE>
1771                     <PUSH TYP7>
1772                     <DEAD TYP7>
1773                     <FRAME '\1aGET-ELE-TYPE>
1774                     <PUSH TEMP45>
1775                     <DEAD TEMP45>
1776                     <PUSH 'ALL>
1777                     <CALL '\1aGET-ELE-TYPE 2 = STACK>
1778                     <CALL '\1aTYPE-MERGE 2 = TYP7>
1779                     <PUTUV NOD4 6 'T>
1780                     <JUMP + PHRASE53>
1781 PHRASE43
1782                     <ADD ARGS6 1 = ARGS6 (TYPE FIX)>
1783                     <FRAME '\1aTYPE-MERGE>
1784                     <PUSH TYP7>
1785                     <DEAD TYP7>
1786                     <FRAME '\1aEANA>
1787                     <PUSH N41>
1788                     <DEAD N41>
1789                     <GEN-ASSIGNED? 'STATE - PHRASE57>
1790                     <SET TYP7 <OR FIX FLOAT> (TYPE FORM)>
1791                     <JUMP + PHRASE59>
1792 PHRASE57
1793                     <SET TYP7 'ANY (TYPE ATOM)>
1794 PHRASE59
1795                     <PUSH TYP7>
1796                     <DEAD TYP7>
1797                     <NTHUV NOD4 4 = STACK>
1798                     <CALL '\1aEANA 3 = STACK>
1799                     <CALL '\1aTYPE-MERGE 2 = TYP7>
1800 PHRASE53
1801                     <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
1802                     <JUMP + MAP30>
1803 MAPAP33
1804                     <GEN-ASSIGNED? 'STATE - BOOL60>
1805                     <EQUAL? TYP7 'NO-RETURN + BOOL60>
1806                     <FRAME '\1aFIX-STATE>
1807                     <PUSH TYP7>
1808                     <PUSH NOD4>
1809                     <CALL '\1aFIX-STATE 2>
1810 BOOL60
1811                     <NTHUV NOD4 9 = TEMP19>
1812                     <GVAL 'MAPRET = TEMP45>
1813                     <EQUAL? TEMP19 TEMP45 - PHRASE63>
1814                     <DEAD TEMP19 TEMP45>
1815                     <GEN-LVAL 'FRET = TEMP45>
1816                     <TYPE? TEMP45 <TYPE-CODE FALSE> + PHRASE65>
1817                     <DEAD TEMP45>
1818                     <FRAME '\1aSAVE-L-D-STATE>
1819                     <GEN-LVAL 'VARTBL = STACK>
1820                     <CALL '\1aSAVE-L-D-STATE 1 = TEMP19>
1821                     <JUMP + PHRASE71>
1822 PHRASE65
1823                     <FRAME '\1aMSAVE-L-D-STATE>
1824                     <GEN-LVAL 'L-V = STACK>
1825                     <GEN-LVAL 'VARTBL = STACK>
1826                     <CALL '\1aMSAVE-L-D-STATE 2 = TEMP19>
1827 PHRASE71
1828                     <GEN-SET 'L-V TEMP19>
1829                     <DEAD TEMP19>
1830                     <GEN-LVAL 'FRET = TEMP19>
1831                     <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE81>
1832                     <DEAD TEMP19>
1833                     <FRAME '\1aBUILD-TYPE-LIST>
1834                     <GEN-LVAL 'VARTBL = STACK>
1835                     <CALL '\1aBUILD-TYPE-LIST 1 = TEMP19>
1836                     <JUMP + PHRASE88>
1837 PHRASE81
1838                     <FRAME '\1aORUPC>
1839                     <GEN-LVAL 'VARTBL = STACK>
1840                     <NTHUV ITRNOD9 16 = STACK (TYPE LIST)>
1841                     <CALL '\1aORUPC 2 = TEMP19>
1842 PHRASE88
1843                     <PUTUV ITRNOD9 16 TEMP19>
1844                     <DEAD ITRNOD9 TEMP19>
1845                     <GEN-SET 'FRET %<>>
1846                     <JUMP + PHRASE95>
1847 PHRASE63
1848                     <GEN-LVAL 'FSTOP = TEMP19>
1849                     <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE97>
1850                     <DEAD TEMP19>
1851                     <FRAME '\1aSAVE-L-D-STATE>
1852                     <GEN-LVAL 'VARTBL = STACK>
1853                     <CALL '\1aSAVE-L-D-STATE 1 = TEMP19>
1854                     <JUMP + PHRASE104>
1855 PHRASE97
1856                     <FRAME '\1aMSAVE-L-D-STATE>
1857                     <GEN-LVAL 'D-V = STACK>
1858                     <GEN-LVAL 'VARTBL = STACK>
1859                     <CALL '\1aMSAVE-L-D-STATE 2 = TEMP19>
1860 PHRASE104
1861                     <GEN-SET 'D-V TEMP19>
1862                     <DEAD TEMP19>
1863                     <FRAME '\1aORUPC>
1864                     <GEN-LVAL 'OV = STACK>
1865                     <GEN-LVAL 'VALSPCD = STACK>
1866                     <CALL '\1aORUPC 2 = TEMP19>
1867                     <GEN-SET 'VALSPCD TEMP19>
1868                     <DEAD TEMP19>
1869                     <GEN-SET 'FSTOP %<>>
1870 PHRASE95
1871                     <GEN-LVAL 'MNOD = TEMP19>
1872                     <NTHUV TEMP19 5 = TEMP19 (TYPE LIST)>
1873                     <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
1874                     <NTHL TEMP19 1 = TEMP19 (TYPE NODE)>
1875                     <FRAME '\1aTYPE-MERGE>
1876                     <GEN-LVAL 'MNOD = TEMP45>
1877                     <NTHUV TEMP45 5 = TEMP45 (TYPE LIST)>
1878                     <RESTL TEMP45 1 = TEMP45 (TYPE LIST)>
1879                     <NTHL TEMP45 1 = TEMP45 (TYPE NODE)>
1880                     <NTHUV TEMP45 14 = STACK>
1881                     <DEAD TEMP45>
1882                     <PUSH TYP7>
1883                     <DEAD TYP7>
1884                     <CALL '\1aTYPE-MERGE 2 = TEMP45>
1885                     <PUTUV TEMP19 14 TEMP45>
1886                     <DEAD TEMP19 TEMP45>
1887                     <PUTUV NOD4 1 64 (TYPE FIX)>
1888                     <DEAD NOD4>
1889                     <RETURN 'NO-RETURN>
1890                     <END \1aMAPRET-STOP-ANA>
1891
1892 <COND (<GASSIGNED? MAPLEAVE-ANA> <PUTPROP ,MAPLEAVE ANALYSIS ,MAPLEAVE-ANA> <PUTPROP ,MAPRET ANALYSIS ,MAPRET-STOP-ANA> <PUTPROP ,MAPSTOP ANALYSIS ,MAPRET-STOP-ANA>)>
1893
1894 #WORD *31022652405*
1895                     <GFCN \1aSUBAP? ("VALUE" <OR ATOM FALSE> NODE) NOD4>
1896                     <TEMP (COD6 0) TT5>
1897                     <INTGO>
1898                     <NTHUV NOD4 1 = COD6 (TYPE FIX)>
1899                     <VEQUAL? COD6 33 + TAG10 (TYPE FIX)>
1900                     <VEQUAL? COD6 66 + TAG10 (TYPE FIX)>
1901                     <VEQUAL? COD6 71 + TAG10 (TYPE FIX)>
1902                     <DEAD COD6>
1903                     <RETURN %<>>
1904 TAG10
1905                     <NTHUV NOD4 5 = COD6 (TYPE LIST)>
1906                     <DEAD NOD4>
1907                     <NTHL COD6 1 = NOD4 (TYPE NODE)>
1908                     <DEAD COD6>
1909                     <NTHUV NOD4 1 = COD6 (TYPE FIX)>
1910                     <VEQUAL? COD6 2 + TAG12 (TYPE FIX)>
1911                     <DEAD COD6>
1912                     <RETURN %<>>
1913 TAG12
1914                     <NTHUV NOD4 4 = TT5>
1915                     <DEAD NOD4>
1916                     <NTHR TT5 1 = COD6 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG14)>
1917                     <TYPE? COD6 <TYPE-CODE FALSE> + TAG14>
1918                     <NTHR COD6 1 = COD6 (RECORD-TYPE GBIND)>
1919                     <TYPE? COD6 <TYPE-CODE UNBOUND> - TAG13>
1920                     <DEAD COD6>
1921 TAG14
1922                     <RETURN %<>>
1923 TAG13
1924                     <RETURN TT5>
1925                     <DEAD TT5>
1926                     <END \1aSUBAP?>
1927
1928 <ENDPACKAGE>