mim/development/mim/mimc/file-index.mima

   1
   2 <PACKAGE "FILE-INDEX">
   3
   4 <ENTRY BUILD-INDEX SKIP-MIMA>
   5
   6 <SETG BUFLENGTH 1024>
   7
   8 <SETG BUFFER <ISTRING ,BUFLENGTH>>
   9
  10 <SETG MAGIC-CHAR <ASCII 26>>
  11
  12 <SETG LAST-CHAR1 !\0>
  13
  14 <SETG LAST-CHAR2 !\]>
  15
  16 <SETG LAST-CHAR3 !\>>
  17
  18 <SETG WORD-STRING "#WORD ">
  19
  20 <SETG MAGIC-STRING "<SETG ">
  21
  22 <SETG MAGIC-LENGTH <LENGTH ,MAGIC-STRING>>
  23
  24 <SETG MAGIC-MAX <- ,BUFLENGTH ,MAGIC-LENGTH>>
  25
  26 <SETG MAGIC-STRING2 "<END ">
  27
  28 <SETG MAGIC-LENGTH2 <LENGTH ,MAGIC-STRING2>>
  29
  30 <SETG MAGIC-MAX2 <- ,BUFLENGTH ,MAGIC-LENGTH2>>
  31
  32 <SETG IN-ATOM 0>
  33
  34 <SETG NEED-MINUS 1>
  35
  36 <SETG QUOTE-NEXT 2>
  37
  38 <SETG NON-ATOM 3>
  39
  40 <SETG M$$R-EXCL 8>
  41
  42 <SETG M$$R-BACKS 15>
  43
  44 <SETG M$$R-ALPHA 16>
  45
  46 <SETG M$$R-E 17>
  47
  48 <SETG M$$R-DIGIT 19>
  49
  50 <SETG M$$R-PLUS 20>
  51
  52 <SETG M$$R-STAR 21>
  53
  54 <MANIFEST IN-ATOM NEED-MINUS QUOTE-NEXT NON-ATOM M$$R-BACKS M$$R-ALPHA M$$R-EXCL M$$R-E M$$R-DIGIT M$$R-PLUS>
  55
  56 <GDECL (I$TRANS-TABLE!-INTERNAL) BYTES>
  57
  58 <COND (<NOT <GASSIGNED? I$TRANS-TABLE!-INTERNAL>> <SETG I$TRANS-TABLE!-INTERNAL <BYTES 8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 8 5 10 16 12 16 13 2 7 21 20 11 20 18 16 19 19 19 19 19 19 19 19 19 19 0 9 3 16 7 16 16 16 16 16 16 17 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 4 15 7 16 16 16 16 16 16 16 17 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 6 14 7 16 16>>)>
  59
  60 #WORD *7202723056*
  61                     <GFCN \1aGET-ACCESS ("VALUE" FORM "QUOTE" ANY) CHAN4>
  62                     <TEMP TEMP7>
  63                     <INTGO>
  64                     <NTHR 'NEW-CHANNEL-TYPE 1 = TEMP7 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE6) (DEAD-JUMP TEMP7)>
  65                     <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE6 (DEAD-JUMP TEMP7)>
  66                     <NTHR TEMP7 1 = TEMP7 (RECORD-TYPE GBIND)>
  67                     <TYPE? TEMP7 <TYPE-CODE UNBOUND> + PHRASE6>
  68                     <DEAD TEMP7>
  69                     <FRAME '\1aFORM>
  70                     <PUSH 'ACCESS>
  71                     <JUMP + PEEP11>
  72 PHRASE6
  73                     <FRAME '\1aFORM>
  74                     <PUSH 17>
  75 PEEP11
  76                     <PUSH CHAN4>
  77                     <DEAD CHAN4>
  78                     <CALL '\1aFORM 2 = TEMP7>
  79                     <RETURN TEMP7>
  80                     <DEAD TEMP7>
  81                     <END \1aGET-ACCESS>
  82 <COND (<AND <GASSIGNED? GET-ACCESS> <NOT <TYPE? ,GET-ACCESS MACRO>>> <SETG GET-ACCESS <CHTYPE (,GET-ACCESS) MACRO>>)>
  83
  84 #WORD *12143141353*
  85                     <GFCN \1aBUILD-INDEX ("VALUE" LIST CHANNEL OBLIST) CHAN4 OBL5>
  86                     <TEMP B6:STRING BL7:FIX CHAR8:CHARACTER MAXL9:FIX TOTAL-ACCESS10:FIX MS11:STRING ML12:FIX LC1-13:CHARACTER LC2-14:CHARACTER LC3-15:CHARACTER WS17:STRING WRD18 IM-POS28 INDEX29:LIST LEN26:FIX BB37 TEMP46 PL25:FIX START24:STRING WORD-OK20 SETG-OK19 TEMP68 TEMP64 C2-71:CHARACTER C3-72:CHARACTER>
  87                     <INTGO>
  88                     <GVAL 'BUFFER = B6 (TYPE STRING)>
  89                     <GVAL 'BUFLENGTH = BL7 (TYPE FIX)>
  90                     <GVAL 'MAGIC-CHAR = CHAR8 (TYPE CHARACTER)>
  91                     <GVAL 'MAGIC-MAX = MAXL9 (TYPE FIX)>
  92                     <SET TOTAL-ACCESS10 BL7>
  93                     <SUB 0 TOTAL-ACCESS10 = TOTAL-ACCESS10 (TYPE FIX)>
  94                     <GVAL 'MAGIC-STRING = MS11 (TYPE STRING)>
  95                     <GVAL 'MAGIC-LENGTH = ML12 (TYPE FIX)>
  96                     <GVAL 'LAST-CHAR1 = LC1-13 (TYPE CHARACTER)>
  97                     <GVAL 'LAST-CHAR2 = LC2-14 (TYPE CHARACTER)>
  98                     <GVAL 'LAST-CHAR3 = LC3-15 (TYPE CHARACTER)>
  99                     <GVAL 'WORD-STRING = WS17 (TYPE STRING)>
 100                     <SET IM-POS28 %<> (TYPE FALSE)>
 101                     <SET INDEX29 () (TYPE LIST)>
 102                     <LOOP>
 103 AGAIN33
 104                     <INTGO>
 105                     <FRAME '\1aCHANNEL-OP>
 106                     <PUSH CHAN4>
 107                     <PUSH 'READ-BUFFER>
 108                     <PUSH B6>
 109                     <CALL '\1aCHANNEL-OP 3 = LEN26>
 110                     <ADD TOTAL-ACCESS10 BL7 = TOTAL-ACCESS10 (TYPE FIX)>
 111                     <SET BB37 B6>
 112                     <LOOP>
 113 AGAIN38
 114                     <INTGO>
 115                     <EMPUS? BB37 + EXIT35 (DEAD-JUMP BB37)>
 116                     <LOOP (CHAR8 VALUE) (BB37 LENGTH VALUE)>
 117 TAG44
 118                     <NTHUS BB37 1 = TEMP46>
 119                     <VEQUAL? TEMP46 CHAR8 + TAG43>
 120                     <DEAD TEMP46>
 121                     <RESTUS BB37 1 = BB37 (TYPE STRING)>
 122                     <EMPUS? BB37 - TAG44 (DEAD-FALL BB37)>
 123                     <JUMP + EXIT35>
 124 TAG43
 125                     <LENUS BB37 = PL25 (TYPE FIX)>
 126                     <VEQUAL? LEN26 BL7 + BOOL47 (TYPE FIX)>
 127                     <SUB BL7 LEN26 = TEMP46 (TYPE FIX)>
 128                     <GRTR? PL25 TEMP46 - EXIT35 (TYPE FIX) (DEAD-JUMP PL25 BB37)>
 129                     <DEAD TEMP46>
 130 BOOL47
 131                     <GRTR? PL25 MAXL9 - PHRASE55 (TYPE FIX) (DEAD-FALL PL25)>
 132                     <GRTR? TOTAL-ACCESS10 0 - PHRASE51 (TYPE FIX) (DEAD-FALL BB37 LEN26)>
 133                     <FRAME '\1aACCESS>
 134                     <PUSH CHAN4>
 135                     <SUB TOTAL-ACCESS10 ML12 = TOTAL-ACCESS10 (TYPE FIX)>
 136                     <PUSH TOTAL-ACCESS10>
 137                     <CALL '\1aACCESS 2>
 138                     <SUB TOTAL-ACCESS10 BL7 = TOTAL-ACCESS10 (TYPE FIX)>
 139                     <JUMP + AGAIN33>
 140 PHRASE51
 141                     <RESTUS BB37 1 = BB37 (TYPE STRING)>
 142                     <JUMP + AGAIN38>
 143 PHRASE55
 144                     <SUB BL7 PL25 = TEMP46 (TYPE FIX)>
 145                     <DEAD PL25>
 146                     <SUB TEMP46 ML12 = TEMP46 (TYPE FIX)>
 147                     <RESTUS B6 TEMP46 = START24 (TYPE STRING)>
 148                     <DEAD TEMP46>
 149                     <LENUS START24 = PL25 (TYPE FIX)>
 150                     <SET WORD-OK20 'T (TYPE ATOM)>
 151                     <SET SETG-OK19 WORD-OK20>
 152                     <SET TEMP68 %<> (TYPE FALSE)>
 153                     <SET TEMP46 START24 (TYPE STRING)>
 154                     <DEAD START24>
 155                     <SET TEMP64 MS11 (TYPE STRING)>
 156                     <SET START24 WS17 (TYPE STRING)>
 157                     <LOOP>
 158 MAP59
 159                     <INTGO>
 160                     <EMPUS? TEMP46 + MAPAP62 (DEAD-JUMP TEMP64 SETG-OK19 START24 TEMP46)>
 161                     <EMPUS? TEMP64 + MAPAP62 (DEAD-JUMP TEMP64 SETG-OK19 START24 TEMP46)>
 162                     <EMPUS? START24 + MAPAP62 (DEAD-JUMP TEMP64 SETG-OK19 START24 TEMP46) (DEAD-FALL TEMP68)>
 163                     <NTHUS TEMP46 1 = TEMP68>
 164                     <NTHUS TEMP64 1 = C2-71>
 165                     <NTHUS START24 1 = C3-72>
 166                     <VEQUAL? TEMP68 C2-71 + PHRASE74 (DEAD-FALL SETG-OK19)>
 167                     <DEAD C2-71>
 168                     <SET SETG-OK19 %<> (TYPE FALSE)>
 169 PHRASE74
 170                     <VEQUAL? TEMP68 C3-72 + PHRASE76 (DEAD-FALL WORD-OK20)>
 171                     <DEAD TEMP68 C3-72>
 172                     <SET WORD-OK20 %<> (TYPE FALSE)>
 173 PHRASE76
 174                     <SET TEMP68 SETG-OK19>
 175                     <RESTUS TEMP46 1 = TEMP46 (TYPE STRING)>
 176                     <RESTUS TEMP64 1 = TEMP64 (TYPE STRING)>
 177                     <RESTUS START24 1 = START24 (TYPE STRING)>
 178                     <JUMP + MAP59>
 179 MAPAP62
 180                     <TYPE? TEMP68 <TYPE-CODE FALSE> + PHRASE57 (DEAD-FALL WORD-OK20)>
 181                     <DEAD TEMP68>
 182                     <SET TEMP64 0 (TYPE FIX)>
 183                     <LOOP>
 184 MAP78
 185                     <INTGO>
 186                     <RESTUS BB37 1 = BB37 (TYPE STRING)>
 187                     <EMPUS? BB37 - PHRASE86 (TYPE STRING) (DEAD-FALL BB37)>
 188                     <ADD PL25 BL7 = PL25 (TYPE FIX)>
 189                     <LESS? LEN26 BL7 - PHRASE88 (TYPE FIX)>
 190                     <DEAD LEN26>
 191                     <FRAME '\1aERROR>
 192                     <PUSH 'BAD-FILE!-ERRORS>
 193                     <PUSH CHAN4>
 194                     <CALL '\1aERROR 2>
 195 PHRASE88
 196                     <FRAME '\1aCHANNEL-OP>
 197                     <PUSH CHAN4>
 198                     <PUSH 'READ-BUFFER>
 199                     <PUSH B6>
 200                     <CALL '\1aCHANNEL-OP 3 = LEN26>
 201                     <ADD TOTAL-ACCESS10 BL7 = TOTAL-ACCESS10 (TYPE FIX)>
 202                     <SET BB37 B6>
 203 PHRASE86
 204                     <NTHUS BB37 1 = TEMP68 (TYPE CHARACTER)>
 205                     <VEQUAL? TEMP68 !\  + MAPAP81 (DEAD-JUMP TEMP68)>
 206                     <VEQUAL? TEMP68 !\! + MAPAP81 (DEAD-JUMP TEMP68)>
 207                     <SET TEMP46 TEMP68>
 208                     <DEAD TEMP68>
 209                     <PUSH TEMP46>
 210                     <DEAD TEMP46>
 211                     <ADD TEMP64 1 = TEMP64 (TYPE FIX)>
 212                     <JUMP + MAP78>
 213 MAPAP81
 214                     <UBLOCK <TYPE-CODE STRING> TEMP64 = TEMP46 (TYPE STRING)>
 215                     <DEAD TEMP64>
 216                     <FRAME '\1aLOOKUP>
 217                     <PUSH TEMP46>
 218                     <PUSH OBL5>
 219                     <CALL '\1aLOOKUP 2 = WORD-OK20>
 220                     <TYPE? WORD-OK20 <TYPE-CODE FALSE> - BOOL96 (DEAD-JUMP TEMP46) (DEAD-FALL WORD-OK20)>
 221                     <FRAME '\1aINSERT>
 222                     <PUSH TEMP46>
 223                     <DEAD TEMP46>
 224                     <PUSH OBL5>
 225                     <CALL '\1aINSERT 2 = WORD-OK20>
 226 BOOL96
 227                     <TYPE? IM-POS28 <TYPE-CODE FALSE> + PHRASE100 (DEAD-JUMP WORD-OK20 IM-POS28) (DEAD-FALL PL25)>
 228                     <LOOP>
 229 AGAIN103
 230                     <INTGO>
 231                     <SET TEMP68 BB37>
 232                     <DEAD BB37>
 233                     <EMPUS? TEMP68 + PHRASE105 (DEAD-JUMP TEMP68 LEN26)>
 234                     <LOOP (LC1-13 VALUE) (TEMP68 LENGTH VALUE)>
 235 TAG108
 236                     <NTHUS TEMP68 1 = TEMP46>
 237                     <VEQUAL? TEMP46 LC1-13 + TAG107>
 238                     <DEAD TEMP46>
 239                     <RESTUS TEMP68 1 = TEMP68 (TYPE STRING)>
 240                     <EMPUS? TEMP68 - TAG108 (DEAD-FALL TEMP68 LEN26)>
 241                     <JUMP + PHRASE105>
 242 TAG107
 243                     <SET BB37 TEMP68>
 244                     <DEAD TEMP68>
 245                     <RESTUS BB37 1 = BB37 (TYPE STRING)>
 246                     <LOOP>
 247 AGAIN111
 248                     <INTGO>
 249                     <EMPUS? BB37 - PHRASE113 (TYPE STRING) (DEAD-FALL BB37 LEN26)>
 250                     <FRAME '\1aCHANNEL-OP>
 251                     <PUSH CHAN4>
 252                     <PUSH 'READ-BUFFER>
 253                     <PUSH B6>
 254                     <CALL '\1aCHANNEL-OP 3 = LEN26>
 255                     <SET BB37 B6>
 256                     <ADD TOTAL-ACCESS10 BL7 = TOTAL-ACCESS10 (TYPE FIX)>
 257 PHRASE113
 258                     <NTHUS BB37 1 = TEMP68 (TYPE CHARACTER)>
 259                     <GRTR? TEMP68 32 + PHRASE116 (TYPE FIX)>
 260                     <DEAD TEMP68>
 261                     <RESTUS BB37 1 = BB37 (TYPE STRING)>
 262                     <JUMP + AGAIN111>
 263 PHRASE116
 264                     <NTHUS BB37 1 = TEMP68 (TYPE CHARACTER)>
 265                     <VEQUAL? TEMP68 LC2-14 - AGAIN103>
 266                     <DEAD TEMP68>
 267                     <RESTUS BB37 1 = BB37 (TYPE STRING)>
 268                     <LOOP>
 269 AGAIN120
 270                     <INTGO>
 271                     <EMPUS? BB37 - PHRASE122 (TYPE STRING) (DEAD-FALL BB37 LEN26)>
 272                     <FRAME '\1aCHANNEL-OP>
 273                     <PUSH CHAN4>
 274                     <PUSH 'READ-BUFFER>
 275                     <PUSH B6>
 276                     <CALL '\1aCHANNEL-OP 3 = LEN26>
 277                     <SET BB37 B6>
 278                     <ADD TOTAL-ACCESS10 BL7 = TOTAL-ACCESS10 (TYPE FIX)>
 279 PHRASE122
 280                     <NTHUS BB37 1 = TEMP68 (TYPE CHARACTER)>
 281                     <GRTR? TEMP68 32 + PHRASE125 (TYPE FIX)>
 282                     <DEAD TEMP68>
 283                     <RESTUS BB37 1 = BB37 (TYPE STRING)>
 284                     <JUMP + AGAIN120>
 285 PHRASE125
 286                     <NTHUS BB37 1 = TEMP46 (TYPE CHARACTER)>
 287                     <VEQUAL? TEMP46 LC3-15 - AGAIN103>
 288                     <DEAD TEMP46>
 289                     <RESTUS BB37 1 = BB37 (TYPE STRING)>
 290                     <JUMP + PHRASE128>
 291 PHRASE105
 292                     <FRAME '\1aCHANNEL-OP>
 293                     <PUSH CHAN4>
 294                     <PUSH 'READ-BUFFER>
 295                     <PUSH B6>
 296                     <CALL '\1aCHANNEL-OP 3 = LEN26>
 297                     <SET BB37 B6>
 298                     <ADD TOTAL-ACCESS10 BL7 = TOTAL-ACCESS10 (TYPE FIX)>
 299                     <JUMP + AGAIN103>
 300 PHRASE128
 301                     <TYPE? WRD18 <TYPE-CODE UNBOUND> + PHRASE131>
 302                     <CHTYPE WRD18 <TYPE-CODE WORD> = TEMP46>
 303                     <CONS TEMP46 () = TEMP46>
 304                     <JUMP + PHRASE132>
 305 PHRASE131
 306                     <SET TEMP46 () (TYPE LIST)>
 307 PHRASE132
 308                     <LENUS BB37 = PL25 (TYPE FIX)>
 309                     <SUB BL7 PL25 = PL25 (TYPE FIX)>
 310                     <ADD PL25 TOTAL-ACCESS10 = PL25 (TYPE FIX)>
 311                     <CONS PL25 TEMP46 = TEMP46>
 312                     <DEAD PL25>
 313                     <CONS IM-POS28 TEMP46 = TEMP46>
 314                     <DEAD IM-POS28>
 315                     <CONS WORD-OK20 TEMP46 = TEMP46>
 316                     <DEAD WORD-OK20>
 317                     <CONS TEMP46 INDEX29 = INDEX29>
 318                     <DEAD TEMP46>
 319                     <SET IM-POS28 %<> (TYPE FALSE)>
 320                     <JUMP + AGAIN38>
 321 PHRASE100
 322                     <SUB BL7 PL25 = TEMP46 (TYPE FIX)>
 323                     <DEAD PL25>
 324                     <ADD TEMP46 TOTAL-ACCESS10 = IM-POS28 (TYPE FIX)>
 325                     <DEAD TEMP46>
 326                     <JUMP + AGAIN38>
 327 PHRASE57
 328                     <VEQUAL? WORD-OK20 0 + AGAIN38 (DEAD-FALL WRD18)>
 329                     <SET WRD18 0 (TYPE FIX)>
 330                     <LOOP>
 331 MAP138
 332                     <INTGO>
 333                     <RESTUS BB37 1 = BB37 (TYPE STRING)>
 334                     <EMPUS? BB37 - PHRASE146 (TYPE STRING) (DEAD-FALL BB37)>
 335                     <ADD PL25 BL7 = PL25 (TYPE FIX)>
 336                     <LESS? LEN26 BL7 - PHRASE148 (TYPE FIX)>
 337                     <DEAD LEN26>
 338                     <FRAME '\1aERROR>
 339                     <PUSH 'BAD-FILE!-ERRORS>
 340                     <PUSH CHAN4>
 341                     <CALL '\1aERROR 2>
 342 PHRASE148
 343                     <FRAME '\1aCHANNEL-OP>
 344                     <PUSH CHAN4>
 345                     <PUSH 'READ-BUFFER>
 346                     <PUSH B6>
 347                     <CALL '\1aCHANNEL-OP 3 = LEN26>
 348                     <ADD TOTAL-ACCESS10 BL7 = TOTAL-ACCESS10 (TYPE FIX)>
 349                     <SET BB37 B6>
 350 PHRASE146
 351                     <NTHUS BB37 1 = TEMP68 (TYPE CHARACTER)>
 352                     <VEQUAL? TEMP68 !\* - PHRASE152 (DEAD-FALL TEMP68)>
 353                     <VEQUAL? WORD-OK20 0 + AGAIN38>
 354                     <DEAD WORD-OK20>
 355                     <SET WORD-OK20 %<> (TYPE FALSE)>
 356                     <JUMP + MAP138>
 357 PHRASE152
 358                     <VEQUAL? WORD-OK20 0 - MAP138>
 359                     <LSH WRD18 3 = WRD18 (TYPE FIX)>
 360                     <SUB TEMP68 48 = TEMP46 (TYPE FIX)>
 361                     <DEAD TEMP68>
 362                     <OR WRD18 TEMP46 = WRD18>
 363                     <DEAD TEMP46>
 364                     <JUMP + MAP138>
 365 EXIT35
 366                     <VEQUAL? LEN26 BL7 + AGAIN33 (TYPE FIX) (DEAD-FALL OBL5 CHAN4 IM-POS28 WRD18 WS17 LC3-15 LC2-14 LC1-13 ML12 MS11 TOTAL-ACCESS10 MAXL9 CHAR8 BL7 B6)>
 367                     <DEAD LEN26>
 368                     <RETURN INDEX29>
 369                     <DEAD INDEX29>
 370                     <END \1aBUILD-INDEX>
 371
 372 #WORD *36034653121*
 373                     <GFCN \1aSKIP-MIMA ("VALUE" ATOM CHANNEL ATOM "OPTIONAL" ANY) CHAN6 NAME7 FUDGE8>
 374                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
 375 OPT4
 376                     <PUSH -2>
 377 OPT5
 378                     <TEMP MCHAR9 MS10:STRING ML11:FIX MAXL12:FIX SPN13:STRING ECHAR14:CHARACTER B18:STRING BL19:FIX TEMP25:FIX OUTER26 LEN22:FIX BB30 STATE31:FIX TEMP40 C1-64:CHARACTER C2-65:CHARACTER>
 379                     <INTGO>
 380                     <GVAL 'MAGIC-CHAR = MCHAR9 (TYPE CHARACTER)>
 381                     <GVAL 'MAGIC-STRING2 = MS10 (TYPE STRING)>
 382                     <GVAL 'MAGIC-LENGTH2 = ML11 (TYPE FIX)>
 383                     <GVAL 'MAGIC-MAX2 = MAXL12 (TYPE FIX)>
 384                     <NTHR NAME7 3 = SPN13 (RECORD-TYPE ATOM)>
 385                     <GVAL 'LAST-CHAR3 = ECHAR14 (TYPE CHARACTER)>
 386                     <GVAL 'BUFFER = B18 (TYPE STRING)>
 387                     <GVAL 'BUFLENGTH = BL19 (TYPE FIX)>
 388                     <FRAME '\1aACCESS>
 389                     <PUSH CHAN6>
 390                     <CALL '\1aACCESS 1 = TEMP25>
 391                     <SUB TEMP25 BL19 = TEMP25 (TYPE FIX)>
 392                     <LOOP>
 393 AGAIN27
 394                     <INTGO>
 395                     <FRAME '\1aCHANNEL-OP>
 396                     <PUSH CHAN6>
 397                     <PUSH 'READ-BUFFER>
 398                     <PUSH B18>
 399                     <CALL '\1aCHANNEL-OP 3 = LEN22>
 400                     <ADD TEMP25 BL19 = TEMP25 (TYPE FIX)>
 401                     <SET BB30 B18>
 402                     <SET STATE31 0 (TYPE FIX)>
 403                     <LOOP>
 404 AGAIN32
 405                     <INTGO>
 406                     <SET OUTER26 BB30>
 407                     <DEAD BB30>
 408                     <EMPUS? OUTER26 + EXIT29 (DEAD-JUMP STATE31 OUTER26)>
 409                     <LOOP (MCHAR9 VALUE) (OUTER26 LENGTH VALUE)>
 410 TAG38
 411                     <NTHUS OUTER26 1 = TEMP40>
 412                     <VEQUAL? TEMP40 MCHAR9 + TAG37>
 413                     <DEAD TEMP40>
 414                     <RESTUS OUTER26 1 = OUTER26 (TYPE STRING)>
 415                     <EMPUS? OUTER26 - TAG38 (DEAD-FALL STATE31 OUTER26)>
 416                     <JUMP + EXIT29>
 417 TAG37
 418                     <LENUS OUTER26 = BB30 (TYPE FIX)>
 419                     <VEQUAL? BL19 LEN22 + BOOL41 (TYPE FIX)>
 420                     <SUB BL19 LEN22 = TEMP40 (TYPE FIX)>
 421                     <GRTR? BB30 TEMP40 - EXIT29 (TYPE FIX) (DEAD-JUMP STATE31 BB30 OUTER26)>
 422                     <DEAD TEMP40>
 423 BOOL41
 424                     <GRTR? BB30 MAXL12 - PHRASE49 (TYPE FIX) (DEAD-FALL BB30)>
 425                     <GRTR? TEMP25 0 - PHRASE51 (TYPE FIX) (DEAD-FALL STATE31 LEN22 OUTER26)>
 426                     <FRAME '\1aACCESS>
 427                     <PUSH CHAN6>
 428                     <SUB TEMP25 ML11 = TEMP25 (TYPE FIX)>
 429                     <PUSH TEMP25>
 430                     <CALL '\1aACCESS 2>
 431                     <SUB TEMP25 BL19 = TEMP25 (TYPE FIX)>
 432                     <JUMP + AGAIN27>
 433 PHRASE49
 434                     <SUB BL19 BB30 = TEMP40 (TYPE FIX)>
 435                     <DEAD BB30>
 436                     <SUB TEMP40 ML11 = TEMP40 (TYPE FIX)>
 437                     <RESTUS B18 TEMP40 = TEMP40 (TYPE STRING)>
 438                     <SET BB30 MS10 (TYPE STRING)>
 439                     <EMPUS? TEMP40 + PHRASE51 (DEAD-JUMP TEMP40 BB30)>
 440                     <EMPUS? BB30 + PHRASE51 (DEAD-JUMP TEMP40 BB30)>
 441                     <LOOP>
 442 MAP53
 443                     <INTGO>
 444                     <EMPUS? TEMP40 + MAPAP56 (DEAD-JUMP TEMP40 BB30 MAXL12 ML11 MS10 MCHAR9)>
 445                     <EMPUS? BB30 + MAPAP56 (DEAD-JUMP TEMP40 BB30 MAXL12 ML11 MS10 MCHAR9)>
 446                     <NTHUS TEMP40 1 = C1-64>
 447                     <NTHUS BB30 1 = C2-65>
 448                     <VEQUAL? C1-64 C2-65 - PHRASE51 (DEAD-JUMP TEMP40 BB30)>
 449                     <DEAD C1-64 C2-65>
 450                     <RESTUS TEMP40 1 = TEMP40 (TYPE STRING)>
 451                     <RESTUS BB30 1 = BB30 (TYPE STRING)>
 452                     <JUMP + MAP53>
 453 MAPAP56
 454                     <LOOP>
 455 MAP70
 456                     <INTGO>
 457                     <RESTUS OUTER26 1 = OUTER26 (TYPE STRING)>
 458                     <EMPUS? OUTER26 - PHRASE78 (TYPE STRING) (DEAD-FALL OUTER26)>
 459                     <VEQUAL? LEN22 BL19 + PHRASE80 (TYPE FIX)>
 460                     <DEAD LEN22>
 461                     <FRAME '\1aERROR>
 462                     <PUSH 'BAD-MIMA!-ERRORS>
 463                     <PUSH NAME7>
 464                     <CALL '\1aERROR 2>
 465 PHRASE80
 466                     <FRAME '\1aCHANNEL-OP>
 467                     <PUSH CHAN6>
 468                     <PUSH 'READ-BUFFER>
 469                     <SET OUTER26 B18>
 470                     <PUSH OUTER26>
 471                     <CALL '\1aCHANNEL-OP 3 = LEN22>
 472                     <ADD TEMP25 BL19 = TEMP25 (TYPE FIX)>
 473 PHRASE78
 474                     <NTHUS OUTER26 1 = MCHAR9 (TYPE CHARACTER)>
 475                     <EMPUS? SPN13 - PHRASE84 (TYPE STRING)>
 476                     <VEQUAL? MCHAR9 ECHAR14 + MAPAP73 (DEAD-JUMP NAME7 STATE31 LEN22 B18 ECHAR14 SPN13 MCHAR9)>
 477                     <FRAME '\1aSKIP-TRL>
 478                     <PUSH MCHAR9>
 479                     <DEAD MCHAR9>
 480                     <PUSH STATE31>
 481                     <DEAD STATE31>
 482                     <CALL '\1aSKIP-TRL 2 = STATE31>
 483                     <VEQUAL? STATE31 3 - MAP70 (TYPE FIX)>
 484                     <JUMP + PEEP99>
 485 PHRASE84
 486                     <NTHUS SPN13 1 = C1-64 (TYPE CHARACTER)>
 487                     <VEQUAL? C1-64 MCHAR9 + PHRASE90>
 488                     <DEAD C1-64 MCHAR9>
 489 PEEP99
 490                     <FRAME '\1aERROR>
 491                     <PUSH 'BAD-MIMA!-ERRORS>
 492                     <PUSH NAME7>
 493                     <CALL '\1aERROR 2>
 494                     <JUMP + MAP70>
 495 PHRASE90
 496                     <RESTUS SPN13 1 = SPN13 (TYPE STRING)>
 497                     <JUMP + MAP70>
 498 MAPAP73
 499                     <FRAME '\1aACCESS>
 500                     <PUSH CHAN6>
 501                     <DEAD CHAN6>
 502                     <LENUS OUTER26 = ML11 (TYPE FIX)>
 503                     <DEAD OUTER26>
 504                     <SUB BL19 ML11 = ML11 (TYPE FIX)>
 505                     <DEAD BL19>
 506                     <SUB ML11 FUDGE8 = ML11 (TYPE FIX)>
 507                     <DEAD FUDGE8>
 508                     <ADD ML11 TEMP25 = STACK (TYPE FIX)>
 509                     <DEAD ML11 TEMP25>
 510                     <CALL '\1aACCESS 2>
 511                     <RETURN 'T>
 512 PHRASE51
 513                     <RESTUS OUTER26 1 = BB30 (TYPE STRING)>
 514                     <DEAD OUTER26>
 515                     <JUMP + AGAIN32>
 516 EXIT29
 517                     <VEQUAL? LEN22 BL19 + AGAIN27 (TYPE FIX)>
 518                     <DEAD LEN22>
 519                     <FRAME '\1aERROR>
 520                     <PUSH 'BAD-MIMA!-ERRORS>
 521                     <PUSH NAME7>
 522                     <CALL '\1aERROR 2>
 523                     <JUMP + AGAIN27>
 524                     <END \1aSKIP-MIMA>
 525
 526 #WORD *4355053706*
 527                     <GFCN \1aSKIP-TRL ("VALUE" FIX CHARACTER FIX) CHAR4 STATE5>
 528                     <TEMP TEMP7 TEMP8>
 529                     <INTGO>
 530                     <GVAL 'I$TRANS-TABLE!-INTERNAL = TEMP7 (TYPE BYTES)>
 531                     <ADD CHAR4 1 = TEMP8 (TYPE FIX)>
 532                     <NTHUB TEMP7 TEMP8 = TEMP8 (TYPE FIX)>
 533                     <DEAD TEMP7>
 534                     <VEQUAL? STATE5 0 - PHRASE10 (TYPE FIX)>
 535                     <VEQUAL? TEMP8 8 - PHRASE10 (TYPE FIX) (DEAD-FALL STATE5 CHAR4 TEMP8)>
 536                     <RETURN 1>
 537 PHRASE10
 538                     <VEQUAL? STATE5 1 - PHRASE14 (TYPE FIX) (DEAD-JUMP CHAR4) (DEAD-FALL STATE5 TEMP8)>
 539                     <VEQUAL? CHAR4 !\- - PHRASE18>
 540                     <DEAD CHAR4>
 541                     <RETURN 0>
 542 PHRASE18
 543                     <RETURN 3>
 544 PHRASE14
 545                     <VEQUAL? STATE5 2 - PHRASE20 (TYPE FIX) (DEAD-FALL TEMP8)>
 546                     <DEAD STATE5>
 547                     <RETURN 0>
 548 PHRASE20
 549                     <VEQUAL? TEMP8 15 - PHRASE21 (TYPE FIX) (DEAD-FALL TEMP8)>
 550                     <RETURN 2>
 551 PHRASE21
 552                     <VEQUAL? TEMP8 16 + BOOL23 (TYPE FIX) (DEAD-JUMP TEMP8)>
 553                     <VEQUAL? TEMP8 19 + BOOL23 (TYPE FIX) (DEAD-JUMP TEMP8)>
 554                     <VEQUAL? TEMP8 20 + BOOL23 (TYPE FIX) (DEAD-JUMP TEMP8)>
 555                     <VEQUAL? TEMP8 17 + BOOL23 (TYPE FIX) (DEAD-JUMP TEMP8)>
 556                     <GVAL 'M$$R-STAR = TEMP7>
 557                     <EQUAL? TEMP7 TEMP8 - PHRASE22>
 558                     <DEAD TEMP7 TEMP8>
 559 BOOL23
 560                     <RETURN 0>
 561 PHRASE22
 562                     <RETURN 3>
 563                     <END \1aSKIP-TRL>
 564
 565 <ENDPACKAGE>