mim/development/mim/mimc/mimc-grdump.mima

   1
   2 <PACKAGE "MIMC-GRDUMP">
   3
   4 <ENTRY MIMC-GROUP-DUMP DUMP-CODE>
   5
   6 <USE "COMFIL" "COMPDEC" "HASH">
   7
   8 <MSETG M$$PRINT 5>
   9
  10 <MSETG M$$OFF-FIX 1>
  11
  12 <MSETG M$$OFF-DCL 2>
  13
  14 <MSETG M$$OFF-ELT 3>
  15
  16 <MSETG M$$NTYPE 1>
  17
  18 <MSETG M$$PTYPE 2>
  19
  20 <MSETG M$$TYOFF 6>
  21
  22 <MSETG M$$TYPE-INFO-SIZE 1024>
  23
  24 <MSETG TUP-CHAN 1>
  25
  26 <MSETG TUP-OBL 2>
  27
  28 <MSETG TUP-BUF 3>
  29
  30 <MSETG TUP-BUFL 4>
  31
  32 <MSETG BUFLNT 1024>
  33
  34 <MSETG BACK-SLASH <ASCII 92>>
  35
  36 <SETG M$$FS-NSTATE 9>
  37
  38 <SETG M$$FS-NOSLASH <+ ,M$$FS-NSTATE 1>>
  39
  40 <SETG M$$FS-SLASH1 <+ ,M$$FS-NSTATE 2>>
  41
  42 <SETG M$$FS-SLASH2 <+ ,M$$FS-NSTATE 3>>
  43
  44 <SETG M$$END-STATE 6>
  45
  46 <MANIFEST M$$FS-NSTATE M$$FS-NOSLASH M$$FS-SLASH1 M$$FS-SLASH2 M$$END-STATE>
  47
  48 <GDECL (BUFFER) STRING (I$FLOAT-TABLE!-INTERNAL) <VECTOR [REST FLOAT]> (M$$TYPE-INFO!-INTERNAL) <VECTOR [REST <OR TYPE-ENTRY FALSE>]>>
  49
  50 <SETG M$$R-BACKS 15>
  51
  52 <SETG M$$R-MIN-NUM-PART 17>
  53
  54 <SETG M$$R-MAX-ATM-BRK 13>
  55
  56 <MANIFEST M$$R-MAX-ATM-BRK M$$R-BACKS M$$R-MIN-NUM-PART>
  57
  58 <SETG BUFFER <ISTRING ,BUFLNT>>
  59
  60 <SETG ROOT-OBL <ROOT>>
  61
  62 #WORD *4652614317*
  63 <FCN \1aMIMC-GROUP-DUMP ("VALUE" <OR ATOM FALSE> STRING ATOM ANY) STR4 NAM5 TEMPCH6>
  64                     <TEMP (OUTCHAN7 'DEFINE) OBL11 OOBLIST12 IOTUP14:TUPLE TEMP3:LBIND TEMP31 TEMP40 TEMP54 THIS-FORM20 FUNC17 TEM46 TEMP67 BUF80>
  65                     <INTGO>
  66                     <GEN-LVAL 'OBLIST = OUTCHAN7>
  67                     <EMPL? OUTCHAN7 - PHRASE22 (TYPE LIST)>
  68                     <DEAD OUTCHAN7>
  69                     <SET OUTCHAN7 'FULL-OBL (TYPE ATOM)>
  70                     <JUMP + COND21>
  71 PHRASE22
  72                     <SET OUTCHAN7 'BLOCK (TYPE ATOM)>
  73 COND21
  74                     <SET OBL11 OUTCHAN7>
  75                     <DEAD OUTCHAN7>
  76                     <GEN-LVAL 'OBLIST = OOBLIST12>
  77                     <PUSH 0>
  78                     <PUSH 0>
  79                     <GVAL 'BUFFER = STACK>
  80                     <PUSH 0>
  81                     <TUPLE 4 = IOTUP14 (TYPE TUPLE)>
  82                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
  83                     <LOCATION + TAG29 = OUTCHAN7>
  84                     <CFRAME = TEMP31 (TYPE FRAME)>
  85                     <BBIND 'UNWIND OUTCHAN7 'FIX TEMP31>
  86                     <DEAD OUTCHAN7 TEMP31>
  87                     <FRAME '\1aOPEN>
  88                     <PUSH "PRINT">
  89                     <PUSH STR4>
  90                     <DEAD STR4>
  91                     <CALL '\1aOPEN 2 = OUTCHAN7>
  92                     <TYPE? OUTCHAN7 <TYPE-CODE FALSE> + EXIT33>
  93                     <FRAME '\1aGETPROP>
  94                     <PUSH NAM5>
  95                     <PUSH OBL11>
  96                     <CFRAME = STACK (TYPE FRAME)>
  97                     <CALL '\1aGETPROP 3 = TEMP31>
  98                     <CFRAME = TEMP40 (TYPE FRAME)>
  99                     <EQUAL? TEMP40 TEMP31 - TAG41>
 100                     <DEAD TEMP40>
 101                     <SET TEMP31 OOBLIST12>
 102                     <DEAD OOBLIST12>
 103 TAG41
 104                     <PUTUV IOTUP14 1 OUTCHAN7>
 105                     <PUTUV IOTUP14 2 TEMP31>
 106                     <GEN-LVAL NAM5 = TEMP40>
 107                     <LOOP>
 108 AGAIN48
 109                     <INTGO>
 110                     <EMPL? TEMP40 + EXIT44 (TYPE LIST)>
 111                     <SET OOBLIST12 %<> (TYPE FALSE)>
 112                     <NTHL TEMP40 1 = TEMP54>
 113                     <TYPE? TEMP54 <TYPE-CODE FORM> - PHRASE52>
 114                     <DEAD TEMP54>
 115                     <NTHL TEMP40 1 = THIS-FORM20 (TYPE FORM)>
 116                     <EMPL? THIS-FORM20 + PHRASE52>
 117                     <RESTL THIS-FORM20 1 = TEMP54 (TYPE LIST)>
 118                     <EMPL? TEMP54 + PHRASE52>
 119                     <DEAD TEMP54>
 120                     <NTHL THIS-FORM20 1 = TEMP54>
 121                     <EQUAL? TEMP54 'DEFINE + BOOL55>
 122                     <DEAD TEMP54>
 123                     <NTHL THIS-FORM20 1 = TEMP54>
 124                     <EQUAL? TEMP54 'DEFMAC - PHRASE52>
 125                     <DEAD TEMP54>
 126                     <RESTL THIS-FORM20 1 = TEMP54 (TYPE LIST)>
 127                     <NTHL TEMP54 1 = OOBLIST12>
 128                     <DEAD TEMP54>
 129                     <TYPE? OOBLIST12 <TYPE-CODE FALSE> + PHRASE52>
 130 BOOL55
 131                     <FRAME '\1aGETPROP>
 132                     <RESTL THIS-FORM20 1 = TEMP54 (TYPE LIST)>
 133                     <NTHL TEMP54 1 = STACK>
 134                     <DEAD TEMP54>
 135                     <PUSH 'VALUE>
 136                     <CFRAME = STACK (TYPE FRAME)>
 137                     <CALL '\1aGETPROP 3 = FUNC17>
 138                     <CFRAME = TEMP54 (TYPE FRAME)>
 139                     <EQUAL? TEMP54 FUNC17 - TAG58>
 140                     <DEAD TEMP54>
 141                     <RESTL THIS-FORM20 1 = TEMP54 (TYPE LIST)>
 142                     <NTHL TEMP54 1 = FUNC17>
 143                     <DEAD TEMP54>
 144 TAG58
 145                     <TYPE? FUNC17 <TYPE-CODE ATOM> - PHRASE52>
 146                     <NTHR FUNC17 1 = TEMP54 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE125)>
 147                     <TYPE? TEMP54 <TYPE-CODE FALSE> + PHRASE125>
 148                     <NTHR TEMP54 1 = TEMP54 (RECORD-TYPE GBIND)>
 149                     <TYPE? TEMP54 <TYPE-CODE UNBOUND> + PHRASE125>
 150                     <DEAD TEMP54>
 151                     <GVAL FUNC17 = TEM46>
 152                     <TYPE? TEM46 <TYPE-CODE FUNCTION> - PHRASE62>
 153                     <RESTL THIS-FORM20 1 = TEMP54 (TYPE LIST)>
 154                     <CHTYPE TEMP54 <TYPE-CODE LIST> = TEMP54>
 155                     <PUTREST TEMP54 TEM46>
 156                     <DEAD TEMP54 TEM46>
 157                     <FRAME '\1aMIMC-PRINT>
 158                     <PUSH THIS-FORM20>
 159                     <DEAD THIS-FORM20>
 160                     <PUSH IOTUP14>
 161                     <CALL '\1aMIMC-PRINT 2>
 162                     <FRAME '\1aMIMC-CRLF>
 163                     <PUSH IOTUP14>
 164                     <CALL '\1aMIMC-CRLF 1>
 165                     <JUMP + PHRASE125>
 166 PHRASE62
 167                     <TYPE? TEM46 <TYPE-CODE MACRO> - PHRASE65>
 168                     <EMPL? TEM46 + PHRASE65 (TYPE MACRO)>
 169                     <NTHL TEM46 1 = TEMP54>
 170                     <TYPE? TEMP54 <TYPE-CODE FUNCTION> - PHRASE65>
 171                     <DEAD TEMP54>
 172                     <RESTL THIS-FORM20 1 = TEMP54 (TYPE LIST)>
 173                     <CHTYPE TEMP54 <TYPE-CODE LIST> = TEMP54>
 174                     <NTHL TEM46 1 = TEMP67 (TYPE FUNCTION)>
 175                     <DEAD TEM46>
 176                     <PUTREST TEMP54 TEMP67>
 177                     <DEAD TEMP54 TEMP67>
 178                     <FRAME '\1aMIMC-PRINT>
 179                     <PUSH THIS-FORM20>
 180                     <DEAD THIS-FORM20>
 181                     <PUSH IOTUP14>
 182                     <CALL '\1aMIMC-PRINT 2>
 183                     <FRAME '\1aMIMC-CRLF>
 184                     <PUSH IOTUP14>
 185                     <CALL '\1aMIMC-CRLF 1>
 186                     <JUMP + PHRASE125>
 187 PHRASE65
 188                     <TYPE? TEM46 <TYPE-CODE INS-LIST> + TAG71>
 189                     <TYPE? TEM46 <TYPE-CODE ACCESS-LIST> - PHRASE70>
 190 TAG71
 191                     <TYPE? TEM46 <TYPE-CODE ACCESS-LIST> - PHRASE73>
 192                     <FRAME '\1aACCESS>
 193                     <NTHL TEM46 1 = THIS-FORM20>
 194                     <PUSH THIS-FORM20>
 195                     <RESTL TEM46 1 = TEMP54 (TYPE LIST)>
 196                     <NTHL TEMP54 1 = STACK (TYPE FIX)>
 197                     <DEAD TEMP54>
 198                     <CALL '\1aACCESS 2>
 199                     <FRAME '\1aMIMC-PRINT>
 200                     <RESTL TEM46 1 = TEMP54 (TYPE LIST)>
 201                     <RESTL TEMP54 1 = TEMP54 (TYPE LIST)>
 202                     <RESTL TEMP54 1 = TEMP54 (TYPE LIST)>
 203                     <NTHL TEMP54 1 = TEMP54>
 204                     <CHTYPE TEMP54 <TYPE-CODE WORD> = STACK>
 205                     <DEAD TEMP54>
 206                     <PUSH IOTUP14>
 207                     <CALL '\1aMIMC-PRINT 2>
 208                     <FRAME '\1aMIMC-CRLF>
 209                     <PUSH IOTUP14>
 210                     <CALL '\1aMIMC-CRLF 1>
 211                     <NTHUV IOTUP14 3 = TEMP54>
 212                     <NTHUV IOTUP14 4 = TEMP67>
 213                     <CHANNEL-OP 'DISK 'WRITE-BUFFER OUTCHAN7 TEMP54 TEMP67>
 214                     <DEAD TEMP54 TEMP67>
 215                     <PUTUV IOTUP14 4 0>
 216                     <RESTL TEM46 1 = TEMP54 (TYPE LIST)>
 217                     <RESTL TEMP54 1 = TEMP54 (TYPE LIST)>
 218                     <NTHL TEMP54 1 = TEMP54 (TYPE FIX)>
 219                     <RESTL TEM46 1 = TEMP67 (TYPE LIST)>
 220                     <NTHL TEMP67 1 = TEMP67 (TYPE FIX)>
 221                     <SUB TEMP54 TEMP67 = TEMP54 (TYPE FIX)>
 222                     <DEAD TEMP67>
 223                     <NTHUV IOTUP14 3 = BUF80>
 224                     <LOOP>
 225 AGAIN81
 226                     <INTGO>
 227                     <GRTR? TEMP54 1024 - PHRASE83 (TYPE FIX)>
 228                     <FRAME '\1aCHANNEL-OP>
 229                     <PUSH THIS-FORM20>
 230                     <PUSH 'READ-BUFFER>
 231                     <PUSH BUF80>
 232                     <CALL '\1aCHANNEL-OP 3>
 233                     <CHANNEL-OP 'DISK 'WRITE-BUFFER OUTCHAN7 BUF80>
 234                     <JUMP + PHRASE95>
 235 PHRASE83
 236                     <FRAME '\1aCHANNEL-OP>
 237                     <PUSH THIS-FORM20>
 238                     <DEAD THIS-FORM20>
 239                     <PUSH 'READ-BUFFER>
 240                     <PUSH BUF80>
 241                     <PUSH TEMP54>
 242                     <CALL '\1aCHANNEL-OP 4>
 243                     <CHANNEL-OP 'DISK 'WRITE-BUFFER OUTCHAN7 BUF80 TEMP54>
 244                     <DEAD TEMP54>
 245                     <FRAME '\1aLENGTH>
 246                     <PUSH TEM46>
 247                     <CALL '\1aLENGTH 1 = TEMP67>
 248                     <GRTR? TEMP67 4 - PHRASE96 (TYPE FIX)>
 249                     <DEAD TEMP67>
 250                     <FRAME '\1aNTH>
 251                     <PUSH TEM46>
 252                     <DEAD TEM46>
 253                     <PUSH 5>
 254                     <CALL '\1aNTH 2 = TEM46>
 255                     <FRAME '\1aNTH>
 256                     <PUSH TEM46>
 257                     <PUSH 3>
 258                     <CALL '\1aNTH 2 = TEMP67>
 259                     <FRAME '\1aNTH>
 260                     <PUSH TEM46>
 261                     <PUSH 2>
 262                     <CALL '\1aNTH 2 = TEMP54>
 263                     <SUB TEMP67 TEMP54 = TEMP67 (TYPE FIX)>
 264                     <DEAD TEMP54>
 265                     <SUB TEMP67 -1 = TEMP54 (TYPE FIX)>
 266                     <DEAD TEMP67>
 267                     <FRAME '\1aACCESS>
 268                     <NTH1 TEM46 = THIS-FORM20>
 269                     <PUSH THIS-FORM20>
 270                     <FRAME '\1aNTH>
 271                     <PUSH TEM46>
 272                     <PUSH 2>
 273                     <CALL '\1aNTH 2 = STACK>
 274                     <CALL '\1aACCESS 2>
 275                     <JUMP + AGAIN81>
 276 PHRASE95
 277                     <SUB TEMP54 1024 = TEMP54 (TYPE FIX)>
 278                     <JUMP + AGAIN81>
 279 PHRASE73
 280                     <FRAME '\1aMIMC-PRINT>
 281                     <NTHL TEM46 1 = TEMP67>
 282                     <CHTYPE TEMP67 <TYPE-CODE WORD> = STACK>
 283                     <DEAD TEMP67>
 284                     <PUSH IOTUP14>
 285                     <CALL '\1aMIMC-PRINT 2>
 286                     <FRAME '\1aMIMC-CRLF>
 287                     <PUSH IOTUP14>
 288                     <CALL '\1aMIMC-CRLF 1>
 289                     <FRAME '\1aIDUMP-CODE>
 290                     <RESTL TEM46 1 = TEMP67 (TYPE LIST)>
 291                     <DEAD TEM46>
 292                     <CHTYPE TEMP67 <TYPE-CODE LIST> = STACK>
 293                     <DEAD TEMP67>
 294                     <PUSH IOTUP14>
 295                     <CALL '\1aIDUMP-CODE 2>
 296 PHRASE96
 297                     <TYPE? OOBLIST12 <TYPE-CODE FALSE> + PHRASE125>
 298                     <DEAD OOBLIST12>
 299                     <FRAME '\1aMIMC-OUTS>
 300                     <PUSH "<COND (<AND <GASSIGNED? ">
 301                     <PUSH IOTUP14>
 302                     <CALL '\1aMIMC-OUTS 2>
 303                     <FRAME '\1aMIMC-PRIN-ATOM>
 304                     <PUSH FUNC17>
 305                     <PUSH IOTUP14>
 306                     <CALL '\1aMIMC-PRIN-ATOM 2>
 307                     <FRAME '\1aMIMC-OUTS>
 308                     <PUSH "> <NOT <TYPE? ,">
 309                     <PUSH IOTUP14>
 310                     <CALL '\1aMIMC-OUTS 2>
 311                     <FRAME '\1aMIMC-PRIN-ATOM>
 312                     <PUSH FUNC17>
 313                     <PUSH IOTUP14>
 314                     <CALL '\1aMIMC-PRIN-ATOM 2>
 315                     <FRAME '\1aMIMC-OUTS>
 316                     <PUSH " MACRO>>> <SETG ">
 317                     <PUSH IOTUP14>
 318                     <CALL '\1aMIMC-OUTS 2>
 319                     <FRAME '\1aMIMC-PRIN-ATOM>
 320                     <PUSH FUNC17>
 321                     <PUSH IOTUP14>
 322                     <CALL '\1aMIMC-PRIN-ATOM 2>
 323                     <FRAME '\1aMIMC-OUTS>
 324                     <PUSH " <CHTYPE (,">
 325                     <PUSH IOTUP14>
 326                     <CALL '\1aMIMC-OUTS 2>
 327                     <FRAME '\1aMIMC-PRIN-ATOM>
 328                     <PUSH FUNC17>
 329                     <DEAD FUNC17>
 330                     <PUSH IOTUP14>
 331                     <CALL '\1aMIMC-PRIN-ATOM 2>
 332                     <FRAME '\1aMIMC-OUTS>
 333                     <PUSH ") MACRO>>)>">
 334                     <PUSH IOTUP14>
 335                     <CALL '\1aMIMC-OUTS 2>
 336                     <FRAME '\1aMIMC-CRLF>
 337                     <PUSH IOTUP14>
 338                     <CALL '\1aMIMC-CRLF 1>
 339                     <JUMP + PHRASE125>
 340 PHRASE70
 341                     <FRAME '\1aFORM>
 342                     <PUSH 'SETG>
 343                     <RESTL THIS-FORM20 1 = TEMP54 (TYPE LIST)>
 344                     <DEAD THIS-FORM20>
 345                     <NTHL TEMP54 1 = STACK>
 346                     <DEAD TEMP54>
 347                     <FRAME '\1aFORM>
 348                     <PUSH 'QUOTE>
 349                     <GVAL FUNC17 = STACK>
 350                     <DEAD FUNC17>
 351                     <CALL '\1aFORM 2 = STACK>
 352                     <CALL '\1aFORM 3 = THIS-FORM20>
 353                     <FRAME '\1aMIMC-PRINT>
 354                     <PUSH THIS-FORM20>
 355                     <DEAD THIS-FORM20>
 356                     <PUSH IOTUP14>
 357                     <CALL '\1aMIMC-PRINT 2>
 358                     <FRAME '\1aMIMC-CRLF>
 359                     <PUSH IOTUP14>
 360                     <CALL '\1aMIMC-CRLF 1>
 361                     <JUMP + PHRASE125>
 362 PHRASE52
 363                     <NTHL TEMP40 1 = OOBLIST12>
 364                     <MONAD? OOBLIST12 - TAG120>
 365                     <DEAD OOBLIST12>
 366                     <SET TEMP54 'T (TYPE ATOM)>
 367                     <JUMP + TAG122>
 368 TAG120
 369                     <SET TEMP54 %<> (TYPE FALSE)>
 370 TAG122
 371                     <VEQUAL? TEMP54 0 + PHRASE119>
 372                     <DEAD TEMP54>
 373                     <FRAME '\1aMIMC-PRINT>
 374                     <NTHL TEMP40 1 = STACK>
 375                     <PUSH IOTUP14>
 376                     <CALL '\1aMIMC-PRINT 2>
 377                     <FRAME '\1aMIMC-CRLF>
 378                     <PUSH IOTUP14>
 379                     <CALL '\1aMIMC-CRLF 1>
 380                     <JUMP + PHRASE125>
 381 PHRASE119
 382                     <FRAME '\1aMIMC-PRINT>
 383                     <NTHL TEMP40 1 = STACK>
 384                     <PUSH IOTUP14>
 385                     <CALL '\1aMIMC-PRINT 2>
 386                     <FRAME '\1aMIMC-CRLF>
 387                     <PUSH IOTUP14>
 388                     <CALL '\1aMIMC-CRLF 1>
 389 PHRASE125
 390                     <FRAME '\1aGETPROP>
 391                     <PUSH TEMP40>
 392                     <PUSH OBL11>
 393                     <CFRAME = STACK (TYPE FRAME)>
 394                     <CALL '\1aGETPROP 3 = TEMP54>
 395                     <CFRAME = OOBLIST12 (TYPE FRAME)>
 396                     <EQUAL? OOBLIST12 TEMP54 - TAG129>
 397                     <DEAD OOBLIST12>
 398                     <SET TEMP54 TEMP31>
 399                     <DEAD TEMP31>
 400 TAG129
 401                     <SET TEMP31 TEMP54>
 402                     <DEAD TEMP54>
 403                     <PUTUV IOTUP14 2 TEMP31>
 404                     <RESTL TEMP40 1 = TEMP40 (TYPE LIST)>
 405                     <JUMP + AGAIN48>
 406 EXIT44
 407                     <NTHUV IOTUP14 4 = TEMP54>
 408                     <EQUAL? TEMP54 0 + PHRASE131>
 409                     <DEAD TEMP54>
 410                     <NTHUV IOTUP14 3 = TEMP54>
 411                     <NTHUV IOTUP14 4 = OOBLIST12>
 412                     <CHANNEL-OP 'DISK 'WRITE-BUFFER OUTCHAN7 TEMP54 OOBLIST12>
 413                     <DEAD OUTCHAN7 TEMP54 OOBLIST12>
 414 PHRASE131
 415                     <FRAME '\1aCLOSE>
 416                     <NTHUV IOTUP14 1 = STACK (TYPE CHANNEL)>
 417                     <DEAD IOTUP14>
 418                     <CALL '\1aCLOSE 1>
 419                     <SET OUTCHAN7 NAM5>
 420                     <DEAD NAM5>
 421 EXIT33
 422                     <NTHR 'UNWIND 2 = OOBLIST12 (RECORD-TYPE ATOM) (TYPE LBIND)>
 423                     <PUTR OOBLIST12 1 0 (RECORD-TYPE LBIND)>
 424                     <DEAD OOBLIST12>
 425                     <JUMP + TAG30>
 426 TAG29
 427                     <TYPE? OUTCHAN7 <TYPE-CODE UNBOUND> + UNWCONT>
 428                     <TYPE? OUTCHAN7 <TYPE-CODE CHANNEL> - UNWCONT>
 429                     <FRAME '\1aCLOSE>
 430                     <PUSH OUTCHAN7>
 431                     <CALL '\1aCLOSE 1>
 432                     <JUMP + UNWCONT>
 433 TAG30
 434                     <UNBIND TEMP3>
 435                     <DEAD TEMP3>
 436                     <ADJ -19>
 437                     <RETURN OUTCHAN7>
 438                     <DEAD OUTCHAN7>
 439                     <END \1aMIMC-GROUP-DUMP>\r\r
 440 #WORD *24637226166*
 441 <GFCN \1aMIMC-PRINT ("VALUE" ANY ANY ANY) OBJ4 IOTUP5>
 442                     <TEMP TEMP8>
 443                     <INTGO>
 444                     <FRAME '\1aMIMC-CRLF>
 445                     <PUSH IOTUP5>
 446                     <CALL '\1aMIMC-CRLF 1>
 447                     <FRAME '\1aMIMC-PRIN1>
 448                     <PUSH OBJ4>
 449                     <DEAD OBJ4>
 450                     <PUSH IOTUP5>
 451                     <DEAD IOTUP5>
 452                     <CALL '\1aMIMC-PRIN1 2 = TEMP8>
 453                     <RETURN TEMP8>
 454                     <DEAD TEMP8>
 455                     <END \1aMIMC-PRINT>
 456 #WORD *22360400437*
 457                     <GFCN \1aMIMC-PRIN1 ("VALUE" ANY ANY <TUPLE <CHANNEL 'DISK> LIST STRING FIX>) DATA4 IOTUP5>
 458                     <TEMP TYP6 TEMP13 INFO9 PTYPE10 CHN11:CHANNEL>
 459                     <INTGO>
 460                     <TYPE DATA4 = TYP6>
 461                     <LSH TYP6 -6 = TYP6 (TYPE FIX)>
 462                     <GVAL 'M$$TYPE-INFO!-INTERNAL = TEMP13>
 463                     <ADD TYP6 1 = TYP6 (TYPE FIX)>
 464                     <NTHUV TEMP13 TYP6 = INFO9 (TYPE TYPE-ENTRY)>
 465                     <DEAD TEMP13 TYP6>
 466                     <NTHUV INFO9 5 = PTYPE10>
 467                     <NTHUV IOTUP5 1 = CHN11 (TYPE CHANNEL)>
 468                     <TYPE? PTYPE10 <TYPE-CODE FALSE> + PHRASE16>
 469                     <TYPE? PTYPE10 <TYPE-CODE ATOM> + PHRASE16>
 470                     <TYPE? DATA4 <TYPE-CODE ATOM> - BOOL18>
 471                     <SET PTYPE10 'ATOM (TYPE ATOM)>
 472                     <JUMP + PHRASE16>
 473 BOOL18
 474                     <TYPE? DATA4 <TYPE-CODE FCN-ATOM> - BOOL19>
 475                     <SET PTYPE10 'ATOM (TYPE ATOM)>
 476                     <JUMP + PHRASE16>
 477 BOOL19
 478                     <NTHUV IOTUP5 3 = TYP6 (TYPE STRING)>
 479                     <NTHUV IOTUP5 4 = TEMP13 (TYPE FIX)>
 480                     <CHANNEL-OP 'DISK 'WRITE-BUFFER CHN11 TYP6 TEMP13>
 481                     <DEAD TYP6 TEMP13>
 482                     <CHANNEL-OP 'DISK 'BUFOUT CHN11>
 483                     <PUTUV IOTUP5 4 0 (TYPE FIX)>
 484                     <DEAD IOTUP5>
 485                     <GETS 'BIND = TYP6 (TYPE LBIND)>
 486                     <BBIND 'OUTCHAN 'CHANNEL 'FIX CHN11>
 487                     <FRAME>
 488                     <PUSH DATA4>
 489                     <DEAD DATA4>
 490                     <ACALL PTYPE10 1>
 491                     <DEAD PTYPE10>
 492                     <CHANNEL-OP 'DISK 'BUFOUT CHN11 = TEMP13>
 493                     <DEAD CHN11>
 494                     <UNBIND TYP6>
 495                     <DEAD TYP6>
 496                     <ADJ -9>
 497                     <RETURN TEMP13>
 498                     <DEAD TEMP13>
 499 PHRASE16
 500                     <EQUAL? PTYPE10 'ATOM - PHRASE24>
 501                     <TYPE? DATA4 <TYPE-CODE FCN-ATOM> - PHRASE26>
 502                     <NTHR 'CTLZ-PRINT 1 = TYP6 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE26)>
 503                     <TYPE? TYP6 <TYPE-CODE FALSE> + PHRASE26>
 504                     <NTHR TYP6 1 = TYP6 (RECORD-TYPE GBIND)>
 505                     <TYPE? TYP6 <TYPE-CODE UNBOUND> + PHRASE26>
 506                     <DEAD TYP6>
 507                     <GVAL 'CTLZ-PRINT = TYP6>
 508                     <TYPE? TYP6 <TYPE-CODE FALSE> + PHRASE26>
 509                     <DEAD TYP6>
 510                     <FRAME '\1aMIMC-OUTC>
 511                     <PUSH !\\1a>
 512                     <PUSH IOTUP5>
 513                     <CALL '\1aMIMC-OUTC 2>
 514 PHRASE26
 515                     <FRAME '\1aMIMC-PRIN-ATOM>
 516                     <CHTYPE DATA4 <TYPE-CODE ATOM> = STACK>
 517                     <DEAD DATA4>
 518                     <PUSH IOTUP5>
 519                     <DEAD IOTUP5>
 520                     <CALL '\1aMIMC-PRIN-ATOM 2 = TEMP13>
 521                     <RETURN TEMP13>
 522                     <DEAD TEMP13>
 523 PHRASE24
 524                     <EQUAL? PTYPE10 'FIX - PHRASE30>
 525                     <FRAME '\1aI$PRIN-FIX>
 526                     <PUSH DATA4>
 527                     <DEAD DATA4>
 528                     <PUSH IOTUP5>
 529                     <DEAD IOTUP5>
 530                     <CALL '\1aI$PRIN-FIX 2 = TEMP13>
 531                     <RETURN TEMP13>
 532                     <DEAD TEMP13>
 533 PHRASE30
 534                     <EQUAL? PTYPE10 'FLOAT - PHRASE32>
 535                     <FRAME '\1aI$PRIN-FLOAT>
 536                     <PUSH DATA4>
 537                     <DEAD DATA4>
 538                     <PUSH IOTUP5>
 539                     <DEAD IOTUP5>
 540                     <CALL '\1aI$PRIN-FLOAT 2 = TEMP13>
 541                     <RETURN TEMP13>
 542                     <DEAD TEMP13>
 543 PHRASE32
 544                     <EQUAL? PTYPE10 'STRING - PHRASE34>
 545                     <FRAME '\1aMIMC-OUTC>
 546                     <PUSH !\">
 547                     <PUSH IOTUP5>
 548                     <CALL '\1aMIMC-OUTC 2>
 549                     <CHTYPE DATA4 <TYPE-CODE STRING> = TYP6>
 550                     <DEAD DATA4>
 551                     <LOOP>
 552 MAP37
 553                     <INTGO>
 554                     <EMPUS? TYP6 + MAPAP40>
 555                     <NTHUS TYP6 1 = TEMP13>
 556                     <VEQUAL? TEMP13 !\" + BOOL50>
 557                     <VEQUAL? TEMP13 !\\ - PHRASE49>
 558 BOOL50
 559                     <FRAME '\1aMIMC-OUTC>
 560                     <PUSH !\\>
 561                     <PUSH IOTUP5>
 562                     <CALL '\1aMIMC-OUTC 2>
 563 PHRASE49
 564                     <FRAME '\1aMIMC-OUTC>
 565                     <PUSH TEMP13>
 566                     <DEAD TEMP13>
 567                     <PUSH IOTUP5>
 568                     <CALL '\1aMIMC-OUTC 2>
 569                     <RESTUS TYP6 1 = TYP6 (TYPE STRING)>
 570                     <JUMP + MAP37>
 571 MAPAP40
 572                     <FRAME '\1aMIMC-OUTC>
 573                     <PUSH !\">
 574                     <PUSH IOTUP5>
 575                     <DEAD IOTUP5>
 576                     <CALL '\1aMIMC-OUTC 2 = TEMP13>
 577                     <RETURN TEMP13>
 578                     <DEAD TEMP13>
 579 PHRASE34
 580                     <EQUAL? PTYPE10 'BYTES - PHRASE54>
 581                     <FRAME '\1aMIMC-OUTS>
 582                     <PUSH "!{">
 583                     <PUSH IOTUP5>
 584                     <CALL '\1aMIMC-OUTS 2>
 585                     <CHTYPE DATA4 <TYPE-CODE BYTES> = TYP6>
 586                     <DEAD DATA4>
 587                     <LOOP>
 588 MAP57
 589                     <INTGO>
 590                     <EMPUB? TYP6 + MAPAP60>
 591                     <SET INFO9 TYP6>
 592                     <NTHUB INFO9 1 = TEMP13 (TYPE FIX)>
 593                     <FRAME '\1aI$PRIN-FIX>
 594                     <PUSH TEMP13>
 595                     <DEAD TEMP13>
 596                     <PUSH IOTUP5>
 597                     <CALL '\1aI$PRIN-FIX 2>
 598                     <RESTUB INFO9 1 = INFO9 (TYPE BYTES)>
 599                     <EMPUB? INFO9 + PHRASE69 (TYPE BYTES)>
 600                     <DEAD INFO9>
 601                     <FRAME '\1aMIMC-OUTC>
 602                     <PUSH !\ >
 603                     <PUSH IOTUP5>
 604                     <CALL '\1aMIMC-OUTC 2>
 605 PHRASE69
 606                     <RESTUB TYP6 1 = TYP6 (TYPE BYTES)>
 607                     <JUMP + MAP57>
 608 MAPAP60
 609                     <FRAME '\1aMIMC-OUTS>
 610                     <PUSH "!}">
 611                     <PUSH IOTUP5>
 612                     <DEAD IOTUP5>
 613                     <CALL '\1aMIMC-OUTS 2 = TEMP13>
 614                     <RETURN TEMP13>
 615                     <DEAD TEMP13>
 616 PHRASE54
 617                     <EQUAL? PTYPE10 'CHARACTER - PHRASE73>
 618                     <GRTR? DATA4 127 + BOOL76 (TYPE FIX)>
 619                     <LESS? DATA4 0 - PHRASE75 (TYPE FIX)>
 620 BOOL76
 621                     <FRAME '\1aMIMC-OUTS>
 622                     <PUSH "#CHARACTER *">
 623                     <PUSH IOTUP5>
 624                     <CALL '\1aMIMC-OUTS 2>
 625                     <FRAME '\1aMIMC-PRIN-OCT>
 626                     <CHTYPE DATA4 <TYPE-CODE FIX> = STACK>
 627                     <DEAD DATA4>
 628                     <PUSH IOTUP5>
 629                     <CALL '\1aMIMC-PRIN-OCT 2>
 630                     <FRAME '\1aMIMC-OUTC>
 631                     <PUSH !\*>
 632                     <PUSH IOTUP5>
 633                     <DEAD IOTUP5>
 634                     <CALL '\1aMIMC-OUTC 2 = TEMP13>
 635                     <RETURN TEMP13>
 636                     <DEAD TEMP13>
 637 PHRASE75
 638                     <FRAME '\1aMIMC-OUTS>
 639                     <PUSH "!\\">
 640                     <PUSH IOTUP5>
 641                     <CALL '\1aMIMC-OUTS 2>
 642                     <FRAME '\1aMIMC-OUTC>
 643                     <PUSH DATA4>
 644                     <DEAD DATA4>
 645                     <PUSH IOTUP5>
 646                     <DEAD IOTUP5>
 647                     <CALL '\1aMIMC-OUTC 2 = TEMP13>
 648                     <RETURN TEMP13>
 649                     <DEAD TEMP13>
 650 PHRASE73
 651                     <EQUAL? PTYPE10 'ADECL - PHRASE85>
 652                     <FRAME '\1aMIMC-PRIN1>
 653                     <NTHUV DATA4 1 = STACK>
 654                     <PUSH IOTUP5>
 655                     <CALL '\1aMIMC-PRIN1 2>
 656                     <FRAME '\1aMIMC-OUTC>
 657                     <PUSH !\:>
 658                     <PUSH IOTUP5>
 659                     <CALL '\1aMIMC-OUTC 2>
 660                     <FRAME '\1aMIMC-PRIN1>
 661                     <NTHUV DATA4 2 = STACK>
 662                     <DEAD DATA4>
 663                     <PUSH IOTUP5>
 664                     <DEAD IOTUP5>
 665                     <CALL '\1aMIMC-PRIN1 2 = TEMP13>
 666                     <RETURN TEMP13>
 667                     <DEAD TEMP13>
 668 PHRASE85
 669                     <EQUAL? PTYPE10 'FORM + BOOL91>
 670                     <EQUAL? PTYPE10 'SEGMENT - PHRASE89>
 671 BOOL91
 672                     <EMPL? DATA4 + PHRASE89>
 673                     <RESTL DATA4 1 = TYP6 (TYPE LIST)>
 674                     <EMPL? TYP6 + PHRASE89>
 675                     <RESTL TYP6 1 = TYP6 (TYPE LIST)>
 676                     <EMPL? TYP6 - PHRASE89>
 677                     <DEAD TYP6>
 678                     <NTHL DATA4 1 = TEMP13>
 679                     <EQUAL? TEMP13 'LVAL - BOOL93>
 680                     <SET TEMP13 !\. (TYPE CHARACTER)>
 681                     <JUMP + BOOL92>
 682 BOOL93
 683                     <EQUAL? TEMP13 'GVAL - BOOL94>
 684                     <SET TEMP13 !\, (TYPE CHARACTER)>
 685                     <JUMP + BOOL92>
 686 BOOL94
 687                     <EQUAL? TEMP13 'QUOTE - PHRASE89>
 688                     <DEAD TEMP13>
 689                     <SET TEMP13 !\' (TYPE CHARACTER)>
 690 BOOL92
 691                     <EQUAL? PTYPE10 'SEGMENT - PHRASE97>
 692                     <DEAD PTYPE10>
 693                     <FRAME '\1aMIMC-OUTC>
 694                     <PUSH !\!>
 695                     <PUSH IOTUP5>
 696                     <CALL '\1aMIMC-OUTC 2>
 697 PHRASE97
 698                     <FRAME '\1aMIMC-OUTC>
 699                     <PUSH TEMP13>
 700                     <DEAD TEMP13>
 701                     <PUSH IOTUP5>
 702                     <CALL '\1aMIMC-OUTC 2>
 703                     <FRAME '\1aMIMC-PRIN1>
 704                     <RESTL DATA4 1 = TYP6 (TYPE LIST)>
 705                     <DEAD DATA4>
 706                     <NTHL TYP6 1 = STACK>
 707                     <DEAD TYP6>
 708                     <PUSH IOTUP5>
 709                     <DEAD IOTUP5>
 710                     <CALL '\1aMIMC-PRIN1 2 = TEMP13>
 711                     <RETURN TEMP13>
 712                     <DEAD TEMP13>
 713 PHRASE89
 714                     <EQUAL? PTYPE10 'FORM - BOOL103>
 715                     <FRAME '\1aMIMC-OUTC>
 716                     <PUSH !\<>
 717                     <PUSH IOTUP5>
 718                     <CALL '\1aMIMC-OUTC 2>
 719                     <JUMP + BOOL102>
 720 BOOL103
 721                     <EQUAL? PTYPE10 'LIST - BOOL105>
 722                     <FRAME '\1aMIMC-OUTC>
 723                     <PUSH !\(>
 724                     <PUSH IOTUP5>
 725                     <CALL '\1aMIMC-OUTC 2>
 726                     <JUMP + BOOL102>
 727 BOOL105
 728                     <EQUAL? PTYPE10 'SEGMENT - PHRASE101>
 729                     <FRAME '\1aMIMC-OUTS>
 730                     <PUSH "!<">
 731                     <PUSH IOTUP5>
 732                     <CALL '\1aMIMC-OUTS 2>
 733 BOOL102
 734                     <CHTYPE DATA4 <TYPE-CODE LIST> = TYP6>
 735                     <DEAD DATA4>
 736                     <LOOP>
 737 MAP110
 738                     <INTGO>
 739                     <EMPL? TYP6 + MAPAP113>
 740                     <SET INFO9 TYP6>
 741                     <NTHL INFO9 1 = TEMP13>
 742                     <FRAME '\1aMIMC-PRIN1>
 743                     <PUSH TEMP13>
 744                     <DEAD TEMP13>
 745                     <PUSH IOTUP5>
 746                     <CALL '\1aMIMC-PRIN1 2>
 747                     <RESTL INFO9 1 = INFO9 (TYPE LIST)>
 748                     <EMPL? INFO9 + PHRASE121 (TYPE LIST)>
 749                     <DEAD INFO9>
 750                     <FRAME '\1aMIMC-OUTC>
 751                     <PUSH !\ >
 752                     <PUSH IOTUP5>
 753                     <CALL '\1aMIMC-OUTC 2>
 754 PHRASE121
 755                     <RESTL TYP6 1 = TYP6 (TYPE LIST)>
 756                     <JUMP + MAP110>
 757 MAPAP113
 758                     <EQUAL? PTYPE10 'LIST + PHRASE125>
 759                     <DEAD PTYPE10>
 760                     <FRAME '\1aMIMC-OUTC>
 761                     <PUSH !\>>
 762                     <PUSH IOTUP5>
 763                     <DEAD IOTUP5>
 764                     <CALL '\1aMIMC-OUTC 2 = TEMP13>
 765                     <RETURN TEMP13>
 766                     <DEAD TEMP13>
 767 PHRASE125
 768                     <FRAME '\1aMIMC-OUTC>
 769                     <PUSH !\)>
 770                     <PUSH IOTUP5>
 771                     <DEAD IOTUP5>
 772                     <CALL '\1aMIMC-OUTC 2 = TEMP13>
 773                     <RETURN TEMP13>
 774                     <DEAD TEMP13>
 775 PHRASE101
 776                     <EQUAL? PTYPE10 'OFFSET - PHRASE129>
 777                     <FRAME '\1aMIMC-OUTS>
 778                     <PUSH "%<OFFSET ">
 779                     <PUSH IOTUP5>
 780                     <CALL '\1aMIMC-OUTS 2>
 781                     <FRAME '\1aI$PRIN-FIX>
 782                     <NTHUV DATA4 1 = STACK (TYPE FIX)>
 783                     <PUSH IOTUP5>
 784                     <CALL '\1aI$PRIN-FIX 2>
 785                     <NTHUV DATA4 2 = TEMP13>
 786                     <TYPE? TEMP13 <TYPE-CODE ATOM> - PHRASE133>
 787                     <FRAME '\1aMIMC-OUTC>
 788                     <PUSH !\ >
 789                     <PUSH IOTUP5>
 790                     <CALL '\1aMIMC-OUTC 2>
 791                     <FRAME '\1aMIMC-PRIN-ATOM>
 792                     <PUSH TEMP13>
 793                     <DEAD TEMP13>
 794                     <PUSH IOTUP5>
 795                     <CALL '\1aMIMC-PRIN-ATOM 2>
 796                     <JUMP + PHRASE136>
 797 PHRASE133
 798                     <FRAME '\1aMIMC-OUTS>
 799                     <PUSH " '">
 800                     <PUSH IOTUP5>
 801                     <CALL '\1aMIMC-OUTS 2>
 802                     <FRAME '\1aMIMC-PRIN1>
 803                     <PUSH TEMP13>
 804                     <DEAD TEMP13>
 805                     <PUSH IOTUP5>
 806                     <CALL '\1aMIMC-PRIN1 2>
 807 PHRASE136
 808                     <NTHUV DATA4 3 = TEMP13>
 809                     <DEAD DATA4>
 810                     <TYPE? TEMP13 <TYPE-CODE ATOM> - PHRASE140>
 811                     <FRAME '\1aMIMC-OUTC>
 812                     <PUSH !\ >
 813                     <PUSH IOTUP5>
 814                     <CALL '\1aMIMC-OUTC 2>
 815                     <FRAME '\1aMIMC-PRIN-ATOM>
 816                     <PUSH TEMP13>
 817                     <DEAD TEMP13>
 818                     <PUSH IOTUP5>
 819                     <CALL '\1aMIMC-PRIN-ATOM 2>
 820                     <JUMP + PHRASE143>
 821 PHRASE140
 822                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE143>
 823                     <FRAME '\1aMIMC-OUTS>
 824                     <PUSH " '">
 825                     <PUSH IOTUP5>
 826                     <CALL '\1aMIMC-OUTS 2>
 827                     <FRAME '\1aMIMC-PRIN1>
 828                     <PUSH TEMP13>
 829                     <DEAD TEMP13>
 830                     <PUSH IOTUP5>
 831                     <CALL '\1aMIMC-PRIN1 2>
 832 PHRASE143
 833                     <FRAME '\1aMIMC-OUTC>
 834                     <PUSH !\>>
 835                     <PUSH IOTUP5>
 836                     <DEAD IOTUP5>
 837                     <CALL '\1aMIMC-OUTC 2 = TEMP13>
 838                     <RETURN TEMP13>
 839                     <DEAD TEMP13>
 840 PHRASE129
 841                     <EQUAL? PTYPE10 'TYPE-C - PHRASE147>
 842                     <FRAME '\1aI$PRIN-TYPE-W-C>
 843                     <PUSH DATA4>
 844                     <DEAD DATA4>
 845                     <PUSH %<>>
 846                     <PUSH IOTUP5>
 847                     <DEAD IOTUP5>
 848                     <CALL '\1aI$PRIN-TYPE-W-C 3 = TEMP13>
 849                     <RETURN TEMP13>
 850                     <DEAD TEMP13>
 851 PHRASE147
 852                     <EQUAL? PTYPE10 'TYPE-W - PHRASE149>
 853                     <FRAME '\1aI$PRIN-TYPE-W-C>
 854                     <PUSH DATA4>
 855                     <DEAD DATA4>
 856                     <PUSH 'T>
 857                     <PUSH IOTUP5>
 858                     <DEAD IOTUP5>
 859                     <CALL '\1aI$PRIN-TYPE-W-C 3 = TEMP13>
 860                     <RETURN TEMP13>
 861                     <DEAD TEMP13>
 862 PHRASE149
 863                     <EQUAL? PTYPE10 'UVECTOR - PHRASE151>
 864                     <FRAME '\1aMIMC-OUTS>
 865                     <PUSH "![">
 866                     <PUSH IOTUP5>
 867                     <CALL '\1aMIMC-OUTS 2>
 868                     <CHTYPE DATA4 <TYPE-CODE UVECTOR> = TYP6>
 869                     <DEAD DATA4>
 870                     <LOOP>
 871 MAP154
 872                     <INTGO>
 873                     <EMPUU? TYP6 + MAPAP157>
 874                     <SET INFO9 TYP6>
 875                     <NTHUU INFO9 1 = TEMP13 (TYPE FIX)>
 876                     <FRAME '\1aI$PRIN-FIX>
 877                     <PUSH TEMP13>
 878                     <DEAD TEMP13>
 879                     <PUSH IOTUP5>
 880                     <CALL '\1aI$PRIN-FIX 2>
 881                     <RESTUU INFO9 1 = TEMP13 (TYPE UVECTOR)>
 882                     <DEAD INFO9>
 883                     <EMPUU? TEMP13 + PHRASE165 (TYPE UVECTOR)>
 884                     <DEAD TEMP13>
 885                     <FRAME '\1aMIMC-OUTC>
 886                     <PUSH !\ >
 887                     <PUSH IOTUP5>
 888                     <CALL '\1aMIMC-OUTC 2>
 889 PHRASE165
 890                     <RESTUU TYP6 1 = TYP6 (TYPE UVECTOR)>
 891                     <JUMP + MAP154>
 892 MAPAP157
 893                     <FRAME '\1aMIMC-OUTS>
 894                     <PUSH "!]">
 895                     <PUSH IOTUP5>
 896                     <DEAD IOTUP5>
 897                     <CALL '\1aMIMC-OUTS 2 = TEMP13>
 898                     <RETURN TEMP13>
 899                     <DEAD TEMP13>
 900 PHRASE151
 901                     <EQUAL? PTYPE10 'VECTOR - PHRASE169>
 902                     <FRAME '\1aMIMC-OUTC>
 903                     <PUSH !\[>
 904                     <PUSH IOTUP5>
 905                     <CALL '\1aMIMC-OUTC 2>
 906                     <CHTYPE DATA4 <TYPE-CODE VECTOR> = TYP6>
 907                     <DEAD DATA4>
 908                     <LOOP>
 909 MAP172
 910                     <INTGO>
 911                     <EMPUV? TYP6 + MAPAP175>
 912                     <SET INFO9 TYP6>
 913                     <NTHUV INFO9 1 = TEMP13>
 914                     <FRAME '\1aMIMC-PRIN1>
 915                     <PUSH TEMP13>
 916                     <DEAD TEMP13>
 917                     <PUSH IOTUP5>
 918                     <CALL '\1aMIMC-PRIN1 2>
 919                     <RESTUV INFO9 1 = INFO9 (TYPE VECTOR)>
 920                     <EMPUV? INFO9 + PHRASE183 (TYPE VECTOR)>
 921                     <DEAD INFO9>
 922                     <FRAME '\1aMIMC-OUTC>
 923                     <PUSH !\ >
 924                     <PUSH IOTUP5>
 925                     <CALL '\1aMIMC-OUTC 2>
 926 PHRASE183
 927                     <RESTUV TYP6 1 = TYP6 (TYPE VECTOR)>
 928                     <JUMP + MAP172>
 929 MAPAP175
 930                     <FRAME '\1aMIMC-OUTC>
 931                     <PUSH !\]>
 932                     <PUSH IOTUP5>
 933                     <DEAD IOTUP5>
 934                     <CALL '\1aMIMC-OUTC 2 = TEMP13>
 935                     <RETURN TEMP13>
 936                     <DEAD TEMP13>
 937 PHRASE169
 938                     <EQUAL? DATA4 %<> - PHRASE187>
 939                     <FRAME '\1aMIMC-OUTS>
 940                     <PUSH "%<>">
 941                     <PUSH IOTUP5>
 942                     <DEAD IOTUP5>
 943                     <CALL '\1aMIMC-OUTS 2 = TEMP13>
 944                     <RETURN TEMP13>
 945                     <DEAD TEMP13>
 946 PHRASE187
 947                     <EQUAL? PTYPE10 'GVAL - PHRASE189>
 948                     <FRAME '\1aMIMC-OUTC>
 949                     <PUSH !\,>
 950                     <PUSH IOTUP5>
 951                     <CALL '\1aMIMC-OUTC 2>
 952                     <FRAME '\1aMIMC-PRIN-ATOM>
 953                     <CHTYPE DATA4 <TYPE-CODE ATOM> = STACK>
 954                     <DEAD DATA4>
 955                     <PUSH IOTUP5>
 956                     <DEAD IOTUP5>
 957                     <CALL '\1aMIMC-PRIN-ATOM 2 = TEMP13>
 958                     <RETURN TEMP13>
 959                     <DEAD TEMP13>
 960 PHRASE189
 961                     <EQUAL? PTYPE10 'LVAL - PHRASE192>
 962                     <DEAD PTYPE10>
 963                     <FRAME '\1aMIMC-OUTC>
 964                     <PUSH !\.>
 965                     <PUSH IOTUP5>
 966                     <CALL '\1aMIMC-OUTC 2>
 967                     <FRAME '\1aMIMC-PRIN-ATOM>
 968                     <CHTYPE DATA4 <TYPE-CODE ATOM> = STACK>
 969                     <DEAD DATA4>
 970                     <PUSH IOTUP5>
 971                     <DEAD IOTUP5>
 972                     <CALL '\1aMIMC-PRIN-ATOM 2 = TEMP13>
 973                     <RETURN TEMP13>
 974                     <DEAD TEMP13>
 975 PHRASE192
 976                     <TYPE? DATA4 <TYPE-CODE WORD> - PHRASE195>
 977                     <FRAME '\1aMIMC-OUTS>
 978                     <PUSH "#WORD *">
 979                     <PUSH IOTUP5>
 980                     <CALL '\1aMIMC-OUTS 2>
 981                     <FRAME '\1aMIMC-PRIN-OCT>
 982                     <CHTYPE DATA4 <TYPE-CODE FIX> = STACK>
 983                     <DEAD DATA4>
 984                     <PUSH IOTUP5>
 985                     <CALL '\1aMIMC-PRIN-OCT 2>
 986                     <FRAME '\1aMIMC-OUTC>
 987                     <PUSH !\*>
 988                     <PUSH IOTUP5>
 989                     <DEAD IOTUP5>
 990                     <CALL '\1aMIMC-OUTC 2 = TEMP13>
 991                     <RETURN TEMP13>
 992                     <DEAD TEMP13>
 993 PHRASE195
 994                     <NTHUV INFO9 1 = TYP6 (TYPE ATOM)>
 995                     <NTHUV INFO9 2 = TEMP13 (TYPE ATOM)>
 996                     <VEQUAL? TYP6 TEMP13 - PHRASE199>
 997                     <DEAD TYP6 TEMP13>
 998                     <NTHUV IOTUP5 3 = TEMP13 (TYPE STRING)>
 999                     <NTHUV IOTUP5 4 = TYP6 (TYPE FIX)>
1000                     <CHANNEL-OP 'DISK 'WRITE-BUFFER CHN11 TEMP13 TYP6>
1001                     <DEAD TEMP13 TYP6>
1002                     <CHANNEL-OP 'DISK 'BUFOUT CHN11>
1003                     <PUTUV IOTUP5 4 0 (TYPE FIX)>
1004                     <DEAD IOTUP5>
1005                     <GETS 'BIND = TYP6 (TYPE LBIND)>
1006                     <BBIND 'OUTCHAN 'CHANNEL 'FIX CHN11>
1007                     <DEAD CHN11>
1008                     <FRAME '\1aPRIN1>
1009                     <PUSH DATA4>
1010                     <DEAD DATA4>
1011                     <NTHR 'OUTCHAN 2 = TEMP13 (RECORD-TYPE ATOM) (TYPE LBIND)>
1012                     <NTHR TEMP13 1 = STACK (RECORD-TYPE LBIND)>
1013                     <DEAD TEMP13>
1014                     <CALL '\1aPRIN1 2 = TEMP13>
1015                     <UNBIND TYP6>
1016                     <DEAD TYP6>
1017                     <ADJ -9>
1018                     <RETURN TEMP13>
1019                     <DEAD TEMP13>
1020 PHRASE199
1021                     <FRAME '\1aMIMC-OUTC>
1022                     <PUSH !\#>
1023                     <PUSH IOTUP5>
1024                     <CALL '\1aMIMC-OUTC 2>
1025                     <FRAME '\1aMIMC-PRIN-ATOM>
1026                     <NTHUV INFO9 1 = STACK (TYPE ATOM)>
1027                     <PUSH IOTUP5>
1028                     <CALL '\1aMIMC-PRIN-ATOM 2>
1029                     <FRAME '\1aMIMC-OUTC>
1030                     <PUSH !\ >
1031                     <PUSH IOTUP5>
1032                     <CALL '\1aMIMC-OUTC 2>
1033                     <FRAME '\1aMIMC-PRIN1>
1034                     <FRAME '\1aCHTYPE>
1035                     <PUSH DATA4>
1036                     <DEAD DATA4>
1037                     <NTHUV INFO9 2 = STACK (TYPE ATOM)>
1038                     <DEAD INFO9>
1039                     <CALL '\1aCHTYPE 2 = STACK>
1040                     <PUSH IOTUP5>
1041                     <DEAD IOTUP5>
1042                     <CALL '\1aMIMC-PRIN1 2 = TEMP13>
1043                     <RETURN TEMP13>
1044                     <DEAD TEMP13>
1045                     <END \1aMIMC-PRIN1>
1046
1047 #WORD *33132614537*
1048 <GFCN \1aI$PRIN-TYPE-W-C ("VALUE" ANY ANY ANY <TUPLE CHANNEL LIST STRING FIX>) DATA4 W-C5 IOTUP6>
1049                     <TEMP TYOFF8:FIX TEMP11 TEMP18>
1050                     <INTGO>
1051                     <TYPE? W-C5 <TYPE-CODE FALSE> + PHRASE10>
1052                     <TYPEWC DATA4 = TEMP11>
1053                     <DEAD DATA4>
1054                     <LSH TEMP11 -6 = TYOFF8 (TYPE FIX)>
1055                     <DEAD TEMP11>
1056                     <JUMP + PHRASE12>
1057 PHRASE10
1058                     <LSH DATA4 -6 = TYOFF8 (TYPE FIX)>
1059                     <DEAD DATA4>
1060 PHRASE12
1061                     <LESS? TYOFF8 0 + PHRASE14 (TYPE FIX)>
1062                     <GRTR? TYOFF8 1024 + PHRASE14 (TYPE FIX)>
1063                     <GVAL 'M$$TYPE-INFO!-INTERNAL = TEMP11>
1064                     <ADD TYOFF8 1 = TEMP18 (TYPE FIX)>
1065                     <NTHUV TEMP11 TEMP18 = TEMP11>
1066                     <DEAD TEMP18>
1067                     <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE14>
1068                     <TYPE? W-C5 <TYPE-CODE FALSE> + PHRASE20>
1069                     <DEAD W-C5>
1070                     <FRAME '\1aMIMC-OUTS>
1071                     <PUSH "%<TYPE-W ">
1072                     <PUSH IOTUP6>
1073                     <CALL '\1aMIMC-OUTS 2>
1074                     <JUMP + PHRASE22>
1075 PHRASE20
1076                     <FRAME '\1aMIMC-OUTS>
1077                     <PUSH "%<TYPE-C ">
1078                     <PUSH IOTUP6>
1079                     <CALL '\1aMIMC-OUTS 2>
1080 PHRASE22
1081                     <FRAME '\1aMIMC-PRIN-ATOM>
1082                     <NTHUV TEMP11 1 = STACK (TYPE ATOM)>
1083                     <PUSH IOTUP6>
1084                     <CALL '\1aMIMC-PRIN-ATOM 2>
1085                     <FRAME '\1aMIMC-OUTC>
1086                     <PUSH !\ >
1087                     <PUSH IOTUP6>
1088                     <CALL '\1aMIMC-OUTC 2>
1089                     <FRAME '\1aMIMC-PRIN-ATOM>
1090                     <NTHUV TEMP11 2 = STACK (TYPE ATOM)>
1091                     <DEAD TEMP11>
1092                     <PUSH IOTUP6>
1093                     <CALL '\1aMIMC-PRIN-ATOM 2>
1094                     <FRAME '\1aMIMC-OUTC>
1095                     <PUSH !\>>
1096                     <PUSH IOTUP6>
1097                     <DEAD IOTUP6>
1098                     <CALL '\1aMIMC-OUTC 2 = TEMP18>
1099                     <RETURN TEMP18>
1100                     <DEAD TEMP18>
1101 PHRASE14
1102                     <FRAME '\1aERROR>
1103                     <PUSH 'BAD-TYPE-CODE!-ERRORS>
1104                     <PUSH TYOFF8>
1105                     <DEAD TYOFF8>
1106                     <PUSH 'PRINT>
1107                     <CALL '\1aERROR 3 = TEMP18>
1108                     <RETURN TEMP18>
1109                     <DEAD TEMP18>
1110                     <END \1aI$PRIN-TYPE-W-C>
1111 #WORD *6637220626*
1112 <GFCN \1aMIMC-PRIN-OCT ("VALUE" <OR FALSE STRING> FIX <TUPLE CHANNEL LIST STRING FIX>) NUM4 IOTUP5>
1113                     <TEMP TEMP11>
1114                     <INTGO>
1115                     <VEQUAL? NUM4 0 - PHRASE7 (TYPE FIX)>
1116                     <FRAME '\1aMIMC-OUTC>
1117                     <PUSH !\0>
1118                     <PUSH IOTUP5>
1119                     <DEAD IOTUP5>
1120                     <CALL '\1aMIMC-OUTC 2 = TEMP11>
1121                     <RETURN TEMP11>
1122                     <DEAD TEMP11>
1123 PHRASE7
1124                     <FRAME '\1aMIMC-POCT>
1125                     <PUSH NUM4>
1126                     <DEAD NUM4>
1127                     <PUSH IOTUP5>
1128                     <DEAD IOTUP5>
1129                     <CALL '\1aMIMC-POCT 2 = TEMP11>
1130                     <RETURN TEMP11>
1131                     <DEAD TEMP11>
1132                     <END \1aMIMC-PRIN-OCT>
1133 #WORD *4312470372*
1134 <GFCN \1aMIMC-POCT ("VALUE" <OR FALSE STRING> FIX <TUPLE CHANNEL LIST STRING FIX>) X4 IOTUP5>
1135                     <TEMP TEMP8>
1136                     <INTGO>
1137                     <VEQUAL? X4 0 - TAG9 (TYPE FIX)>
1138                     <RETURN %<>>
1139 TAG9
1140                     <FRAME '\1aMIMC-POCT>
1141                     <LSH X4 -3 = STACK (TYPE FIX)>
1142                     <PUSH IOTUP5>
1143                     <CALL '\1aMIMC-POCT 2>
1144                     <FRAME '\1aMIMC-OUTC>
1145                     <AND X4 #WORD *7* = TEMP8>
1146                     <DEAD X4>
1147                     <ADD TEMP8 48 = TEMP8 (TYPE FIX)>
1148                     <CHTYPE TEMP8 <TYPE-CODE CHARACTER> = STACK>
1149                     <DEAD TEMP8>
1150                     <PUSH IOTUP5>
1151                     <DEAD IOTUP5>
1152                     <CALL '\1aMIMC-OUTC 2 = TEMP8>
1153                     <RETURN TEMP8>
1154                     <DEAD TEMP8>
1155                     <END \1aMIMC-POCT>
1156 #WORD *37644714216*
1157 <GFCN \1aI$PRIN-FIX ("VALUE" <OR ATOM FALSE STRING> FIX <TUPLE CHANNEL LIST STRING FIX>) NUM4 IOTUP5>
1158                     <TEMP TEMP9>
1159                     <INTGO>
1160                     <VEQUAL? NUM4 %<CHTYPE <MIN> FIX> - PHRASE7 (TYPE FIX)>
1161                     <FRAME '\1aMIMC-OUTS>
1162                     <PUSH "%<CHTYPE <MIN> FIX>">
1163                     <PUSH IOTUP5>
1164                     <DEAD IOTUP5>
1165                     <CALL '\1aMIMC-OUTS 2 = TEMP9>
1166                     <RETURN TEMP9>
1167                     <DEAD TEMP9>
1168 PHRASE7
1169                     <VEQUAL? NUM4 %<CHTYPE <MAX> FIX> - PHRASE10 (TYPE FIX)>
1170                     <FRAME '\1aMIMC-OUTS>
1171                     <PUSH "%<CHTYPE <MAX> FIX>">
1172                     <PUSH IOTUP5>
1173                     <DEAD IOTUP5>
1174                     <CALL '\1aMIMC-OUTS 2 = TEMP9>
1175                     <RETURN TEMP9>
1176                     <DEAD TEMP9>
1177 PHRASE10
1178                     <VEQUAL? NUM4 -0 - PHRASE12 (TYPE FIX)>
1179                     <FRAME '\1aMIMC-OUTS>
1180                     <PUSH "-0">
1181                     <PUSH IOTUP5>
1182                     <DEAD IOTUP5>
1183                     <CALL '\1aMIMC-OUTS 2 = TEMP9>
1184                     <RETURN TEMP9>
1185                     <DEAD TEMP9>
1186 PHRASE12
1187                     <LESS? NUM4 0 - PHRASE14 (TYPE FIX)>
1188                     <FRAME '\1aMIMC-OUTC>
1189                     <PUSH !\->
1190                     <PUSH IOTUP5>
1191                     <CALL '\1aMIMC-OUTC 2>
1192                     <FRAME '\1aI$PRIN-INT>
1193                     <SUB 0 NUM4 = STACK (TYPE FIX)>
1194                     <DEAD NUM4>
1195                     <PUSH IOTUP5>
1196                     <DEAD IOTUP5>
1197                     <CALL '\1aI$PRIN-INT 2 = TEMP9>
1198                     <RETURN TEMP9>
1199                     <DEAD TEMP9>
1200 PHRASE14
1201                     <VEQUAL? NUM4 0 - PHRASE19 (TYPE FIX)>
1202                     <FRAME '\1aMIMC-OUTC>
1203                     <PUSH !\0>
1204                     <PUSH IOTUP5>
1205                     <DEAD IOTUP5>
1206                     <CALL '\1aMIMC-OUTC 2 = TEMP9>
1207                     <RETURN TEMP9>
1208                     <DEAD TEMP9>
1209 PHRASE19
1210                     <FRAME '\1aI$PRIN-INT>
1211                     <PUSH NUM4>
1212                     <DEAD NUM4>
1213                     <PUSH IOTUP5>
1214                     <DEAD IOTUP5>
1215                     <CALL '\1aI$PRIN-INT 2 = TEMP9>
1216                     <RETURN TEMP9>
1217                     <DEAD TEMP9>
1218                     <END \1aI$PRIN-FIX>
1219 #WORD *5606142040*
1220 <GFCN \1aI$PRIN-INT ("VALUE" <OR FALSE STRING> FIX <TUPLE CHANNEL LIST STRING FIX>) NUM4 IOTUP5>
1221                     <TEMP TEMP8>
1222                     <INTGO>
1223                     <VEQUAL? NUM4 0 - TAG9 (TYPE FIX)>
1224                     <RETURN %<>>
1225 TAG9
1226                     <FRAME '\1aI$PRIN-INT>
1227                     <DIV NUM4 10 = STACK (TYPE FIX)>
1228                     <PUSH IOTUP5>
1229                     <CALL '\1aI$PRIN-INT 2>
1230                     <FRAME '\1aMIMC-OUTC>
1231                     <MOD NUM4 10 = TEMP8 (TYPE FIX)>
1232                     <DEAD NUM4>
1233                     <ADD TEMP8 48 = TEMP8 (TYPE FIX)>
1234                     <CHTYPE TEMP8 <TYPE-CODE CHARACTER> = STACK>
1235                     <DEAD TEMP8>
1236                     <PUSH IOTUP5>
1237                     <DEAD IOTUP5>
1238                     <CALL '\1aMIMC-OUTC 2 = TEMP8>
1239                     <RETURN TEMP8>
1240                     <DEAD TEMP8>
1241                     <END \1aI$PRIN-INT>
1242 #WORD *4540104330*
1243 <GFCN \1aI$PRIN-FLOAT ("VALUE" <OR ATOM FALSE STRING> FLOAT <TUPLE CHANNEL LIST STRING FIX>) NUM4 IOTUP5>
1244                     <TEMP MANT6:FLOAT (EXP7:FIX 0) (SIGD9:FIX 7) (OFFSET10:FIX 1) TEMP13 DIG8:FIX>
1245                     <INTGO>
1246                     <SET MANT6 NUM4>
1247                     <GVAL 'MINFL = TEMP13>
1248                     <EQUAL? TEMP13 NUM4 - PHRASE12>
1249                     <DEAD TEMP13>
1250                     <FRAME '\1aMIMC-OUTS>
1251                     <PUSH "%,MINFL">
1252                     <PUSH IOTUP5>
1253                     <DEAD IOTUP5>
1254                     <CALL '\1aMIMC-OUTS 2 = TEMP13>
1255                     <RETURN TEMP13>
1256                     <DEAD TEMP13>
1257 PHRASE12
1258                     <GVAL 'MAXFL = TEMP13>
1259                     <EQUAL? TEMP13 NUM4 - PHRASE15>
1260                     <DEAD TEMP13>
1261                     <FRAME '\1aMIMC-OUTS>
1262                     <PUSH "%,MAXFL">
1263                     <PUSH IOTUP5>
1264                     <DEAD IOTUP5>
1265                     <CALL '\1aMIMC-OUTS 2 = TEMP13>
1266                     <RETURN TEMP13>
1267                     <DEAD TEMP13>
1268 PHRASE15
1269                     <LESS? NUM4 0.0 - PHRASE20 (TYPE FLOAT)>
1270                     <FRAME '\1aMIMC-OUTC>
1271                     <PUSH !\->
1272                     <PUSH IOTUP5>
1273                     <CALL '\1aMIMC-OUTC 2>
1274                     <SUBF 0.0 NUM4 = NUM4 (TYPE FLOAT)>
1275                     <SET MANT6 NUM4>
1276 PHRASE20
1277                     <LESS? NUM4 10.0 + PHRASE25 (TYPE FLOAT)>
1278                     <LOOP>
1279 AGAIN27
1280                     <INTGO>
1281                     <DIVF MANT6 10.0 = MANT6 (TYPE FLOAT)>
1282                     <ADD EXP7 1 = EXP7 (TYPE FIX)>
1283                     <LESS? MANT6 10.0 - AGAIN27 (TYPE FLOAT)>
1284                     <JUMP + EXIT34>
1285 PHRASE25
1286                     <VEQUAL? NUM4 0.0 - PHRASE30 (TYPE FLOAT)>
1287                     <SET EXP7 -1 (TYPE FIX)>
1288                     <JUMP + EXIT34>
1289 PHRASE30
1290                     <LESS? NUM4 1.0 - EXIT34 (TYPE FLOAT)>
1291                     <LOOP>
1292 AGAIN36
1293                     <INTGO>
1294                     <MULF MANT6 10.0 = MANT6 (TYPE FLOAT)>
1295                     <SUB EXP7 1 = EXP7 (TYPE FIX)>
1296                     <LESS? MANT6 1.0 + AGAIN36 (TYPE FLOAT)>
1297 EXIT34
1298                     <GRTR? EXP7 7 + BOOL41 (TYPE FIX)>
1299                     <LESS? EXP7 -2 - PHRASE40 (TYPE FIX)>
1300 BOOL41
1301                     <FRAME '\1aI$PRIN-INT>
1302                     <FIX MANT6 = DIG8 (TYPE FIX)>
1303                     <PUSH DIG8>
1304                     <PUSH IOTUP5>
1305                     <CALL '\1aI$PRIN-INT 2>
1306                     <FRAME '\1aI$PRIN-DEC>
1307                     <FLOAT DIG8 = TEMP13 (TYPE FLOAT)>
1308                     <DEAD DIG8>
1309                     <SUBF MANT6 TEMP13 = STACK (TYPE FLOAT)>
1310                     <DEAD MANT6 TEMP13>
1311                     <PUSH SIGD9>
1312                     <PUSH IOTUP5>
1313                     <PUSH OFFSET10>
1314                     <DEAD OFFSET10>
1315                     <CALL '\1aI$PRIN-DEC 4>
1316                     <FRAME '\1aMIMC-OUTC>
1317                     <PUSH !\E>
1318                     <PUSH IOTUP5>
1319                     <CALL '\1aMIMC-OUTC 2>
1320                     <GRTR? EXP7 SIGD9 - PHRASE47 (TYPE FIX)>
1321                     <DEAD SIGD9>
1322                     <FRAME '\1aMIMC-OUTC>
1323                     <PUSH !\+>
1324                     <PUSH IOTUP5>
1325                     <CALL '\1aMIMC-OUTC 2>
1326                     <FRAME '\1aI$PRIN-INT>
1327                     <PUSH EXP7>
1328                     <DEAD EXP7>
1329                     <PUSH IOTUP5>
1330                     <DEAD IOTUP5>
1331                     <CALL '\1aI$PRIN-INT 2 = TEMP13>
1332                     <RETURN TEMP13>
1333                     <DEAD TEMP13>
1334 PHRASE47
1335                     <FRAME '\1aMIMC-OUTC>
1336                     <PUSH !\->
1337                     <PUSH IOTUP5>
1338                     <CALL '\1aMIMC-OUTC 2>
1339                     <FRAME '\1aI$PRIN-INT>
1340                     <SUB 0 EXP7 = STACK (TYPE FIX)>
1341                     <DEAD EXP7>
1342                     <PUSH IOTUP5>
1343                     <DEAD IOTUP5>
1344                     <CALL '\1aI$PRIN-INT 2 = TEMP13>
1345                     <RETURN TEMP13>
1346                     <DEAD TEMP13>
1347 PHRASE40
1348                     <LESS? EXP7 0 + PHRASE53 (TYPE FIX)>
1349                     <GRTR? EXP7 7 + PHRASE57 (TYPE FIX)>
1350                     <SUB 8 EXP7 = OFFSET10 (TYPE FIX)>
1351 PHRASE57
1352                     <GVAL 'I$FLOAT-TABLE!-INTERNAL = TEMP13>
1353                     <NTHUV TEMP13 OFFSET10 = TEMP13 (TYPE FLOAT)>
1354                     <ADDF TEMP13 NUM4 = TEMP13 (TYPE FLOAT)>
1355                     <FIX TEMP13 = TEMP13 (TYPE FIX)>
1356                     <FIX NUM4 = DIG8 (TYPE FIX)>
1357                     <GRTR? TEMP13 DIG8 - PHRASE59 (TYPE FIX)>
1358                     <DEAD TEMP13 DIG8>
1359                     <GVAL 'I$FLOAT-TABLE!-INTERNAL = TEMP13>
1360                     <NTHUV TEMP13 OFFSET10 = TEMP13 (TYPE FLOAT)>
1361                     <DEAD OFFSET10>
1362                     <ADDF TEMP13 NUM4 = NUM4 (TYPE FLOAT)>
1363                     <DEAD TEMP13>
1364                     <SET OFFSET10 1 (TYPE FIX)>
1365 PHRASE59
1366                     <FRAME '\1aI$PRIN-INT>
1367                     <FIX NUM4 = DIG8 (TYPE FIX)>
1368                     <PUSH DIG8>
1369                     <PUSH IOTUP5>
1370                     <CALL '\1aI$PRIN-INT 2>
1371                     <FRAME '\1aI$PRIN-DEC>
1372                     <FLOAT DIG8 = TEMP13 (TYPE FLOAT)>
1373                     <DEAD DIG8>
1374                     <SUBF NUM4 TEMP13 = STACK (TYPE FLOAT)>
1375                     <DEAD NUM4 TEMP13>
1376                     <SUB SIGD9 EXP7 = STACK (TYPE FIX)>
1377                     <DEAD SIGD9 EXP7>
1378                     <PUSH IOTUP5>
1379                     <DEAD IOTUP5>
1380                     <PUSH OFFSET10>
1381                     <DEAD OFFSET10>
1382                     <CALL '\1aI$PRIN-DEC 4 = TEMP13>
1383                     <RETURN TEMP13>
1384                     <DEAD TEMP13>
1385 PHRASE53
1386                     <VEQUAL? NUM4 0.0 + PHRASE65 (TYPE FLOAT)>
1387                     <GVAL 'I$FLOAT-TABLE!-INTERNAL = TEMP13>
1388                     <NTHUV TEMP13 8 = TEMP13 (TYPE FLOAT)>
1389                     <ADDF TEMP13 NUM4 = NUM4 (TYPE FLOAT)>
1390                     <DEAD TEMP13>
1391 PHRASE65
1392                     <SET OFFSET10 1 (TYPE FIX)>
1393                     <LESS? NUM4 1.0 + PHRASE69 (TYPE FLOAT)>
1394                     <FRAME '\1aMIMC-OUTC>
1395                     <PUSH !\1>
1396                     <PUSH IOTUP5>
1397                     <CALL '\1aMIMC-OUTC 2>
1398                     <SUBF NUM4 1.0 = NUM4 (TYPE FLOAT)>
1399                     <JUMP + PHRASE71>
1400 PHRASE69
1401                     <FRAME '\1aMIMC-OUTC>
1402                     <PUSH !\0>
1403                     <PUSH IOTUP5>
1404                     <CALL '\1aMIMC-OUTC 2>
1405 PHRASE71
1406                     <FRAME '\1aI$PRIN-DEC>
1407                     <PUSH NUM4>
1408                     <DEAD NUM4>
1409                     <PUSH SIGD9>
1410                     <DEAD SIGD9>
1411                     <PUSH IOTUP5>
1412                     <DEAD IOTUP5>
1413                     <PUSH OFFSET10>
1414                     <DEAD OFFSET10>
1415                     <CALL '\1aI$PRIN-DEC 4 = TEMP13>
1416                     <RETURN TEMP13>
1417                     <DEAD TEMP13>
1418                     <END \1aI$PRIN-FLOAT>
1419 #WORD *20335277425*
1420 <GFCN \1aI$PRIN-DEC ("VALUE" <OR ATOM STRING> FLOAT FIX <TUPLE CHANNEL LIST STRING FIX> ANY) NUM4 MIN5 IOTUP6 OFFSET7>
1421                     <TEMP (Z-COUNT8:FIX 0) TEMP15 DIG19:FIX>
1422                     <INTGO>
1423                     <FRAME '\1aMIMC-OUTC>
1424                     <PUSH !\.>
1425                     <PUSH IOTUP6>
1426                     <CALL '\1aMIMC-OUTC 2>
1427                     <VEQUAL? NUM4 0.0 - PHRASE11 (TYPE FLOAT)>
1428                     <FRAME '\1aMIMC-OUTC>
1429                     <PUSH !\0>
1430                     <PUSH IOTUP6>
1431                     <DEAD IOTUP6>
1432                     <CALL '\1aMIMC-OUTC 2 = TEMP15>
1433                     <RETURN TEMP15>
1434                     <DEAD TEMP15>
1435 PHRASE11
1436                     <GVAL 'I$FLOAT-TABLE!-INTERNAL = TEMP15>
1437                     <NTHUV TEMP15 OFFSET7 = TEMP15 (TYPE FLOAT)>
1438                     <DEAD OFFSET7>
1439                     <ADDF TEMP15 NUM4 = NUM4 (TYPE FLOAT)>
1440                     <DEAD TEMP15>
1441                     <LOOP>
1442 AGAIN20
1443                     <INTGO>
1444                     <MULF NUM4 10.0 = NUM4 (TYPE FLOAT)>
1445                     <FIX NUM4 = DIG19 (TYPE FIX)>
1446                     <VEQUAL? DIG19 0 - PHRASE22 (TYPE FIX)>
1447                     <ADD Z-COUNT8 1 = Z-COUNT8 (TYPE FIX)>
1448                     <JUMP + PHRASE25>
1449 PHRASE22
1450                     <SET Z-COUNT8 0 (TYPE FIX)>
1451 PHRASE25
1452                     <FRAME '\1aMIMC-OUTC>
1453                     <ADD DIG19 48 = TEMP15 (TYPE FIX)>
1454                     <CHTYPE TEMP15 <TYPE-CODE CHARACTER> = STACK>
1455                     <DEAD TEMP15>
1456                     <PUSH IOTUP6>
1457                     <CALL '\1aMIMC-OUTC 2>
1458                     <FLOAT DIG19 = TEMP15 (TYPE FLOAT)>
1459                     <DEAD DIG19>
1460                     <SUBF NUM4 TEMP15 = NUM4 (TYPE FLOAT)>
1461                     <DEAD TEMP15>
1462                     <VEQUAL? NUM4 0.0 + BOOL30 (TYPE FLOAT)>
1463                     <SUB MIN5 1 = MIN5 (TYPE FIX)>
1464                     <GRTR? MIN5 0 + AGAIN20 (TYPE FIX)>
1465 BOOL30
1466                     <RETURN 'T>
1467                     <END \1aI$PRIN-DEC>
1468 #WORD *7212603054*
1469 <GFCN \1aMIMC-CRLF ("VALUE" <OR FALSE STRING> ANY) IOTUP4>
1470                     <TEMP TEMP14 TEMP16>
1471                     <INTGO>
1472                     <SET TEMP14 %<> (TYPE FALSE)>
1473                     <GVAL 'CRLF-STRING!-INTERNAL = TEMP16>
1474                     <LOOP>
1475 MAP6
1476                     <INTGO>
1477                     <EMPTY? TEMP16 + MAPAP9>
1478                     <NTH1 TEMP16 = TEMP14>
1479                     <FRAME '\1aMIMC-OUTC>
1480                     <PUSH TEMP14>
1481                     <DEAD TEMP14>
1482                     <PUSH IOTUP4>
1483                     <CALL '\1aMIMC-OUTC 2 = TEMP14>
1484                     <REST1 TEMP16 = TEMP16>
1485                     <JUMP + MAP6>
1486 MAPAP9
1487                     <RETURN TEMP14>
1488                     <DEAD TEMP14>
1489                     <END \1aMIMC-CRLF>
1490 #WORD *30513736251*
1491 <GFCN \1aMIMC-PRIN-ATOM ("VALUE" ANY ATOM <TUPLE CHANNEL LIST STRING FIX>) ATM4 IOTUP5>
1492                     <TEMP SP6 O?7 OB8:LIST TEMP21>
1493                     <INTGO>
1494                     <NTHR ATM4 3 = SP6 (RECORD-TYPE ATOM)>
1495                     <NTHR ATM4 4 = O?7 (RECORD-TYPE ATOM)>
1496                     <NTHUV IOTUP5 2 = OB8 (TYPE LIST)>
1497                     <LOOP>
1498 AGAIN12
1499                     <INTGO>
1500                     <FRAME '\1aMIMC-PRIN-ATM>
1501                     <PUSH SP6>
1502                     <DEAD SP6>
1503                     <PUSH IOTUP5>
1504                     <CALL '\1aMIMC-PRIN-ATM 2>
1505                     <TYPE? O?7 <TYPE-CODE FALSE> + PHRASE15>
1506                     <GVAL 'MIM-OBL = SP6>
1507                     <EQUAL? SP6 O?7 + PHRASE15>
1508                     <DEAD SP6>
1509                     <GVAL 'TMP-OBL = SP6>
1510                     <EQUAL? SP6 O?7 + PHRASE15>
1511                     <DEAD SP6>
1512                     <GVAL 'ROOT-OBL = SP6>
1513                     <EQUAL? SP6 O?7 + PHRASE15>
1514                     <DEAD SP6>
1515                     <SET SP6 OB8>
1516                     <EMPL? SP6 + TAG18>
1517                     <LOOP (O?7 VALUE) (SP6 VALUE)>
1518 TAG19
1519                     <NTHL SP6 1 = TEMP21>
1520                     <VEQUAL? TEMP21 O?7 + PHRASE15>
1521                     <DEAD TEMP21>
1522                     <RESTL SP6 1 = SP6 (TYPE LIST)>
1523                     <EMPL? SP6 - TAG19>
1524 TAG18
1525                     <FRAME '\1aMIMC-OUTS>
1526                     <PUSH "!-">
1527                     <PUSH IOTUP5>
1528                     <CALL '\1aMIMC-OUTS 2>
1529                     <CHTYPE O?7 <TYPE-CODE ATOM> = ATM4>
1530                     <DEAD O?7>
1531                     <NTHR ATM4 3 = SP6 (RECORD-TYPE ATOM)>
1532                     <NTHR ATM4 4 = O?7 (RECORD-TYPE ATOM)>
1533                     <JUMP + AGAIN12>
1534 PHRASE15
1535                     <TYPE? O?7 <TYPE-CODE FALSE> + TAG24>
1536                     <DEAD O?7>
1537                     <RETURN %<>>
1538 TAG24
1539                     <FRAME '\1aERROR>
1540                     <PUSH 'CANT-PRINT-ATOM!-ERRORS>
1541                     <PUSH ATM4>
1542                     <DEAD ATM4>
1543                     <CALL '\1aERROR 2 = O?7>
1544                     <RETURN O?7>
1545                     <DEAD O?7>
1546                     <END \1aMIMC-PRIN-ATOM>
1547 #WORD *33034531413*
1548 <GFCN \1aMIMC-PRIN-ATM ("VALUE" <OR FALSE STRING> STRING ANY) STR4 IOTUP5>
1549                     <TEMP FSM6 CSTATE7:BYTES TR-TABLE9:BYTES TEMP19:STRING CHR24 CTRANS8:FIX>
1550                     <INTGO>
1551                     <GVAL 'I$ATM-FSM!-INTERNAL = FSM6>
1552                     <NTHUV FSM6 1 = CSTATE7 (TYPE BYTES)>
1553                     <GVAL 'I$TRANS-TABLE!-INTERNAL = TR-TABLE9>
1554                     <SET TEMP19 STR4 (TYPE STRING)>
1555                     <LOOP>
1556 MAP14
1557                     <INTGO>
1558                     <EMPUS? TEMP19 + MAPAP17>
1559                     <NTHUS TEMP19 1 = CHR24>
1560                     <ADD CHR24 1 = CHR24 (TYPE FIX)>
1561                     <NTHUB TR-TABLE9 CHR24 = CTRANS8 (TYPE FIX)>
1562                     <DEAD CHR24>
1563                     <LESS? CTRANS8 17 + PHRASE33 (TYPE FIX)>
1564                     <SUB CTRANS8 17 = CHR24 (TYPE FIX)>
1565                     <DEAD CTRANS8>
1566                     <ADD CHR24 1 = CTRANS8 (TYPE FIX)>
1567                     <DEAD CHR24>
1568                     <NTHUB CSTATE7 CTRANS8 = CTRANS8 (TYPE FIX)>
1569                     <GRTR? CTRANS8 9 + PHRASE29 (TYPE FIX)>
1570                     <NTHUV FSM6 CTRANS8 = CSTATE7 (TYPE BYTES)>
1571                     <JUMP + PHRASE31>
1572 PHRASE29
1573                     <VEQUAL? CTRANS8 10 + PHRASE33 (TYPE FIX)>
1574                     <JUMP + MAPAP17>
1575 PHRASE31
1576                     <RESTUS TEMP19 1 = TEMP19 (TYPE STRING)>
1577                     <JUMP + MAP14>
1578 MAPAP17
1579                     <GRTR? CTRANS8 9 + BOOL34 (TYPE FIX)>
1580                     <DEAD CTRANS8>
1581                     <NTHUB CSTATE7 6 = FSM6 (TYPE FIX)>
1582                     <DEAD CSTATE7>
1583                     <VEQUAL? FSM6 10 + PHRASE33 (TYPE FIX)>
1584                     <DEAD FSM6>
1585 BOOL34
1586                     <FRAME '\1aMIMC-OUTC>
1587                     <PUSH !\\>
1588                     <PUSH IOTUP5>
1589                     <CALL '\1aMIMC-OUTC 2>
1590 PHRASE33
1591                     <SET CHR24 %<> (TYPE FALSE)>
1592                     <SET FSM6 STR4 (TYPE STRING)>
1593                     <DEAD STR4>
1594                     <LOOP>
1595 MAP37
1596                     <INTGO>
1597                     <EMPUS? FSM6 + MAPAP40>
1598                     <NTHUS FSM6 1 = CHR24>
1599                     <ADD CHR24 1 = CTRANS8 (TYPE FIX)>
1600                     <NTHUB TR-TABLE9 CTRANS8 = CTRANS8 (TYPE FIX)>
1601                     <GRTR? CTRANS8 13 - BOOL47 (TYPE FIX)>
1602                     <VEQUAL? CTRANS8 15 - PHRASE46 (TYPE FIX)>
1603                     <DEAD CTRANS8>
1604 BOOL47
1605                     <FRAME '\1aMIMC-OUTC>
1606                     <PUSH !\\>
1607                     <PUSH IOTUP5>
1608                     <CALL '\1aMIMC-OUTC 2>
1609 PHRASE46
1610                     <FRAME '\1aMIMC-OUTC>
1611                     <PUSH CHR24>
1612                     <DEAD CHR24>
1613                     <PUSH IOTUP5>
1614                     <CALL '\1aMIMC-OUTC 2 = CHR24>
1615                     <RESTUS FSM6 1 = FSM6 (TYPE STRING)>
1616                     <JUMP + MAP37>
1617 MAPAP40
1618                     <RETURN CHR24>
1619                     <DEAD CHR24>
1620                     <END \1aMIMC-PRIN-ATM>
1621 #WORD *12401125504*
1622 <GFCN \1aMIMC-OUTC ("VALUE" STRING ANY <TUPLE CHANNEL LIST STRING FIX>) CHR4 IOTUP5>
1623                     <TEMP TEMP9 TEMP10:STRING>
1624                     <INTGO>
1625                     <NTHUV IOTUP5 4 = TEMP9 (TYPE FIX)>
1626                     <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
1627                     <GRTR? TEMP9 1024 - PHRASE8 (TYPE FIX)>
1628                     <NTHUV IOTUP5 1 = TEMP9 (TYPE CHANNEL)>
1629                     <NTHUV IOTUP5 3 = TEMP10 (TYPE STRING)>
1630                     <CHANNEL-OP 'DISK 'WRITE-BUFFER TEMP9 TEMP10>
1631                     <DEAD TEMP9 TEMP10>
1632                     <SET TEMP9 1 (TYPE FIX)>
1633 PHRASE8
1634                     <PUTUV IOTUP5 4 TEMP9 (TYPE FIX)>
1635                     <NTHUV IOTUP5 3 = TEMP10 (TYPE STRING)>
1636                     <DEAD IOTUP5>
1637                     <PUTUS TEMP10 TEMP9 CHR4>
1638                     <DEAD TEMP9 CHR4>
1639                     <RETURN TEMP10>
1640                     <DEAD TEMP10>
1641                     <END \1aMIMC-OUTC>
1642 #WORD *1062760350*
1643 <GFCN \1aMIMC-OUTS ("VALUE" ATOM ANY <TUPLE CHANNEL LIST STRING FIX>) STR4 IOTUP5>
1644                     <TEMP LNT6 BUF7:STRING TEMP16>
1645                     <INTGO>
1646                     <NTHUV IOTUP5 4 = LNT6 (TYPE FIX)>
1647                     <NTHUV IOTUP5 3 = BUF7 (TYPE STRING)>
1648                     <LOOP>
1649 AGAIN11
1650                     <INTGO>
1651                     <EMPTY? STR4 - PHRASE13>
1652                     <PUTUV IOTUP5 4 LNT6 (TYPE FIX)>
1653                     <DEAD IOTUP5 LNT6>
1654                     <RETURN 'T>
1655 PHRASE13
1656                     <ADD LNT6 1 = LNT6 (TYPE FIX)>
1657                     <GRTR? LNT6 1024 - PHRASE15 (TYPE FIX)>
1658                     <NTHUV IOTUP5 1 = TEMP16 (TYPE CHANNEL)>
1659                     <CHANNEL-OP 'DISK 'WRITE-BUFFER TEMP16 BUF7>
1660                     <DEAD TEMP16>
1661                     <SET LNT6 1 (TYPE FIX)>
1662 PHRASE15
1663                     <NTH1 STR4 = TEMP16>
1664                     <PUTUS BUF7 LNT6 TEMP16>
1665                     <DEAD TEMP16>
1666                     <REST1 STR4 = STR4>
1667                     <JUMP + AGAIN11>
1668                     <END \1aMIMC-OUTS>
1669 #WORD *37277362460*
1670 <GFCN \1aIDUMP-CODE ("VALUE" <OR FALSE STRING> LIST TUPLE) L4 IOTUP5>
1671                     <TEMP TEMP15 TEMP12:LIST TEMP31:LIST YP36:LIST>
1672                     <INTGO>
1673                     <SET TEMP15 %<> (TYPE FALSE)>
1674                     <SET TEMP12 L4 (TYPE LIST)>
1675                     <DEAD L4>
1676                     <LOOP>
1677 MAP7
1678                     <INTGO>
1679                     <EMPL? TEMP12 + MAPAP10>
1680                     <NTHL TEMP12 1 = TEMP15>
1681                     <TYPE? TEMP15 <TYPE-CODE ATOM> - PHRASE19>
1682                     <FRAME '\1aMIMC-PRIN-ATOM>
1683                     <PUSH TEMP15>
1684                     <DEAD TEMP15>
1685                     <PUSH IOTUP5>
1686                     <CALL '\1aMIMC-PRIN-ATOM 2>
1687                     <FRAME '\1aMIMC-CRLF>
1688                     <PUSH IOTUP5>
1689                     <CALL '\1aMIMC-CRLF 1 = TEMP15>
1690                     <JUMP + PHRASE22>
1691 PHRASE19
1692                     <FRAME '\1aMIMC-OUTS>
1693                     <PUSH "                 ">
1694                     <PUSH IOTUP5>
1695                     <CALL '\1aMIMC-OUTS 2>
1696                     <FRAME '\1aMIMC-OUTC>
1697                     <PUSH !\<>
1698                     <PUSH IOTUP5>
1699                     <CALL '\1aMIMC-OUTC 2>
1700                     <CHTYPE TEMP15 <TYPE-CODE LIST> = TEMP31>
1701                     <DEAD TEMP15>
1702                     <LOOP>
1703 MAP26
1704                     <INTGO>
1705                     <EMPL? TEMP31 + MAPAP29>
1706                     <SET YP36 TEMP31>
1707                     <NTHL YP36 1 = TEMP15>
1708                     <TYPE? TEMP15 <TYPE-CODE ATOM> - PHRASE40>
1709                     <FRAME '\1aMIMC-PRIN-ATOM>
1710                     <PUSH TEMP15>
1711                     <DEAD TEMP15>
1712                     <PUSH IOTUP5>
1713                     <CALL '\1aMIMC-PRIN-ATOM 2>
1714                     <JUMP + PHRASE42>
1715 PHRASE40
1716                     <FRAME '\1aMIMC-PRIN1>
1717                     <PUSH TEMP15>
1718                     <DEAD TEMP15>
1719                     <PUSH IOTUP5>
1720                     <CALL '\1aMIMC-PRIN1 2>
1721 PHRASE42
1722                     <RESTL YP36 1 = YP36 (TYPE LIST)>
1723                     <EMPL? YP36 + PHRASE45 (TYPE LIST)>
1724                     <DEAD YP36>
1725                     <FRAME '\1aMIMC-OUTC>
1726                     <PUSH !\ >
1727                     <PUSH IOTUP5>
1728                     <CALL '\1aMIMC-OUTC 2>
1729 PHRASE45
1730                     <RESTL TEMP31 1 = TEMP31 (TYPE LIST)>
1731                     <JUMP + MAP26>
1732 MAPAP29
1733                     <FRAME '\1aMIMC-OUTC>
1734                     <PUSH !\>>
1735                     <PUSH IOTUP5>
1736                     <CALL '\1aMIMC-OUTC 2>
1737                     <FRAME '\1aMIMC-CRLF>
1738                     <PUSH IOTUP5>
1739                     <CALL '\1aMIMC-CRLF 1 = TEMP15>
1740 PHRASE22
1741                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
1742                     <JUMP + MAP7>
1743 MAPAP10
1744                     <RETURN TEMP15>
1745                     <DEAD TEMP15>
1746                     <END \1aIDUMP-CODE>
1747 #WORD *36353064334*
1748 <GFCN \1aDUMP-CODE ("VALUE" ATOM ANY ANY ANY) L4 CH5 OBL6>
1749                     <TEMP IOTUP7 TEMP10:CHANNEL TEMP11>
1750                     <INTGO>
1751                     <PUSH CH5>
1752                     <DEAD CH5>
1753                     <PUSH OBL6>
1754                     <DEAD OBL6>
1755                     <GVAL 'BUFFER = STACK>
1756                     <PUSH 0>
1757                     <TUPLE 4 = IOTUP7 (TYPE TUPLE)>
1758                     <FRAME '\1aIDUMP-CODE>
1759                     <PUSH L4>
1760                     <DEAD L4>
1761                     <PUSH IOTUP7>
1762                     <CALL '\1aIDUMP-CODE 2>
1763                     <NTHUV IOTUP7 1 = TEMP10 (TYPE CHANNEL)>
1764                     <NTHUV IOTUP7 3 = TEMP11>
1765                     <NTHUV IOTUP7 4 = IOTUP7>
1766                     <CHANNEL-OP 'DISK 'WRITE-BUFFER TEMP10 TEMP11 IOTUP7>
1767                     <DEAD TEMP10 TEMP11 IOTUP7>
1768                     <ADJ -10>
1769                     <RETURN 'T>
1770                     <END \1aDUMP-CODE>
1771 <ENDPACKAGE>