mim/development/mim/boot/boot.mima

   1
   2 #WORD *22230413341*
   3                     <GFCN \1aT$READ ("VALUE" ANY VECTOR) T$INCHAN4>
   4                     <TEMP TEMP3:LBIND TEMP6>
   5                     <INTGO>
   6                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
   7                     <BBIND 'T$INCHAN 'VECTOR %<> T$INCHAN4>
   8                     <DEAD T$INCHAN4>
   9                     <FIXBIND>
  10                     <SETG 'I$CONT %<>>
  11                     <NTHR 'T$INCHAN 2 = TEMP6 (RECORD-TYPE ATOM) (TYPE LBIND)>
  12                     <NTHR TEMP6 1 = TEMP6 (RECORD-TYPE LBIND)>
  13                     <SETG 'I$R? TEMP6>
  14                     <DEAD TEMP6>
  15                     <FRAME '\1aI$RDBUF>
  16                     <NTHR 'T$INCHAN 2 = TEMP6 (RECORD-TYPE ATOM) (TYPE LBIND)>
  17                     <NTHR TEMP6 1 = STACK (RECORD-TYPE LBIND)>
  18                     <DEAD TEMP6>
  19                     <CALL '\1aI$RDBUF 1 = TEMP6>
  20                     <TYPE? TEMP6 <TYPE-CODE T$UNBOUND> - PHRASE11>
  21                     <DEAD TEMP6>
  22                     <GVAL 'ZERO = TEMP6>
  23                     <CHTYPE TEMP6 <TYPE-CODE T$UNBOUND> = TEMP6>
  24                     <JUMP + PHRASE15>
  25 PHRASE11
  26                     <FRAME '\1aI$PARSE>
  27                     <CALL '\1aI$PARSE 0 = TEMP6>
  28 PHRASE15
  29                     <UNBIND TEMP3>
  30                     <DEAD TEMP3>
  31                     <ADJ -9>
  32                     <RETURN TEMP6>
  33                     <DEAD TEMP6>
  34                     <END \1aT$READ>
  35
  36 #WORD *26527510143*
  37                     <GFCN \1aI$RDBUF ("VALUE" <OR FALSE STRING T$UNBOUND> T$BCHANNEL) C4>
  38                     <TEMP BUF5:STRING TEMP10 TEMP13:FIX>
  39                     <INTGO>
  40                     <NTHUV C4 10 = BUF5 (TYPE STRING)>
  41                     <NTHUV C4 12 = TEMP10 (TYPE FIX)>
  42                     <VEQUAL? TEMP10 0 + PHRASE8 (TYPE FIX)>
  43                     <DEAD TEMP10>
  44                     <EMPUS? BUF5 + PHRASE8 (TYPE STRING)>
  45                     <NTHUV C4 11 = TEMP10 (TYPE FIX)>
  46                     <NTHUV C4 12 = TEMP13 (TYPE FIX)>
  47                     <DEAD C4>
  48                     <SUB TEMP10 TEMP13 = TEMP10 (TYPE FIX)>
  49                     <DEAD TEMP13>
  50                     <RESTUS BUF5 TEMP10 = TEMP10 (TYPE STRING)>
  51                     <DEAD BUF5>
  52                     <SETG 'BI$STR TEMP10>
  53                     <RETURN TEMP10>
  54                     <DEAD TEMP10>
  55 PHRASE8
  56                     <NTHUV C4 1 = TEMP13 (TYPE FIX)>
  57                     <LENUS BUF5 = TEMP10 (TYPE FIX)>
  58                     <READ TEMP13 BUF5 TEMP10 0 = TEMP13>
  59                     <DEAD TEMP10>
  60                     <PUTUV C4 12 TEMP13 (TYPE FIX)>
  61                     <PUTUV C4 11 TEMP13 (TYPE FIX)>
  62                     <DEAD TEMP13>
  63                     <SETG 'BI$STR BUF5>
  64                     <DEAD BUF5>
  65                     <NTHUV C4 12 = TEMP10 (TYPE FIX)>
  66                     <DEAD C4>
  67                     <VEQUAL? TEMP10 0 + TAG18 (TYPE FIX)>
  68                     <DEAD TEMP10>
  69                     <RETURN %<>>
  70 TAG18
  71                     <GVAL 'ZERO = TEMP10>
  72                     <CHTYPE TEMP10 <TYPE-CODE T$UNBOUND> = TEMP10>
  73                     <RETURN TEMP10>
  74                     <DEAD TEMP10>
  75                     <END \1aI$RDBUF>
  76
  77 #WORD *22251720635*
  78                     <GFCN \1aT$RCHR ("VALUE" CHARACTER VECTOR) CHN4>
  79                     <TEMP TEMP5 TEMP6>
  80                     <INTGO>
  81                     <NTHUV CHN4 1 = TEMP5>
  82                     <DEAD CHN4>
  83                     <GVAL 'I$CHRSTR = TEMP6>
  84                     <READ TEMP5 TEMP6 1 0>
  85                     <DEAD TEMP5 TEMP6>
  86                     <GVAL 'I$CHRSTR = TEMP6>
  87                     <NTHUS TEMP6 1 = TEMP6 (TYPE CHARACTER)>
  88                     <RETURN TEMP6>
  89                     <DEAD TEMP6>
  90                     <END \1aT$RCHR>
  91
  92 #WORD *7026650166*
  93                     <GFCN \1aI$NXTCHR ("VALUE" ANY)>
  94                     <TEMP R6 NCHR5 CHR4:CHARACTER>
  95                     <INTGO>
  96                     <GVAL 'I$R? = R6>
  97                     <GVAL 'BI$NCHR = NCHR5>
  98                     <TYPE? NCHR5 <TYPE-CODE FALSE> + PHRASE8>
  99                     <SETG 'BI$NCHR %<>>
 100                     <RETURN NCHR5>
 101                     <DEAD NCHR5>
 102 PHRASE8
 103                     <TYPE? R6 <TYPE-CODE FALSE> + BOOL12>
 104                     <NTHUV R6 12 = NCHR5 (TYPE FIX)>
 105                     <VEQUAL? NCHR5 0 + BOOL11 (TYPE FIX)>
 106                     <DEAD NCHR5>
 107 BOOL12
 108                     <TYPE? R6 <TYPE-CODE FALSE> - PHRASE10>
 109                     <GVAL 'BI$STR = NCHR5>
 110                     <EMPUS? NCHR5 - PHRASE10 (TYPE STRING)>
 111                     <DEAD NCHR5>
 112 BOOL11
 113                     <TYPE? R6 <TYPE-CODE FALSE> + PHRASE18>
 114                     <GVAL 'I$CONT = NCHR5>
 115                     <TYPE? NCHR5 <TYPE-CODE FALSE> - BOOL21>
 116                     <DEAD NCHR5>
 117                     <NTHUV R6 1 = NCHR5 (TYPE FIX)>
 118                     <VEQUAL? NCHR5 64 + PHRASE20 (TYPE FIX)>
 119                     <DEAD NCHR5>
 120 BOOL21
 121                     <SETG 'I$CONT %<>>
 122                     <NTHUV R6 1 = NCHR5 (TYPE FIX)>
 123                     <VEQUAL? NCHR5 64 - BOOL22 (TYPE FIX)>
 124                     <DEAD NCHR5>
 125                     <FRAME '\1aT$RCHR>
 126                     <PUSH R6>
 127                     <CALL '\1aT$RCHR 1>
 128 BOOL22
 129                     <FRAME '\1aI$RDBUF>
 130                     <PUSH R6>
 131                     <DEAD R6>
 132                     <CALL '\1aI$RDBUF 1 = NCHR5>
 133                     <TYPE? NCHR5 <TYPE-CODE T$UNBOUND> - PHRASE25>
 134                     <DEAD NCHR5>
 135                     <GVAL 'ZERO = NCHR5>
 136                     <CHTYPE NCHR5 <TYPE-CODE CHARACTER> = R6>
 137                     <DEAD NCHR5>
 138                     <RETURN R6>
 139                     <DEAD R6>
 140 PHRASE25
 141                     <FRAME '\1aI$NXTCHR>
 142                     <CALL '\1aI$NXTCHR 0 = R6>
 143                     <RETURN R6>
 144                     <DEAD R6>
 145 PHRASE20
 146                     <SETG 'I$CONT 'T>
 147                     <GVAL 'ZERO = NCHR5>
 148                     <CHTYPE NCHR5 <TYPE-CODE CHARACTER> = R6>
 149                     <DEAD NCHR5>
 150                     <RETURN R6>
 151                     <DEAD R6>
 152 PHRASE18
 153                     <GVAL 'ZERO = NCHR5>
 154                     <CHTYPE NCHR5 <TYPE-CODE CHARACTER> = R6>
 155                     <DEAD NCHR5>
 156                     <RETURN R6>
 157                     <DEAD R6>
 158 PHRASE10
 159                     <GVAL 'BI$STR = NCHR5>
 160                     <NTHUS NCHR5 1 = CHR4 (TYPE CHARACTER)>
 161                     <DEAD NCHR5>
 162                     <GVAL 'BI$STR = NCHR5>
 163                     <RESTUS NCHR5 1 = NCHR5 (TYPE STRING)>
 164                     <SETG 'BI$STR NCHR5>
 165                     <DEAD NCHR5>
 166                     <TYPE? R6 <TYPE-CODE FALSE> + BOOL32>
 167                     <NTHUV R6 12 = NCHR5 (TYPE FIX)>
 168                     <SUB NCHR5 1 = NCHR5 (TYPE FIX)>
 169                     <PUTUV R6 12 NCHR5 (TYPE FIX)>
 170                     <DEAD R6 NCHR5>
 171 BOOL32
 172                     <RETURN CHR4>
 173                     <DEAD CHR4>
 174                     <END \1aI$NXTCHR>
 175
 176 #WORD *21014336707*
 177                     <GFCN \1aI$PARSE ("VALUE" ANY "OPTIONAL" <OR ATOM FALSE>) PFX6>
 178                     <OPT-DISPATCH 0 %<> OPT4 OPT5>
 179 OPT4
 180                     <PUSH %<>>
 181 OPT5
 182                     <TEMP CHR7:CHARACTER TEMP19 TEMP20 ASC8:FIX>
 183                     <INTGO>
 184                     <LOOP>
 185 AGAIN13
 186                     <INTGO>
 187                     <FRAME '\1aI$NXTCHR>
 188                     <CALL '\1aI$NXTCHR 0 = CHR7>
 189                     <GVAL 'BREAKS = TEMP19>
 190                     <EMPUS? TEMP19 + EXIT11>
 191                     <LOOP (CHR7 VALUE) (TEMP19 LENGTH VALUE)>
 192 TAG16
 193                     <NTHUS TEMP19 1 = TEMP20>
 194                     <VEQUAL? TEMP20 CHR7 + AGAIN13>
 195                     <DEAD TEMP20>
 196                     <RESTUS TEMP19 1 = TEMP19 (TYPE STRING)>
 197                     <EMPUS? TEMP19 - TAG16>
 198 EXIT11
 199                     <CHTYPE CHR7 <TYPE-CODE FIX> = ASC8>
 200                     <VEQUAL? CHR7 !\( - PHRASE23>
 201                     <FRAME '\1aRETVAL>
 202                     <FRAME '\1aI$PLIST>
 203                     <CALL '\1aI$PLIST 0 = STACK>
 204                     <PUSH PFX6>
 205                     <DEAD PFX6>
 206                     <CALL '\1aRETVAL 2 = TEMP19>
 207                     <RETURN TEMP19>
 208                     <DEAD TEMP19>
 209 PHRASE23
 210                     <VEQUAL? CHR7 !\< - PHRASE26>
 211                     <FRAME '\1aRETVAL>
 212                     <FRAME '\1aI$PLIST>
 213                     <PUSH !\>>
 214                     <CALL '\1aI$PLIST 1 = TEMP20>
 215                     <CHTYPE TEMP20 <TYPE-CODE FORM> = STACK>
 216                     <DEAD TEMP20>
 217                     <PUSH PFX6>
 218                     <DEAD PFX6>
 219                     <CALL '\1aRETVAL 2 = TEMP19>
 220                     <RETURN TEMP19>
 221                     <DEAD TEMP19>
 222 PHRASE26
 223                     <VEQUAL? CHR7 !\[ - PHRASE29>
 224                     <FRAME '\1aRETVAL>
 225                     <FRAME '\1aI$PVECTOR>
 226                     <CALL '\1aI$PVECTOR 0 = STACK>
 227                     <PUSH PFX6>
 228                     <DEAD PFX6>
 229                     <CALL '\1aRETVAL 2 = TEMP19>
 230                     <RETURN TEMP19>
 231                     <DEAD TEMP19>
 232 PHRASE29
 233                     <VEQUAL? CHR7 !\" - PHRASE32>
 234                     <FRAME '\1aRETVAL>
 235                     <FRAME '\1aI$PSTRING>
 236                     <CALL '\1aI$PSTRING 0 = STACK>
 237                     <PUSH PFX6>
 238                     <DEAD PFX6>
 239                     <CALL '\1aRETVAL 2 = TEMP19>
 240                     <RETURN TEMP19>
 241                     <DEAD TEMP19>
 242 PHRASE32
 243                     <VEQUAL? CHR7 !\| - PHRASE35>
 244                     <FRAME '\1aRETVAL>
 245                     <FRAME '\1aI$PMCODE>
 246                     <CALL '\1aI$PMCODE 0 = STACK>
 247                     <PUSH PFX6>
 248                     <DEAD PFX6>
 249                     <CALL '\1aRETVAL 2 = TEMP19>
 250                     <RETURN TEMP19>
 251                     <DEAD TEMP19>
 252 PHRASE35
 253                     <SET TEMP20 ")]>" (TYPE STRING)>
 254                     <EMPUS? TEMP20 + PHRASE38>
 255                     <LOOP (CHR7 VALUE) (TEMP20 LENGTH VALUE)>
 256 TAG40
 257                     <NTHUS TEMP20 1 = TEMP19>
 258                     <VEQUAL? TEMP19 CHR7 + TAG39>
 259                     <DEAD TEMP19>
 260                     <RESTUS TEMP20 1 = TEMP20 (TYPE STRING)>
 261                     <EMPUS? TEMP20 - TAG40>
 262                     <JUMP + PHRASE38>
 263 TAG39
 264                     <CHTYPE ASC8 <TYPE-CODE T$UNBOUND> = TEMP19>
 265                     <DEAD ASC8>
 266                     <RETURN TEMP19>
 267                     <DEAD TEMP19>
 268 PHRASE38
 269                     <VEQUAL? CHR7 !\! - PHRASE43>
 270                     <FRAME '\1aI$NXTCHR>
 271                     <CALL '\1aI$NXTCHR 0 = CHR7>
 272                     <VEQUAL? CHR7 !\\0 - PHRASE45>
 273                     <GVAL 'ZERO = TEMP20>
 274                     <CHTYPE TEMP20 <TYPE-CODE T$UNBOUND> = TEMP19>
 275                     <DEAD TEMP20>
 276                     <RETURN TEMP19>
 277                     <DEAD TEMP19>
 278 PHRASE45
 279                     <VEQUAL? CHR7 !\\ - PHRASE47>
 280                     <FRAME '\1aI$NXTCHR>
 281                     <CALL '\1aI$NXTCHR 0 = CHR7>
 282                     <FRAME '\1aRETVAL>
 283                     <PUSH CHR7>
 284                     <DEAD CHR7>
 285                     <PUSH PFX6>
 286                     <DEAD PFX6>
 287                     <CALL '\1aRETVAL 2 = TEMP19>
 288                     <RETURN TEMP19>
 289                     <DEAD TEMP19>
 290 PHRASE47
 291                     <VEQUAL? CHR7 !\< - PHRASE50>
 292                     <FRAME '\1aRETVAL>
 293                     <FRAME '\1aI$PLIST>
 294                     <PUSH !\>>
 295                     <CALL '\1aI$PLIST 1 = TEMP20>
 296                     <CHTYPE TEMP20 <TYPE-CODE SEGMENT> = STACK>
 297                     <DEAD TEMP20>
 298                     <PUSH PFX6>
 299                     <DEAD PFX6>
 300                     <CALL '\1aRETVAL 2 = TEMP19>
 301                     <RETURN TEMP19>
 302                     <DEAD TEMP19>
 303 PHRASE50
 304                     <VEQUAL? CHR7 !\> - PHRASE53>
 305                     <CHTYPE CHR7 <TYPE-CODE T$UNBOUND> = TEMP19>
 306                     <DEAD CHR7>
 307                     <RETURN TEMP19>
 308                     <DEAD TEMP19>
 309 PHRASE53
 310                     <FRAME '\1aT$ERROR>
 311                     <PUSH '@BAD-USE-OF-EXCL>
 312                     <CALL '\1aT$ERROR 1 = TEMP19>
 313                     <RETURN TEMP19>
 314                     <DEAD TEMP19>
 315 PHRASE43
 316                     <LESS? ASC8 48 + BOOL57 (TYPE FIX)>
 317                     <GRTR? ASC8 57 - BOOL56 (TYPE FIX)>
 318                     <DEAD ASC8>
 319 BOOL57
 320                     <VEQUAL? CHR7 !\+ + BOOL56>
 321                     <VEQUAL? CHR7 !\- - PHRASE55>
 322 BOOL56
 323                     <SETG 'BI$NCHR CHR7>
 324                     <DEAD CHR7>
 325                     <FRAME '\1aRETVAL>
 326                     <FRAME '\1aI$PNUMBER>
 327                     <CALL '\1aI$PNUMBER 0 = STACK>
 328                     <PUSH PFX6>
 329                     <DEAD PFX6>
 330                     <CALL '\1aRETVAL 2 = TEMP19>
 331                     <RETURN TEMP19>
 332                     <DEAD TEMP19>
 333 PHRASE55
 334                     <VEQUAL? CHR7 !\# - PHRASE60>
 335                     <FRAME '\1aI$PARSE>
 336                     <CALL '\1aI$PARSE 0 = TEMP19>
 337                     <TYPE? TEMP19 <TYPE-CODE FIX> - PHRASE63>
 338                     <SETG 'BI$RADIX TEMP19>
 339                     <DEAD TEMP19>
 340                     <FRAME '\1aRETVAL>
 341                     <FRAME '\1aI$PARSE>
 342                     <CALL '\1aI$PARSE 0 = STACK>
 343                     <PUSH PFX6>
 344                     <DEAD PFX6>
 345                     <CALL '\1aRETVAL 2 = TEMP19>
 346                     <RETURN TEMP19>
 347                     <DEAD TEMP19>
 348 PHRASE63
 349                     <FRAME '\1aRETVAL>
 350                     <FRAME '\1aT$CHTYPE>
 351                     <FRAME '\1aI$PARSE>
 352                     <CALL '\1aI$PARSE 0 = STACK>
 353                     <PUSH TEMP19>
 354                     <DEAD TEMP19>
 355                     <CALL '\1aT$CHTYPE 2 = STACK>
 356                     <PUSH PFX6>
 357                     <DEAD PFX6>
 358                     <CALL '\1aRETVAL 2 = TEMP19>
 359                     <RETURN TEMP19>
 360                     <DEAD TEMP19>
 361 PHRASE60
 362                     <VEQUAL? CHR7 !\% - PHRASE70>
 363                     <FRAME '\1aI$NXTCHR>
 364                     <CALL '\1aI$NXTCHR 0 = CHR7>
 365                     <VEQUAL? CHR7 !\% - PHRASE72>
 366                     <FRAME '\1aT$EVAL>
 367                     <FRAME '\1aI$PARSE>
 368                     <CALL '\1aI$PARSE 0 = STACK>
 369                     <CALL '\1aT$EVAL 1>
 370                     <FRAME '\1aI$PARSE>
 371                     <CALL '\1aI$PARSE 0 = TEMP19>
 372                     <RETURN TEMP19>
 373                     <DEAD TEMP19>
 374 PHRASE72
 375                     <SETG 'BI$NCHR CHR7>
 376                     <DEAD CHR7>
 377                     <FRAME '\1aT$EVAL>
 378                     <FRAME '\1aI$PARSE>
 379                     <CALL '\1aI$PARSE 0 = STACK>
 380                     <CALL '\1aT$EVAL 1 = TEMP19>
 381                     <RETURN TEMP19>
 382                     <DEAD TEMP19>
 383 PHRASE70
 384                     <VEQUAL? CHR7 !\, - PHRASE80>
 385                     <FRAME '\1aI$PARSE>
 386                     <PUSH 'T>
 387                     <CALL '\1aI$PARSE 1 = TEMP19>
 388                     <FRAME '\1aRETVAL>
 389                     <FRAME '\1aFORM>
 390                     <FRAME '\1aLOOKUP>
 391                     <PUSH "GVAL">
 392                     <GVAL 'M$$ROOT = STACK>
 393                     <CALL '\1aLOOKUP 2 = STACK>
 394                     <PUSH TEMP19>
 395                     <DEAD TEMP19>
 396                     <CALL '\1aFORM 2 = STACK>
 397                     <PUSH PFX6>
 398                     <DEAD PFX6>
 399                     <CALL '\1aRETVAL 2 = TEMP19>
 400                     <RETURN TEMP19>
 401                     <DEAD TEMP19>
 402 PHRASE80
 403                     <VEQUAL? CHR7 !\' - PHRASE85>
 404                     <FRAME '\1aRETVAL>
 405                     <FRAME '\1aFORM>
 406                     <FRAME '\1aLOOKUP>
 407                     <PUSH "QUOTE">
 408                     <GVAL 'M$$ROOT = STACK>
 409                     <CALL '\1aLOOKUP 2 = STACK>
 410                     <FRAME '\1aI$PARSE>
 411                     <PUSH 'T>
 412                     <CALL '\1aI$PARSE 1 = STACK>
 413                     <CALL '\1aFORM 2 = STACK>
 414                     <PUSH PFX6>
 415                     <DEAD PFX6>
 416                     <CALL '\1aRETVAL 2 = TEMP19>
 417                     <RETURN TEMP19>
 418                     <DEAD TEMP19>
 419 PHRASE85
 420                     <VEQUAL? CHR7 !\. - PHRASE90>
 421                     <SETG 'I$FRC 'T>
 422                     <FRAME '\1aI$PARSE>
 423                     <PUSH 'T>
 424                     <CALL '\1aI$PARSE 1 = TEMP19>
 425                     <SETG 'I$FRC %<>>
 426                     <TYPE? TEMP19 <TYPE-CODE FLOAT> - PHRASE93>
 427                     <FRAME '\1aRETVAL>
 428                     <PUSH TEMP19>
 429                     <DEAD TEMP19>
 430                     <PUSH PFX6>
 431                     <DEAD PFX6>
 432                     <CALL '\1aRETVAL 2 = TEMP19>
 433                     <RETURN TEMP19>
 434                     <DEAD TEMP19>
 435 PHRASE93
 436                     <FRAME '\1aRETVAL>
 437                     <FRAME '\1aFORM>
 438                     <FRAME '\1aLOOKUP>
 439                     <PUSH "LVAL">
 440                     <GVAL 'M$$ROOT = STACK>
 441                     <CALL '\1aLOOKUP 2 = STACK>
 442                     <PUSH TEMP19>
 443                     <DEAD TEMP19>
 444                     <CALL '\1aFORM 2 = STACK>
 445                     <PUSH PFX6>
 446                     <DEAD PFX6>
 447                     <CALL '\1aRETVAL 2 = TEMP19>
 448                     <RETURN TEMP19>
 449                     <DEAD TEMP19>
 450 PHRASE90
 451                     <VEQUAL? CHR7 !\; - PHRASE99>
 452                     <FRAME '\1aI$PARSE>
 453                     <CALL '\1aI$PARSE 0>
 454                     <FRAME '\1aI$PARSE>
 455                     <CALL '\1aI$PARSE 0 = TEMP19>
 456                     <RETURN TEMP19>
 457                     <DEAD TEMP19>
 458 PHRASE99
 459                     <SETG 'BI$NCHR CHR7>
 460                     <DEAD CHR7>
 461                     <FRAME '\1aRETVAL>
 462                     <FRAME '\1aI$PNUMBER>
 463                     <PUSH 'T>
 464                     <CALL '\1aI$PNUMBER 1 = STACK>
 465                     <PUSH PFX6>
 466                     <DEAD PFX6>
 467                     <CALL '\1aRETVAL 2 = TEMP19>
 468                     <RETURN TEMP19>
 469                     <DEAD TEMP19>
 470                     <END \1aI$PARSE>
 471
 472 #WORD *22721317053*
 473                     <GFCN \1aRETVAL ("VALUE" ANY ANY <OR ATOM FALSE>) RET4 PFX5>
 474                     <TEMP>
 475                     <INTGO>
 476                     <RETURN RET4>
 477                     <DEAD RET4>
 478                     <END \1aRETVAL>
 479
 480 #WORD *37171627544*
 481                     <GFCN \1aI$PLIST ("VALUE" <LIST [REST ANY]> "OPTIONAL" CHARACTER) TERM6>
 482                     <OPT-DISPATCH 0 %<> OPT4 OPT5>
 483 OPT4
 484                     <PUSH !\)>
 485 OPT5
 486                     <TEMP TEMP15 TEMP13 ITM17 TEMP24>
 487                     <INTGO>
 488                     <SET TEMP15 () (TYPE LIST)>
 489                     <SET TEMP13 () (TYPE LIST)>
 490                     <LOOP>
 491 MAP8
 492                     <INTGO>
 493                     <FRAME '\1aI$PARSE>
 494                     <CALL '\1aI$PARSE 0 = ITM17>
 495                     <TYPE? ITM17 <TYPE-CODE T$UNBOUND> - PHRASE19>
 496                     <VEQUAL? ITM17 TERM6 + MAPAP11 (TYPE FIX)>
 497                     <GVAL 'ZERO = TEMP24>
 498                     <CHTYPE TEMP24 <TYPE-CODE T$UNBOUND> = TEMP24>
 499                     <VEQUAL? TEMP24 ITM17 - PHRASE22>
 500                     <DEAD TEMP24>
 501                     <RETURN TEMP15>
 502                     <DEAD TEMP15>
 503 PHRASE22
 504                     <FRAME '\1aI$PUNMATCH>
 505                     <PUSH ITM17>
 506                     <DEAD ITM17>
 507                     <PUSH TERM6>
 508                     <CALL '\1aI$PUNMATCH 2 = TEMP24>
 509                     <JUMP + COND18>
 510 PHRASE19
 511                     <SET TEMP24 ITM17>
 512                     <DEAD ITM17>
 513 COND18
 514                     <CONS TEMP24 () = TEMP24 (TYPE LIST)>
 515                     <EMPL? TEMP15 - TAG28>
 516                     <SET TEMP15 TEMP24 (TYPE LIST)>
 517                     <JUMP + TAG29>
 518 TAG28
 519                     <PUTREST TEMP13 TEMP24>
 520                     <DEAD TEMP13>
 521 TAG29
 522                     <SET TEMP13 TEMP24 (TYPE LIST)>
 523                     <DEAD TEMP24>
 524                     <JUMP + MAP8>
 525 MAPAP11
 526                     <RETURN TEMP15>
 527                     <DEAD TEMP15>
 528                     <END \1aI$PLIST>
 529
 530 #WORD *30310744704*
 531                     <GFCN \1aI$PVECTOR ("VALUE" VECTOR)>
 532                     <TEMP TEMP12 ITM14 TEMP21>
 533                     <INTGO>
 534                     <SET TEMP12 0 (TYPE FIX)>
 535                     <LOOP>
 536 MAP5
 537                     <INTGO>
 538                     <FRAME '\1aI$PARSE>
 539                     <CALL '\1aI$PARSE 0 = ITM14>
 540                     <TYPE? ITM14 <TYPE-CODE T$UNBOUND> - PHRASE16>
 541                     <VEQUAL? ITM14 93 + MAPAP8 (TYPE FIX)>
 542                     <GVAL 'ZERO = TEMP21>
 543                     <CHTYPE TEMP21 <TYPE-CODE T$UNBOUND> = TEMP21>
 544                     <VEQUAL? TEMP21 ITM14 + MAPAP8>
 545                     <DEAD TEMP21>
 546                     <FRAME '\1aI$PUNMATCH>
 547                     <PUSH ITM14>
 548                     <DEAD ITM14>
 549                     <PUSH !\]>
 550                     <CALL '\1aI$PUNMATCH 2 = TEMP21>
 551                     <JUMP + COND15>
 552 PHRASE16
 553                     <SET TEMP21 ITM14>
 554                     <DEAD ITM14>
 555 COND15
 556                     <PUSH TEMP21>
 557                     <DEAD TEMP21>
 558                     <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
 559                     <JUMP + MAP5>
 560 MAPAP8
 561                     <UBLOCK <TYPE-CODE VECTOR> TEMP12 = TEMP12 (TYPE VECTOR)>
 562                     <RETURN TEMP12>
 563                     <DEAD TEMP12>
 564                     <END \1aI$PVECTOR>
 565
 566 #WORD *4745352417*
 567                     <GFCN \1aI$PUNMATCH ("VALUE" ANY T$UNBOUND CHARACTER) TERMIN4 EXPECT5>
 568                     <TEMP TEMP8>
 569                     <INTGO>
 570                     <FRAME '\1aT$ERROR>
 571                     <PUSH '@SYNTAX-ERROR>
 572                     <CHTYPE TERMIN4 <TYPE-CODE CHARACTER> = STACK>
 573                     <DEAD TERMIN4>
 574                     <PUSH " INSTEAD OF ">
 575                     <PUSH EXPECT5>
 576                     <DEAD EXPECT5>
 577                     <UBLOCK <TYPE-CODE STRING> 3 = STACK (TYPE STRING)>
 578                     <PUSH 'T$READ>
 579                     <CALL '\1aT$ERROR 3 = TEMP8>
 580                     <RETURN TEMP8>
 581                     <DEAD TEMP8>
 582                     <END \1aI$PUNMATCH>
 583
 584 #WORD *13364227077*
 585                     <GFCN \1aI$PSTRING ("VALUE" STRING)>
 586                     <TEMP (QUOTE4 %<>) TEMP14 CHR16>
 587                     <INTGO>
 588                     <SET TEMP14 0 (TYPE FIX)>
 589                     <LOOP>
 590 MAP7
 591                     <INTGO>
 592                     <FRAME '\1aI$NXTCHR>
 593                     <CALL '\1aI$NXTCHR 0 = CHR16>
 594                     <VEQUAL? QUOTE4 0 + PHRASE19>
 595                     <SET QUOTE4 %<> (TYPE FALSE)>
 596                     <JUMP + COND18>
 597 PHRASE19
 598                     <VEQUAL? CHR16 !\\ - PHRASE21>
 599                     <SET QUOTE4 'T (TYPE ATOM)>
 600                     <JUMP + MAP7>
 601 PHRASE21
 602                     <VEQUAL? CHR16 !\" + MAPAP10>
 603 COND18
 604                     <PUSH CHR16>
 605                     <DEAD CHR16>
 606                     <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
 607                     <JUMP + MAP7>
 608 MAPAP10
 609                     <UBLOCK <TYPE-CODE STRING> TEMP14 = QUOTE4 (TYPE STRING)>
 610                     <DEAD TEMP14>
 611                     <EMPUS? QUOTE4 - PHRASE26 (TYPE STRING)>
 612                     <RETURN QUOTE4>
 613                     <DEAD QUOTE4>
 614 PHRASE26
 615                     <FRAME '\1aT$LOOKUP>
 616                     <PUSH QUOTE4>
 617                     <GVAL 'STOBLIST = STACK>
 618                     <CALL '\1aT$LOOKUP 2 = TEMP14>
 619                     <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE27>
 620                     <DEAD TEMP14>
 621                     <FRAME '\1aT$LOOKUP>
 622                     <PUSH QUOTE4>
 623                     <DEAD QUOTE4>
 624                     <GVAL 'STOBLIST = STACK>
 625                     <CALL '\1aT$LOOKUP 2 = TEMP14>
 626                     <NTHR TEMP14 3 = TEMP14 (RECORD-TYPE ATOM) (TYPE STRING)>
 627                     <RETURN TEMP14>
 628                     <DEAD TEMP14>
 629 PHRASE27
 630                     <RETURN QUOTE4>
 631                     <DEAD QUOTE4>
 632                     <END \1aI$PSTRING>
 633
 634 #WORD *12320676303*
 635                     <GFCN \1aI$NOLF ("VALUE" CHARACTER)>
 636                     <TEMP CHR1-4:CHARACTER>
 637                     <INTGO>
 638                     <FRAME '\1aI$NXTCHR>
 639                     <CALL '\1aI$NXTCHR 0 = CHR1-4>
 640                     <VEQUAL? CHR1-4 !\\r + BOOL7>
 641                     <VEQUAL? CHR1-4 !\
 642  - PHRASE10>
 643 BOOL7
 644                     <FRAME '\1aI$NXTCHR>
 645                     <CALL '\1aI$NXTCHR 0 = CHR1-4>
 646                     <VEQUAL? CHR1-4 !\
 647  - PHRASE10>
 648                     <FRAME '\1aI$NXTCHR>
 649                     <CALL '\1aI$NXTCHR 0 = CHR1-4>
 650 PHRASE10
 651                     <RETURN CHR1-4>
 652                     <DEAD CHR1-4>
 653                     <END \1aI$NOLF>
 654
 655 #WORD *32262001077*
 656                     <GFCN \1aI$PMCODE ("VALUE" <PRIMTYPE UVECTOR>)>
 657                     <TEMP (NUM4:FIX 0) (VERT?6 %<>) N9:FIX CHR1-10 TEMP15 MC5 MCD30:UVECTOR QW39>
 658                     <INTGO>
 659                     <SET N9 2 (TYPE FIX)>
 660                     <LOOP>
 661 AGAIN11
 662                     <INTGO>
 663                     <FRAME '\1aI$NOLF>
 664                     <CALL '\1aI$NOLF 0 = CHR1-10>
 665                     <FRAME '\1aI$NOLF>
 666                     <CALL '\1aI$NOLF 0 = TEMP15>
 667                     <SUB TEMP15 65 = TEMP15 (TYPE FIX)>
 668                     <SUB CHR1-10 65 = CHR1-10 (TYPE FIX)>
 669                     <LSH CHR1-10 5 = CHR1-10 (TYPE FIX)>
 670                     <OR TEMP15 CHR1-10 = TEMP15>
 671                     <DEAD CHR1-10>
 672                     <ADD NUM4 TEMP15 = NUM4 (TYPE FIX)>
 673                     <DEAD TEMP15>
 674                     <SUB N9 1 = N9 (TYPE FIX)>
 675                     <LESS? N9 0 + EXIT7 (TYPE FIX)>
 676                     <LSH NUM4 8 = NUM4 (TYPE FIX)>
 677                     <JUMP + AGAIN11>
 678 EXIT7
 679                     <IRECORD 518 NUM4 NUM4 = MC5>
 680                     <DEAD NUM4>
 681                     <CHTYPE MC5 <TYPE-CODE UVECTOR> = TEMP15>
 682                     <LOOP>
 683 MAP23
 684                     <INTGO>
 685                     <EMPUU? TEMP15 + MAPAP26>
 686                     <SET MCD30 TEMP15>
 687                     <FRAME '\1aI$NOLF>
 688                     <CALL '\1aI$NOLF 0 = CHR1-10>
 689                     <VEQUAL? CHR1-10 !\| - PHRASE34>
 690                     <SET VERT?6 'T (TYPE ATOM)>
 691                     <JUMP + MAPAP26>
 692 PHRASE34
 693                     <SET NUM4 3 (TYPE FIX)>
 694                     <FRAME '\1aONE-Q-WD>
 695                     <PUSH CHR1-10>
 696                     <DEAD CHR1-10>
 697                     <CALL '\1aONE-Q-WD 1 = N9>
 698                     <LOOP>
 699 AGAIN42
 700                     <INTGO>
 701                     <FRAME '\1aONE-Q-WD>
 702                     <CALL '\1aONE-Q-WD 0 = QW39>
 703                     <TYPE? QW39 <TYPE-CODE FALSE> + PHRASE44>
 704                     <GVAL 'QWSIZ = CHR1-10>
 705                     <LSH N9 CHR1-10 = CHR1-10 (TYPE FIX)>
 706                     <DEAD N9>
 707                     <OR CHR1-10 QW39 = N9>
 708                     <DEAD CHR1-10 QW39>
 709                     <JUMP + PHRASE47>
 710 PHRASE44
 711                     <GVAL 'QWSIZ = CHR1-10>
 712                     <MUL NUM4 CHR1-10 = CHR1-10 (TYPE FIX)>
 713                     <DEAD NUM4>
 714                     <LSH N9 CHR1-10 = N9 (TYPE FIX)>
 715                     <DEAD CHR1-10>
 716                     <PUTUU MCD30 1 N9>
 717                     <DEAD MCD30 N9>
 718                     <JUMP + EXIT37>
 719 PHRASE47
 720                     <SUB NUM4 1 = NUM4 (TYPE FIX)>
 721                     <VEQUAL? NUM4 0 - AGAIN42 (TYPE FIX)>
 722                     <PUTUU MCD30 1 N9>
 723                     <DEAD MCD30 N9>
 724 EXIT37
 725                     <RESTUU TEMP15 1 = TEMP15 (TYPE UVECTOR)>
 726                     <JUMP + MAP23>
 727 MAPAP26
 728                     <VEQUAL? VERT?6 0 - PHRASE54>
 729                     <DEAD VERT?6>
 730                     <FRAME '\1aI$NOLF>
 731                     <CALL '\1aI$NOLF 0>
 732 PHRASE54
 733                     <RETURN MC5>
 734                     <DEAD MC5>
 735                     <END \1aI$PMCODE>
 736
 737 #WORD *33052012214*
 738                     <GFCN \1aONE-Q-WD ("VALUE" <OR FALSE FIX> "OPTIONAL" CHARACTER) FCHR6>
 739                     <OPT-DISPATCH 0 %<> OPT4 OPT5>
 740 OPT4
 741                     <PUSH #T$UNBOUND 0>
 742 OPT5
 743                     <TEMP TEMP13 TEMP19:FIX>
 744                     <INTGO>
 745                     <TYPE? FCHR6 <TYPE-CODE UNBOUND> - TAG8>
 746                     <FRAME '\1aI$NOLF>
 747                     <CALL '\1aI$NOLF 0 = FCHR6>
 748 TAG8
 749                     <VEQUAL? FCHR6 !\| - TAG15>
 750                     <RETURN %<>>
 751 TAG15
 752                     <FRAME '\1aI$NOLF>
 753                     <CALL '\1aI$NOLF 0 = TEMP13>
 754                     <VEQUAL? TEMP13 !\| - TAG16>
 755                     <RETURN %<>>
 756 TAG16
 757                     <SUB TEMP13 65 = TEMP13 (TYPE FIX)>
 758                     <SUB FCHR6 65 = TEMP19 (TYPE FIX)>
 759                     <DEAD FCHR6>
 760                     <LSH TEMP19 5 = TEMP19 (TYPE FIX)>
 761                     <OR TEMP13 TEMP19 = TEMP13>
 762                     <DEAD TEMP19>
 763                     <RETURN TEMP13>
 764                     <DEAD TEMP13>
 765                     <END \1aONE-Q-WD>
 766
 767 #WORD *11111311217*
 768                     <GFCN \1aI$PNUMBER ("VALUE" <OR ATOM FIX FLOAT T$UNBOUND> "OPTIONAL" <OR FALSE ATOM>) ATM?6>
 769                     <OPT-DISPATCH 0 %<> OPT4 OPT5>
 770 OPT4
 771                     <PUSH %<>>
 772 OPT5
 773                     <TEMP (EXP7:FIX 0) (FRC8:FIX 0) (NUM9:FIX 0) (EXP?12 %<>) FRC?13 (FRCN16:FIX 1) (SGN?17 %<>) (QUOTE?18 %<>) (NEG?19 %<>) (TRL?22 %<>) (DIVIDE23 %<>) CHR20 CHR39 ASC41 TEMP50 TEMP51 OBL15:OBLIST OBNAM14>
 774                     <INTGO>
 775                     <GVAL 'I$FRC = FRC?13>
 776                     <FRAME '\1aI$NXTCHR>
 777                     <CALL '\1aI$NXTCHR 0 = CHR20>
 778                     <VEQUAL? CHR20 !\\0 - PHRASE25>
 779                     <GVAL 'ZERO = EXP?12>
 780                     <CHTYPE EXP?12 <TYPE-CODE T$UNBOUND> = EXP?12>
 781                     <RETURN EXP?12>
 782                     <DEAD EXP?12>
 783 PHRASE25
 784                     <SETG 'BI$NCHR CHR20>
 785                     <DEAD CHR20>
 786                     <SET CHR20 0 (TYPE FIX)>
 787                     <LOOP>
 788 MAP30
 789                     <INTGO>
 790                     <FRAME '\1aI$NXTCHR>
 791                     <CALL '\1aI$NXTCHR 0 = CHR39>
 792                     <CHTYPE CHR39 <TYPE-CODE FIX> = ASC41>
 793                     <VEQUAL? QUOTE?18 0 + PHRASE43>
 794                     <SET QUOTE?18 %<> (TYPE FALSE)>
 795                     <JUMP + PHRASE120>
 796 PHRASE43
 797                     <VEQUAL? CHR39 !\\ - PHRASE44>
 798                     <SET ATM?6 'T (TYPE ATOM)>
 799                     <SET QUOTE?18 'T (TYPE ATOM)>
 800                     <JUMP + PHRASE120>
 801 PHRASE44
 802                     <GVAL 'BREAKS = TEMP50>
 803                     <EMPUS? TEMP50 + TAG47>
 804                     <LOOP (CHR39 VALUE) (TEMP50 LENGTH VALUE)>
 805 TAG48
 806                     <NTHUS TEMP50 1 = TEMP51>
 807                     <VEQUAL? TEMP51 CHR39 + BOOL46>
 808                     <DEAD TEMP51>
 809                     <RESTUS TEMP50 1 = TEMP50 (TYPE STRING)>
 810                     <EMPUS? TEMP50 - TAG48>
 811 TAG47
 812                     <GVAL 'BRACKS = TEMP50>
 813                     <EMPUS? TEMP50 + TAG52>
 814                     <LOOP (CHR39 VALUE) (TEMP50 LENGTH VALUE)>
 815 TAG53
 816                     <NTHUS TEMP50 1 = TEMP51>
 817                     <VEQUAL? TEMP51 CHR39 + BOOL46>
 818                     <DEAD TEMP51>
 819                     <RESTUS TEMP50 1 = TEMP50 (TYPE STRING)>
 820                     <EMPUS? TEMP50 - TAG53>
 821 TAG52
 822                     <VEQUAL? CHR39 !\! - PHRASE72>
 823 BOOL46
 824                     <VEQUAL? CHR39 !\! - PHRASE56>
 825                     <FRAME '\1aI$NXTCHR>
 826                     <CALL '\1aI$NXTCHR 0 = CHR39>
 827                     <VEQUAL? CHR39 !\- - PHRASE58>
 828                     <SET TRL?22 'T (TYPE ATOM)>
 829                     <JUMP + PHRASE62>
 830 PHRASE58
 831                     <VEQUAL? CHR39 !\\0 - MAP30>
 832                     <SETG 'BI$NCHR CHR39>
 833                     <DEAD CHR39>
 834                     <JUMP + PHRASE62>
 835 PHRASE56
 836                     <SETG 'BI$NCHR CHR39>
 837                     <DEAD CHR39>
 838 PHRASE62
 839                     <TYPE? ATM?6 <TYPE-CODE FALSE> - MAPAP33>
 840                     <DEAD ATM?6>
 841                     <VEQUAL? SGN?17 0 + PHRASE64>
 842                     <DEAD SGN?17>
 843                     <VEQUAL? NUM9 0 - PHRASE64 (TYPE FIX)>
 844                     <VEQUAL? FRC8 0 + MAPAP33 (TYPE FIX)>
 845 PHRASE64
 846                     <SET SGN?17 %<> (TYPE FALSE)>
 847                     <SUB 0 CHR20 = CHR20 (TYPE FIX)>
 848                     <MUL CHR20 2 = CHR20 (TYPE FIX)>
 849                     <ADJ CHR20>
 850                     <DEAD CHR20>
 851                     <JUMP + MAPEX32>
 852 PHRASE72
 853                     <VEQUAL? ASC41 0 - PHRASE85 (TYPE FIX)>
 854                     <TYPE? ATM?6 <TYPE-CODE FALSE> - MAPAP33>
 855                     <DEAD ATM?6>
 856                     <VEQUAL? SGN?17 0 + PHRASE77>
 857                     <DEAD SGN?17>
 858                     <VEQUAL? NUM9 0 - PHRASE77 (TYPE FIX)>
 859                     <VEQUAL? FRC8 0 + MAPAP33 (TYPE FIX)>
 860 PHRASE77
 861                     <SET SGN?17 %<> (TYPE FALSE)>
 862                     <SUB 0 CHR20 = CHR20 (TYPE FIX)>
 863                     <MUL CHR20 2 = CHR20 (TYPE FIX)>
 864                     <ADJ CHR20>
 865                     <DEAD CHR20>
 866                     <JUMP + MAPEX32>
 867 PHRASE85
 868                     <TYPE? ATM?6 <TYPE-CODE FALSE> - PHRASE120>
 869                     <VEQUAL? CHR39 !\+ + BOOL87>
 870                     <VEQUAL? CHR39 !\- - PHRASE86>
 871 BOOL87
 872                     <VEQUAL? EXP?12 0 + PHRASE89>
 873                     <VEQUAL? EXP7 0 - PHRASE89 (TYPE FIX)>
 874                     <VEQUAL? CHR39 !\- - PHRASE120>
 875                     <SET DIVIDE23 'T (TYPE ATOM)>
 876                     <JUMP + PHRASE120>
 877 PHRASE89
 878                     <VEQUAL? NUM9 0 - PHRASE95 (TYPE FIX)>
 879                     <VEQUAL? FRC8 0 - PHRASE95 (TYPE FIX)>
 880                     <VEQUAL? NEG?19 0 - PHRASE95>
 881                     <SET SGN?17 'T (TYPE ATOM)>
 882                     <VEQUAL? CHR39 !\- - PHRASE120>
 883                     <SET NEG?19 'T (TYPE ATOM)>
 884                     <JUMP + PHRASE120>
 885 PHRASE95
 886                     <SET ATM?6 'T (TYPE ATOM)>
 887                     <JUMP + PHRASE120>
 888 PHRASE86
 889                     <LESS? ASC41 48 + PHRASE103 (TYPE FIX)>
 890                     <GRTR? ASC41 57 + PHRASE103 (TYPE FIX)>
 891                     <SUB ASC41 48 = ASC41 (TYPE FIX)>
 892                     <VEQUAL? EXP?12 0 + PHRASE106>
 893                     <MUL EXP7 10 = TEMP51 (TYPE FIX)>
 894                     <DEAD EXP7>
 895                     <ADD TEMP51 ASC41 = EXP7 (TYPE FIX)>
 896                     <DEAD TEMP51 ASC41>
 897                     <JUMP + PHRASE120>
 898 PHRASE106
 899                     <TYPE? FRC?13 <TYPE-CODE FALSE> + PHRASE108>
 900                     <MUL FRC8 10 = TEMP51 (TYPE FIX)>
 901                     <DEAD FRC8>
 902                     <ADD TEMP51 ASC41 = FRC8 (TYPE FIX)>
 903                     <DEAD TEMP51 ASC41>
 904                     <MUL FRCN16 10 = FRCN16 (TYPE FIX)>
 905                     <JUMP + PHRASE120>
 906 PHRASE108
 907                     <GVAL 'BI$RADIX = TEMP50>
 908                     <MUL NUM9 TEMP50 = TEMP51 (TYPE FIX)>
 909                     <DEAD NUM9 TEMP50>
 910                     <ADD TEMP51 ASC41 = NUM9 (TYPE FIX)>
 911                     <DEAD TEMP51 ASC41>
 912                     <JUMP + PHRASE120>
 913 PHRASE103
 914                     <VEQUAL? CHR39 !\E + BOOL112>
 915                     <VEQUAL? CHR39 !\e - PHRASE111>
 916 BOOL112
 917                     <VEQUAL? EXP?12 0 + PHRASE114>
 918                     <SET ATM?6 'T (TYPE ATOM)>
 919                     <JUMP + PHRASE120>
 920 PHRASE114
 921                     <SET EXP?12 'T (TYPE ATOM)>
 922                     <JUMP + PHRASE120>
 923 PHRASE111
 924                     <VEQUAL? CHR39 !\. - PHRASE116>
 925                     <TYPE? FRC?13 <TYPE-CODE FALSE> + PHRASE118>
 926                     <SET ATM?6 'T (TYPE ATOM)>
 927                     <JUMP + PHRASE120>
 928 PHRASE118
 929                     <SET FRC?13 'T (TYPE ATOM)>
 930                     <JUMP + PHRASE120>
 931 PHRASE116
 932                     <SET ATM?6 'T (TYPE ATOM)>
 933 PHRASE120
 934                     <VEQUAL? QUOTE?18 0 - MAP30>
 935                     <SET TEMP51 CHR39>
 936                     <DEAD CHR39>
 937                     <PUSH TEMP51>
 938                     <DEAD TEMP51>
 939                     <ADD CHR20 1 = CHR20 (TYPE FIX)>
 940                     <JUMP + MAP30>
 941 MAPAP33
 942                     <UBLOCK <TYPE-CODE STRING> CHR20 = SGN?17 (TYPE STRING)>
 943                     <DEAD CHR20>
 944 MAPEX32
 945                     <VEQUAL? SGN?17 0 - PHRASE125>
 946                     <SETG 'BI$RADIX 10>
 947                     <TYPE? FRC?13 <TYPE-CODE FALSE> + PHRASE127>
 948                     <DEAD FRC?13>
 949                     <FLOAT NUM9 = FRC?13 (TYPE FLOAT)>
 950                     <DEAD NUM9>
 951                     <FLOAT FRC8 = CHR20 (TYPE FLOAT)>
 952                     <DEAD FRC8>
 953                     <FLOAT FRCN16 = TEMP51 (TYPE FLOAT)>
 954                     <DEAD FRCN16>
 955                     <DIVF CHR20 TEMP51 = CHR20 (TYPE FLOAT)>
 956                     <DEAD TEMP51>
 957                     <ADDF FRC?13 CHR20 = FRC?13 (TYPE FLOAT)>
 958                     <DEAD CHR20>
 959                     <JUMP + COND126>
 960 PHRASE127
 961                     <SET FRC?13 NUM9>
 962                     <DEAD NUM9>
 963 COND126
 964                     <VEQUAL? EXP?12 0 + PHRASE139>
 965                     <DEAD EXP?12>
 966                     <VEQUAL? EXP7 0 + PHRASE139 (TYPE FIX)>
 967                     <GRTR? EXP7 7 + PHRASE133 (TYPE FIX)>
 968                     <VEQUAL? DIVIDE23 0 + PHRASE135>
 969                     <DEAD DIVIDE23>
 970                     <TYPE? FRC?13 <TYPE-CODE FLOAT> + TAG136>
 971                     <FLOAT FRC?13 = FRC?13 (TYPE FLOAT)>
 972 TAG136
 973                     <GVAL 'I$POWERS = CHR20>
 974                     <NTHUV CHR20 EXP7 = TEMP51 (TYPE FLOAT)>
 975                     <DEAD CHR20 EXP7>
 976                     <DIVF FRC?13 TEMP51 = FRC?13 (TYPE FLOAT)>
 977                     <DEAD TEMP51>
 978                     <JUMP + PHRASE139>
 979 PHRASE135
 980                     <SET TEMP51 FRC?13>
 981                     <DEAD FRC?13>
 982                     <TYPE? TEMP51 <TYPE-CODE FLOAT> + TAG138>
 983                     <FLOAT TEMP51 = TEMP51 (TYPE FLOAT)>
 984 TAG138
 985                     <GVAL 'I$POWERS = CHR20>
 986                     <NTHUV CHR20 EXP7 = TEMP50 (TYPE FLOAT)>
 987                     <DEAD CHR20 EXP7>
 988                     <MULF TEMP51 TEMP50 = FRC?13 (TYPE FLOAT)>
 989                     <DEAD TEMP51 TEMP50>
 990                     <JUMP + PHRASE139>
 991 PHRASE133
 992                     <FRAME '\1aT$ERROR>
 993                     <PUSH '@NUMBER-OUT-OF-RANGE>
 994                     <PUSH 'T$READ>
 995                     <CALL '\1aT$ERROR 2>
 996 PHRASE139
 997                     <VEQUAL? NEG?19 0 + TAG144>
 998                     <DEAD NEG?19>
 999                     <TYPE? FRC?13 <TYPE-CODE FIX> - TAG143>
