mim/development/mim/20c/msglue.mima

   1
   2 <PACKAGE "MSGLUE">
   3
   4 <ENTRY FILE-GLUE>
   5
   6 <USE "NEWSTRUC">
   7
   8 <NEWSTRUC GLUE-INFO VECTOR IMSUBR-NAME ATOM MSUBR-NAME ATOM GLUED-CALL-OK? <OR ATOM FALSE> MSUBR-DECL LIST START-LOC FIX REFS LIST FINAL-LOC <OR FALSE FIX> CONST-START FIX MIN-MAX-ARGS FIX MSUBR-OBLIST LIST>
   9
  10 <NEWSTRUC CONST-REF VECTOR C-VALUE FIX C-REFS <LIST [REST FIX]>>
  11
  12 <EVAL-WHEN ("SUBSYSTEM" "MIMC") <FLOAD "PS:<MIM.20C>MSGLUE-PM.MUD">>
  13
  14 <COND (<N==? <PRIMTYPE 1> FIX> <DEFINE FLSH (A B) #DECL ((A B) FIX) <CHTYPE <LSH .A .B> FIX>> <DEFINE FORB ("TUPLE" X) <CHTYPE <ORB !.X> FIX>> <PUTPROP CODE DECL '<<PRIMTYPE UVECTOR> [REST FIX]>>) (ELSE <SETG FLSH ,LSH> <SETG FORB ,ORB> <PUT-DECL CODE '<<PRIMTYPE UVECTOR> [REST FIX]>>)>
  15
  16 <MSETG GLUE-FRM-INS 1>
  17
  18 <MSETG GLUE-LOAD-MS-INS 2>
  19
  20 <MSETG GLUE-LOAD-ARG 3>
  21
  22 <MSETG GLUE-CALL-INS 0>
  23
  24 <MSETG INDX-BP <BITS 4 18>>
  25
  26 <MSETG AC-BP <BITS 4 23>>
  27
  28 <MSETG INS-BP <BITS 9 27>>
  29
  30 <MSETG ADDR-BP <BITS 18>>
  31
  32 <MSETG FRAME-LOC 144>
  33
  34 <MSETG CALL-LOC 145>
  35
  36 <MSETG GVAL-LOC 112>
  37
  38 <MSETG GASS-LOC 111>
  39
  40 <MSETG ACALL-LOC 206>
  41
  42 <MSETG SFRAME-LOC 207>
  43
  44 <MSETG O2 9>
  45
  46 <MSETG O1 8>
  47
  48 <MSETG T 7>
  49
  50 <MSETG TP 14>
  51
  52 <MSETG F 13>
  53
  54 <MSETG R 10>
  55
  56 <MSETG M 11>
  57
  58 <MSETG P 15>
  59
  60 <MSETG P-AC <FLSH ,P 23>>
  61
  62 <MSETG T-AC <FLSH ,T 23>>
  63
  64 <MSETG PC-AC ,T-AC>
  65
  66 <MSETG F-INDX <FLSH ,F 18>>
  67
  68 <MSETG F-AC <FLSH ,F 23>>
  69
  70 <MSETG TP-INDX <FLSH ,TP 18>>
  71
  72 <MSETG TP-AC <FLSH ,TP 23>>
  73
  74 <MSETG R-INDX <FLSH ,R 18>>
  75
  76 <MSETG IND <FLSH 1 22>>
  77
  78 <MSETG JSP <FLSH 181 27>>
  79
  80 <MSETG SKIPL <FLSH 217 27>>
  81
  82 <MSETG HRROI <FLSH 369 27>>
  83
  84 <MSETG PUSH <FLSH 177 27>>
  85
  86 <MSETG XMOVEI <FLSH 269 27>>
  87
  88 <MSETG MOVEI 129>
  89
  90 <MSETG SUB-INS <FLSH 188 27>>
  91
  92 <MSETG JRST <FLSH 172 27>>
  93
  94 <MSETG SETZ <FLSH 256 27>>
  95
  96 <MSETG PUSHJ <FLSH 176 27>>
  97
  98 <MSETG PUSHJ-GVAL <FORB ,PUSHJ ,P-AC ,IND ,GVAL-LOC>>
  99
 100 <MSETG PUSHJ-GASS <FORB ,PUSHJ ,P-AC ,IND ,GASS-LOC>>
 101
 102 <MSETG JSP-GVAL <FORB ,JSP ,PC-AC ,IND ,GVAL-LOC>>
 103
 104 <MSETG JSP-GASS <FORB ,JSP ,PC-AC ,IND ,GASS-LOC>>
 105
 106 <MSETG JSP-ACALL <FORB ,JSP ,PC-AC ,IND ,ACALL-LOC>>
 107
 108 <SETG FUNNY-CALLS <UVECTOR ,PUSHJ-GVAL ,PUSHJ-GASS ,JSP-GVAL ,JSP-GASS ,JSP-ACALL>>
 109
 110 <GDECL (FUNNY-CALLS) <UVECTOR [REST FIX]>>
 111
 112 <MSETG JSP-FRAME <FORB ,JSP ,PC-AC ,IND ,FRAME-LOC>>
 113
 114 <MSETG JSP-CALL <FORB ,JSP ,PC-AC ,IND ,CALL-LOC>>
 115
 116 <MSETG JSP-SFRAME <FORB ,JSP ,PC-AC ,IND ,SFRAME-LOC>>
 117
 118 <MSETG SKIPL-T-1-PARENF <FORB ,SKIPL ,T-AC 262143 ,F-INDX>>
 119
 120 <MSETG HRROI-T <FORB ,HRROI ,T-AC ,F-INDX>>
 121
 122 <MSETG PUSH-TP-T <FORB ,PUSH ,TP-AC ,T>>
 123
 124 <MSETG PUSH-TP-F <FORB ,PUSH ,TP-AC ,F>>
 125
 126 <MSETG PUSH-TP-PARENR <FORB ,PUSH ,TP-AC ,R-INDX>>
 127
 128 <MSETG XMOVEI-F-1-TP <FORB ,XMOVEI ,F-AC 262143 ,TP-INDX>>
 129
 130 <MSETG SUB-F-O2 <FORB ,SUB-INS ,F-AC ,O2>>
 131
 132 <MSETG XMOVEI-TP <FORB ,XMOVEI ,F-AC ,TP-INDX>>
 133
 134 <MSETG JRST-R <FORB ,JRST ,R-INDX>>
 135
 136 <MSETG SETZ-R <FORB ,SETZ ,R-INDX>>
 137
 138 <NEWTYPE GLUED-ATOM ATOM>
 139
 140 <GDECL (OBJ-LIST OBJ-PTR CODE-LIST CODE-PTR) LIST>
 141
 142 <GDECL (CONST-PTR CONST-LIST) <LIST [REST CONST-REF]>>
 143
 144 #WORD *15554075472*
 145                     <GFCN \1aFILE-GLUE ("VALUE" <OR ATOM CHANNEL FALSE> "TUPLE" <<PRIMTYPE VECTOR> [REST STRING]>)>
 146                     <MAKTUP FILES5 TMP-TXT7 TMP-CODE8 TEMP4:LBIND TEMP20 TEMP25 EXPFLOAD10 (EST-LNT11:FIX 0) FNM112:STRING TEMP33 TEMP-FILE?18 (END19 %<>) C6 CP13 ITM14 TEMP61 OBP15:LIST IMS49 TEMP69 RES48 TEMP89 ST111 OC16 FIRST122 ITM121 TEMP132 INM120:ATOM = FILES5>
 147                     <INTGO>
 148                     <GETS 'BIND = TEMP4 (TYPE LBIND)>
 149                     <GEN-LVAL 'OUTCHAN = TEMP20>
 150                     <BBIND 'OUTCHAN 'ANY 'FIX TEMP20>
 151                     <DEAD TEMP20>
 152                     <GEN-ASSIGNED? 'EXPFLOAD + TAG24>
 153                     <SET TEMP20 %<> (TYPE FALSE)>
 154                     <JUMP + BOOL23>
 155 TAG24
 156                     <GEN-LVAL 'EXPFLOAD = TEMP20>
 157 BOOL23
 158                     <SET EXPFLOAD10 TEMP20>
 159                     <DEAD TEMP20>
 160                     <FRAME '\1aGET-NM1>
 161                     <NTHUV FILES5 1 = STACK (TYPE STRING)>
 162                     <CALL '\1aGET-NM1 1 = FNM112>
 163                     <BBIND 'NM2 'STRING 'FIX "MSUBR">
 164                     <NTHR 'TEMP-FILE? 1 = TEMP33 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG32)>
 165                     <TYPE? TEMP33 <TYPE-CODE FALSE> + TAG32>
 166                     <NTHR TEMP33 1 = TEMP33 (RECORD-TYPE GBIND)>
 167                     <TYPE? TEMP33 <TYPE-CODE UNBOUND> - TAG31>
 168                     <DEAD TEMP33>
 169 TAG32
 170                     <SET TEMP20 %<> (TYPE FALSE)>
 171                     <JUMP + BOOL30>
 172 TAG31
 173                     <GVAL 'TEMP-FILE? = TEMP20>
 174 BOOL30
 175                     <SET TEMP-FILE?18 TEMP20>
 176                     <DEAD TEMP20>
 177                     <FRAME '\1aOPEN>
 178                     <PUSH "READ">
 179                     <NTHUV FILES5 1 = STACK (TYPE STRING)>
 180                     <CALL '\1aOPEN 2 = C6>
 181                     <TYPE? C6 <TYPE-CODE FALSE> + PHRASE35>
 182                     <TYPE? TEMP-FILE?18 <TYPE-CODE FALSE> + BOOL38>
 183                     <FRAME '\1aOPEN>
 184                     <PUSH "PRINT">
 185                     <PUSH FNM112>
 186                     <PUSH ".GLUE-TXT">
 187                     <UBLOCK <TYPE-CODE STRING> 2 = STACK (TYPE STRING)>
 188                     <CALL '\1aOPEN 2 = TMP-TXT7>
 189                     <TYPE? TMP-TXT7 <TYPE-CODE FALSE> + PHRASE35>
 190                     <FRAME '\1aOPEN>
 191                     <PUSH "PRINT">
 192                     <PUSH FNM112>
 193                     <PUSH ".GLUE-CODE">
 194                     <UBLOCK <TYPE-CODE STRING> 2 = STACK (TYPE STRING)>
 195                     <CALL '\1aOPEN 2 = TMP-CODE8>
 196                     <TYPE? TMP-CODE8 <TYPE-CODE FALSE> + PHRASE35>
 197 BOOL38
 198                     <TYPE? TEMP-FILE?18 <TYPE-CODE FALSE> - PHRASE45>
 199                     <SET TMP-CODE8 %<> (TYPE FALSE)>
 200                     <SET TMP-TXT7 TMP-CODE8>
 201                     <CONS 'T () = TEMP20>
 202                     <SETG 'OBJ-PTR TEMP20>
 203                     <SETG 'OBJ-LIST TEMP20>
 204                     <DEAD TEMP20>
 205 PHRASE45
 206                     <CONS 'T () = TEMP20>
 207                     <SETG 'CODE-PTR TEMP20>
 208                     <SET CP13 TEMP20>
 209                     <DEAD TEMP20>
 210                     <SETG 'CODE-LIST CP13>
 211                     <PUSH 0>
 212                     <PUSH ()>
 213                     <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP20>
 214                     <CHTYPE TEMP20 <TYPE-CODE CONST-REF> = TEMP20>
 215                     <CONS TEMP20 () = TEMP20>
 216                     <SETG 'CONST-PTR TEMP20>
 217                     <SETG 'CONST-LIST TEMP20>
 218                     <DEAD TEMP20>
 219                     <CONS C6 () = TEMP20>
 220                     <SETG 'INCHANS TEMP20>
 221                     <DEAD TEMP20>
 222                     <RESTUV FILES5 1 = FILES5 (TYPE VECTOR)>
 223                     <CHTYPE FILES5 <TYPE-CODE VECTOR> = FILES5>
 224                     <LOOP>
 225 AGAIN50
 226                     <INTGO>
 227                     <LOOP>
 228 AGAIN52
 229                     <INTGO>
 230                     <FRAME '\1aFINISH-FILE>
 231                     <PUSH C6>
 232                     <PUSH TMP-TXT7>
 233                     <PUSH EXPFLOAD10>
 234                     <CALL '\1aFINISH-FILE 3 = ITM14>
 235                     <VEQUAL? ITM14 0 - EXIT53>
 236                     <SET END19 'T (TYPE ATOM)>
 237 EXIT53
 238                     <VEQUAL? END19 0 - EXIT51>
 239                     <GVAL 'INCHANS = TEMP61>
 240                     <NTH1 TEMP61 = C6>
 241                     <DEAD TEMP61>
 242                     <TYPE? TEMP-FILE?18 <TYPE-CODE FALSE> + PHRASE63>
 243                     <FRAME '\1aPRIN1>
 244                     <PUSH ITM14>
 245                     <PUSH TMP-CODE8>
 246                     <CALL '\1aPRIN1 2>
 247                     <JUMP + PHRASE65>
 248 PHRASE63
 249                     <GVAL 'OBJ-PTR = OBP15>
 250 PHRASE65
 251                     <FRAME '\1aLENGTH>
 252                     <SET IMS49 ITM14>
 253                     <DEAD ITM14>
 254                     <NTHUV IMS49 1 = STACK>
 255                     <CALL '\1aLENGTH 1 = TEMP61>
 256                     <ADD TEMP61 EST-LNT11 = EST-LNT11 (TYPE FIX)>
 257                     <DEAD TEMP61>
 258                     <FRAME '\1aREAD>
 259                     <PUSH C6>
 260                     <CFRAME = STACK (TYPE FRAME)>
 261                     <CALL '\1aREAD 2 = TEMP61>
 262                     <CFRAME = TEMP69 (TYPE FRAME)>
 263                     <EQUAL? TEMP69 TEMP61 - TAG70>
 264                     <DEAD TEMP69>
 265                     <SET TEMP61 'EOF (TYPE ATOM)>
 266 TAG70
 267                     <TYPE? TEMP61 <TYPE-CODE FIX> + PHRASE68>
 268                     <FRAME '\1aERROR>
 269                     <PUSH 'NOT-GLUEABLE!-ERRORS>
 270                     <CALL '\1aERROR 1>
 271 PHRASE68
 272                     <FRAME '\1aREAD>
 273                     <PUSH C6>
 274                     <CFRAME = STACK (TYPE FRAME)>
 275                     <CALL '\1aREAD 2 = RES48>
 276                     <CFRAME = TEMP69 (TYPE FRAME)>
 277                     <EQUAL? TEMP69 RES48 - TAG72>
 278                     <DEAD TEMP69>
 279                     <FRAME '\1aERROR>
 280                     <PUSH 'EOF-BAD-MSUBR-FILE!-ERRORS>
 281                     <CALL '\1aERROR 1 = RES48>
 282 TAG72
 283                     <FRAME '\1aEVAL>
 284                     <PUSH RES48>
 285                     <DEAD RES48>
 286                     <CALL '\1aEVAL 1 = RES48>
 287                     <TYPE? RES48 <TYPE-CODE MSUBR> + PHRASE75>
 288                     <FRAME '\1aERROR>
 289                     <PUSH 'MSUBR-DOES-NOT-FOLLOW-IMSUBR!-ERRORS>
 290                     <PUSH RES48>
 291                     <CALL '\1aERROR 2>
 292 PHRASE75
 293                     <TYPE? TEMP-FILE?18 <TYPE-CODE FALSE> + PHRASE79>
 294                     <FRAME '\1aPRIN1>
 295                     <PUSH RES48>
 296                     <PUSH TMP-CODE8>
 297                     <CALL '\1aPRIN1 2>
 298 PHRASE79
 299                     <SET TEMP69 CP13>
 300                     <DEAD CP13>
 301                     <NTHUV IMS49 2 = STACK>
 302                     <NTHUV RES48 2 = STACK>
 303                     <LESS? TEMP61 0 + TAG82 (TYPE FIX)>
 304                     <PUSH 'T>
 305                     <JUMP + TAG85>
 306 TAG82
 307                     <PUSH %<>>
 308 TAG85
 309                     <NTHUV RES48 3 = STACK>
 310                     <NTHUV RES48 4 = STACK>
 311                     <PUSH ()>
 312                     <PUSH %<>>
 313                     <CHTYPE TEMP61 <TYPE-CODE FIX> = TEMP61>
 314                     <LESS? TEMP61 0 - TAG86 (TYPE FIX)>
 315                     <SUB 0 TEMP61 = TEMP61 (TYPE FIX)>
 316 TAG86
 317                     <PUSH TEMP61>
 318                     <DEAD TEMP61>
 319                     <FRAME '\1aARG-SPEC>
 320                     <NTHUV RES48 3 = STACK (TYPE LIST)>
 321                     <CALL '\1aARG-SPEC 1 = STACK>
 322                     <SET TEMP89 0 (TYPE FIX)>
 323                     <GEN-LVAL 'OBLIST = TEMP61>
 324                     <LOOP (TEMP61 VALUE) (TEMP89 VALUE)>
 325 TAG92
 326                     <INTGO>
 327                     <EMPL? TEMP61 + TAG88>
 328                     <NTHL TEMP61 1 = STACK>
 329                     <RESTL TEMP61 1 = TEMP61 (TYPE LIST)>
 330                     <ADD TEMP89 1 = TEMP89 (TYPE FIX)>
 331                     <JUMP + TAG92>
 332 TAG88
 333                     <DEAD TEMP61>
 334                     <LIST TEMP89 = STACK (TYPE LIST)>
 335                     <DEAD TEMP89>
 336                     <UBLOCK <TYPE-CODE VECTOR> 10 = TEMP89>
 337                     <CHTYPE TEMP89 <TYPE-CODE GLUE-INFO> = TEMP89>
 338                     <CONS TEMP89 () = CP13>
 339                     <DEAD TEMP89>
 340                     <PUTREST TEMP69 CP13>
 341                     <DEAD TEMP69>
 342                     <TYPE? TEMP-FILE?18 <TYPE-CODE FALSE> + PHRASE95>
 343                     <FRAME '\1aGUNASSIGN>
 344                     <NTHUV IMS49 2 = STACK (TYPE ATOM)>
 345                     <DEAD IMS49>
 346                     <CALL '\1aGUNASSIGN 1>
 347 PHRASE95
 348                     <FRAME '\1aPUTPROP>
 349                     <NTHUV RES48 2 = STACK>
 350                     <DEAD RES48>
 351                     <PUSH 'INFO>
 352                     <NTHL CP13 1 = STACK>
 353                     <CALL '\1aPUTPROP 3>
 354                     <JUMP + AGAIN52>
 355 EXIT51
 356                     <EMPUV? FILES5 + EXIT47 (TYPE VECTOR)>
 357                     <FRAME '\1aCLOSE>
 358                     <PUSH C6>
 359                     <DEAD C6>
 360                     <CALL '\1aCLOSE 1>
 361                     <FRAME '\1aOPEN>
 362                     <PUSH "READ">
 363                     <NTHUV FILES5 1 = STACK (TYPE STRING)>
 364                     <CALL '\1aOPEN 2 = C6>
 365                     <TYPE? C6 <TYPE-CODE FALSE> + PHRASE102>
 366                     <RESTUV FILES5 1 = FILES5 (TYPE VECTOR)>
 367                     <CONS C6 () = TEMP69>
 368                     <SETG 'INCHANS TEMP69>
 369                     <DEAD TEMP69>
 370                     <JUMP + AGAIN50>
 371 PHRASE102
 372                     <FRAME '\1aERROR>
 373                     <PUSH C6>
 374                     <PUSH 'FILE-MIMOC>
 375                     <CALL '\1aERROR 2>
 376                     <JUMP + AGAIN50>
 377 EXIT47
 378                     <DEAD CP13 END19 EXPFLOAD10 FILES5>
 379                     <FRAME '\1aCLOSE>
 380                     <PUSH C6>
 381                     <DEAD C6>
 382                     <CALL '\1aCLOSE 1>
 383                     <TYPE? TEMP-FILE?18 <TYPE-CODE FALSE> + PHRASE107>
 384                     <FRAME '\1aCHANNEL-OP>
 385                     <PUSH TMP-TXT7>
 386                     <PUSH 'ACCESS>
 387                     <PUSH 0>
 388                     <CALL '\1aCHANNEL-OP 3>
 389                     <FRAME '\1aCHANNEL-OP>
 390                     <PUSH TMP-CODE8>
 391                     <PUSH 'ACCESS>
 392                     <PUSH 0>
 393                     <CALL '\1aCHANNEL-OP 3>
 394 PHRASE107
 395                     <GVAL 'OBJ-LIST = TEMP69>
 396                     <RESTL TEMP69 1 = OBP15 (TYPE LIST)>
 397                     <DEAD TEMP69>
 398                     <GVAL 'CODE-LIST = TEMP69>
 399                     <RESTL TEMP69 1 = CP13 (TYPE LIST)>
 400                     <DEAD TEMP69>
 401                     <PUSH FNM112>
 402                     <DEAD FNM112>
 403                     <PUSH ".GSUBR">
 404                     <UBLOCK <TYPE-CODE STRING> 2 = ST111 (TYPE STRING)>
 405                     <LOOP>
 406 AGAIN113
 407                     <INTGO>
 408                     <TYPE? ST111 <TYPE-CODE STRING> - BOOL116>
 409                     <FRAME '\1aOPEN>
 410                     <PUSH "PRINT">
 411                     <PUSH ST111>
 412                     <CALL '\1aOPEN 2 = OC16>
 413                     <TYPE? OC16 <TYPE-CODE FALSE> - PHRASE115>
 414 BOOL116
 415                     <FRAME '\1aERROR>
 416                     <PUSH 'CANT-OPEN-OUTPUT!-ERRORS>
 417                     <PUSH ST111>
 418                     <DEAD ST111>
 419                     <PUSH 'ERRET-CORRECT-NAME!-ERRORS>
 420                     <CALL '\1aERROR 3 = ST111>
 421                     <JUMP + AGAIN113>
 422 PHRASE115
 423                     <DEAD ST111>
 424                     <SET FIRST122 'T (TYPE ATOM)>
 425                     <GETS 'BIND = TEMP89 (TYPE LBIND)>
 426                     <GEN-LVAL 'OBLIST = TEMP61>
 427                     <BBIND 'OBLIST 'ANY 'FIX TEMP61>
 428                     <DEAD TEMP61>
 429                     <LOOP>
 430 AGAIN126
 431                     <INTGO>
 432                     <TYPE? TEMP-FILE?18 <TYPE-CODE FALSE> + PHRASE128>
 433                     <FRAME '\1aREAD>
 434                     <PUSH TMP-TXT7>
 435                     <CFRAME = STACK (TYPE FRAME)>
 436                     <CALL '\1aREAD 2 = ITM121>
 437                     <CFRAME = TEMP61 (TYPE FRAME)>
 438                     <EQUAL? TEMP61 ITM121 - PHRASE138>
 439                     <DEAD TEMP61>
 440                     <UNBIND TEMP89>
 441                     <DEAD TEMP89>
 442                     <JUMP + EXIT119>
 443 PHRASE128
 444                     <EMPL? OBP15 + PHRASE130 (TYPE LIST)>
 445                     <NTHL OBP15 1 = ITM121>
 446                     <FRAME '\1aGETPROP>
 447                     <PUSH OBP15>
 448                     <PUSH 'BLOCK>
 449                     <CFRAME = STACK (TYPE FRAME)>
 450                     <CALL '\1aGETPROP 3 = TEMP61>
 451                     <CFRAME = TEMP132 (TYPE FRAME)>
 452                     <EQUAL? TEMP132 TEMP61 - TAG133>
 453                     <DEAD TEMP132>
 454                     <NTHR 'OBLIST 2 = TEMP61 (RECORD-TYPE ATOM) (TYPE LBIND)>
 455                     <NTHR TEMP61 1 = TEMP61 (RECORD-TYPE LBIND)>
 456 TAG133
 457                     <NTHR 'OBLIST 2 = TEMP132 (RECORD-TYPE ATOM) (TYPE LBIND)>
 458                     <PUTR TEMP132 1 TEMP61 (RECORD-TYPE LBIND)>
 459                     <DEAD TEMP61 TEMP132>
 460                     <RESTL OBP15 1 = OBP15 (TYPE LIST)>
 461                     <JUMP + PHRASE138>
 462 PHRASE130
 463                     <UNBIND TEMP89>
 464                     <DEAD TEMP89>
 465                     <JUMP + EXIT119>
 466 PHRASE138
 467                     <TYPE? ITM121 <TYPE-CODE GLUED-ATOM> - PHRASE140>
 468                     <VEQUAL? FIRST122 0 + PHRASE142>
 469                     <FRAME '\1aGLUE-IT>
 470                     <PUSH CP13>
 471                     <PUSH TMP-CODE8>
 472                     <PUSH OC16>
 473                     <CHTYPE ITM121 <TYPE-CODE ATOM> = INM120>
 474                     <DEAD ITM121>
 475                     <PUSH INM120>
 476                     <PUSH EST-LNT11>
 477                     <CALL '\1aGLUE-IT 5>
 478                     <SET FIRST122 %<> (TYPE FALSE)>
 479 PHRASE142
 480                     <FRAME '\1aWRITE-MSUBR>
 481                     <NTHL CP13 1 = STACK (TYPE GLUE-INFO)>
 482                     <PUSH OC16>
 483                     <PUSH INM120>
 484                     <CALL '\1aWRITE-MSUBR 3>
 485                     <RESTL CP13 1 = CP13 (TYPE LIST)>
 486                     <JUMP + AGAIN126>
 487 PHRASE140
 488                     <FRAME '\1aPRIN1>
 489                     <PUSH ITM121>
 490                     <DEAD ITM121>
 491                     <PUSH OC16>
 492                     <CALL '\1aPRIN1 2>
 493                     <FRAME '\1aCRLF>
 494                     <PUSH OC16>
 495                     <CALL '\1aCRLF 1>
 496                     <JUMP + AGAIN126>
 497 EXIT119
 498                     <DEAD CP13 EST-LNT11 FIRST122 INM120 OBP15 TEMP-FILE?18 TEMP89 TMP-CODE8 TMP-TXT7>
 499                     <ADJ -9>
 500                     <FRAME '\1aCLOSE>
 501                     <PUSH OC16>
 502                     <DEAD OC16>
 503                     <CALL '\1aCLOSE 1>
 504                     <SET TEMP61 'T (TYPE ATOM)>
 505                     <JUMP + PHRASE154>
 506 PHRASE35
 507                     <TYPE? TMP-CODE8 <TYPE-CODE UNBOUND> + PHRASE149>
 508                     <FRAME '\1aFLUSH>
 509                     <PUSH TMP-TXT7>
 510                     <DEAD TMP-TXT7>
 511                     <CALL '\1aFLUSH 1>
 512                     <FRAME '\1aCLOSE>
 513                     <PUSH C6>
 514                     <DEAD C6>
 515                     <CALL '\1aCLOSE 1>
 516                     <SET TEMP61 TMP-CODE8>
 517                     <DEAD TMP-CODE8>
 518                     <JUMP + PHRASE154>
 519 PHRASE149
 520                     <TYPE? TMP-TXT7 <TYPE-CODE UNBOUND> + PHRASE152>
 521                     <FRAME '\1aCLOSE>
 522                     <PUSH C6>
 523                     <DEAD C6>
 524                     <CALL '\1aCLOSE 1>
 525                     <SET TEMP61 TMP-TXT7>
 526                     <DEAD TMP-TXT7>
 527                     <JUMP + PHRASE154>
 528 PHRASE152
 529                     <SET TEMP61 C6>
 530                     <DEAD C6>
 531 PHRASE154
 532                     <UNBIND TEMP4>
 533                     <DEAD TEMP4>
 534                     <ADJ -18>
 535                     <RETURN TEMP61>
 536                     <DEAD TEMP61>
 537                     <END \1aFILE-GLUE>
 538
 539 #WORD *23060162341*
 540 <GFCN \1aFINISH-FILE ("VALUE" <OR !<FALSE> IMSUBR> CHANNEL <OR CHANNEL FALSE> <OR ATOM FALSE>) INCHAN5 OUTCHAN6 EXPFLOAD7>
 541                     <TEMP (IND8:LIST (1)) OBP9:LIST NCH17 TEMP21 TEMP20 OOBL18:LIST ITM16 TEMP12 OUT39 TEMP43 TEMP45 NM54 TEMP64:FIX TEMP65 TEMP70 RES15 TEMP96:FIX>
 542                     <INTGO>
 543                     <TYPE? OUTCHAN6 <TYPE-CODE FALSE> - PHRASE11>
 544                     <GVAL 'OBJ-PTR = OBP9>
 545 PHRASE11
 546                     <SET TEMP21 0 (TYPE FIX)>
 547                     <GEN-LVAL 'OBLIST = TEMP20>
 548                     <LOOP (TEMP20 VALUE) (TEMP21 VALUE)>
 549 TAG24
 550                     <INTGO>
 551                     <EMPL? TEMP20 + TAG19>
 552                     <NTHL TEMP20 1 = STACK>
 553                     <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
 554                     <ADD TEMP21 1 = TEMP21 (TYPE FIX)>
 555                     <JUMP + TAG24>
 556 TAG19
 557                     <DEAD TEMP20>
 558                     <LIST TEMP21 = OOBL18 (TYPE LIST)>
 559                     <DEAD TEMP21>
 560                     <LOOP>
 561 AGAIN26
 562                     <INTGO>
 563                     <FRAME '\1aREAD>
 564                     <PUSH INCHAN5>
 565                     <CFRAME = STACK (TYPE FRAME)>
 566                     <CALL '\1aREAD 2 = ITM16>
 567                     <CFRAME = TEMP21 (TYPE FRAME)>
 568                     <EQUAL? TEMP21 ITM16 - TAG29>
 569                     <DEAD TEMP21>
 570                     <SET ITM16 IND8>
 571 TAG29
 572                     <EQUAL? ITM16 IND8 - PHRASE28>
 573                     <GVAL 'INCHANS = TEMP21>
 574                     <REST1 TEMP21 = TEMP21>
 575                     <SETG 'INCHANS TEMP21>
 576                     <EMPTY? TEMP21 - PHRASE31>
 577                     <DEAD TEMP21>
 578                     <TYPE? OUTCHAN6 <TYPE-CODE FALSE> - PHRASE33>
 579                     <DEAD OUTCHAN6>
 580                     <SETG 'OBJ-PTR OBP9>
 581 PHRASE33
 582                     <RETURN %<>>
 583 PHRASE31
 584                     <GVAL 'INCHANS = TEMP21>
 585                     <NTH1 TEMP21 = INCHAN5>
 586                     <DEAD TEMP21>
 587                     <JUMP + AGAIN26>
 588 PHRASE28
 589                     <FRAME '\1aUNASSIGN>
 590                     <PUSH 'NCH>
 591                     <CALL '\1aUNASSIGN 1>
 592                     <TYPE? EXPFLOAD7 <TYPE-CODE FALSE> + PHRASE36>
 593                     <TYPE? ITM16 <TYPE-CODE FORM> - PHRASE36>
 594                     <EMPL? ITM16 + PHRASE36 (TYPE FORM)>
 595                     <NTHL ITM16 1 = TEMP43>
 596                     <EQUAL? TEMP43 'FLOAD - PHRASE42>
 597                     <DEAD TEMP43>
 598                     <FRAME '\1aOPEN>
 599                     <PUSH "READ">
 600                     <SET TEMP45 1 (TYPE FIX)>
 601                     <RESTL ITM16 1 = TEMP43 (TYPE LIST)>
 602                     <CHTYPE TEMP43 <TYPE-CODE LIST> = TEMP43>
 603                     <LOOP (TEMP43 VALUE) (TEMP45 VALUE)>
 604 TAG46
 605                     <INTGO>
 606                     <EMPL? TEMP43 + TAG44>
 607                     <NTHL TEMP43 1 = STACK>
 608                     <RESTL TEMP43 1 = TEMP43 (TYPE LIST)>
 609                     <ADD TEMP45 1 = TEMP45 (TYPE FIX)>
 610                     <JUMP + TAG46>
 611 TAG44
 612                     <DEAD TEMP43>
 613                     <CALL '\1aOPEN TEMP45 = NCH17>
 614                     <DEAD TEMP45>
 615                     <JUMP + PHRASE50>
 616 PHRASE42
 617                     <NTHL ITM16 1 = TEMP45>
 618                     <EQUAL? TEMP45 'L-FLOAD - PHRASE48>
 619                     <DEAD TEMP45>
 620                     <FRAME '\1aL-OPEN>
 621                     <RESTL ITM16 1 = TEMP45 (TYPE LIST)>
 622                     <NTHL TEMP45 1 = STACK (TYPE STRING)>
 623                     <DEAD TEMP45>
 624                     <CALL '\1aL-OPEN 1 = NCH17>
 625                     <JUMP + PHRASE50>
 626 PHRASE48
 627                     <SET TEMP21 %<> (TYPE FALSE)>
 628                     <JUMP + EXIT38>
 629 PHRASE50
 630                     <TYPE? NCH17 <TYPE-CODE FALSE> - PHRASE62>
 631                     <LOOP>
 632 AGAIN55
 633                     <INTGO>
 634                     <FRAME '\1aERROR>
 635                     <PUSH NCH17>
 636                     <PUSH 'ERRET-NAME-OR-FALSE!-ERROS>
 637                     <CALL '\1aERROR 2 = NM54>
 638                     <TYPE? NM54 <TYPE-CODE FALSE> + PHRASE57>
 639                     <FRAME '\1aOPEN>
 640                     <PUSH "READ">
 641                     <PUSH NM54>
 642                     <DEAD NM54>
 643                     <CALL '\1aOPEN 2 = NCH17>
 644                     <TYPE? NCH17 <TYPE-CODE FALSE> - PHRASE62>
 645                     <JUMP + AGAIN55>
 646 PHRASE57
 647                     <SET TEMP21 %<> (TYPE FALSE)>
 648                     <JUMP + EXIT38>
 649 PHRASE62
 650                     <SET TEMP21 1 (TYPE FIX)>
 651 EXIT38
 652                     <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE36>
 653                     <DEAD TEMP21>
 654                     <SET INCHAN5 NCH17>
 655                     <PUSH NCH17>
 656                     <SET TEMP64 1 (TYPE FIX)>
 657                     <GVAL 'INCHANS = TEMP43>
 658                     <TYPE TEMP43 = TEMP70>
 659                     <AND TEMP70 7 = TEMP70>
 660                     <VEQUAL? TEMP70 1 + TAG66>
 661                     <DEAD TEMP70>
 662                     <LOOP (TEMP43 TYPE VALUE LENGTH) (TEMP64 VALUE)>
 663 TAG72
 664                     <INTGO>
 665                     <EMPTY? TEMP43 + TAG71>
 666                     <NTH1 TEMP43 = STACK>
 667                     <REST1 TEMP43 = TEMP43>
 668                     <ADD TEMP64 1 = TEMP64 (TYPE FIX)>
 669                     <JUMP + TAG72>
 670 TAG71
 671                     <DEAD TEMP43>
 672                     <LIST TEMP64 = TEMP65 (TYPE LIST)>
 673                     <DEAD TEMP64>
 674                     <JUMP + TAG67>
 675 TAG66
 676                     <LOOP>
 677 TAG69
 678                     <VEQUAL? TEMP64 0 + TAG68>
 679                     <POP = TEMP70>
 680                     <CONS TEMP70 TEMP43 = TEMP43 (TYPE LIST)>
 681                     <DEAD TEMP70>
 682                     <SUB TEMP64 1 = TEMP64 (TYPE FIX)>
 683                     <JUMP + TAG69>
 684 TAG68
 685                     <DEAD TEMP64>
 686                     <SET TEMP65 TEMP43>
 687                     <DEAD TEMP43>
 688 TAG67
 689                     <SETG 'INCHANS TEMP65>
 690                     <DEAD TEMP65>
 691                     <JUMP + AGAIN26>
 692 PHRASE36
 693                     <SET RES15 %<> (TYPE FALSE)>
 694                     <TYPE? NCH17 <TYPE-CODE UNBOUND> - PHRASE75>
 695                     <FRAME '\1aEVAL>
 696                     <PUSH ITM16>
 697                     <CALL '\1aEVAL 1 = RES15>
 698 PHRASE75
 699                     <TYPE? RES15 <TYPE-CODE FALSE> + PHRASE78>
 700                     <TYPE? RES15 <TYPE-CODE IMSUBR> - PHRASE78>
 701                     <TYPE? OUTCHAN6 <TYPE-CODE FALSE> + PHRASE81>
 702                     <FRAME '\1aPRIN1>
 703                     <NTHUV RES15 2 = TEMP43>
 704                     <CHTYPE TEMP43 <TYPE-CODE GLUED-ATOM> = STACK>
 705                     <DEAD TEMP43>
 706                     <PUSH OUTCHAN6>
 707                     <CALL '\1aPRIN1 2>
 708                     <JUMP + PHRASE83>
 709 PHRASE81
 710                     <SET TEMP43 OBP9>
 711                     <DEAD OBP9>
 712                     <NTHUV RES15 2 = TEMP70>
 713                     <CHTYPE TEMP70 <TYPE-CODE GLUED-ATOM> = TEMP70>
 714                     <CONS TEMP70 () = OBP9>
 715                     <DEAD TEMP70>
 716                     <PUTREST TEMP43 OBP9>
 717                     <DEAD TEMP43>
 718 PHRASE83
 719                     <TYPE? OUTCHAN6 <TYPE-CODE FALSE> - PHRASE85>
 720                     <DEAD OUTCHAN6>
 721                     <SETG 'OBJ-PTR OBP9>
 722 PHRASE85
 723                     <RETURN RES15>
 724                     <DEAD RES15>
 725 PHRASE78
 726                     <TYPE? OUTCHAN6 <TYPE-CODE FALSE> + PHRASE86>
 727                     <FRAME '\1aPRIN1>
 728                     <PUSH ITM16>
 729                     <DEAD ITM16>
 730                     <PUSH OUTCHAN6>
 731                     <CALL '\1aPRIN1 2>
 732                     <JUMP + AGAIN26>
 733 PHRASE86
 734                     <SET TEMP43 OBP9>
 735                     <DEAD OBP9>
 736                     <CONS ITM16 () = OBP9>
 737                     <DEAD ITM16>
 738                     <PUTREST TEMP43 OBP9>
 739                     <DEAD TEMP43>
 740                     <FRAME '\1aN=?>
 741                     <PUSH OOBL18>
 742                     <GEN-LVAL 'OBLIST = STACK>
 743                     <CALL '\1aN=? 2 = TEMP70>
 744                     <VEQUAL? TEMP70 0 + AGAIN26>
 745                     <DEAD TEMP70 OOBL18>
 746                     <FRAME '\1aPUTPROP>
 747                     <PUSH OBP9>
 748                     <PUSH 'BLOCK>
 749                     <SET TEMP96 0 (TYPE FIX)>
 750                     <GEN-LVAL 'OBLIST = TEMP70>
 751                     <LOOP (TEMP70 VALUE) (TEMP96 VALUE)>
 752 TAG99
 753                     <INTGO>
 754                     <EMPL? TEMP70 + TAG95>
 755                     <NTHL TEMP70 1 = STACK>
 756                     <RESTL TEMP70 1 = TEMP70 (TYPE LIST)>
 757                     <ADD TEMP96 1 = TEMP96 (TYPE FIX)>
 758                     <JUMP + TAG99>
 759 TAG95
 760                     <DEAD TEMP70>
 761                     <LIST TEMP96 = OOBL18 (TYPE LIST)>
 762                     <DEAD TEMP96>
 763                     <PUSH OOBL18>
 764                     <CALL '\1aPUTPROP 3>
 765                     <JUMP + AGAIN26>
 766                     <DEAD EXPFLOAD7 INCHAN5 IND8 NCH17 OBP9 OOBL18 OUTCHAN6>
 767                     <END \1aFINISH-FILE>
 768 <SETG OUTPUT-LENGTH 1024>
 769
 770 <GDECL (OUTPUT-LENGTH) FIX>
 771
 772 <SETG OUTPUT-BUFFER <ISTRING ,OUTPUT-LENGTH>>
 773
 774 #WORD *36522032515*
 775 <GFCN \1aGLUE-IT ("VALUE" ATOM <LIST [REST GLUE-INFO]> ANY ANY ANY FIX) CP5 CHAN?6 OC7 NAM8 LNT9>
 776                     <TEMP IMS10:LIST IMP11:LIST (NUM12:FIX 0) TEMP17 NEW-CODE13:UVECTOR OB14:STRING (CHRS16:FIX 0) G-O28:GLUE-INFO TEMP40:LIST LOC41:FIX TEMP42 TEMP38 TEMP36 CNUM15:FIX C57:CONST-REF TEMP67:LIST LOC68:FIX TEMP69 TEMP26 TEMP65 WRD104:FIX I107:FIX RBYT111:FIX TEMP113 TEMP136:LIST TEMP135 C137:CONST-REF WRD138 I140:FIX RBYT144:FIX TEMP146 TEMP167 OBJ168>
 777                     <INTGO>
 778                     <CONS 'T () = IMS10>
 779                     <SET IMP11 IMS10>
 780                     <DIV LNT9 2 = TEMP17 (TYPE FIX)>
 781                     <ADD TEMP17 LNT9 = TEMP17 (TYPE FIX)>
 782                     <DEAD LNT9>
 783                     <UUBLOCK <TYPE-CODE UVECTOR> TEMP17 = NEW-CODE13 (TYPE UVECTOR)>
 784                     <DEAD TEMP17>
 785                     <GVAL 'OUTPUT-BUFFER = OB14>
 786                     <SET TEMP17 CP5 (TYPE LIST)>
 787                     <DEAD CP5>
 788                     <LOOP>
 789 MAP19
 790                     <INTGO>
 791                     <EMPL? TEMP17 + MAPAP22>
 792                     <NTHL TEMP17 1 = G-O28>
 793                     <PUTUV G-O28 7 NUM12>
 794                     <NTHUV G-O28 6 = TEMP40 (TYPE LIST)>
 795                     <LOOP>
 796 MAP30
 797                     <INTGO>
 798                     <EMPL? TEMP40 + MAPAP33>
 799                     <NTHL TEMP40 1 = LOC41>
 800                     <NTHUU NEW-CODE13 LOC41 = TEMP42 (TYPE FIX)>
 801                     <OR TEMP42 NUM12 = TEMP42>
 802                     <PUTUU NEW-CODE13 LOC41 TEMP42>
 803                     <DEAD TEMP42 LOC41>
 804                     <RESTL TEMP40 1 = TEMP40 (TYPE LIST)>
 805                     <JUMP + MAP30>
 806 MAPAP33
 807                     <DEAD TEMP40>
 808                     <PUTUV G-O28 6 () (TYPE LIST)>
 809                     <FRAME '\1aDO-ONE-GLUE>
 810                     <TYPE? CHAN?6 <TYPE-CODE FALSE> + PHRASE45>
 811                     <FRAME '\1aREAD>
 812                     <PUSH CHAN?6>
 813                     <CALL '\1aREAD 1 = TEMP38>
 814                     <JUMP + PHRASE47>
 815 PHRASE45
 816                     <NTHUV G-O28 1 = TEMP36 (TYPE ATOM)>
 817                     <GVAL TEMP36 = TEMP38>
 818                     <DEAD TEMP36>
 819 PHRASE47
 820                     <PUSH TEMP38>
 821                     <DEAD TEMP38>
 822                     <PUSH IMS10>
 823                     <PUSH IMP11>
 824                     <DEAD IMP11>
 825                     <PUSH NUM12>
 826                     <DEAD NUM12>
 827                     <NTHUV G-O28 8 = STACK (TYPE FIX)>
 828                     <DEAD G-O28>
 829                     <PUSH NEW-CODE13>
 830                     <CALL '\1aDO-ONE-GLUE 6 = NUM12>
 831                     <SET IMP11 IMS10>
 832                     <LOOP (IMP11 VALUE)>
 833 TAG48
 834                     <RESTL IMP11 1 = TEMP38 (TYPE LIST)>
 835                     <EMPL? TEMP38 + TAG49>
 836                     <SET IMP11 TEMP38>
 837                     <DEAD TEMP38>
 838                     <JUMP + TAG48>
 839 TAG49
 840                     <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
 841                     <JUMP + MAP19>
 842 MAPAP22
 843                     <DEAD CHAN?6 IMP11 TEMP17>
 844                     <SET CNUM15 NUM12>
 845                     <GVAL 'CONST-LIST = TEMP40>
 846                     <RESTL TEMP40 1 = TEMP36 (TYPE LIST)>
 847                     <DEAD TEMP40>
 848                     <LOOP>
 849 MAP51
 850                     <INTGO>
 851                     <EMPL? TEMP36 + MAPAP54>
 852                     <NTHL TEMP36 1 = C57>
 853                     <NTHUV C57 2 = TEMP67 (TYPE LIST)>
 854                     <LOOP>
 855 MAP59
 856                     <INTGO>
 857                     <EMPL? TEMP67 + MAPAP62>
 858                     <NTHL TEMP67 1 = LOC68>
 859                     <NTHUU NEW-CODE13 LOC68 = TEMP69 (TYPE FIX)>
 860                     <OR TEMP69 CNUM15 = TEMP69>
 861                     <PUTUU NEW-CODE13 LOC68 TEMP69>
 862                     <DEAD TEMP69 LOC68>
 863                     <RESTL TEMP67 1 = TEMP67 (TYPE LIST)>
 864                     <JUMP + MAP59>
 865 MAPAP62
 866                     <DEAD TEMP67>
 867                     <ADD CNUM15 1 = CNUM15 (TYPE FIX)>
 868                     <PUTUV C57 2 () (TYPE LIST)>
 869                     <DEAD C57>
 870                     <RESTL TEMP36 1 = TEMP36 (TYPE LIST)>
 871                     <JUMP + MAP51>
 872 MAPAP54
 873                     <DEAD TEMP36>
 874                     <FRAME '\1aPRINC>
 875                     <PUSH "<SETG ">
 876                     <PUSH OC7>
 877                     <CALL '\1aPRINC 2>
 878                     <FRAME '\1aPRIN1>
 879                     <PUSH NAM8>
 880                     <PUSH OC7>
 881                     <CALL '\1aPRIN1 2>
 882                     <FRAME '\1aPRINC>
 883                     <PUSH " #IMSUBR [|">
 884                     <PUSH OC7>
 885                     <CALL '\1aPRINC 2>
 886                     <LSH CNUM15 -21 = TEMP26 (TYPE FIX)>
 887                     <AND TEMP26 15 = TEMP26>
 888                     <ADD TEMP26 65 = TEMP26 (TYPE FIX)>
 889                     <CHTYPE TEMP26 <TYPE-CODE CHARACTER> = TEMP26>
 890                     <PUTUS OB14 1 TEMP26>
 891                     <DEAD TEMP26>
 892                     <RESTUS OB14 1 = OB14 (TYPE STRING)>
 893                     <EMPUS? OB14 - PHRASE76 (TYPE STRING)>
 894                     <FRAME '\1aCHANNEL-OP>
 895                     <PUSH OC7>
 896                     <PUSH 'WRITE-BUFFER>
 897                     <GVAL 'OUTPUT-BUFFER = OB14>
 898                     <PUSH OB14>
 899                     <CALL '\1aCHANNEL-OP 3>
 900 PHRASE76
 901                     <LSH CNUM15 -16 = TEMP65 (TYPE FIX)>
 902                     <AND TEMP65 31 = TEMP65>
 903                     <ADD TEMP65 65 = TEMP65 (TYPE FIX)>
 904                     <CHTYPE TEMP65 <TYPE-CODE CHARACTER> = TEMP65>
 905                     <PUTUS OB14 1 TEMP65>
 906                     <DEAD TEMP65>
 907                     <RESTUS OB14 1 = OB14 (TYPE STRING)>
 908                     <EMPUS? OB14 - PHRASE79 (TYPE STRING)>
 909                     <FRAME '\1aCHANNEL-OP>
 910                     <PUSH OC7>
 911                     <PUSH 'WRITE-BUFFER>
 912                     <GVAL 'OUTPUT-BUFFER = OB14>
 913                     <PUSH OB14>
 914                     <CALL '\1aCHANNEL-OP 3>
 915 PHRASE79
 916                     <LSH CNUM15 -13 = TEMP42 (TYPE FIX)>
 917                     <AND TEMP42 15 = TEMP42>
 918                     <ADD TEMP42 65 = TEMP42 (TYPE FIX)>
 919                     <CHTYPE TEMP42 <TYPE-CODE CHARACTER> = TEMP42>
 920                     <PUTUS OB14 1 TEMP42>
 921                     <DEAD TEMP42>
 922                     <RESTUS OB14 1 = OB14 (TYPE STRING)>
 923                     <EMPUS? OB14 - PHRASE84 (TYPE STRING)>
 924                     <FRAME '\1aCHANNEL-OP>
 925                     <PUSH OC7>
 926                     <PUSH 'WRITE-BUFFER>
 927                     <GVAL 'OUTPUT-BUFFER = OB14>
 928                     <PUSH OB14>
 929                     <CALL '\1aCHANNEL-OP 3>
 930 PHRASE84
 931                     <LSH CNUM15 -8 = TEMP69 (TYPE FIX)>
 932                     <AND TEMP69 31 = TEMP69>
 933                     <ADD TEMP69 65 = TEMP69 (TYPE FIX)>
 934                     <CHTYPE TEMP69 <TYPE-CODE CHARACTER> = TEMP69>
 935                     <PUTUS OB14 1 TEMP69>
 936                     <DEAD TEMP69>
 937                     <RESTUS OB14 1 = OB14 (TYPE STRING)>
 938                     <EMPUS? OB14 - PHRASE87 (TYPE STRING)>
 939                     <FRAME '\1aCHANNEL-OP>
 940                     <PUSH OC7>
 941                     <PUSH 'WRITE-BUFFER>
 942                     <GVAL 'OUTPUT-BUFFER = OB14>
 943                     <PUSH OB14>
 944                     <CALL '\1aCHANNEL-OP 3>
 945 PHRASE87
 946                     <LSH CNUM15 -5 = TEMP42 (TYPE FIX)>
 947                     <AND TEMP42 15 = TEMP42>
 948                     <ADD TEMP42 65 = TEMP42 (TYPE FIX)>
 949                     <CHTYPE TEMP42 <TYPE-CODE CHARACTER> = TEMP42>
 950                     <PUTUS OB14 1 TEMP42>
 951                     <DEAD TEMP42>
 952                     <RESTUS OB14 1 = OB14 (TYPE STRING)>
 953                     <EMPUS? OB14 - PHRASE92 (TYPE STRING)>
 954                     <FRAME '\1aCHANNEL-OP>
 955                     <PUSH OC7>
 956                     <PUSH 'WRITE-BUFFER>
 957                     <GVAL 'OUTPUT-BUFFER = OB14>
 958                     <PUSH OB14>
 959                     <CALL '\1aCHANNEL-OP 3>
 960 PHRASE92
 961                     <AND CNUM15 31 = TEMP42>
 962                     <DEAD CNUM15>
 963                     <ADD TEMP42 65 = TEMP42 (TYPE FIX)>
 964                     <CHTYPE TEMP42 <TYPE-CODE CHARACTER> = TEMP42>
 965                     <PUTUS OB14 1 TEMP42>
 966                     <DEAD TEMP42>
 967                     <RESTUS OB14 1 = OB14 (TYPE STRING)>
 968                     <EMPUS? OB14 - PHRASE95 (TYPE STRING)>
 969                     <FRAME '\1aCHANNEL-OP>
 970                     <PUSH OC7>
 971                     <PUSH 'WRITE-BUFFER>
 972                     <GVAL 'OUTPUT-BUFFER = OB14>
 973                     <PUSH OB14>
 974                     <CALL '\1aCHANNEL-OP 3>
 975 PHRASE95
 976                     <SET TEMP42 NEW-CODE13 (TYPE UVECTOR)>
 977                     <DEAD NEW-CODE13>
 978                     <LOOP>
 979 MAP98
 980                     <INTGO>
 981                     <EMPUU? TEMP42 + MAPAP101>
 982                     <NTHUU TEMP42 1 = WRD104>
 983                     <SET I107 4 (TYPE FIX)>
 984                     <LOOP>
 985 AGAIN108
 986                     <INTGO>
 987                     <ROT WRD104 9 = WRD104 (TYPE FIX)>
 988                     <LSH WRD104 -5 = TEMP113 (TYPE FIX)>
 989                     <AND TEMP113 15 = TEMP113>
 990                     <ADD TEMP113 65 = TEMP113 (TYPE FIX)>
 991                     <CHTYPE TEMP113 <TYPE-CODE CHARACTER> = TEMP113>
 992                     <PUTUS OB14 1 TEMP113>
 993                     <DEAD TEMP113>
 994                     <RESTUS OB14 1 = OB14 (TYPE STRING)>
 995                     <EMPUS? OB14 - PHRASE115 (TYPE STRING)>
 996                     <FRAME '\1aCHANNEL-OP>
 997                     <PUSH OC7>
 998                     <PUSH 'WRITE-BUFFER>
 999                     <GVAL 'OUTPUT-BUFFER = OB14>
1000                     <PUSH OB14>
1001                     <CALL '\1aCHANNEL-OP 3>
1002 PHRASE115
1003                     <AND WRD104 31 = TEMP113>
1004                     <ADD TEMP113 65 = TEMP113 (TYPE FIX)>
1005                     <CHTYPE TEMP113 <TYPE-CODE CHARACTER> = TEMP113>
1006                     <PUTUS OB14 1 TEMP113>
1007                     <DEAD TEMP113>
1008                     <RESTUS OB14 1 = OB14 (TYPE STRING)>
1009                     <EMPUS? OB14 - PHRASE118 (TYPE STRING)>
1010                     <FRAME '\1aCHANNEL-OP>
1011                     <PUSH OC7>
1012                     <PUSH 'WRITE-BUFFER>
1013                     <GVAL 'OUTPUT-BUFFER = OB14>
1014                     <PUSH OB14>
1015                     <CALL '\1aCHANNEL-OP 3>
1016 PHRASE118
1017                     <SUB I107 1 = I107 (TYPE FIX)>
1018                     <VEQUAL? I107 0 - AGAIN108 (TYPE FIX)>
1019                     <DEAD I107 WRD104>
1020                     <SUB NUM12 1 = NUM12 (TYPE FIX)>
1021                     <GRTR? NUM12 0 - MAPAP101 (TYPE FIX)>
1022                     <RESTUU TEMP42 1 = TEMP42 (TYPE UVECTOR)>
1023                     <JUMP + MAP98>
1024 MAPAP101
1025                     <DEAD NUM12 TEMP42>
1026                     <GVAL 'CONST-LIST = TEMP136>
1027                     <RESTL TEMP136 1 = TEMP135 (TYPE LIST)>
1028                     <DEAD TEMP136>
1029                     <LOOP>
1030 MAP129
1031                     <INTGO>
1032                     <EMPL? TEMP135 + MAPAP132>
1033                     <NTHL TEMP135 1 = C137>
1034                     <NTHUV C137 1 = WRD138 (TYPE FIX)>
1035                     <DEAD C137>
1036                     <SET I140 4 (TYPE FIX)>
1037                     <LOOP>
1038 AGAIN141
1039                     <INTGO>
1040                     <ROT WRD138 9 = WRD138 (TYPE FIX)>
1041                     <LSH WRD138 -5 = TEMP146 (TYPE FIX)>
1042                     <AND TEMP146 15 = TEMP146>
1043                     <ADD TEMP146 65 = TEMP146 (TYPE FIX)>
1044                     <CHTYPE TEMP146 <TYPE-CODE CHARACTER> = TEMP146>
1045                     <PUTUS OB14 1 TEMP146>
1046                     <DEAD TEMP146>
1047                     <RESTUS OB14 1 = OB14 (TYPE STRING)>
1048                     <EMPUS? OB14 - PHRASE148 (TYPE STRING)>
1049                     <FRAME '\1aCHANNEL-OP>
1050                     <PUSH OC7>
1051                     <PUSH 'WRITE-BUFFER>
1052                     <GVAL 'OUTPUT-BUFFER = OB14>
1053                     <PUSH OB14>
1054                     <CALL '\1aCHANNEL-OP 3>
1055 PHRASE148
1056                     <AND WRD138 31 = TEMP146>
1057                     <ADD TEMP146 65 = TEMP146 (TYPE FIX)>
1058                     <CHTYPE TEMP146 <TYPE-CODE CHARACTER> = TEMP146>
1059                     <PUTUS OB14 1 TEMP146>
1060                     <DEAD TEMP146>
1061                     <RESTUS OB14 1 = OB14 (TYPE STRING)>
1062                     <EMPUS? OB14 - PHRASE151 (TYPE STRING)>
1063                     <FRAME '\1aCHANNEL-OP>
1064                     <PUSH OC7>
1065                     <PUSH 'WRITE-BUFFER>
1066                     <GVAL 'OUTPUT-BUFFER = OB14>
1067                     <PUSH OB14>
1068                     <CALL '\1aCHANNEL-OP 3>
1069 PHRASE151
1070                     <SUB I140 1 = I140 (TYPE FIX)>
1071                     <VEQUAL? I140 0 - AGAIN141 (TYPE FIX)>
1072                     <DEAD I140 WRD138>
1073                     <RESTL TEMP135 1 = TEMP135 (TYPE LIST)>
1074                     <JUMP + MAP129>
1075 MAPAP132
1076                     <DEAD TEMP135>
1077                     <FRAME '\1aCHANNEL-OP>
1078                     <PUSH OC7>
1079                     <PUSH 'WRITE-BUFFER>
1080                     <GVAL 'OUTPUT-BUFFER = STACK>
1081                     <GVAL 'OUTPUT-LENGTH = TEMP135>
1082                     <LENUS OB14 = TEMP113 (TYPE FIX)>
1083                     <DEAD OB14>
1084                     <SUB TEMP135 TEMP113 = STACK (TYPE FIX)>
1085                     <DEAD TEMP113 TEMP135>
1086                     <CALL '\1aCHANNEL-OP 4>
1087                     <FRAME '\1aPRINC>
1088                     <PUSH "| ">
1089                     <PUSH OC7>
1090                     <CALL '\1aPRINC 2>
1091                     <FRAME '\1aPRIN1>
1092                     <PUSH NAM8>
1093                     <DEAD NAM8>
1094                     <PUSH OC7>
1095                     <CALL '\1aPRIN1 2>
1096                     <RESTL IMS10 1 = TEMP167 (TYPE LIST)>
1097                     <DEAD IMS10>
1098                     <LOOP>
1099 MAP161
1100                     <INTGO>
1101                     <EMPL? TEMP167 + MAPAP164>
1102                     <NTHL TEMP167 1 = OBJ168>
1103                     <FRAME '\1aPRINC>
1104                     <PUSH !\ >
1105                     <PUSH OC7>
1106                     <CALL '\1aPRINC 2>
1107                     <FRAME '\1aPRIN1>
1108                     <PUSH OBJ168>
1109                     <DEAD OBJ168>
1110                     <PUSH OC7>
1111                     <CALL '\1aPRIN1 2>
1112                     <RESTL TEMP167 1 = TEMP167 (TYPE LIST)>
1113                     <JUMP + MAP161>
1114 MAPAP164
1115                     <DEAD TEMP167>
1116                     <FRAME '\1aPRINC>
1117                     <PUSH "]>">
1118                     <PUSH OC7>
1119                     <CALL '\1aPRINC 2>
1120                     <FRAME '\1aCRLF>
1121                     <PUSH OC7>
1122                     <DEAD OC7>
1123                     <CALL '\1aCRLF 1 = TEMP167>
1124                     <RETURN TEMP167>
1125                     <DEAD TEMP167>
1126                     <END \1aGLUE-IT>
1127 #WORD *1553414702*
1128 <GFCN \1aWRITE-MSUBR ("VALUE" ATOM GLUE-INFO ANY ANY) G-I5 OC6 INM7>
1129                     <TEMP TEMP21:ATOM>
1130                     <INTGO>
1131                     <FRAME '\1aPRINC>
1132                     <PUSH "<SETG ">
1133                     <PUSH OC6>
1134                     <CALL '\1aPRINC 2>
1135                     <FRAME '\1aPRIN1>
1136                     <NTHUV G-I5 2 = STACK (TYPE ATOM)>
1137                     <PUSH OC6>
1138                     <CALL '\1aPRIN1 2>
1139                     <FRAME '\1aPUTPROP>
1140                     <NTHUV G-I5 2 = STACK (TYPE ATOM)>
1141                     <PUSH 'INFO>
1142                     <CALL '\1aPUTPROP 2>
1143                     <FRAME '\1aPRINC>
1144                     <PUSH " #MSUBR [">
1145                     <PUSH OC6>
1146                     <CALL '\1aPRINC 2>
1147                     <FRAME '\1aPRIN1>
1148                     <PUSH INM7>
1149                     <DEAD INM7>
1150                     <PUSH OC6>
1151                     <CALL '\1aPRIN1 2>
1152                     <FRAME '\1aPRINC>
1153                     <PUSH !\ >
1154                     <PUSH OC6>
1155                     <CALL '\1aPRINC 2>
1156                     <FRAME '\1aPRIN1>
1157                     <NTHUV G-I5 2 = STACK (TYPE ATOM)>
1158                     <PUSH OC6>
1159                     <CALL '\1aPRIN1 2>
1160                     <FRAME '\1aPRINC>
1161                     <PUSH !\ >
1162                     <PUSH OC6>
1163                     <CALL '\1aPRINC 2>
1164                     <FRAME '\1aPRIN1>
1165                     <NTHUV G-I5 4 = STACK (TYPE LIST)>
1166                     <PUSH OC6>
1167                     <CALL '\1aPRIN1 2>
1168                     <FRAME '\1aPRINC>
1169                     <PUSH !\ >
1170                     <PUSH OC6>
1171                     <CALL '\1aPRINC 2>
1172                     <FRAME '\1aPRIN1>
1173                     <NTHUV G-I5 7 = STACK>
1174                     <DEAD G-I5>
1175                     <PUSH OC6>
1176                     <CALL '\1aPRIN1 2>
1177                     <FRAME '\1aPRINC>
1178                     <PUSH "]>">
1179                     <PUSH OC6>
1180                     <CALL '\1aPRINC 2>
1181                     <FRAME '\1aCRLF>
1182                     <PUSH OC6>
1183                     <DEAD OC6>
1184                     <CALL '\1aCRLF 1 = TEMP21>
1185                     <RETURN TEMP21>
1186                     <DEAD TEMP21>
1187                     <END \1aWRITE-MSUBR>
1188 #WORD *17432361652*
1189 <GFCN \1aDO-ONE-GLUE ("VALUE" FIX IMSUBR LIST LIST FIX FIX <UVECTOR [REST FIX]>) IMS5 MV6 MVP7 CURR8 CONST-S9 CV10>
1190                     <TEMP COD11 (REL-PC12:FIX 0) (FRM-STACK13:LIST ()) (GLUE-CALL-NO14:FIX 0) (PC-DIFF15:FIX 0) FRAME-CHANGES16:LIST FCP17:LIST CV-LN18:FIX OUT-CNT20:FIX TEMP27:UVECTOR IP32:UVECTOR INS34 NARG36 INDX42 TEMP45 TEMP55 TEMP56 N54:FIX AC58:FIX I57:FIX MOB35 LD-AT38:FIX LD-NARG37:FIX MA41:FIX MI40:FIX IP100:UVECTOR INS102 INDX105 CCOD104:FIX FUDGE19 MOB103 TMP101 TEMP134:FIX IP144:UVECTOR INS145 INDX151 CCOD148:FIX G-I149:GLUE-INFO FL150 TEMP175:FIX>
1191                     <INTGO>
1192                     <NTHUV IMS5 1 = COD11>
1193                     <CONS 'T () = FRAME-CHANGES16>
1194                     <SET FCP17 FRAME-CHANGES16>
1195                     <LENUU CV10 = CV-LN18 (TYPE FIX)>
1196                     <ADD CURR8 1 = OUT-CNT20 (TYPE FIX)>
1197                     <CHTYPE COD11 <TYPE-CODE UVECTOR> = TEMP27>
1198                     <LOOP>
1199 MAP22
1200                     <INTGO>
1201                     <EMPUU? TEMP27 + MAPAP25>
1202                     <SET IP32 TEMP27>
1203                     <NTHUU IP32 1 = INS34 (TYPE FIX)>
1204                     <SET NARG36 %<> (TYPE FALSE)>
1205                     <GETBITS INS34 4 18 = INDX42>
1206                     <VEQUAL? INS34 24356323472 - PHRASE44 (TYPE FIX)>
1207                     <ADD REL-PC12 1 = TEMP45 (TYPE FIX)>
1208                     <CONS TEMP45 FRM-STACK13 = FRM-STACK13>
1209                     <DEAD TEMP45>
1210                     <JUMP + PHRASE87>
1211 PHRASE44
1212                     <VEQUAL? INS34 24356323535 - PHRASE46 (TYPE FIX)>
1213                     <CONS -1 FRM-STACK13 = FRM-STACK13>
1214                     <JUMP + PHRASE87>
1215 PHRASE46
1216                     <VEQUAL? INS34 24356323473 - PHRASE47 (TYPE FIX)>
1217                     <EMPL? FRM-STACK13 - PHRASE49 (TYPE LIST)>
1218                     <FRAME '\1aERROR>
1219                     <PUSH 'BAD-CODE-UNMATCHED-FRAME-CALL!-ERRORS>
1220                     <CALL '\1aERROR 1>
1221                     <JUMP + PHRASE87>
1222 PHRASE49
1223                     <NTHL FRM-STACK13 1 = TEMP45>
1224                     <EQUAL? TEMP45 -1 - PHRASE51>
1225                     <DEAD TEMP45>
1226                     <RESTL FRM-STACK13 1 = FRM-STACK13 (TYPE LIST)>
1227                     <JUMP + PHRASE87>
1228 PHRASE51
1229                     <LENUU COD11 = TEMP55 (TYPE FIX)>
1230                     <LENUU IP32 = TEMP56 (TYPE FIX)>
1231                     <SUB TEMP55 TEMP56 = N54 (TYPE FIX)>
1232                     <DEAD TEMP56 TEMP55>
1233                     <LOOP>
1234 AGAIN59
1235                     <INTGO>
1236                     <NTHUU COD11 N54 = I57 (TYPE FIX)>
1237                     <GETBITS I57 4 23 = AC58>
1238                     <VEQUAL? AC58 8 - PHRASE61 (TYPE FIX)>
1239                     <AND I57 262143 = TEMP56>
1240                     <DEAD I57>
1241                     <DIV TEMP56 2 = TEMP56 (TYPE FIX)>
1242                     <ADD TEMP56 1 = TEMP56 (TYPE FIX)>
1243                     <NTHUV IMS5 TEMP56 = MOB35>
1244                     <DEAD TEMP56>
1245                     <SET LD-AT38 N54>
1246                     <DEAD N54>
1247                     <JUMP + EXIT53>
1248 PHRASE61
1249                     <VEQUAL? AC58 9 - PHRASE62 (TYPE FIX)>
1250                     <GETBITS I57 9 27 = TEMP56>
1251                     <VEQUAL? TEMP56 129 - PHRASE62 (TYPE FIX)>
1252                     <DEAD TEMP56>
1253                     <SET LD-NARG37 N54>
1254                     <AND I57 262143 = NARG36>
1255                     <DEAD I57>
1256                     <JUMP + PHRASE64>
1257 PHRASE62
1258                     <VEQUAL? AC58 9 - PHRASE64 (TYPE FIX)>
1259                     <DEAD AC58>
1260                     <SET LD-NARG37 N54>
1261 PHRASE64
1262                     <SUB N54 1 = N54 (TYPE FIX)>
1263                     <GRTR? N54 0 + AGAIN59 (TYPE FIX)>
1264                     <FRAME '\1aERROR>
1265                     <PUSH 'BAD-CODE-NO-LOAD-OF-MSUBR!-ERRORS>
1266                     <CALL '\1aERROR 1>
1267                     <JUMP + AGAIN59>
1268 EXIT53
1269                     <DEAD N54>
1270                     <NTHR MOB35 1 = TEMP56 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE71)>
1271                     <TYPE? TEMP56 <TYPE-CODE FALSE> + PHRASE71>
1272                     <NTHR TEMP56 1 = TEMP56 (RECORD-TYPE GBIND)>
1273                     <TYPE? TEMP56 <TYPE-CODE UNBOUND> + PHRASE71>
1274                     <DEAD TEMP56>
1275                     <FRAME '\1aGETPROP>
1276                     <PUSH MOB35>
1277                     <DEAD MOB35>
1278                     <PUSH 'INFO>
1279                     <CALL '\1aGETPROP 2 = MOB35>
1280                     <TYPE? MOB35 <TYPE-CODE GLUE-INFO> - PHRASE71>
1281                     <NTHUV MOB35 3 = TEMP56>
1282                     <TYPE? TEMP56 <TYPE-CODE FALSE> + PHRASE71>
1283                     <DEAD TEMP56>
1284                     <TYPE? NARG36 <TYPE-CODE FALSE> + PHRASE75>
1285                     <NTHUV MOB35 9 = TEMP55 (TYPE FIX)>
1286                     <LSH TEMP55 -18 = MA41 (TYPE FIX)>
1287                     <DEAD TEMP55>
1288                     <GRTR? NARG36 MA41 + BOOL77 (TYPE FIX)>
1289                     <NTHUV MOB35 9 = TEMP55 (TYPE FIX)>
1290                     <AND TEMP55 262143 = MI40>
1291                     <DEAD TEMP55>
1292                     <LESS? NARG36 MI40 - PHRASE75 (TYPE FIX)>
1293 BOOL77
1294                     <FRAME '\1aPRINC>
1295                     <PUSH "Wrong number args to ">
1296                     <NTHUV MOB35 2 = TEMP55 (TYPE ATOM)>
1297                     <NTHR TEMP55 3 = STACK (RECORD-TYPE ATOM)>
1298                     <DEAD TEMP55>
1299                     <PUSH " from ">
1300                     <NTHUV IMS5 2 = STACK>
1301                     <PUSH " supplied= ">
1302                     <FRAME '\1aUNPARSE>
1303                     <PUSH NARG36>
1304                     <CALL '\1aUNPARSE 1 = STACK>
1305                     <PUSH " max= ">
1306                     <FRAME '\1aUNPARSE>
1307                     <PUSH MA41>
1308                     <CALL '\1aUNPARSE 1 = STACK>
1309                     <PUSH " min= ">
1310                     <FRAME '\1aUNPARSE>
1311                     <PUSH MI40>
1312                     <CALL '\1aUNPARSE 1 = STACK>
1313                     <PUSH " not glued!">
1314                     <UBLOCK <TYPE-CODE STRING> 11 = STACK (TYPE STRING)>
1315                     <GVAL 'OUTCHAN = STACK>
1316                     <CALL '\1aPRINC 2>
1317                     <FRAME '\1aCRLF>
1318                     <GVAL 'OUTCHAN = STACK>
1319                     <CALL '\1aCRLF 1>
1320 PHRASE75
1321                     <PUTUU IP32 1 GLUE-CALL-NO14>
1322                     <DEAD IP32>
1323                     <ADD GLUE-CALL-NO14 2 = TEMP55 (TYPE FIX)>
1324                     <PUTUU COD11 LD-AT38 TEMP55>
1325                     <DEAD TEMP55 LD-AT38>
1326                     <NTHL FRM-STACK13 1 = TEMP55>
1327                     <CHTYPE TEMP55 <TYPE-CODE FIX> = TEMP55>
1328                     <ADD GLUE-CALL-NO14 1 = TEMP56 (TYPE FIX)>
1329                     <PUTUU COD11 TEMP55 TEMP56>
1330                     <DEAD TEMP56 TEMP55>
1331                     <NTHL FRM-STACK13 1 = TEMP56>
1332                     <CONS TEMP56 () = TEMP56>
1333                     <NTHUU COD11 LD-NARG37 = TEMP55 (TYPE FIX)>
1334                     <CONS TEMP55 TEMP56 = TEMP55>
1335                     <CONS MOB35 TEMP55 = MOB35>
1336                     <PUTREST FCP17 MOB35>
1337                     <DEAD MOB35>
1338                     <RESTL FCP17 1 = FCP17 (TYPE LIST)>
1339                     <RESTL FCP17 1 = FCP17 (TYPE LIST)>
1340                     <RESTL FCP17 1 = FCP17 (TYPE LIST)>
1341                     <TYPE? NARG36 <TYPE-CODE FALSE> + PHRASE85>
1342                     <DEAD NARG36>
1343                     <VEQUAL? MI40 MA41 - PHRASE85 (TYPE FIX)>
1344                     <ADD GLUE-CALL-NO14 3 = TEMP56 (TYPE FIX)>
1345                     <PUTUU COD11 LD-NARG37 TEMP56>
1346                     <DEAD TEMP56>
1347 PHRASE85
1348                     <ADD GLUE-CALL-NO14 4 = GLUE-CALL-NO14 (TYPE FIX)>
1349 PHRASE71
1350                     <RESTL FRM-STACK13 1 = FRM-STACK13 (TYPE LIST)>
1351                     <JUMP + PHRASE87>
1352 PHRASE47
1353                     <GVAL 'FUNNY-CALLS = TEMP56>
1354                     <EMPUU? TEMP56 + PHRASE87>
1355                     <LOOP (INS34 VALUE) (TEMP56 LENGTH VALUE)>
1356 TAG89
1357                     <NTHUU TEMP56 1 = TEMP55>
1358                     <VEQUAL? TEMP55 INS34 + TAG88>
1359                     <DEAD TEMP55>
1360                     <RESTUU TEMP56 1 = TEMP56 (TYPE UVECTOR)>
1361                     <EMPUU? TEMP56 - TAG89>
1362                     <DEAD INS34 TEMP56>
1363                     <JUMP + PHRASE87>
1364 TAG88
1365                     <RESTL FRM-STACK13 1 = FRM-STACK13 (TYPE LIST)>
1366 PHRASE87
1367                     <ADD REL-PC12 1 = REL-PC12 (TYPE FIX)>
1368                     <LESS? REL-PC12 CONST-S9 - MAPAP25 (TYPE FIX)>
1369                     <RESTUU TEMP27 1 = TEMP27 (TYPE UVECTOR)>
1370                     <JUMP + MAP22>
1371 MAPAP25
1372                     <DEAD FCP17 FRM-STACK13 GLUE-CALL-NO14 LD-NARG37 MA41 MI40 REL-PC12 TEMP27>
1373                     <SET REL-PC12 0 (TYPE FIX)>
1374                     <RESTL FRAME-CHANGES16 1 = FCP17 (TYPE LIST)>
1375                     <CHTYPE COD11 <TYPE-CODE UVECTOR> = TEMP27>
1376                     <LOOP>
1377 MAP94
1378                     <INTGO>
1379                     <EMPUU? TEMP27 + MAPAP97>
1380                     <SET IP100 TEMP27>
1381                     <NTHUU IP100 1 = INS102 (TYPE FIX)>
1382                     <GETBITS INS102 4 18 = INDX105>
1383                     <SET TEMP55 INS102>
1384                     <LESS? TEMP55 0 - TAG108 (TYPE FIX)>
1385                     <SUB 0 TEMP55 = TEMP55 (TYPE FIX)>
1386 TAG108
1387                     <GRTR? TEMP55 262143 + PHRASE107 (TYPE FIX)>
1388                     <DEAD TEMP55>
1389                     <AND INS102 3 = CCOD104>
1390                     <DEAD INS102>
1391                     <VEQUAL? CCOD104 1 - PHRASE110 (TYPE FIX)>
1392                     <FRAME '\1aUPDATE-JUMPS>
1393                     <ADD REL-PC12 PC-DIFF15 = STACK (TYPE FIX)>
1394                     <PUSH COD11>
1395                     <PUSH 4>
1396                     <CALL '\1aUPDATE-JUMPS 3>
1397                     <ADD PC-DIFF15 4 = PC-DIFF15 (TYPE FIX)>
1398                     <JUMP + PHRASE116>
1399 PHRASE110
1400                     <VEQUAL? CCOD104 2 - PHRASE114 (TYPE FIX)>
1401                     <SET FUDGE19 %<> (TYPE FALSE)>
1402                     <JUMP + PHRASE116>
1403 PHRASE114
1404                     <VEQUAL? CCOD104 3 - PHRASE115 (TYPE FIX)>
1405                     <SET FUDGE19 'T (TYPE ATOM)>
1406                     <JUMP + PHRASE116>
1407 PHRASE115
1408                     <VEQUAL? FUDGE19 0 - BOOL117>
1409                     <RESTL FCP17 1 = TEMP55 (TYPE LIST)>
1410                     <NTHL TEMP55 1 = TEMP55 (TYPE FIX)>
1411                     <GETBITS TEMP55 9 27 = TEMP55>
1412                     <VEQUAL? TEMP55 129 + PHRASE116 (TYPE FIX)>
1413                     <DEAD TEMP55>
1414 BOOL117
1415                     <FRAME '\1aUPDATE-JUMPS>
1416                     <ADD REL-PC12 PC-DIFF15 = STACK (TYPE FIX)>
1417                     <PUSH COD11>
1418                     <VEQUAL? FUDGE19 0 + PHRASE120>
1419                     <SET TEMP55 -1 (TYPE FIX)>
1420                     <JUMP + PHRASE121>
1421 PHRASE120
1422                     <SET TEMP55 2 (TYPE FIX)>
1423 PHRASE121
1424                     <PUSH TEMP55>
1425                     <DEAD TEMP55>
1426                     <CALL '\1aUPDATE-JUMPS 3>
1427                     <VEQUAL? FUDGE19 0 + PHRASE123>
1428                     <SET TEMP55 -1 (TYPE FIX)>
1429                     <JUMP + PHRASE124>
1430 PHRASE123
1431                     <SET TEMP55 2 (TYPE FIX)>
1432 PHRASE124
1433                     <ADD TEMP55 PC-DIFF15 = PC-DIFF15 (TYPE FIX)>
1434                     <DEAD TEMP55>
1435 PHRASE116
1436                     <VEQUAL? CCOD104 0 - PHRASE129 (TYPE FIX)>
1437                     <DEAD CCOD104>
1438                     <RESTL FCP17 1 = FCP17 (TYPE LIST)>
1439                     <RESTL FCP17 1 = FCP17 (TYPE LIST)>
1440                     <RESTL FCP17 1 = FCP17 (TYPE LIST)>
1441                     <JUMP + PHRASE129>
1442 PHRASE107
1443                     <VEQUAL? INDX105 11 - PHRASE129 (TYPE FIX)>
1444                     <DEAD INDX105>
1445                     <AND INS102 262143 = TEMP55>
1446                     <DIV TEMP55 2 = TEMP55 (TYPE FIX)>
1447                     <ADD TEMP55 1 = TEMP55 (TYPE FIX)>
1448                     <NTHUV IMS5 TEMP55 = MOB103>
1449                     <DEAD TEMP55>
1450                     <FRAME '\1aMEMBER>
1451                     <PUSH MOB103>
1452                     <RESTL MV6 1 = STACK (TYPE LIST)>
1453                     <CALL '\1aMEMBER 2 = TMP101>
1454                     <TYPE? TMP101 <TYPE-CODE FALSE> - PHRASE132>
1455                     <CONS MOB103 () = TMP101>
1456                     <DEAD MOB103>
1457                     <PUTREST MVP7 TMP101>
1458                     <DEAD MVP7>
1459                     <SET MVP7 TMP101>
1460 PHRASE132
1461                     <LENL MV6 = TEMP55 (TYPE FIX)>
1462                     <FRAME '\1aLENGTH>
1463                     <PUSH TMP101>
1464                     <DEAD TMP101>
1465                     <CALL '\1aLENGTH 1 = TEMP134>
1466                     <SUB TEMP55 TEMP134 = TEMP55 (TYPE FIX)>
1467                     <DEAD TEMP134>
1468                     <SUB TEMP55 -1 = TEMP55 (TYPE FIX)>
1469                     <LSH TEMP55 1 = TEMP134 (TYPE FIX)>
1470                     <DEAD TEMP55>
1471                     <AND INS102 262143 = TEMP55>
1472                     <AND TEMP55 1 = TEMP55>
1473                     <ADD TEMP134 TEMP55 = TEMP134 (TYPE FIX)>
1474                     <DEAD TEMP55>
1475                     <PUTBITS INS102 18 0 TEMP134 = INS102>
1476                     <DEAD TEMP134>
1477                     <PUTUU IP100 1 INS102>
1478                     <DEAD INS102 IP100>
1479 PHRASE129
1480                     <ADD REL-PC12 1 = REL-PC12 (TYPE FIX)>
1481                     <LESS? REL-PC12 CONST-S9 - MAPAP97 (TYPE FIX)>
1482                     <RESTUU TEMP27 1 = TEMP27 (TYPE UVECTOR)>
1483                     <JUMP + MAP94>
1484 MAPAP97
1485                     <DEAD FCP17 FUDGE19 IMS5 MV6 MVP7 PC-DIFF15 REL-PC12 TEMP27>
1486                     <SET REL-PC12 0 (TYPE FIX)>
1487                     <RESTL FRAME-CHANGES16 1 = FRAME-CHANGES16 (TYPE LIST)>
1488                     <CHTYPE COD11 <TYPE-CODE UVECTOR> = TEMP27>
1489                     <LOOP>
1490 MAP138
1491                     <INTGO>
1492                     <EMPUU? TEMP27 + MAPAP141>
1493                     <SET IP144 TEMP27>
1494                     <NTHUU IP144 1 = INS145 (TYPE FIX)>
1495                     <GETBITS INS145 4 18 = INDX151>
1496                     <SUB CV-LN18 OUT-CNT20 = TEMP55 (TYPE FIX)>
1497                     <LESS? TEMP55 5 - PHRASE153 (TYPE FIX)>
1498                     <DEAD TEMP55>
1499                     <FRAME '\1aERROR>
1500                     <PUSH 'OUTPUT-CODE-VECTOR-OVERFLOW!-ERRORS>
1501                     <CALL '\1aERROR 1>
1502 PHRASE153
1503                     <ADD REL-PC12 1 = REL-PC12 (TYPE FIX)>
1504                     <GRTR? REL-PC12 CONST-S9 - PHRASE156 (TYPE FIX)>
1505                     <PUTUU CV10 OUT-CNT20 INS145>
1506                     <DEAD INS145>
1507                     <JUMP + PHRASE176>
1508 PHRASE156
1509                     <SET TEMP55 INS145>
1510                     <LESS? TEMP55 0 - TAG158 (TYPE FIX)>
1511                     <SUB 0 TEMP55 = TEMP55 (TYPE FIX)>
1512 TAG158
1513                     <GRTR? TEMP55 262143 + PHRASE157 (TYPE FIX)>
1514                     <DEAD TEMP55>
1515                     <AND INS145 3 = CCOD148>
1516                     <DEAD INS145>
1517                     <VEQUAL? CCOD148 1 - PHRASE160 (TYPE FIX)>
1518                     <PUTUU CV10 OUT-CNT20 29187637247>
1519                     <ADD OUT-CNT20 1 = OUT-CNT20 (TYPE FIX)>
1520                     <PUTUU CV10 OUT-CNT20 -19131006976>
1521                     <ADD OUT-CNT20 1 = OUT-CNT20 (TYPE FIX)>
1522                     <PUTUU CV10 OUT-CNT20 23873978375>
1523                     <ADD OUT-CNT20 1 = OUT-CNT20 (TYPE FIX)>
1524                     <PUTUU CV10 OUT-CNT20 23876599808>
1525                     <PUTUU IP144 1 OUT-CNT20>
1526                     <DEAD IP144>
1527                     <ADD OUT-CNT20 1 = OUT-CNT20 (TYPE FIX)>
1528                     <PUTUU CV10 OUT-CNT20 23873978381>
1529                     <JUMP + PHRASE176>
1530 PHRASE160
1531                     <VEQUAL? CCOD148 0 - PHRASE163 (TYPE FIX)>
1532                     <DEAD CCOD148>
1533                     <RESTL FRAME-CHANGES16 1 = TEMP55 (TYPE LIST)>
1534                     <NTHL TEMP55 1 = INS145 (TYPE FIX)>
1535                     <DEAD TEMP55>
1536                     <GETBITS INS145 9 27 = TEMP55>
1537                     <VEQUAL? TEMP55 129 + PHRASE167 (TYPE FIX)>
1538                     <DEAD TEMP55>
1539                     <PUTUU CV10 OUT-CNT20 -32501923841>
1540                     <ADD OUT-CNT20 1 = OUT-CNT20 (TYPE FIX)>
1541                     <PUTUU CV10 OUT-CNT20 25341984777>
1542                     <ADD OUT-CNT20 1 = OUT-CNT20 (TYPE FIX)>
1543                     <PUTUU CV10 OUT-CNT20 25341984777>
1544                     <JUMP + PHRASE168>
1545 PHRASE167
1546                     <AND INS145 262143 = INS145>
1547                     <LSH INS145 1 = INS145 (TYPE FIX)>
1548                     <ADD INS145 1 = INS145 (TYPE FIX)>
1549                     <SUB 0 INS145 = INS145 (TYPE FIX)>
1550                     <AND INS145 262143 = INS145>
1551                     <OR INS145 -32502185984 = INS145>
1552                     <PUTUU CV10 OUT-CNT20 INS145>
1553                     <DEAD INS145>
1554 PHRASE168
1555                     <ADD OUT-CNT20 1 = OUT-CNT20 (TYPE FIX)>
1556                     <NTHL FRAME-CHANGES16 1 = G-I149 (TYPE GLUE-INFO)>
1557                     <NTHUV G-I149 7 = FL150>
1558                     <TYPE? FL150 <TYPE-CODE FALSE> + PHRASE170>
1559                     <OR FL150 23088070656 = FL150>
1560                     <PUTUU CV10 OUT-CNT20 FL150>
1561                     <DEAD FL150>
1562                     <JUMP + PHRASE171>
1563 PHRASE170
1564                     <PUTUU CV10 OUT-CNT20 23088070656>
1565                     <NTHUV G-I149 6 = TEMP55 (TYPE LIST)>
1566                     <CONS OUT-CNT20 TEMP55 = TEMP55>
1567                     <PUTUV G-I149 6 TEMP55 (TYPE LIST)>
1568                     <DEAD TEMP55 G-I149>
1569 PHRASE171
1570                     <FRAME '\1aADD-CONST>
1571                     <OR OUT-CNT20 -34357116928 = STACK>
1572                     <RESTL FRAME-CHANGES16 1 = TEMP55 (TYPE LIST)>
1573                     <RESTL TEMP55 1 = TEMP55 (TYPE LIST)>
1574                     <NTHL TEMP55 1 = TEMP55>
1575                     <NTHUU COD11 TEMP55 = STACK (TYPE FIX)>
1576                     <DEAD TEMP55>
1577                     <CALL '\1aADD-CONST 2>
1578                     <RESTL FRAME-CHANGES16 1 = FRAME-CHANGES16 (TYPE LIST)>
1579                     <RESTL FRAME-CHANGES16 1 = FRAME-CHANGES16 (TYPE LIST)>
1580                     <RESTL FRAME-CHANGES16 1 = FRAME-CHANGES16 (TYPE LIST)>
1581                     <JUMP + PHRASE176>
1582 PHRASE163
1583                     <SUB OUT-CNT20 1 = OUT-CNT20 (TYPE FIX)>
1584                     <JUMP + PHRASE176>
1585 PHRASE157
1586                     <VEQUAL? INDX151 10 - PHRASE174 (TYPE FIX)>
1587                     <DEAD INDX151>
1588                     <AND INS145 -262144 = TEMP55>
1589                     <ADD INS145 CURR8 = INS145 (TYPE FIX)>
1590                     <AND INS145 262143 = INS145>
1591                     <OR TEMP55 INS145 = TEMP55>
1592                     <DEAD INS145>
1593                     <PUTUU CV10 OUT-CNT20 TEMP55>
1594                     <DEAD TEMP55>
1595                     <JUMP + PHRASE176>
1596 PHRASE174
1597                     <PUTUU CV10 OUT-CNT20 INS145>
1598                     <DEAD INS145>
1599 PHRASE176
1600                     <ADD OUT-CNT20 1 = OUT-CNT20 (TYPE FIX)>
1601                     <RESTUU TEMP27 1 = TEMP27 (TYPE UVECTOR)>
1602                     <JUMP + MAP138>
1603 MAPAP141
1604                     <DEAD COD11 CONST-S9 CURR8 CV-LN18 CV10 FRAME-CHANGES16 REL-PC12 TEMP27>
1605                     <SUB OUT-CNT20 1 = OUT-CNT20 (TYPE FIX)>
1606                     <RETURN OUT-CNT20>
1607                     <DEAD OUT-CNT20>
1608                     <END \1aDO-ONE-GLUE>
1609 #WORD *26570200332*
1610 <GFCN \1aADD-CONST ("VALUE" ANY FIX ANY) X5 WHERE6>
1611                     <TEMP TEMP18 TEMP21 TEMP20:LIST C-R22:CONST-REF TEMP8 TEMP16>
1612                     <INTGO>
1613                     <SET TEMP18 %<> (TYPE FALSE)>
1614                     <GVAL 'CONST-LIST = TEMP21>
1615                     <RESTL TEMP21 1 = TEMP20 (TYPE LIST)>
1616                     <DEAD TEMP21>
1617                     <LOOP>
1618 MAP10
1619                     <INTGO>
1620                     <EMPL? TEMP20 + MAPAP13>
1621                     <NTHL TEMP20 1 = C-R22>
1622                     <NTHUV C-R22 1 = TEMP21 (TYPE FIX)>
1623                     <VEQUAL? X5 TEMP21 + TAG25 (TYPE FIX)>
1624                     <DEAD TEMP21>
1625                     <SET TEMP18 %<> (TYPE FALSE)>
1626                     <JUMP + PHRASE24>
1627 TAG25
1628                     <NTHUV C-R22 2 = TEMP21 (TYPE LIST)>
1629                     <CONS WHERE6 TEMP21 = TEMP21>
1630                     <PUTUV C-R22 2 TEMP21 (TYPE LIST)>
1631                     <DEAD TEMP21 C-R22>
1632                     <FRAME '\1aMAPEAVE>
1633                     <PUSH 'T>
1634                     <CALL '\1aMAPEAVE 1 = TEMP18>
1635 PHRASE24
1636                     <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
1637                     <JUMP + MAP10>
1638 MAPAP13
1639                     <DEAD TEMP20>
1640                     <TYPE? TEMP18 <TYPE-CODE FALSE> - PHRASE27>
1641                     <GVAL 'CONST-PTR = TEMP20>
1642                     <PUSH X5>
1643                     <DEAD X5>
1644                     <CONS WHERE6 () = STACK>
1645                     <DEAD WHERE6>
1646                     <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP16>
1647                     <CHTYPE TEMP16 <TYPE-CODE CONST-REF> = TEMP16>
1648                     <CONS TEMP16 () = TEMP16>
1649                     <SETG 'CONST-PTR TEMP16>
1650                     <PUTREST TEMP20 TEMP16>
1651                     <DEAD TEMP16>
1652                     <SET TEMP18 TEMP20>
1653                     <DEAD TEMP20>
1654 PHRASE27
1655                     <RETURN TEMP18>
1656                     <DEAD TEMP18>
1657                     <END \1aADD-CONST>
1658 #WORD *4400555244*
1659 <GFCN \1aUPDATE-JUMPS ("VALUE" <OR FALSE <UVECTOR FIX>> FIX CODE FIX) WHERE5 COD6 HOW-MUCH7>
1660                     <TEMP TEMP17 TEMP14:UVECTOR IP19:UVECTOR INS21 INDX22 AD20:FIX TEMP29:FIX TEMP30:FIX>
1661                     <INTGO>
1662                     <SET TEMP17 %<> (TYPE FALSE)>
1663                     <CHTYPE COD6 <TYPE-CODE UVECTOR> = TEMP14>
1664                     <DEAD COD6>
1665                     <LOOP>
1666 MAP9
1667                     <INTGO>
1668                     <EMPUU? TEMP14 + MAPAP12>
1669                     <SET IP19 TEMP14>
1670                     <NTHUU IP19 1 = INS21 (TYPE FIX)>
1671                     <GETBITS INS21 4 18 = INDX22>
1672                     <VEQUAL? INDX22 10 + TAG26 (TYPE FIX)>
1673                     <DEAD INDX22>
1674                     <SET TEMP17 %<> (TYPE FALSE)>
1675                     <JUMP + PHRASE24>
1676 TAG26
1677                     <AND INS21 262143 = AD20>
1678                     <GRTR? AD20 WHERE5 + TAG27 (TYPE FIX)>
1679                     <SET TEMP17 %<> (TYPE FALSE)>
1680                     <JUMP + PHRASE24>
1681 TAG27
1682                     <LESS? AD20 131072 + TAG28 (TYPE FIX)>
1683                     <SET TEMP17 %<> (TYPE FALSE)>
1684                     <JUMP + PHRASE24>
1685 TAG28
1686                     <AND INS21 -262144 = INS21>
1687                     <ADD AD20 HOW-MUCH7 = AD20 (TYPE FIX)>
1688                     <AND AD20 262143 = AD20>
1689                     <OR INS21 AD20 = INS21>
1690                     <DEAD AD20>
1691                     <PUTUU IP19 1 INS21>
1692                     <DEAD INS21>
1693                     <SET TEMP17 IP19>
1694                     <DEAD IP19>
1695 PHRASE24
1696                     <RESTUU TEMP14 1 = TEMP14 (TYPE UVECTOR)>
1697                     <JUMP + MAP9>
1698 MAPAP12
1699                     <DEAD HOW-MUCH7 TEMP14 WHERE5>
1700                     <RETURN TEMP17>
1701                     <DEAD TEMP17>
1702                     <END \1aUPDATE-JUMPS>
1703 #WORD *4722522064*
1704 <GFCN \1aARG-SPEC ("VALUE" FIX LIST) DCL5>
1705                     <TEMP (MIN6:FIX 0) (MAX7:FIX 0) (OPT8 %<>) TEMP13 TEMP14 TEMP15 TEMP16 TEMP17 TEMP29 TEMP28:LIST EL30 TEMP39 TEMP40 TEMP41 TEMP42 TEMP45 TEMP26:FIX>
1706                     <INTGO>
1707                     <EMPL? DCL5 + TAG12 (TYPE LIST)>
1708                     <NTHL DCL5 1 = TEMP13>
1709                     <TYPE? TEMP13 <TYPE-CODE STRING> - TAG12>
1710                     <IFCAN "STRING-EQUAL?">
1711                     <STRING-EQUAL? TEMP13 "VALUE" + PHRASE10>
1712                     <DEAD TEMP13>
1713                     <ENDIF "STRING-EQUAL?">
1714                     <IFCANNOT "STRING-EQUAL?">
1715                     <SET TEMP14 "VALUE" (TYPE STRING)>
1716                     <LENUS TEMP13 = TEMP15 (TYPE FIX)>
1717                     <VEQUAL? TEMP15 5 - TAG12>
1718                     <LOOP (TEMP13 VALUE LENGTH) (TEMP14 VALUE LENGTH) (TEMP15 VALUE)>
1719 TAG18
1720                     <NTHUS TEMP13 1 = TEMP16>
1721                     <NTHUS TEMP14 1 = TEMP17>
1722                     <VEQUAL? TEMP16 TEMP17 - TAG12>
1723                     <DEAD TEMP17 TEMP16>
1724                     <RESTUS TEMP13 1 = TEMP13 (TYPE STRING)>
1725                     <RESTUS TEMP14 1 = TEMP14 (TYPE STRING)>
1726                     <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
1727                     <GRTR? TEMP15 0 + TAG18 (TYPE FIX)>
1728                     <DEAD TEMP13 TEMP14 TEMP15>
1729                     <JUMP + PHRASE10>
1730                     <ENDIF "STRING-EQUAL?">
1731 TAG12
1732                     <LSH -1 18 = TEMP14 (TYPE FIX)>
1733                     <RETURN TEMP14>
1734                     <DEAD TEMP14>
1735 PHRASE10
1736                     <RESTL DCL5 1 = TEMP29 (TYPE LIST)>
1737                     <DEAD DCL5>
1738                     <RESTL TEMP29 1 = TEMP28 (TYPE LIST)>
1739                     <DEAD TEMP29>
1740                     <LOOP>
1741 MAP21
1742                     <INTGO>
1743                     <EMPL? TEMP28 + MAPAP24>
1744                     <NTHL TEMP28 1 = EL30>
1745                     <TYPE? EL30 <TYPE-CODE ATOM> + TAG33>
1746                     <TYPE? EL30 <TYPE-CODE FORM> + TAG33>
1747                     <TYPE? EL30 <TYPE-CODE SEGMENT> - PHRASE32>
1748 TAG33
1749                     <ADD MAX7 1 = MAX7 (TYPE FIX)>
1750                     <VEQUAL? OPT8 0 - PHRASE47>
1751                     <ADD MIN6 1 = MIN6 (TYPE FIX)>
1752                     <JUMP + PHRASE47>
1753 PHRASE32
1754                     <FRAME '\1aMEMBER>
1755                     <PUSH EL30>
1756                     <PUSH ["OPT" "OPTIONAL" "ARGS"]>
1757                     <CALL '\1aMEMBER 2 = TEMP29>
1758                     <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE36>
1759                     <DEAD TEMP29>
1760                     <SET OPT8 'T (TYPE ATOM)>
1761                     <JUMP + PHRASE47>
1762 PHRASE36
1763                     <TYPE? EL30 <TYPE-CODE STRING> - TAG38>
1764                     <IFCAN "STRING-EQUAL?">
1765                     <STRING-EQUAL? EL30 "QUOTE" + PHRASE47>
1766                     <ENDIF "STRING-EQUAL?">
1767                     <IFCANNOT "STRING-EQUAL?">
1768                     <SET TEMP29 EL30>
1769                     <SET TEMP39 "QUOTE" (TYPE STRING)>
1770                     <LENUS TEMP29 = TEMP40 (TYPE FIX)>
1771                     <VEQUAL? TEMP40 5 - TAG38>
1772                     <LOOP (TEMP29 VALUE LENGTH) (TEMP39 VALUE LENGTH) (TEMP40 VALUE)>
1773 TAG43
1774                     <NTHUS TEMP29 1 = TEMP41>
1775                     <NTHUS TEMP39 1 = TEMP42>
1776                     <VEQUAL? TEMP41 TEMP42 - TAG38>
1777                     <DEAD TEMP42 TEMP41>
1778                     <RESTUS TEMP29 1 = TEMP29 (TYPE STRING)>
1779                     <RESTUS TEMP39 1 = TEMP39 (TYPE STRING)>
1780                     <SUB TEMP40 1 = TEMP40 (TYPE FIX)>
1781                     <GRTR? TEMP40 0 + TAG43 (TYPE FIX)>
1782                     <DEAD EL30 TEMP29 TEMP39 TEMP40>
1783                     <JUMP + PHRASE47>
1784                     <ENDIF "STRING-EQUAL?">
1785 TAG38
1786                     <TYPE? EL30 <TYPE-CODE STRING> - PHRASE44>
1787                     <IFCAN "STRING-EQUAL?">
1788                     <STRING-EQUAL? EL30 "TUPLE" - PHRASE44>
1789                     <DEAD EL30>
1790                     <ENDIF "STRING-EQUAL?">
1791                     <IFCANNOT "STRING-EQUAL?">
1792                     <SET TEMP39 EL30>
1793                     <DEAD EL30>
1794                     <SET TEMP29 "TUPLE" (TYPE STRING)>
1795                     <LENUS TEMP39 = TEMP42 (TYPE FIX)>
1796                     <VEQUAL? TEMP42 5 - PHRASE44>
1797                     <LOOP (TEMP39 VALUE LENGTH) (TEMP29 VALUE LENGTH) (TEMP42 VALUE)>
1798 TAG46
1799                     <NTHUS TEMP39 1 = TEMP41>
1800                     <NTHUS TEMP29 1 = TEMP45>
1801                     <VEQUAL? TEMP41 TEMP45 - PHRASE44>
1802                     <DEAD TEMP45 TEMP41>
1803                     <RESTUS TEMP39 1 = TEMP39 (TYPE STRING)>
1804                     <RESTUS TEMP29 1 = TEMP29 (TYPE STRING)>
1805                     <SUB TEMP42 1 = TEMP42 (TYPE FIX)>
1806                     <GRTR? TEMP42 0 + TAG46 (TYPE FIX)>
1807                     <ENDIF "STRING-EQUAL?">
1808                     <DEAD MAX7 OPT8 TEMP28 TEMP29 TEMP39 TEMP42>
1809                     <SET MAX7 262143 (TYPE FIX)>
1810                     <JUMP + MAPAP24>
1811 PHRASE44
1812                     <FRAME '\1aERROR>
1813                     <PUSH 'BAD-DECL!-ERRORS>
1814                     <CALL '\1aERROR 1>
1815 PHRASE47
1816                     <RESTL TEMP28 1 = TEMP28 (TYPE LIST)>
1817                     <JUMP + MAP21>
1818 MAPAP24
1819                     <DEAD OPT8 TEMP28>
1820                     <LSH MAX7 18 = MAX7 (TYPE FIX)>
1821                     <OR MAX7 MIN6 = TEMP14>
1822                     <DEAD MIN6 MAX7>
1823                     <RETURN TEMP14>
1824                     <DEAD TEMP14>
1825                     <END \1aARG-SPEC>
1826 #WORD *10660507276*
1827 <GFCN \1aGET-NM1 ("VALUE" STRING STRING) STR5>
1828                     <TEMP (SEEN-OP6 %<>) TEMP13:STRING TEMP16 CH18:CHARACTER TEMP21>
1829                     <INTGO>
1830                     <SET TEMP16 0 (TYPE FIX)>
1831                     <LOOP>
1832 MAP8
1833                     <INTGO>
1834                     <EMPUS? STR5 + MAPAP11>
1835                     <NTHUS STR5 1 = CH18>
1836                     <VEQUAL? CH18 !\< - PHRASE20>
1837                     <SET SEEN-OP6 'T (TYPE ATOM)>
1838                     <SET TEMP21 SEEN-OP6>
1839                     <JUMP + PHRASE26>
1840 PHRASE20
1841                     <VEQUAL? CH18 !\> - PHRASE22>
1842                     <SET SEEN-OP6 %<> (TYPE FALSE)>
1843                     <SET TEMP21 SEEN-OP6>
1844                     <JUMP + PHRASE26>
1845 PHRASE22
1846                     <VEQUAL? SEEN-OP6 0 - PHRASE23>
1847                     <VEQUAL? CH18 !\. + MAPAP11>
1848 PHRASE23
1849                     <SET TEMP21 CH18>
1850                     <DEAD CH18>
1851 PHRASE26
1852                     <PUSH TEMP21>
1853                     <DEAD TEMP21>
1854                     <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
1855                     <RESTUS STR5 1 = STR5 (TYPE STRING)>
1856                     <JUMP + MAP8>
1857 MAPAP11
1858                     <DEAD SEEN-OP6 STR5>
1859                     <UBLOCK <TYPE-CODE STRING> TEMP16 = TEMP16 (TYPE STRING)>
1860                     <RETURN TEMP16>
1861                     <DEAD TEMP16>
1862                     <END \1aGET-NM1>
1863 <ENDPACKAGE>