mim/development/mim/vaxc/utread.mima

   1
   2 <USE "FILE-INDEX">
   3
   4 <SETG WARN-PRINT T>
   5
   6 #WORD *21304143131*
   7 <GFCN \1aREADIN ("VALUE" <OR ATOM LIST> TUPLE "OPTIONAL" ANY) READ-INFO6 NXT7>
   8                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
   9 OPT4
  10                     <PUSH %<>>
  11 OPT5
  12                     <TEMP RES8 LAST9 TEMP17 L24:LIST LL25:LIST IFL27:LIST TEMP36>
  13                     <INTGO>
  14                     <FRAME '\1aREAD-LIST-INTERNAL>
  15                     <PUSH READ-INFO6>
  16                     <DEAD READ-INFO6>
  17                     <PUSH 'END>
  18                     <PUSH %<>>
  19                     <CALL '\1aREAD-LIST-INTERNAL 3 = RES8>
  20                     <TYPE? RES8 <TYPE-CODE FALSE> + BOOL15>
  21                     <EMPL? RES8 + BOOL15>
  22                     <SET LAST9 RES8>
  23                     <LOOP (LAST9 VALUE)>
  24 TAG16
  25                     <RESTL LAST9 1 = TEMP17 (TYPE LIST)>
  26                     <EMPL? TEMP17 + TAG18>
  27                     <SET LAST9 TEMP17>
  28                     <DEAD TEMP17>
  29                     <JUMP + TAG16>
  30 TAG18
  31                     <NTHL LAST9 1 = LAST9>
  32                     <TYPE? LAST9 <TYPE-CODE FORM> - BOOL15>
  33                     <EMPL? LAST9 + BOOL15 (TYPE FORM)>
  34                     <NTHL LAST9 1 = TEMP17>
  35                     <DEAD LAST9>
  36                     <EQUAL? TEMP17 'END + PHRASE14>
  37                     <DEAD TEMP17>
  38 BOOL15
  39                     <SETG 'END-READ 'T>
  40                     <RETURN 'T>
  41 PHRASE14
  42                     <TYPE? NXT7 <TYPE-CODE FALSE> + PHRASE21>
  43                     <CONS NXT7 RES8 = RES8>
  44                     <DEAD NXT7>
  45 PHRASE21
  46                     <SET L24 RES8>
  47                     <SET LL25 RES8>
  48                     <SET IFL27 () (TYPE LIST)>
  49                     <SET LAST9 %<> (TYPE FALSE)>
  50                     <LOOP>
  51 AGAIN29
  52                     <INTGO>
  53                     <EMPL? L24 + EXIT22 (TYPE LIST)>
  54                     <NTHL L24 1 = TEMP17>
  55                     <TYPE? TEMP17 <TYPE-CODE FORM> - PHRASE69>
  56                     <FRAME '\1aFUDGE-MIMOP>
  57                     <PUSH TEMP17>
  58                     <CALL '\1aFUDGE-MIMOP 1 = TEMP36>
  59                     <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE69>
  60                     <DEAD TEMP36>
  61                     <NTHL TEMP17 1 = TEMP36>
  62                     <EQUAL? TEMP36 'END!-MIMOP + EXIT22>
  63                     <EQUAL? TEMP36 'IFSYS!-MIMOP - PHRASE40>
  64                     <FRAME '\1aMEMBER>
  65                     <RESTL TEMP17 1 = TEMP36 (TYPE LIST)>
  66                     <NTHL TEMP36 1 = STACK>
  67                     <DEAD TEMP36>
  68                     <PUSH ["VAX" "UNIX"]>
  69                     <CALL '\1aMEMBER 2 = TEMP36>
  70                     <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE42>
  71                     <DEAD TEMP36>
  72                     <RESTL TEMP17 1 = TEMP36 (TYPE LIST)>
  73                     <DEAD TEMP17>
  74                     <NTHL TEMP36 1 = TEMP36>
  75                     <CONS TEMP36 IFL27 = IFL27>
  76                     <DEAD TEMP36>
  77                     <SET LAST9 'T (TYPE ATOM)>
  78                     <JUMP + PHRASE69>
  79 PHRASE42
  80                     <FRAME '\1aFLUSH-TO-ENDIF>
  81                     <RESTL TEMP17 1 = TEMP36 (TYPE LIST)>
  82                     <DEAD TEMP17>
  83                     <NTHL TEMP36 1 = STACK>
  84                     <DEAD TEMP36>
  85                     <RESTL L24 1 = STACK (TYPE LIST)>
  86                     <DEAD L24>
  87                     <PUSH LL25>
  88                     <CALL '\1aFLUSH-TO-ENDIF 3>
  89                     <RESTL LL25 1 = L24 (TYPE LIST)>
  90                     <JUMP + AGAIN29>
  91 PHRASE40
  92                     <EQUAL? TEMP36 'IFCAN!-MIMOP - PHRASE46>
  93                     <FRAME '\1aLOOKUP>
  94                     <RESTL TEMP17 1 = TEMP36 (TYPE LIST)>
  95                     <NTHL TEMP36 1 = STACK (TYPE STRING)>
  96                     <DEAD TEMP36>
  97                     <FRAME '\1aMOBLIST>
  98                     <PUSH 'MIMOP>
  99                     <CALL '\1aMOBLIST 1 = STACK>
 100                     <CALL '\1aLOOKUP 2 = TEMP36>
 101                     <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE48>
 102                     <NTHR TEMP36 1 = TEMP36 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE48)>
 103                     <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE48>
 104                     <NTHR TEMP36 1 = TEMP36 (RECORD-TYPE GBIND)>
 105                     <TYPE? TEMP36 <TYPE-CODE UNBOUND> + PHRASE48>
 106                     <DEAD TEMP36>
 107                     <RESTL TEMP17 1 = TEMP36 (TYPE LIST)>
 108                     <DEAD TEMP17>
 109                     <NTHL TEMP36 1 = TEMP36>
 110                     <CONS TEMP36 IFL27 = IFL27>
 111                     <DEAD TEMP36>
 112                     <SET LAST9 'T (TYPE ATOM)>
 113                     <JUMP + PHRASE69>
 114 PHRASE48
 115                     <FRAME '\1aFLUSH-TO-ENDIF>
 116                     <RESTL TEMP17 1 = TEMP36 (TYPE LIST)>
 117                     <DEAD TEMP17>
 118                     <NTHL TEMP36 1 = STACK>
 119                     <DEAD TEMP36>
 120                     <RESTL L24 1 = STACK (TYPE LIST)>
 121                     <DEAD L24>
 122                     <PUSH LL25>
 123                     <CALL '\1aFLUSH-TO-ENDIF 3>
 124                     <RESTL LL25 1 = L24 (TYPE LIST)>
 125                     <JUMP + AGAIN29>
 126 PHRASE46
 127                     <EQUAL? TEMP36 'IFCANNOT!-MIMOP - PHRASE54>
 128                     <FRAME '\1aLOOKUP>
 129                     <RESTL TEMP17 1 = TEMP36 (TYPE LIST)>
 130                     <NTHL TEMP36 1 = STACK (TYPE STRING)>
 131                     <DEAD TEMP36>
 132                     <FRAME '\1aMOBLIST>
 133                     <PUSH 'MIMOP>
 134                     <CALL '\1aMOBLIST 1 = STACK>
 135                     <CALL '\1aLOOKUP 2 = TEMP36>
 136                     <TYPE? TEMP36 <TYPE-CODE FALSE> + TAG60>
 137                     <NTHR TEMP36 1 = TEMP36 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG60)>
 138                     <TYPE? TEMP36 <TYPE-CODE FALSE> + TAG60>
 139                     <NTHR TEMP36 1 = TEMP36 (RECORD-TYPE GBIND)>
 140                     <TYPE? TEMP36 <TYPE-CODE UNBOUND> - PHRASE56>
 141                     <DEAD TEMP36>
 142 TAG60
 143                     <RESTL TEMP17 1 = TEMP36 (TYPE LIST)>
 144                     <DEAD TEMP17>
 145                     <NTHL TEMP36 1 = TEMP36>
 146                     <CONS TEMP36 IFL27 = IFL27>
 147                     <DEAD TEMP36>
 148                     <SET LAST9 'T (TYPE ATOM)>
 149                     <JUMP + PHRASE69>
 150 PHRASE56
 151                     <FRAME '\1aFLUSH-TO-ENDIF>
 152                     <RESTL TEMP17 1 = TEMP36 (TYPE LIST)>
 153                     <DEAD TEMP17>
 154                     <NTHL TEMP36 1 = STACK>
 155                     <DEAD TEMP36>
 156                     <RESTL L24 1 = STACK (TYPE LIST)>
 157                     <DEAD L24>
 158                     <PUSH LL25>
 159                     <CALL '\1aFLUSH-TO-ENDIF 3>
 160                     <RESTL LL25 1 = L24 (TYPE LIST)>
 161                     <JUMP + AGAIN29>
 162 PHRASE54
 163                     <EQUAL? TEMP36 'ENDIF!-MIMOP - PHRASE69>
 164                     <DEAD TEMP36>
 165                     <EMPL? IFL27 + BOOL66 (TYPE LIST)>
 166                     <FRAME '\1aN=?>
 167                     <RESTL TEMP17 1 = TEMP36 (TYPE LIST)>
 168                     <NTHL TEMP36 1 = STACK>
 169                     <DEAD TEMP36>
 170                     <NTHL IFL27 1 = STACK>
 171                     <CALL '\1aN=? 2 = TEMP36>
 172                     <VEQUAL? TEMP36 0 + PHRASE65>
 173                     <DEAD TEMP36>
 174 BOOL66
 175                     <FRAME '\1aERROR>
 176                     <PUSH 'UNMATCHED-IFSYS!-ERRORS>
 177                     <PUSH TEMP17>
 178                     <DEAD TEMP17>
 179                     <PUSH IFL27>
 180                     <PUSH 'READIN>
 181                     <CALL '\1aERROR 4>
 182                     <JUMP + PHRASE69>
 183 PHRASE65
 184                     <RESTL IFL27 1 = IFL27 (TYPE LIST)>
 185                     <SET LAST9 'T (TYPE ATOM)>
 186 PHRASE69
 187                     <VEQUAL? LAST9 0 + PHRASE71>
 188                     <SET LAST9 %<> (TYPE FALSE)>
 189                     <VEQUAL? L24 LL25 - PHRASE73>
 190                     <RESTL RES8 1 = RES8 (TYPE LIST)>
 191                     <SET L24 RES8>
 192                     <SET LL25 RES8>
 193                     <JUMP + AGAIN29>
 194 PHRASE73
 195                     <RESTL L24 1 = L24 (TYPE LIST)>
 196                     <PUTREST LL25 L24>
 197                     <JUMP + AGAIN29>
 198 PHRASE71
 199                     <SET LL25 L24>
 200                     <RESTL L24 1 = L24 (TYPE LIST)>
 201                     <JUMP + AGAIN29>
 202 EXIT22
 203                     <RETURN RES8>
 204                     <DEAD RES8>
 205                     <END \1aREADIN>\r\0\r\0
 206 #WORD *156706573*
 207 <GFCN \1aFLUSH-TO-ENDIF ("VALUE" ATOM ANY LIST LIST) FLG4 L5 LL6>
 208                     <TEMP (CT8 1) THING7 TEMP20>
 209                     <INTGO>
 210                     <LOOP>
 211 AGAIN12
 212                     <INTGO>
 213                     <EMPL? L5 - PHRASE14 (TYPE LIST)>
 214                     <FRAME '\1aERROR>
 215                     <PUSH 'MISSING-ENDIF!-ERRORS>
 216                     <PUSH FLG4>
 217                     <DEAD FLG4>
 218                     <CALL '\1aERROR 2>
 219                     <RETURN 'T>
 220 PHRASE14
 221                     <NTHL L5 1 = THING7>
 222                     <TYPE? THING7 <TYPE-CODE FORM> - PHRASE27>
 223                     <FRAME '\1aFUDGE-MIMOP>
 224                     <PUSH THING7>
 225                     <CALL '\1aFUDGE-MIMOP 1 = TEMP20>
 226                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE27>
 227                     <DEAD TEMP20>
 228                     <NTHL THING7 1 = TEMP20>
 229                     <EQUAL? TEMP20 'ENDIF!-MIMOP - PHRASE22>
 230                     <DEAD TEMP20>
 231                     <SUB CT8 1 = CT8 (TYPE FIX)>
 232                     <VEQUAL? CT8 0 - PHRASE27 (TYPE FIX)>
 233                     <RESTL L5 1 = TEMP20 (TYPE LIST)>
 234                     <DEAD L5>
 235                     <PUTREST LL6 TEMP20>
 236                     <DEAD LL6 TEMP20>
 237                     <RETURN 'T>
 238 PHRASE22
 239                     <NTHL THING7 1 = TEMP20>
 240                     <EQUAL? TEMP20 'IFSYS!-MIMOP + BOOL28>
 241                     <DEAD TEMP20>
 242                     <NTHL THING7 1 = TEMP20>
 243                     <EQUAL? TEMP20 'IFCAN!-MIMOP + BOOL28>
 244                     <DEAD TEMP20>
 245                     <NTHL THING7 1 = TEMP20>
 246                     <DEAD THING7>
 247                     <EQUAL? TEMP20 'IFCANNOT!-MIMOP - PHRASE27>
 248                     <DEAD TEMP20>
 249 BOOL28
 250                     <ADD CT8 1 = CT8 (TYPE FIX)>
 251 PHRASE27
 252                     <RESTL L5 1 = L5 (TYPE LIST)>
 253                     <JUMP + AGAIN12>
 254                     <END \1aFLUSH-TO-ENDIF>
 255 #WORD *25355022700*
 256 <GFCN \1aFUDGE-MIMOP ("VALUE" <OR FALSE <FORM <OR ATOM LINK>>> FORM) FRM4>
 257                     <TEMP TEMP10 TEMP8>
 258                     <INTGO>
 259                     <FRAME '\1aLOOKUP>
 260                     <NTHL FRM4 1 = TEMP10 (TYPE ATOM)>
 261                     <NTHR TEMP10 3 = STACK (RECORD-TYPE ATOM)>
 262                     <DEAD TEMP10>
 263                     <GVAL 'MIMOP-OBLIST = STACK>
 264                     <CALL '\1aLOOKUP 2 = TEMP10>
 265                     <SET TEMP8 TEMP10>
 266                     <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE7>
 267                     <PUTL FRM4 1 TEMP10>
 268                     <DEAD TEMP10>
 269                     <SET TEMP8 FRM4>
 270                     <DEAD FRM4>
 271 PHRASE7
 272                     <RETURN TEMP8>
 273                     <DEAD TEMP8>
 274                     <END \1aFUDGE-MIMOP>
 275 #WORD *13726101642*
 276 <GFCN \1aPRE-HACK ("VALUE" ATOM LIST) L4>
 277                     <TEMP WIN9 LR5 TEMP18 TEMP17:LIST LL22:LIST FRM23 TEMP32 M24 LBL27:ATOM N25>
 278                     <INTGO>
 279                     <LOOP>
 280 AGAIN10
 281                     <INTGO>
 282                     <SET WIN9 %<> (TYPE FALSE)>
 283                     <SET LR5 () (TYPE LIST)>
 284                     <SET TEMP18 () (TYPE LIST)>
 285                     <SET TEMP17 L4 (TYPE LIST)>
 286                     <LOOP>
 287 MAP12
 288                     <INTGO>
 289                     <EMPL? TEMP17 + MAPAP15>
 290                     <SET LL22 TEMP17>
 291                     <NTHL LL22 1 = FRM23>
 292                     <TYPE? FRM23 <TYPE-CODE ATOM> + PHRASE77>
 293                     <NTHL FRM23 1 = TEMP32>
 294                     <EQUAL? TEMP32 'OPT-DISPATCH!-MIMOP - PHRASE31>
 295                     <DEAD TEMP32>
 296                     <RESTL FRM23 1 = TEMP32 (TYPE LIST)>
 297                     <DEAD FRM23>
 298                     <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
 299                     <RESTL TEMP32 1 = LL22 (TYPE LIST)>
 300                     <DEAD TEMP32>
 301                     <CHTYPE LL22 <TYPE-CODE LIST> = LL22>
 302                     <LOOP (LL22 VALUE)>
 303 TAG38
 304                     <INTGO>
 305                     <EMPL? LL22 + PHRASE77>
 306                     <NTHL LL22 1 = TEMP32>
 307                     <CONS TEMP32 () = TEMP32 (TYPE LIST)>
 308                     <EMPL? LR5 - TAG39>
 309                     <SET LR5 TEMP32 (TYPE LIST)>
 310                     <JUMP + TAG40>
 311 TAG39
 312                     <PUTREST TEMP18 TEMP32>
 313                     <DEAD TEMP18>
 314 TAG40
 315                     <SET TEMP18 TEMP32 (TYPE LIST)>
 316                     <DEAD TEMP32>
 317                     <RESTL LL22 1 = LL22 (TYPE LIST)>
 318                     <JUMP + TAG38>
 319 PHRASE31
 320                     <SET M24 FRM23>
 321                     <CHTYPE M24 <TYPE-CODE LIST> = M24>
 322                     <EMPL? M24 + TAG43>
 323                     <LOOP (M24 VALUE)>
 324 TAG45
 325                     <NTHL M24 1 = TEMP32>
 326                     <TYPE? TEMP32 <TYPE-CODE ATOM> - TAG46>
 327                     <VEQUAL? TEMP32 '+ + TAG44>
 328                     <DEAD TEMP32>
 329 TAG46
 330                     <RESTL M24 1 = M24 (TYPE LIST)>
 331                     <EMPL? M24 - TAG45>
 332 TAG43
 333                     <SET M24 %<> (TYPE FALSE)>
 334 TAG44
 335                     <VEQUAL? M24 0 - BOOL42>
 336                     <CHTYPE FRM23 <TYPE-CODE LIST> = TEMP32>
 337                     <EMPL? TEMP32 + TAG47>
 338                     <LOOP (TEMP32 VALUE)>
 339 TAG49
 340                     <NTHL TEMP32 1 = M24>
 341                     <TYPE? M24 <TYPE-CODE ATOM> - TAG50>
 342                     <VEQUAL? M24 '- + TAG48>
 343                     <DEAD M24>
 344 TAG50
 345                     <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
 346                     <EMPL? TEMP32 - TAG49>
 347 TAG47
 348                     <SET M24 %<> (TYPE FALSE)>
 349                     <JUMP + TAG52>
 350 TAG48
 351                     <SET M24 TEMP32>
 352                     <DEAD TEMP32>
 353 TAG52
 354                     <VEQUAL? M24 0 + PHRASE69>
 355 BOOL42
 356                     <RESTL M24 1 = TEMP32 (TYPE LIST)>
 357                     <NTHL TEMP32 1 = LBL27 (TYPE ATOM)>
 358                     <DEAD TEMP32>
 359                     <SET N25 L4>
 360                     <EMPL? N25 + TAG54>
 361                     <LOOP (LBL27 VALUE) (N25 VALUE)>
 362 TAG56
 363                     <NTHL N25 1 = TEMP32>
 364                     <TYPE? TEMP32 <TYPE-CODE ATOM> - TAG57>
 365                     <VEQUAL? TEMP32 LBL27 + TAG55>
 366                     <DEAD TEMP32>
 367 TAG57
 368                     <RESTL N25 1 = N25 (TYPE LIST)>
 369                     <EMPL? N25 - TAG56>
 370 TAG54
 371                     <SET N25 %<> (TYPE FALSE)>
 372 TAG55
 373                     <VEQUAL? N25 0 - PHRASE58>
 374                     <FRAME '\1aMIMOCERR>
 375                     <PUSH 'BAD-LABEL!-ERRORS>
 376                     <PUSH LBL27>
 377                     <CALL '\1aMIMOCERR 2>
 378 PHRASE58
 379                     <FRAME '\1aNEXTINS>
 380                     <PUSH N25>
 381                     <DEAD N25>
 382                     <CALL '\1aNEXTINS 1 = N25>
 383                     <NTHL N25 1 = TEMP32>
 384                     <EQUAL? TEMP32 'JUMP!-MIMOP - PHRASE61>
 385                     <DEAD TEMP32>
 386                     <RESTL N25 1 = TEMP32 (TYPE LIST)>
 387                     <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
 388                     <NTHL TEMP32 1 = TEMP32>
 389                     <RESTL M24 1 = M24 (TYPE LIST)>
 390                     <PUTL M24 1 TEMP32>
 391                     <DEAD M24 TEMP32>
 392                     <RESTL N25 1 = TEMP32 (TYPE LIST)>
 393                     <DEAD N25>
 394                     <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
 395                     <NTHL TEMP32 1 = TEMP32>
 396                     <CONS TEMP32 () = TEMP32 (TYPE LIST)>
 397                     <EMPL? LR5 - TAG64>
 398                     <SET LR5 TEMP32 (TYPE LIST)>
 399                     <JUMP + TAG65>
 400 TAG64
 401                     <PUTREST TEMP18 TEMP32>
 402                     <DEAD TEMP18>
 403 TAG65
 404                     <SET TEMP18 TEMP32 (TYPE LIST)>
 405                     <DEAD TEMP32>
 406                     <JUMP + PHRASE77>
 407 PHRASE61
 408                     <NTHL FRM23 1 = TEMP32>
 409                     <DEAD FRM23>
 410                     <EQUAL? TEMP32 'JUMP!-MIMOP - PHRASE66>
 411                     <DEAD TEMP32>
 412                     <NTHL N25 1 = TEMP32>
 413                     <EQUAL? TEMP32 'RETURN - PHRASE66>
 414                     <DEAD TEMP32>
 415                     <PUTL LL22 1 N25>
 416                     <DEAD LL22 N25>
 417                     <JUMP + PHRASE77>
 418 PHRASE66
 419                     <CONS LBL27 () = TEMP32 (TYPE LIST)>
 420                     <DEAD LBL27>
 421                     <EMPL? LR5 - TAG71>
 422                     <SET LR5 TEMP32 (TYPE LIST)>
 423                     <JUMP + TAG72>
 424 TAG71
 425                     <PUTREST TEMP18 TEMP32>
 426                     <DEAD TEMP18>
 427 TAG72
 428                     <SET TEMP18 TEMP32 (TYPE LIST)>
 429                     <DEAD TEMP32>
 430                     <JUMP + PHRASE77>
 431 PHRASE69
 432                     <NTHL FRM23 1 = TEMP32>
 433                     <EQUAL? TEMP32 'ICALL!-MIMOP - PHRASE77>
 434                     <DEAD TEMP32>
 435                     <RESTL FRM23 1 = TEMP32 (TYPE LIST)>
 436                     <DEAD FRM23>
 437                     <NTHL TEMP32 1 = TEMP32>
 438                     <CONS TEMP32 () = TEMP32 (TYPE LIST)>
 439                     <EMPL? LR5 - TAG75>
 440                     <SET LR5 TEMP32 (TYPE LIST)>
 441                     <JUMP + TAG76>
 442 TAG75
 443                     <PUTREST TEMP18 TEMP32>
 444                     <DEAD TEMP18>
 445 TAG76
 446                     <SET TEMP18 TEMP32 (TYPE LIST)>
 447                     <DEAD TEMP32>
 448 PHRASE77
 449                     <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
 450                     <JUMP + MAP12>
 451 MAPAP15
 452                     <SET TEMP17 L4>
 453                     <SET LL22 TEMP17>
 454                     <LOOP>
 455 AGAIN83
 456                     <INTGO>
 457                     <EMPL? TEMP17 + EXIT79 (TYPE LIST)>
 458                     <NTHL TEMP17 1 = TEMP32>
 459                     <TYPE? TEMP32 <TYPE-CODE ATOM> - PHRASE86>
 460                     <DEAD TEMP32>
 461                     <NTHL TEMP17 1 = TEMP32 (TYPE ATOM)>
 462                     <SET M24 LR5>
 463                     <EMPL? M24 + TAG88>
 464                     <LOOP (TEMP32 VALUE) (M24 VALUE)>
 465 TAG89
 466                     <NTHL M24 1 = TEMP18>
 467                     <TYPE? TEMP18 <TYPE-CODE ATOM> - TAG90>
 468                     <VEQUAL? TEMP18 TEMP32 + PHRASE86>
 469                     <DEAD TEMP18>
 470 TAG90
 471                     <RESTL M24 1 = M24 (TYPE LIST)>
 472                     <EMPL? M24 - TAG89>
 473 TAG88
 474                     <RESTL TEMP17 1 = M24 (TYPE LIST)>
 475                     <PUTREST LL22 M24>
 476                     <DEAD M24>
 477                     <SET WIN9 'T (TYPE ATOM)>
 478                     <JUMP + PHRASE104>
 479 PHRASE86
 480                     <NTHL TEMP17 1 = TEMP18>
 481                     <TYPE? TEMP18 <TYPE-CODE FORM> - PHRASE92>
 482                     <NTHL TEMP18 1 = M24>
 483                     <DEAD TEMP18>
 484                     <EQUAL? M24 'JUMP - PHRASE92>
 485                     <DEAD M24>
 486                     <NTHL LL22 1 = TEMP18>
 487                     <TYPE? TEMP18 <TYPE-CODE FORM> - PHRASE92>
 488                     <NTHL TEMP18 1 = M24>
 489                     <DEAD TEMP18>
 490                     <EQUAL? M24 'JUMP - PHRASE92>
 491                     <DEAD M24>
 492                     <RESTL TEMP17 1 = M24 (TYPE LIST)>
 493                     <PUTREST LL22 M24>
 494                     <DEAD M24>
 495                     <SET WIN9 'T (TYPE ATOM)>
 496                     <JUMP + PHRASE104>
 497 PHRASE92
 498                     <NTHL TEMP17 1 = TEMP18>
 499                     <TYPE? TEMP18 <TYPE-CODE FORM> - PHRASE94>
 500                     <NTHL TEMP18 1 = M24>
 501                     <EQUAL? M24 'JUMP - PHRASE94>
 502                     <DEAD M24>
 503                     <SET M24 TEMP17>
 504                     <SET TEMP32 1 (TYPE FIX)>
 505                     <LOOP (M24 VALUE) (TEMP32 VALUE)>
 506 TAG97
 507                     <EMPL? M24 + PHRASE94>
 508                     <SUB TEMP32 1 = TEMP32 (TYPE FIX)>
 509                     <LESS? TEMP32 0 + TAG98>
 510                     <RESTL M24 1 = M24 (TYPE LIST)>
 511                     <JUMP + TAG97>
 512 TAG98
 513                     <RESTL TEMP17 1 = TEMP32 (TYPE LIST)>
 514                     <NTHL TEMP32 1 = TEMP32>
 515                     <RESTL TEMP18 1 = M24 (TYPE LIST)>
 516                     <DEAD TEMP18>
 517                     <RESTL M24 1 = M24 (TYPE LIST)>
 518                     <NTHL M24 1 = M24>
 519                     <EQUAL? TEMP32 M24 - PHRASE94>
 520                     <DEAD TEMP32>
 521                     <RESTL TEMP17 1 = M24 (TYPE LIST)>
 522                     <PUTREST LL22 M24>
 523                     <DEAD M24>
 524                     <SET WIN9 'T (TYPE ATOM)>
 525                     <JUMP + PHRASE104>
 526 PHRASE94
 527                     <NTHL TEMP17 1 = TEMP18>
 528                     <TYPE? TEMP18 <TYPE-CODE FORM> - PHRASE99>
 529                     <NTHL TEMP18 1 = M24>
 530                     <DEAD TEMP18>
 531                     <EQUAL? M24 'JUMP - PHRASE99>
 532                     <DEAD M24>
 533                     <SET M24 TEMP17>
 534                     <SET TEMP32 1 (TYPE FIX)>
 535                     <LOOP (M24 VALUE) (TEMP32 VALUE)>
 536 TAG102
 537                     <EMPL? M24 + PHRASE99>
 538                     <SUB TEMP32 1 = TEMP32 (TYPE FIX)>
 539                     <LESS? TEMP32 0 + TAG103>
 540                     <RESTL M24 1 = M24 (TYPE LIST)>
 541                     <JUMP + TAG102>
 542 TAG103
 543                     <RESTL TEMP17 1 = TEMP32 (TYPE LIST)>
 544                     <NTHL TEMP32 1 = TEMP32>
 545                     <TYPE? TEMP32 <TYPE-CODE ATOM> + PHRASE99>
 546                     <DEAD TEMP32>
 547                     <RESTL TEMP17 1 = M24 (TYPE LIST)>
 548                     <RESTL M24 1 = TEMP32 (TYPE LIST)>
 549                     <DEAD M24>
 550                     <PUTREST TEMP17 TEMP32>
 551                     <DEAD TEMP32>
 552                     <SET WIN9 'T (TYPE ATOM)>
 553                     <JUMP + PHRASE104>
 554 PHRASE99
 555                     <SET LL22 TEMP17>
 556 PHRASE104
 557                     <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
 558                     <JUMP + AGAIN83>
 559 EXIT79
 560                     <VEQUAL? WIN9 0 - AGAIN10>
 561                     <DEAD WIN9>
 562                     <RETURN 'T>
 563                     <END \1aPRE-HACK>
 564 <SETG USE-PRE <>>
 565
 566 #WORD *22445322656*
 567 <GFCN \1aFIXIT ("VALUE" ATOM LIST) LST4>
 568                     <TEMP TEMP7 TEMP15>
 569                     <INTGO>
 570                     <SETG 'COMPERR-FLAG %<>>
 571                     <SETG 'UNWCNT-FLAG %<>>
 572                     <GVAL 'USE-PRE = TEMP7>
 573                     <TYPE? TEMP7 <TYPE-CODE FALSE> + BOOL6>
 574                     <DEAD TEMP7>
 575                     <FRAME '\1aPRE-HACK>
 576                     <PUSH LST4>
 577                     <CALL '\1aPRE-HACK 1>
 578 BOOL6
 579                     <FRAME '\1aREPLACE-LOOP-BRANCHES>
 580                     <PUSH LST4>
 581                     <CALL '\1aREPLACE-LOOP-BRANCHES 1>
 582                     <FRAME '\1aFIND-DUAL-LABELS>
 583                     <PUSH LST4>
 584                     <CALL '\1aFIND-DUAL-LABELS 1 = TEMP7>
 585                     <CONS 'TCOMPERR TEMP7 = TEMP7>
 586                     <CONS 'COMPERR TEMP7 = TEMP7>
 587                     <CONS 'TUNWCNT TEMP7 = TEMP7>
 588                     <CONS 'UNWCONT TEMP7 = TEMP7>
 589                     <FRAME '\1aFLUSH-DUAL-LABELS>
 590                     <PUSH LST4>
 591                     <PUSH TEMP7>
 592                     <DEAD TEMP7>
 593                     <CALL '\1aFLUSH-DUAL-LABELS 2>
 594                     <GVAL 'COMPERR-FLAG = TEMP7>
 595                     <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE13>
 596                     <DEAD TEMP7>
 597                     <SET TEMP7 LST4>
 598                     <LOOP (TEMP7 VALUE)>
 599 TAG14
 600                     <RESTL TEMP7 1 = TEMP15 (TYPE LIST)>
 601                     <EMPL? TEMP15 + TAG16>
 602                     <SET TEMP7 TEMP15>
 603                     <DEAD TEMP15>
 604                     <JUMP + TAG14>
 605 TAG16
 606                     <CONS <COMPERR!-MIMOP> () = TEMP15>
 607                     <CONS 'TCOMPERR TEMP15 = TEMP15>
 608                     <PUTREST TEMP7 TEMP15>
 609                     <DEAD TEMP7 TEMP15>
 610 PHRASE13
 611                     <GVAL 'UNWCNT-FLAG = TEMP15>
 612                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE18>
 613                     <DEAD TEMP15>
 614                     <SET TEMP15 LST4>
 615                     <DEAD LST4>
 616                     <LOOP (TEMP15 VALUE)>
 617 TAG19
 618                     <RESTL TEMP15 1 = TEMP7 (TYPE LIST)>
 619                     <EMPL? TEMP7 + TAG21>
 620                     <SET TEMP15 TEMP7>
 621                     <DEAD TEMP7>
 622                     <JUMP + TAG19>
 623 TAG21
 624                     <CONS <UNWCNT!-MIMOP> () = TEMP7>
 625                     <CONS 'TUNWCNT TEMP7 = TEMP7>
 626                     <PUTREST TEMP15 TEMP7>
 627                     <DEAD TEMP15 TEMP7>
 628 PHRASE18
 629                     <RETURN 'T>
 630                     <END \1aFIXIT>
 631 #WORD *25133337411*
 632 <GFCN \1aNEXTINS ("VALUE" <OR FALSE FORM> LIST) L4>
 633                     <TEMP TEMP14 TEMP11:LIST>
 634                     <INTGO>
 635                     <SET TEMP14 %<> (TYPE FALSE)>
 636                     <SET TEMP11 L4 (TYPE LIST)>
 637                     <DEAD L4>
 638                     <LOOP>
 639 MAP6
 640                     <INTGO>
 641                     <EMPL? TEMP11 + MAPAP9>
 642                     <NTHL TEMP11 1 = TEMP14>
 643                     <TYPE? TEMP14 <TYPE-CODE FORM> + TAG19>
 644                     <SET TEMP14 %<> (TYPE FALSE)>
 645                     <JUMP + PHRASE18>
 646 TAG19
 647                     <RETURN TEMP14>
 648                     <DEAD TEMP14>
 649 PHRASE18
 650                     <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
 651                     <JUMP + MAP6>
 652 MAPAP9
 653                     <RETURN TEMP14>
 654                     <DEAD TEMP14>
 655                     <END \1aNEXTINS>
 656 #WORD *14165327363*
 657 <GFCN \1aFIND-DUAL-LABELS ("VALUE" <LIST [REST ATOM]> LIST) LST4>
 658                     <TEMP PPTR5:LIST NPTR6:LIST TEMP15 TEMP13 L117 L218 TEMP22>
 659                     <INTGO>
 660                     <SET PPTR5 LST4>
 661                     <RESTL LST4 1 = NPTR6 (TYPE LIST)>
 662                     <DEAD LST4>
 663                     <SET TEMP15 () (TYPE LIST)>
 664                     <SET TEMP13 () (TYPE LIST)>
 665                     <LOOP>
 666 MAP8
 667                     <INTGO>
 668                     <NTHL PPTR5 1 = L117>
 669                     <TYPE? L117 <TYPE-CODE ATOM> - PHRASE20>
 670                     <NTHL NPTR6 1 = L218>
 671                     <TYPE? L218 <TYPE-CODE ATOM> - PHRASE20>
 672                     <RESTL NPTR6 1 = TEMP22 (TYPE LIST)>
 673                     <DEAD NPTR6>
 674                     <PUTREST PPTR5 TEMP22>
 675                     <DEAD TEMP22>
 676                     <RESTL PPTR5 1 = NPTR6 (TYPE LIST)>
 677                     <EMPL? NPTR6 - PHRASE24 (TYPE LIST)>
 678                     <CONS L218 () = TEMP22 (TYPE LIST)>
 679                     <DEAD L218>
 680                     <EMPL? TEMP15 - TAG26>
 681                     <SET TEMP15 TEMP22 (TYPE LIST)>
 682                     <JUMP + TAG27>
 683 TAG26
 684                     <PUTREST TEMP13 TEMP22>
 685                     <DEAD TEMP13>
 686 TAG27
 687                     <SET TEMP13 TEMP22 (TYPE LIST)>
 688                     <DEAD TEMP22>
 689                     <CONS L117 () = TEMP22 (TYPE LIST)>
 690                     <DEAD L117>
 691                     <EMPL? TEMP15 - TAG28>
 692                     <SET TEMP15 TEMP22 (TYPE LIST)>
 693                     <JUMP + TAG29>
 694 TAG28
 695                     <PUTREST TEMP13 TEMP22>
 696                     <DEAD TEMP13>
 697 TAG29
 698                     <SET TEMP13 TEMP22 (TYPE LIST)>
 699                     <DEAD TEMP22>
 700                     <RETURN TEMP15>
 701                     <DEAD TEMP15>
 702 PHRASE24
 703                     <CONS L218 () = TEMP22 (TYPE LIST)>
 704                     <DEAD L218>
 705                     <EMPL? TEMP15 - TAG31>
 706                     <SET TEMP15 TEMP22 (TYPE LIST)>
 707                     <JUMP + TAG32>
 708 TAG31
 709                     <PUTREST TEMP13 TEMP22>
 710                     <DEAD TEMP13>
 711 TAG32
 712                     <SET TEMP13 TEMP22 (TYPE LIST)>
 713                     <DEAD TEMP22>
 714                     <CONS L117 () = TEMP22 (TYPE LIST)>
 715                     <DEAD L117>
 716                     <EMPL? TEMP15 - TAG33>
 717                     <SET TEMP15 TEMP22 (TYPE LIST)>
 718                     <JUMP + TAG34>
 719 TAG33
 720                     <PUTREST TEMP13 TEMP22>
 721                     <DEAD TEMP13>
 722 TAG34
 723                     <SET TEMP13 TEMP22 (TYPE LIST)>
 724                     <DEAD TEMP22>
 725                     <JUMP + MAP8>
 726 PHRASE20
 727                     <SET PPTR5 NPTR6>
 728                     <DEAD NPTR6>
 729                     <RESTL PPTR5 1 = NPTR6 (TYPE LIST)>
 730                     <EMPL? NPTR6 - MAP8 (TYPE LIST)>
 731                     <RETURN TEMP15>
 732                     <DEAD TEMP15>
 733                     <END \1aFIND-DUAL-LABELS>
 734 #WORD *11404430326*
 735 <GFCN \1aFLUSH-DUAL-LABELS ("VALUE" <PRIMTYPE LIST> LIST <LIST [REST ATOM]>) LST4 LABS5>
 736                     <TEMP TEMP18 TEMP15:LIST PITEM6 TEMP31 TEMP36>
 737                     <INTGO>
 738                     <SET TEMP18 %<> (TYPE FALSE)>
 739                     <SET TEMP15 LST4 (TYPE LIST)>
 740                     <DEAD LST4>
 741                     <LOOP>
 742 MAP10
 743                     <INTGO>
 744                     <EMPL? TEMP15 + MAPAP13>
 745                     <NTHL TEMP15 1 = TEMP18>
 746                     <TYPE? TEMP18 <TYPE-CODE FORM> + TAG24>
 747                     <SET TEMP18 %<> (TYPE FALSE)>
 748                     <JUMP + PHRASE22>
 749 TAG24
 750                     <SET PITEM6 TEMP18>
 751                     <CHTYPE PITEM6 <TYPE-CODE LIST> = PITEM6>
 752                     <EMPL? PITEM6 + TAG27>
 753                     <LOOP (PITEM6 VALUE)>
 754 TAG29
 755                     <NTHL PITEM6 1 = TEMP31>
 756                     <TYPE? TEMP31 <TYPE-CODE ATOM> - TAG30>
 757                     <VEQUAL? TEMP31 '+ + TAG28>
 758                     <DEAD TEMP31>
 759 TAG30
 760                     <RESTL PITEM6 1 = PITEM6 (TYPE LIST)>
 761                     <EMPL? PITEM6 - TAG29>
 762 TAG27
 763                     <SET PITEM6 %<> (TYPE FALSE)>
 764 TAG28
 765                     <VEQUAL? PITEM6 0 - BOOL44>
 766                     <CHTYPE TEMP18 <TYPE-CODE LIST> = TEMP31>
 767                     <EMPL? TEMP31 + TAG32>
 768                     <LOOP (TEMP31 VALUE)>
 769 TAG34
 770                     <NTHL TEMP31 1 = TEMP36>
 771                     <TYPE? TEMP36 <TYPE-CODE ATOM> - TAG35>
 772                     <VEQUAL? TEMP36 '- + TAG33>
 773                     <DEAD TEMP36>
 774 TAG35
 775                     <RESTL TEMP31 1 = TEMP31 (TYPE LIST)>
 776                     <EMPL? TEMP31 - TAG34>
 777 TAG32
 778                     <SET PITEM6 %<> (TYPE FALSE)>
 779                     <JUMP + TAG37>
 780 TAG33
 781                     <SET PITEM6 TEMP31>
 782                     <DEAD TEMP31>
 783 TAG37
 784                     <VEQUAL? PITEM6 0 - BOOL44>
 785                     <EMPL? TEMP18 - TAG39 (TYPE FORM)>
 786                     <SET TEMP18 %<> (TYPE FALSE)>
 787                     <JUMP + PHRASE22>
 788 TAG39
 789                     <SET PITEM6 TEMP18>
 790                     <DEAD TEMP18>
 791                     <LOOP (PITEM6 VALUE)>
 792 TAG40
 793                     <RESTL PITEM6 1 = TEMP31 (TYPE LIST)>
 794                     <EMPL? TEMP31 + TAG41>
 795                     <SET PITEM6 TEMP31>
 796                     <DEAD TEMP31>
 797                     <JUMP + TAG40>
 798 TAG41
 799                     <NTHL PITEM6 1 = PITEM6>
 800                     <TYPE? PITEM6 <TYPE-CODE LIST> + TAG42>
 801                     <SET TEMP18 %<> (TYPE FALSE)>
 802                     <JUMP + PHRASE22>
 803 TAG42
 804                     <SET TEMP31 PITEM6>
 805                     <DEAD PITEM6>
 806                     <EMPL? TEMP31 + TAG45>
 807                     <LOOP (TEMP31 VALUE)>
 808 TAG47
 809                     <NTHL TEMP31 1 = TEMP36>
 810                     <TYPE? TEMP36 <TYPE-CODE ATOM> - TAG48>
 811                     <VEQUAL? TEMP36 '+ + TAG46>
 812                     <DEAD TEMP36>
 813 TAG48
 814                     <RESTL TEMP31 1 = TEMP31 (TYPE LIST)>
 815                     <EMPL? TEMP31 - TAG47>
 816 TAG45
 817                     <SET PITEM6 %<> (TYPE FALSE)>
 818                     <JUMP + TAG49>
 819 TAG46
 820                     <SET PITEM6 TEMP31>
 821                     <DEAD TEMP31>
 822 TAG49
 823                     <VEQUAL? PITEM6 0 - BOOL44>
 824                     <CHTYPE PITEM6 <TYPE-CODE LIST> = TEMP31>
 825                     <DEAD PITEM6>
 826                     <EMPL? TEMP31 + TAG50>
 827                     <LOOP (TEMP31 VALUE)>
 828 TAG52
 829                     <NTHL TEMP31 1 = TEMP36>
 830                     <TYPE? TEMP36 <TYPE-CODE ATOM> - TAG53>
 831                     <VEQUAL? TEMP36 '- + TAG51>
 832                     <DEAD TEMP36>
 833 TAG53
 834                     <RESTL TEMP31 1 = TEMP31 (TYPE LIST)>
 835                     <EMPL? TEMP31 - TAG52>
 836 TAG50
 837                     <SET PITEM6 %<> (TYPE FALSE)>
 838                     <JUMP + TAG54>
 839 TAG51
 840                     <SET PITEM6 TEMP31>
 841                     <DEAD TEMP31>
 842 TAG54
 843                     <SET TEMP18 PITEM6>
 844                     <VEQUAL? TEMP18 0 + PHRASE22>
 845 BOOL44
 846                     <FRAME '\1aDMEMQ>
 847                     <RESTL PITEM6 1 = TEMP31 (TYPE LIST)>
 848                     <NTHL TEMP31 1 = STACK (TYPE ATOM)>
 849                     <DEAD TEMP31>
 850                     <PUSH LABS5>
 851                     <CALL '\1aDMEMQ 2 = TEMP36>
 852                     <SET TEMP18 TEMP36>
 853                     <VEQUAL? TEMP18 0 + PHRASE22>
 854                     <RESTL TEMP36 1 = TEMP31 (TYPE LIST)>
 855                     <NTHL TEMP31 1 = TEMP18 (TYPE ATOM)>
 856                     <DEAD TEMP31>
 857                     <VEQUAL? TEMP18 'TCOMPERR - PHRASE57>
 858                     <SETG 'COMPERR-FLAG 'T>
 859 PHRASE57
 860                     <VEQUAL? TEMP18 'TUNWCNT - PHRASE59>
 861                     <DEAD TEMP18>
 862                     <SETG 'UNWCNT-FLAG 'T>
 863 PHRASE59
 864                     <RESTL TEMP36 1 = TEMP31 (TYPE LIST)>
 865                     <DEAD TEMP36>
 866                     <NTHL TEMP31 1 = TEMP31 (TYPE ATOM)>
 867                     <RESTL PITEM6 1 = TEMP36 (TYPE LIST)>
 868                     <PUTL TEMP36 1 TEMP31>
 869                     <DEAD TEMP36 TEMP31>
 870                     <SET TEMP18 PITEM6>
 871                     <DEAD PITEM6>
 872 PHRASE22
 873                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
 874                     <JUMP + MAP10>
 875 MAPAP13
 876                     <RETURN TEMP18>
 877                     <DEAD TEMP18>
 878                     <END \1aFLUSH-DUAL-LABELS>
 879 #WORD *21710062441*
 880 <GFCN \1aREPLACE-LOOP-BRANCHES ("VALUE" ATOM LIST) CODE4>
 881                     <TEMP (LOOPS5 ()) PTR9:LIST ITM10 TEMP23 RBRANCH11 TEMP37 LAB12 TEMP57>
 882                     <INTGO>
 883                     <SET PTR9 CODE4>
 884                     <DEAD CODE4>
 885                     <LOOP>
 886 AGAIN15
 887                     <INTGO>
 888                     <EMPL? PTR9 - PHRASE17 (TYPE LIST)>
 889                     <RETURN 'T>
 890 PHRASE17
 891                     <NTHL PTR9 1 = ITM10>
 892                     <TYPE? ITM10 <TYPE-CODE FORM> - PHRASE19>
 893                     <NTHL ITM10 1 = TEMP23>
 894                     <EQUAL? TEMP23 'LOOP!-MIMOP - PHRASE21>
 895                     <DEAD TEMP23>
 896                     <EMPL? ITM10 + PHRASE21>
 897                     <RESTL ITM10 1 = TEMP23 (TYPE LIST)>
 898                     <EMPL? TEMP23 + PHRASE21>
 899                     <DEAD TEMP23>
 900                     <RESTL PTR9 1 = TEMP23 (TYPE LIST)>
 901                     <NTHL TEMP23 1 = TEMP23>
 902                     <CONS TEMP23 LOOPS5 = LOOPS5>
 903                     <DEAD TEMP23>
 904                     <RESTL PTR9 1 = PTR9 (TYPE LIST)>
 905                     <RESTL PTR9 1 = PTR9 (TYPE LIST)>
 906                     <JUMP + AGAIN15>
 907 PHRASE21
 908                     <NTHL ITM10 1 = TEMP23>
 909                     <EQUAL? TEMP23 'DISPATCH!-MIMOP - PHRASE24>
 910                     <DEAD TEMP23>
 911                     <FRAME '\1aHACK-DISPATCH-LABELS>
 912                     <PUSH PTR9>
 913                     <PUSH LOOPS5>
 914                     <CALL '\1aHACK-DISPATCH-LABELS 2>
 915                     <RESTL PTR9 1 = PTR9 (TYPE LIST)>
 916                     <JUMP + AGAIN15>
 917 PHRASE24
 918                     <SET RBRANCH11 ITM10>
 919                     <CHTYPE RBRANCH11 <TYPE-CODE LIST> = RBRANCH11>
 920                     <LOOP (RBRANCH11 VALUE)>
 921 TAG31
 922                     <NTHL RBRANCH11 1 = TEMP23>
 923                     <TYPE? TEMP23 <TYPE-CODE ATOM> - TAG32>
 924                     <VEQUAL? TEMP23 '+ + TAG30>
 925                     <DEAD TEMP23>
 926 TAG32
 927                     <RESTL RBRANCH11 1 = RBRANCH11 (TYPE LIST)>
 928                     <EMPL? RBRANCH11 - TAG31>
 929                     <SET RBRANCH11 %<> (TYPE FALSE)>
 930 TAG30
 931                     <VEQUAL? RBRANCH11 0 - BOOL42>
 932                     <CHTYPE ITM10 <TYPE-CODE LIST> = TEMP23>
 933                     <LOOP (TEMP23 VALUE)>
 934 TAG35
 935                     <NTHL TEMP23 1 = TEMP37>
 936                     <TYPE? TEMP37 <TYPE-CODE ATOM> - TAG36>
 937                     <VEQUAL? TEMP37 '- + TAG34>
 938                     <DEAD TEMP37>
 939 TAG36
 940                     <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
 941                     <EMPL? TEMP23 - TAG35>
 942                     <SET RBRANCH11 %<> (TYPE FALSE)>
 943                     <JUMP + TAG38>
 944 TAG34
 945                     <SET RBRANCH11 TEMP23>
 946                     <DEAD TEMP23>
 947 TAG38
 948                     <VEQUAL? RBRANCH11 0 - BOOL42>
 949                     <SET RBRANCH11 ITM10>
 950                     <LOOP (RBRANCH11 VALUE)>
 951 TAG40
 952                     <RESTL RBRANCH11 1 = TEMP23 (TYPE LIST)>
 953                     <EMPL? TEMP23 + TAG41>
 954                     <SET RBRANCH11 TEMP23>
 955                     <DEAD TEMP23>
 956                     <JUMP + TAG40>
 957 TAG41
 958                     <NTHL RBRANCH11 1 = RBRANCH11>
 959                     <TYPE? RBRANCH11 <TYPE-CODE LIST> - PHRASE26>
 960                     <SET TEMP23 RBRANCH11>
 961                     <DEAD RBRANCH11>
 962                     <EMPL? TEMP23 + TAG43>
 963                     <LOOP (TEMP23 VALUE)>
 964 TAG45
 965                     <NTHL TEMP23 1 = TEMP37>
 966                     <TYPE? TEMP37 <TYPE-CODE ATOM> - TAG46>
 967                     <VEQUAL? TEMP37 '+ + TAG44>
 968                     <DEAD TEMP37>
 969 TAG46
 970                     <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
 971                     <EMPL? TEMP23 - TAG45>
 972 TAG43
 973                     <SET RBRANCH11 %<> (TYPE FALSE)>
 974                     <JUMP + TAG47>
 975 TAG44
 976                     <SET RBRANCH11 TEMP23>
 977                     <DEAD TEMP23>
 978 TAG47
 979                     <VEQUAL? RBRANCH11 0 - BOOL42>
 980                     <CHTYPE RBRANCH11 <TYPE-CODE LIST> = TEMP23>
 981                     <DEAD RBRANCH11>
 982                     <EMPL? TEMP23 + TAG48>
 983                     <LOOP (TEMP23 VALUE)>
 984 TAG50
 985                     <NTHL TEMP23 1 = TEMP37>
 986                     <TYPE? TEMP37 <TYPE-CODE ATOM> - TAG51>
 987                     <VEQUAL? TEMP37 '- + TAG49>
 988                     <DEAD TEMP37>
 989 TAG51
 990                     <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
 991                     <EMPL? TEMP23 - TAG50>
 992 TAG48
 993                     <SET RBRANCH11 %<> (TYPE FALSE)>
 994                     <JUMP + TAG52>
 995 TAG49
 996                     <SET RBRANCH11 TEMP23>
 997                     <DEAD TEMP23>
 998 TAG52
 999                     <VEQUAL? RBRANCH11 0 + PHRASE26>
