mim/development/mim/vaxc/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 7>
  41
  42 <SETG M$$R-BACKS 14>
  43
  44 <SETG M$$R-ALPHA 15>
  45
  46 <SETG M$$R-E 16>
  47
  48 <SETG M$$R-DIGIT 18>
  49
  50 <SETG M$$R-PLUS 19>
  51
  52 <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>
  53
  54 <GDECL (I$TRANS-TABLE!-INTERNAL) BYTES>
  55
  56 <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 0 0 0 0 0 0 7 4 9 15 11 15 12 1 6 20 19 10 19 17 15 18 18 18 18 18 18 18 18 18 18 0 8 2 15 6 15 15 15 15 15 15 16 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 3 14 6 15 15 15 15 15 15 15 16 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 5 13 6 15 15>>)>
  57
  58 #WORD *17736634263*
  59                     <GFCN \1aBUILD-INDEX ("VALUE" LIST CHANNEL OBLIST) CHAN5 OBL6>
  60                     <TEMP B7:STRING BL8:FIX CHAR9:CHARACTER MAXL10:FIX TOTAL-ACCESS11:FIX MS12:STRING ML13:FIX LC114:CHARACTER LC215:CHARACTER LC316:CHARACTER WS18:STRING WRD19 IM-POS29 INDEX30:LIST OUTER33 LEN27:FIX BB38 POS28 TEMP47 PL26:FIX SL17:FIX START25:STRING WORD-OK21 SETG-OK20 TEMP69 TEMP65 TEMP66:STRING C171:CHARACTER C272:CHARACTER C373:CHARACTER CH85:CHARACTER NAMESTR31 NAME-ATOM32 CH103:CHARACTER TEMP67:CHARACTER TEMP136:FIX TEMP135:FIX CH146:CHARACTER TEMP158:FIX TEMP160:FIX TEMP22:LIST>
  61                     <INTGO>
  62                     <GVAL 'BUFFER = B7>
  63                     <GVAL 'BUFLENGTH = BL8>
  64                     <GVAL 'MAGIC-CHAR = CHAR9>
  65                     <GVAL 'MAGIC-MAX = MAXL10>
  66                     <SET TOTAL-ACCESS11 BL8>
  67                     <SUB 0 TOTAL-ACCESS11 = TOTAL-ACCESS11 (TYPE FIX)>
  68                     <GVAL 'MAGIC-STRING = MS12>
  69                     <GVAL 'MAGIC-LENGTH = ML13>
  70                     <GVAL 'LAST-CHAR1 = LC114>
  71                     <GVAL 'LAST-CHAR2 = LC215>
  72                     <GVAL 'LAST-CHAR3 = LC316>
  73                     <GVAL 'WORD-STRING = WS18>
  74                     <SET IM-POS29 %<> (TYPE FALSE)>
  75                     <SET INDEX30 () (TYPE LIST)>
  76                     <LOOP>
  77 AGAIN34
  78                     <INTGO>
  79                     <FRAME '\1aCHANNEL-OP>
  80                     <PUSH CHAN5>
  81                     <PUSH 'READ-BUFFER>
  82                     <PUSH B7>
  83                     <CALL '\1aCHANNEL-OP 3 = LEN27>
  84                     <ADD TOTAL-ACCESS11 BL8 = TOTAL-ACCESS11 (TYPE FIX)>
  85                     <SET BB38 B7>
  86                     <LOOP>
  87 AGAIN39
  88                     <INTGO>
  89                     <SET POS28 BB38>
  90                     <DEAD BB38>
  91                     <EMPUS? POS28 + TAG43>
  92                     <LOOP (CHAR9 VALUE) (POS28 LENGTH VALUE)>
  93 TAG45
  94                     <NTHUS POS28 1 = TEMP47>
  95                     <VEQUAL? TEMP47 CHAR9 + TAG44>
  96                     <DEAD TEMP47>
  97                     <RESTUS POS28 1 = POS28 (TYPE STRING)>
  98                     <EMPUS? POS28 - TAG45>
  99 TAG43
 100                     <DEAD POS28>
 101                     <SET POS28 %<> (TYPE FALSE)>
 102 TAG44
 103                     <TYPE? POS28 <TYPE-CODE FALSE> + EXIT36>
 104                     <LENUS POS28 = PL26 (TYPE FIX)>
 105                     <VEQUAL? LEN27 BL8 + BOOL48 (TYPE FIX)>
 106                     <SUB BL8 LEN27 = TEMP47 (TYPE FIX)>
 107                     <GRTR? PL26 TEMP47 - EXIT36 (TYPE FIX)>
 108                     <DEAD TEMP47>
 109 BOOL48
 110                     <GRTR? PL26 MAXL10 - PHRASE56 (TYPE FIX)>
 111                     <GRTR? TOTAL-ACCESS11 0 - PHRASE52 (TYPE FIX)>
 112                     <FRAME '\1aACCESS>
 113                     <PUSH CHAN5>
 114                     <SUB TOTAL-ACCESS11 ML13 = TOTAL-ACCESS11 (TYPE FIX)>
 115                     <PUSH TOTAL-ACCESS11>
 116                     <CALL '\1aACCESS 2>
 117                     <SUB TOTAL-ACCESS11 BL8 = TOTAL-ACCESS11 (TYPE FIX)>
 118                     <JUMP + AGAIN34>
 119 PHRASE52
 120                     <RESTUS POS28 1 = BB38 (TYPE STRING)>
 121                     <DEAD POS28>
 122                     <JUMP + AGAIN39>
 123 PHRASE56
 124                     <DEAD BB38>
 125                     <SUB BL8 PL26 = TEMP47 (TYPE FIX)>
 126                     <DEAD PL26>
 127                     <SUB TEMP47 ML13 = TEMP47 (TYPE FIX)>
 128                     <RESTUS B7 TEMP47 = TEMP47 (TYPE STRING)>
 129                     <LENUS TEMP47 = SL17 (TYPE FIX)>
 130                     <SET WORD-OK21 'T (TYPE ATOM)>
 131                     <SET SETG-OK20 WORD-OK21>
 132                     <SET TEMP69 %<> (TYPE FALSE)>
 133                     <SET TEMP65 MS12 (TYPE STRING)>
 134                     <SET TEMP66 WS18 (TYPE STRING)>
 135                     <LOOP>
 136 MAP60
 137                     <INTGO>
 138                     <EMPUS? TEMP47 + MAPAP63>
 139                     <EMPUS? TEMP65 + MAPAP63>
 140                     <EMPUS? TEMP66 + MAPAP63>
 141                     <NTHUS TEMP47 1 = C171>
 142                     <NTHUS TEMP65 1 = C272>
 143                     <NTHUS TEMP66 1 = C373>
 144                     <VEQUAL? C171 C272 + PHRASE75>
 145                     <DEAD C272>
 146                     <SET SETG-OK20 %<> (TYPE FALSE)>
 147 PHRASE75
 148                     <VEQUAL? C171 C373 + PHRASE77>
 149                     <DEAD C373 C171>
 150                     <SET WORD-OK21 %<> (TYPE FALSE)>
 151 PHRASE77
 152                     <SET TEMP69 SETG-OK20>
 153                     <RESTUS TEMP47 1 = TEMP47 (TYPE STRING)>
 154                     <RESTUS TEMP65 1 = TEMP65 (TYPE STRING)>
 155                     <RESTUS TEMP66 1 = TEMP66 (TYPE STRING)>
 156                     <JUMP + MAP60>
 157 MAPAP63
 158                     <DEAD SETG-OK20 TEMP47 TEMP65 TEMP66>
 159                     <TYPE? TEMP69 <TYPE-CODE FALSE> + PHRASE58>
 160                     <DEAD TEMP69>
 161                     <SET TEMP65 0 (TYPE FIX)>
 162                     <LOOP>
 163 MAP79
 164                     <INTGO>
 165                     <RESTUS POS28 1 = POS28 (TYPE STRING)>
 166                     <EMPUS? POS28 - PHRASE87 (TYPE STRING)>
 167                     <ADD SL17 BL8 = SL17 (TYPE FIX)>
 168                     <LESS? LEN27 BL8 - PHRASE89 (TYPE FIX)>
 169                     <DEAD LEN27>
 170                     <FRAME '\1aERROR>
 171                     <PUSH 'BAD-FILE!-ERRORS>
 172                     <PUSH CHAN5>
 173                     <CALL '\1aERROR 2>
 174 PHRASE89
 175                     <FRAME '\1aCHANNEL-OP>
 176                     <PUSH CHAN5>
 177                     <PUSH 'READ-BUFFER>
 178                     <PUSH B7>
 179                     <CALL '\1aCHANNEL-OP 3 = LEN27>
 180                     <ADD TOTAL-ACCESS11 BL8 = TOTAL-ACCESS11 (TYPE FIX)>
 181                     <SET POS28 B7>
 182 PHRASE87
 183                     <NTHUS POS28 1 = CH85 (TYPE CHARACTER)>
 184                     <VEQUAL? CH85 !\  + MAPAP82>
 185                     <VEQUAL? CH85 !\! + MAPAP82>
 186                     <SET TEMP47 CH85>
 187                     <DEAD CH85>
 188                     <PUSH TEMP47>
 189                     <DEAD TEMP47>
 190                     <ADD TEMP65 1 = TEMP65 (TYPE FIX)>
 191                     <JUMP + MAP79>
 192 MAPAP82
 193                     <UBLOCK <TYPE-CODE STRING> TEMP65 = NAMESTR31 (TYPE STRING)>
 194                     <DEAD TEMP65>
 195                     <FRAME '\1aLOOKUP>
 196                     <PUSH NAMESTR31>
 197                     <PUSH OBL6>
 198                     <CALL '\1aLOOKUP 2 = NAME-ATOM32>
 199                     <TYPE? NAME-ATOM32 <TYPE-CODE FALSE> - BOOL97>
 200                     <FRAME '\1aINSERT>
 201                     <PUSH NAMESTR31>
 202                     <DEAD NAMESTR31>
 203                     <PUSH OBL6>
 204                     <CALL '\1aINSERT 2 = NAME-ATOM32>
 205 BOOL97
 206                     <TYPE? IM-POS29 <TYPE-CODE FALSE> + PHRASE101>
 207                     <LOOP>
 208 AGAIN104
 209                     <INTGO>
 210                     <SET TEMP69 POS28>
 211                     <DEAD POS28>
 212                     <EMPUS? TEMP69 + TAG107>
 213                     <LOOP (LC114 VALUE) (TEMP69 LENGTH VALUE)>
 214 TAG109
 215                     <NTHUS TEMP69 1 = TEMP47>
 216                     <VEQUAL? TEMP47 LC114 + TAG108>
 217                     <DEAD TEMP47>
 218                     <RESTUS TEMP69 1 = TEMP69 (TYPE STRING)>
 219                     <EMPUS? TEMP69 - TAG109>
 220 TAG107
 221                     <DEAD TEMP69>
 222                     <SET POS28 %<> (TYPE FALSE)>
 223                     <JUMP + TAG111>
 224 TAG108
 225                     <SET POS28 TEMP69>
 226                     <DEAD TEMP69>
 227 TAG111
 228                     <TYPE? POS28 <TYPE-CODE FALSE> + PHRASE106>
 229                     <RESTUS POS28 1 = POS28 (TYPE STRING)>
 230                     <LOOP>
 231 AGAIN113
 232                     <INTGO>
 233                     <EMPUS? POS28 - PHRASE115 (TYPE STRING)>
 234                     <FRAME '\1aCHANNEL-OP>
 235                     <PUSH CHAN5>
 236                     <PUSH 'READ-BUFFER>
 237                     <PUSH B7>
 238                     <CALL '\1aCHANNEL-OP 3 = LEN27>
 239                     <SET POS28 B7>
 240                     <ADD TOTAL-ACCESS11 BL8 = TOTAL-ACCESS11 (TYPE FIX)>
 241 PHRASE115
 242                     <NTHUS POS28 1 = CH103 (TYPE CHARACTER)>
 243                     <GRTR? CH103 32 + PHRASE118 (TYPE FIX)>
 244                     <DEAD CH103>
 245                     <RESTUS POS28 1 = POS28 (TYPE STRING)>
 246                     <JUMP + AGAIN113>
 247 PHRASE118
 248                     <NTHUS POS28 1 = TEMP67 (TYPE CHARACTER)>
 249                     <VEQUAL? TEMP67 LC215 - AGAIN104>
 250                     <DEAD TEMP67>
 251                     <RESTUS POS28 1 = POS28 (TYPE STRING)>
 252                     <LOOP>
 253 AGAIN122
 254                     <INTGO>
 255                     <EMPUS? POS28 - PHRASE124 (TYPE STRING)>
 256                     <FRAME '\1aCHANNEL-OP>
 257                     <PUSH CHAN5>
 258                     <PUSH 'READ-BUFFER>
 259                     <PUSH B7>
 260                     <CALL '\1aCHANNEL-OP 3 = LEN27>
 261                     <SET POS28 B7>
 262                     <ADD TOTAL-ACCESS11 BL8 = TOTAL-ACCESS11 (TYPE FIX)>
 263 PHRASE124
 264                     <NTHUS POS28 1 = CH103 (TYPE CHARACTER)>
 265                     <GRTR? CH103 32 + PHRASE127 (TYPE FIX)>
 266                     <DEAD CH103>
 267                     <RESTUS POS28 1 = POS28 (TYPE STRING)>
 268                     <JUMP + AGAIN122>
 269 PHRASE127
 270                     <NTHUS POS28 1 = TEMP47 (TYPE CHARACTER)>
 271                     <VEQUAL? TEMP47 LC316 - AGAIN104>
 272                     <DEAD TEMP47>
 273                     <RESTUS POS28 1 = POS28 (TYPE STRING)>
 274                     <JUMP + PHRASE130>
 275 PHRASE106
 276                     <FRAME '\1aCHANNEL-OP>
 277                     <PUSH CHAN5>
 278                     <PUSH 'READ-BUFFER>
 279                     <PUSH B7>
 280                     <CALL '\1aCHANNEL-OP 3 = LEN27>
 281                     <SET POS28 B7>
 282                     <ADD TOTAL-ACCESS11 BL8 = TOTAL-ACCESS11 (TYPE FIX)>
 283                     <JUMP + AGAIN104>
 284 PHRASE130
 285                     <TYPE? WRD19 <TYPE-CODE UNBOUND> + PHRASE133>
 286                     <CHTYPE WRD19 <TYPE-CODE WORD> = TEMP47>
 287                     <CONS TEMP47 () = TEMP47>
 288                     <JUMP + PHRASE134>
 289 PHRASE133
 290                     <SET TEMP47 () (TYPE LIST)>
 291 PHRASE134
 292                     <LENUS POS28 = TEMP136 (TYPE FIX)>
 293                     <SUB BL8 TEMP136 = TEMP136 (TYPE FIX)>
 294                     <ADD TEMP136 TOTAL-ACCESS11 = TEMP136 (TYPE FIX)>
 295                     <CONS TEMP136 TEMP47 = TEMP47>
 296                     <DEAD TEMP136>
 297                     <CONS IM-POS29 TEMP47 = IM-POS29>
 298                     <CONS NAME-ATOM32 IM-POS29 = NAME-ATOM32>
 299                     <CONS NAME-ATOM32 INDEX30 = INDEX30>
 300                     <DEAD NAME-ATOM32>
 301                     <SET IM-POS29 %<> (TYPE FALSE)>
 302                     <JUMP + PHRASE161>
 303 PHRASE101
 304                     <SUB BL8 SL17 = TEMP47 (TYPE FIX)>
 305                     <DEAD SL17>
 306                     <ADD TEMP47 TOTAL-ACCESS11 = IM-POS29 (TYPE FIX)>
 307                     <DEAD TEMP47>
 308                     <JUMP + PHRASE161>
 309 PHRASE58
 310                     <VEQUAL? WORD-OK21 0 + PHRASE138>
 311                     <SET WRD19 0 (TYPE FIX)>
 312                     <LOOP>
 313 MAP140
 314                     <INTGO>
 315                     <RESTUS POS28 1 = POS28 (TYPE STRING)>
 316                     <EMPUS? POS28 - PHRASE148 (TYPE STRING)>
 317                     <ADD SL17 BL8 = SL17 (TYPE FIX)>
 318                     <LESS? LEN27 BL8 - PHRASE150 (TYPE FIX)>
 319                     <DEAD LEN27>
 320                     <FRAME '\1aERROR>
 321                     <PUSH 'BAD-FILE!-ERRORS>
 322                     <PUSH CHAN5>
 323                     <CALL '\1aERROR 2>
 324 PHRASE150
 325                     <FRAME '\1aCHANNEL-OP>
 326                     <PUSH CHAN5>
 327                     <PUSH 'READ-BUFFER>
 328                     <PUSH B7>
 329                     <CALL '\1aCHANNEL-OP 3 = LEN27>
 330                     <ADD TOTAL-ACCESS11 BL8 = TOTAL-ACCESS11 (TYPE FIX)>
 331                     <SET POS28 B7>
 332 PHRASE148
 333                     <NTHUS POS28 1 = CH146 (TYPE CHARACTER)>
 334                     <VEQUAL? CH146 !\* - PHRASE154>
 335                     <VEQUAL? WORD-OK21 0 + PHRASE161>
 336                     <DEAD WORD-OK21>
 337                     <SET WORD-OK21 %<> (TYPE FALSE)>
 338                     <JUMP + MAP140>
 339 PHRASE154
 340                     <VEQUAL? WORD-OK21 0 - MAP140>
 341                     <LSH WRD19 3 = WRD19 (TYPE FIX)>
 342                     <SUB CH146 48 = TEMP160 (TYPE FIX)>
 343                     <DEAD CH146>
 344                     <OR WRD19 TEMP160 = WRD19>
 345                     <DEAD TEMP160>
 346                     <JUMP + MAP140>
 347 PHRASE138
 348                     <DEAD SL17 WORD-OK21>
 349                     <RESTUS POS28 1 = POS28 (TYPE STRING)>
 350 PHRASE161
 351                     <SET BB38 POS28>
 352                     <DEAD POS28>
 353                     <JUMP + AGAIN39>
 354 EXIT36
 355                     <DEAD BB38>
 356                     <VEQUAL? LEN27 BL8 + AGAIN34 (TYPE FIX)>
 357                     <DEAD LEN27 B7 BL8 CHAN5 CHAR9 IM-POS29 LC114 LC215 LC316 MAXL10 ML13 MS12 OBL6 TOTAL-ACCESS11 WRD19 WS18>
 358                     <RETURN INDEX30>
 359                     <DEAD INDEX30>
 360                     <END \1aBUILD-INDEX>
 361
 362 #WORD *32257366134*
 363                     <GFCN \1aSKIP-MIMA ("VALUE" ATOM CHANNEL ATOM) CHAN5 NAME6>
 364                     <TEMP MCHAR7:CHARACTER MS8:STRING ML9:FIX MAXL10:FIX SPN11:STRING ECHAR12:CHARACTER B16:STRING BL17:FIX TEMP23:FIX TOTAL-ACCESS21:FIX OUTER24 LEN20:FIX BB28:STRING STATE29:FIX POS18 TEMP38 PL19:FIX TEMP59 TEMP61 TEMP56:STRING C162:CHARACTER C263:CHARACTER C274:CHARACTER TEMP57:CHARACTER TEMP13:ATOM>
 365                     <INTGO>
 366                     <GVAL 'MAGIC-CHAR = MCHAR7>
 367                     <GVAL 'MAGIC-STRING2 = MS8>
 368                     <GVAL 'MAGIC-LENGTH2 = ML9>
 369                     <GVAL 'MAGIC-MAX2 = MAXL10>
 370                     <NTHR NAME6 3 = SPN11 (RECORD-TYPE ATOM)>
 371                     <GVAL 'LAST-CHAR3 = ECHAR12>
 372                     <GVAL 'BUFFER = B16>
 373                     <GVAL 'BUFLENGTH = BL17>
 374                     <FRAME '\1aACCESS>
 375                     <PUSH CHAN5>
 376                     <CALL '\1aACCESS 1 = TEMP23>
 377                     <SUB TEMP23 BL17 = TOTAL-ACCESS21 (TYPE FIX)>
 378                     <DEAD TEMP23>
 379                     <LOOP>
 380 AGAIN25
 381                     <INTGO>
 382                     <FRAME '\1aCHANNEL-OP>
 383                     <PUSH CHAN5>
 384                     <PUSH 'READ-BUFFER>
 385                     <PUSH B16>
 386                     <CALL '\1aCHANNEL-OP 3 = LEN20>
 387                     <ADD TOTAL-ACCESS21 BL17 = TOTAL-ACCESS21 (TYPE FIX)>
 388                     <SET BB28 B16>
 389                     <SET STATE29 0 (TYPE FIX)>
 390                     <LOOP>
 391 AGAIN30
 392                     <INTGO>
 393                     <SET POS18 BB28>
 394                     <DEAD BB28>
 395                     <EMPUS? POS18 + TAG34>
 396                     <LOOP (MCHAR7 VALUE) (POS18 LENGTH VALUE)>
 397 TAG36
 398                     <NTHUS POS18 1 = TEMP38>
 399                     <VEQUAL? TEMP38 MCHAR7 + TAG35>
 400                     <DEAD TEMP38>
 401                     <RESTUS POS18 1 = POS18 (TYPE STRING)>
 402                     <EMPUS? POS18 - TAG36>
 403 TAG34
 404                     <DEAD POS18>
 405                     <SET POS18 %<> (TYPE FALSE)>
 406 TAG35
 407                     <TYPE? POS18 <TYPE-CODE FALSE> + EXIT27>
 408                     <LENUS POS18 = PL19 (TYPE FIX)>
 409                     <VEQUAL? BL17 LEN20 + BOOL39 (TYPE FIX)>
 410                     <SUB BL17 LEN20 = TEMP38 (TYPE FIX)>
 411                     <GRTR? PL19 TEMP38 - EXIT27 (TYPE FIX)>
 412                     <DEAD TEMP38>
 413 BOOL39
 414                     <GRTR? PL19 MAXL10 - PHRASE47 (TYPE FIX)>
 415                     <GRTR? TOTAL-ACCESS21 0 - PHRASE43 (TYPE FIX)>
 416                     <FRAME '\1aACCESS>
 417                     <PUSH CHAN5>
 418                     <SUB TOTAL-ACCESS21 ML9 = TOTAL-ACCESS21 (TYPE FIX)>
 419                     <PUSH TOTAL-ACCESS21>
 420                     <CALL '\1aACCESS 2>
 421                     <SUB TOTAL-ACCESS21 BL17 = TOTAL-ACCESS21 (TYPE FIX)>
 422                     <JUMP + AGAIN25>
 423 PHRASE43
 424                     <RESTUS POS18 1 = BB28 (TYPE STRING)>
 425                     <DEAD POS18>
 426                     <JUMP + AGAIN30>
 427 PHRASE47
 428                     <DEAD BB28>
 429                     <SET TEMP59 %<> (TYPE FALSE)>
 430                     <SUB BL17 PL19 = TEMP61 (TYPE FIX)>
 431                     <DEAD PL19>
 432                     <SUB TEMP61 ML9 = TEMP61 (TYPE FIX)>
 433                     <RESTUS B16 TEMP61 = TEMP61 (TYPE STRING)>
 434                     <SET TEMP56 MS8 (TYPE STRING)>
 435                     <LOOP>
 436 MAP51
 437                     <INTGO>
 438                     <EMPUS? TEMP61 + MAPAP54>
 439                     <EMPUS? TEMP56 + MAPAP54>
 440                     <NTHUS TEMP61 1 = C162>
 441                     <NTHUS TEMP56 1 = C263>
 442                     <VEQUAL? C162 C263 + PHRASE65>
 443                     <DEAD C263 C162>
 444                     <SET TEMP59 %<> (TYPE FALSE)>
 445                     <JUMP + MAPAP54>
 446 PHRASE65
 447                     <SET TEMP59 1 (TYPE FIX)>
 448                     <RESTUS TEMP61 1 = TEMP61 (TYPE STRING)>
 449                     <RESTUS TEMP56 1 = TEMP56 (TYPE STRING)>
 450                     <JUMP + MAP51>
 451 MAPAP54
 452                     <DEAD TEMP56 TEMP61>
 453                     <TYPE? TEMP59 <TYPE-CODE FALSE> + PHRASE49>
 454                     <DEAD TEMP59>
 455                     <LOOP>
 456 MAP68
 457                     <INTGO>
 458                     <RESTUS POS18 1 = POS18 (TYPE STRING)>
 459                     <EMPUS? POS18 - PHRASE76 (TYPE STRING)>
 460                     <VEQUAL? LEN20 BL17 + PHRASE78 (TYPE FIX)>
 461                     <DEAD LEN20>
 462                     <FRAME '\1aERROR>
 463                     <PUSH 'BAD-MIMA!-ERRORS>
 464                     <PUSH NAME6>
 465                     <CALL '\1aERROR 2>
 466 PHRASE78
 467                     <FRAME '\1aCHANNEL-OP>
 468                     <PUSH CHAN5>
 469                     <PUSH 'READ-BUFFER>
 470                     <SET POS18 B16>
 471                     <PUSH POS18>
 472                     <CALL '\1aCHANNEL-OP 3 = LEN20>
 473                     <ADD TOTAL-ACCESS21 BL17 = TOTAL-ACCESS21 (TYPE FIX)>
 474 PHRASE76
 475                     <NTHUS POS18 1 = C274 (TYPE CHARACTER)>
 476                     <EMPUS? SPN11 - PHRASE82 (TYPE STRING)>
 477                     <VEQUAL? C274 ECHAR12 + MAPAP71>
 478                     <FRAME '\1aSKIP-TRL>
 479                     <PUSH C274>
 480                     <DEAD C274>
 481                     <PUSH STATE29>
 482                     <DEAD STATE29>
 483                     <CALL '\1aSKIP-TRL 2 = STATE29>
 484                     <VEQUAL? STATE29 3 - MAP68 (TYPE FIX)>
 485                     <FRAME '\1aERROR>
 486                     <PUSH 'BAD-MIMA!-ERRORS>
 487                     <PUSH NAME6>
 488                     <CALL '\1aERROR 2>
 489                     <JUMP + MAP68>
 490 PHRASE82
 491                     <NTHUS SPN11 1 = TEMP57 (TYPE CHARACTER)>
 492                     <VEQUAL? TEMP57 C274 + PHRASE88>
 493                     <DEAD C274 TEMP57>
 494                     <FRAME '\1aERROR>
 495                     <PUSH 'BAD-MIMA!-ERRORS>
 496                     <PUSH NAME6>
 497                     <CALL '\1aERROR 2>
 498                     <JUMP + MAP68>
 499 PHRASE88
 500                     <RESTUS SPN11 1 = SPN11 (TYPE STRING)>
 501                     <JUMP + MAP68>
 502 MAPAP71
 503                     <FRAME '\1aACCESS>
 504                     <PUSH CHAN5>
 505                     <LENUS POS18 = TEMP59 (TYPE FIX)>
 506                     <SUB BL17 TEMP59 = TEMP59 (TYPE FIX)>
 507                     <SUB TEMP59 -2 = TEMP59 (TYPE FIX)>
 508                     <ADD TEMP59 TOTAL-ACCESS21 = STACK (TYPE FIX)>
 509                     <DEAD TEMP59>
 510                     <CALL '\1aACCESS 2>
 511                     <RETURN 'T>
 512 PHRASE49
 513                     <RESTUS POS18 1 = BB28 (TYPE STRING)>
 514                     <DEAD POS18>
 515                     <JUMP + AGAIN30>
 516 EXIT27
 517                     <DEAD BB28 STATE29>
 518                     <VEQUAL? LEN20 BL17 + AGAIN25 (TYPE FIX)>
 519                     <DEAD LEN20>
 520                     <FRAME '\1aERROR>
 521                     <PUSH 'BAD-MIMA!-ERRORS>
 522                     <PUSH NAME6>
 523                     <CALL '\1aERROR 2>
 524                     <JUMP + AGAIN25>
 525                     <DEAD B16 BL17 CHAN5 ECHAR12 MAXL10 MCHAR7 ML9 MS8 NAME6 SPN11 TOTAL-ACCESS21>
 526                     <END \1aSKIP-MIMA>
 527
 528 #WORD *34722723767*
 529                     <GFCN \1aSKIP-TRL ("VALUE" FIX CHARACTER FIX) CHAR5 STATE6>
 530                     <TEMP TEMP8 TEMP9:FIX TRNS7:FIX>
 531                     <INTGO>
 532                     <GVAL 'I$TRANS-TABLE!-INTERNAL = TEMP8>
 533                     <ADD CHAR5 1 = TEMP9 (TYPE FIX)>
 534                     <NTHUB TEMP8 TEMP9 = TEMP9 (TYPE FIX)>
 535                     <DEAD TEMP8>
 536                     <VEQUAL? STATE6 0 - PHRASE11 (TYPE FIX)>
 537                     <VEQUAL? TEMP9 7 - PHRASE11 (TYPE FIX)>
 538                     <RETURN 1>
 539 PHRASE11
 540                     <VEQUAL? STATE6 1 - PHRASE15 (TYPE FIX)>
 541                     <VEQUAL? CHAR5 !\- - PHRASE19>
 542                     <DEAD CHAR5>
 543                     <RETURN 0>
 544 PHRASE19
 545                     <RETURN 3>
 546 PHRASE15
 547                     <VEQUAL? STATE6 2 - PHRASE21 (TYPE FIX)>
 548                     <DEAD STATE6>
 549                     <RETURN 0>
 550 PHRASE21
 551                     <VEQUAL? TEMP9 14 - PHRASE22 (TYPE FIX)>
 552                     <RETURN 2>
 553 PHRASE22
 554                     <VEQUAL? TEMP9 15 + BOOL24 (TYPE FIX)>
 555                     <VEQUAL? TEMP9 18 + BOOL24 (TYPE FIX)>
 556                     <VEQUAL? TEMP9 19 + BOOL24 (TYPE FIX)>
 557                     <VEQUAL? TEMP9 16 + BOOL24 (TYPE FIX)>
 558                     <GVAL 'M$$R-STAR = TEMP8>
 559                     <EQUAL? TEMP8 TEMP9 - PHRASE23>
 560                     <DEAD TEMP9 TEMP8>
 561 BOOL24
 562                     <RETURN 0>
 563 PHRASE23
 564                     <RETURN 3>
 565                     <END \1aSKIP-TRL>
 566
 567 <ENDPACKAGE>