mim/development/mim/vaxc/ask.mima

   1
   2 <USE "JCL">
   3
   4 #WORD *10546651040*
   5                     <GFCN \1aSAV ("VALUE" ANY)>
   6                     <TEMP TEMP6 TEMP14 TEMP15 TEMP16 TEMP17>
   7                     <INTGO>
   8                     <FRAME '\1aGC-MON>
   9                     <PUSH %<>>
  10                     <CALL '\1aGC-MON 1>
  11                     <FRAME '\1aRESET>
  12                     <GEN-LVAL 'INCHAN = STACK>
  13                     <CALL '\1aRESET 1>
  14                     <FRAME '\1aSNAME>
  15                     <PUSH "">
  16                     <CALL '\1aSNAME 1>
  17                     <FRAME '\1aSAVE>
  18                     <PUSH "MV">
  19                     <CALL '\1aSAVE 1 = TEMP6>
  20                     <TYPE? TEMP6 <TYPE-CODE STRING> - PHRASE11>
  21                     <IFCAN "STRING-EQUAL?">
  22                     <STRING-EQUAL? TEMP6 "SAVED" - PHRASE11>
  23                     <ENDIF "STRING-EQUAL?">
  24                     <IFCANNOT "STRING-EQUAL?">
  25                     <SET TEMP14 "SAVED" (TYPE STRING)>
  26                     <LENUS TEMP6 = TEMP15 (TYPE FIX)>
  27                     <VEQUAL? TEMP15 5 - PHRASE11>
  28                     <LOOP (TEMP6 VALUE LENGTH) (TEMP14 VALUE LENGTH) (TEMP15 VALUE)>
  29 TAG18
  30                     <NTHUS TEMP6 1 = TEMP16>
  31                     <NTHUS TEMP14 1 = TEMP17>
  32                     <VEQUAL? TEMP16 TEMP17 - PHRASE11>
  33                     <DEAD TEMP16 TEMP17>
  34                     <RESTUS TEMP6 1 = TEMP6 (TYPE STRING)>
  35                     <RESTUS TEMP14 1 = TEMP14 (TYPE STRING)>
  36                     <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
  37                     <GRTR? TEMP15 0 + TAG18 (TYPE FIX)>
  38                     <ENDIF "STRING-EQUAL?">
  39                     <RETURN 'T>
  40 PHRASE11
  41                     <FRAME '\1aRUN-QUESTIONS>
  42                     <CALL '\1aRUN-QUESTIONS 0 = TEMP14>
  43                     <RETURN TEMP14>
  44                     <DEAD TEMP14>
  45                     <END \1aSAV>
  46
  47 <SETG BUFSTRING <ISTRING 200>>
  48
  49 #WORD *6755525252*
  50                     <GFCN \1aRQ ("VALUE" ANY "OPTIONAL" ANY) NOJCL?6>
  51                     <OPT-DISPATCH 0 %<> OPT4 OPT5>
  52 OPT4
  53                     <PUSH %<>>
  54 OPT5
  55                     <TEMP TEMP7>
  56                     <INTGO>
  57                     <FRAME '\1aRESET>
  58                     <GVAL 'INCHAN = STACK>
  59                     <CALL '\1aRESET 1>
  60                     <FRAME '\1aRUN-QUESTIONS>
  61                     <PUSH NOJCL?6>
  62                     <DEAD NOJCL?6>
  63                     <CALL '\1aRUN-QUESTIONS 1 = TEMP7>
  64                     <RETURN TEMP7>
  65                     <DEAD TEMP7>
  66                     <END \1aRQ>
  67
  68 #WORD *34107653501*
  69                     <GFCN \1aRUN-QUESTIONS ("VALUE" ANY "OPTIONAL" ANY) NOJCL?6>
  70                     <OPT-DISPATCH 0 %<> OPT4 OPT5>
  71 OPT4
  72                     <PUSH %<>>
  73 OPT5
  74                     <TEMP BUF10 (JCL-STR12 %<>) (JCL-VEC14 %<>) (QUICK?16 %<>) UN17:STRING (ANY-JCL?18 %<>) REM-VEC15 TEMP57 VV62 ST63 TEMP60 TEMP58 TEMP141>
  75                     <INTGO>
  76                     <GVAL 'BUFSTRING = BUF10>
  77                     <FRAME '\1aUNAME>
  78                     <CALL '\1aUNAME 0 = UN17>
  79                     <LOOP>
  80 AGAIN23
  81                     <INTGO>
  82                     <IFSYS "VAX">
  83                     <TYPE? NOJCL?6 <TYPE-CODE FALSE> + PHRASE28>
  84                     <SET JCL-VEC14 %<> (TYPE FALSE)>
  85                     <JUMP + PHRASE29>
  86 PHRASE28
  87                     <FRAME '\1aREADARGS>
  88                     <CALL '\1aREADARGS 0 = JCL-VEC14>
  89 PHRASE29
  90                     <ENDIF "VAX">
  91                     <IFSYS "TOPS20">
  92                     <TYPE? NOJCL?6 <TYPE-CODE FALSE> + PHRASE32>
  93                     <SET JCL-STR12 %<> (TYPE FALSE)>
  94                     <JUMP + PHRASE33>
  95 PHRASE32
  96                     <FRAME '\1aREADJCL>
  97                     <CALL '\1aREADJCL 0 = JCL-STR12>
  98 PHRASE33
  99                     <ENDIF "TOPS20">
 100                     <VEQUAL? QUICK?16 0 - PHRASE36>
 101                     <GEN-SET 'PRECOMPILED #T$UNBOUND 0>
 102                     <GEN-SET 'AUTO-PRECOMP #T$UNBOUND 0>
 103                     <GEN-SET 'REDO #T$UNBOUND 0>
 104 PHRASE36
 105                     <TYPE? JCL-VEC14 <TYPE-CODE FALSE> - BOOL45>
 106                     <TYPE? JCL-STR12 <TYPE-CODE FALSE> + PHRASE44>
 107 BOOL45
 108                     <SET NOJCL?6 'T (TYPE ATOM)>
 109                     <SET QUICK?16 'T (TYPE ATOM)>
 110                     <SETG 'VERBOSE? %<>>
 111                     <GEN-SET 'DOC %<>>
 112                     <SETG 'GLUE %<>>
 113                     <SETG 'BOOT-MODE %<>>
 114                     <SETG 'INT-MODE %<>>
 115                     <SETG 'GC-MODE %<>>
 116                     <IFSYS "VAX">
 117                     <SET REM-VEC15 %<> (TYPE FALSE)>
 118                     <SET TEMP57 JCL-VEC14>
 119                     <LOOP>
 120 MAP52
 121                     <INTGO>
 122                     <EMPTY? TEMP57 + MAPAP55>
 123                     <SET VV62 TEMP57>
 124                     <NTHUV VV62 1 = ST63 (TYPE STRING)>
 125                     <EMPUS? ST63 + PHRASE65 (TYPE STRING)>
 126                     <NTHUS ST63 1 = ST63 (TYPE CHARACTER)>
 127                     <VEQUAL? ST63 !\- - PHRASE65>
 128                     <DEAD ST63>
 129                     <SET REM-VEC15 VV62>
 130                     <DEAD VV62>
 131                     <JUMP + MAPAP55>
 132 PHRASE65
 133                     <REST1 TEMP57 = TEMP57>
 134                     <JUMP + MAP52>
 135 MAPAP55
 136                     <TYPE? REM-VEC15 <TYPE-CODE FALSE> + PHRASE69>
 137                     <FRAME '\1aLENGTH>
 138                     <PUSH JCL-VEC14>
 139                     <CALL '\1aLENGTH 1 = TEMP60>
 140                     <LENUV REM-VEC15 = TEMP58 (TYPE FIX)>
 141                     <SUB TEMP60 TEMP58 = TEMP60 (TYPE FIX)>
 142                     <DEAD TEMP58>
 143                     <SET VV62 ()>
 144                     <SET TEMP58 ()>
 145                     <LOOP (TEMP58 VALUE LENGTH) (TEMP60 VALUE)>
 146 ISTR71
 147                     <VEQUAL? TEMP60 0 + ISTRE72>
 148                     <CONS 0 () = TEMP57>
 149                     <EMPL? TEMP58 + TAG73>
 150                     <PUTREST TEMP58 TEMP57>
 151                     <DEAD TEMP58>
 152                     <SET TEMP58 TEMP57>
 153                     <DEAD TEMP57>
 154                     <JUMP + TAG74>
 155 TAG73
 156                     <SET TEMP58 TEMP57>
 157                     <SET VV62 TEMP57>
 158                     <DEAD TEMP57>
 159 TAG74
 160                     <SUB TEMP60 1 = TEMP60>
 161                     <JUMP + ISTR71>
 162 ISTRE72
 163                     <SET TEMP58 VV62 (TYPE LIST)>
 164                     <SET ST63 JCL-VEC14>
 165                     <LOOP>
 166 MAP76
 167                     <INTGO>
 168                     <EMPL? TEMP58 + MAPAP79>
 169                     <EMPTY? ST63 + MAPAP79>
 170                     <SET TEMP60 TEMP58>
 171                     <SET TEMP57 ST63>
 172                     <NTH1 TEMP57 = TEMP57>
 173                     <PUTL TEMP60 1 TEMP57>
 174                     <DEAD TEMP60 TEMP57>
 175                     <RESTL TEMP58 1 = TEMP58 (TYPE LIST)>
 176                     <REST1 ST63 = ST63>
 177                     <JUMP + MAP76>
 178 MAPAP79
 179                     <SET ST63 REM-VEC15 (TYPE VECTOR)>
 180                     <DEAD REM-VEC15>
 181                     <LOOP>
 182 MAP89
 183                     <INTGO>
 184                     <EMPUV? ST63 + TAG161>
 185                     <NTHUV ST63 1 = REM-VEC15>
 186                     <FRAME '\1aMEMBER>
 187                     <PUSH REM-VEC15>
 188                     <PUSH ["L" "-L" "D" "-D"]>
 189                     <CALL '\1aMEMBER 2 = TEMP57>
 190                     <TYPE? TEMP57 <TYPE-CODE FALSE> + PHRASE97>
 191                     <DEAD TEMP57>
 192                     <SET ANY-JCL?18 'T (TYPE ATOM)>
 193                     <GEN-SET 'DOC 'T>
 194                     <JUMP + MAPAP124>
 195 PHRASE97
 196                     <FRAME '\1aMEMBER>
 197                     <PUSH REM-VEC15>
 198                     <PUSH ["V" "-V"]>
 199                     <CALL '\1aMEMBER 2 = TEMP57>
 200                     <TYPE? TEMP57 <TYPE-CODE FALSE> + PHRASE101>
 201                     <DEAD TEMP57>
 202                     <SETG 'VERBOSE? 'T>
 203                     <JUMP + MAPAP124>
 204 PHRASE101
 205                     <FRAME '\1aMEMBER>
 206                     <PUSH REM-VEC15>
 207                     <PUSH ["G" "-G"]>
 208                     <CALL '\1aMEMBER 2 = TEMP57>
 209                     <TYPE? TEMP57 <TYPE-CODE FALSE> + PHRASE103>
 210                     <DEAD TEMP57>
 211                     <SET ANY-JCL?18 'T (TYPE ATOM)>
 212                     <SETG 'GLUE 'T>
 213                     <JUMP + MAPAP124>
 214 PHRASE103
 215                     <FRAME '\1aMEMBER>
 216                     <PUSH REM-VEC15>
 217                     <PUSH ["GC" "-GC"]>
 218                     <CALL '\1aMEMBER 2 = TEMP57>
 219                     <TYPE? TEMP57 <TYPE-CODE FALSE> + PHRASE105>
 220                     <DEAD TEMP57>
 221                     <SET ANY-JCL?18 'T (TYPE ATOM)>
 222                     <SETG 'GC-MODE 'T>
 223                     <JUMP + MAPAP124>
 224 PHRASE105
 225                     <FRAME '\1aMEMBER>
 226                     <PUSH REM-VEC15>
 227                     <PUSH ["I" "-I"]>
 228                     <CALL '\1aMEMBER 2 = TEMP57>
 229                     <TYPE? TEMP57 <TYPE-CODE FALSE> + PHRASE107>
 230                     <DEAD TEMP57>
 231                     <SET ANY-JCL?18 'T (TYPE ATOM)>
 232                     <SETG 'INT-MODE 'T>
 233                     <JUMP + MAPAP124>
 234 PHRASE107
 235                     <FRAME '\1aMEMBER>
 236                     <PUSH REM-VEC15>
 237                     <PUSH ["P" "-P"]>
 238                     <CALL '\1aMEMBER 2 = TEMP57>
 239                     <TYPE? TEMP57 <TYPE-CODE FALSE> + PHRASE109>
 240                     <DEAD TEMP57>
 241                     <GEN-SET 'PRECOMPILED 'T>
 242                     <JUMP + MAPAP124>
 243 PHRASE109
 244                     <FRAME '\1aMEMBER>
 245                     <PUSH REM-VEC15>
 246                     <PUSH ["PA" "-PA"]>
 247                     <CALL '\1aMEMBER 2 = TEMP57>
 248                     <TYPE? TEMP57 <TYPE-CODE FALSE> + PHRASE113>
 249                     <DEAD TEMP57>
 250                     <GEN-SET 'PRECOMPILED 'T>
 251                     <GEN-SET 'AUTO-PRECOMP 'T>
 252                     <JUMP + MAPAP124>
 253 PHRASE113
 254                     <FRAME '\1aLPARSE>
 255                     <PUSH REM-VEC15>
 256                     <DEAD REM-VEC15>
 257                     <CALL '\1aLPARSE 1 = REM-VEC15>
 258                     <LOOP>
 259 MAP121
 260                     <INTGO>
 261                     <EMPTY? REM-VEC15 + MAPAP124>
 262                     <NTH1 REM-VEC15 = TEMP57>
 263                     <TYPE? TEMP57 <TYPE-CODE ADECL> - PHRASE134>
 264                     <NTHUV TEMP57 1 = TEMP60>
 265                     <SET TEMP58 [P -P PA -PA] (TYPE VECTOR)>
 266                     <TYPE? TEMP60 <TYPE-CODE ATOM> - PHRASE134>
 267                     <LOOP (TEMP60 VALUE) (TEMP58 LENGTH VALUE)>
 268 TAG137
 269                     <NTHUV TEMP58 1 = TEMP141>
 270                     <VEQUAL? TEMP141 TEMP60 + TAG136>
 271                     <DEAD TEMP141>
 272                     <RESTUV TEMP58 1 = TEMP58 (TYPE VECTOR)>
 273                     <EMPUV? TEMP58 - TAG137>
 274                     <JUMP + PHRASE134>
 275 TAG136
 276                     <NTHUV TEMP57 2 = TEMP58>
 277                     <GEN-SET 'PRECOMPILED TEMP58>
 278                     <TYPE? TEMP58 <TYPE-CODE ATOM> - PHRASE157>
 279                     <DEAD TEMP58>
 280                     <NTHUV TEMP57 1 = TEMP58>
 281                     <DEAD TEMP57>
 282                     <SET TEMP60 [PA -PA] (TYPE VECTOR)>
 283                     <TYPE? TEMP58 <TYPE-CODE ATOM> - PHRASE147>
 284                     <LOOP (TEMP58 VALUE) (TEMP60 LENGTH VALUE)>
 285 TAG149
 286                     <NTHUV TEMP60 1 = TEMP141>
 287                     <VEQUAL? TEMP141 TEMP58 + TAG148>
 288                     <DEAD TEMP141>
 289                     <RESTUV TEMP60 1 = TEMP60 (TYPE VECTOR)>
 290                     <EMPUV? TEMP60 - TAG149>
 291                     <JUMP + PHRASE147>
 292 TAG148
 293                     <GEN-SET 'AUTO-PRECOMP 'T>
 294 PHRASE147
 295                     <GEN-LVAL 'PRECOMPILED = TEMP60>
 296                     <NTHR TEMP60 3 = TEMP60 (RECORD-TYPE ATOM)>
 297                     <GEN-SET 'PRECOMPILED TEMP60>
 298                     <DEAD TEMP60>
 299                     <JUMP + PHRASE157>
 300 PHRASE134
 301                     <FRAME '\1aEVAL>
 302                     <PUSH TEMP57>
 303                     <DEAD TEMP57>
 304                     <CALL '\1aEVAL 1>
 305 PHRASE157
 306                     <REST1 REM-VEC15 = REM-VEC15>
 307                     <JUMP + MAP121>
 308 MAPAP124
 309                     <RESTUV ST63 1 = ST63 (TYPE VECTOR)>
 310                     <JUMP + MAP89>
 311 PHRASE69
 312                     <SET TEMP60 0 (TYPE FIX)>
 313                     <SET ST63 JCL-VEC14>
 314                     <TYPE ST63 = TEMP58>
 315                     <AND TEMP58 7 = TEMP58>
 316                     <VEQUAL? TEMP58 1 + TAG160>
 317                     <DEAD TEMP58>
 318                     <LOOP (ST63 TYPE VALUE LENGTH) (TEMP60 VALUE)>
 319 TAG165
 320                     <INTGO>
 321                     <EMPTY? ST63 + TAG164>
 322                     <NTH1 ST63 = STACK>
 323                     <REST1 ST63 = ST63>
 324                     <ADD TEMP60 1 = TEMP60 (TYPE FIX)>
 325                     <JUMP + TAG165>
 326 TAG164
 327                     <LIST TEMP60 = VV62 (TYPE LIST)>
 328                     <DEAD TEMP60>
 329                     <JUMP + TAG161>
 330 TAG160
 331                     <LOOP>
 332 TAG163
 333                     <VEQUAL? TEMP60 0 + TAG162>
 334                     <POP = TEMP58>
 335                     <CONS TEMP58 ST63 = ST63 (TYPE LIST)>
 336                     <DEAD TEMP58>
 337                     <SUB TEMP60 1 = TEMP60 (TYPE FIX)>
 338                     <JUMP + TAG163>
 339 TAG162
 340                     <SET VV62 ST63>
 341                     <DEAD ST63>
 342 TAG161
 343                     <ENDIF "VAX">
 344                     <IFSYS "TOPS20">
 345                     <SET REM-VEC15 JCL-STR12>
 346                     <EMPTY? REM-VEC15 + TAG168>
 347                     <LOOP (REM-VEC15 LENGTH VALUE TYPE)>
 348 TAG170
 349                     <NTH1 REM-VEC15 = ST63>
 350                     <TYPE? ST63 <TYPE-CODE CHARACTER> - TAG171>
 351                     <VEQUAL? ST63 !\/ + TAG169>
 352                     <DEAD ST63>
 353 TAG171
 354                     <REST1 REM-VEC15 = REM-VEC15>
 355                     <EMPTY? REM-VEC15 - TAG170>
 356 TAG168
 357                     <SET REM-VEC15 %<> (TYPE FALSE)>
 358 TAG169
 359                     <TYPE? REM-VEC15 <TYPE-CODE FALSE> + PHRASE167>
 360                     <FRAME '\1aLEX>
 361                     <FRAME '\1aSUBSTRUC>
 362                     <PUSH JCL-STR12>
 363                     <PUSH 0>
 364                     <FRAME '\1aLENGTH>
 365                     <PUSH JCL-STR12>
 366                     <CALL '\1aLENGTH 1 = TEMP57>
 367                     <LENUS REM-VEC15 = ST63 (TYPE FIX)>
 368                     <SUB TEMP57 ST63 = STACK (TYPE FIX)>
 369                     <DEAD TEMP57 ST63>
 370                     <CALL '\1aSUBSTRUC 3 = STACK>
 371                     <CALL '\1aLEX 1 = VV62>
 372                     <FRAME '\1aLPARSE>
 373                     <RESTUS REM-VEC15 1 = STACK (TYPE STRING)>
 374                     <DEAD REM-VEC15>
 375                     <CALL '\1aLPARSE 1 = REM-VEC15>
 376                     <SET ST63 REM-VEC15>
 377                     <DEAD REM-VEC15>
 378                     <LOOP>
 379 MAP177
 380                     <INTGO>
 381                     <EMPTY? ST63 + COND166>
 382                     <NTH1 ST63 = TEMP57>
 383                     <TYPE? TEMP57 <TYPE-CODE ATOM> - PHRASE185>
 384                     <SET REM-VEC15 [L /L D /D] (TYPE VECTOR)>
 385                     <LOOP (TEMP57 VALUE) (REM-VEC15 LENGTH VALUE)>
 386 TAG189
 387                     <NTHUV REM-VEC15 1 = TEMP60>
 388                     <VEQUAL? TEMP60 TEMP57 + TAG188>
 389                     <DEAD TEMP60>
 390                     <RESTUV REM-VEC15 1 = REM-VEC15 (TYPE VECTOR)>
 391                     <EMPUV? REM-VEC15 - TAG189>
 392                     <JUMP + PHRASE187>
 393 TAG188
 394                     <SET ANY-JCL?18 'T (TYPE ATOM)>
 395                     <GEN-SET 'DOC 'T>
 396                     <JUMP + PHRASE238>
 397 PHRASE187
 398                     <SET REM-VEC15 [V /V] (TYPE VECTOR)>
 399                     <LOOP (TEMP57 VALUE) (REM-VEC15 LENGTH VALUE)>
 400 TAG195
 401                     <NTHUV REM-VEC15 1 = TEMP60>
 402                     <VEQUAL? TEMP60 TEMP57 + TAG194>
 403                     <DEAD TEMP60>
 404                     <RESTUV REM-VEC15 1 = REM-VEC15 (TYPE VECTOR)>
 405                     <EMPUV? REM-VEC15 - TAG195>
 406                     <JUMP + PHRASE193>
 407 TAG194
 408                     <SETG 'VERBOSE? 'T>
 409                     <JUMP + PHRASE238>
 410 PHRASE193
 411                     <SET REM-VEC15 [G /G] (TYPE VECTOR)>
 412                     <LOOP (TEMP57 VALUE) (REM-VEC15 LENGTH VALUE)>
 413 TAG199
 414                     <NTHUV REM-VEC15 1 = TEMP60>
 415                     <VEQUAL? TEMP60 TEMP57 + TAG198>
 416                     <DEAD TEMP60>
 417                     <RESTUV REM-VEC15 1 = REM-VEC15 (TYPE VECTOR)>
 418                     <EMPUV? REM-VEC15 - TAG199>
 419                     <JUMP + PHRASE197>
 420 TAG198
 421                     <SET ANY-JCL?18 'T (TYPE ATOM)>
 422                     <SETG 'GLUE 'T>
 423                     <JUMP + PHRASE238>
 424 PHRASE197
 425                     <SET REM-VEC15 [GC /GC] (TYPE VECTOR)>
 426                     <LOOP (TEMP57 VALUE) (REM-VEC15 LENGTH VALUE)>
 427 TAG203
 428                     <NTHUV REM-VEC15 1 = TEMP60>
 429                     <VEQUAL? TEMP60 TEMP57 + TAG202>
 430                     <DEAD TEMP60>
 431                     <RESTUV REM-VEC15 1 = REM-VEC15 (TYPE VECTOR)>
 432                     <EMPUV? REM-VEC15 - TAG203>
 433                     <JUMP + PHRASE201>
 434 TAG202
 435                     <SET ANY-JCL?18 'T (TYPE ATOM)>
 436                     <SETG 'GC-MODE 'T>
 437                     <JUMP + PHRASE238>
 438 PHRASE201
 439                     <SET REM-VEC15 [I /I] (TYPE VECTOR)>
 440                     <LOOP (TEMP57 VALUE) (REM-VEC15 LENGTH VALUE)>
 441 TAG207
 442                     <NTHUV REM-VEC15 1 = TEMP60>
 443                     <VEQUAL? TEMP60 TEMP57 + TAG206>
 444                     <DEAD TEMP60>
 445                     <RESTUV REM-VEC15 1 = REM-VEC15 (TYPE VECTOR)>
 446                     <EMPUV? REM-VEC15 - TAG207>
 447                     <JUMP + PHRASE205>
 448 TAG206
 449                     <SET ANY-JCL?18 'T (TYPE ATOM)>
 450                     <SETG 'INT-MODE 'T>
 451                     <JUMP + PHRASE238>
 452 PHRASE205
 453                     <SET REM-VEC15 [P /P] (TYPE VECTOR)>
 454                     <LOOP (TEMP57 VALUE) (REM-VEC15 LENGTH VALUE)>
 455 TAG211
 456                     <NTHUV REM-VEC15 1 = TEMP60>
 457                     <VEQUAL? TEMP60 TEMP57 + TAG210>
 458                     <DEAD TEMP60>
 459                     <RESTUV REM-VEC15 1 = REM-VEC15 (TYPE VECTOR)>
 460                     <EMPUV? REM-VEC15 - TAG211>
 461                     <JUMP + PHRASE209>
 462 TAG210
 463                     <GEN-SET 'PRECOMPILED 'T>
 464                     <JUMP + PHRASE238>
 465 PHRASE209
 466                     <SET REM-VEC15 [PA /PA] (TYPE VECTOR)>
 467                     <LOOP (TEMP57 VALUE) (REM-VEC15 LENGTH VALUE)>
 468 TAG217
 469                     <NTHUV REM-VEC15 1 = TEMP60>
 470                     <VEQUAL? TEMP60 TEMP57 + TAG216>
 471                     <DEAD TEMP60>
 472                     <RESTUV REM-VEC15 1 = REM-VEC15 (TYPE VECTOR)>
 473                     <EMPUV? REM-VEC15 - TAG217>
 474                     <JUMP + PHRASE238>
 475 TAG216
 476                     <GEN-SET 'PRECOMPILED 'T>
 477                     <GEN-SET 'AUTO-PRECOMP 'T>
 478                     <JUMP + PHRASE238>
 479 PHRASE185
 480                     <TYPE? TEMP57 <TYPE-CODE ADECL> - PHRASE223>
 481                     <NTHUV TEMP57 1 = REM-VEC15>
 482                     <SET TEMP60 [P /P PA /PA] (TYPE VECTOR)>
 483                     <TYPE? REM-VEC15 <TYPE-CODE ATOM> - PHRASE238>
 484                     <LOOP (REM-VEC15 VALUE) (TEMP60 LENGTH VALUE)>
 485 TAG227
 486                     <NTHUV TEMP60 1 = TEMP58>
 487                     <VEQUAL? TEMP58 REM-VEC15 + TAG226>
 488                     <DEAD TEMP58>
 489                     <RESTUV TEMP60 1 = TEMP60 (TYPE VECTOR)>
 490                     <EMPUV? TEMP60 - TAG227>
 491                     <JUMP + PHRASE238>
 492 TAG226
 493                     <NTHUV TEMP57 2 = TEMP60>
 494                     <GEN-SET 'PRECOMPILED TEMP60>
 495                     <DEAD TEMP60>
 496                     <NTHUV TEMP57 1 = TEMP60>
 497                     <DEAD TEMP57>
 498                     <SET REM-VEC15 [PA /PA] (TYPE VECTOR)>
 499                     <TYPE? TEMP60 <TYPE-CODE ATOM> - PHRASE238>
 500                     <LOOP (TEMP60 VALUE) (REM-VEC15 LENGTH VALUE)>
 501 TAG234
 502                     <NTHUV REM-VEC15 1 = TEMP58>
 503                     <VEQUAL? TEMP58 TEMP60 + TAG233>
 504                     <DEAD TEMP58>
 505                     <RESTUV REM-VEC15 1 = REM-VEC15 (TYPE VECTOR)>
 506                     <EMPUV? REM-VEC15 - TAG234>
 507                     <JUMP + PHRASE238>
 508 TAG233
 509                     <GEN-SET 'AUTO-PRECOMP 'T>
 510                     <JUMP + PHRASE238>
 511 PHRASE223
 512                     <FRAME '\1aEVAL>
 513                     <PUSH TEMP57>
 514                     <DEAD TEMP57>
 515                     <CALL '\1aEVAL 1>
 516 PHRASE238
 517                     <REST1 ST63 = ST63>
 518                     <JUMP + MAP177>
 519 PHRASE167
 520                     <FRAME '\1aLEX>
 521                     <PUSH JCL-STR12>
 522                     <LENUS JCL-STR12 = STACK (TYPE FIX)>
 523                     <CALL '\1aLEX 2 = VV62>
 524 COND166
 525                     <ENDIF "TOPS20">
 526                     <VEQUAL? ANY-JCL?18 0 - PHRASE242>
 527                     <SET QUICK?16 %<> (TYPE FALSE)>
 528 PHRASE242
 529                     <EMPL? VV62 + AGAIN23 (TYPE LIST)>
 530                     <NTHL VV62 1 = ST63>
 531                     <TYPE? ST63 <TYPE-CODE STRING> - PHRASE245>
 532                     <IFCAN "STRING-EQUAL?">
 533                     <STRING-EQUAL? ST63 "BOOT" - PHRASE245>
 534                     <ENDIF "STRING-EQUAL?">
 535                     <IFCANNOT "STRING-EQUAL?">
 536                     <SET TEMP58 "BOOT" (TYPE STRING)>
 537                     <LENUS ST63 = TEMP57 (TYPE FIX)>
 538                     <VEQUAL? TEMP57 4 - PHRASE245>
 539                     <LOOP (ST63 VALUE LENGTH) (TEMP58 VALUE LENGTH) (TEMP57 VALUE)>
 540 TAG246
 541                     <NTHUS ST63 1 = REM-VEC15>
 542                     <NTHUS TEMP58 1 = TEMP60>
 543                     <VEQUAL? REM-VEC15 TEMP60 - PHRASE245>
 544                     <DEAD REM-VEC15 TEMP60>
 545                     <RESTUS ST63 1 = ST63 (TYPE STRING)>
 546                     <RESTUS TEMP58 1 = TEMP58 (TYPE STRING)>
 547                     <SUB TEMP57 1 = TEMP57 (TYPE FIX)>
 548                     <GRTR? TEMP57 0 + TAG246 (TYPE FIX)>
 549                     <ENDIF "STRING-EQUAL?">
 550                     <SETG 'BOOT-MODE 'T>
 551                     <SETG 'INT-MODE 'T>
 552                     <SETG 'GC-MODE %<>>
 553 PHRASE245
 554                     <GVAL 'INT-MODE = TEMP58>
 555                     <TYPE? TEMP58 <TYPE-CODE FALSE> + EXIT391>
 556                     <DEAD TEMP58>
 557                     <GEN-SET 'EXPFLOAD 'T>
 558                     <JUMP + EXIT391>
 559 PHRASE44
 560                     <SETG 'VERBOSE? %<>>
 561                     <FRAME '\1aPRINC>
 562                     <PUSH "File(s): ">
 563                     <GEN-LVAL 'OUTCHAN = STACK>
 564                     <CALL '\1aPRINC 2>
 565                     <FRAME '\1aREADSTRING>
 566                     <PUSH BUF10>
 567                     <GEN-LVAL 'INCHAN = STACK>
 568                     <PUSH "\e">
 569                     <CALL '\1aREADSTRING 3 = REM-VEC15>
 570                     <FRAME '\1aLEX>
 571                     <PUSH BUF10>
 572                     <PUSH REM-VEC15>
 573                     <DEAD REM-VEC15>
 574                     <CALL '\1aLEX 2 = VV62>
 575                     <FRAME '\1aCRLF>
 576                     <GEN-LVAL 'OUTCHAN = STACK>
 577                     <CALL '\1aCRLF 1>
 578                     <EMPL? VV62 - PHRASE263 (TYPE LIST)>
 579                     <FRAME '\1aLEAVE-MIMOC>
 580                     <PUSH UN17>
 581                     <CALL '\1aLEAVE-MIMOC 1>
 582                     <JUMP + AGAIN23>
 583 PHRASE263
 584                     <VEQUAL? QUICK?16 0 - PHRASE286>
 585                     <FRAME '\1aPRINC>
 586                     <PUSH "Doc: ">
 587                     <GEN-LVAL 'OUTCHAN = STACK>
 588                     <CALL '\1aPRINC 2>
 589                     <FRAME '\1aTYI>
 590                     <CALL '\1aTYI 0 = TEMP58>
 591                     <SET TEMP141 "YyTt " (TYPE STRING)>
 592                     <TYPE? TEMP58 <TYPE-CODE CHARACTER> - TAG272>
 593                     <EMPUS? TEMP141 + TAG272>
 594                     <LOOP (TEMP58 VALUE) (TEMP141 LENGTH VALUE)>
 595 TAG274
 596                     <NTHUS TEMP141 1 = REM-VEC15>
 597                     <VEQUAL? REM-VEC15 TEMP58 + TAG273>
 598                     <DEAD REM-VEC15>
 599                     <RESTUS TEMP141 1 = TEMP141 (TYPE STRING)>
 600                     <EMPUS? TEMP141 - TAG274>
 601 TAG272
 602                     <SET TEMP141 %<> (TYPE FALSE)>
 603 TAG273
 604                     <GEN-SET 'DOC TEMP141>
 605                     <VEQUAL? TEMP141 0 + PHRASE271>
 606                     <DEAD TEMP141>
 607                     <FRAME '\1aPRINC>
 608                     <PUSH " [Listing]">
 609                     <GEN-LVAL 'OUTCHAN = STACK>
 610                     <CALL '\1aPRINC 2>
 611                     <FRAME '\1aCRLF>
 612                     <GEN-LVAL 'OUTCHAN = STACK>
 613                     <CALL '\1aCRLF 1>
 614                     <JUMP + PHRASE286>
 615 PHRASE271
 616                     <FRAME '\1aPRINC>
 617                     <PUSH " [No Listing]">
 618                     <GEN-LVAL 'OUTCHAN = STACK>
 619                     <CALL '\1aPRINC 2>
 620                     <FRAME '\1aCRLF>
 621                     <GEN-LVAL 'OUTCHAN = STACK>
 622                     <CALL '\1aCRLF 1>
 623 PHRASE286
 624                     <NTHL VV62 1 = REM-VEC15>
 625                     <TYPE? REM-VEC15 <TYPE-CODE STRING> - TAG296>
 626                     <IFCAN "STRING-EQUAL?">
 627                     <STRING-EQUAL? REM-VEC15 "BOOT" + PHRASE295>
 628                     <ENDIF "STRING-EQUAL?">
 629                     <IFCANNOT "STRING-EQUAL?">
 630                     <SET TEMP57 "BOOT" (TYPE STRING)>
 631                     <LENUS REM-VEC15 = ST63 (TYPE FIX)>
 632                     <VEQUAL? ST63 4 - TAG296>
 633                     <LOOP (REM-VEC15 VALUE LENGTH) (TEMP57 VALUE LENGTH) (ST63 VALUE)>
 634 TAG302
 635                     <NTHUS REM-VEC15 1 = TEMP58>
 636                     <NTHUS TEMP57 1 = TEMP60>
 637                     <VEQUAL? TEMP58 TEMP60 - TAG296>
 638                     <DEAD TEMP58 TEMP60>
 639                     <RESTUS REM-VEC15 1 = REM-VEC15 (TYPE STRING)>
 640                     <RESTUS TEMP57 1 = TEMP57 (TYPE STRING)>
 641                     <SUB ST63 1 = ST63 (TYPE FIX)>
 642                     <GRTR? ST63 0 + TAG302 (TYPE FIX)>
 643                     <JUMP + PHRASE295>
 644                     <ENDIF "STRING-EQUAL?">
 645 TAG296
 646                     <SETG 'BOOT-MODE %<>>
 647                     <VEQUAL? QUICK?16 0 - PHRASE349>
 648                     <FRAME '\1aPRINC>
 649                     <PUSH "Interpreter: ">
 650                     <GEN-LVAL 'OUTCHAN = STACK>
 651                     <CALL '\1aPRINC 2>
 652                     <FRAME '\1aTYI>
 653                     <CALL '\1aTYI 0 = REM-VEC15>
 654                     <SET TEMP60 " YyTt" (TYPE STRING)>
 655                     <TYPE? REM-VEC15 <TYPE-CODE CHARACTER> - PHRASE309>
 656                     <EMPUS? TEMP60 + PHRASE309>
 657                     <LOOP (REM-VEC15 VALUE) (TEMP60 LENGTH VALUE)>
 658 TAG311
 659                     <NTHUS TEMP60 1 = TEMP58>
 660                     <VEQUAL? TEMP58 REM-VEC15 + TAG310>
 661                     <DEAD TEMP58>
 662                     <RESTUS TEMP60 1 = TEMP60 (TYPE STRING)>
 663                     <EMPUS? TEMP60 - TAG311>
 664                     <JUMP + PHRASE309>
 665 TAG310
 666                     <FRAME '\1aPRINC>
 667                     <PUSH " [Interpreter Code]">
 668                     <GEN-LVAL 'OUTCHAN = STACK>
 669                     <CALL '\1aPRINC 2>
 670                     <GEN-SET 'EXPFLOAD 'T>
 671                     <SETG 'INT-MODE 'T>
 672                     <JUMP + PHRASE319>
 673 PHRASE309
 674                     <SETG 'INT-MODE %<>>
 675                     <FRAME '\1aPRINC>
 676                     <PUSH " [User Code]">
 677                     <GEN-LVAL 'OUTCHAN = STACK>
 678                     <CALL '\1aPRINC 2>
 679 PHRASE319
 680                     <FRAME '\1aCRLF>
 681                     <GEN-LVAL 'OUTCHAN = STACK>
 682                     <CALL '\1aCRLF 1>
 683                     <FRAME '\1aPRINC>
 684                     <PUSH "GC: ">
 685                     <GEN-LVAL 'OUTCHAN = STACK>
 686                     <CALL '\1aPRINC 2>
 687                     <FRAME '\1aTYI>
 688                     <CALL '\1aTYI 0 = REM-VEC15>
 689                     <SET TEMP57 " YyTt" (TYPE STRING)>
 690                     <TYPE? REM-VEC15 <TYPE-CODE CHARACTER> - PHRASE331>
 691                     <EMPUS? TEMP57 + PHRASE331>
 692                     <LOOP (REM-VEC15 VALUE) (TEMP57 LENGTH VALUE)>
 693 TAG333
 694                     <NTHUS TEMP57 1 = ST63>
 695                     <VEQUAL? ST63 REM-VEC15 + TAG332>
 696                     <DEAD ST63>
 697                     <RESTUS TEMP57 1 = TEMP57 (TYPE STRING)>
 698                     <EMPUS? TEMP57 - TAG333>
 699                     <JUMP + PHRASE331>
 700 TAG332
 701                     <FRAME '\1aPRINC>
 702                     <PUSH " [GC Code]">
 703                     <GEN-LVAL 'OUTCHAN = STACK>
 704                     <CALL '\1aPRINC 2>
 705                     <SETG 'GC-MODE 'T>
 706                     <JUMP + PHRASE342>
 707 PHRASE331
 708                     <SETG 'GC-MODE %<>>
 709                     <FRAME '\1aPRINC>
 710                     <PUSH " [Non-GC Code]">
 711                     <GEN-LVAL 'OUTCHAN = STACK>
 712                     <CALL '\1aPRINC 2>
 713 PHRASE342
 714                     <FRAME '\1aCRLF>
 715                     <GEN-LVAL 'OUTCHAN = STACK>
 716                     <CALL '\1aCRLF 1>
 717                     <JUMP + PHRASE349>
 718 PHRASE295
 719                     <FRAME '\1aPRINC>
 720                     <PUSH " [Boot mode]">
 721                     <GEN-LVAL 'OUTCHAN = STACK>
 722                     <CALL '\1aPRINC 2>
 723                     <FRAME '\1aCRLF>
 724                     <GEN-LVAL 'OUTCHAN = STACK>
 725                     <CALL '\1aCRLF 1>
 726                     <SETG 'INT-MODE 'T>
 727                     <SETG 'BOOT-MODE 'T>
 728                     <SETG 'GC-MODE %<>>
 729 PHRASE349
 730                     <VEQUAL? QUICK?16 0 - PHRASE359>
 731                     <GVAL 'BOOT-MODE = REM-VEC15>
 732                     <TYPE? REM-VEC15 <TYPE-CODE FALSE> - PHRASE359>
 733                     <DEAD REM-VEC15>
 734                     <FRAME '\1aPRINC>
 735                     <PUSH "Glue: ">
 736                     <GEN-LVAL 'OUTCHAN = STACK>
 737                     <CALL '\1aPRINC 2>
 738                     <FRAME '\1aTYI>
 739                     <CALL '\1aTYI 0 = REM-VEC15>
 740                     <SET TEMP57 " YyTt" (TYPE STRING)>
 741                     <TYPE? REM-VEC15 <TYPE-CODE CHARACTER> - PHRASE366>
 742                     <EMPUS? TEMP57 + PHRASE366>
 743                     <LOOP (REM-VEC15 VALUE) (TEMP57 LENGTH VALUE)>
 744 TAG368
 745                     <NTHUS TEMP57 1 = ST63>
 746                     <VEQUAL? ST63 REM-VEC15 + TAG367>
 747                     <DEAD ST63>
 748                     <RESTUS TEMP57 1 = TEMP57 (TYPE STRING)>
 749                     <EMPUS? TEMP57 - TAG368>
 750                     <JUMP + PHRASE366>
 751 TAG367
 752                     <SETG 'GLUE 'T>
 753                     <FRAME '\1aPRINC>
 754                     <PUSH " [Glue]">
 755                     <GEN-LVAL 'OUTCHAN = STACK>
 756                     <CALL '\1aPRINC 2>
 757                     <JUMP + PHRASE377>
 758 PHRASE366
 759                     <FRAME '\1aPRINC>
 760                     <PUSH " [No Glue]">
 761                     <GEN-LVAL 'OUTCHAN = STACK>
 762                     <CALL '\1aPRINC 2>
 763                     <SETG 'GLUE %<>>
 764 PHRASE377
 765                     <FRAME '\1aCRLF>
 766                     <GEN-LVAL 'OUTCHAN = STACK>
 767                     <CALL '\1aCRLF 1>
 768 PHRASE359
 769                     <VEQUAL? QUICK?16 0 - EXIT391>
 770                     <GVAL 'INT-MODE = REM-VEC15>
 771                     <TYPE? REM-VEC15 <TYPE-CODE FALSE> - EXIT391>
 772                     <DEAD REM-VEC15>
 773                     <FRAME '\1aPRINC>
 774                     <PUSH "Things to do: ">
 775                     <GEN-LVAL 'OUTCHAN = STACK>
 776                     <CALL '\1aPRINC 2>
 777                     <LOOP>
 778 AGAIN393
 779                     <INTGO>
 780                     <FRAME '\1aNEXTCHR>
 781                     <CALL '\1aNEXTCHR 0 = REM-VEC15>
 782                     <EQUAL? REM-VEC15 !\\e - PHRASE395>
 783                     <DEAD REM-VEC15>
 784                     <FRAME '\1aCRLF>
 785                     <GEN-LVAL 'OUTCHAN = STACK>
 786                     <CALL '\1aCRLF 1>
 787                     <JUMP + EXIT391>
 788 PHRASE395
 789                     <FRAME '\1aEVAL>
 790                     <FRAME '\1aREAD>
 791                     <CALL '\1aREAD 0 = STACK>
 792                     <CALL '\1aEVAL 1>
 793                     <JUMP + AGAIN393>
 794 EXIT391
 795                     <FRAME '\1aCHANNEL-OPEN>
 796                     <PUSH 'PARSE>
 797                     <NTHL VV62 1 = STACK>
 798                     <CALL '\1aCHANNEL-OPEN 2 = REM-VEC15>
 799                     <TYPE? REM-VEC15 <TYPE-CODE FALSE> + PHRASE404>
 800                     <FRAME '\1aFILE-MIMOC>
 801                     <FRAME '\1aCHANNEL-OP>
 802                     <PUSH REM-VEC15>
 803                     <PUSH 'NM1>
 804                     <CALL '\1aCHANNEL-OP 2 = STACK>
 805                     <PUSH %<>>
 806                     <PUSH %<>>
 807                     <GEN-LVAL 'DOC = STACK>
 808                     <SET TEMP57 4 (TYPE FIX)>
 809                     <SET ST63 VV62>
 810                     <LOOP (ST63 VALUE) (TEMP57 VALUE)>
 811 TAG413
 812                     <INTGO>
 813                     <EMPL? ST63 + TAG406>
 814                     <NTHL ST63 1 = STACK>
 815                     <RESTL ST63 1 = ST63 (TYPE LIST)>
 816                     <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
 817                     <JUMP + TAG413>
 818 TAG406
 819                     <CALL '\1aFILE-MIMOC TEMP57>
 820                     <DEAD TEMP57>
 821                     <FRAME '\1aCHANNEL-CLOSE>
 822                     <PUSH REM-VEC15>
 823                     <DEAD REM-VEC15>
 824                     <CALL '\1aCHANNEL-CLOSE 1>
 825                     <FRAME '\1aCRLF>
 826                     <GEN-LVAL 'OUTCHAN = STACK>
 827                     <CALL '\1aCRLF 1>
 828                     <FRAME '\1aPRINC>
 829                     <PUSH "Done">
 830                     <GEN-LVAL 'OUTCHAN = STACK>
 831                     <CALL '\1aPRINC 2>
 832                     <FRAME '\1aLEAVE-MIMOC>
 833                     <PUSH UN17>
 834                     <CALL '\1aLEAVE-MIMOC 1>
 835                     <JUMP + PHRASE423>
 836 PHRASE404
 837                     <FRAME '\1aSYS-ERR>
 838                     <NTHL VV62 1 = STACK (TYPE STRING)>
 839                     <PUSH REM-VEC15>
 840                     <DEAD REM-VEC15>
 841                     <PUSH 'T>
 842                     <CALL '\1aSYS-ERR 3 = REM-VEC15>
 843                     <FRAME '\1aPRINT-MANY>
 844                     <GEN-LVAL 'OUTCHAN = STACK>
 845                     <PUSH 'PRINC>
 846                     <PUSH "Can't find name of output file:  ">
 847                     <NTHL REM-VEC15 1 = STACK>
 848                     <PUSH "--">
 849                     <RESTL REM-VEC15 1 = QUICK?16 (TYPE LIST)>
 850                     <DEAD REM-VEC15>
 851                     <NTHL QUICK?16 1 = STACK>
 852                     <DEAD QUICK?16>
 853                     <CALL '\1aPRINT-MANY 6>
 854                     <FRAME '\1aCRLF>
 855                     <GEN-LVAL 'OUTCHAN = STACK>
 856                     <CALL '\1aCRLF 1>
 857                     <SET QUICK?16 'T (TYPE ATOM)>
 858                     <SET NOJCL?6 'T (TYPE ATOM)>
 859                     <JUMP + AGAIN23>
 860 PHRASE423
 861                     <SET NOJCL?6 'T (TYPE ATOM)>
 862                     <JUMP + AGAIN23>
 863                     <END \1aRUN-QUESTIONS>
 864
 865 #WORD *14331341244*
 866                     <GFCN \1aLEAVE-MIMOC ("VALUE" ATOM STRING) UN4>
 867                     <TEMP TEMP7:STRING TEMP8 TEMP9 TEMP10 TEMP11>
 868                     <INTGO>
 869                     <IFCAN "STRING-EQUAL?">
 870                     <STRING-EQUAL? UN4 "TAA" - PHRASE6>
 871                     <ENDIF "STRING-EQUAL?">
 872                     <IFCANNOT "STRING-EQUAL?">
 873                     <SET TEMP7 UN4>
 874                     <DEAD UN4>
 875                     <SET TEMP8 "TAA" (TYPE STRING)>
 876                     <LENUS TEMP7 = TEMP9 (TYPE FIX)>
 877                     <VEQUAL? TEMP9 3 - PHRASE6>
 878                     <LOOP (TEMP7 VALUE LENGTH) (TEMP8 VALUE LENGTH) (TEMP9 VALUE)>
 879 TAG12
 880                     <NTHUS TEMP7 1 = TEMP10>
 881                     <NTHUS TEMP8 1 = TEMP11>
 882                     <VEQUAL? TEMP10 TEMP11 - PHRASE6>
 883                     <DEAD TEMP10 TEMP11>
 884                     <RESTUS TEMP7 1 = TEMP7 (TYPE STRING)>
 885                     <RESTUS TEMP8 1 = TEMP8 (TYPE STRING)>
 886                     <SUB TEMP9 1 = TEMP9 (TYPE FIX)>
 887                     <GRTR? TEMP9 0 + TAG12 (TYPE FIX)>
 888                     <ENDIF "STRING-EQUAL?">
 889                     <FRAME '\1aQUIT>
 890                     <CALL '\1aQUIT 0 = TEMP8>
 891                     <RETURN TEMP8>
 892                     <DEAD TEMP8>
 893 PHRASE6
 894                     <FRAME '\1aEXIT>
 895                     <CALL '\1aEXIT 0 = TEMP8>
 896                     <RETURN TEMP8>
 897                     <DEAD TEMP8>
 898                     <END \1aLEAVE-MIMOC>
 899
 900 #WORD *21002056165*
 901                     <GFCN \1aLEX ("VALUE" LIST STRING "OPTIONAL" FIX) BUF6 LEN7>
 902                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
 903 OPT4
 904                     <PUSH #T$UNBOUND 0>
 905 OPT5
 906                     <TEMP TEMP10 L13:LIST TEMP21 TEMP23 CHR14:CHARACTER>
 907                     <INTGO>
 908                     <TYPE? LEN7 <TYPE-CODE UNBOUND> - TAG8>
 909                     <LENUS BUF6 = LEN7 (TYPE FIX)>
 910 TAG8
 911                     <LENUS BUF6 = TEMP10 (TYPE FIX)>
 912                     <SUB TEMP10 LEN7 = TEMP10 (TYPE FIX)>
 913                     <RESTUS BUF6 TEMP10 = TEMP10 (TYPE STRING)>
 914                     <MOVE-STRING BUF6 TEMP10 LEN7 (NO-OVERLAP %<>)>
 915                     <DEAD BUF6 LEN7>
 916                     <SET BUF6 TEMP10>
 917                     <DEAD TEMP10>
 918                     <CONS "" () = L13>
 919                     <SET TEMP10 %<> (TYPE FALSE)>
 920                     <LOOP>
 921 AGAIN16
 922                     <INTGO>
 923                     <EMPUS? BUF6 - PHRASE18 (TYPE STRING)>
 924                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE20>
 925                     <SET TEMP21 L13>
 926                     <LOOP (TEMP21 VALUE)>
 927 TAG22
 928                     <RESTL TEMP21 1 = TEMP23 (TYPE LIST)>
 929                     <EMPL? TEMP23 + TAG24>
 930                     <SET TEMP21 TEMP23>
 931                     <DEAD TEMP23>
 932                     <JUMP + TAG22>
 933 TAG24
 934                     <PUSH TEMP10>
 935                     <DEAD TEMP10>
 936                     <UBLOCK <TYPE-CODE STRING> 1 = TEMP23 (TYPE STRING)>
 937                     <CONS TEMP23 () = TEMP23>
 938                     <PUTREST TEMP21 TEMP23>
 939                     <DEAD TEMP21 TEMP23>
 940 PHRASE20
 941                     <RESTL L13 1 = TEMP10 (TYPE LIST)>
 942                     <DEAD L13>
 943                     <RETURN TEMP10>
 944                     <DEAD TEMP10>
 945 PHRASE18
 946                     <NTHUS BUF6 1 = CHR14 (TYPE CHARACTER)>
 947                     <SET TEMP23 "       ,
 948 \e" (TYPE STRING)>
 949                     <EMPUS? TEMP23 + PHRASE27>
 950                     <LOOP (CHR14 VALUE) (TEMP23 LENGTH VALUE)>
 951 TAG29
 952                     <NTHUS TEMP23 1 = TEMP21>
 953                     <VEQUAL? TEMP21 CHR14 + TAG28>
 954                     <DEAD TEMP21>
 955                     <RESTUS TEMP23 1 = TEMP23 (TYPE STRING)>
 956                     <EMPUS? TEMP23 - TAG29>
 957                     <JUMP + PHRASE27>
 958 TAG28
 959                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE36>
 960                     <LENUS TEMP10 = TEMP23 (TYPE FIX)>
 961                     <LENUS BUF6 = TEMP21 (TYPE FIX)>
 962                     <SUB TEMP23 TEMP21 = TEMP23 (TYPE FIX)>
 963                     <DEAD TEMP21>
 964                     <UUBLOCK <TYPE-CODE STRING> TEMP23 = TEMP21 (TYPE STRING)>
 965                     <MOVE-STRING TEMP10 TEMP21 TEMP23 (NO-OVERLAP T)>
 966                     <DEAD TEMP10 TEMP23>
 967                     <SET TEMP10 TEMP21>
 968                     <DEAD TEMP21>
 969                     <SET TEMP21 L13>
 970                     <LOOP (TEMP21 VALUE)>
 971 TAG34
 972                     <RESTL TEMP21 1 = TEMP23 (TYPE LIST)>
 973                     <EMPL? TEMP23 + TAG35>
 974                     <SET TEMP21 TEMP23>
 975                     <DEAD TEMP23>
 976                     <JUMP + TAG34>
 977 TAG35
 978                     <CONS TEMP10 () = TEMP23>
 979                     <DEAD TEMP10>
 980                     <PUTREST TEMP21 TEMP23>
 981                     <DEAD TEMP21 TEMP23>
 982                     <SET TEMP10 %<> (TYPE FALSE)>
 983                     <JUMP + PHRASE36>
 984 PHRASE27
 985                     <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE36>
 986                     <SET TEMP10 BUF6>
 987 PHRASE36
 988                     <RESTUS BUF6 1 = BUF6 (TYPE STRING)>
 989                     <JUMP + AGAIN16>
 990                     <END \1aLEX>