1000                     <SUB 0 FRC?13 = FRC?13 (TYPE FIX)>
1001                     <RETURN FRC?13>
1002                     <DEAD FRC?13>
1003 TAG143
1004                     <SUBF 0.0 FRC?13 = FRC?13 (TYPE FLOAT)>
1005 TAG144
1006                     <RETURN FRC?13>
1007                     <DEAD FRC?13>
1008 PHRASE125
1009                     <VEQUAL? TRL?22 0 + PHRASE145>
1010                     <DEAD TRL?22>
1011                     <FRAME '\1aI$NXTCHR>
1012                     <CALL '\1aI$NXTCHR 0 = CHR20>
1013                     <GVAL 'BREAKS = FRC?13>
1014                     <EMPUS? FRC?13 + TAG149>
1015                     <LOOP (CHR20 VALUE) (FRC?13 LENGTH VALUE)>
1016 TAG150
1017                     <NTHUS FRC?13 1 = TEMP50>
1018                     <VEQUAL? TEMP50 CHR20 + BOOL148>
1019                     <DEAD TEMP50>
1020                     <RESTUS FRC?13 1 = FRC?13 (TYPE STRING)>
1021                     <EMPUS? FRC?13 - TAG150>
1022 TAG149
1023                     <VEQUAL? CHR20 !\\0 + BOOL148>
1024                     <VEQUAL? CHR20 !\! - PHRASE147>
1025 BOOL148
1026                     <GVAL 'M$$ROOT = OBL15>
1027                     <JUMP + COND146>
1028 PHRASE147
1029                     <GVAL 'BRACKS = FRC?13>
1030                     <EMPUS? FRC?13 + PHRASE153>
1031                     <LOOP (CHR20 VALUE) (FRC?13 LENGTH VALUE)>
1032 TAG155
1033                     <NTHUS FRC?13 1 = TEMP50>
1034                     <VEQUAL? TEMP50 CHR20 + TAG154>
1035                     <DEAD TEMP50>
1036                     <RESTUS FRC?13 1 = FRC?13 (TYPE STRING)>
1037                     <EMPUS? FRC?13 - TAG155>
1038                     <JUMP + PHRASE153>
1039 TAG154
1040                     <GVAL 'M$$ROOT = OBL15>
1041                     <SETG 'BI$NCHR CHR20>
1042                     <DEAD CHR20>
1043                     <JUMP + COND146>
1044 PHRASE153
1045                     <SETG 'BI$NCHR CHR20>
1046                     <TYPE? CHR20 <TYPE-CODE FALSE> + PHRASE157>
1047                     <DEAD CHR20>
1048                     <FRAME '\1aI$PARSE>
1049                     <CALL '\1aI$PARSE 0 = OBNAM14>
1050                     <TYPE? OBNAM14 <TYPE-CODE ATOM> - PHRASE157>
1051                     <NTHR OBNAM14 3 = FRC?13 (RECORD-TYPE ATOM) (TYPE STRING)>
1052                     <IFCAN "STRING-EQUAL?">
1053                     <STRING-EQUAL? FRC?13 "IMSUBR" - PHRASE157>
1054                     <ENDIF "STRING-EQUAL?">
1055                     <IFCANNOT "STRING-EQUAL?">
1056                     <SET TEMP50 "IMSUBR" (TYPE STRING)>
1057                     <LENUS FRC?13 = TEMP51 (TYPE FIX)>
1058                     <VEQUAL? TEMP51 6 - PHRASE157>
1059                     <LOOP (FRC?13 VALUE LENGTH) (TEMP50 VALUE LENGTH) (TEMP51 VALUE)>
1060 TAG161
1061                     <NTHUS FRC?13 1 = CHR20>
1062                     <NTHUS TEMP50 1 = EXP?12>
1063                     <VEQUAL? CHR20 EXP?12 - PHRASE157>
1064                     <DEAD CHR20 EXP?12>
1065                     <RESTUS FRC?13 1 = FRC?13 (TYPE STRING)>
1066                     <RESTUS TEMP50 1 = TEMP50 (TYPE STRING)>
1067                     <SUB TEMP51 1 = TEMP51 (TYPE FIX)>
1068                     <GRTR? TEMP51 0 + TAG161 (TYPE FIX)>
1069                     <ENDIF "STRING-EQUAL?">
1070                     <GVAL 'IMSUBOB = OBL15>
1071                     <JUMP + COND146>
1072 PHRASE157
1073                     <FRAME '\1aT$ERROR>
1074                     <PUSH '@NON-ATOMIC-NAME>
1075                     <PUSH OBNAM14>
1076                     <DEAD OBNAM14>
1077                     <CALL '\1aT$ERROR 2>
1078 COND146
1079                     <FRAME '\1aT$LOOKUP>
1080                     <PUSH SGN?17>
1081                     <PUSH OBL15>
1082                     <CALL '\1aT$LOOKUP 2 = EXP?12>
1083                     <TYPE? EXP?12 <TYPE-CODE FALSE> - BOOL170>
1084                     <FRAME '\1aT$INSERT>
1085                     <PUSH SGN?17>
1086                     <DEAD SGN?17>
1087                     <PUSH OBL15>
1088                     <DEAD OBL15>
1089                     <CALL '\1aT$INSERT 2 = EXP?12>
1090                     <RETURN EXP?12>
1091                     <DEAD EXP?12>
1092 PHRASE145
1093                     <NTHUS SGN?17 1 = TEMP50 (TYPE CHARACTER)>
1094                     <VEQUAL? TEMP50 !\@ - PHRASE166>
1095                     <DEAD TEMP50>
1096                     <FRAME '\1aT$LOOKUP>
1097                     <RESTUS SGN?17 1 = STACK (TYPE STRING)>
1098                     <GVAL 'EROBLIST = STACK>
1099                     <CALL '\1aT$LOOKUP 2 = EXP?12>
1100                     <TYPE? EXP?12 <TYPE-CODE FALSE> - BOOL170>
1101                     <FRAME '\1aT$INSERT>
1102                     <RESTUS SGN?17 1 = STACK (TYPE STRING)>
1103                     <DEAD SGN?17>
1104                     <GVAL 'EROBLIST = STACK>
1105                     <CALL '\1aT$INSERT 2 = EXP?12>
1106                     <RETURN EXP?12>
1107                     <DEAD EXP?12>
1108 PHRASE166
1109                     <FRAME '\1aT$LOOKUP>
1110                     <PUSH SGN?17>
1111                     <GVAL 'M$$INTERNAL = STACK>
1112                     <CALL '\1aT$LOOKUP 2 = EXP?12>
1113                     <TYPE? EXP?12 <TYPE-CODE FALSE> - BOOL170>
1114                     <FRAME '\1aT$INSERT>
1115                     <PUSH SGN?17>
1116                     <DEAD SGN?17>
1117                     <GVAL 'M$$INTERNAL = STACK>
1118                     <CALL '\1aT$INSERT 2 = EXP?12>
1119 BOOL170
1120                     <RETURN EXP?12>
1121                     <DEAD EXP?12>
1122                     <END \1aI$PNUMBER>
1123
1124 #WORD *13422024236*
1125                     <GFCN \1aT$FLOAD ("VALUE" ANY <OR STRING FALSE> "OPTIONAL" <OR STRING FALSE>) STR6 OSTR7>
1126                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
1127 OPT4
1128                     <PUSH %<>>
1129 OPT5
1130                     <TEMP C8 VAL15>
1131                     <INTGO>
1132                     <TYPE? STR6 <TYPE-CODE FALSE> + PHRASE10>
1133                     <FRAME '\1aT$OPEN>
1134                     <PUSH "READ">
1135                     <PUSH STR6>
1136                     <DEAD STR6>
1137                     <CALL '\1aT$OPEN 2 = C8>
1138                     <TYPE? C8 <TYPE-CODE FALSE> + PHRASE10>
1139                     <LOOP>
1140 AGAIN16
1141                     <INTGO>
1142                     <FRAME '\1aT$READ>
1143                     <PUSH C8>
1144                     <CALL '\1aT$READ 1 = VAL15>
1145                     <TYPE? VAL15 <TYPE-CODE T$UNBOUND> + EXIT13>
1146                     <FRAME '\1aT$EVAL>
1147                     <PUSH VAL15>
1148                     <DEAD VAL15>
1149                     <CALL '\1aT$EVAL 1>
1150                     <JUMP + AGAIN16>
1151 EXIT13
1152                     <FRAME '\1aT$CLOSE>
1153                     <PUSH C8>
1154                     <DEAD C8>
1155                     <CALL '\1aT$CLOSE 1>
1156                     <RETURN "DONE">
1157 PHRASE10
1158                     <TYPE? OSTR7 <TYPE-CODE FALSE> + PHRASE24>
1159                     <FRAME '\1aT$FLOAD>
1160                     <PUSH OSTR7>
1161                     <DEAD OSTR7>
1162                     <PUSH %<>>
1163                     <CALL '\1aT$FLOAD 2 = C8>
1164                     <RETURN C8>
1165                     <DEAD C8>
1166 PHRASE24
1167                     <RETURN C8>
1168                     <DEAD C8>
1169                     <END \1aT$FLOAD>
1170
1171 #WORD *32157304630*
1172                     <GFCN \1aT$CLOSE ("VALUE" <VECTOR FIX> VECTOR) CHAN4>
1173                     <TEMP CNUM5:FIX>
1174                     <INTGO>
1175                     <NTHUV CHAN4 1 = CNUM5 (TYPE FIX)>
1176                     <CLOSE CNUM5>
1177                     <DEAD CNUM5>
1178                     <PUTUV CHAN4 1 0 (TYPE FIX)>
1179                     <RETURN CHAN4>
1180                     <DEAD CHAN4>
1181                     <END \1aT$CLOSE>
1182
1183 #WORD *31574730512*
1184                     <GFCN \1aT$OPEN ("VALUE" <OR FALSE <VECTOR FIX STRING STRING STRING FIX FIX FIX FIX FIX STRING FIX FIX FIX>> STRING STRING "OPTIONAL" FIX) DIR6 FNM7 RADX8>
1185                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
1186 OPT4
1187                     <PUSH 10>
1188 OPT5
1189                     <TEMP ID9 TEMP13>
1190                     <INTGO>
1191                     <OPEN 0 7 FNM7 = ID9>
1192                     <SET TEMP13 ID9>
1193                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE12>
1194                     <PUSH ID9>
1195                     <DEAD ID9>
1196                     <PUSH DIR6>
1197                     <DEAD DIR6>
1198                     <PUSH "FOO">
1199                     <PUSH FNM7>
1200                     <DEAD FNM7>
1201                     <PUSH 79>
1202                     <PUSH 0>
1203                     <PUSH 24>
1204                     <PUSH 0>
1205                     <PUSH 10>
1206                     <PUSH "////////////////////////////////////////
1207 ////////////////////////////////////////
1208 ////////////////////////////////////////
1209 ////////////////////////////////////////
1210 ////////////////////////////////////////
1211 //////////////////////////////////////////////">
1212                     <PUSH 0>
1213                     <PUSH 0>
1214                     <PUSH 0>
1215                     <UBLOCK <TYPE-CODE VECTOR> 13 = ID9>
1216                     <SETG 'BI$NCHR %<>>
1217                     <SET TEMP13 ID9>
1218                     <DEAD ID9>
1219 PHRASE12
1220                     <RETURN TEMP13>
1221                     <DEAD TEMP13>
1222                     <END \1aT$OPEN>
1223
1224 #WORD *10047651454*
1225                     <GFCN \1aT$CHTYPE ("VALUE" ANY ANY ATOM) ITM4 TYP5>
1226                     <TEMP SPN6:STRING TEMP10 TEMP11:STRING TEMP12 TEMP13 TEMP14 TYPC7:FIX>
1227                     <INTGO>
1228                     <NTHR TYP5 3 = SPN6 (RECORD-TYPE ATOM) (TYPE STRING)>
1229                     <DEAD TYP5>
1230                     <IFCAN "STRING-EQUAL?">
1231                     <STRING-EQUAL? SPN6 "MSUBR" - PHRASE9>
1232                     <ENDIF "STRING-EQUAL?">
1233                     <IFCANNOT "STRING-EQUAL?">
1234                     <SET TEMP10 SPN6>
1235                     <SET TEMP11 "MSUBR" (TYPE STRING)>
1236                     <LENUS TEMP10 = TEMP12 (TYPE FIX)>
1237                     <VEQUAL? TEMP12 5 - PHRASE9>
1238                     <LOOP (TEMP10 VALUE LENGTH) (TEMP11 VALUE LENGTH) (TEMP12 VALUE)>
1239 TAG15
1240                     <NTHUS TEMP10 1 = TEMP13>
1241                     <NTHUS TEMP11 1 = TEMP14>
1242                     <VEQUAL? TEMP13 TEMP14 - PHRASE9>
1243                     <DEAD TEMP13 TEMP14>
1244                     <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
1245                     <RESTUS TEMP11 1 = TEMP11 (TYPE STRING)>
1246                     <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
1247                     <GRTR? TEMP12 0 + TAG15 (TYPE FIX)>
1248                     <ENDIF "STRING-EQUAL?">
1249                     <SET TYPC7 647 (TYPE FIX)>
1250                     <JUMP + COND8>
1251 PHRASE9
1252                     <IFCAN "STRING-EQUAL?">
1253                     <STRING-EQUAL? SPN6 "IMSUBR" - PHRASE16>
1254                     <ENDIF "STRING-EQUAL?">
1255                     <IFCANNOT "STRING-EQUAL?">
1256                     <SET TEMP11 SPN6>
1257                     <SET TEMP10 "IMSUBR" (TYPE STRING)>
1258                     <LENUS TEMP11 = TEMP14 (TYPE FIX)>
1259                     <VEQUAL? TEMP14 6 - PHRASE16>
1260                     <LOOP (TEMP11 VALUE LENGTH) (TEMP10 VALUE LENGTH) (TEMP14 VALUE)>
1261 TAG18
1262                     <NTHUS TEMP11 1 = TEMP13>
1263                     <NTHUS TEMP10 1 = TEMP12>
1264                     <VEQUAL? TEMP13 TEMP12 - PHRASE16>
1265                     <DEAD TEMP13 TEMP12>
1266                     <RESTUS TEMP11 1 = TEMP11 (TYPE STRING)>
1267                     <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
1268                     <SUB TEMP14 1 = TEMP14 (TYPE FIX)>
1269                     <GRTR? TEMP14 0 + TAG18 (TYPE FIX)>
1270                     <ENDIF "STRING-EQUAL?">
1271                     <SET TYPC7 2055 (TYPE FIX)>
1272                     <JUMP + COND8>
1273 PHRASE16
1274                     <IFCAN "STRING-EQUAL?">
1275                     <STRING-EQUAL? SPN6 "MCODE" - PHRASE19>
1276                     <ENDIF "STRING-EQUAL?">
1277                     <IFCANNOT "STRING-EQUAL?">
1278                     <SET TEMP10 SPN6>
1279                     <SET TEMP11 "MCODE" (TYPE STRING)>
1280                     <LENUS TEMP10 = TEMP12 (TYPE FIX)>
1281                     <VEQUAL? TEMP12 5 - PHRASE19>
1282                     <LOOP (TEMP10 VALUE LENGTH) (TEMP11 VALUE LENGTH) (TEMP12 VALUE)>
1283 TAG21
1284                     <NTHUS TEMP10 1 = TEMP13>
1285                     <NTHUS TEMP11 1 = TEMP14>
1286                     <VEQUAL? TEMP13 TEMP14 - PHRASE19>
1287                     <DEAD TEMP13 TEMP14>
1288                     <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
1289                     <RESTUS TEMP11 1 = TEMP11 (TYPE STRING)>
1290                     <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
1291                     <GRTR? TEMP12 0 + TAG21 (TYPE FIX)>
1292                     <ENDIF "STRING-EQUAL?">
1293                     <SET TYPC7 518 (TYPE FIX)>
1294                     <JUMP + COND8>
1295 PHRASE19
1296                     <IFCAN "STRING-EQUAL?">
1297                     <STRING-EQUAL? SPN6 "FALSE" - PHRASE22>
1298                     <ENDIF "STRING-EQUAL?">
1299                     <IFCANNOT "STRING-EQUAL?">
1300                     <SET TEMP11 SPN6>
1301                     <SET TEMP10 "FALSE" (TYPE STRING)>
1302                     <LENUS TEMP11 = TEMP14 (TYPE FIX)>
1303                     <VEQUAL? TEMP14 5 - PHRASE22>
1304                     <LOOP (TEMP11 VALUE LENGTH) (TEMP10 VALUE LENGTH) (TEMP14 VALUE)>
1305 TAG24
1306                     <NTHUS TEMP11 1 = TEMP13>
1307                     <NTHUS TEMP10 1 = TEMP12>
1308                     <VEQUAL? TEMP13 TEMP12 - PHRASE22>
1309                     <DEAD TEMP13 TEMP12>
1310                     <RESTUS TEMP11 1 = TEMP11 (TYPE STRING)>
1311                     <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
1312                     <SUB TEMP14 1 = TEMP14 (TYPE FIX)>
1313                     <GRTR? TEMP14 0 + TAG24 (TYPE FIX)>
1314                     <ENDIF "STRING-EQUAL?">
1315                     <SET TYPC7 321 (TYPE FIX)>
1316                     <JUMP + COND8>
1317 PHRASE22
1318                     <IFCAN "STRING-EQUAL?">
1319                     <STRING-EQUAL? SPN6 "I$TERMIN" - PHRASE25>
1320                     <ENDIF "STRING-EQUAL?">
1321                     <IFCANNOT "STRING-EQUAL?">
1322                     <SET TEMP10 SPN6>
1323                     <SET TEMP11 "I$TERMIN" (TYPE STRING)>
1324                     <LENUS TEMP10 = TEMP12 (TYPE FIX)>
1325                     <VEQUAL? TEMP12 8 - PHRASE25>
1326                     <LOOP (TEMP10 VALUE LENGTH) (TEMP11 VALUE LENGTH) (TEMP12 VALUE)>
1327 TAG27
1328                     <NTHUS TEMP10 1 = TEMP13>
1329                     <NTHUS TEMP11 1 = TEMP14>
1330                     <VEQUAL? TEMP13 TEMP14 - PHRASE25>
1331                     <DEAD TEMP13 TEMP14>
1332                     <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
1333                     <RESTUS TEMP11 1 = TEMP11 (TYPE STRING)>
1334                     <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
1335                     <GRTR? TEMP12 0 + TAG27 (TYPE FIX)>
1336                     <ENDIF "STRING-EQUAL?">
1337                     <SET TYPC7 1152 (TYPE FIX)>
1338                     <JUMP + COND8>
1339 PHRASE25
1340                     <IFCAN "STRING-EQUAL?">
1341                     <STRING-EQUAL? SPN6 "UNBOUND" - PHRASE28>
1342                     <ENDIF "STRING-EQUAL?">
1343                     <IFCANNOT "STRING-EQUAL?">
1344                     <SET TEMP11 SPN6>
1345                     <SET TEMP10 "UNBOUND" (TYPE STRING)>
1346                     <LENUS TEMP11 = TEMP14 (TYPE FIX)>
1347                     <VEQUAL? TEMP14 7 - PHRASE28>
1348                     <LOOP (TEMP11 VALUE LENGTH) (TEMP10 VALUE LENGTH) (TEMP14 VALUE)>
1349 TAG30
1350                     <NTHUS TEMP11 1 = TEMP13>
1351                     <NTHUS TEMP10 1 = TEMP12>
1352                     <VEQUAL? TEMP13 TEMP12 - PHRASE28>
1353                     <DEAD TEMP13 TEMP12>
1354                     <RESTUS TEMP11 1 = TEMP11 (TYPE STRING)>
1355                     <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
1356                     <SUB TEMP14 1 = TEMP14 (TYPE FIX)>
1357                     <GRTR? TEMP14 0 + TAG30 (TYPE FIX)>
1358                     <ENDIF "STRING-EQUAL?">
1359                     <SET TYPC7 0 (TYPE FIX)>
1360                     <JUMP + COND8>
1361 PHRASE28
1362                     <FRAME '\1aERROR>
1363                     <PUSH SPN6>
1364                     <DEAD SPN6>
1365                     <CALL '\1aERROR 1>
1366 COND8
1367                     <CHTYPE ITM4 TYPC7 = TEMP10>
1368                     <DEAD ITM4 TYPC7>
1369                     <RETURN TEMP10>
1370                     <DEAD TEMP10>
1371                     <END \1aT$CHTYPE>
1372
1373 #WORD *27456411335*
1374                     <GFCN \1aATOM ("VALUE" ANY STRING) STR4>
1375                     <TEMP TEMP6>
1376                     <INTGO>
1377                     <PUSH STR4>
1378                     <DEAD STR4>
1379                     <UBLOCK <TYPE-CODE STRING> 1 = TEMP6 (TYPE STRING)>
1380                     <RECORD 834 %<> %<> TEMP6 %<> %<> = TEMP6>
1381                     <RETURN TEMP6>
1382                     <DEAD TEMP6>
1383                     <END \1aATOM>
1384
1385 #WORD *4432023751*
1386                     <FCN \1aT$EVAL ("VALUE" ANY ANY) FOO4>
1387                     <TEMP ATM6 TEMP13 TEMP14 TEMP15 TEMP16 TEMP17>
1388                     <INTGO>
1389                     <TYPE? FOO4 <TYPE-CODE FORM> - PHRASE8>
1390                     <EMPL? FOO4 + PHRASE10 (TYPE FORM)>
1391                     <NTHL FOO4 1 = ATM6 (TYPE ATOM)>
1392                     <NTHR ATM6 3 = ATM6 (RECORD-TYPE ATOM) (TYPE STRING)>
1393                     <IFCAN "STRING-EQUAL?">
1394                     <STRING-EQUAL? ATM6 "SETG" - PHRASE12>
1395                     <ENDIF "STRING-EQUAL?">
1396                     <IFCANNOT "STRING-EQUAL?">
1397                     <SET TEMP13 ATM6>
1398                     <SET TEMP14 "SETG" (TYPE STRING)>
1399                     <LENUS TEMP13 = TEMP15 (TYPE FIX)>
1400                     <VEQUAL? TEMP15 4 - PHRASE12>
1401                     <LOOP (TEMP13 VALUE LENGTH) (TEMP14 VALUE LENGTH) (TEMP15 VALUE)>
1402 TAG18
1403                     <NTHUS TEMP13 1 = TEMP16>
1404                     <NTHUS TEMP14 1 = TEMP17>
1405                     <VEQUAL? TEMP16 TEMP17 - PHRASE12>
1406                     <DEAD TEMP16 TEMP17>
1407                     <RESTUS TEMP13 1 = TEMP13 (TYPE STRING)>
1408                     <RESTUS TEMP14 1 = TEMP14 (TYPE STRING)>
1409                     <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
1410                     <GRTR? TEMP15 0 + TAG18 (TYPE FIX)>
1411                     <ENDIF "STRING-EQUAL?">
1412                     <FRAME '\1aT$SETG>
1413                     <RESTL FOO4 1 = TEMP14 (TYPE LIST)>
1414                     <NTHL TEMP14 1 = STACK (TYPE ATOM)>
1415                     <DEAD TEMP14>
1416                     <RESTL FOO4 1 = TEMP14 (TYPE LIST)>
1417                     <DEAD FOO4>
1418                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
1419                     <NTHL TEMP14 1 = STACK>
1420                     <DEAD TEMP14>
1421                     <CALL '\1aT$SETG 2 = TEMP14>
1422                     <RETURN TEMP14>
1423                     <DEAD TEMP14>
1424 PHRASE12
1425                     <IFCAN "STRING-EQUAL?">
1426                     <STRING-EQUAL? ATM6 "GBIND" - PHRASE20>
1427                     <ENDIF "STRING-EQUAL?">
1428                     <IFCANNOT "STRING-EQUAL?">
1429                     <SET TEMP13 ATM6>
1430                     <SET TEMP17 "GBIND" (TYPE STRING)>
1431                     <LENUS TEMP13 = TEMP16 (TYPE FIX)>
1432                     <VEQUAL? TEMP16 5 - PHRASE20>
1433                     <LOOP (TEMP13 VALUE LENGTH) (TEMP17 VALUE LENGTH) (TEMP16 VALUE)>
1434 TAG23
1435                     <NTHUS TEMP13 1 = TEMP14>
1436                     <NTHUS TEMP17 1 = TEMP15>
1437                     <VEQUAL? TEMP14 TEMP15 - PHRASE20>
1438                     <DEAD TEMP14 TEMP15>
1439                     <RESTUS TEMP13 1 = TEMP13 (TYPE STRING)>
1440                     <RESTUS TEMP17 1 = TEMP17 (TYPE STRING)>
1441                     <SUB TEMP16 1 = TEMP16 (TYPE FIX)>
1442                     <GRTR? TEMP16 0 + TAG23 (TYPE FIX)>
1443                     <ENDIF "STRING-EQUAL?">
1444                     <RESTL FOO4 1 = TEMP17 (TYPE LIST)>
1445                     <DEAD FOO4>
1446                     <NTHL TEMP17 1 = ATM6 (TYPE ATOM)>
1447                     <DEAD TEMP17>
1448                     <NTHR ATM6 1 = TEMP17 (RECORD-TYPE ATOM)>
1449                     <VEQUAL? TEMP17 0 - PHRASE25>
1450                     <DEAD TEMP17>
1451                     <FRAME '\1aT$SETG>
1452                     <PUSH ATM6>
1453                     <GVAL 'ZERO = TEMP17>
1454                     <CHTYPE TEMP17 <TYPE-CODE T$UNBOUND> = STACK>
1455                     <DEAD TEMP17>
1456                     <CALL '\1aT$SETG 2>
1457                     <NTHR ATM6 1 = TEMP14 (RECORD-TYPE ATOM)>
1458                     <DEAD ATM6>
1459                     <RETURN TEMP14>
1460                     <DEAD TEMP14>
1461 PHRASE25
1462                     <NTHR ATM6 1 = TEMP14 (RECORD-TYPE ATOM) (TYPE GBIND)>
1463                     <DEAD ATM6>
1464                     <RETURN TEMP14>
1465                     <DEAD TEMP14>
1466 PHRASE20
1467                     <IFCAN "STRING-EQUAL?">
1468                     <STRING-EQUAL? ATM6 "PCODE" - PHRASE27>
1469                     <ENDIF "STRING-EQUAL?">
1470                     <IFCANNOT "STRING-EQUAL?">
1471                     <SET TEMP17 ATM6>
1472                     <SET TEMP13 "PCODE" (TYPE STRING)>
1473                     <LENUS TEMP17 = TEMP15 (TYPE FIX)>
1474                     <VEQUAL? TEMP15 5 - PHRASE27>
1475                     <LOOP (TEMP17 VALUE LENGTH) (TEMP13 VALUE LENGTH) (TEMP15 VALUE)>
1476 TAG29
1477                     <NTHUS TEMP17 1 = TEMP14>
1478                     <NTHUS TEMP13 1 = TEMP16>
1479                     <VEQUAL? TEMP14 TEMP16 - PHRASE27>
1480                     <DEAD TEMP14 TEMP16>
1481                     <RESTUS TEMP17 1 = TEMP17 (TYPE STRING)>
1482                     <RESTUS TEMP13 1 = TEMP13 (TYPE STRING)>
1483                     <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
1484                     <GRTR? TEMP15 0 + TAG29 (TYPE FIX)>
1485                     <ENDIF "STRING-EQUAL?">
1486                     <FRAME '\1aT$PCODE>
1487                     <RESTL FOO4 1 = TEMP13 (TYPE LIST)>
1488                     <NTHL TEMP13 1 = STACK (TYPE FIX)>
1489                     <DEAD TEMP13>
1490                     <RESTL FOO4 1 = TEMP13 (TYPE LIST)>
1491                     <DEAD FOO4>
1492                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
1493                     <NTHL TEMP13 1 = STACK (TYPE STRING)>
1494                     <DEAD TEMP13>
1495                     <CALL '\1aT$PCODE 2 = TEMP14>
1496                     <RETURN TEMP14>
1497                     <DEAD TEMP14>
1498 PHRASE27
1499                     <IFCAN "STRING-EQUAL?">
1500                     <STRING-EQUAL? ATM6 "QUOTE" - PHRASE31>
1501                     <ENDIF "STRING-EQUAL?">
1502                     <IFCANNOT "STRING-EQUAL?">
1503                     <SET TEMP13 ATM6>
1504                     <DEAD ATM6>
1505                     <SET TEMP17 "QUOTE" (TYPE STRING)>
1506                     <LENUS TEMP13 = TEMP16 (TYPE FIX)>
1507                     <VEQUAL? TEMP16 5 - PHRASE31>
1508                     <LOOP (TEMP13 VALUE LENGTH) (TEMP17 VALUE LENGTH) (TEMP16 VALUE)>
1509 TAG33
1510                     <NTHUS TEMP13 1 = TEMP14>
1511                     <NTHUS TEMP17 1 = TEMP15>
1512                     <VEQUAL? TEMP14 TEMP15 - PHRASE31>
1513                     <DEAD TEMP14 TEMP15>
1514                     <RESTUS TEMP13 1 = TEMP13 (TYPE STRING)>
1515                     <RESTUS TEMP17 1 = TEMP17 (TYPE STRING)>
1516                     <SUB TEMP16 1 = TEMP16 (TYPE FIX)>
1517                     <GRTR? TEMP16 0 + TAG33 (TYPE FIX)>
1518                     <ENDIF "STRING-EQUAL?">
1519                     <RETURN FOO4>
1520                     <DEAD FOO4>
1521 PHRASE31
1522                     <FRAME '\1aERROR>
1523                     <PUSH 'LOSER>
1524                     <CALL '\1aERROR 1 = TEMP14>
1525                     <RETURN TEMP14>
1526                     <DEAD TEMP14>
1527 PHRASE10
1528                     <RETURN %<>>
1529 PHRASE8
1530                     <RETURN FOO4>
1531                     <DEAD FOO4>
1532                     <END \1aT$EVAL>
1533
1534 #WORD *33114115217*
1535                     <GFCN \1aI$HASH ("VALUE" FIX STRING "OPTIONAL" FIX) STR6 MOD7>
1536                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
1537 OPT4
1538                     <PUSH 0>
1539 OPT5
1540                     <TEMP (VAL8:FIX 0) OFF9:FIX TEMP19 CHR24>
1541                     <INTGO>
1542                     <IFSYS "UNIX">
1543                     <SET OFF9 32 (TYPE FIX)>
1544                     <ENDIF "UNIX">
1545                     <IFSYS "TOPS20">
1546                     <SET OFF9 36 (TYPE FIX)>
1547                     <ENDIF "TOPS20">
1548                     <SET TEMP19 STR6 (TYPE STRING)>
1549                     <DEAD STR6>
1550                     <LOOP>
1551 MAP14
1552                     <INTGO>
1553                     <EMPUS? TEMP19 + MAPAP17>
1554                     <NTHUS TEMP19 1 = CHR24>
1555                     <IFSYS "UNIX">
1556                     <SUB OFF9 8 = OFF9 (TYPE FIX)>
1557                     <LESS? OFF9 0 - PHRASE29 (TYPE FIX)>
1558                     <SET OFF9 24 (TYPE FIX)>
1559 PHRASE29
1560                     <ENDIF "UNIX">
1561                     <IFSYS "TOPS20">
1562                     <SUB OFF9 7 = OFF9 (TYPE FIX)>
1563                     <LESS? OFF9 0 - PHRASE33 (TYPE FIX)>
1564                     <SET OFF9 29 (TYPE FIX)>
1565 PHRASE33
1566                     <ENDIF "TOPS20">
1567                     <LSH CHR24 OFF9 = CHR24 (TYPE FIX)>
1568                     <XOR VAL8 CHR24 = VAL8>
1569                     <DEAD CHR24>
1570                     <RESTUS TEMP19 1 = TEMP19 (TYPE STRING)>
1571                     <JUMP + MAP14>
1572 MAPAP17
1573                     <AND VAL8 #WORD *377777777777* = VAL8>
1574                     <VEQUAL? MOD7 0 - PHRASE38 (TYPE FIX)>
1575                     <RETURN VAL8>
1576                     <DEAD VAL8>
1577 PHRASE38
1578                     <MOD VAL8 MOD7 = VAL8 (TYPE FIX)>
1579                     <DEAD MOD7>
1580                     <ADD VAL8 1 = TEMP19 (TYPE FIX)>
1581                     <DEAD VAL8>
1582                     <RETURN TEMP19>
1583                     <DEAD TEMP19>
1584                     <END \1aI$HASH>
1585
1586 #WORD *25410374362*
1587                     <GFCN \1aT$LOOKUP ("VALUE" <OR FALSE ATOM> STRING OBLIST) ARG1-4 ARG2-5>
1588                     <TEMP BUCK6 TEMP9 TEMP17 TEMP27 TEMP28 TEMP29 TEMP30>
1589                     <INTGO>
1590                     <GVAL 'M$$OBLIST = BUCK6>
1591                     <FRAME '\1aI$HASH>
1592                     <PUSH ARG1-4>
1593                     <GVAL 'M$$SIZE = STACK>
1594                     <CALL '\1aI$HASH 2 = TEMP9>
1595                     <NTHUV BUCK6 TEMP9 = BUCK6 (TYPE LIST)>
1596                     <DEAD TEMP9>
1597                     <SET TEMP17 %<> (TYPE FALSE)>
1598                     <SET TEMP9 BUCK6 (TYPE LIST)>
1599                     <DEAD BUCK6>
1600                     <LOOP>
1601 MAP11
1602                     <INTGO>
1603                     <EMPL? TEMP9 + MAPAP14>
1604                     <NTHL TEMP9 1 = BUCK6>
1605                     <NTHR BUCK6 4 = TEMP17 (RECORD-TYPE ATOM)>
1606                     <VEQUAL? TEMP17 ARG2-5 + TAG23>
1607                     <DEAD TEMP17>
1608                     <SET TEMP17 %<> (TYPE FALSE)>
1609                     <JUMP + PHRASE21>
1610 TAG23
1611                     <NTHR BUCK6 3 = TEMP17 (RECORD-TYPE ATOM) (TYPE STRING)>
1612                     <IFCAN "STRING-EQUAL?">
1613                     <STRING-EQUAL? TEMP17 ARG1-4 + TAG25>
1614                     <ENDIF "STRING-EQUAL?">
1615                     <IFCANNOT "STRING-EQUAL?">
1616                     <SET TEMP27 ARG1-4>
1617                     <LENUS TEMP17 = TEMP28 (TYPE FIX)>
1618                     <LENUS TEMP27 = TEMP29 (TYPE FIX)>
1619                     <VEQUAL? TEMP28 TEMP29 - TAG26>
1620                     <DEAD TEMP29>
1621                     <LOOP (TEMP17 VALUE LENGTH) (TEMP27 VALUE LENGTH) (TEMP28 VALUE)>
1622 TAG31
1623                     <NTHUS TEMP17 1 = TEMP29>
1624                     <NTHUS TEMP27 1 = TEMP30>
1625                     <VEQUAL? TEMP29 TEMP30 - TAG26>
1626                     <DEAD TEMP29 TEMP30>
1627                     <RESTUS TEMP17 1 = TEMP17 (TYPE STRING)>
1628                     <RESTUS TEMP27 1 = TEMP27 (TYPE STRING)>
1629                     <SUB TEMP28 1 = TEMP28 (TYPE FIX)>
1630                     <GRTR? TEMP28 0 + TAG31 (TYPE FIX)>
1631                     <RETURN BUCK6>
1632                     <DEAD BUCK6>
1633                     <ENDIF "STRING-EQUAL?">
1634 TAG26
1635                     <SET TEMP17 %<> (TYPE FALSE)>
1636                     <JUMP + PHRASE21>
1637 TAG25
1638                     <RETURN BUCK6>
1639                     <DEAD BUCK6>
1640 PHRASE21
1641                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
1642                     <JUMP + MAP11>
1643 MAPAP14
1644                     <RETURN TEMP17>
1645                     <DEAD TEMP17>
1646                     <END \1aT$LOOKUP>
1647
1648 #WORD *11610000175*
1649                     <GFCN \1aT$INSERT ("VALUE" ATOM <OR ATOM STRING> OBLIST) ARG1-4 ARG2-5>
1650                     <TEMP OFF7:FIX TEMP10 ATM6:ATOM TEMP11:LIST>
1651                     <INTGO>
1652                     <FRAME '\1aI$HASH>
1653                     <PUSH ARG1-4>
1654                     <GVAL 'M$$SIZE = STACK>
1655                     <CALL '\1aI$HASH 2 = OFF7>
1656                     <PUSH ARG1-4>
1657                     <DEAD ARG1-4>
1658                     <UBLOCK <TYPE-CODE STRING> 1 = TEMP10 (TYPE STRING)>
1659                     <RECORD 'ATOM %<> %<> TEMP10 %<> %<> = ATM6>
1660                     <DEAD TEMP10>
1661                     <GVAL 'M$$OBLIST = TEMP10>
1662                     <NTHUV TEMP10 OFF7 = TEMP11 (TYPE LIST)>
1663                     <DEAD TEMP10>
1664                     <CONS ATM6 TEMP11 = TEMP11>
1665                     <GVAL 'M$$OBLIST = TEMP10>
1666                     <PUTUV TEMP10 OFF7 TEMP11 (TYPE LIST)>
1667                     <DEAD TEMP10 OFF7 TEMP11>
1668                     <PUTR ATM6 4 ARG2-5 (RECORD-TYPE ATOM)>
1669                     <DEAD ARG2-5>
1670                     <RETURN ATM6>
1671                     <DEAD ATM6>
1672                     <END \1aT$INSERT>
1673
1674 #WORD *7131245207*
1675                     <GFCN \1aT$SETG ("VALUE" ANY ATOM ANY) ARG1-4 ARG2-5>
1676                     <TEMP TEMP9>
1677                     <INTGO>
1678                     <NTHR ARG1-4 1 = TEMP9 (RECORD-TYPE ATOM)>
1679                     <VEQUAL? TEMP9 0 - PHRASE8>
1680                     <DEAD TEMP9>
1681                     <RECORD 'GBIND ARG2-5 ARG1-4 %<> = TEMP9>
1682                     <PUTR ARG1-4 1 TEMP9 (RECORD-TYPE ATOM)>
1683                     <DEAD TEMP9>
1684 PHRASE8
1685                     <NTHR ARG1-4 1 = TEMP9 (RECORD-TYPE ATOM) (TYPE GBIND)>
1686                     <DEAD ARG1-4>
1687                     <PUTR TEMP9 1 ARG2-5 (RECORD-TYPE GBIND)>
1688                     <DEAD TEMP9>
1689                     <RETURN ARG2-5>
1690                     <DEAD ARG2-5>
1691                     <END \1aT$SETG>
1692
1693 #WORD *13063342751*
1694                     <GFCN \1aT$GVAL ("VALUE" ANY ATOM) ARG4>
1695                     <TEMP G5>
1696                     <INTGO>
1697                     <NTHR ARG4 1 = G5 (RECORD-TYPE ATOM)>
1698                     <DEAD ARG4>
1699                     <VEQUAL? G5 0 + PHRASE7>
1700                     <NTHR G5 1 = G5 (RECORD-TYPE GBIND)>
1701 PHRASE7
1702                     <RETURN G5>
1703                     <DEAD G5>
1704                     <END \1aT$GVAL>
1705
1706 #WORD *10205622062*
1707                     <GFCN \1aI$ATOM-INIT ("VALUE" ATOM)>
1708                     <TEMP TEMP5 FOO4>
1709                     <INTGO>
1710                     <GETS 'OBLIST = TEMP5>
1711                     <SETG 'M$$OBLIST TEMP5>
1712                     <DEAD TEMP5>
1713                     <GVAL 'M$$OBLIST = TEMP5>
1714                     <LENUV TEMP5 = TEMP5 (TYPE FIX)>
1715                     <SETG 'M$$SIZE TEMP5>
1716                     <DEAD TEMP5>
1717                     <FRAME '\1aATOM>
1718                     <PUSH "INTERNAL">
1719                     <CALL '\1aATOM 1 = TEMP5>
1720                     <CHTYPE TEMP5 <TYPE-CODE OBLIST> = TEMP5>
1721                     <SETG 'M$$INTERNAL TEMP5>
1722                     <DEAD TEMP5>
1723                     <FRAME '\1aT$INSERT>
1724                     <PUSH "INTERNAL">
1725                     <GVAL 'M$$INTERNAL = STACK>
1726                     <CALL '\1aT$INSERT 2>
1727                     <FRAME '\1aT$INSERT>
1728                     <PUSH "ROOT">
1729                     <GVAL 'M$$INTERNAL = STACK>
1730                     <CALL '\1aT$INSERT 2 = FOO4>
1731                     <CHTYPE FOO4 <TYPE-CODE OBLIST> = TEMP5>
1732                     <SETG 'M$$ROOT TEMP5>
1733                     <DEAD TEMP5>
1734                     <GVAL 'M$$ROOT = TEMP5>
1735                     <PUTR FOO4 4 TEMP5 (RECORD-TYPE ATOM)>
1736                     <DEAD FOO4 TEMP5>
1737                     <FRAME '\1aATOM>
1738                     <PUSH "STRINGS">
1739                     <CALL '\1aATOM 1 = TEMP5>
1740                     <CHTYPE TEMP5 <TYPE-CODE OBLIST> = TEMP5>
1741                     <SETG 'STOBLIST TEMP5>
1742                     <DEAD TEMP5>
1743                     <SET TEMP5 ["AUX" "NAME" "OPTIONAL" "OPT" "EXTRA" "QUOTE" "BIND" "CALL" "ARGS" "TUPLE" "ACT" "DECL" "OWN" "VALUE" "PRINT" "READ" "MUD" "DONE"] (TYPE VECTOR)>
1744                     <LOOP>
1745 MAP11
1746                     <INTGO>
1747                     <EMPUV? TEMP5 + MAPAP14>
1748                     <NTHUV TEMP5 1 = FOO4>
1749                     <FRAME '\1aT$INSERT>
1750                     <PUSH FOO4>
1751                     <DEAD FOO4>
1752                     <GVAL 'STOBLIST = STACK>
1753                     <CALL '\1aT$INSERT 2>
1754                     <RESTUV TEMP5 1 = TEMP5 (TYPE VECTOR)>
1755                     <JUMP + MAP11>
1756 MAPAP14
1757                     <FRAME '\1aT$INSERT>
1758                     <PUSH "ERRORS">
1759                     <GVAL 'M$$ROOT = STACK>
1760                     <CALL '\1aT$INSERT 2 = TEMP5>
1761                     <CHTYPE TEMP5 <TYPE-CODE OBLIST> = TEMP5>
1762                     <SETG 'EROBLIST TEMP5>
1763                     <DEAD TEMP5>
1764                     <FRAME '\1aT$INSERT>
1765                     <PUSH "IMSUBR">
1766                     <GVAL 'M$$ROOT = STACK>
1767                     <CALL '\1aT$INSERT 2 = TEMP5>
1768                     <CHTYPE TEMP5 <TYPE-CODE OBLIST> = TEMP5>
1769                     <SETG 'IMSUBOB TEMP5>
1770                     <DEAD TEMP5>
1771                     <FRAME '\1aT$INSERT>
1772                     <PUSH "STRINGS">
1773                     <GVAL 'M$$ROOT = STACK>
1774                     <CALL '\1aT$INSERT 2>
1775                     <FRAME '\1aT$INSERT>
1776                     <PUSH "QUOTE">
1777                     <GVAL 'M$$ROOT = STACK>
1778                     <CALL '\1aT$INSERT 2>
1779                     <FRAME '\1aT$INSERT>
1780                     <PUSH "LVAL">
1781                     <GVAL 'M$$ROOT = STACK>
1782                     <CALL '\1aT$INSERT 2>
1783                     <FRAME '\1aT$INSERT>
1784                     <PUSH "GVAL">
1785                     <GVAL 'M$$ROOT = STACK>
1786                     <CALL '\1aT$INSERT 2 = TEMP5>
1787                     <RETURN TEMP5>
1788                     <DEAD TEMP5>
1789                     <END \1aI$ATOM-INIT>
1790
1791 #WORD *31411347531*
1792                     <GFCN \1aT$PCODE ("VALUE" T$PCODE FIX STRING) ID4 DBNAM5>
1793                     <TEMP PURVEC7:LIST DBVEC9 CT15:FIX DB17 TEMP22 TEMP23 TEMP24 TEMP25 TEMP26>
1794                     <INTGO>
1795                     <GVAL 'I$PURVEC = PURVEC7>
1796                     <EMPL? PURVEC7 - PHRASE11 (TYPE LIST)>
1797                     <PUSH %<>>
1798                     <PUSH %<>>
1799                     <PUSH %<>>
1800                     <PUSH %<>>
1801                     <PUSH %<>>
1802                     <UBLOCK <TYPE-CODE VECTOR> 5 = DBVEC9>
1803                     <SETG 'I$DBVEC DBVEC9>
1804                     <JUMP + COND10>
1805 PHRASE11
1806                     <GVAL 'I$DBVEC = DBVEC9>
1807 COND10
1808                     <SET CT15 1 (TYPE FIX)>
1809                     <LOOP>
1810 AGAIN18
1811                     <INTGO>
1812                     <NTHUV DBVEC9 1 = DB17>
1813                     <TYPE? DB17 <TYPE-CODE FALSE> + PHRASE20>
1814                     <NTHUV DB17 1 = TEMP22 (TYPE STRING)>
1815                     <IFCAN "STRING-EQUAL?">
1816                     <STRING-EQUAL? TEMP22 DBNAM5 - PHRASE20>
1817                     <ENDIF "STRING-EQUAL?">
1818                     <IFCANNOT "STRING-EQUAL?">
1819                     <SET TEMP23 DBNAM5>
1820                     <LENUS TEMP22 = TEMP24 (TYPE FIX)>
1821                     <LENUS TEMP23 = TEMP25 (TYPE FIX)>
1822                     <VEQUAL? TEMP24 TEMP25 - PHRASE20>
1823                     <DEAD TEMP25>
1824                     <LOOP (TEMP22 VALUE LENGTH) (TEMP23 VALUE LENGTH) (TEMP24 VALUE)>
1825 TAG27
1826                     <NTHUS TEMP22 1 = TEMP25>
1827                     <NTHUS TEMP23 1 = TEMP26>
1828                     <VEQUAL? TEMP25 TEMP26 - PHRASE20>
1829                     <DEAD TEMP25 TEMP26>
1830                     <RESTUS TEMP22 1 = TEMP22 (TYPE STRING)>
1831                     <RESTUS TEMP23 1 = TEMP23 (TYPE STRING)>
1832                     <SUB TEMP24 1 = TEMP24 (TYPE FIX)>
1833                     <GRTR? TEMP24 0 + TAG27 (TYPE FIX)>
1834                     <ENDIF "STRING-EQUAL?">
1835                     <JUMP + EXIT13>
1836 PHRASE20
1837                     <TYPE? DB17 <TYPE-CODE FALSE> - PHRASE28>
1838                     <DEAD DB17>
1839                     <PUSH DBNAM5>
1840                     <DEAD DBNAM5>
1841                     <PUSH %<>>
1842                     <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP23>
1843                     <PUTUV DBVEC9 1 TEMP23>
1844                     <DEAD DBVEC9 TEMP23>
1845                     <JUMP + EXIT13>
1846 PHRASE28
1847                     <ADD CT15 1 = CT15 (TYPE FIX)>
1848                     <RESTUV DBVEC9 1 = DBVEC9 (TYPE VECTOR)>
1849                     <EMPUV? DBVEC9 - AGAIN18 (TYPE VECTOR)>
1850                     <FRAME '\1aT$ERROR>
1851                     <CALL '\1aT$ERROR 0>
1852                     <JUMP + AGAIN18>
1853 EXIT13
1854                     <SET DBVEC9 %<> (TYPE FALSE)>
1855                     <SET TEMP22 PURVEC7 (TYPE LIST)>
1856                     <LOOP>
1857 MAP35
1858                     <INTGO>
1859                     <EMPL? TEMP22 + MAPAP38>
1860                     <NTHL TEMP22 1 = TEMP23>
1861                     <LOOP>
1862 AGAIN45
1863                     <INTGO>
1864                     <NTHUU TEMP23 1 = DBVEC9 (TYPE FIX)>
1865                     <VEQUAL? ID4 DBVEC9 - PHRASE47 (TYPE FIX)>
1866                     <DEAD DBVEC9>
1867                     <NTHUU TEMP23 2 = DBVEC9 (TYPE FIX)>
1868                     <VEQUAL? CT15 DBVEC9 + MAPEX37 (TYPE FIX)>
1869                     <DEAD DBVEC9>
1870 PHRASE47
1871                     <RESTUU TEMP23 5 = TEMP23 (TYPE UVECTOR)>
1872                     <CHTYPE TEMP23 <TYPE-CODE UVECTOR> = TEMP23>
1873                     <EMPUU? TEMP23 - PHRASE51 (TYPE UVECTOR)>
1874                     <SET DBVEC9 %<> (TYPE FALSE)>
1875                     <JUMP + EXIT43>
1876 PHRASE51
1877                     <CHTYPE TEMP23 <TYPE-CODE T$PCODE> = TEMP23>
1878                     <JUMP + AGAIN45>
1879 EXIT43
1880                     <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
1881                     <JUMP + MAP35>
1882 MAPAP38
1883                     <SET TEMP23 DBVEC9>
1884                     <DEAD DBVEC9>
1885 MAPEX37
1886                     <TYPE? TEMP23 <TYPE-CODE FALSE> - PHRASE52>
1887                     <EMPL? PURVEC7 + BOOL55 (TYPE LIST)>
1888                     <NTHL PURVEC7 1 = DBVEC9 (TYPE T$PCODE)>
1889                     <LENUU DBVEC9 = TEMP22 (TYPE FIX)>
1890                     <VEQUAL? TEMP22 100 - PHRASE54 (TYPE FIX)>
1891                     <DEAD TEMP22>
1892 BOOL55
1893                     <UUBLOCK <TYPE-CODE UVECTOR> 100 = TEMP22 (TYPE UVECTOR)>
1894                     <RESTUU TEMP22 95 = TEMP22 (TYPE UVECTOR)>
1895                     <CHTYPE TEMP22 <TYPE-CODE T$PCODE> = DBVEC9>
1896                     <DEAD TEMP22>
1897                     <CONS DBVEC9 () = TEMP22>
1898                     <PUTREST TEMP22 PURVEC7>
1899                     <DEAD PURVEC7>
1900                     <SET PURVEC7 TEMP22>
1901                     <DEAD TEMP22>
1902                     <SETG 'I$PURVEC PURVEC7>
1903 PHRASE54
1904                     <NTHUU DBVEC9 1 = TEMP22 (TYPE FIX)>
1905                     <VEQUAL? TEMP22 0 + PHRASE57 (TYPE FIX)>
1906                     <DEAD TEMP22>
1907                     <BACKU DBVEC9 5 = TEMP22>
1908                     <DEAD DBVEC9>
1909                     <CHTYPE TEMP22 <TYPE-CODE T$PCODE> = DBVEC9>
1910                     <DEAD TEMP22>
1911                     <PUTL PURVEC7 1 DBVEC9>
1912                     <DEAD PURVEC7>
1913 PHRASE57
1914                     <PUTUU DBVEC9 1 ID4>
1915                     <DEAD ID4>
1916                     <PUTUU DBVEC9 2 CT15>
1917                     <DEAD CT15>
1918                     <PUTUU DBVEC9 3 -1>
1919                     <PUTUU DBVEC9 4 0>
1920                     <PUTUU DBVEC9 5 0>
1921                     <SET TEMP23 DBVEC9>
1922                     <DEAD DBVEC9>
1923 PHRASE52
1924                     <RETURN TEMP23>
1925                     <DEAD TEMP23>
1926                     <END \1aT$PCODE>
1927
1928 #WORD *23541226471*
1929                     <GFCN \1aBOOT ("VALUE" ANY "OPTIONAL" FIX) BT6>
1930                     <OPT-DISPATCH 0 %<> OPT4 OPT5>
1931 OPT4
1932                     <PUSH 0>
1933 OPT5
1934                     <TEMP MI9 TEMP12>
1935                     <INTGO>
1936                     <GETS 'MINF = MI9>
1937                     <NTHUU MI9 3 = MI9 (TYPE FIX)>
1938                     <LSH MI9 -2 = MI9 (TYPE FIX)>
1939                     <SETG 'QWSIZ MI9>
1940                     <DEAD MI9>
1941                     <SETG 'ZERO 0>
1942                     <SETG 'BI$RADIX 10>
1943                     <SETG 'INMCODE %<>>
1944                     <SETG 'I$FRC %<>>
1945                     <PUSH 10.0>
1946                     <PUSH 100.0>
1947                     <PUSH 1000.0>
1948                     <PUSH 10000.0>
1949                     <PUSH 100000.0>
1950                     <PUSH 1000000.0>
1951                     <PUSH 10000000.0>
1952                     <UBLOCK <TYPE-CODE VECTOR> 7 = MI9>
1953                     <SETG 'I$POWERS MI9>
1954                     <DEAD MI9>
1955                     <SETG 'BREAKS "     \1a
1956 \f\r\e :">
1957                     <SETG 'BRACKS "|:,[(<>)]\"">
1958                     <SETG 'BI$NCHR %<>>
1959                     <SETG 'I$CONT %<>>
1960                     <SETG 'I$R? %<>>
1961                     <SETG 'BI$STR "">
1962                     <SETG 'I$CHRSTR " ">
1963                     <UUBLOCK <TYPE-CODE VECTOR> 1024 = MI9>
1964                     <SET TEMP12 MI9>
1965                     <LOOP (TEMP12 VALUE LENGTH)>
1966 ISTR13
1967                     <EMPUV? TEMP12 + ISTRE14>
1968                     <PUTUV TEMP12 1 %<>>
1969                     <RESTUV TEMP12 1 = TEMP12>
1970                     <JUMP + ISTR13>
1971 ISTRE14
1972                     <SETG 'M$$R-TAT MI9>
1973                     <DEAD MI9>
1974                     <UUBLOCK <TYPE-CODE VECTOR> 1024 = MI9>
1975                     <SET TEMP12 MI9>
1976                     <LOOP (TEMP12 VALUE LENGTH)>
1977 ISTR15
1978                     <EMPUV? TEMP12 + ISTRE16>
1979                     <PUTUV TEMP12 1 %<>>
1980                     <RESTUV TEMP12 1 = TEMP12>
1981                     <JUMP + ISTR15>
1982 ISTRE16
1983                     <SETG 'M$$R-TDT MI9>
1984                     <DEAD MI9>
1985                     <FRAME '\1aI$ATOM-INIT>
1986                     <CALL '\1aI$ATOM-INIT 0>
1987                     <SETG 'I$PURVEC ()>
1988                     <SETG 'I$DBVEC %<>>
1989                     <PUSH 64>
1990                     <PUSH "">
1991                     <PUSH "">
1992                     <PUSH "">
1993                     <PUSH 79>
1994                     <PUSH 0>
1995                     <PUSH 24>
1996                     <PUSH 0>
1997                     <PUSH 10>
1998                     <PUSH "////////////////////////////////////////
1999 ////////////////////////////////////////
2000 ////////////////////////////////////////
2001 ////////////////////////////////////////
2002 ////////////////////////////////////////
2003 //////////////////////////////////////////////">
2004                     <PUSH 0>
2005                     <PUSH 0>
2006                     <PUSH 0>
2007                     <UBLOCK <TYPE-CODE VECTOR> 13 = MI9>
2008                     <SETG 'I$INCHAN MI9>
2009                     <DEAD MI9>
2010                     <PUSH 65>
2011                     <PUSH "">
2012                     <PUSH "">
2013                     <PUSH "">
2014                     <PUSH 79>
2015                     <PUSH 0>
2016                     <PUSH 24>
2017                     <PUSH 0>
2018                     <PUSH 10>
2019                     <PUSH "////////////////////////////////////////
2020 ////////////////////////////////////////
2021 ////////////////////////////////////////
2022 ////////////////////////////////////////
2023 ////////////////////////////////////////
2024 //////////////////////////////////////////////">
2025                     <PUSH 0>
2026                     <PUSH 0>
2027                     <PUSH 0>
2028                     <VEQUAL? BT6 0 - PHRASE21 (TYPE FIX)>
2029                     <FRAME '\1aT$FLOAD>
2030                     <PUSH "APPLY.MBIN">
2031                     <PUSH "APPLY.MSUBR">
2032                     <CALL '\1aT$FLOAD 2>
2033                     <FRAME '\1aT$FLOAD>
2034                     <PUSH "ARITH.MBIN">
2035                     <PUSH "ARITH.MSUBR">
2036                     <CALL '\1aT$FLOAD 2>
2037                     <FRAME '\1aT$FLOAD>
2038                     <PUSH "ATOM.MBIN">
2039                     <PUSH "ATOM.MSUBR">
2040                     <CALL '\1aT$FLOAD 2>
2041                     <IFSYS "UNIX">
2042                     <FRAME '\1aT$FLOAD>
2043                     <PUSH "BUFFERS.MBIN">
2044                     <PUSH "BUFFERS.MSUBR">
2045                     <CALL '\1aT$FLOAD 2>
2046                     <ENDIF "UNIX">
2047                     <FRAME '\1aT$FLOAD>
2048                     <PUSH "CHANNELS.MBIN">
2049                     <PUSH "CHANNELS.MSUBR">
2050                     <CALL '\1aT$FLOAD 2>
2051                     <FRAME '\1aT$FLOAD>
2052                     <PUSH "DECL.MBIN">
2053                     <PUSH "DECL.MSUBR">
2054                     <CALL '\1aT$FLOAD 2>
2055                     <FRAME '\1aT$FLOAD>
2056                     <PUSH "DEFAULT.MBIN">
2057                     <PUSH "DEFAULT.MSUBR">
2058                     <CALL '\1aT$FLOAD 2>
2059                     <FRAME '\1aT$FLOAD>
2060                     <PUSH "DISK.MBIN">
2061                     <PUSH "DISK.MSUBR">
2062                     <CALL '\1aT$FLOAD 2>
2063                     <FRAME '\1aT$FLOAD>
2064                     <PUSH "FRAME.MSUBR">
2065                     <CALL '\1aT$FLOAD 1>
2066                     <FRAME '\1aT$FLOAD>
2067                     <PUSH "FS.MSUBR">
2068                     <CALL '\1aT$FLOAD 1>
2069                     <FRAME '\1aT$FLOAD>
2070                     <PUSH "FSUBRS.MBIN">
2071                     <PUSH "FSUBRS.MSUBR">
2072                     <CALL '\1aT$FLOAD 2>
2073                     <FRAME '\1aT$FLOAD>
2074                     <PUSH "IO-UTILS.MBIN">
2075                     <PUSH "IO-UTILS.MSUBR">
2076                     <CALL '\1aT$FLOAD 2>
2077                     <FRAME '\1aT$FLOAD>
2078                     <PUSH "LOC.MBIN">
2079                     <PUSH "LOC.MSUBR">
2080                     <CALL '\1aT$FLOAD 2>
2081                     <FRAME '\1aT$FLOAD>
2082                     <PUSH "MAPPUR.MSUBR">
2083                     <CALL '\1aT$FLOAD 1>
2084                     <FRAME '\1aT$FLOAD>
2085                     <PUSH "PCK.MBIN">
2086                     <PUSH "PCK.MSUBR">
2087                     <CALL '\1aT$FLOAD 2>
2088                     <FRAME '\1aT$FLOAD>
2089                     <PUSH "PMAP.MSUBR">
2090                     <CALL '\1aT$FLOAD 1>
2091                     <FRAME '\1aT$FLOAD>
2092                     <PUSH "PRINT.MBIN">
2093                     <PUSH "PRINT.MSUBR">
2094                     <CALL '\1aT$FLOAD 2>
2095                     <FRAME '\1aT$FLOAD>
2096                     <PUSH "REUSE.MBIN">
2097                     <PUSH "REUSE.MSUBR">
2098                     <CALL '\1aT$FLOAD 2>
2099                     <FRAME '\1aT$FLOAD>
2100                     <PUSH "READ.MBIN">
2101                     <PUSH "READ.MSUBR">
2102                     <CALL '\1aT$FLOAD 2>
2103                     <FRAME '\1aT$FLOAD>
2104                     <PUSH "STRUC.MBIN">
2105                     <PUSH "STRUC.MSUBR">
2106                     <CALL '\1aT$FLOAD 2>
2107                     <FRAME '\1aT$FLOAD>
2108                     <PUSH "TYPE.MBIN">
2109                     <PUSH "TYPE.MSUBR">
2110                     <CALL '\1aT$FLOAD 2>
2111                     <FRAME '\1aT$FLOAD>
2112                     <PUSH "TYPINI.MSUBR">
2113                     <CALL '\1aT$FLOAD 1>
2114                     <FRAME '\1aT$FLOAD>
2115                     <PUSH "USER-IO.MBIN">
2116                     <PUSH "USER-IO.MSUBR">
2117                     <CALL '\1aT$FLOAD 2>
2118                     <JUMP + PHRASE64>
2119 PHRASE21
2120                     <VEQUAL? BT6 1 - PHRASE49 (TYPE FIX)>
2121                     <FRAME '\1aT$FLOAD>
2122                     <PUSH "BIG.MBIN">
2123                     <PUSH "BIG.MSUBR">
2124                     <CALL '\1aT$FLOAD 2>
2125                     <FRAME '\1aT$FLOAD>
2126                     <PUSH "BIGIO.MBIN">
2127                     <PUSH "BIGIO.MSUBR">
2128                     <CALL '\1aT$FLOAD 2>
2129                     <FRAME '\1aT$FLOAD>
2130                     <PUSH "IO-UTILS.MBIN">
2131                     <PUSH "IO-UTILS.MSUBR">
2132                     <CALL '\1aT$FLOAD 2>
2133                     <FRAME '\1aT$FLOAD>
2134                     <PUSH "USER-IO.MBIN">
2135                     <PUSH "USER-IO.MSUBR">
2136                     <CALL '\1aT$FLOAD 2>
2137                     <FRAME '\1aT$FLOAD>
2138                     <PUSH "DEFAULT.MBIN">
2139                     <PUSH "DEFAULT.MSUBR">
2140                     <CALL '\1aT$FLOAD 2>
2141                     <FRAME '\1aT$FLOAD>
2142                     <PUSH "FRAME.MSUBR">
2143                     <CALL '\1aT$FLOAD 1>
2144                     <FRAME '\1aT$FLOAD>
2145                     <PUSH "FS.MSUBR">
2146                     <CALL '\1aT$FLOAD 1>
2147                     <FRAME '\1aT$FLOAD>
2148                     <PUSH "MAPPUR.MSUBR">
2149                     <CALL '\1aT$FLOAD 1>
2150                     <FRAME '\1aT$FLOAD>
2151                     <PUSH "PCK.MBIN">
2152                     <PUSH "PCK.MSUBR">
2153                     <CALL '\1aT$FLOAD 2>
2154                     <FRAME '\1aT$FLOAD>
2155                     <PUSH "PMAP.MSUBR">
2156                     <CALL '\1aT$FLOAD 1>
2157                     <FRAME '\1aT$FLOAD>
2158                     <PUSH "REUSE.MBIN">
2159                     <PUSH "REUSE.MSUBR">
2160                     <CALL '\1aT$FLOAD 2>
2161                     <FRAME '\1aT$FLOAD>
2162                     <PUSH "TYPINI.MSUBR">
2163                     <CALL '\1aT$FLOAD 1>
2164                     <JUMP + PHRASE64>
2165 PHRASE49
2166                     <VEQUAL? BT6 -1 - PHRASE64 (TYPE FIX)>
2167                     <FRAME '\1aT$FLOAD>
2168                     <PUSH "APPLY.MSUBR">
2169                     <CALL '\1aT$FLOAD 1>
2170                     <FRAME '\1aT$FLOAD>
2171                     <PUSH "ARITH.MSUBR">
2172                     <CALL '\1aT$FLOAD 1>
2173                     <FRAME '\1aT$FLOAD>
2174                     <PUSH "ATOM.MSUBR">
2175                     <CALL '\1aT$FLOAD 1>
2176                     <IFSYS "UNIX">
2177                     <FRAME '\1aT$FLOAD>
2178                     <PUSH "BUFFERS.MSUBR">
2179                     <CALL '\1aT$FLOAD 1>
2180                     <ENDIF "UNIX">
2181                     <FRAME '\1aT$FLOAD>
2182                     <PUSH "CHANNELS.MSUBR">
2183                     <CALL '\1aT$FLOAD 1>
2184                     <FRAME '\1aT$FLOAD>
2185                     <PUSH "DECL.MSUBR">
2186                     <CALL '\1aT$FLOAD 1>
2187                     <FRAME '\1aT$FLOAD>
2188                     <PUSH "DEFAULT.MSUBR">
2189                     <CALL '\1aT$FLOAD 1>
2190                     <FRAME '\1aT$FLOAD>
2191                     <PUSH "DISK.MSUBR">
2192                     <CALL '\1aT$FLOAD 1>
2193                     <FRAME '\1aT$FLOAD>
2194                     <PUSH "FRAME.MSUBR">
2195                     <CALL '\1aT$FLOAD 1>
2196                     <FRAME '\1aT$FLOAD>
2197                     <PUSH "FS.MSUBR">
2198                     <CALL '\1aT$FLOAD 1>
2199                     <FRAME '\1aT$FLOAD>
2200                     <PUSH "FSUBRS.MSUBR">
2201                     <CALL '\1aT$FLOAD 1>
2202                     <FRAME '\1aT$FLOAD>
2203                     <PUSH "IO-UTILS.MSUBR">
2204                     <CALL '\1aT$FLOAD 1>
2205                     <FRAME '\1aT$FLOAD>
2206                     <PUSH "LOC.MSUBR">
2207                     <CALL '\1aT$FLOAD 1>
2208                     <IFSYS "TOPS20">
2209                     <FRAME '\1aT$FLOAD>
2210                     <PUSH "MAPPUR.MSUBR">
2211                     <CALL '\1aT$FLOAD 1>
2212                     <ENDIF "TOPS20">
2213                     <FRAME '\1aT$FLOAD>
2214                     <PUSH "PCK.MSUBR">
2215                     <CALL '\1aT$FLOAD 1>
2216                     <FRAME '\1aT$FLOAD>
2217                     <PUSH "PMAP.MSUBR">
2218                     <CALL '\1aT$FLOAD 1>
2219                     <FRAME '\1aT$FLOAD>
2220                     <PUSH "PRINT.MSUBR">
2221                     <CALL '\1aT$FLOAD 1>
2222                     <FRAME '\1aT$FLOAD>
2223                     <PUSH "READ.MSUBR">
2224                     <CALL '\1aT$FLOAD 1>
2225                     <FRAME '\1aT$FLOAD>
2226                     <PUSH "STRUC.MSUBR">
2227                     <CALL '\1aT$FLOAD 1>
2228                     <FRAME '\1aT$FLOAD>
2229                     <PUSH "TYPE.MSUBR">
2230                     <CALL '\1aT$FLOAD 1>
2231                     <FRAME '\1aT$FLOAD>
2232                     <PUSH "TYPINI.MSUBR">
2233                     <CALL '\1aT$FLOAD 1>
2234                     <FRAME '\1aT$FLOAD>
2235                     <PUSH "USER-IO.MSUBR">
2236                     <CALL '\1aT$FLOAD 1>
2237 PHRASE64
2238                     <FRAME>
2239                     <FRAME '\1aLOOKUP>
2240                     <PUSH "I$INITIALIZE">
2241                     <GVAL 'M$$INTERNAL = STACK>
2242                     <CALL '\1aLOOKUP 2 = MI9>
2243                     <PUSH BT6>
2244                     <DEAD BT6>
2245                     <GVAL 'M$$ROOT = STACK>
2246                     <GVAL 'M$$INTERNAL = STACK>
2247                     <GVAL 'STOBLIST = STACK>
2248                     <GVAL 'I$PURVEC = STACK>
2249                     <GVAL 'I$DBVEC = STACK>
2250                     <CALL MI9 6 = MI9>
2251                     <RETURN MI9>
2252                     <DEAD MI9>
2253                     <END \1aBOOT>