1000 BOOL42
1001                     <FRAME '\1aNTH>
1002                     <PUSH RBRANCH11>
1003                     <PUSH 2>
1004                     <CALL '\1aNTH 2 = LAB12>
1005                     <SET TEMP23 LOOPS5>
1006                     <TYPE LAB12 = TEMP37>
1007                     <EMPL? TEMP23 + PHRASE26>
1008                     <LOOP (LAB12 VALUE) (TEMP37 VALUE) (TEMP23 VALUE)>
1009 TAG54
1010                     <NTHL TEMP23 1 = TEMP57>
1011                     <TYPE? TEMP57 TEMP37 - TAG55>
1012                     <VEQUAL? TEMP57 LAB12 + TAG53>
1013                     <DEAD TEMP57>
1014 TAG55
1015                     <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
1016                     <EMPL? TEMP23 - TAG54>
1017                     <JUMP + PHRASE26>
1018 TAG53
1019                     <NTHL ITM10 1 = TEMP23>
1020                     <DEAD ITM10>
1021                     <EQUAL? TEMP23 'JUMP!-MIMOP + PHRASE26>
1022                     <DEAD TEMP23>
1023                     <FRAME '\1aMAKE-LABEL>
1024                     <PUSH "UNLOOP">
1025                     <CALL '\1aMAKE-LABEL 1 = ITM10>
1026                     <FRAME '\1aPUT>
1027                     <PUSH RBRANCH11>
1028                     <PUSH 2>
1029                     <PUSH ITM10>
1030                     <CALL '\1aPUT 3>
1031                     <NTH1 RBRANCH11 = TEMP23>
1032                     <EQUAL? TEMP23 '- - PHRASE61>
1033                     <DEAD TEMP23>
1034                     <FRAME '\1aPUT>
1035                     <PUSH RBRANCH11>
1036                     <DEAD RBRANCH11>
1037                     <PUSH 1>
1038                     <PUSH '+>
1039                     <CALL '\1aPUT 3>
1040                     <JUMP + COND60>
1041 PHRASE61
1042                     <FRAME '\1aPUT>
1043                     <PUSH RBRANCH11>
1044                     <DEAD RBRANCH11>
1045                     <PUSH 1>
1046                     <PUSH '->
1047                     <CALL '\1aPUT 3>
1048 COND60
1049                     <RESTL PTR9 1 = RBRANCH11 (TYPE LIST)>
1050                     <FRAME '\1aFORM>
1051                     <PUSH 'JUMP!-MIMOP>
1052                     <PUSH '+>
1053                     <PUSH LAB12>
1054                     <DEAD LAB12>
1055                     <CALL '\1aFORM 3 = TEMP23>
1056                     <CONS TEMP23 () = TEMP23>
1057                     <CONS ITM10 () = TEMP37>
1058                     <DEAD ITM10>
1059                     <PUTREST TEMP23 TEMP37>
1060                     <DEAD TEMP37>
1061                     <PUTREST PTR9 TEMP23>
1062                     <DEAD TEMP23>
1063                     <RESTL PTR9 1 = TEMP37 (TYPE LIST)>
1064                     <RESTL TEMP37 1 = TEMP23 (TYPE LIST)>
1065                     <DEAD TEMP37>
1066                     <PUTREST TEMP23 RBRANCH11>
1067                     <DEAD TEMP23 RBRANCH11>
1068                     <RESTL PTR9 1 = PTR9 (TYPE LIST)>
1069                     <RESTL PTR9 1 = PTR9 (TYPE LIST)>
1070                     <RESTL PTR9 1 = PTR9 (TYPE LIST)>
1071                     <JUMP + AGAIN15>
1072 PHRASE26
1073                     <RESTL PTR9 1 = PTR9 (TYPE LIST)>
1074                     <JUMP + AGAIN15>
1075 PHRASE19
1076                     <RESTL PTR9 1 = PTR9 (TYPE LIST)>
1077                     <JUMP + AGAIN15>
1078                     <END \1aREPLACE-LOOP-BRANCHES>
1079 #WORD *25772750332*
1080 <GFCN \1aHACK-DISPATCH-LABELS ("VALUE" <OR ATOM FALSE> LIST LIST) PTR4 LOOPS5>
1081                     <TEMP (DEFLBL6 %<>) (ANY?7 %<>) TEMP10 TEMP22 NP23:LIST LBL24 TEMP32 TEMP38:LIST NL25:ATOM>
1082                     <INTGO>
1083                     <RESTL PTR4 1 = TEMP10 (TYPE LIST)>
1084                     <NTHL TEMP10 1 = TEMP10>
1085                     <TYPE? TEMP10 <TYPE-CODE ATOM> - PHRASE9>
1086                     <DEAD TEMP10>
1087                     <RESTL PTR4 1 = TEMP10 (TYPE LIST)>
1088                     <NTHL TEMP10 1 = DEFLBL6 (TYPE ATOM)>
1089                     <DEAD TEMP10>
1090 PHRASE9
1091                     <SET TEMP10 %<> (TYPE FALSE)>
1092                     <FRAME '\1aREST>
1093                     <NTHL PTR4 1 = STACK>
1094                     <PUSH 3>
1095                     <CALL '\1aREST 2 = TEMP22>
1096                     <LOOP>
1097 MAP12
1098                     <INTGO>
1099                     <EMPTY? TEMP22 + MAPAP15>
1100                     <SET NP23 TEMP22>
1101                     <NTHL NP23 1 = LBL24 (TYPE ATOM)>
1102                     <SET TEMP10 LOOPS5>
1103                     <EMPL? TEMP10 + TAG28>
1104                     <LOOP (LBL24 VALUE) (TEMP10 VALUE)>
1105 TAG30
1106                     <NTHL TEMP10 1 = TEMP32>
1107                     <TYPE? TEMP32 <TYPE-CODE ATOM> - TAG31>
1108                     <VEQUAL? TEMP32 LBL24 + TAG29>
1109                     <DEAD TEMP32>
1110 TAG31
1111                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
1112                     <EMPL? TEMP10 - TAG30>
1113 TAG28
1114                     <SET TEMP10 %<> (TYPE FALSE)>
1115                     <JUMP + EXIT43>
1116 TAG29
1117                     <TYPE? ANY?7 <TYPE-CODE FALSE> - PHRASE34>
1118                     <TYPE? DEFLBL6 <TYPE-CODE FALSE> - PHRASE36>
1119                     <FRAME '\1aMAKE-LABEL>
1120                     <PUSH "DEFCASE">
1121                     <CALL '\1aMAKE-LABEL 1 = DEFLBL6>
1122                     <CONS DEFLBL6 () = TEMP32>
1123                     <RESTL PTR4 1 = TEMP38 (TYPE LIST)>
1124                     <PUTREST TEMP32 TEMP38>
1125                     <DEAD TEMP38>
1126                     <PUTREST PTR4 TEMP32>
1127                     <DEAD TEMP32>
1128 PHRASE36
1129                     <FRAME '\1aFORM>
1130                     <PUSH 'JUMP!-MIMOP>
1131                     <PUSH '+>
1132                     <PUSH DEFLBL6>
1133                     <CALL '\1aFORM 3 = TEMP32>
1134                     <CONS TEMP32 () = TEMP38>
1135                     <DEAD TEMP32>
1136                     <RESTL PTR4 1 = TEMP32 (TYPE LIST)>
1137                     <PUTREST TEMP38 TEMP32>
1138                     <DEAD TEMP32>
1139                     <SET ANY?7 TEMP38>
1140                     <DEAD TEMP38>
1141                     <PUTREST PTR4 ANY?7>
1142 PHRASE34
1143                     <FRAME '\1aMAKE-LABEL>
1144                     <PUSH "LCASE">
1145                     <CALL '\1aMAKE-LABEL 1 = NL25>
1146                     <CONS NL25 () = TEMP38>
1147                     <FRAME '\1aFORM>
1148                     <PUSH 'JUMP!-MIMOP>
1149                     <PUSH '+>
1150                     <PUSH LBL24>
1151                     <CALL '\1aFORM 3 = TEMP32>
1152                     <CONS TEMP32 () = TEMP32>
1153                     <PUTREST TEMP38 TEMP32>
1154                     <RESTL ANY?7 1 = TEMP10 (TYPE LIST)>
1155                     <PUTREST TEMP32 TEMP10>
1156                     <DEAD TEMP32 TEMP10>
1157                     <PUTREST ANY?7 TEMP38>
1158                     <DEAD TEMP38>
1159                     <PUTL NP23 1 NL25>
1160                     <RESTL NP23 1 = TEMP32 (TYPE LIST)>
1161                     <DEAD NP23>
1162                     <LOOP>
1163 AGAIN45
1164                     <INTGO>
1165                     <EMPL? TEMP32 + TAG48>
1166                     <LOOP (LBL24 VALUE) (TEMP32 VALUE)>
1167 TAG50
1168                     <NTHL TEMP32 1 = TEMP10>
1169                     <TYPE? TEMP10 <TYPE-CODE ATOM> - TAG51>
1170                     <VEQUAL? TEMP10 LBL24 + TAG49>
1171                     <DEAD TEMP10>
1172 TAG51
1173                     <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
1174                     <EMPL? TEMP32 - TAG50>
1175 TAG48
1176                     <SET TEMP32 %<> (TYPE FALSE)>
1177                     <JUMP + TAG52>
1178 TAG49
1179 TAG52
1180                     <VEQUAL? TEMP32 0 + PHRASE47>
1181                     <PUTL TEMP32 1 NL25>
1182                     <JUMP + AGAIN45>
1183 PHRASE47
1184                     <SET TEMP10 'T (TYPE ATOM)>
1185 EXIT43
1186                     <REST1 TEMP22 = TEMP22>
1187                     <JUMP + MAP12>
1188 MAPAP15
1189                     <RETURN TEMP10>
1190                     <DEAD TEMP10>
1191                     <END \1aHACK-DISPATCH-LABELS>
1192 #WORD *21176155112*
1193 <GFCN \1aDMEMQ ("VALUE" <OR !<FALSE> <LIST ATOM [REST ATOM]>> ATOM <LIST [REST ATOM]>) X4 L5>
1194                     <TEMP TEMP6>
1195                     <INTGO>
1196                     <LOOP>
1197 AGAIN9
1198                     <INTGO>
1199                     <EMPL? L5 - PHRASE11 (TYPE LIST)>
1200                     <RETURN %<>>
1201 PHRASE11
1202                     <NTHL L5 1 = TEMP6 (TYPE ATOM)>
1203                     <VEQUAL? TEMP6 X4 - PHRASE12>
1204                     <DEAD TEMP6>
1205                     <RETURN L5>
1206                     <DEAD L5>
1207 PHRASE12
1208                     <RESTL L5 1 = L5 (TYPE LIST)>
1209                     <RESTL L5 1 = L5 (TYPE LIST)>
1210                     <JUMP + AGAIN9>
1211                     <END \1aDMEMQ>
1212 #WORD *30436741652*
1213 <GFCN \1aPRINT-MIM-CODE ("VALUE" <OR ATOM FALSE> LIST "OPTIONAL" CHANNEL) LST6 OUTCHAN7>
1214                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
1215 OPT4
1216                     <PUSH #T$UNBOUND 0>
1217 OPT5
1218                     <TEMP TEMP3:LBIND TEMP11 TEMP17 TEMP37>
1219                     <INTGO>
1220                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
1221                     <TYPE? OUTCHAN7 <TYPE-CODE UNBOUND> - TAG9>
1222                     <GEN-LVAL 'OUTCHAN = OUTCHAN7>
1223 TAG9
1224                     <BBIND 'OUTCHAN 'CHANNEL 'FIX OUTCHAN7>
1225                     <DEAD OUTCHAN7>
1226                     <FIXBIND>
1227                     <GEN-LVAL 'OBLIST = TEMP11>
1228                     <GVAL 'MIMOP-OBLIST = TEMP17>
1229                     <CONS TEMP17 TEMP11 = TEMP11>
1230                     <DEAD TEMP17>
1231                     <BBIND 'OBLIST 'LIST 'FIX TEMP11>
1232                     <DEAD TEMP11>
1233                     <FRAME '\1aCRLF>
1234                     <NTHR 'OUTCHAN 2 = TEMP11 (RECORD-TYPE ATOM) (TYPE LBIND)>
1235                     <NTHR TEMP11 1 = STACK (RECORD-TYPE LBIND)>
1236                     <DEAD TEMP11>
1237                     <CALL '\1aCRLF 1>
1238                     <FRAME '\1aCRLF>
1239                     <NTHR 'OUTCHAN 2 = TEMP11 (RECORD-TYPE ATOM) (TYPE LBIND)>
1240                     <NTHR TEMP11 1 = STACK (RECORD-TYPE LBIND)>
1241                     <DEAD TEMP11>
1242                     <CALL '\1aCRLF 1>
1243                     <SET TEMP17 %<> (TYPE FALSE)>
1244                     <SET TEMP11 LST6 (TYPE LIST)>
1245                     <DEAD LST6>
1246                     <LOOP>
1247 MAP25
1248                     <INTGO>
1249                     <EMPL? TEMP11 + MAPAP28>
1250                     <NTHL TEMP11 1 = TEMP17>
1251                     <TYPE? TEMP17 <TYPE-CODE ATOM> - PHRASE35>
1252                     <FRAME '\1aPRIN1>
1253                     <PUSH TEMP17>
1254                     <DEAD TEMP17>
1255                     <NTHR 'OUTCHAN 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
1256                     <NTHR TEMP37 1 = STACK (RECORD-TYPE LBIND)>
1257                     <DEAD TEMP37>
1258                     <CALL '\1aPRIN1 2>
1259                     <JUMP + PHRASE40>
1260 PHRASE35
1261                     <FRAME '\1aPRINC>
1262                     <PUSH "       ">
1263                     <NTHR 'OUTCHAN 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
1264                     <NTHR TEMP37 1 = STACK (RECORD-TYPE LBIND)>
1265                     <DEAD TEMP37>
1266                     <CALL '\1aPRINC 2>
1267                     <FRAME '\1aPRIN1>
1268                     <PUSH TEMP17>
1269                     <DEAD TEMP17>
1270                     <NTHR 'OUTCHAN 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
1271                     <NTHR TEMP37 1 = STACK (RECORD-TYPE LBIND)>
1272                     <DEAD TEMP37>
1273                     <CALL '\1aPRIN1 2>
1274 PHRASE40
1275                     <FRAME '\1aCRLF>
1276                     <NTHR 'OUTCHAN 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
1277                     <NTHR TEMP37 1 = STACK (RECORD-TYPE LBIND)>
1278                     <DEAD TEMP37>
1279                     <CALL '\1aCRLF 1 = TEMP17>
1280                     <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
1281                     <JUMP + MAP25>
1282 MAPAP28
1283                     <UNBIND TEMP3>
1284                     <DEAD TEMP3>
1285                     <ADJ -18>
1286                     <RETURN TEMP17>
1287                     <DEAD TEMP17>
1288                     <END \1aPRINT-MIM-CODE>
1289 <GDECL (GLUE-FCNS) <LIST [REST ATOM]>>
1290
1291 <GDECL (INCHANS) <LIST [REST CHANNEL]>>
1292
1293 #WORD *3531522413*
1294 <GFCN \1aFINISH-FILE ("VALUE" <OR !<FALSE> FORM> TUPLE <OR CHANNEL FALSE> <OR ATOM FALSE>) READ-INFO4 OUTCHAN5 EXPFLOAD6>
1295                     <TEMP TEMP3:LBIND (IND7:LIST (1)) TEMP15 EXPSPLICE8 TEMP26 TEMP30 TEMP43 TEMP44 TEMP45>
1296                     <INTGO>
1297                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
1298                     <BBIND 'OUTCHAN <OR CHANNEL FALSE> %<> OUTCHAN5>
1299                     <DEAD OUTCHAN5>
1300                     <FIXBIND>
1301                     <GEN-ASSIGNED? 'EXPSPLICE + TAG14>
1302                     <SET TEMP15 %<> (TYPE FALSE)>
1303                     <JUMP + BOOL12>
1304 TAG14
1305                     <GEN-LVAL 'EXPSPLICE = TEMP15>
1306 BOOL12
1307                     <SET EXPSPLICE8 TEMP15>
1308                     <DEAD TEMP15>
1309                     <NTHUV READ-INFO4 3 = TEMP15 (TYPE CHANNEL)>
1310                     <BBIND 'INCHAN 'CHANNEL 'FIX TEMP15>
1311                     <DEAD TEMP15>
1312                     <LOOP>
1313 AGAIN23
1314                     <INTGO>
1315                     <FRAME '\1aREAD-INTERNAL>
1316                     <PUSH READ-INFO4>
1317                     <CFRAME = STACK (TYPE FRAME)>
1318                     <CALL '\1aREAD-INTERNAL 2 = TEMP15>
1319                     <CFRAME = TEMP26 (TYPE FRAME)>
1320                     <EQUAL? TEMP26 TEMP15 - TAG27>
1321                     <DEAD TEMP26>
1322                     <SET TEMP15 IND7>
1323 TAG27
1324                     <EQUAL? TEMP15 IND7 - PHRASE25>
1325                     <GVAL 'INCHANS = TEMP30>
1326                     <RESTL TEMP30 1 = TEMP26 (TYPE LIST)>
1327                     <DEAD TEMP30>
1328                     <SETG 'INCHANS TEMP26>
1329                     <EMPL? TEMP26 - PHRASE29 (TYPE LIST)>
1330                     <DEAD TEMP26>
1331                     <FRAME '\1aCLOSE>
1332                     <NTHR 'INCHAN 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
1333                     <NTHR TEMP26 1 = STACK (RECORD-TYPE LBIND)>
1334                     <DEAD TEMP26>
1335                     <CALL '\1aCLOSE 1>
1336                     <SET TEMP15 %<> (TYPE FALSE)>
1337                     <JUMP + EXIT19>
1338 PHRASE29
1339                     <FRAME '\1aCLOSE>
1340                     <FRAME '\1aSET-RI-CHANNEL>
1341                     <PUSH READ-INFO4>
1342                     <GVAL 'INCHANS = TEMP30>
1343                     <NTHL TEMP30 1 = TEMP30 (TYPE CHANNEL)>
1344                     <NTHR 'INCHAN 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
1345                     <PUTR TEMP26 1 TEMP30 (RECORD-TYPE LBIND)>
1346                     <DEAD TEMP26>
1347                     <PUSH TEMP30>
1348                     <DEAD TEMP30>
1349                     <CALL '\1aSET-RI-CHANNEL 2 = STACK>
1350                     <CALL '\1aCLOSE 1>
1351                     <JUMP + AGAIN23>
1352 PHRASE25
1353                     <TYPE? TEMP15 <TYPE-CODE STRING> + AGAIN23>
1354                     <TYPE? TEMP15 <TYPE-CODE CHARACTER> + AGAIN23>
1355                     <TYPE? TEMP15 <TYPE-CODE FIX> + AGAIN23>
1356                     <TYPE? TEMP15 <TYPE-CODE ATOM> - TAG42>
1357                     <NTHR TEMP15 3 = TEMP30 (RECORD-TYPE ATOM)>
1358                     <IFCAN "STRING-EQUAL?">
1359                     <STRING-EQUAL? TEMP30 "\f" + AGAIN23>
1360                     <ENDIF "STRING-EQUAL?">
1361                     <IFCANNOT "STRING-EQUAL?">
1362                     <SET TEMP26 "\f" (TYPE STRING)>
1363                     <LENUS TEMP30 = TEMP43 (TYPE FIX)>
1364                     <VEQUAL? TEMP43 1 - TAG42>
1365                     <LOOP (TEMP30 VALUE LENGTH) (TEMP26 VALUE LENGTH) (TEMP43 VALUE)>
1366 TAG46
1367                     <NTHUS TEMP30 1 = TEMP44>
1368                     <NTHUS TEMP26 1 = TEMP45>
1369                     <VEQUAL? TEMP44 TEMP45 - TAG42>
1370                     <DEAD TEMP44 TEMP45>
1371                     <RESTUS TEMP30 1 = TEMP30 (TYPE STRING)>
1372                     <RESTUS TEMP26 1 = TEMP26 (TYPE STRING)>
1373                     <SUB TEMP43 1 = TEMP43 (TYPE FIX)>
1374                     <GRTR? TEMP43 0 + TAG46 (TYPE FIX)>
1375                     <JUMP + AGAIN23>
1376                     <ENDIF "STRING-EQUAL?">
1377 TAG42
1378                     <TYPE? TEMP15 <TYPE-CODE FORM> - PHRASE48>
1379                     <SET TEMP26 TEMP15>
1380                     <SET TEMP30 2 (TYPE FIX)>
1381                     <LOOP (TEMP26 VALUE) (TEMP30 VALUE)>
1382 TAG51
1383                     <EMPL? TEMP26 + PHRASE48>
1384                     <SUB TEMP30 1 = TEMP30 (TYPE FIX)>
1385                     <LESS? TEMP30 0 + TAG52>
1386                     <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
1387                     <JUMP + TAG51>
1388 TAG52
1389                     <FRAME '\1aMEMBER>
1390                     <NTHL TEMP15 1 = TEMP30 (TYPE ATOM)>
1391                     <NTHR TEMP30 3 = STACK (RECORD-TYPE ATOM)>
1392                     <DEAD TEMP30>
1393                     <PUSH ["FCN" "GFCN"]>
1394                     <CALL '\1aMEMBER 2 = TEMP30>
1395                     <TYPE? TEMP30 <TYPE-CODE FALSE> + PHRASE48>
1396                     <DEAD TEMP30>
1397                     <JUMP + EXIT19>
1398 PHRASE48
1399                     <TYPE? TEMP15 <TYPE-CODE WORD> - PHRASE55>
1400                     <GVAL 'GLUE = TEMP30>
1401                     <TYPE? TEMP30 <TYPE-CODE FALSE> - AGAIN23>
1402                     <DEAD TEMP30>
1403                     <SETG 'LAST-HASH TEMP15>
1404                     <GVAL 'INT-MODE = TEMP30>
1405                     <TYPE? TEMP30 <TYPE-CODE FALSE> - AGAIN23>
1406                     <DEAD TEMP30>
1407                     <FRAME '\1aUNPARSE>
1408                     <PUSH TEMP15>
1409                     <DEAD TEMP15>
1410                     <CALL '\1aUNPARSE 1 = TEMP15>
1411                     <FRAME '\1aPRINC>
1412                     <PUSH "#WORD \1a*">
1413                     <NTHR 'OUTCHAN 2 = TEMP30 (RECORD-TYPE ATOM) (TYPE LBIND)>
1414                     <NTHR TEMP30 1 = STACK (RECORD-TYPE LBIND)>
1415                     <DEAD TEMP30>
1416                     <CALL '\1aPRINC 2>
1417                     <FRAME '\1aPRINTSTRING>
1418                     <RESTUS TEMP15 7 = STACK (TYPE STRING)>
1419                     <NTHR 'OUTCHAN 2 = TEMP30 (RECORD-TYPE ATOM) (TYPE LBIND)>
1420                     <NTHR TEMP30 1 = STACK (RECORD-TYPE LBIND)>
1421                     <DEAD TEMP30>
1422                     <LENUS TEMP15 = TEMP30 (TYPE FIX)>
1423                     <DEAD TEMP15>
1424                     <SUB TEMP30 8 = STACK (TYPE FIX)>
1425                     <DEAD TEMP30>
1426                     <CALL '\1aPRINTSTRING 3>
1427                     <FRAME '\1aPRINC>
1428                     <PUSH !\*>
1429                     <NTHR 'OUTCHAN 2 = TEMP30 (RECORD-TYPE ATOM) (TYPE LBIND)>
1430                     <NTHR TEMP30 1 = STACK (RECORD-TYPE LBIND)>
1431                     <DEAD TEMP30>
1432                     <CALL '\1aPRINC 2>
1433                     <FRAME '\1aCRLF>
1434                     <NTHR 'OUTCHAN 2 = TEMP30 (RECORD-TYPE ATOM) (TYPE LBIND)>
1435                     <NTHR TEMP30 1 = STACK (RECORD-TYPE LBIND)>
1436                     <DEAD TEMP30>
1437                     <CALL '\1aCRLF 1>
1438                     <JUMP + AGAIN23>
1439 PHRASE55
1440                     <TYPE? EXPFLOAD6 <TYPE-CODE FALSE> + PHRASE73>
1441                     <TYPE? TEMP15 <TYPE-CODE FORM> - PHRASE73>
1442                     <EMPL? TEMP15 + PHRASE73 (TYPE FORM)>
1443                     <NTHL TEMP15 1 = TEMP30>
1444                     <EQUAL? TEMP30 'FLOAD - PHRASE76>
1445                     <DEAD TEMP30>
1446                     <FRAME '\1aOPEN>
1447                     <PUSH "READ">
1448                     <SET TEMP26 1 (TYPE FIX)>
1449                     <RESTL TEMP15 1 = TEMP30 (TYPE LIST)>
1450                     <CHTYPE TEMP30 <TYPE-CODE LIST> = TEMP30>
1451                     <LOOP (TEMP30 VALUE) (TEMP26 VALUE)>
1452 TAG78
1453                     <INTGO>
1454                     <EMPL? TEMP30 + TAG77>
1455                     <NTHL TEMP30 1 = STACK>
1456                     <RESTL TEMP30 1 = TEMP30 (TYPE LIST)>
1457                     <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
1458                     <JUMP + TAG78>
1459 TAG77
1460                     <CALL '\1aOPEN TEMP26 = TEMP30>
1461                     <DEAD TEMP26>
1462                     <TYPE? TEMP30 <TYPE-CODE FALSE> + PHRASE73>
1463                     <JUMP + PHRASE80>
1464 PHRASE76
1465                     <NTHL TEMP15 1 = TEMP26>
1466                     <EQUAL? TEMP26 'L-FLOAD - PHRASE73>
1467                     <DEAD TEMP26>
1468                     <FRAME '\1aL-OPEN>
1469                     <RESTL TEMP15 1 = TEMP26 (TYPE LIST)>
1470                     <NTHL TEMP26 1 = STACK (TYPE STRING)>
1471                     <DEAD TEMP26>
1472                     <CALL '\1aL-OPEN 1 = TEMP30>
1473                     <TYPE? TEMP30 <TYPE-CODE FALSE> + PHRASE73>
1474 PHRASE80
1475                     <FRAME '\1aPRINFILE>
1476                     <PUSH TEMP30>
1477                     <CALL '\1aPRINFILE 1>
1478                     <FRAME '\1aSET-RI-CHANNEL>
1479                     <PUSH READ-INFO4>
1480                     <NTHR 'INCHAN 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
1481                     <PUTR TEMP26 1 TEMP30 (RECORD-TYPE LBIND)>
1482                     <DEAD TEMP26>
1483                     <PUSH TEMP30>
1484                     <CALL '\1aSET-RI-CHANNEL 2>
1485                     <GVAL 'INCHANS = TEMP26>
1486                     <CONS TEMP30 TEMP26 = TEMP26>
1487                     <DEAD TEMP30>
1488                     <SETG 'INCHANS TEMP26>
1489                     <DEAD TEMP26>
1490                     <JUMP + AGAIN23>
1491 PHRASE73
1492                     <TYPE? TEMP15 <TYPE-CODE FORM> - PHRASE88>
1493                     <EMPL? TEMP15 + PHRASE88 (TYPE FORM)>
1494                     <NTHL TEMP15 1 = TEMP26>
1495                     <EQUAL? TEMP26 'NEW-CHANNEL-TYPE - PHRASE91>
1496                     <DEAD TEMP26>
1497                     <FRAME '\1aEVAL>
1498                     <FRAME '\1aFORM>
1499                     <PUSH 'NCT-NEW>
1500                     <SET TEMP30 1 (TYPE FIX)>
1501                     <RESTL TEMP15 1 = TEMP26 (TYPE LIST)>
1502                     <CHTYPE TEMP26 <TYPE-CODE LIST> = TEMP26>
1503                     <LOOP (TEMP26 VALUE) (TEMP30 VALUE)>
1504 TAG94
1505                     <INTGO>
1506                     <EMPL? TEMP26 + TAG93>
1507                     <NTHL TEMP26 1 = STACK>
1508                     <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
1509                     <ADD TEMP30 1 = TEMP30 (TYPE FIX)>
1510                     <JUMP + TAG94>
1511 TAG93
1512                     <CALL '\1aFORM TEMP30 = STACK>
1513                     <DEAD TEMP30>
1514                     <CALL '\1aEVAL 1 = TEMP26>
1515                     <JUMP + PHRASE108>
1516 PHRASE91
1517                     <NTHL TEMP15 1 = TEMP30>
1518                     <SET TEMP26 [INCLUDE-WHEN USE-WHEN] (TYPE VECTOR)>
1519                     <TYPE? TEMP30 <TYPE-CODE ATOM> - PHRASE96>
1520                     <LOOP (TEMP30 VALUE) (TEMP26 LENGTH VALUE)>
1521 TAG99
1522                     <NTHUV TEMP26 1 = TEMP45>
1523                     <VEQUAL? TEMP45 TEMP30 + TAG98>
1524                     <DEAD TEMP45>
1525                     <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
1526                     <EMPUV? TEMP26 - TAG99>
1527                     <JUMP + PHRASE96>
1528 TAG98
1529                     <SET TEMP26 TEMP15>
1530                     <SET TEMP30 1 (TYPE FIX)>
1531                     <LOOP (TEMP26 VALUE) (TEMP30 VALUE)>
1532 TAG102
1533                     <EMPL? TEMP26 + PHRASE96>
1534                     <SUB TEMP30 1 = TEMP30 (TYPE FIX)>
1535                     <LESS? TEMP30 0 + TAG103>
1536                     <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
1537                     <JUMP + TAG102>
1538 TAG103
1539                     <RESTL TEMP15 1 = TEMP30 (TYPE LIST)>
1540                     <NTHL TEMP30 1 = TEMP30>
1541                     <TYPE? TEMP30 <TYPE-CODE FORM> - PHRASE96>
1542                     <DEAD TEMP30>
1543                     <RESTL TEMP15 1 = TEMP30 (TYPE LIST)>
1544                     <NTHL TEMP30 1 = TEMP30 (TYPE FORM)>
1545                     <EMPL? TEMP30 + PHRASE96 (TYPE FORM)>
1546                     <DEAD TEMP30>
1547                     <RESTL TEMP15 1 = TEMP30 (TYPE LIST)>
1548                     <NTHL TEMP30 1 = TEMP30 (TYPE FORM)>
1549                     <NTHL TEMP30 1 = TEMP30>
1550                     <EQUAL? TEMP30 'COMPILING? - PHRASE96>
1551                     <DEAD TEMP30>
1552                     <FRAME '\1aEVAL>
1553                     <PUSH TEMP15>
1554                     <CALL '\1aEVAL 1 = TEMP26>
1555                     <FRAME '\1aPUT>
1556                     <RESTL TEMP15 1 = TEMP30 (TYPE LIST)>
1557                     <NTHL TEMP30 1 = STACK>
1558                     <DEAD TEMP30>
1559                     <PUSH 1>
1560                     <PUSH 'DEBUGGING?>
1561                     <CALL '\1aPUT 3>
1562                     <JUMP + PHRASE108>
1563 PHRASE96
1564                     <FRAME '\1aEVAL>
1565                     <PUSH TEMP15>
1566                     <CALL '\1aEVAL 1 = TEMP26>
1567                     <JUMP + PHRASE108>
1568 PHRASE88
1569                     <FRAME '\1aEVAL>
1570                     <PUSH TEMP15>
1571                     <CALL '\1aEVAL 1 = TEMP26>
1572 PHRASE108
1573                     <NTHR 'OUTCHAN 2 = TEMP30 (RECORD-TYPE ATOM) (TYPE LBIND)>
1574                     <NTHR TEMP30 1 = TEMP30 (RECORD-TYPE LBIND)>
1575                     <TYPE? TEMP30 <TYPE-CODE FALSE> + AGAIN23>
1576                     <DEAD TEMP30>
1577                     <GVAL 'INT-MODE = TEMP30>
1578                     <TYPE? TEMP30 <TYPE-CODE FALSE> + PHRASE115>
1579                     <DEAD TEMP30>
1580                     <FRAME '\1aPRINTTYPE>
1581                     <PUSH 'ATOM>
1582                     <GVAL 'ATOM-PRINT = STACK>
1583                     <CALL '\1aPRINTTYPE 2>
1584                     <FRAME '\1aPRINTTYPE>
1585                     <PUSH 'LVAL>
1586                     <GVAL 'ATOM-PRINT = STACK>
1587                     <CALL '\1aPRINTTYPE 2>
1588                     <FRAME '\1aPRINTTYPE>
1589                     <PUSH 'GVAL>
1590                     <GVAL 'ATOM-PRINT = STACK>
1591                     <CALL '\1aPRINTTYPE 2>
1592 PHRASE115
1593                     <TYPE? EXPSPLICE8 <TYPE-CODE FALSE> + PHRASE120>
1594                     <TYPE? TEMP26 <TYPE-CODE SPLICE> - PHRASE120>
1595                     <CHTYPE TEMP26 <TYPE-CODE LIST> = TEMP30>
1596                     <DEAD TEMP26>
1597                     <LOOP>
1598 MAP123
1599                     <INTGO>
1600                     <EMPL? TEMP30 + PHRASE137>
1601                     <NTHL TEMP30 1 = TEMP15>
1602                     <FRAME '\1aPRIN1>
1603                     <PUSH TEMP15>
1604                     <DEAD TEMP15>
1605                     <NTHR 'OUTCHAN 2 = TEMP15 (RECORD-TYPE ATOM) (TYPE LBIND)>
1606                     <NTHR TEMP15 1 = STACK (RECORD-TYPE LBIND)>
1607                     <DEAD TEMP15>
1608                     <CALL '\1aPRIN1 2>
1609                     <FRAME '\1aCRLF>
1610                     <NTHR 'OUTCHAN 2 = TEMP15 (RECORD-TYPE ATOM) (TYPE LBIND)>
1611                     <NTHR TEMP15 1 = STACK (RECORD-TYPE LBIND)>
1612                     <DEAD TEMP15>
1613                     <CALL '\1aCRLF 1>
1614                     <RESTL TEMP30 1 = TEMP30 (TYPE LIST)>
1615                     <JUMP + MAP123>
1616 PHRASE120
1617                     <FRAME '\1aPRIN1>
1618                     <PUSH TEMP15>
1619                     <DEAD TEMP15>
1620                     <NTHR 'OUTCHAN 2 = TEMP30 (RECORD-TYPE ATOM) (TYPE LBIND)>
1621                     <NTHR TEMP30 1 = STACK (RECORD-TYPE LBIND)>
1622                     <DEAD TEMP30>
1623                     <CALL '\1aPRIN1 2>
1624                     <FRAME '\1aCRLF>
1625                     <NTHR 'OUTCHAN 2 = TEMP30 (RECORD-TYPE ATOM) (TYPE LBIND)>
1626                     <NTHR TEMP30 1 = STACK (RECORD-TYPE LBIND)>
1627                     <DEAD TEMP30>
1628                     <CALL '\1aCRLF 1>
1629 PHRASE137
1630                     <GVAL 'INT-MODE = TEMP30>
1631                     <TYPE? TEMP30 <TYPE-CODE FALSE> + AGAIN23>
1632                     <DEAD TEMP30>
1633                     <FRAME '\1aPRINTTYPE>
1634                     <PUSH 'ATOM>
1635                     <GVAL 'PRINT = STACK>
1636                     <CALL '\1aPRINTTYPE 2>
1637                     <FRAME '\1aPRINTTYPE>
1638                     <PUSH 'LVAL>
1639                     <GVAL 'PRINT = STACK>
1640                     <CALL '\1aPRINTTYPE 2>
1641                     <FRAME '\1aPRINTTYPE>
1642                     <PUSH 'GVAL>
1643                     <GVAL 'PRINT = STACK>
1644                     <CALL '\1aPRINTTYPE 2>
1645                     <JUMP + AGAIN23>
1646 EXIT19
1647                     <UNBIND TEMP3>
1648                     <DEAD TEMP3>
1649                     <ADJ -18>
1650                     <RETURN TEMP15>
1651                     <DEAD TEMP15>
1652                     <END \1aFINISH-FILE>
1653 <GDECL (LAST-HASH) <OR FALSE WORD>>
1654
1655 #WORD *10570521213*
1656 <GFCN \1aFILE-PASS1 ("VALUE" ATOM <<PRIMTYPE VECTOR> [REST STRING]> TUPLE CHANNEL <OR FALSE CHANNEL> <OR FALSE CHANNEL> <OR FALSE CHANNEL> ANY) NAMES4 READ-INFO5 OCH6 PMCH7 AMCH8 AACH9 EXPFLOAD10>
1657                     <TEMP (STARCPU14 0.0) TEMP3:LBIND (PRE-CH16 %<>) (INDEX17:LIST ()) (RREDO18:LIST ()) TEMP22 TEMP48 TEMP52 X55 VAL87 TEMP100 TEMP102>
1658                     <INTGO>
1659                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
1660                     <BBIND 'NM2 'STRING 'FIX "MIMA">
1661                     <SETG 'END-READ 'T>
1662                     <SETG 'GLUE-FCNS ()>
1663                     <SETG 'FCN-COUNT 0>
1664                     <GVAL 'GLUE = TEMP22>
1665                     <TYPE? TEMP22 <TYPE-CODE FALSE> - MAPEX45>
1666                     <DEAD TEMP22>
1667                     <GEN-ASSIGNED? 'PRECOMPILED - MAPEX45>
1668                     <GEN-LVAL 'PRECOMPILED = TEMP22>
1669                     <TYPE? TEMP22 <TYPE-CODE FALSE> + MAPEX45>
1670                     <DEAD TEMP22>
1671                     <GVAL 'PRE-CH = TEMP22>
1672                     <TYPE? TEMP22 <TYPE-CODE FALSE> + MAPEX45>
1673                     <DEAD TEMP22>
1674                     <GVAL 'PRE-CH = PRE-CH16>
1675                     <FRAME '\1aCRLF>
1676                     <GEN-LVAL 'OUTCHAN = STACK>
1677                     <CALL '\1aCRLF 1>
1678                     <FRAME '\1aPRINT-MANY>
1679                     <GEN-LVAL 'OUTCHAN = STACK>
1680                     <PUSH 'PRINC>
1681                     <PUSH "Precompilation from ">
1682                     <FRAME '\1aCHANNEL-OP>
1683                     <PUSH PRE-CH16>
1684                     <PUSH 'NAME>
1685                     <CALL '\1aCHANNEL-OP 2 = STACK>
1686                     <CALL '\1aPRINT-MANY 4>
1687                     <FRAME '\1aBUILD-INDEX>
1688                     <PUSH PRE-CH16>
1689                     <GVAL 'FCN-OBL = STACK>
1690                     <CALL '\1aBUILD-INDEX 2 = INDEX17>
1691                     <GEN-ASSIGNED? 'REDO - MAPEX45>
1692                     <GEN-LVAL 'REDO = TEMP22>
1693                     <TYPE? TEMP22 <TYPE-CODE FALSE> + MAPEX45>
1694                     <DEAD TEMP22>
1695                     <SET TEMP22 () (TYPE LIST)>
1696                     <SET TEMP48 () (TYPE LIST)>
1697                     <GEN-LVAL 'REDO = TEMP52>
1698                     <LOOP>
1699 MAP43
1700                     <INTGO>
1701                     <EMPTY? TEMP52 + MAPAP46>
1702                     <NTH1 TEMP52 = X55>
1703                     <NTHR X55 3 = X55 (RECORD-TYPE ATOM)>
1704                     <CONS X55 () = X55 (TYPE LIST)>
1705                     <EMPL? TEMP22 - TAG57>
1706                     <SET TEMP22 X55 (TYPE LIST)>
1707                     <JUMP + TAG58>
1708 TAG57
1709                     <PUTREST TEMP48 X55>
1710                     <DEAD TEMP48>
1711 TAG58
1712                     <SET TEMP48 X55 (TYPE LIST)>
1713                     <DEAD X55>
1714                     <REST1 TEMP52 = TEMP52>
1715                     <JUMP + MAP43>
1716 MAPAP46
1717                     <SET RREDO18 TEMP22>
1718                     <DEAD TEMP22>
1719 MAPEX45
1720                     <SET TEMP22 %<> (TYPE FALSE)>
1721                     <GETS 'BIND = X55 (TYPE LBIND)>
1722                     <BBIND 'COMPILER-INPUT 'CHANNEL 'FIX>
1723                     <LOOP>
1724 AGAIN66
1725                     <INTGO>
1726                     <SETG 'LAST-HASH %<>>
1727                     <GVAL 'END-READ = TEMP48>
1728                     <TYPE? TEMP48 <TYPE-CODE FALSE> + PHRASE68>
1729                     <DEAD TEMP48>
1730                     <TYPE? TEMP22 <TYPE-CODE FALSE> + BOOL70>
1731                     <FRAME '\1aCLOSE>
1732                     <PUSH TEMP22>
1733                     <DEAD TEMP22>
1734                     <CALL '\1aCLOSE 1>
1735 BOOL70
1736                     <EMPUV? NAMES4 - PHRASE73>
1737                     <SET TEMP52 'T (TYPE ATOM)>
1738                     <UNBIND X55>
1739                     <DEAD X55>
1740                     <JUMP + EXIT59>
1741 PHRASE73
1742                     <FRAME '\1aOPEN>
1743                     <PUSH "READ">
1744                     <NTHUV NAMES4 1 = STACK (TYPE STRING)>
1745                     <CALL '\1aOPEN 2 = TEMP22>
1746                     <TYPE? TEMP22 <TYPE-CODE FALSE> - PHRASE75>
1747                     <FRAME '\1aERROR>
1748                     <PUSH TEMP22>
1749                     <CALL '\1aERROR 1>
1750 PHRASE75
1751                     <FRAME '\1aPRINFILE>
1752                     <PUSH TEMP22>
1753                     <CALL '\1aPRINFILE 1>
1754                     <CONS TEMP22 () = TEMP48>
1755                     <SETG 'INCHANS TEMP48>
1756                     <DEAD TEMP48>
1757                     <NTHR 'COMPILER-INPUT 2 = TEMP48 (RECORD-TYPE ATOM) (TYPE LBIND)>
1758                     <PUTR TEMP48 1 TEMP22 (RECORD-TYPE LBIND)>
1759                     <DEAD TEMP48>
1760                     <FRAME '\1aSET-RI-CHANNEL>
1761                     <PUSH READ-INFO5>
1762                     <PUSH TEMP22>
1763                     <CALL '\1aSET-RI-CHANNEL 2>
1764                     <RESTUV NAMES4 1 = NAMES4 (TYPE VECTOR)>
1765                     <CHTYPE NAMES4 <TYPE-CODE VECTOR> = NAMES4>
1766                     <SETG 'END-READ %<>>
1767 PHRASE68
1768                     <FRAME '\1aTIME>
1769                     <CALL '\1aTIME 0 = STARCPU14>
1770                     <FRAME '\1aFINISH-FILE>
1771                     <PUSH READ-INFO5>
1772                     <GVAL 'GLUE = TEMP48>
1773                     <TYPE? TEMP48 <TYPE-CODE FALSE> + TAG94>
1774                     <DEAD TEMP48>
1775                     <SET TEMP52 %<> (TYPE FALSE)>
1776                     <JUMP + PHRASE91>
1777 TAG94
1778                     <SET TEMP52 OCH6>
1779 PHRASE91
1780                     <PUSH TEMP52>
1781                     <DEAD TEMP52>
1782                     <PUSH EXPFLOAD10>
1783                     <CALL '\1aFINISH-FILE 3 = VAL87>
1784                     <GVAL 'IO-TIME = TEMP52>
1785                     <FRAME '\1aTIME>
1786                     <CALL '\1aTIME 0 = TEMP48>
1787                     <SUBF TEMP48 STARCPU14 = TEMP48 (TYPE FLOAT)>
1788                     <DEAD STARCPU14>
1789                     <ADDF TEMP52 TEMP48 = TEMP52 (TYPE FLOAT)>
1790                     <DEAD TEMP48>
1791                     <SETG 'IO-TIME TEMP52>
1792                     <DEAD TEMP52>
1793                     <TYPE? VAL87 <TYPE-CODE FALSE> - PHRASE83>
1794                     <SETG 'END-READ 'T>
1795                     <JUMP + AGAIN66>
1796 PHRASE83
1797                     <GVAL 'INCHANS = TEMP52>
1798                     <NTHL TEMP52 1 = TEMP22 (TYPE CHANNEL)>
1799                     <DEAD TEMP52>
1800                     <FRAME '\1a+>
1801                     <GVAL 'FCN-COUNT = STACK>
1802                     <PUSH 1>
1803                     <CALL '\1a+ 2 = TEMP52>
1804                     <SETG 'FCN-COUNT TEMP52>
1805                     <DEAD TEMP52>
1806                     <NTH1 VAL87 = TEMP52>
1807                     <NTHR TEMP52 3 = TEMP52 (RECORD-TYPE ATOM)>
1808                     <IFCAN "STRING-EQUAL?">
1809                     <STRING-EQUAL? TEMP52 "FCN" - PHRASE99>
1810                     <ENDIF "STRING-EQUAL?">
1811                     <IFCANNOT "STRING-EQUAL?">
1812                     <SET TEMP48 "FCN" (TYPE STRING)>
1813                     <LENUS TEMP52 = TEMP100 (TYPE FIX)>
1814                     <VEQUAL? TEMP100 3 - PHRASE99>
1815                     <LOOP (TEMP52 VALUE LENGTH) (TEMP48 VALUE LENGTH) (TEMP100 VALUE)>
1816 TAG103
1817                     <NTHUS TEMP52 1 = STARCPU14>
1818                     <NTHUS TEMP48 1 = TEMP102>
1819                     <VEQUAL? STARCPU14 TEMP102 - PHRASE99>
1820                     <DEAD STARCPU14 TEMP102>
1821                     <RESTUS TEMP52 1 = TEMP52 (TYPE STRING)>
1822                     <RESTUS TEMP48 1 = TEMP48 (TYPE STRING)>
1823                     <SUB TEMP100 1 = TEMP100 (TYPE FIX)>
1824                     <GRTR? TEMP100 0 + TAG103 (TYPE FIX)>
1825                     <ENDIF "STRING-EQUAL?">
1826                     <FRAME '\1aPUT>
1827                     <PUSH VAL87>
1828                     <PUSH 1>
1829                     <PUSH 'FCN!-MIMOP>
1830                     <CALL '\1aPUT 3>
1831                     <JUMP + COND98>
1832 PHRASE99
1833                     <FRAME '\1aPUT>
1834                     <PUSH VAL87>
1835                     <PUSH 1>
1836                     <PUSH 'GFCN!-MIMOP>
1837                     <CALL '\1aPUT 3>
1838 COND98
1839                     <FRAME '\1aNTH>
1840                     <PUSH VAL87>
1841                     <PUSH 2>
1842                     <CALL '\1aNTH 2 = TEMP100>
1843                     <GVAL 'GLUE = TEMP48>
1844                     <TYPE? TEMP48 <TYPE-CODE FALSE> + PHRASE108>
1845                     <DEAD TEMP48>
1846                     <FRAME '\1aTIME>
1847                     <CALL '\1aTIME 0 = STARCPU14>
1848                     <FRAME '\1aSKIP>
1849                     <PUSH READ-INFO5>
1850                     <CALL '\1aSKIP 1 = TEMP48>
1851                     <GVAL 'IO-TIME = TEMP52>
1852                     <FRAME '\1aTIME>
1853                     <CALL '\1aTIME 0 = TEMP102>
1854                     <SUBF TEMP102 STARCPU14 = TEMP102 (TYPE FLOAT)>
1855                     <DEAD STARCPU14>
1856                     <ADDF TEMP52 TEMP102 = TEMP52 (TYPE FLOAT)>
1857                     <DEAD TEMP102>
1858                     <SETG 'IO-TIME TEMP52>
1859                     <DEAD TEMP52>
1860                     <NTH1 VAL87 = TEMP52>
1861                     <DEAD VAL87>
1862                     <EQUAL? TEMP52 'GFCN!-MIMOP - AGAIN66>
1863                     <DEAD TEMP52>
1864                     <GVAL 'GLUE-FCNS = TEMP52>
1865                     <CONS TEMP100 TEMP52 = TEMP52>
1866                     <DEAD TEMP100>
1867                     <SETG 'GLUE-FCNS TEMP52>
1868                     <DEAD TEMP52>
1869                     <JUMP + AGAIN66>
1870 PHRASE108
1871                     <TYPE? PRE-CH16 <TYPE-CODE FALSE> + PHRASE120>
1872                     <FRAME '\1aMEMBER>
1873                     <NTHR TEMP100 3 = STACK (RECORD-TYPE ATOM)>
1874                     <PUSH RREDO18>
1875                     <CALL '\1aMEMBER 2 = TEMP52>
1876                     <TYPE? TEMP52 <TYPE-CODE FALSE> - PHRASE120>
1877                     <DEAD TEMP52>
1878                     <FRAME '\1aFIND-OLD-FCN>
1879                     <PUSH TEMP100>
1880                     <PUSH INDEX17>
1881                     <CALL '\1aFIND-OLD-FCN 2 = TEMP48>
1882                     <TYPE? TEMP48 <TYPE-CODE FALSE> + PHRASE120>
1883                     <SET TEMP52 TEMP48>
1884                     <SET TEMP102 4 (TYPE FIX)>
1885                     <LOOP (TEMP52 VALUE) (TEMP102 VALUE)>
1886 TAG125
1887                     <EMPL? TEMP52 + BOOL124>
1888                     <RESTL TEMP52 1 = TEMP52 (TYPE LIST)>
1889                     <SUB TEMP102 1 = TEMP102 (TYPE FIX)>
1890                     <GRTR? TEMP102 0 + TAG125 (TYPE FIX)>
1891                     <RESTL TEMP48 1 = TEMP52 (TYPE LIST)>
1892                     <RESTL TEMP52 1 = TEMP52 (TYPE LIST)>
1893                     <RESTL TEMP52 1 = TEMP52 (TYPE LIST)>
1894                     <NTHL TEMP52 1 = TEMP52>
1895                     <GVAL 'LAST-HASH = STARCPU14>
1896                     <EQUAL? TEMP52 STARCPU14 - PHRASE120>
1897                     <DEAD TEMP52>
1898 BOOL124
1899                     <GVAL 'VERBOSE? = STARCPU14>
1900                     <TYPE? STARCPU14 <TYPE-CODE FALSE> + PHRASE127>
1901                     <DEAD STARCPU14>
1902                     <FRAME '\1aCRLF>
1903                     <GEN-LVAL 'OUTCHAN = STACK>
1904                     <CALL '\1aCRLF 1>
1905                     <FRAME '\1aPRINC>
1906                     <PUSH "Skipping function ">
1907                     <GEN-LVAL 'OUTCHAN = STACK>
1908                     <CALL '\1aPRINC 2>
1909                     <FRAME '\1aPRIN1>
1910                     <PUSH TEMP100>
1911                     <GEN-LVAL 'OUTCHAN = STACK>
1912                     <CALL '\1aPRIN1 2>
1913 PHRASE127
1914                     <FRAME '\1aTIME>
1915                     <CALL '\1aTIME 0 = STARCPU14>
1916                     <FRAME '\1aCOPY-OLD-FCN>
1917                     <PUSH TEMP48>
1918                     <DEAD TEMP48>
1919                     <PUSH PRE-CH16>
1920                     <PUSH OCH6>
1921                     <CALL '\1aCOPY-OLD-FCN 3>
1922                     <FRAME '\1aSET-RI-CHANNEL>
1923                     <PUSH READ-INFO5>
1924                     <PUSH %<>>
1925                     <CALL '\1aSET-RI-CHANNEL 2>
1926                     <FRAME '\1aSKIP-MIMA>
1927                     <PUSH TEMP22>
1928                     <PUSH TEMP100>
1929                     <DEAD TEMP100>
1930                     <CALL '\1aSKIP-MIMA 2>
1931                     <FRAME '\1aSET-RI-CHANNEL>
1932                     <PUSH READ-INFO5>
1933                     <PUSH TEMP22>
1934                     <CALL '\1aSET-RI-CHANNEL 2 = TEMP48>
1935                     <GVAL 'IO-TIME = TEMP48>
1936                     <FRAME '\1aTIME>
1937                     <CALL '\1aTIME 0 = TEMP52>
1938                     <SUBF TEMP52 STARCPU14 = TEMP52 (TYPE FLOAT)>
1939                     <DEAD STARCPU14>
1940                     <ADDF TEMP48 TEMP52 = TEMP48 (TYPE FLOAT)>
1941                     <DEAD TEMP52>
1942                     <SETG 'IO-TIME TEMP48>
1943                     <DEAD TEMP48>
1944                     <JUMP + AGAIN66>
1945 PHRASE120
1946                     <GVAL 'WARN-PRINT = TEMP48>
1947                     <TYPE? TEMP48 <TYPE-CODE FALSE> + PHRASE156>
1948                     <DEAD TEMP48>
1949                     <GVAL 'VERBOSE? = TEMP48>
1950                     <TYPE? TEMP48 <TYPE-CODE FALSE> + PHRASE156>
1951                     <DEAD TEMP48>
1952                     <FRAME '\1aCRLF>
1953                     <GEN-LVAL 'OUTCHAN = STACK>
1954                     <CALL '\1aCRLF 1>
1955                     <FRAME '\1aPRINC>
1956                     <PUSH "Compiling: ">
1957                     <GEN-LVAL 'OUTCHAN = STACK>
1958                     <CALL '\1aPRINC 2>
1959                     <FRAME '\1aPRIN1>
1960                     <FRAME '\1aNTH>
1961                     <PUSH VAL87>
1962                     <PUSH 2>
1963                     <CALL '\1aNTH 2 = STACK>
1964                     <GEN-LVAL 'OUTCHAN = STACK>
1965                     <CALL '\1aPRIN1 2>
1966 PHRASE156
1967                     <FRAME '\1aTIME>
1968                     <CALL '\1aTIME 0 = STARCPU14>
1969                     <FRAME '\1aREADIN>
1970                     <PUSH READ-INFO5>
1971                     <PUSH VAL87>
1972                     <DEAD VAL87>
1973                     <CALL '\1aREADIN 2 = TEMP52>
1974                     <SET TEMP48 TEMP52>
1975                     <GVAL 'IO-TIME = VAL87>
1976                     <FRAME '\1aTIME>
1977                     <CALL '\1aTIME 0 = TEMP48>
1978                     <SUBF TEMP48 STARCPU14 = TEMP48 (TYPE FLOAT)>
1979                     <DEAD STARCPU14>
1980                     <ADDF VAL87 TEMP48 = VAL87 (TYPE FLOAT)>
1981                     <DEAD TEMP48>
1982                     <SETG 'IO-TIME VAL87>
1983                     <DEAD VAL87>
1984                     <FRAME '\1aTIME>
1985                     <CALL '\1aTIME 0 = STARCPU14>
1986                     <FRAME '\1aFIXIT>
1987                     <PUSH TEMP52>
1988                     <CALL '\1aFIXIT 1>
1989                     <TYPE? PMCH7 <TYPE-CODE FALSE> + BOOL181>
1990                     <FRAME '\1aPRINT-MIM-CODE>
1991                     <PUSH TEMP52>
1992                     <PUSH PMCH7>
1993                     <CALL '\1aPRINT-MIM-CODE 2>
1994 BOOL181
1995                     <FRAME '\1aMIMOC>
1996                     <PUSH TEMP52>
1997                     <DEAD TEMP52>
1998                     <PUSH 'T>
1999                     <CALL '\1aMIMOC 2>
2000                     <TYPE? AMCH8 <TYPE-CODE FALSE> + BOOL184>
2001                     <FRAME '\1aPRINT-GEN-INST>
2002                     <PUSH AMCH8>
2003                     <CALL '\1aPRINT-GEN-INST 1>
2004 BOOL184
2005                     <GVAL 'FUNCTION-NAME = TEMP100>
2006                     <FRAME '\1aASSEMBLE-CODE>
2007                     <PUSH 0>
2008                     <PUSH TEMP100>
2009                     <CALL '\1aASSEMBLE-CODE 2>
2010                     <FRAME '\1aTIME>
2011                     <CALL '\1aTIME 0 = VAL87>
2012                     <SET TEMP48 AACH9>
2013                     <TYPE? TEMP48 <TYPE-CODE FALSE> + PHRASE193>
2014                     <DEAD TEMP48>
2015                     <FRAME '\1aCRLF>
2016                     <PUSH AACH9>
2017                     <CALL '\1aCRLF 1>
2018                     <FRAME '\1aCRLF>
2019                     <PUSH AACH9>
2020                     <CALL '\1aCRLF 1>
2021                     <FRAME '\1aPRIN1>
2022                     <PUSH TEMP100>
2023                     <DEAD TEMP100>
2024                     <PUSH AACH9>
2025                     <CALL '\1aPRIN1 2>
2026                     <FRAME '\1aCRLF>
2027                     <PUSH AACH9>
2028                     <CALL '\1aCRLF 1>
2029                     <FRAME '\1aCRLF>
2030                     <PUSH AACH9>
2031                     <CALL '\1aCRLF 1>
2032                     <FRAME '\1aPRINT-FINAL-INST>
2033                     <PUSH AACH9>
2034                     <CALL '\1aPRINT-FINAL-INST 1 = TEMP48>
2035 PHRASE193
2036                     <GVAL 'IO-TIME = TEMP48>
2037                     <FRAME '\1aTIME>
2038                     <CALL '\1aTIME 0 = TEMP52>
2039                     <SUBF TEMP52 VAL87 = TEMP52 (TYPE FLOAT)>
2040                     <DEAD VAL87>
2041                     <ADDF TEMP48 TEMP52 = TEMP48 (TYPE FLOAT)>
2042                     <DEAD TEMP52>
2043                     <SETG 'IO-TIME TEMP48>
2044                     <DEAD TEMP48>
2045                     <FRAME '\1aGEN-NAME>
2046                     <GVAL 'FUNCTION-NAME = STACK>
2047                     <CALL '\1aGEN-NAME 1 = TEMP48>
2048                     <SETG 'INTERNAL-MSUBR-NAME TEMP48>
2049                     <DEAD TEMP48>
2050                     <GVAL 'INT-MODE = TEMP48>
2051                     <TYPE? TEMP48 <TYPE-CODE FALSE> + PHRASE204>
2052                     <DEAD TEMP48>
2053                     <FRAME '\1aPRINTTYPE>
2054                     <PUSH 'ATOM>
2055                     <GVAL 'ATOM-PRINT = STACK>
2056                     <CALL '\1aPRINTTYPE 2>
2057                     <FRAME '\1aPRINTTYPE>
2058                     <PUSH 'LVAL>
2059                     <GVAL 'ATOM-PRINT = STACK>
2060                     <CALL '\1aPRINTTYPE 2>
2061                     <FRAME '\1aPRINTTYPE>
2062                     <PUSH 'GVAL>
2063                     <GVAL 'ATOM-PRINT = STACK>
2064                     <CALL '\1aPRINTTYPE 2>
2065 PHRASE204
2066                     <FRAME '\1aTIME>
2067                     <CALL '\1aTIME 0 = VAL87>
2068                     <FRAME '\1aPRINT-IMSUBR>
2069                     <PUSH OCH6>
2070                     <CALL '\1aPRINT-IMSUBR 1>
2071                     <FRAME '\1aPRINT-MSUBR>
2072                     <PUSH 0>
2073                     <PUSH OCH6>
2074                     <CALL '\1aPRINT-MSUBR 2 = TEMP48>
2075                     <GVAL 'IO-TIME = TEMP48>
2076                     <FRAME '\1aTIME>
2077                     <CALL '\1aTIME 0 = TEMP52>
2078                     <SUBF TEMP52 VAL87 = TEMP52 (TYPE FLOAT)>
2079                     <DEAD VAL87>
2080                     <ADDF TEMP48 TEMP52 = TEMP48 (TYPE FLOAT)>
2081                     <DEAD TEMP52>
2082                     <SETG 'IO-TIME TEMP48>
2083                     <DEAD TEMP48>
2084                     <GVAL 'VERBOSE? = TEMP48>
2085                     <TYPE? TEMP48 <TYPE-CODE FALSE> + BOOL220>
2086                     <DEAD TEMP48>
2087                     <GVAL 'WARN-PRINT = TEMP48>
2088                     <TYPE? TEMP48 <TYPE-CODE FALSE> + BOOL220>
2089                     <DEAD TEMP48>
2090                     <FRAME '\1aPRINT-RSUBR-STATS>
2091                     <PUSH STARCPU14>
2092                     <DEAD STARCPU14>
2093                     <PUSH 0>
2094                     <CALL '\1aPRINT-RSUBR-STATS 2>
2095 BOOL220
2096                     <GVAL 'INT-MODE = TEMP48>
2097                     <TYPE? TEMP48 <TYPE-CODE FALSE> + AGAIN66>
2098                     <DEAD TEMP48>
2099                     <FRAME '\1aPRINTTYPE>
2100                     <PUSH 'ATOM>
2101                     <GVAL 'PRINT = STACK>
2102                     <CALL '\1aPRINTTYPE 2>
2103                     <FRAME '\1aPRINTTYPE>
2104                     <PUSH 'LVAL>
2105                     <GVAL 'PRINT = STACK>
2106                     <CALL '\1aPRINTTYPE 2>
2107                     <FRAME '\1aPRINTTYPE>
2108                     <PUSH 'GVAL>
2109                     <GVAL 'PRINT = STACK>
2110                     <CALL '\1aPRINTTYPE 2>
2111                     <JUMP + AGAIN66>
2112 EXIT59
2113                     <ADJ -9>
2114                     <UNBIND TEMP3>
2115                     <DEAD TEMP3>
2116                     <ADJ -9>
2117                     <RETURN TEMP52>
2118                     <DEAD TEMP52>
2119                     <END \1aFILE-PASS1>\r\0\r\0
2120 #WORD *20503544721*
2121                     <GFCN \1aFILE-PASS2 ("VALUE" ATOM <<PRIMTYPE VECTOR> [REST STRING]> TUPLE CHANNEL <OR FALSE CHANNEL> <OR FALSE CHANNEL> <OR FALSE CHANNEL> ANY) NAMES4 READ-INFO5 OCH6 PMCH7 AMCH8 AACH9 EXPFLOAD10>
2122                     <TEMP (STARCPU14 0.0) TEMP3:LBIND FIRST22 OFF23:FIX CH24 END25 TEMP20:LBIND TEMP33 CH228 TEMP61 TEMP133 TEMP134>
2123                     <INTGO>
2124                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
2125                     <BBIND 'NM2 'STRING 'FIX "MIMA">
2126                     <BBIND 'REDEFINE 'ATOM 'FIX 'T>
2127                     <BBIND 'PASS2? 'ATOM 'FIX 'T>
2128                     <SETG 'END-READ 'T>
2129                     <SETG 'FIRST-FCN-ACCESS %<>>
2130                     <SETG 'FIRST-FCN-OBLIST ()>
2131                     <SET FIRST22 'T (TYPE ATOM)>
2132                     <SET OFF23 0 (TYPE FIX)>
2133                     <SET CH24 %<> (TYPE FALSE)>
2134                     <SET END25 'T (TYPE ATOM)>
2135                     <GETS 'BIND = TEMP20 (TYPE LBIND)>
2136                     <BBIND 'COMPILER-INPUT 'CHANNEL 'FIX>
2137                     <LOOP>
2138 AGAIN30
2139                     <INTGO>
2140                     <GVAL 'FCN-COUNT = TEMP33>
2141                     <VEQUAL? TEMP33 0 - COND36 (TYPE FIX)>
2142                     <DEAD TEMP33>
2143                     <FRAME '\1aOPEN>
2144                     <PUSH "PRINT">
2145                     <PUSH "">
2146                     <FRAME '\1aCHANNEL-OP>
2147                     <PUSH OCH6>
2148                     <PUSH 'NM1>
2149                     <CALL '\1aCHANNEL-OP 2 = STACK>
2150                     <IFSYS "VAX">
2151                     <PUSH "GSUBR">
2152                     <ENDIF "VAX">
2153                     <IFSYS "TOPS20">
2154                     <PUSH "VSUBR">
2155                     <ENDIF "TOPS20">
2156                     <FRAME '\1aCHANNEL-OP>
2157                     <PUSH OCH6>
2158                     <PUSH 'DEV>
2159                     <CALL '\1aCHANNEL-OP 2 = STACK>
2160                     <FRAME '\1aCHANNEL-OP>
2161                     <PUSH OCH6>
2162                     <PUSH 'SNM>
2163                     <CALL '\1aCHANNEL-OP 2 = STACK>
2164                     <CALL '\1aOPEN 6 = CH228>
2165                     <TYPE? CH228 <TYPE-CODE FALSE> + PHRASE37>
2166                     <GETS 'BIND = TEMP33 (TYPE LBIND)>
2167                     <GVAL 'FIRST-FCN-OBLIST = END25>
2168                     <BBIND 'OBLIST 'OBLIST 'FIX END25>
2169                     <DEAD END25>
2170                     <FRAME '\1aBUFOUT>
2171                     <PUSH OCH6>
2172                     <CALL '\1aBUFOUT 1>
2173                     <FRAME '\1aACCESS>
2174                     <PUSH OCH6>
2175                     <PUSH 0>
2176                     <CALL '\1aACCESS 2>
2177                     <GVAL 'FIRST-FCN-ACCESS = END25>
2178                     <TYPE? END25 <TYPE-CODE FALSE> + EXIT53>
2179                     <DEAD END25>
2180                     <FRAME '\1aTIME>
2181                     <CALL '\1aTIME 0 = STARCPU14>
2182                     <FRAME '\1aDO-FILE-COPY>
2183                     <PUSH OCH6>
2184                     <PUSH CH228>
2185                     <GVAL 'FIRST-FCN-ACCESS = STACK>
2186                     <CALL '\1aDO-FILE-COPY 3 = END25>
2187                     <GVAL 'IO-TIME = END25>
2188                     <FRAME '\1aTIME>
2189                     <CALL '\1aTIME 0 = TEMP61>
2190                     <SUBF TEMP61 STARCPU14 = TEMP61 (TYPE FLOAT)>
2191                     <DEAD STARCPU14>
2192                     <ADDF END25 TEMP61 = END25 (TYPE FLOAT)>
2193                     <DEAD TEMP61>
2194                     <SETG 'IO-TIME END25>
2195                     <DEAD END25>
2196 EXIT53
2197                     <GVAL 'INT-MODE = END25>
2198                     <TYPE? END25 <TYPE-CODE FALSE> + PHRASE63>
2199                     <DEAD END25>
2200                     <FRAME '\1aPRINTTYPE>
2201                     <PUSH 'ATOM>
2202                     <GVAL 'ATOM-PRINT = STACK>
2203                     <CALL '\1aPRINTTYPE 2>
2204                     <FRAME '\1aPRINTTYPE>
2205                     <PUSH 'LVAL>
2206                     <GVAL 'ATOM-PRINT = STACK>
2207                     <CALL '\1aPRINTTYPE 2>
2208                     <FRAME '\1aPRINTTYPE>
2209                     <PUSH 'GVAL>
2210                     <GVAL 'ATOM-PRINT = STACK>
2211                     <CALL '\1aPRINTTYPE 2>
2212 PHRASE63
2213                     <FRAME '\1aTIME>
2214                     <CALL '\1aTIME 0 = STARCPU14>
2215                     <FRAME '\1aPRINT-IMSUBR>
2216                     <PUSH CH228>
2217                     <CALL '\1aPRINT-IMSUBR 1 = END25>
2218                     <GVAL 'IO-TIME = TEMP61>
2219                     <FRAME '\1aTIME>
2220                     <CALL '\1aTIME 0 = END25>
2221                     <SUBF END25 STARCPU14 = END25 (TYPE FLOAT)>
2222                     <DEAD STARCPU14>
2223                     <ADDF TEMP61 END25 = TEMP61 (TYPE FLOAT)>
2224                     <DEAD END25>
2225                     <SETG 'IO-TIME TEMP61>
2226                     <DEAD TEMP61>
2227                     <TYPE? AACH9 <TYPE-CODE FALSE> + EXIT77>
2228                     <FRAME '\1aTIME>
2229                     <CALL '\1aTIME 0 = STARCPU14>
2230                     <FRAME '\1aPRINT-FINAL-INST>
2231                     <PUSH AACH9>
2232                     <CALL '\1aPRINT-FINAL-INST 1 = END25>
2233                     <GVAL 'IO-TIME = END25>
2234                     <FRAME '\1aTIME>
2235                     <CALL '\1aTIME 0 = TEMP61>
2236                     <SUBF TEMP61 STARCPU14 = TEMP61 (TYPE FLOAT)>
2237                     <DEAD STARCPU14>
2238                     <ADDF END25 TEMP61 = END25 (TYPE FLOAT)>
2239                     <DEAD TEMP61>
2240                     <SETG 'IO-TIME END25>
2241                     <DEAD END25>
2242 EXIT77
2243                     <GVAL 'INT-MODE = END25>
2244                     <TYPE? END25 <TYPE-CODE FALSE> + PHRASE86>
2245                     <DEAD END25>
2246                     <FRAME '\1aPRINTTYPE>
2247                     <PUSH 'ATOM>
2248                     <GVAL 'PRINT = STACK>
2249                     <CALL '\1aPRINTTYPE 2>
2250                     <FRAME '\1aPRINTTYPE>
2251                     <PUSH 'LVAL>
2252                     <GVAL 'PRINT = STACK>
2253                     <CALL '\1aPRINTTYPE 2>
2254                     <FRAME '\1aPRINTTYPE>
2255                     <PUSH 'GVAL>
2256                     <GVAL 'PRINT = STACK>
2257                     <CALL '\1aPRINTTYPE 2>
2258 PHRASE86
2259                     <FRAME '\1aTIME>
2260                     <CALL '\1aTIME 0 = STARCPU14>
2261                     <FRAME '\1aDO-FILE-COPY>
2262                     <PUSH OCH6>
2263                     <DEAD OCH6>
2264                     <PUSH CH228>
2265                     <PUSH -1>
2266                     <CALL '\1aDO-FILE-COPY 3 = END25>
2267                     <GVAL 'IO-TIME = TEMP61>
2268                     <FRAME '\1aTIME>
2269                     <CALL '\1aTIME 0 = END25>
2270                     <SUBF END25 STARCPU14 = END25 (TYPE FLOAT)>
2271                     <DEAD STARCPU14>
2272                     <ADDF TEMP61 END25 = TEMP61 (TYPE FLOAT)>
2273                     <DEAD END25>
2274                     <SETG 'IO-TIME TEMP61>
2275                     <DEAD TEMP61>
2276                     <UNBIND TEMP33>
2277                     <DEAD TEMP33>
2278                     <ADJ -9>
2279                     <SET OCH6 CH228>
2280                     <SETG 'FCN-COUNT -1>
2281                     <JUMP + COND36>
2282 PHRASE37
2283                     <FRAME '\1aERROR>
2284                     <PUSH 'CANT-OPEN-MSUBR-FILE>
2285                     <PUSH CH228>
2286                     <PUSH 'FILE-PASS2>
2287                     <CALL '\1aERROR 3>
2288 COND36
2289                     <GVAL 'END-READ = TEMP33>
2290                     <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE100>
2291                     <DEAD TEMP33>
2292                     <TYPE? CH24 <TYPE-CODE FALSE> + BOOL101>
2293                     <FRAME '\1aCLOSE>
2294                     <PUSH CH24>
2295                     <DEAD CH24>
2296                     <CALL '\1aCLOSE 1>
2297 BOOL101
2298                     <EMPUV? NAMES4 - PHRASE104>
2299                     <FRAME '\1aCLOSE>
2300                     <PUSH CH228>
2301                     <DEAD CH228>
2302                     <CALL '\1aCLOSE 1>
2303                     <SET END25 'T (TYPE ATOM)>
2304                     <UNBIND TEMP20>
2305                     <DEAD TEMP20>
2306                     <JUMP + EXIT19>
2307 PHRASE104
2308                     <FRAME '\1aOPEN>
2309                     <PUSH "READ">
2310                     <NTHUV NAMES4 1 = STACK (TYPE STRING)>
2311                     <CALL '\1aOPEN 2 = CH24>
2312                     <TYPE? CH24 <TYPE-CODE FALSE> - PHRASE107>
2313                     <FRAME '\1aERROR>
2314                     <PUSH CH24>
2315                     <CALL '\1aERROR 1>
2316 PHRASE107
2317                     <FRAME '\1aPRINFILE>
2318                     <PUSH CH24>
2319                     <CALL '\1aPRINFILE 1>
2320                     <CONS CH24 () = TEMP33>
2321                     <SETG 'INCHANS TEMP33>
2322                     <DEAD TEMP33>
2323                     <NTHR 'COMPILER-INPUT 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
2324                     <PUTR TEMP33 1 CH24 (RECORD-TYPE LBIND)>
2325                     <DEAD TEMP33>
2326                     <FRAME '\1aSET-RI-CHANNEL>
2327                     <PUSH READ-INFO5>
2328                     <PUSH CH24>
2329                     <CALL '\1aSET-RI-CHANNEL 2>
2330                     <RESTUV NAMES4 1 = NAMES4 (TYPE VECTOR)>
2331                     <CHTYPE NAMES4 <TYPE-CODE VECTOR> = NAMES4>
2332                     <SETG 'END-READ %<>>
2333 PHRASE100
2334                     <FRAME '\1aTIME>
2335                     <CALL '\1aTIME 0 = STARCPU14>
2336                     <FRAME '\1aFINISH-FILE>
2337                     <PUSH READ-INFO5>
2338                     <PUSH OCH6>
2339                     <PUSH EXPFLOAD10>
2340                     <CALL '\1aFINISH-FILE 3 = TEMP33>
2341                     <GVAL 'IO-TIME = TEMP61>
2342                     <FRAME '\1aTIME>
2343                     <CALL '\1aTIME 0 = END25>
2344                     <SUBF END25 STARCPU14 = END25 (TYPE FLOAT)>
2345                     <DEAD STARCPU14>
2346                     <ADDF TEMP61 END25 = TEMP61 (TYPE FLOAT)>
2347                     <DEAD END25>
2348                     <SETG 'IO-TIME TEMP61>
2349                     <DEAD TEMP61>
2350                     <TYPE? TEMP33 <TYPE-CODE FALSE> - PHRASE115>
2351                     <SETG 'END-READ 'T>
2352                     <JUMP + AGAIN30>
2353 PHRASE115
2354                     <GVAL 'INCHANS = TEMP61>
2355                     <NTHL TEMP61 1 = CH24 (TYPE CHANNEL)>
2356                     <DEAD TEMP61>
2357                     <FRAME '\1a->
2358                     <GVAL 'FCN-COUNT = STACK>
2359                     <PUSH 1>
2360                     <CALL '\1a- 2 = TEMP61>
2361                     <SETG 'FCN-COUNT TEMP61>
2362                     <DEAD TEMP61>
2363                     <VEQUAL? FIRST22 0 + PHRASE126>
2364                     <FRAME '\1aACCESS>
2365                     <PUSH OCH6>
2366                     <CALL '\1aACCESS 1 = TEMP61>
2367                     <SETG 'FIRST-FCN-ACCESS TEMP61>
2368                     <DEAD TEMP61>
2369                     <GEN-LVAL 'OBLIST = TEMP61>
2370                     <SETG 'FIRST-FCN-OBLIST TEMP61>
2371                     <DEAD TEMP61>
2372 PHRASE126
2373                     <NTH1 TEMP33 = TEMP61>
2374                     <NTHR TEMP61 3 = TEMP61 (RECORD-TYPE ATOM)>
2375                     <IFCAN "STRING-EQUAL?">
2376                     <STRING-EQUAL? TEMP61 "FCN" - PHRASE131>
2377                     <ENDIF "STRING-EQUAL?">
2378                     <IFCANNOT "STRING-EQUAL?">
2379                     <SET END25 "FCN" (TYPE STRING)>
2380                     <LENUS TEMP61 = STARCPU14 (TYPE FIX)>
2381                     <VEQUAL? STARCPU14 3 - PHRASE131>
2382                     <LOOP (TEMP61 VALUE LENGTH) (END25 VALUE LENGTH) (STARCPU14 VALUE)>
2383 TAG135
2384                     <NTHUS TEMP61 1 = TEMP133>
2385                     <NTHUS END25 1 = TEMP134>
2386                     <VEQUAL? TEMP133 TEMP134 - PHRASE131>
2387                     <DEAD TEMP133 TEMP134>
2388                     <RESTUS TEMP61 1 = TEMP61 (TYPE STRING)>
2389                     <RESTUS END25 1 = END25 (TYPE STRING)>
2390                     <SUB STARCPU14 1 = STARCPU14 (TYPE FIX)>
2391                     <GRTR? STARCPU14 0 + TAG135 (TYPE FIX)>
2392                     <ENDIF "STRING-EQUAL?">
2393                     <FRAME '\1aPUT>
2394                     <PUSH TEMP33>
2395                     <PUSH 1>
2396                     <PUSH 'FCN!-MIMOP>
2397                     <CALL '\1aPUT 3>
2398                     <JUMP + COND130>
2399 PHRASE131
2400                     <FRAME '\1aPUT>
2401                     <PUSH TEMP33>
2402                     <PUSH 1>
2403                     <PUSH 'GFCN!-MIMOP>
2404                     <CALL '\1aPUT 3>
2405 COND130
2406                     <GVAL 'VERBOSE? = END25>
2407                     <TYPE? END25 <TYPE-CODE FALSE> + PHRASE139>
2408                     <DEAD END25>
2409                     <GVAL 'WARN-PRINT = END25>
2410                     <TYPE? END25 <TYPE-CODE FALSE> + PHRASE139>
2411                     <DEAD END25>
2412                     <FRAME '\1aCRLF>
2413                     <GEN-LVAL 'OUTCHAN = STACK>
2414                     <CALL '\1aCRLF 1>
2415                     <FRAME '\1aPRINC>
2416                     <PUSH "Compiling:  ">
2417                     <GEN-LVAL 'OUTCHAN = STACK>
2418                     <CALL '\1aPRINC 2>
2419                     <FRAME '\1aPRIN1>
2420                     <FRAME '\1aNTH>
2421                     <PUSH TEMP33>
2422                     <PUSH 2>
2423                     <CALL '\1aNTH 2 = STACK>
2424                     <GEN-LVAL 'OUTCHAN = STACK>
2425                     <CALL '\1aPRIN1 2>
2426 PHRASE139
2427                     <FRAME '\1aTIME>
2428                     <CALL '\1aTIME 0 = STARCPU14>
2429                     <FRAME '\1aREADIN>
2430                     <PUSH READ-INFO5>
2431                     <PUSH TEMP33>
2432                     <DEAD TEMP33>
2433                     <CALL '\1aREADIN 2 = TEMP61>
2434                     <SET END25 TEMP61>
2435                     <GVAL 'IO-TIME = TEMP33>
2436                     <FRAME '\1aTIME>
2437                     <CALL '\1aTIME 0 = END25>
2438                     <SUBF END25 STARCPU14 = END25 (TYPE FLOAT)>
2439                     <DEAD STARCPU14>
2440                     <ADDF TEMP33 END25 = TEMP33 (TYPE FLOAT)>
2441                     <DEAD END25>
2442                     <SETG 'IO-TIME TEMP33>
2443                     <DEAD TEMP33>
2444                     <FRAME '\1aTIME>
2445                     <CALL '\1aTIME 0 = STARCPU14>
2446                     <FRAME '\1aFIXIT>
2447                     <PUSH TEMP61>
2448                     <CALL '\1aFIXIT 1>
2449                     <FRAME '\1aMIMOC>
2450                     <PUSH TEMP61>
2451                     <DEAD TEMP61>
2452                     <PUSH FIRST22>
2453                     <CALL '\1aMIMOC 2>
2454                     <TYPE? AMCH8 <TYPE-CODE FALSE> + BOOL163>
2455                     <FRAME '\1aPRINT-GEN-INST>
2456                     <PUSH AMCH8>
2457                     <CALL '\1aPRINT-GEN-INST 1>
2458 BOOL163
2459                     <GVAL 'FUNCTION-NAME = END25>
2460                     <TYPE? FIRST22 <TYPE-CODE FALSE> + BOOL165>
2461                     <DEAD FIRST22>
2462                     <FRAME '\1aGEN-NAME>
2463                     <PUSH END25>
2464                     <CALL '\1aGEN-NAME 1 = TEMP33>
2465                     <SETG 'INTERNAL-MSUBR-NAME TEMP33>
2466                     <DEAD TEMP33>
2467 BOOL165
2468                     <FRAME '\1aASSEMBLE-CODE>
2469                     <PUSH OFF23>
2470                     <DEAD OFF23>
2471                     <PUSH END25>
2472                     <DEAD END25>
2473                     <CALL '\1aASSEMBLE-CODE 2 = TEMP61>
2474                     <NTHL TEMP61 1 = OFF23 (TYPE FIX)>
2475                     <RESTL TEMP61 1 = TEMP33 (TYPE LIST)>
2476                     <DEAD TEMP61>
2477                     <NTHL TEMP33 1 = TEMP133 (TYPE FIX)>
2478                     <DEAD TEMP33>
2479                     <GVAL 'INT-MODE = TEMP33>
2480                     <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE169>
2481                     <DEAD TEMP33>
2482                     <FRAME '\1aPRINTTYPE>
2483                     <PUSH 'ATOM>
2484                     <GVAL 'ATOM-PRINT = STACK>
2485                     <CALL '\1aPRINTTYPE 2>
2486                     <FRAME '\1aPRINTTYPE>
2487                     <PUSH 'LVAL>
2488                     <GVAL 'ATOM-PRINT = STACK>
2489                     <CALL '\1aPRINTTYPE 2>
2490                     <FRAME '\1aPRINTTYPE>
2491                     <PUSH 'GVAL>
2492                     <GVAL 'ATOM-PRINT = STACK>
2493                     <CALL '\1aPRINTTYPE 2>
2494 PHRASE169
2495                     <FRAME '\1aTIME>
2496                     <CALL '\1aTIME 0 = TEMP61>
2497                     <FRAME '\1aPRINT-MSUBR>
2498                     <PUSH OFF23>
2499                     <PUSH OCH6>
2500                     <CALL '\1aPRINT-MSUBR 2 = FIRST22>
2501                     <GVAL 'IO-TIME = END25>
2502                     <FRAME '\1aTIME>
2503                     <CALL '\1aTIME 0 = FIRST22>
2504                     <SUBF FIRST22 TEMP61 = FIRST22 (TYPE FLOAT)>
2505                     <DEAD TEMP61>
2506                     <ADDF END25 FIRST22 = END25 (TYPE FLOAT)>
2507                     <DEAD FIRST22>
2508                     <SETG 'IO-TIME END25>
2509                     <DEAD END25>
2510                     <GVAL 'INT-MODE = END25>
2511                     <TYPE? END25 <TYPE-CODE FALSE> + PHRASE182>
2512                     <DEAD END25>
2513                     <FRAME '\1aPRINTTYPE>
2514                     <PUSH 'ATOM>
2515                     <GVAL 'PRINT = STACK>
2516                     <CALL '\1aPRINTTYPE 2>
2517                     <FRAME '\1aPRINTTYPE>
2518                     <PUSH 'LVAL>
2519                     <GVAL 'PRINT = STACK>
2520                     <CALL '\1aPRINTTYPE 2>
2521                     <FRAME '\1aPRINTTYPE>
2522                     <PUSH 'GVAL>
2523                     <GVAL 'PRINT = STACK>
2524                     <CALL '\1aPRINTTYPE 2>
2525 PHRASE182
2526                     <SET FIRST22 %<> (TYPE FALSE)>
2527                     <GVAL 'WARN-PRINT = END25>
2528                     <TYPE? END25 <TYPE-CODE FALSE> + BOOL186>
2529                     <DEAD END25>
2530                     <GVAL 'VERBOSE? = END25>
2531                     <TYPE? END25 <TYPE-CODE FALSE> + BOOL186>
2532                     <DEAD END25>
2533                     <FRAME '\1aPRINT-RSUBR-STATS>
2534                     <PUSH STARCPU14>
2535                     <DEAD STARCPU14>
2536                     <PUSH OFF23>
2537                     <DEAD OFF23>
2538                     <CALL '\1aPRINT-RSUBR-STATS 2>
2539 BOOL186
2540                     <SET OFF23 TEMP133>
2541                     <DEAD TEMP133>
2542                     <JUMP + AGAIN30>
2543 EXIT19
2544                     <ADJ -9>
2545                     <UNBIND TEMP3>
2546                     <DEAD TEMP3>
2547                     <ADJ -27>
2548                     <RETURN END25>
2549                     <DEAD END25>
2550                     <END \1aFILE-PASS2>
2551
2552 #WORD *11232236446*
2553 <GFCN \1aPRINT-RSUBR-STATS ("VALUE" <OR ATOM FALSE> FLOAT FIX) STARCPU4 OFF5>
2554                     <TEMP OUTCHAN6>
2555                     <INTGO>
2556                     <GEN-LVAL 'OUTCHAN = OUTCHAN6>
2557                     <FRAME '\1aPRINT-MANY>
2558                     <PUSH OUTCHAN6>
2559                     <DEAD OUTCHAN6>
2560                     <PUSH 'PRINC>
2561                     <PUSH "    ">
2562                     <FRAME '\1aTIME>
2563                     <CALL '\1aTIME 0 = OUTCHAN6>
2564                     <SUBF OUTCHAN6 STARCPU4 = STACK (TYPE FLOAT)>
2565                     <DEAD OUTCHAN6 STARCPU4>
2566                     <PUSH " / ">
2567                     <FRAME '\1a->
2568                     <FRAME '\1a*>
2569                     <GVAL 'FBYTE-OFFSET = STACK>
2570                     <PUSH 4>
2571                     <CALL '\1a* 2 = STACK>
2572                     <PUSH OFF5>
2573                     <DEAD OFF5>
2574                     <CALL '\1a- 2 = STACK>
2575                     <CALL '\1aPRINT-MANY 6 = OUTCHAN6>
2576                     <RETURN OUTCHAN6>
2577                     <DEAD OUTCHAN6>
2578                     <END \1aPRINT-RSUBR-STATS>
2579 #WORD *10241064377*
2580 <GFCN \1aGEN-NAME ("VALUE" ANY ATOM) NAME4>
2581                     <TEMP TEMP17 TEMP15:FIX X18:CHARACTER VAL19>
2582                     <INTGO>
2583                     <NTHR NAME4 3 = TEMP17 (RECORD-TYPE ATOM)>
2584                     <DEAD NAME4>
2585                     <SET TEMP15 0 (TYPE FIX)>
2586                     <LOOP>
2587 MAP7
2588                     <INTGO>
2589                     <EMPUS? TEMP17 + MAPAP10>
2590                     <NTHUS TEMP17 1 = X18>
2591                     <CHTYPE X18 <TYPE-CODE FIX> = VAL19>
2592                     <LESS? VAL19 65 + PHRASE21 (TYPE FIX)>
2593                     <GRTR? VAL19 90 + PHRASE21 (TYPE FIX)>
2594                     <ADD VAL19 32 = VAL19 (TYPE FIX)>
2595                     <CHTYPE VAL19 <TYPE-CODE CHARACTER> = VAL19>
2596                     <JUMP + COND20>
2597 PHRASE21
2598                     <SET VAL19 X18>
2599                     <DEAD X18>
2600 COND20
2601                     <PUSH VAL19>
2602                     <DEAD VAL19>
2603                     <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
2604                     <RESTUS TEMP17 1 = TEMP17 (TYPE STRING)>
2605                     <JUMP + MAP7>
2606 MAPAP10
2607                     <UBLOCK <TYPE-CODE STRING> TEMP15 = TEMP17 (TYPE STRING)>
2608                     <DEAD TEMP15>
2609                     <FRAME '\1aPARSE>
2610                     <PUSH TEMP17>
2611                     <DEAD TEMP17>
2612                     <PUSH "-IMSUBR">
2613                     <UBLOCK <TYPE-CODE STRING> 2 = STACK (TYPE STRING)>
2614                     <CALL '\1aPARSE 1 = TEMP17>
2615                     <RETURN TEMP17>
2616                     <DEAD TEMP17>
2617                     <END \1aGEN-NAME>
2618 #WORD *33451762664*
2619 <GFCN \1aATOM-PRINT ("VALUE" STRING <OR ATOM LVAL GVAL>) ATM4>
2620                     <TEMP TEMP7 SPN5:STRING OUTCHAN6 TEMP22>
2621                     <INTGO>
2622                     <CHTYPE ATM4 <TYPE-CODE ATOM> = TEMP7>
2623                     <NTHR TEMP7 3 = SPN5 (RECORD-TYPE ATOM)>
2624                     <DEAD TEMP7>
2625                     <GEN-LVAL 'OUTCHAN = OUTCHAN6>
2626                     <LENUS SPN5 = TEMP7 (TYPE FIX)>
2627                     <GRTR? TEMP7 2 - PHRASE11>
2628                     <DEAD TEMP7>
2629                     <NTHUS SPN5 1 = TEMP7 (TYPE CHARACTER)>
2630                     <VEQUAL? TEMP7 !\T - PHRASE11>
2631                     <DEAD TEMP7>
2632                     <NTHUS SPN5 2 = TEMP7 (TYPE CHARACTER)>
2633                     <VEQUAL? TEMP7 !\$ - PHRASE11>
2634                     <DEAD TEMP7>
2635                     <FRAME '\1aIPRINC>
2636                     <RESTUS SPN5 2 = STACK (TYPE STRING)>
2637                     <DEAD SPN5>
2638                     <PUSH OUTCHAN6>
2639                     <GVAL 'BOOT-MODE = TEMP7>
2640                     <TYPE? TEMP7 <TYPE-CODE FALSE> - TAG15>
2641                     <DEAD TEMP7>
2642                     <SET TEMP7 'T (TYPE ATOM)>
2643                     <JUMP + TAG16>
2644 TAG15
2645                     <SET TEMP7 %<> (TYPE FALSE)>
2646 TAG16
2647                     <PUSH TEMP7>
2648                     <DEAD TEMP7>
2649                     <FRAME '\1aTYPE>
2650                     <PUSH ATM4>
2651                     <DEAD ATM4>
2652                     <CALL '\1aTYPE 1 = STACK>
2653                     <CALL '\1aIPRINC 4>
2654                     <JUMP + PHRASE29>
2655 PHRASE11
2656                     <NTHR ATM4 4 = TEMP7 (RECORD-TYPE ATOM)>
2657                     <FRAME '\1aROOT>
2658                     <CALL '\1aROOT 0 = TEMP22>
2659                     <EQUAL? TEMP7 TEMP22 + BOOL20>
2660                     <DEAD TEMP7>
2661                     <FRAME '\1aMEMBER>
2662                     <PUSH SPN5>
2663                     <GVAL 'ROOT-ATOMS = STACK>
2664                     <CALL '\1aMEMBER 2 = TEMP22>
2665                     <TYPE? TEMP22 <TYPE-CODE FALSE> - BOOL20>
2666                     <DEAD TEMP22>
2667                     <NTHR ATM4 4 = TEMP22 (RECORD-TYPE ATOM)>
2668                     <GVAL 'MIMOP-OBLIST = TEMP7>
2669                     <EQUAL? TEMP22 TEMP7 - PHRASE18>
2670                     <DEAD TEMP22 TEMP7>
2671                     <FRAME '\1aLOOKUP>
2672                     <PUSH SPN5>
2673                     <FRAME '\1aROOT>
2674                     <CALL '\1aROOT 0 = STACK>
2675                     <CALL '\1aLOOKUP 2 = TEMP7>
2676                     <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE18>
2677                     <DEAD TEMP7>
2678 BOOL20
2679                     <GVAL 'BOOT-MODE = TEMP7>
2680                     <TYPE? TEMP7 <TYPE-CODE FALSE> - PHRASE18>
2681                     <DEAD TEMP7>
2682                     <FRAME '\1aIPRINC>
2683                     <PUSH SPN5>
2684                     <DEAD SPN5>
2685                     <PUSH OUTCHAN6>
2686                     <PUSH 'T>
2687                     <FRAME '\1aTYPE>
2688                     <PUSH ATM4>
2689                     <DEAD ATM4>
2690                     <CALL '\1aTYPE 1 = STACK>
2691                     <CALL '\1aIPRINC 4>
2692                     <JUMP + PHRASE29>
2693 PHRASE18
2694                     <FRAME '\1aIPRINC>
2695                     <PUSH SPN5>
2696                     <DEAD SPN5>
2697                     <PUSH OUTCHAN6>
2698                     <PUSH %<>>
2699                     <FRAME '\1aTYPE>
2700                     <PUSH ATM4>
2701                     <DEAD ATM4>
2702                     <CALL '\1aTYPE 1 = STACK>
2703                     <CALL '\1aIPRINC 4>
2704 PHRASE29
2705                     <FRAME '\1aPRINC>
2706                     <PUSH " ">
2707                     <PUSH OUTCHAN6>
2708                     <DEAD OUTCHAN6>
2709                     <CALL '\1aPRINC 2 = TEMP7>
2710                     <RETURN TEMP7>
2711                     <DEAD TEMP7>
2712                     <END \1aATOM-PRINT>
2713 <SETG FOOSTR "$">
2714
2715 <GDECL (FOOSTR) STRING>
2716
2717 <GDECL (GC-COUNT) FIX (IO-TIME) FLOAT>
2718
2719 #WORD *20146143535*
2720                     <FCN \1aFILE-MIMOC ("VALUE" ATOM ANY ANY ANY ANY "TUPLE" ANY) OUTNAME4 PML5 AML6 AAL7>
2721                     <MAKTUP NAMES8 (PMCH11 %<>) (AMCH12 %<>) (AACH13 %<>) (GC-HANDLER14 %<>) TEMP17 READ-INFO15:TUPLE TEMP3:LBIND TEMP29 OCH10 EXPFLOAD114 TEMP127 = NAMES8>
2722                     <INTGO>
2723                     <USBLOCK <TYPE-CODE TUPLE> 9 = READ-INFO15>
2724                     <SET TEMP17 READ-INFO15>
2725                     <LOOP (TEMP17 VALUE LENGTH)>
2726 ISTR18
2727                     <EMPUV? TEMP17 + ISTRE19>
2728                     <PUTUV TEMP17 1 %<>>
2729                     <RESTUV TEMP17 1 = TEMP17>
2730                     <JUMP + ISTR18>
2731 ISTRE19
2732                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
2733                     <SETG 'PRE-CH %<>>
2734                     <FRAME '\1aSETUP-READ-TABLE>
2735                     <CALL '\1aSETUP-READ-TABLE 0>
2736                     <FRAME '\1aINIT-RI>
2737                     <PUSH READ-INFO15>
2738                     <PUSH %<>>
2739                     <PUSH 2560>
2740                     <GVAL 'MIMOC-READ-TABLE = STACK>
2741                     <CALL '\1aINIT-RI 4>
2742                     <GETS 'BIND = TEMP17 (TYPE LBIND)>
2743                     <BBIND 'NM2 'STRING 'FIX>
2744                     <GEN-ASSIGNED? 'PRECOMPILED - PHRASE44>
2745                     <GEN-LVAL 'PRECOMPILED = TEMP29>
2746                     <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE44>
2747                     <DEAD TEMP29>
2748                     <IFSYS "UNIX">
2749                     <NTHR 'NM2 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
2750                     <PUTR TEMP29 1 "MSUBR" (RECORD-TYPE LBIND)>
2751                     <DEAD TEMP29>
2752                     <ENDIF "UNIX">
2753                     <IFSYS "TOPS20">
2754                     <NTHR 'NM2 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
2755                     <PUTR TEMP29 1 "VSUBR" (RECORD-TYPE LBIND)>
2756                     <DEAD TEMP29>
2757                     <ENDIF "TOPS20">
2758                     <GEN-LVAL 'PRECOMPILED = TEMP29>
2759                     <TYPE? TEMP29 <TYPE-CODE STRING> + PHRASE40>
2760                     <DEAD TEMP29>
2761                     <FRAME '\1aOPEN>
2762                     <PUSH "READ">
2763                     <PUSH OUTNAME4>
2764                     <CALL '\1aOPEN 2 = TEMP29>
2765                     <SETG 'PRE-CH TEMP29>
2766                     <DEAD TEMP29>
2767                     <JUMP + PHRASE44>
2768 PHRASE40
2769                     <FRAME '\1aOPEN>
2770                     <PUSH "READ">
2771                     <GEN-LVAL 'PRECOMPILED = STACK>
2772                     <CALL '\1aOPEN 2 = TEMP29>
2773                     <SETG 'PRE-CH TEMP29>
2774                     <DEAD TEMP29>
2775 PHRASE44
2776                     <GEN-ASSIGNED? 'AUTO-PRECOMP - PHRASE68>
2777                     <GEN-LVAL 'AUTO-PRECOMP = TEMP29>
2778                     <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE68>
2779                     <DEAD TEMP29>
2780                     <GVAL 'PRE-CH = TEMP29>
2781                     <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE68>
2782                     <DEAD TEMP29>
2783                     <NTHR 'NM2 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
2784                     <PUTR TEMP29 1 "MIMA" (RECORD-TYPE LBIND)>
2785                     <DEAD TEMP29>
2786                     <FRAME '\1aOPEN>
2787                     <PUSH "READ">
2788                     <PUSH OUTNAME4>
2789                     <CALL '\1aOPEN 2 = OCH10>
2790                     <TYPE? OCH10 <TYPE-CODE FALSE> + PHRASE58>
2791                     <FRAME '\1aL=?>
2792                     <FRAME '\1aCHANNEL-OP>
2793                     <PUSH OCH10>
2794                     <PUSH 'WRITE-DATE>
2795                     <CALL '\1aCHANNEL-OP 2 = STACK>
2796                     <FRAME '\1aCHANNEL-OP>
2797                     <GVAL 'PRE-CH = STACK>
2798                     <PUSH 'WRITE-DATE>
2799                     <CALL '\1aCHANNEL-OP 2 = STACK>
2800                     <CALL '\1aL=? 2 = TEMP29>
2801                     <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE58>
2802                     <DEAD TEMP29>
2803                     <FRAME '\1aPRINT-MANY>
2804                     <GVAL 'OUTCHAN = STACK>
2805                     <PUSH 'PRINC>
2806                     <PUSH "Not recompiling ">
2807                     <FRAME '\1aCHANNEL-OP>
2808                     <PUSH OCH10>
2809                     <DEAD OCH10>
2810                     <PUSH 'NAME>
2811                     <CALL '\1aCHANNEL-OP 2 = STACK>
2812                     <PUSH ".">
2813                     <CALL '\1aPRINT-MANY 5>
2814                     <FRAME '\1aCRLF>
2815                     <GVAL 'OUTCHAN = STACK>
2816                     <CALL '\1aCRLF 1>
2817                     <FRAME '\1aEXIT>
2818                     <CALL '\1aEXIT 0>
2819                     <JUMP + PHRASE68>
2820 PHRASE58
2821                     <TYPE? OCH10 <TYPE-CODE FALSE> + PHRASE68>
2822                     <FRAME '\1aCLOSE>
2823                     <PUSH OCH10>
2824                     <DEAD OCH10>
2825                     <CALL '\1aCLOSE 1>
2826 PHRASE68
2827                     <NTHR 'NM2 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
2828                     <PUTR TEMP29 1 "MUD" (RECORD-TYPE LBIND)>
2829                     <DEAD TEMP29>
2830                     <GVAL 'GLUE = TEMP29>
2831                     <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE73>
2832                     <DEAD TEMP29>
2833                     <NTHR 'NM2 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
2834                     <PUTR TEMP29 1 "TMSUBR" (RECORD-TYPE LBIND)>
2835                     <DEAD TEMP29>
2836                     <JUMP + EXIT77>
2837 PHRASE73
2838                     <IFSYS "VAX">
2839                     <NTHR 'NM2 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
2840                     <PUTR TEMP29 1 "MSUBR" (RECORD-TYPE LBIND)>
2841                     <DEAD TEMP29>
2842                     <ENDIF "VAX">
2843                     <IFSYS "TOPS20">
2844                     <NTHR 'NM2 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
2845                     <PUTR TEMP29 1 "VSUBR" (RECORD-TYPE LBIND)>
2846                     <DEAD TEMP29>
2847                     <ENDIF "TOPS20">
2848 EXIT77
2849                     <FRAME '\1aOPEN>
2850                     <PUSH "PRINT">
2851                     <PUSH OUTNAME4>
2852                     <CALL '\1aOPEN 2 = OCH10>
2853                     <TYPE? OCH10 <TYPE-CODE FALSE> - BOOL84>
2854                     <FRAME '\1aERROR>
2855                     <PUSH OCH10>
2856                     <PUSH 'OUTPUT>
2857                     <PUSH 'FILE-MIMOC>
2858                     <CALL '\1aERROR 3>
2859 BOOL84
2860                     <NTHR 'NM2 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
2861                     <PUTR TEMP29 1 "BMIM" (RECORD-TYPE LBIND)>
2862                     <DEAD TEMP29>
2863                     <TYPE? PML5 <TYPE-CODE FALSE> + BOOL90>
2864                     <DEAD PML5>
2865                     <FRAME '\1aOPEN>
2866                     <PUSH "PRINT">
2867                     <PUSH OUTNAME4>
2868                     <CALL '\1aOPEN 2 = PMCH11>
2869                     <TYPE? PMCH11 <TYPE-CODE FALSE> - BOOL90>
2870                     <FRAME '\1aERROR>
2871                     <PUSH PMCH11>
2872                     <PUSH 'PRINT-MIM>
2873                     <PUSH 'FILE-MIMOC>
2874                     <CALL '\1aERROR 3>
2875 BOOL90
2876                     <NTHR 'NM2 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
2877                     <PUTR TEMP29 1 "AMIM" (RECORD-TYPE LBIND)>
2878                     <DEAD TEMP29>
2879                     <TYPE? AML6 <TYPE-CODE FALSE> + BOOL96>
2880                     <DEAD AML6>
2881                     <FRAME '\1aOPEN>
2882                     <PUSH "PRINT">
2883                     <PUSH OUTNAME4>
2884                     <CALL '\1aOPEN 2 = AMCH12>
2885                     <TYPE? AMCH12 <TYPE-CODE FALSE> - BOOL96>
2886                     <FRAME '\1aERROR>
2887                     <PUSH AMCH12>
2888                     <PUSH 'PRINT-MIM>
2889                     <PUSH 'FILE-MIMOC>
2890                     <CALL '\1aERROR 3>
2891 BOOL96
2892                     <NTHR 'NM2 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
2893                     <PUTR TEMP29 1 "ASSEMBLY" (RECORD-TYPE LBIND)>
2894                     <DEAD TEMP29>
2895                     <TYPE? AAL7 <TYPE-CODE FALSE> + BOOL102>
2896                     <DEAD AAL7>
2897                     <FRAME '\1aOPEN>
2898                     <PUSH "PRINT">
2899                     <PUSH OUTNAME4>
2900                     <CALL '\1aOPEN 2 = AACH13>
2901                     <TYPE? AACH13 <TYPE-CODE FALSE> - BOOL102>
2902                     <FRAME '\1aERROR>
2903                     <PUSH AACH13>
2904                     <PUSH 'PRINT-MIM>
2905                     <PUSH 'FILE-MIMOC>
2906                     <CALL '\1aERROR 3>
2907 BOOL102
2908                     <UNBIND TEMP17>
2909                     <DEAD TEMP17>
2910                     <ADJ -9>
2911                     <SETG 'DO-CLOSE 'T>
2912                     <LOCATION + TAG105 = TEMP17>
2913                     <CFRAME = TEMP29 (TYPE FRAME)>
2914                     <BBIND 'UNWIND TEMP17 'FIX TEMP29>
2915                     <DEAD TEMP17 TEMP29>
2916                     <GETS 'BIND = TEMP17 (TYPE LBIND)>
2917                     <FRAME '\1aTIME>
2918                     <CALL '\1aTIME 0 = TEMP29>
2919                     <ADDF TEMP29 0.5000000 = TEMP29 (TYPE FLOAT)>
2920                     <FIX TEMP29 = TEMP29 (TYPE FIX)>
2921                     <BBIND 'STARCPU 'FIX 'FIX TEMP29>
2922                     <DEAD TEMP29>
2923                     <BBIND 'GCTIME 'FLOAT 'FIX 0.0>
2924                     <GEN-ASSIGNED? 'EXPFLOAD + TAG116>
2925                     <SET TEMP29 %<> (TYPE FALSE)>
2926                     <JUMP + BOOL115>
2927 TAG116
2928                     <GEN-LVAL 'EXPFLOAD = TEMP29>
2929 BOOL115
2930                     <SET EXPFLOAD114 TEMP29>
2931                     <DEAD TEMP29>
2932                     <GVAL 'WARN-PRINT = TEMP29>
2933                     <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE123>
2934                     <DEAD TEMP29>
2935                     <FRAME '\1aON>
2936                     <FRAME '\1aHANDLER>
2937                     <PUSH "GC">
2938                     <GVAL 'COUNT-GCS = STACK>
2939                     <PUSH 10>
2940                     <CALL '\1aHANDLER 3 = STACK>
2941                     <CALL '\1aON 1 = GC-HANDLER14>
2942 PHRASE123
2943                     <SETG 'GC-COUNT 0>
2944                     <SETG 'IO-TIME 0.0>
2945                     <SET TEMP127 0 (TYPE FIX)>
2946                     <GEN-LVAL 'OBLIST = TEMP29>
2947                     <LOOP (TEMP29 VALUE) (TEMP127 VALUE)>
2948 TAG130
2949                     <INTGO>
2950                     <EMPL? TEMP29 + TAG126>
2951                     <NTHL TEMP29 1 = STACK>
2952                     <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
2953                     <ADD TEMP127 1 = TEMP127 (TYPE FIX)>
2954                     <JUMP + TAG130>
2955 TAG126
2956                     <LIST TEMP127 = TEMP29 (TYPE LIST)>
2957                     <DEAD TEMP127>
2958                     <FRAME '\1aFILE-PASS1>
2959                     <PUSH NAMES8>
2960                     <PUSH READ-INFO15>
2961                     <PUSH OCH10>
2962                     <PUSH PMCH11>
2963                     <PUSH AMCH12>
2964                     <PUSH AACH13>
2965                     <PUSH EXPFLOAD114>
2966                     <CALL '\1aFILE-PASS1 7>
2967                     <FRAME '\1aBLOCK>
2968                     <PUSH TEMP29>
2969                     <DEAD TEMP29>
2970                     <CALL '\1aBLOCK 1>
2971                     <GVAL 'GLUE = TEMP127>
2972                     <TYPE? TEMP127 <TYPE-CODE FALSE> + BOOL134>
2973                     <DEAD TEMP127>
2974                     <FRAME '\1aFILE-PASS2>
2975                     <PUSH NAMES8>
2976                     <DEAD NAMES8>
2977                     <PUSH READ-INFO15>
2978                     <PUSH OCH10>
2979                     <PUSH PMCH11>
2980                     <PUSH AMCH12>
2981                     <PUSH AACH13>
2982                     <PUSH EXPFLOAD114>
2983                     <DEAD EXPFLOAD114>
2984                     <CALL '\1aFILE-PASS2 7>
2985 BOOL134
2986                     <FRAME '\1aENDBLOCK>
2987                     <CALL '\1aENDBLOCK 0>
2988                     <FRAME '\1aCLOSE>
2989                     <PUSH OCH10>
2990                     <DEAD OCH10>
2991                     <CALL '\1aCLOSE 1>
2992                     <GVAL 'GLUE = TEMP127>
2993                     <TYPE? TEMP127 <TYPE-CODE FALSE> + PHRASE139>
2994                     <DEAD TEMP127>
2995                     <GEN-SET 'NM2 "TMSUBR">
2996                     <FRAME '\1aDELFILE>
2997                     <PUSH OUTNAME4>
2998                     <DEAD OUTNAME4>
2999                     <CALL '\1aDELFILE 1>
3000 PHRASE139
3001                     <TYPE? PMCH11 <TYPE-CODE FALSE> + BOOL143>
3002                     <FRAME '\1aCLOSE>
3003                     <PUSH PMCH11>
3004                     <DEAD PMCH11>
3005                     <CALL '\1aCLOSE 1>
3006 BOOL143
3007                     <TYPE? AMCH12 <TYPE-CODE FALSE> + BOOL145>
3008                     <FRAME '\1aCLOSE>
3009                     <PUSH AMCH12>
3010                     <DEAD AMCH12>
3011                     <CALL '\1aCLOSE 1>
3012 BOOL145
3013                     <TYPE? AACH13 <TYPE-CODE FALSE> + BOOL147>
3014                     <FRAME '\1aCLOSE>
3015                     <PUSH AACH13>
3016                     <DEAD AACH13>
3017                     <CALL '\1aCLOSE 1>
3018 BOOL147
3019                     <SETG 'DO-CLOSE %<>>
3020                     <TYPE? GC-HANDLER14 <TYPE-CODE FALSE> + BOOL149>
3021                     <FRAME '\1aOFF>
3022                     <PUSH GC-HANDLER14>
3023                     <DEAD GC-HANDLER14>
3024                     <CALL '\1aOFF 1>
3025 BOOL149
3026                     <GVAL 'WARN-PRINT = TEMP127>
3027                     <TYPE? TEMP127 <TYPE-CODE FALSE> + PHRASE152>
3028                     <DEAD TEMP127>
3029                     <FRAME '\1aPRINTSTATS>
3030                     <CALL '\1aPRINTSTATS 0>
3031 PHRASE152
3032                     <SET NAMES8 'T (TYPE ATOM)>
3033                     <UNBIND TEMP17>
3034                     <DEAD TEMP17>
3035                     <ADJ -18>
3036                     <NTHR 'UNWIND 2 = TEMP17 (RECORD-TYPE ATOM) (TYPE LBIND)>
3037                     <PUTR TEMP17 1 0 (RECORD-TYPE LBIND)>
3038                     <DEAD TEMP17>
3039                     <JUMP + TAG106>
3040 TAG105
3041                     <GVAL 'DO-CLOSE = TEMP17>
3042                     <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL186>
3043                     <DEAD TEMP17>
3044                     <NTHUV READ-INFO15 3 = TEMP17>
3045                     <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE161>
3046                     <DEAD TEMP17>
3047                     <FRAME '\1aNTH>
3048                     <NTHUV READ-INFO15 3 = STACK>
3049                     <PUSH 4>
3050                     <CALL '\1aNTH 2 = TEMP17>
3051                     <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE161>
3052                     <DEAD TEMP17>
3053                     <FRAME '\1aCLOSE>
3054                     <NTHUV READ-INFO15 3 = STACK (TYPE CHANNEL)>
3055                     <DEAD READ-INFO15>
3056                     <CALL '\1aCLOSE 1>
3057 PHRASE161
3058                     <NTHR 'INCHANS 1 = TEMP17 (RECORD-TYPE ATOM) (BRANCH-FALSE + MAPAP171)>
3059                     <TYPE? TEMP17 <TYPE-CODE FALSE> + MAPAP171>
3060                     <NTHR TEMP17 1 = TEMP17 (RECORD-TYPE GBIND)>
3061                     <TYPE? TEMP17 <TYPE-CODE UNBOUND> + MAPAP171>
3062                     <DEAD TEMP17>
3063                     <GVAL 'INCHANS = TEMP29>
3064                     <LOOP>
3065 MAP168
3066                     <INTGO>
3067                     <EMPL? TEMP29 + MAPAP171>
3068                     <NTHL TEMP29 1 = NAMES8>
3069                     <NTHUV NAMES8 4 = PMCH11>
3070                     <TYPE? PMCH11 <TYPE-CODE FALSE> + PHRASE178>
3071                     <DEAD PMCH11>
3072                     <FRAME '\1aCLOSE>
3073                     <PUSH NAMES8>
3074                     <DEAD NAMES8>
3075                     <CALL '\1aCLOSE 1>
3076 PHRASE178
3077                     <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
3078                     <JUMP + MAP168>
3079 MAPAP171
3080                     <FRAME '\1aCLOSE>
3081                     <PUSH OCH10>
3082                     <CALL '\1aCLOSE 1>
3083                     <TYPE? PMCH11 <TYPE-CODE FALSE> + BOOL182>
3084                     <FRAME '\1aCLOSE>
3085                     <PUSH PMCH11>
3086                     <CALL '\1aCLOSE 1>
3087 BOOL182
3088                     <TYPE? AMCH12 <TYPE-CODE FALSE> + BOOL184>
3089                     <FRAME '\1aCLOSE>
3090                     <PUSH AMCH12>
3091                     <CALL '\1aCLOSE 1>
3092 BOOL184
3093                     <TYPE? AACH13 <TYPE-CODE FALSE> + BOOL186>
3094                     <FRAME '\1aCLOSE>
3095                     <PUSH AACH13>
3096                     <CALL '\1aCLOSE 1>
3097 BOOL186
3098                     <TYPE? GC-HANDLER14 <TYPE-CODE FALSE> + UNWCONT>
3099                     <FRAME '\1aOFF>
3100                     <PUSH GC-HANDLER14>
3101                     <CALL '\1aOFF 1>
3102                     <JUMP + UNWCONT>
3103 TAG106
3104                     <UNBIND TEMP3>
3105                     <DEAD TEMP3>
3106                     <ADJ -29>
3107                     <RETURN NAMES8>
3108                     <DEAD NAMES8>
3109                     <END \1aFILE-MIMOC>
3110
3111 #WORD *15344661076*
3112 <GFCN \1aPRINFILE ("VALUE" <OR ATOM FALSE> CHANNEL) CH4>
3113                     <TEMP OUTCHAN5 TEMP8>
3114                     <INTGO>
3115                     <GVAL 'OUTCHAN = OUTCHAN5>
3116                     <GVAL 'VERBOSE? = TEMP8>
3117                     <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE7>
3118                     <FRAME '\1aCRLF>
3119                     <PUSH OUTCHAN5>
3120                     <CALL '\1aCRLF 1>
3121                     <FRAME '\1aPRINT-MANY>
3122                     <PUSH OUTCHAN5>
3123                     <DEAD OUTCHAN5>
3124                     <PUSH 'PRINC>
3125                     <GVAL 'GLUE = OUTCHAN5>
3126                     <TYPE? OUTCHAN5 <TYPE-CODE FALSE> - PHRASE12>
3127                     <DEAD OUTCHAN5>
3128                     <SET OUTCHAN5 "Reading file " (TYPE STRING)>
3129                     <JUMP + PHRASE20>
3130 PHRASE12
3131                     <GEN-ASSIGNED? 'PASS2? - PHRASE14>
3132                     <GEN-LVAL 'PASS2? = OUTCHAN5>
3133                     <TYPE? OUTCHAN5 <TYPE-CODE FALSE> + PHRASE14>
3134                     <DEAD OUTCHAN5>
3135                     <SET OUTCHAN5 "Pass 2:  " (TYPE STRING)>
3136                     <JUMP + PHRASE20>
3137 PHRASE14
3138                     <SET OUTCHAN5 "Pass 1:  " (TYPE STRING)>
3139 PHRASE20
3140                     <PUSH OUTCHAN5>
3141                     <DEAD OUTCHAN5>
3142                     <FRAME '\1aCHANNEL-OP>
3143                     <PUSH CH4>
3144                     <DEAD CH4>
3145                     <PUSH 'NAME>
3146                     <CALL '\1aCHANNEL-OP 2 = STACK>
3147                     <CALL '\1aPRINT-MANY 4 = TEMP8>
3148 PHRASE7
3149                     <RETURN TEMP8>
3150                     <DEAD TEMP8>
3151                     <END \1aPRINFILE>
3152 #WORD *17201027774*
3153 <GFCN \1aPRINTSTATS ("VALUE" ATOM)>
3154                     <TEMP TEMP7 ECPU4:FIX OUTCHAN5>
3155                     <INTGO>
3156                     <FRAME '\1aTIME>
3157                     <CALL '\1aTIME 0 = TEMP7>
3158                     <ADDF TEMP7 0.5000000 = TEMP7 (TYPE FLOAT)>
3159                     <FIX TEMP7 = ECPU4 (TYPE FIX)>
3160                     <DEAD TEMP7>
3161                     <GEN-LVAL 'OUTCHAN = OUTCHAN5>
3162                     <FRAME '\1aCRLF>
3163                     <PUSH OUTCHAN5>
3164                     <CALL '\1aCRLF 1>
3165                     <FRAME '\1aPRINT-MANY>
3166                     <PUSH OUTCHAN5>
3167                     <PUSH 'PRINC>
3168                     <PUSH "Total time Used: ">
3169                     <GEN-LVAL 'STARCPU = TEMP7>
3170                     <SUB ECPU4 TEMP7 = STACK (TYPE FIX)>
3171                     <DEAD ECPU4 TEMP7>
3172                     <PUSH " Gc Time Used: ">
3173                     <GEN-LVAL 'GCTIME = TEMP7>
3174                     <FIX TEMP7 = STACK (TYPE FIX)>
3175                     <DEAD TEMP7>
3176                     <PUSH "
3177 IO time: ">
3178                     <GVAL 'IO-TIME = TEMP7>
3179                     <ADDF TEMP7 0.5000000 = TEMP7 (TYPE FLOAT)>
3180                     <FIX TEMP7 = STACK (TYPE FIX)>
3181                     <DEAD TEMP7>
3182                     <GVAL 'GLUE = TEMP7>
3183                     <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE17>
3184                     <DEAD TEMP7>
3185                     <SET TEMP7 " Total Glue Code Length: " (TYPE STRING)>
3186                     <JUMP + COND16>
3187 PHRASE17
3188                     <SET TEMP7 "" (TYPE STRING)>
3189 COND16
3190                     <PUSH TEMP7>
3191                     <DEAD TEMP7>
3192                     <GVAL 'GLUE = TEMP7>
3193                     <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE19>
3194                     <DEAD TEMP7>
3195                     <FRAME '\1a*>
3196                     <GVAL 'FBYTE-OFFSET = STACK>
3197                     <PUSH 4>
3198                     <CALL '\1a* 2 = TEMP7>
3199                     <JUMP + COND18>
3200 PHRASE19
3201                     <SET TEMP7 "" (TYPE STRING)>
3202 COND18
3203                     <PUSH TEMP7>
3204                     <DEAD TEMP7>
3205                     <CALL '\1aPRINT-MANY 10>
3206                     <FRAME '\1aCRLF>
3207                     <PUSH OUTCHAN5>
3208                     <DEAD OUTCHAN5>
3209                     <CALL '\1aCRLF 1 = TEMP7>
3210                     <RETURN TEMP7>
3211                     <DEAD TEMP7>
3212                     <END \1aPRINTSTATS>
3213 <SETG ROOT-ATOMS ["M$$BINDID" "M$$INT-LEVEL"]>
3214
3215 <GDECL (ROOT-ATOMS) <VECTOR [REST STRING]>>
3216
3217 #WORD *33451170240*
3218 <GFCN \1aSKIP ("VALUE" ATOM TUPLE) READ-INFO4>
3219                     <TEMP EREAD9 TEMP11>
3220                     <INTGO>
3221                     <LOOP>
3222 AGAIN10
3223                     <INTGO>
3224                     <FRAME '\1aREAD-INTERNAL>
3225                     <PUSH READ-INFO4>
3226                     <CFRAME = STACK (TYPE FRAME)>
3227                     <CALL '\1aREAD-INTERNAL 2 = EREAD9>
3228                     <CFRAME = TEMP11 (TYPE FRAME)>
3229                     <EQUAL? TEMP11 EREAD9 - EXIT13>
3230                     <DEAD TEMP11>
3231                     <SETG 'END-READ 'T>
3232                     <RETURN 'T>
3233 EXIT13
3234                     <TYPE? EREAD9 <TYPE-CODE FORM> - AGAIN10>
3235                     <FRAME '\1aFUDGE-MIMOP>
3236                     <PUSH EREAD9>
3237                     <CALL '\1aFUDGE-MIMOP 1 = TEMP11>
3238                     <TYPE? TEMP11 <TYPE-CODE FALSE> + AGAIN10>
3239                     <DEAD TEMP11>
3240                     <NTHL EREAD9 1 = TEMP11>
3241                     <DEAD EREAD9>
3242                     <EQUAL? TEMP11 'END!-MIMOP - AGAIN10>
3243                     <DEAD TEMP11>
3244                     <RETURN 'T>
3245                     <END \1aSKIP>
3246 <SETG IP-BUFSTR <ISTRING 100>>
3247
3248 <GDECL (IP-BUFSTR) STRING>
3249
3250 #WORD *4563345353*
3251 <GFCN \1aIPRINC ("VALUE" STRING STRING CHANNEL "OPTIONAL" ANY ANY) X7 OUTCHAN8 PRINT-TRAIL9 TYPE10>
3252                     <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6>
3253 OPT4
3254                     <PUSH %<>>
3255 OPT5
3256                     <PUSH 'ATOM>
3257 OPT6
3258                     <TEMP TEMP3:LBIND (CNT11:FIX 1) STR12 TEMP22 CH27>
3259                     <INTGO>
3260                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
3261                     <BBIND 'OUTCHAN 'CHANNEL %<> OUTCHAN8>
3262                     <DEAD OUTCHAN8>
3263                     <FIXBIND>
3264                     <GVAL 'IP-BUFSTR = STR12>
3265                     <EQUAL? TYPE10 'GVAL - PHRASE14>
3266                     <PUTUS STR12 1 !\,>
3267                     <SET CNT11 2 (TYPE FIX)>
3268                     <JUMP + PHRASE15>
3269 PHRASE14
3270                     <EQUAL? TYPE10 'LVAL - PHRASE15>
3271                     <DEAD TYPE10>
3272                     <PUTUS STR12 1 !\.>
3273                     <SET CNT11 2 (TYPE FIX)>
3274 PHRASE15
3275                     <SET TEMP22 X7 (TYPE STRING)>
3276                     <DEAD X7>
3277                     <LOOP>
3278 MAP17
3279                     <INTGO>
3280                     <EMPUS? TEMP22 + MAPAP20>
3281                     <NTHUS TEMP22 1 = CH27>
3282                     <VEQUAL? CH27 !\  - PHRASE29>
3283                     <GVAL 'INT-MODE = CH27>
3284                     <TYPE? CH27 <TYPE-CODE FALSE> - PHRASE33>
3285                     <DEAD CH27>
3286                     <PUTUS STR12 CNT11 !\\>
3287                     <ADD CNT11 1 = CH27 (TYPE FIX)>
3288                     <PUTUS STR12 CH27 !\ >
3289                     <DEAD CH27>
3290                     <ADD CNT11 2 = CNT11 (TYPE FIX)>
3291                     <JUMP + PHRASE33>
3292 PHRASE29
3293                     <PUTUS STR12 CNT11 CH27>
3294                     <DEAD CH27>
3295                     <ADD CNT11 1 = CNT11 (TYPE FIX)>
3296 PHRASE33
3297                     <RESTUS TEMP22 1 = TEMP22 (TYPE STRING)>
3298                     <JUMP + MAP17>
3299 MAPAP20
3300                     <TYPE? PRINT-TRAIL9 <TYPE-CODE FALSE> + PHRASE35>
3301                     <DEAD PRINT-TRAIL9>
3302                     <PUTUS STR12 CNT11 !\!>
3303                     <ADD CNT11 1 = CH27 (TYPE FIX)>
3304                     <PUTUS STR12 CH27 !\->
3305                     <DEAD CH27>
3306                     <ADD CNT11 2 = CNT11 (TYPE FIX)>
3307 PHRASE35
3308                     <SUB CNT11 1 = CH27 (TYPE FIX)>
3309                     <SUB 101 CNT11 = TEMP22 (TYPE FIX)>
3310                     <DEAD CNT11>
3311                     <RESTUS STR12 TEMP22 = TEMP22 (TYPE STRING)>
3312                     <MOVE-STRING STR12 TEMP22 CH27 (NO-OVERLAP %<>)>
3313                     <DEAD STR12 CH27>
3314                     <SET STR12 TEMP22>
3315                     <DEAD TEMP22>
3316                     <FRAME '\1aPRINC>
3317                     <PUSH STR12>
3318                     <DEAD STR12>
3319                     <NTHR 'OUTCHAN 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
3320                     <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
3321                     <DEAD TEMP22>
3322                     <CALL '\1aPRINC 2 = TEMP22>
3323                     <UNBIND TEMP3>
3324                     <DEAD TEMP3>
3325                     <ADJ -9>
3326                     <RETURN TEMP22>
3327                     <DEAD TEMP22>
3328                     <END \1aIPRINC>
3329 #WORD *7565651503*
3330 <GFCN \1aCOUNT-GCS ("VALUE" <OR FALSE FLOAT> ANY FLOAT "TUPLE" ANY) IGN4 TI5>
3331                     <MAKTUP X6 = X6>
3332                     <INTGO>
3333                     <GVAL 'GC-COUNT = X6>
3334                     <ADD X6 1 = X6 (TYPE FIX)>
3335                     <SETG 'GC-COUNT X6>
3336                     <DEAD X6>
3337                     <GEN-ASSIGNED? 'GCTIME + TAG9>
3338                     <RETURN %<>>
3339 TAG9
3340                     <GEN-LVAL 'GCTIME = X6>
3341                     <ADDF X6 TI5 = X6 (TYPE FLOAT)>
3342                     <DEAD TI5>
3343                     <GEN-SET 'GCTIME X6>
3344                     <RETURN X6>
3345                     <DEAD X6>
3346                     <END \1aCOUNT-GCS>
3347 #WORD *620530176*
3348 <GFCN \1aDO-FILE-COPY ("VALUE" ATOM <CHANNEL 'DISK> <CHANNEL 'DISK> FIX) INCH4 OUCH5 AMT6>
3349                     <TEMP BUF7 TEMP20 TEMP26>
3350                     <INTGO>
3351                     <UUBLOCK <TYPE-CODE STRING> 512 = BUF7 (TYPE STRING)>
3352                     <VEQUAL? AMT6 -1 - PHRASE9 (TYPE FIX)>
3353                     <SET AMT6 %<CHTYPE <MIN> FIX> (TYPE FIX)>
3354 PHRASE9
3355                     <LOOP>
3356 AGAIN17
3357                     <INTGO>
3358                     <SET TEMP20 AMT6>
3359                     <GRTR? TEMP20 512 - TAG21>
3360                     <SET TEMP20 512 (TYPE FIX)>
3361 TAG21
3362                     <CHANNEL-OP 'DISK 'READ-BUFFER INCH4 BUF7 TEMP20 = TEMP20>
3363                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE19>
3364                     <CHANNEL-OP 'DISK 'WRITE-BUFFER OUCH5 BUF7 TEMP20>
3365                     <FRAME '\1aL?>
3366                     <PUSH TEMP20>
3367                     <PUSH 512>
3368                     <CALL '\1aL? 2 = TEMP26>
3369                     <TYPE? TEMP26 <TYPE-CODE FALSE> - BOOL24>
3370                     <DEAD TEMP26>
3371                     <SUB AMT6 TEMP20 = AMT6 (TYPE FIX)>
3372                     <DEAD TEMP20>
3373                     <GRTR? AMT6 0 + AGAIN17 (TYPE FIX)>
3374 BOOL24
3375                     <RETURN 'T>
3376 PHRASE19
3377                     <FRAME '\1aERROR>
3378                     <PUSH 'READ-FAILED>
3379                     <FRAME '\1aSYS-ERR>
3380                     <CHANNEL-OP 'DISK 'NAME INCH4 = STACK>
3381                     <PUSH TEMP20>
3382                     <DEAD TEMP20>
3383                     <PUSH %<>>
3384                     <CALL '\1aSYS-ERR 3 = STACK>
3385                     <PUSH 'DO-FILE-COPY>
3386                     <CALL '\1aERROR 3>
3387                     <JUMP + AGAIN17>
3388                     <END \1aDO-FILE-COPY>
3389 \\f
3390
3391 <SETG CTLZ+1 <+ <SETG CTLZ 26> 1>>
3392
3393 <COND (<==? <PRIMTYPE FIX> FIX> <SETG PKG-OBL <CHTYPE PACKAGE OBLIST>>) (T <SETG PKG-OBL <GETPROP PACKAGE OBLIST>>)>
3394
3395 #WORD *23742673165*
3396 <GFCN \1aSETUP-READ-TABLE ("VALUE" VECTOR)>
3397                     <TEMP TEMP6 RT4:VECTOR>
3398                     <INTGO>
3399                     <FRAME '\1aMOBLIST>
3400                     <PUSH 'FOO>
3401                     <CALL '\1aMOBLIST 1 = TEMP6>
3402                     <SETG 'FCN-OBL TEMP6>
3403                     <DEAD TEMP6>
3404                     <GVAL 'FCN-OBL = TEMP6>
3405                     <CONS TEMP6 () = TEMP6>
3406                     <SETG 'FCN-OBL-L TEMP6>
3407                     <DEAD TEMP6>
3408                     <NTHR 'MIMOC-READ-TABLE 1 = TEMP6 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE8)>
3409                     <TYPE? TEMP6 <TYPE-CODE FALSE> + PHRASE8>
3410                     <NTHR TEMP6 1 = TEMP6 (RECORD-TYPE GBIND)>
3411                     <TYPE? TEMP6 <TYPE-CODE UNBOUND> + PHRASE8>
3412                     <DEAD TEMP6>
3413                     <GVAL 'MIMOC-READ-TABLE = RT4>
3414                     <JUMP + PHRASE9>
3415 PHRASE8
3416                     <GVAL 'CTLZ+1 = TEMP6>
3417                     <UUBLOCK <TYPE-CODE VECTOR> TEMP6 = RT4>
3418                     <DEAD TEMP6>
3419                     <SET TEMP6 RT4>
3420                     <LOOP (TEMP6 VALUE LENGTH)>
3421 ISTR10
3422                     <EMPUV? TEMP6 + ISTRE11>
3423                     <PUTUV TEMP6 1 %<>>
3424                     <RESTUV TEMP6 1 = TEMP6>
3425                     <JUMP + ISTR10>
3426 ISTRE11
3427                     <SETG 'MIMOC-READ-TABLE RT4>
3428 PHRASE9
3429                     <FRAME '\1aPUT>
3430                     <PUSH RT4>
3431                     <DEAD RT4>
3432                     <GVAL 'CTLZ+1 = STACK>
3433                     <FRAME '\1aASCII>
3434                     <GVAL 'CTLZ = STACK>
3435                     <CALL '\1aASCII 1 = STACK>
3436                     <GVAL 'CTLZ = STACK>
3437                     <PUSH 'T>
3438                     <GVAL 'CTLZ-RD = STACK>
3439                     <PUSH %<>>
3440                     <UBLOCK <TYPE-CODE VECTOR> 5 = STACK>
3441                     <CALL '\1aPUT 3 = TEMP6>
3442                     <RETURN TEMP6>
3443                     <DEAD TEMP6>
3444                     <END \1aSETUP-READ-TABLE>
3445 <SETG FIRST-PASS-SURVIVOR-GLUE <>>
3446
3447 #WORD *35352212771*
3448 <GFCN \1aCTLZ-RD ("VALUE" ANY ANY "OPTIONAL" ANY) X6 Y7>
3449                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
3450 OPT4
3451                     <PUSH #T$UNBOUND 0>
3452 OPT5
3453                     <TEMP O8 TEMP3:LBIND TEMP12 TEMP21>
3454                     <INTGO>
3455                     <GEN-LVAL 'OBLIST = O8>
3456                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
3457                     <GVAL 'FCN-OBL-L = TEMP12>
3458                     <BBIND 'OBLIST 'ANY 'FIX TEMP12>
3459                     <DEAD TEMP12>
3460                     <GVAL 'FIRST-PASS-SURVIVOR-GLUE = TEMP12>
3461                     <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE14>
3462                     <DEAD TEMP12>
3463                     <NTHR 'OBLIST 2 = TEMP12 (RECORD-TYPE ATOM) (TYPE LBIND)>
3464                     <PUTR TEMP12 1 O8 (RECORD-TYPE LBIND)>
3465                     <DEAD TEMP12>
3466 PHRASE14
3467                     <FRAME '\1aREAD>
3468                     <PUSH X6>
3469                     <DEAD X6>
3470                     <CALL '\1aREAD 1 = X6>
3471                     <TYPE? X6 <TYPE-CODE ATOM> + PHRASE18>
3472                     <GETS 'BIND = TEMP21 (TYPE LBIND)>
3473                     <BBIND 'OBLIST 'ANY 'FIX O8>
3474                     <DEAD O8>
3475                     <FRAME '\1aERROR>
3476                     <PUSH 'BAD-CTRL-Z-USAGE-BY-MIMC>
3477                     <PUSH X6>
3478                     <DEAD X6>
3479                     <CALL '\1aERROR 2 = TEMP12>
3480                     <UNBIND TEMP21>
3481                     <DEAD TEMP21>
3482                     <ADJ -9>
3483                     <JUMP + PHRASE28>
3484 PHRASE18
3485                     <NTHR 'OBLIST 2 = TEMP21 (RECORD-TYPE ATOM) (TYPE LBIND)>
3486                     <NTHR TEMP21 1 = TEMP21 (RECORD-TYPE LBIND)>
3487                     <EQUAL? TEMP21 O8 - PHRASE25>
3488                     <DEAD TEMP21>
3489                     <SET TEMP12 X6>
3490                     <DEAD X6>
3491                     <JUMP + PHRASE28>
3492 PHRASE25
3493                     <CONS X6 () = TEMP21>
3494                     <DEAD X6>
3495                     <SET TEMP12 0 (TYPE FIX)>
3496                     <LOOP (O8 VALUE) (TEMP12 VALUE)>
3497 TAG32
3498                     <INTGO>
3499                     <EMPL? O8 + TAG29>
3500                     <NTHL O8 1 = STACK>
3501                     <RESTL O8 1 = O8 (TYPE LIST)>
3502                     <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
3503                     <JUMP + TAG32>
3504 TAG29
3505                     <LIST TEMP12 = TEMP12 (TYPE LIST)>
3506                     <CONS TEMP12 () = TEMP12>
3507                     <PUTREST TEMP21 TEMP12>
3508                     <DEAD TEMP12>
3509                     <SET X6 TEMP21>
3510                     <DEAD TEMP21>
3511                     <FRAME '\1aMEMBER>
3512                     <PUSH X6>
3513                     <GVAL 'LIST-OF-FCNS = STACK>
3514                     <CALL '\1aMEMBER 2 = TEMP21>
3515                     <TYPE? TEMP21 <TYPE-CODE FALSE> - PHRASE35>
3516                     <DEAD TEMP21>
3517                     <PUSH X6>
3518                     <SET TEMP12 1 (TYPE FIX)>
3519                     <GVAL 'LIST-OF-FCNS = TEMP21>
3520                     <TYPE TEMP21 = O8>
3521                     <AND O8 7 = O8>
3522                     <VEQUAL? O8 1 + TAG38>
3523                     <DEAD O8>
3524                     <LOOP (TEMP21 TYPE VALUE LENGTH) (TEMP12 VALUE)>
3525 TAG44
3526                     <INTGO>
3527                     <EMPTY? TEMP21 + TAG43>
3528                     <NTH1 TEMP21 = STACK>
3529                     <REST1 TEMP21 = TEMP21>
3530                     <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
3531                     <JUMP + TAG44>
3532 TAG43
3533                     <LIST TEMP12 = O8 (TYPE LIST)>
3534                     <DEAD TEMP12>
3535                     <JUMP + TAG39>
3536 TAG38
3537                     <LOOP>
3538 TAG41
3539                     <VEQUAL? TEMP12 0 + TAG40>
3540                     <POP = O8>
3541                     <CONS O8 TEMP21 = TEMP21 (TYPE LIST)>
3542                     <DEAD O8>
3543                     <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
3544                     <JUMP + TAG41>
3545 TAG40
3546                     <SET O8 TEMP21>
3547                     <DEAD TEMP21>
3548 TAG39
3549                     <SETG 'LIST-OF-FCNS O8>
3550                     <DEAD O8>
3551 PHRASE35
3552                     <NTHL X6 1 = TEMP12>
3553                     <DEAD X6>
3554 PHRASE28
3555                     <UNBIND TEMP3>
3556                     <DEAD TEMP3>
3557                     <ADJ -9>
3558                     <RETURN TEMP12>
3559                     <DEAD TEMP12>
3560                     <END \1aCTLZ-RD>
3561 #WORD *15763652552*
3562 <GFCN \1aFIND-OLD-FCN ("VALUE" <OR FALSE <LIST ATOM>> ATOM <LIST [REST LIST]>) NAME4 INDEX5>
3563                     <TEMP SPN6:STRING TEMP16 TEMP13:LIST L18:LIST TEMP24:STRING TEMP25 TEMP26 TEMP27>
3564                     <INTGO>
3565                     <NTHR NAME4 3 = SPN6 (RECORD-TYPE ATOM)>
3566                     <DEAD NAME4>
3567                     <SET TEMP16 %<> (TYPE FALSE)>
3568                     <SET TEMP13 INDEX5 (TYPE LIST)>
3569                     <DEAD INDEX5>
3570                     <LOOP>
3571 MAP8
3572                     <INTGO>
3573                     <EMPL? TEMP13 + MAPAP11>
3574                     <NTHL TEMP13 1 = L18>
3575                     <NTHL L18 1 = TEMP16 (TYPE ATOM)>
3576                     <NTHR TEMP16 3 = TEMP16 (RECORD-TYPE ATOM)>
3577                     <IFCAN "STRING-EQUAL?">
3578                     <STRING-EQUAL? SPN6 TEMP16 + TAG21>
3579                     <ENDIF "STRING-EQUAL?">
3580                     <IFCANNOT "STRING-EQUAL?">
3581                     <SET TEMP24 SPN6>
3582                     <LENUS TEMP24 = TEMP25 (TYPE FIX)>
3583                     <LENUS TEMP16 = TEMP26 (TYPE FIX)>
3584                     <VEQUAL? TEMP25 TEMP26 - TAG22>
3585                     <DEAD TEMP26>
3586                     <LOOP (TEMP24 VALUE LENGTH) (TEMP16 VALUE LENGTH) (TEMP25 VALUE)>
3587 TAG28
3588                     <NTHUS TEMP24 1 = TEMP26>
3589                     <NTHUS TEMP16 1 = TEMP27>
3590                     <VEQUAL? TEMP26 TEMP27 - TAG22>
3591                     <DEAD TEMP26 TEMP27>
3592                     <RESTUS TEMP24 1 = TEMP24 (TYPE STRING)>
3593                     <RESTUS TEMP16 1 = TEMP16 (TYPE STRING)>
3594                     <SUB TEMP25 1 = TEMP25 (TYPE FIX)>
3595                     <GRTR? TEMP25 0 + TAG28 (TYPE FIX)>
3596                     <RETURN L18>
3597                     <DEAD L18>
3598                     <ENDIF "STRING-EQUAL?">
3599 TAG22
3600                     <SET TEMP16 %<> (TYPE FALSE)>
3601                     <JUMP + PHRASE20>
3602 TAG21
3603                     <RETURN L18>
3604                     <DEAD L18>
3605 PHRASE20
3606                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
3607                     <JUMP + MAP8>
3608 MAPAP11
3609                     <RETURN TEMP16>
3610                     <DEAD TEMP16>
3611                     <END \1aFIND-OLD-FCN>
3612 #WORD *14000043535*
3613 <GFCN \1aCOPY-OLD-FCN ("VALUE" ATOM <LIST ATOM FIX FIX> <CHANNEL 'DISK> <CHANNEL 'DISK>) LIST4 INCH5 OUCH6>
3614                     <TEMP TEMP10 TEMP16 LEN14:FIX>
3615                     <INTGO>
3616                     <NTHR 'COPY-BUF 1 = TEMP10 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG9)>
3617                     <TYPE? TEMP10 <TYPE-CODE FALSE> + TAG9>
3618                     <NTHR TEMP10 1 = TEMP10 (RECORD-TYPE GBIND)>
3619                     <TYPE? TEMP10 <TYPE-CODE UNBOUND> - PHRASE8>
3620                     <DEAD TEMP10>
3621 TAG9
3622                     <UUBLOCK <TYPE-CODE STRING> 1024 = TEMP10 (TYPE STRING)>
3623                     <SETG 'COPY-BUF TEMP10>
3624                     <DEAD TEMP10>
3625 PHRASE8
3626                     <FRAME '\1aACCESS>
3627                     <PUSH INCH5>
3628                     <RESTL LIST4 1 = TEMP10 (TYPE LIST)>
3629                     <NTHL TEMP10 1 = STACK (TYPE FIX)>
3630                     <DEAD TEMP10>
3631                     <CALL '\1aACCESS 2>
3632                     <FRAME '\1aCRLF>
3633                     <PUSH OUCH6>
3634                     <CALL '\1aCRLF 1>
3635                     <RESTL LIST4 1 = TEMP10 (TYPE LIST)>
3636                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
3637                     <NTHL TEMP10 1 = TEMP10 (TYPE FIX)>
3638                     <RESTL LIST4 1 = TEMP16 (TYPE LIST)>
3639                     <DEAD LIST4>
3640                     <NTHL TEMP16 1 = TEMP16 (TYPE FIX)>
3641                     <SUB TEMP10 TEMP16 = LEN14 (TYPE FIX)>
3642                     <DEAD TEMP10 TEMP16>
3643                     <LOOP>
3644 AGAIN18
3645                     <INTGO>
3646                     <GVAL 'COPY-BUF = TEMP16>
3647                     <SET TEMP10 LEN14>
3648                     <GRTR? TEMP10 1024 - TAG19>
3649                     <SET TEMP10 1024 (TYPE FIX)>
3650 TAG19
3651                     <CHANNEL-OP 'DISK 'READ-BUFFER INCH5 TEMP16 TEMP10 = TEMP10>
3652                     <DEAD TEMP16>
3653                     <GVAL 'COPY-BUF = TEMP16>
3654                     <CHANNEL-OP 'DISK 'WRITE-BUFFER OUCH6 TEMP16 TEMP10>
3655                     <DEAD TEMP16>
3656                     <SUB LEN14 TEMP10 = LEN14 (TYPE FIX)>
3657                     <DEAD TEMP10>
3658                     <GRTR? LEN14 0 + AGAIN18 (TYPE FIX)>
3659                     <FRAME '\1aCRLF>
3660                     <PUSH OUCH6>
3661                     <DEAD OUCH6>
3662                     <CALL '\1aCRLF 1 = TEMP16>
3663                     <RETURN TEMP16>
3664                     <DEAD TEMP16>
3665                     <END \1aCOPY-OLD-FCN>