mim/development/mim/vaxc/asmgo.mima

   1
   2 #WORD *36752207516*
   3                     <GFCN \1aPROCESS-BRANCH-1 ("VALUE" FIX FIX FIX FIX) INST4 BYTEOFF5 CODEPTR6>
   4                     <TEMP (XREF9 %<>) PTR7:FIX TEMP12:LIST LREF8:LABEL-REF TREF26:XREF-INFO>
   5                     <INTGO>
   6                     <AND INST4 #WORD *177777* = PTR7>
   7                     <DEAD INST4>
   8                     <GVAL 'LABEL-TABLE = TEMP12>
   9                     <SUB PTR7 1 = PTR7 (TYPE FIX)>
  10                     <GRTR? PTR7 0 - RESTL15 (TYPE FIX)>
  11                     <LOOP (TEMP12 VALUE) (PTR7 VALUE)>
  12 RESTL14
  13                     <INTGO>
  14                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
  15                     <SUB PTR7 1 = PTR7 (TYPE FIX)>
  16                     <GRTR? PTR7 0 + RESTL14 (TYPE FIX)>
  17 RESTL15
  18                     <NTHL TEMP12 1 = LREF8 (TYPE LABEL-REF)>
  19                     <DEAD TEMP12>
  20                     <NTHUV LREF8 2 = TEMP12 (TYPE LIST)>
  21                     <LOOP>
  22 MAP17
  23                     <INTGO>
  24                     <EMPL? TEMP12 + MAPAP20>
  25                     <NTHL TEMP12 1 = TREF26>
  26                     <NTHUV TREF26 2 = PTR7 (TYPE FIX)>
  27                     <VEQUAL? CODEPTR6 PTR7 - PHRASE28 (TYPE FIX)>
  28                     <DEAD PTR7>
  29                     <SET XREF9 TREF26>
  30                     <DEAD TREF26>
  31                     <JUMP + MAPAP20>
  32 PHRASE28
  33                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
  34                     <JUMP + MAP17>
  35 MAPAP20
  36                     <TYPE? XREF9 <TYPE-CODE FALSE> - BOOL30>
  37                     <FRAME '\1aERROR>
  38                     <PUSH "JUMP NOT FOUND">
  39                     <PUSH LREF8>
  40                     <DEAD LREF8>
  41                     <PUSH CODEPTR6>
  42                     <DEAD CODEPTR6>
  43                     <PUSH BYTEOFF5>
  44                     <PUSH 'PROCESS-BRANCH>
  45                     <CALL '\1aERROR 5>
  46 BOOL30
  47                     <NTHUV XREF9 4 = XREF9>
  48                     <TYPE? XREF9 <TYPE-CODE FALSE> + BOOL32>
  49                     <EMPUU? XREF9 + BOOL32 (TYPE UVECTOR)>
  50                     <FRAME '\1aSCAN-PASS>
  51                     <PUSH BYTEOFF5>
  52                     <DEAD BYTEOFF5>
  53                     <PUSH ()>
  54                     <PUSH XREF9>
  55                     <PUSH %<>>
  56                     <LENUU XREF9 = PTR7 (TYPE FIX)>
  57                     <DEAD XREF9>
  58                     <ADD PTR7 1 = STACK (TYPE FIX)>
  59                     <DEAD PTR7>
  60                     <CALL '\1aSCAN-PASS 5 = BYTEOFF5>
  61 BOOL32
  62                     <RETURN BYTEOFF5>
  63                     <DEAD BYTEOFF5>
  64                     <END \1aPROCESS-BRANCH-1>
  65
  66 #WORD *25675476534*
  67                     <GFCN \1aPROCESS-BRANCH-2 ("VALUE" FIX FIX FIX FIX FIX FIX) INST4 BYTEOFF5 CODEPTR6 INSC7 EAT8>
  68                     <TEMP (XREF11 %<>) PTR9 TEMP14 LREF10:LABEL-REF TREF28:XREF-INFO>
  69                     <INTGO>
  70                     <AND INST4 #WORD *177777* = PTR9>
  71                     <DEAD INST4>
  72                     <GVAL 'LABEL-TABLE = TEMP14>
  73                     <SUB PTR9 1 = PTR9 (TYPE FIX)>
  74                     <GRTR? PTR9 0 - RESTL17 (TYPE FIX)>
  75                     <LOOP (TEMP14 VALUE) (PTR9 VALUE)>
  76 RESTL16
  77                     <INTGO>
  78                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
  79                     <SUB PTR9 1 = PTR9 (TYPE FIX)>
  80                     <GRTR? PTR9 0 + RESTL16 (TYPE FIX)>
  81 RESTL17
  82                     <NTHL TEMP14 1 = LREF10 (TYPE LABEL-REF)>
  83                     <DEAD TEMP14>
  84                     <NTHUV LREF10 2 = TEMP14 (TYPE LIST)>
  85                     <LOOP>
  86 MAP19
  87                     <INTGO>
  88                     <EMPL? TEMP14 + MAPAP22>
  89                     <NTHL TEMP14 1 = TREF28>
  90                     <NTHUV TREF28 2 = PTR9 (TYPE FIX)>
  91                     <VEQUAL? CODEPTR6 PTR9 - PHRASE30 (TYPE FIX)>
  92                     <DEAD PTR9>
  93                     <SET XREF11 TREF28>
  94                     <DEAD TREF28>
  95                     <JUMP + MAPAP22>
  96 PHRASE30
  97                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
  98                     <JUMP + MAP19>
  99 MAPAP22
 100                     <TYPE? XREF11 <TYPE-CODE FALSE> - BOOL32>
 101                     <FRAME '\1aERROR>
 102                     <PUSH "JUMP NOT FOUND">
 103                     <PUSH LREF10>
 104                     <PUSH CODEPTR6>
 105                     <DEAD CODEPTR6>
 106                     <PUSH BYTEOFF5>
 107                     <PUSH 'PROCESS-BRANCH>
 108                     <CALL '\1aERROR 5>
 109 BOOL32
 110                     <NTHUV LREF10 3 = PTR9 (TYPE FIX)>
 111                     <DEAD LREF10>
 112                     <VEQUAL? EAT8 33 - PHRASE35 (TYPE FIX)>
 113                     <DEAD EAT8>
 114                     <ADD BYTEOFF5 2 = BYTEOFF5 (TYPE FIX)>
 115                     <RETURN BYTEOFF5>
 116                     <DEAD BYTEOFF5>
 117 PHRASE35
 118                     <SUB PTR9 BYTEOFF5 = TEMP14 (TYPE FIX)>
 119                     <SUB TEMP14 1 = TEMP14 (TYPE FIX)>
 120                     <LESS? PTR9 0 + BOOL39 (TYPE FIX)>
 121                     <DEAD PTR9>
 122                     <GRTR? TEMP14 127 + BOOL39 (TYPE FIX)>
 123                     <LESS? TEMP14 -127 + BOOL39 (TYPE FIX)>
 124                     <DEAD TEMP14>
 125                     <NTHUV XREF11 12 = PTR9>
 126                     <TYPE? PTR9 <TYPE-CODE FALSE> + PHRASE38>
 127                     <DEAD PTR9>
 128 BOOL39
 129                     <PUTUV XREF11 5 %<>>
 130                     <DEAD XREF11>
 131                     <VEQUAL? INSC7 17 - PHRASE43 (TYPE FIX)>
 132                     <ADD BYTEOFF5 2 = BYTEOFF5 (TYPE FIX)>
 133                     <RETURN BYTEOFF5>
 134                     <DEAD BYTEOFF5>
 135 PHRASE43
 136                     <VEQUAL? INSC7 244 + BOOL45 (TYPE FIX)>
 137                     <VEQUAL? INSC7 245 - PHRASE44 (TYPE FIX)>
 138 BOOL45
 139                     <ADD BYTEOFF5 5 = BYTEOFF5 (TYPE FIX)>
 140                     <RETURN BYTEOFF5>
 141                     <DEAD BYTEOFF5>
 142 PHRASE44
 143                     <VEQUAL? INSC7 242 + BOOL47 (TYPE FIX)>
 144                     <VEQUAL? INSC7 243 - PHRASE46 (TYPE FIX)>
 145                     <DEAD INSC7>
 146 BOOL47
 147                     <ADD BYTEOFF5 6 = BYTEOFF5 (TYPE FIX)>
 148                     <RETURN BYTEOFF5>
 149                     <DEAD BYTEOFF5>
 150 PHRASE46
 151                     <ADD BYTEOFF5 4 = BYTEOFF5 (TYPE FIX)>
 152                     <RETURN BYTEOFF5>
 153                     <DEAD BYTEOFF5>
 154 PHRASE38
 155                     <PUTUV XREF11 5 'T>
 156                     <DEAD XREF11>
 157                     <ADD BYTEOFF5 1 = BYTEOFF5 (TYPE FIX)>
 158                     <RETURN BYTEOFF5>
 159                     <DEAD BYTEOFF5>
 160                     <END \1aPROCESS-BRANCH-2>
 161
 162 #WORD *31767303722*
 163                     <GFCN \1aAGEN-BRANCH-1 ("VALUE" FIX FIX FIX FIX FIX) INST4 BYTEOFF5 CODEPTR6 INSCODE7>
 164                     <TEMP (SAVED-POINT11 0) TEMP14 TREF28:XREF-INFO XREF10:XREF-INFO>
 165                     <INTGO>
 166                     <AND INST4 #WORD *177777* = SAVED-POINT11>
 167                     <DEAD INST4>
 168                     <GVAL 'LABEL-TABLE = TEMP14>
 169                     <SUB SAVED-POINT11 1 = SAVED-POINT11 (TYPE FIX)>
 170                     <GRTR? SAVED-POINT11 0 - RESTL17 (TYPE FIX)>
 171                     <LOOP (TEMP14 VALUE) (SAVED-POINT11 VALUE)>
 172 RESTL16
 173                     <INTGO>
 174                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
 175                     <SUB SAVED-POINT11 1 = SAVED-POINT11 (TYPE FIX)>
 176                     <GRTR? SAVED-POINT11 0 + RESTL16 (TYPE FIX)>
 177 RESTL17
 178                     <NTHL TEMP14 1 = TEMP14 (TYPE LABEL-REF)>
 179                     <NTHUV TEMP14 3 = SAVED-POINT11 (TYPE FIX)>
 180                     <NTHUV TEMP14 2 = TEMP14 (TYPE LIST)>
 181                     <LOOP>
 182 MAP19
 183                     <INTGO>
 184                     <EMPL? TEMP14 + MAPAP22>
 185                     <NTHL TEMP14 1 = TREF28>
 186                     <NTHUV TREF28 2 = SAVED-POINT11 (TYPE FIX)>
 187                     <VEQUAL? CODEPTR6 SAVED-POINT11 - PHRASE30 (TYPE FIX)>
 188                     <DEAD SAVED-POINT11>
 189                     <SET XREF10 TREF28>
 190                     <DEAD TREF28>
 191                     <JUMP + MAPAP22>
 192 PHRASE30
 193                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
 194                     <JUMP + MAP19>
 195 MAPAP22
 196                     <NTHUV XREF10 4 = SAVED-POINT11>
 197                     <DEAD XREF10>
 198                     <TYPE? SAVED-POINT11 <TYPE-CODE FALSE> + BOOL32>
 199                     <EMPUU? SAVED-POINT11 + BOOL32 (TYPE UVECTOR)>
 200                     <FRAME '\1aOUTPUT-PASS>
 201                     <PUSH BYTEOFF5>
 202                     <DEAD BYTEOFF5>
 203                     <PUSH ()>
 204                     <PUSH SAVED-POINT11>
 205                     <LENUU SAVED-POINT11 = SAVED-POINT11 (TYPE FIX)>
 206                     <ADD SAVED-POINT11 1 = STACK (TYPE FIX)>
 207                     <DEAD SAVED-POINT11>
 208                     <PUSH %<>>
 209                     <CALL '\1aOUTPUT-PASS 5 = BYTEOFF5>
 210 BOOL32
 211                     <RETURN BYTEOFF5>
 212                     <DEAD BYTEOFF5>
 213                     <END \1aAGEN-BRANCH-1>
 214
 215 #WORD *22476505124*
 216                     <GFCN \1aAGEN-BRANCH-2 ("VALUE" FIX ANY FIX ANY FIX FIX FIX) INST4 BYTEOFF5 CODEPTR6 INSCODE7 WHERE8 EAT9>
 217                     <TEMP PTR10:FIX TEMP15 TEMP16 TEMP32:FIX XREF12:XREF-INFO>
 218                     <INTGO>
 219                     <AND INST4 #WORD *177777* = PTR10>
 220                     <DEAD INST4>
 221                     <GVAL 'LABEL-TABLE = TEMP15>
 222                     <SET TEMP16 PTR10>
 223                     <DEAD PTR10>
 224                     <SUB TEMP16 1 = TEMP16 (TYPE FIX)>
 225                     <GRTR? TEMP16 0 - RESTL18 (TYPE FIX)>
 226                     <LOOP (TEMP15 VALUE) (TEMP16 VALUE)>
 227 RESTL17
 228                     <INTGO>
 229                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
 230                     <SUB TEMP16 1 = TEMP16 (TYPE FIX)>
 231                     <GRTR? TEMP16 0 + RESTL17 (TYPE FIX)>
 232 RESTL18
 233                     <NTHL TEMP15 1 = TEMP15 (TYPE LABEL-REF)>
 234                     <NTHUV TEMP15 3 = PTR10 (TYPE FIX)>
 235                     <NTHUV TEMP15 2 = TEMP15 (TYPE LIST)>
 236                     <LOOP>
 237 MAP20
 238                     <INTGO>
 239                     <EMPL? TEMP15 + MAPAP23>
 240                     <NTHL TEMP15 1 = TEMP16>
 241                     <NTHUV TEMP16 2 = TEMP32 (TYPE FIX)>
 242                     <EQUAL? TEMP32 CODEPTR6 - PHRASE31>
 243                     <DEAD TEMP32>
 244                     <SET XREF12 TEMP16>
 245                     <DEAD TEMP16>
 246                     <JUMP + MAPAP23>
 247 PHRASE31
 248                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
 249                     <JUMP + MAP20>
 250 MAPAP23
 251                     <ADD BYTEOFF5 1 = BYTEOFF5 (TYPE FIX)>
 252                     <SUB PTR10 BYTEOFF5 = PTR10 (TYPE FIX)>
 253                     <GVAL 'FBYTE-OFFSET = TEMP15>
 254                     <NTHUV XREF12 5 = TEMP16>
 255                     <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE34>
 256                     <DEAD TEMP16>
 257                     <FRAME '\1aADD-BYTE-TO-FCODE>
 258                     <AND PTR10 #WORD *377* = STACK>
 259                     <DEAD PTR10>
 260                     <CALL '\1aADD-BYTE-TO-FCODE 1>
 261                     <PUTUV XREF12 5 'T>
 262                     <JUMP + PHRASE65>
 263 PHRASE34
 264                     <VEQUAL? EAT9 33 - PHRASE36 (TYPE FIX)>
 265                     <DEAD EAT9>
 266                     <SUB PTR10 1 = PTR10 (TYPE FIX)>
 267                     <FRAME '\1aADD-BYTE-TO-FCODE>
 268                     <AND PTR10 #WORD *377* = STACK>
 269                     <CALL '\1aADD-BYTE-TO-FCODE 1>
 270                     <FRAME '\1aADD-BYTE-TO-FCODE>
 271                     <LSH PTR10 -8 = TEMP16 (TYPE FIX)>
 272                     <DEAD PTR10>
 273                     <AND TEMP16 #WORD *377* = STACK>
 274                     <DEAD TEMP16>
 275                     <CALL '\1aADD-BYTE-TO-FCODE 1>
 276                     <ADD BYTEOFF5 1 = BYTEOFF5 (TYPE FIX)>
 277                     <PUTUV XREF12 5 %<>>
 278                     <JUMP + PHRASE65>
 279 PHRASE36
 280                     <VEQUAL? INSCODE7 244 + BOOL40 (TYPE FIX)>
 281                     <VEQUAL? INSCODE7 245 - PHRASE39 (TYPE FIX)>
 282 BOOL40
 283                     <FRAME '\1aPUT-FCODE>
 284                     <PUSH WHERE8>
 285                     <DEAD WHERE8>
 286                     <PUSH 215>
 287                     <CALL '\1aPUT-FCODE 2>
 288                     <FRAME '\1aADD-BYTE-TO-FCODE>
 289                     <GVAL 'IST-SOBGEQ = TEMP16>
 290                     <EQUAL? TEMP16 INSCODE7 - PHRASE44>
 291                     <DEAD TEMP16>
 292                     <SET TEMP16 24 (TYPE FIX)>
 293                     <JUMP + PHRASE45>
 294 PHRASE44
 295                     <SET TEMP16 20 (TYPE FIX)>
 296 PHRASE45
 297                     <PUSH TEMP16>
 298                     <DEAD TEMP16>
 299                     <CALL '\1aADD-BYTE-TO-FCODE 1>
 300                     <FRAME '\1aADD-BYTE-TO-FCODE>
 301                     <PUSH 3>
 302                     <CALL '\1aADD-BYTE-TO-FCODE 1>
 303                     <FRAME '\1aADD-BYTE-TO-FCODE>
 304                     <PUSH 49>
 305                     <CALL '\1aADD-BYTE-TO-FCODE 1>
 306                     <GVAL 'FBYTE-OFFSET = TEMP15>
 307                     <ADD BYTEOFF5 4 = BYTEOFF5 (TYPE FIX)>
 308                     <SUB PTR10 4 = PTR10 (TYPE FIX)>
 309                     <FRAME '\1aADD-BYTE-TO-FCODE>
 310                     <AND PTR10 #WORD *377* = STACK>
 311                     <CALL '\1aADD-BYTE-TO-FCODE 1>
 312                     <FRAME '\1aADD-BYTE-TO-FCODE>
 313                     <LSH PTR10 -8 = TEMP32 (TYPE FIX)>
 314                     <DEAD PTR10>
 315                     <AND TEMP32 #WORD *377* = STACK>
 316                     <DEAD TEMP32>
 317                     <CALL '\1aADD-BYTE-TO-FCODE 1>
 318                     <PUTUV XREF12 5 %<>>
 319                     <JUMP + PHRASE65>
 320 PHRASE39
 321                     <VEQUAL? INSCODE7 244 + BOOL51 (TYPE FIX)>
 322                     <VEQUAL? INSCODE7 242 - PHRASE50 (TYPE FIX)>
 323 BOOL51
 324                     <SUB PTR10 5 = PTR10 (TYPE FIX)>
 325                     <FRAME '\1aADD-BYTE-TO-FCODE>
 326                     <PUSH 2>
 327                     <CALL '\1aADD-BYTE-TO-FCODE 1>
 328                     <FRAME '\1aADD-BYTE-TO-FCODE>
 329                     <PUSH 17>
 330                     <CALL '\1aADD-BYTE-TO-FCODE 1>
 331                     <FRAME '\1aADD-BYTE-TO-FCODE>
 332                     <PUSH 3>
 333                     <CALL '\1aADD-BYTE-TO-FCODE 1>
 334                     <FRAME '\1aADD-BYTE-TO-FCODE>
 335                     <PUSH 49>
 336                     <CALL '\1aADD-BYTE-TO-FCODE 1>
 337                     <GVAL 'FBYTE-OFFSET = TEMP15>
 338                     <FRAME '\1aADD-BYTE-TO-FCODE>
 339                     <AND PTR10 #WORD *377* = STACK>
 340                     <CALL '\1aADD-BYTE-TO-FCODE 1>
 341                     <FRAME '\1aADD-BYTE-TO-FCODE>
 342                     <LSH PTR10 -8 = TEMP32 (TYPE FIX)>
 343                     <DEAD PTR10>
 344                     <AND TEMP32 #WORD *377* = STACK>
 345                     <DEAD TEMP32>
 346                     <CALL '\1aADD-BYTE-TO-FCODE 1>
 347                     <ADD BYTEOFF5 5 = BYTEOFF5 (TYPE FIX)>
 348                     <PUTUV XREF12 5 %<>>
 349                     <JUMP + PHRASE65>
 350 PHRASE50
 351                     <VEQUAL? INSCODE7 17 + PHRASE58 (TYPE FIX)>
 352                     <FRAME '\1aPUT-FCODE>
 353                     <PUSH WHERE8>
 354                     <DEAD WHERE8>
 355                     <FRAME '\1aINS-INVERT>
 356                     <PUSH INSCODE7>
 357                     <DEAD INSCODE7>
 358                     <CALL '\1aINS-INVERT 1 = STACK>
 359                     <CALL '\1aPUT-FCODE 2>
 360                     <SUB PTR10 3 = PTR10 (TYPE FIX)>
 361                     <FRAME '\1aADD-BYTE-TO-FCODE>
 362                     <PUSH 3>
 363                     <CALL '\1aADD-BYTE-TO-FCODE 1>
 364                     <FRAME '\1aADD-BYTE-TO-FCODE>
 365                     <PUSH 49>
 366                     <CALL '\1aADD-BYTE-TO-FCODE 1>
 367                     <GVAL 'FBYTE-OFFSET = TEMP15>
 368                     <FRAME '\1aADD-BYTE-TO-FCODE>
 369                     <AND PTR10 #WORD *377* = STACK>
 370                     <CALL '\1aADD-BYTE-TO-FCODE 1>
 371                     <FRAME '\1aADD-BYTE-TO-FCODE>
 372                     <LSH PTR10 -8 = TEMP32 (TYPE FIX)>
 373                     <DEAD PTR10>
 374                     <AND TEMP32 #WORD *377* = STACK>
 375                     <DEAD TEMP32>
 376                     <CALL '\1aADD-BYTE-TO-FCODE 1>
 377                     <ADD BYTEOFF5 3 = BYTEOFF5 (TYPE FIX)>
 378                     <PUTUV XREF12 5 %<>>
 379                     <JUMP + PHRASE65>
 380 PHRASE58
 381                     <FRAME '\1aPUT-FCODE>
 382                     <PUSH WHERE8>
 383                     <DEAD WHERE8>
 384                     <PUSH 49>
 385                     <CALL '\1aPUT-FCODE 2>
 386                     <ADD BYTEOFF5 1 = BYTEOFF5 (TYPE FIX)>
 387                     <SUB PTR10 1 = PTR10 (TYPE FIX)>
 388                     <FRAME '\1aADD-BYTE-TO-FCODE>
 389                     <AND PTR10 #WORD *377* = STACK>
 390                     <CALL '\1aADD-BYTE-TO-FCODE 1>
 391                     <FRAME '\1aADD-BYTE-TO-FCODE>
 392                     <LSH PTR10 -8 = TEMP32 (TYPE FIX)>
 393                     <DEAD PTR10>
 394                     <AND TEMP32 #WORD *377* = STACK>
 395                     <DEAD TEMP32>
 396                     <CALL '\1aADD-BYTE-TO-FCODE 1>
 397                     <PUTUV XREF12 5 %<>>
 398 PHRASE65
 399                     <PUTUV XREF12 6 BYTEOFF5 (TYPE FIX)>
 400                     <PUTUV XREF12 2 TEMP15>
 401                     <DEAD XREF12 TEMP15>
 402                     <RETURN BYTEOFF5>
 403                     <DEAD BYTEOFF5>
 404                     <END \1aAGEN-BRANCH-2>
 405
 406 #WORD *7631774431*
 407                     <GFCN \1aINS-INVERT ("VALUE" FIX FIX) INS4>
 408                     <TEMP TEMP5:FIX>
 409                     <INTGO>
 410                     <XOR INS4 #WORD *1* = TEMP5>
 411                     <DEAD INS4>
 412                     <RETURN TEMP5>
 413                     <DEAD TEMP5>
 414                     <END \1aINS-INVERT>
 415
 416 "PASS TO FIXUP THE LABELS IN THE FINAL CODE"
 417
 418 #WORD *1205430260*
 419                     <GFCN \1aFIXUP-PASS ("VALUE" ANY)>
 420                     <TEMP LABELS4:LIST TEMP16 ADDR6:FIX TEMP30:LIST XREF31:XREF-INFO POINT5 TEMP33 DADDR32:FIX>
 421                     <INTGO>
 422                     <GVAL 'LABEL-TABLE = LABELS4>
 423                     <SET TEMP16 %<> (TYPE FALSE)>
 424                     <LOOP>
 425 MAP8
 426                     <INTGO>
 427                     <EMPL? LABELS4 + MAPAP11>
 428                     <NTHL LABELS4 1 = TEMP16>
 429                     <NTHUV TEMP16 3 = ADDR6 (TYPE FIX)>
 430                     <NTHUV TEMP16 2 = TEMP30 (TYPE LIST)>
 431                     <LOOP>
 432 MAP20
 433                     <INTGO>
 434                     <EMPL? TEMP30 + MAPAP23>
 435                     <NTHL TEMP30 1 = XREF31>
 436                     <NTHUV XREF31 2 = POINT5 (TYPE FIX)>
 437                     <NTHUV XREF31 6 = TEMP33 (TYPE FIX)>
 438                     <SUB ADDR6 TEMP33 = DADDR32 (TYPE FIX)>
 439                     <DEAD TEMP33>
 440                     <NTHUV XREF31 5 = TEMP33>
 441                     <TYPE? TEMP33 <TYPE-CODE FALSE> + BOOL34>
 442                     <DEAD TEMP33>
 443                     <SET TEMP33 DADDR32>
 444                     <LESS? TEMP33 0 - TAG35 (TYPE FIX)>
 445                     <SUB 0 TEMP33 = TEMP33 (TYPE FIX)>
 446 TAG35
 447                     <GRTR? TEMP33 127 - BOOL34 (TYPE FIX)>
 448                     <DEAD TEMP33>
 449                     <FRAME '\1aERROR>
 450                     <PUSH "CANT FIT OFFSET">
 451                     <PUSH 'FIXUP-PASS>
 452                     <CALL '\1aERROR 2>
 453 BOOL34
 454                     <NTHUV XREF31 5 = TEMP33>
 455                     <DEAD XREF31>
 456                     <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE38>
 457                     <DEAD TEMP33>
 458                     <FRAME '\1aPUT-FCODE>
 459                     <PUSH POINT5>
 460                     <DEAD POINT5>
 461                     <AND DADDR32 #WORD *377* = STACK>
 462                     <DEAD DADDR32>
 463                     <CALL '\1aPUT-FCODE 2>
 464                     <JUMP + PHRASE40>
 465 PHRASE38
 466                     <FRAME '\1aPUT-FCODE>
 467                     <PUSH POINT5>
 468                     <AND DADDR32 #WORD *377* = STACK>
 469                     <CALL '\1aPUT-FCODE 2>
 470                     <FRAME '\1aPUT-FCODE>
 471                     <ADD POINT5 1 = STACK (TYPE FIX)>
 472                     <DEAD POINT5>
 473                     <LSH DADDR32 -8 = TEMP33 (TYPE FIX)>
 474                     <DEAD DADDR32>
 475                     <AND TEMP33 #WORD *377* = STACK>
 476                     <DEAD TEMP33>
 477                     <CALL '\1aPUT-FCODE 2>
 478 PHRASE40
 479                     <RESTL TEMP30 1 = TEMP30 (TYPE LIST)>
 480                     <JUMP + MAP20>
 481 MAPAP23
 482                     <NTHUV TEMP16 6 = POINT5>
 483                     <DEAD TEMP16>
 484                     <SET TEMP16 POINT5>
 485                     <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE44>
 486                     <FRAME '\1aPUT-FCODE>
 487                     <PUSH POINT5>
 488                     <AND ADDR6 #WORD *377* = STACK>
 489                     <CALL '\1aPUT-FCODE 2>
 490                     <FRAME '\1aPUT-FCODE>
 491                     <ADD POINT5 1 = STACK (TYPE FIX)>
 492                     <LSH ADDR6 -8 = DADDR32 (TYPE FIX)>
 493                     <AND DADDR32 #WORD *377* = STACK>
 494                     <DEAD DADDR32>
 495                     <CALL '\1aPUT-FCODE 2>
 496                     <FRAME '\1aPUT-FCODE>
 497                     <ADD POINT5 2 = STACK (TYPE FIX)>
 498                     <LSH ADDR6 -16 = DADDR32 (TYPE FIX)>
 499                     <AND DADDR32 #WORD *377* = STACK>
 500                     <DEAD DADDR32>
 501                     <CALL '\1aPUT-FCODE 2>
 502                     <FRAME '\1aPUT-FCODE>
 503                     <ADD POINT5 3 = STACK (TYPE FIX)>
 504                     <DEAD POINT5>
 505                     <LSH ADDR6 -24 = DADDR32 (TYPE FIX)>
 506                     <DEAD ADDR6>
 507                     <AND DADDR32 #WORD *377* = STACK>
 508                     <DEAD DADDR32>
 509                     <CALL '\1aPUT-FCODE 2 = TEMP16>
 510 PHRASE44
 511                     <RESTL LABELS4 1 = LABELS4 (TYPE LIST)>
 512                     <JUMP + MAP8>
 513 MAPAP11
 514                     <RETURN TEMP16>
 515                     <DEAD TEMP16>
 516                     <END \1aFIXUP-PASS>
 517
 518 #WORD *33533202363*
 519                     <GFCN \1aCLEAR-CONSTANT-TABLE-FOR-SCAN ("VALUE" ATOM)>
 520                     <TEMP PTR7 MCNT8:FIX TEMP12:FIX>
 521                     <INTGO>
 522                     <GVAL 'CONSTANT-TABLE = PTR7>
 523                     <GVAL 'CONSTANT-POINTER = MCNT8>
 524                     <LOOP>
 525 AGAIN9
 526                     <INTGO>
 527                     <NTHUU PTR7 2 = TEMP12 (TYPE FIX)>
 528                     <VEQUAL? TEMP12 -1 - PHRASE11 (TYPE FIX)>
 529                     <DEAD TEMP12>
 530                     <PUTUU PTR7 2 0>
 531 PHRASE11
 532                     <SUB MCNT8 2 = MCNT8 (TYPE FIX)>
 533                     <GRTR? MCNT8 0 + PHRASE16 (TYPE FIX)>
 534                     <RETURN 'T>
 535 PHRASE16
 536                     <RESTUU PTR7 2 = PTR7 (TYPE UVECTOR)>
 537                     <JUMP + AGAIN9>
 538                     <END \1aCLEAR-CONSTANT-TABLE-FOR-SCAN>
 539
 540 #WORD *17115254301*
 541                     <GFCN \1aCHECK-CONSTANT-TABLE ("VALUE" <OR ATOM !<FALSE>> FIX FIX) PTR4 BYTEOFF5>
 542                     <TEMP TAB6:UVECTOR TEMP9>
 543                     <INTGO>
 544                     <GVAL 'CONSTANT-TABLE = TAB6>
 545                     <ADD PTR4 1 = PTR4 (TYPE FIX)>
 546                     <NTHUU TAB6 PTR4 = TEMP9 (TYPE FIX)>
 547                     <VEQUAL? TEMP9 0 - PHRASE8 (TYPE FIX)>
 548                     <DEAD TEMP9>
 549                     <PUTUU TAB6 PTR4 -1>
 550                     <DEAD TAB6 PTR4>
 551                     <RETURN 'T>
 552 PHRASE8
 553                     <NTHUU TAB6 PTR4 = TEMP9 (TYPE FIX)>
 554                     <VEQUAL? TEMP9 -1 - PHRASE12 (TYPE FIX)>
 555                     <DEAD TEMP9>
 556                     <RETURN %<>>
 557 PHRASE12
 558                     <NTHUU TAB6 PTR4 = TEMP9 (TYPE FIX)>
 559                     <SUB BYTEOFF5 TEMP9 = BYTEOFF5 (TYPE FIX)>
 560                     <DEAD TEMP9>
 561                     <GRTR? BYTEOFF5 32767 - PHRASE18 (TYPE FIX)>
 562                     <DEAD BYTEOFF5>
 563                     <PUTUU TAB6 PTR4 -1>
 564                     <DEAD TAB6 PTR4>
 565                     <RETURN 'T>
 566 PHRASE18
 567                     <RETURN %<>>
 568                     <END \1aCHECK-CONSTANT-TABLE>
 569
 570 #WORD *14315212026*
 571                     <GFCN \1aASSEMBLE-CODE ("VALUE" <LIST FIX FIX> FIX ATOM) SBYTEOFF4 FNAME5>
 572                     <TEMP LBYTEOFF10 EBYTEOFF6:FIX NPASSES24:FIX NEBYTEOFF23:FIX>
 573                     <INTGO>
 574                     <SET LBYTEOFF10 %<> (TYPE FALSE)>
 575                     <LOOP>
 576 AGAIN11
 577                     <INTGO>
 578                     <FRAME '\1aINIT-LABEL-CHECK>
 579                     <CALL '\1aINIT-LABEL-CHECK 0>
 580                     <FRAME '\1aCLEAR-CONSTANT-TABLE-FOR-SCAN>
 581                     <CALL '\1aCLEAR-CONSTANT-TABLE-FOR-SCAN 0>
 582                     <FRAME '\1aSCAN-PASS>
 583                     <PUSH SBYTEOFF4>
 584                     <CALL '\1aSCAN-PASS 1 = EBYTEOFF6>
 585                     <TYPE? LBYTEOFF10 <TYPE-CODE FALSE> - PHRASE21>
 586                     <DEAD LBYTEOFF10>
 587                     <GVAL 'GLUE = LBYTEOFF10>
 588                     <TYPE? LBYTEOFF10 <TYPE-CODE FALSE> + PHRASE21>
 589                     <DEAD LBYTEOFF10>
 590                     <FRAME '\1aCHECK-UNRESOLVED-CALLS>
 591                     <PUSH EBYTEOFF6>
 592                     <PUSH SBYTEOFF4>
 593                     <CALL '\1aCHECK-UNRESOLVED-CALLS 2 = LBYTEOFF10>
 594                     <VEQUAL? LBYTEOFF10 SBYTEOFF4 + PHRASE21 (TYPE FIX)>
 595                     <SET SBYTEOFF4 LBYTEOFF10>
 596                     <JUMP + AGAIN11>
 597 PHRASE21
 598                     <GVAL 'MAX-NUMBER-PASSES = NPASSES24>
 599                     <LOOP>
 600 AGAIN25
 601                     <INTGO>
 602                     <VEQUAL? NPASSES24 0 + EXIT22 (TYPE FIX)>
 603                     <FRAME '\1aCLEAR-CONSTANT-TABLE-FOR-SCAN>
 604                     <CALL '\1aCLEAR-CONSTANT-TABLE-FOR-SCAN 0>
 605                     <FRAME '\1aINIT-LABEL-CHECK>
 606                     <CALL '\1aINIT-LABEL-CHECK 0>
 607                     <FRAME '\1aSCAN-PASS>
 608                     <PUSH SBYTEOFF4>
 609                     <CALL '\1aSCAN-PASS 1 = NEBYTEOFF23>
 610                     <SUB NEBYTEOFF23 EBYTEOFF6 = LBYTEOFF10 (TYPE FIX)>
 611                     <DEAD EBYTEOFF6>
 612                     <VEQUAL? LBYTEOFF10 0 + EXIT22 (TYPE FIX)>
 613                     <DEAD LBYTEOFF10>
 614                     <SET EBYTEOFF6 NEBYTEOFF23>
 615                     <DEAD NEBYTEOFF23>
 616                     <SUB NPASSES24 1 = NPASSES24 (TYPE FIX)>
 617                     <JUMP + AGAIN25>
 618 EXIT22
 619                     <FRAME '\1aCLEAR-CONSTANT-TABLE-FOR-SCAN>
 620                     <CALL '\1aCLEAR-CONSTANT-TABLE-FOR-SCAN 0>
 621                     <FRAME '\1aINIT-LABEL-CHECK>
 622                     <CALL '\1aINIT-LABEL-CHECK 0>
 623                     <FRAME '\1aOUTPUT-PASS>
 624                     <PUSH SBYTEOFF4>
 625                     <CALL '\1aOUTPUT-PASS 1 = EBYTEOFF6>
 626                     <FRAME '\1aFIXUP-PASS>
 627                     <CALL '\1aFIXUP-PASS 0>
 628                     <GVAL 'GLUE = LBYTEOFF10>
 629                     <TYPE? LBYTEOFF10 <TYPE-CODE FALSE> + PHRASE43>
 630                     <DEAD LBYTEOFF10>
 631                     <FRAME '\1aUPDATE-CALL-ENTRY-TABLE>
 632                     <PUSH FNAME5>
 633                     <DEAD FNAME5>
 634                     <CALL '\1aUPDATE-CALL-ENTRY-TABLE 1 = LBYTEOFF10>
 635                     <FRAME '\1aADD-UNRESOLVED-CALLS>
 636                     <CALL '\1aADD-UNRESOLVED-CALLS 0>
 637                     <FRAME '\1aFIXUP-UNRESOLVED-CALLS>
 638                     <PUSH LBYTEOFF10>
 639                     <DEAD LBYTEOFF10>
 640                     <CALL '\1aFIXUP-UNRESOLVED-CALLS 1>
 641 PHRASE43
 642                     <CONS EBYTEOFF6 () = LBYTEOFF10>
 643                     <DEAD EBYTEOFF6>
 644                     <CONS SBYTEOFF4 LBYTEOFF10 = LBYTEOFF10>
 645                     <DEAD SBYTEOFF4>
 646                     <RETURN LBYTEOFF10>
 647                     <DEAD LBYTEOFF10>
 648                     <END \1aASSEMBLE-CODE>
 649
 650 #WORD *37136760716*
 651                     <GFCN \1aSCAN-PASS ("VALUE" FIX FIX "OPTIONAL" LIST CODEVEC ANY FIX) BYTEOFF9 CL10 CV11 CLABELS12 MAXPTR13>
 652                     <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7 OPT8>
 653 OPT4
 654                     <PUSH #T$UNBOUND 0>
 655 OPT5
 656                     <PUSH #T$UNBOUND 0>
 657 OPT6
 658                     <PUSH 'T>
 659 OPT7
 660                     <PUSH #T$UNBOUND 0>
 661 OPT8
 662                     <TEMP PTR24:FIX IN-CASE?31 AFLG28 INS25:FIX INSCODE26:FIX OP-INF29:UVECTOR NUM-OPS30:FIX TEMP49 TEMP55 SHFT74:FIX FNUM75:FIX SIZ79:FIX CNT87:FIX ADR78:FIX EAC76>
 663                     <INTGO>
 664                     <TYPE? CL10 <TYPE-CODE UNBOUND> - TAG14>
 665                     <GVAL 'CODE-LIST = CL10>
 666 TAG14
 667                     <TYPE? CV11 <TYPE-CODE UNBOUND> - TAG16>
 668                     <NTHL CL10 1 = CV11 (TYPE UVECTOR)>
 669 TAG16
 670                     <TYPE? MAXPTR13 <TYPE-CODE UNBOUND> - TAG18>
 671                     <GVAL 'CODE-COUNT = MAXPTR13>
 672 TAG18
 673                     <EMPL? CL10 + BOOL20 (TYPE LIST)>
 674                     <RESTL CL10 1 = CL10 (TYPE LIST)>
 675 BOOL20
 676                     <SET PTR24 1 (TYPE FIX)>
 677                     <SET IN-CASE?31 %<> (TYPE FALSE)>
 678                     <LOOP>
 679 AGAIN33
 680                     <INTGO>
 681                     <SET AFLG28 'T (TYPE ATOM)>
 682                     <TYPE? CLABELS12 <TYPE-CODE FALSE> + PHRASE35>
 683                     <FRAME '\1aCHECK-LABEL>
 684                     <PUSH BYTEOFF9>
 685                     <PUSH PTR24>
 686                     <CALL '\1aCHECK-LABEL 2>
 687 PHRASE35
 688                     <NTHUU CV11 1 = INS25 (TYPE FIX)>
 689                     <LSH INS25 -24 = INSCODE26 (TYPE FIX)>
 690                     <RESTUU CV11 1 = CV11 (TYPE UVECTOR)>
 691                     <EMPUU? CV11 - PHRASE41 (TYPE UVECTOR)>
 692                     <EMPL? CL10 - PHRASE40 (TYPE LIST)>
 693                     <SET AFLG28 %<> (TYPE FALSE)>
 694                     <JUMP + PHRASE41>
 695 PHRASE40
 696                     <NTHL CL10 1 = CV11 (TYPE UVECTOR)>
 697                     <RESTL CL10 1 = CL10 (TYPE LIST)>
 698 PHRASE41
 699                     <ADD PTR24 1 = PTR24 (TYPE FIX)>
 700                     <TYPE? IN-CASE?31 <TYPE-CODE FALSE> + PHRASE43>
 701                     <SUB IN-CASE?31 1 = IN-CASE?31 (TYPE FIX)>
 702                     <LESS? IN-CASE?31 0 - PHRASE45 (TYPE FIX)>
 703                     <SET IN-CASE?31 %<> (TYPE FALSE)>
 704 PHRASE45
 705                     <ADD BYTEOFF9 2 = BYTEOFF9 (TYPE FIX)>
 706                     <JUMP + AGAIN33>
 707 PHRASE43
 708                     <FRAME '\1aGET-INST-INFO>
 709                     <PUSH INSCODE26>
 710                     <CALL '\1aGET-INST-INFO 1 = OP-INF29>
 711                     <NTHUU OP-INF29 2 = TEMP49 (TYPE FIX)>
 712                     <LSH TEMP49 -24 = NUM-OPS30 (TYPE FIX)>
 713                     <DEAD TEMP49>
 714                     <GVAL 'SPECIAL-OPS = TEMP49>
 715                     <EMPUU? TEMP49 + PHRASE51>
 716                     <LOOP (INSCODE26 VALUE) (TEMP49 LENGTH VALUE)>
 717 TAG53
 718                     <NTHUU TEMP49 1 = TEMP55>
 719                     <VEQUAL? TEMP55 INSCODE26 + TAG52>
 720                     <DEAD TEMP55>
 721                     <RESTUU TEMP49 1 = TEMP49 (TYPE UVECTOR)>
 722                     <EMPUU? TEMP49 - TAG53>
 723                     <JUMP + PHRASE51>
 724 TAG52
 725                     <FRAME '\1aSCAN-SPECIAL-CODE>
 726                     <PUSH INS25>
 727                     <DEAD INS25>
 728                     <PUSH BYTEOFF9>
 729                     <DEAD BYTEOFF9>
 730                     <CALL '\1aSCAN-SPECIAL-CODE 2 = BYTEOFF9>
 731                     <JUMP + EXIT73>
 732 PHRASE51
 733                     <GVAL 'BRANCH-INS = TEMP49>
 734                     <EMPUU? TEMP49 + PHRASE59>
 735                     <LOOP (INSCODE26 VALUE) (TEMP49 LENGTH VALUE)>
 736 TAG61
 737                     <NTHUU TEMP49 1 = TEMP55>
 738                     <VEQUAL? TEMP55 INSCODE26 + TAG60>
 739                     <DEAD TEMP55>
 740                     <RESTUU TEMP49 1 = TEMP49 (TYPE UVECTOR)>
 741                     <EMPUU? TEMP49 - TAG61>
 742                     <JUMP + PHRASE59>
 743 TAG60
 744                     <FRAME '\1aPROCESS-BRANCH-1>
 745                     <PUSH INS25>
 746                     <PUSH BYTEOFF9>
 747                     <DEAD BYTEOFF9>
 748                     <SUB PTR24 1 = STACK (TYPE FIX)>
 749                     <CALL '\1aPROCESS-BRANCH-1 3 = BYTEOFF9>
 750 PHRASE59
 751                     <GVAL 'CASE-INS = TEMP49>
 752                     <EMPUU? TEMP49 + PHRASE65>
 753                     <LOOP (INSCODE26 VALUE) (TEMP49 LENGTH VALUE)>
 754 TAG67
 755                     <NTHUU TEMP49 1 = TEMP55>
 756                     <VEQUAL? TEMP55 INSCODE26 + TAG66>
 757                     <DEAD TEMP55>
 758                     <RESTUU TEMP49 1 = TEMP49 (TYPE UVECTOR)>
 759                     <EMPUU? TEMP49 - TAG67>
 760                     <JUMP + PHRASE65>
 761 TAG66
 762                     <SET IN-CASE?31 0 (TYPE FIX)>
 763 PHRASE65
 764                     <ADD BYTEOFF9 1 = BYTEOFF9 (TYPE FIX)>
 765                     <VEQUAL? NUM-OPS30 0 + EXIT73 (TYPE FIX)>
 766                     <SET SHFT74 -24 (TYPE FIX)>
 767                     <SET FNUM75 1 (TYPE FIX)>
 768                     <SET SIZ79 1 (TYPE FIX)>
 769                     <SET TEMP49 %<> (TYPE FALSE)>
 770                     <LOOP>
 771 AGAIN81
 772                     <INTGO>
 773                     <SUB NUM-OPS30 1 = NUM-OPS30 (TYPE FIX)>
 774                     <LESS? NUM-OPS30 0 - PHRASE83 (TYPE FIX)>
 775                     <SUB SIZ79 1 = SIZ79 (TYPE FIX)>
 776 PHRASE83
 777                     <SET CNT87 -8 (TYPE FIX)>
 778                     <LOOP>
 779 AGAIN88
 780                     <INTGO>
 781                     <SUB SIZ79 1 = SIZ79 (TYPE FIX)>
 782                     <LESS? SIZ79 0 - PHRASE90 (TYPE FIX)>
 783                     <TYPE? IN-CASE?31 <TYPE-CODE FALSE> + PHRASE100>
 784                     <TYPE? TEMP49 <TYPE-CODE FALSE> + PHRASE100>
 785                     <GRTR? NUM-OPS30 0 + PHRASE97 (TYPE FIX)>
 786                     <SET IN-CASE?31 TEMP49>
 787                     <DEAD TEMP49>
 788                     <JUMP + PHRASE100>
 789 PHRASE97
 790                     <VEQUAL? NUM-OPS30 1 - PHRASE100 (TYPE FIX)>
 791                     <SET TEMP55 TEMP49>
 792                     <DEAD TEMP49>
 793 PHRASE100
 794                     <SET TEMP49 %<> (TYPE FALSE)>
 795                     <JUMP + EXIT86>
 796 PHRASE90
 797                     <ADD SHFT74 8 = SHFT74 (TYPE FIX)>
 798                     <GRTR? SHFT74 0 - PHRASE113 (TYPE FIX)>
 799                     <SET SHFT74 -24 (TYPE FIX)>
 800                     <ADD PTR24 1 = PTR24 (TYPE FIX)>
 801                     <VEQUAL? AFLG28 0 - BOOL107>
 802                     <FRAME '\1aERROR>
 803                     <PUSH 'ACCESS-BEYOND-END-OF-CODE!-ERRORS>
 804                     <CALL '\1aERROR 1>
 805 BOOL107
 806                     <NTHUU CV11 1 = INS25 (TYPE FIX)>
 807                     <RESTUU CV11 1 = CV11 (TYPE UVECTOR)>
 808                     <EMPUU? CV11 - PHRASE113 (TYPE UVECTOR)>
 809                     <EMPL? CL10 - PHRASE112 (TYPE LIST)>
 810                     <SET AFLG28 %<> (TYPE FALSE)>
 811                     <JUMP + PHRASE113>
 812 PHRASE112
 813                     <NTHL CL10 1 = CV11 (TYPE UVECTOR)>
 814                     <RESTL CL10 1 = CL10 (TYPE LIST)>
 815 PHRASE113
 816                     <ADD CNT87 8 = CNT87 (TYPE FIX)>
 817                     <LSH INS25 SHFT74 = TEMP55 (TYPE FIX)>
 818                     <AND TEMP55 #WORD *377* = ADR78>
 819                     <DEAD TEMP55>
 820                     <TYPE? TEMP49 <TYPE-CODE FALSE> + AGAIN88>
 821                     <LSH ADR78 CNT87 = TEMP55 (TYPE FIX)>
 822                     <OR TEMP49 TEMP55 = TEMP49>
 823                     <DEAD TEMP55>
 824                     <JUMP + AGAIN88>
 825 EXIT86
 826                     <LESS? NUM-OPS30 0 + EXIT73 (TYPE FIX)>
 827                     <AND ADR78 #WORD *360* = EAC76>
 828                     <AND ADR78 #WORD *17* = CNT87>
 829                     <FRAME '\1aGET-OP-INFO>
 830                     <PUSH FNUM75>
 831                     <PUSH OP-INF29>
 832                     <CALL '\1aGET-OP-INFO 2 = TEMP55>
 833                     <AND TEMP55 #WORD *7* = SIZ79>
 834                     <ADD FNUM75 1 = FNUM75 (TYPE FIX)>
 835                     <VEQUAL? TEMP55 32 + BOOL124 (TYPE FIX)>
 836                     <VEQUAL? TEMP55 33 - PHRASE123 (TYPE FIX)>
 837 BOOL124
 838                     <FRAME '\1aPROCESS-BRANCH-2>
 839                     <PUSH INS25>
 840                     <PUSH BYTEOFF9>
 841                     <DEAD BYTEOFF9>
 842                     <SUB PTR24 1 = STACK (TYPE FIX)>
 843                     <PUSH INSCODE26>
 844                     <PUSH TEMP55>
 845                     <DEAD TEMP55>
 846                     <CALL '\1aPROCESS-BRANCH-2 5 = BYTEOFF9>
 847                     <SET SIZ79 1 (TYPE FIX)>
 848                     <JUMP + AGAIN81>
 849 PHRASE123
 850                     <LESS? EAC76 64 - PHRASE126 (TYPE FIX)>
 851                     <SET SIZ79 1 (TYPE FIX)>
 852                     <ADD BYTEOFF9 1 = BYTEOFF9 (TYPE FIX)>
 853                     <TYPE? IN-CASE?31 <TYPE-CODE FALSE> + AGAIN81>
 854                     <VEQUAL? NUM-OPS30 0 - PHRASE130 (TYPE FIX)>
 855                     <SET IN-CASE?31 CNT87>
 856                     <DEAD CNT87>
 857                     <JUMP + AGAIN81>
 858 PHRASE130
 859                     <VEQUAL? NUM-OPS30 1 - AGAIN81 (TYPE FIX)>
 860                     <SET TEMP55 CNT87>
 861                     <DEAD CNT87>
 862                     <JUMP + AGAIN81>
 863 PHRASE126
 864                     <VEQUAL? EAC76 64 - PHRASE136 (TYPE FIX)>
 865                     <SUB FNUM75 1 = FNUM75 (TYPE FIX)>
 866                     <ADD NUM-OPS30 1 = NUM-OPS30 (TYPE FIX)>
 867                     <ADD BYTEOFF9 1 = BYTEOFF9 (TYPE FIX)>
 868                     <SET SIZ79 1 (TYPE FIX)>
 869                     <JUMP + AGAIN81>
 870 PHRASE136
 871                     <VEQUAL? EAC76 80 + BOOL138 (TYPE FIX)>
 872                     <VEQUAL? EAC76 96 + BOOL138 (TYPE FIX)>
 873                     <VEQUAL? EAC76 112 - PHRASE137 (TYPE FIX)>
 874 BOOL138
 875                     <SET SIZ79 1 (TYPE FIX)>
 876                     <ADD BYTEOFF9 1 = BYTEOFF9 (TYPE FIX)>
 877                     <JUMP + AGAIN81>
 878 PHRASE137
 879                     <VEQUAL? EAC76 128 + BOOL140 (TYPE FIX)>
 880                     <VEQUAL? EAC76 144 - PHRASE139 (TYPE FIX)>
 881 BOOL140
 882                     <GVAL 'NAC-PC = TEMP55>
 883                     <EQUAL? TEMP55 CNT87 - PHRASE142>
 884                     <DEAD TEMP55>
 885                     <VEQUAL? EAC76 144 - PHRASE144 (TYPE FIX)>
 886                     <DEAD EAC76>
 887                     <SET SIZ79 5 (TYPE FIX)>
 888                     <JUMP + PHRASE150>
 889 PHRASE144
 890                     <VEQUAL? SIZ79 2 + BOOL146 (TYPE FIX)>
 891                     <VEQUAL? SIZ79 5 - PHRASE145 (TYPE FIX)>
 892 BOOL146
 893                     <SET SIZ79 5 (TYPE FIX)>
 894                     <JUMP + PHRASE150>
 895 PHRASE145
 896                     <VEQUAL? SIZ79 1 - PHRASE147 (TYPE FIX)>
 897                     <DEAD SIZ79>
 898                     <SET SIZ79 3 (TYPE FIX)>
 899                     <JUMP + PHRASE150>
 900 PHRASE147
 901                     <SET SIZ79 2 (TYPE FIX)>
 902 PHRASE150
 903                     <TYPE? IN-CASE?31 <TYPE-CODE FALSE> + PHRASE152>
 904                     <GRTR? NUM-OPS30 1 + PHRASE152 (TYPE FIX)>
 905                     <SET TEMP49 0 (TYPE FIX)>
 906 PHRASE152
 907                     <ADD BYTEOFF9 SIZ79 = BYTEOFF9 (TYPE FIX)>
 908                     <JUMP + AGAIN81>
 909 PHRASE142
 910                     <ADD BYTEOFF9 1 = BYTEOFF9 (TYPE FIX)>
 911                     <SET SIZ79 1 (TYPE FIX)>
 912                     <JUMP + AGAIN81>
 913 PHRASE139
 914                     <VEQUAL? EAC76 176 + BOOL160 (TYPE FIX)>
 915                     <VEQUAL? EAC76 160 - PHRASE159 (TYPE FIX)>
 916 BOOL160
 917                     <SET SIZ79 2 (TYPE FIX)>
 918                     <JUMP + PHRASE163>
 919 PHRASE159
 920                     <VEQUAL? EAC76 208 + BOOL162 (TYPE FIX)>
 921                     <VEQUAL? EAC76 192 - PHRASE161 (TYPE FIX)>
 922 BOOL162
 923                     <SET SIZ79 3 (TYPE FIX)>
 924                     <JUMP + PHRASE163>
 925 PHRASE161
 926                     <VEQUAL? EAC76 240 + BOOL164 (TYPE FIX)>
 927                     <VEQUAL? EAC76 224 - PHRASE163 (TYPE FIX)>
 928                     <DEAD EAC76>
 929 BOOL164
 930                     <SET SIZ79 5 (TYPE FIX)>
 931 PHRASE163
 932                     <ADD BYTEOFF9 SIZ79 = BYTEOFF9 (TYPE FIX)>
 933                     <JUMP + AGAIN81>
 934 EXIT73
 935                     <VEQUAL? AFLG28 0 - BOOL165>
 936                     <DEAD AFLG28>
 937                     <RETURN BYTEOFF9>
 938                     <DEAD BYTEOFF9>
 939 BOOL165
 940                     <EMPUU? CV11 - PHRASE167 (TYPE UVECTOR)>
 941                     <EMPL? CL10 - PHRASE169 (TYPE LIST)>
 942                     <RETURN BYTEOFF9>
 943                     <DEAD BYTEOFF9>
 944 PHRASE169
 945                     <NTHL CL10 1 = CV11 (TYPE UVECTOR)>
 946                     <RESTL CL10 1 = CL10 (TYPE LIST)>
 947 PHRASE167
 948                     <LESS? PTR24 MAXPTR13 + AGAIN33 (TYPE FIX)>
 949                     <RETURN BYTEOFF9>
 950                     <DEAD BYTEOFF9>
 951                     <END \1aSCAN-PASS>
 952
 953 #WORD *13134264047*
 954                     <GFCN \1aSCAN-SPECIAL-CODE ("VALUE" FIX FIX FIX) INST4 BYTEOFF5>
 955                     <TEMP OFFS6 CODE7>
 956                     <INTGO>
 957                     <AND INST4 #WORD *177777* = OFFS6>
 958                     <LSH INST4 -24 = CODE7 (TYPE FIX)>
 959                     <DEAD INST4>
 960                     <VEQUAL? CODE7 87 - PHRASE11 (TYPE FIX)>
 961                     <VEQUAL? OFFS6 0 + PHRASE29 (TYPE FIX)>
 962                     <FRAME '\1aGET-PATCH>
 963                     <PUSH OFFS6>
 964                     <DEAD OFFS6>
 965                     <CALL '\1aGET-PATCH 1 = CODE7>
 966                     <NTHUV CODE7 1 = OFFS6 (TYPE UVECTOR)>
 967                     <DEAD CODE7>
 968                     <EMPUU? OFFS6 + PHRASE29 (TYPE UVECTOR)>
 969                     <FRAME '\1aSCAN-PASS>
 970                     <PUSH BYTEOFF5>
 971                     <DEAD BYTEOFF5>
 972                     <PUSH ()>
 973                     <PUSH OFFS6>
 974                     <PUSH %<>>
 975                     <LENUU OFFS6 = CODE7 (TYPE FIX)>
 976                     <DEAD OFFS6>
 977                     <ADD CODE7 1 = STACK (TYPE FIX)>
 978                     <DEAD CODE7>
 979                     <CALL '\1aSCAN-PASS 5 = BYTEOFF5>
 980                     <RETURN BYTEOFF5>
 981                     <DEAD BYTEOFF5>
 982 PHRASE11
 983                     <VEQUAL? CODE7 90 - PHRASE20 (TYPE FIX)>
 984                     <FRAME '\1aGET-PTNS>
 985                     <PUSH OFFS6>
 986                     <DEAD OFFS6>
 987                     <CALL '\1aGET-PTNS 1 = OFFS6>
 988                     <NTHUV OFFS6 4 = CODE7>
 989                     <TYPE? CODE7 <TYPE-CODE FALSE> + PHRASE29>
 990                     <DEAD CODE7>
 991                     <NTHUV OFFS6 1 = OFFS6 (TYPE UVECTOR)>
 992                     <EMPUU? OFFS6 + PHRASE29 (TYPE UVECTOR)>
 993                     <FRAME '\1aSCAN-PASS>
 994                     <PUSH BYTEOFF5>
 995                     <DEAD BYTEOFF5>
 996                     <PUSH ()>
 997                     <PUSH OFFS6>
 998                     <PUSH %<>>
 999                     <LENUU OFFS6 = CODE7 (TYPE FIX)>
1000                     <DEAD OFFS6>
1001                     <ADD CODE7 1 = STACK (TYPE FIX)>
1002                     <DEAD CODE7>
1003                     <CALL '\1aSCAN-PASS 5 = BYTEOFF5>
1004                     <RETURN BYTEOFF5>
1005                     <DEAD BYTEOFF5>
1006 PHRASE20
1007                     <VEQUAL? CODE7 89 - PHRASE26 (TYPE FIX)>
1008                     <FRAME '\1aSCAN-CALL>
1009                     <PUSH OFFS6>
1010                     <DEAD OFFS6>
1011                     <PUSH BYTEOFF5>
1012                     <DEAD BYTEOFF5>
1013                     <CALL '\1aSCAN-CALL 2 = BYTEOFF5>
1014                     <RETURN BYTEOFF5>
1015                     <DEAD BYTEOFF5>
1016 PHRASE26
1017                     <VEQUAL? CODE7 91 - PHRASE28 (TYPE FIX)>
1018                     <ADD BYTEOFF5 7 = BYTEOFF5 (TYPE FIX)>
1019                     <RETURN BYTEOFF5>
1020                     <DEAD BYTEOFF5>
1021 PHRASE28
1022                     <VEQUAL? CODE7 119 - PHRASE29 (TYPE FIX)>
1023                     <DEAD CODE7>
1024                     <ADD BYTEOFF5 7 = BYTEOFF5 (TYPE FIX)>
1025 PHRASE29
1026                     <RETURN BYTEOFF5>
1027                     <DEAD BYTEOFF5>
1028                     <END \1aSCAN-SPECIAL-CODE>
1029
1030 #WORD *3540320730*
1031                     <GFCN \1aSCAN-CALL ("VALUE" FIX FIX FIX) OFF4 BYTEOFF5>
1032                     <TEMP TEMP8 CBOFF7>
1033                     <INTGO>
1034                     <GVAL 'CALL-TABLE = TEMP8>
1035                     <NTHUV TEMP8 OFF4 = TEMP8>
1036                     <DEAD OFF4>
1037                     <FRAME '\1aFIND-CALL-POINT>
1038                     <NTHUV TEMP8 1 = STACK (TYPE ATOM)>
1039                     <NTHUV TEMP8 2 = STACK (TYPE FIX)>
1040                     <DEAD TEMP8>
1041                     <CALL '\1aFIND-CALL-POINT 2 = CBOFF7>
1042                     <TYPE? CBOFF7 <TYPE-CODE FALSE> + PHRASE10>
1043                     <ADD BYTEOFF5 2 = TEMP8 (TYPE FIX)>
1044                     <SUB TEMP8 CBOFF7 = TEMP8 (TYPE FIX)>
1045                     <DEAD CBOFF7>
1046                     <LESS? TEMP8 0 - TAG14 (TYPE FIX)>
1047                     <SUB 0 TEMP8 = TEMP8 (TYPE FIX)>
1048 TAG14
1049                     <GRTR? TEMP8 32767 - PHRASE13 (TYPE FIX)>
1050                     <DEAD TEMP8>
1051                     <ADD BYTEOFF5 6 = BYTEOFF5 (TYPE FIX)>
1052                     <RETURN BYTEOFF5>
1053                     <DEAD BYTEOFF5>
1054 PHRASE13
1055                     <ADD BYTEOFF5 3 = BYTEOFF5 (TYPE FIX)>
1056                     <RETURN BYTEOFF5>
1057                     <DEAD BYTEOFF5>
1058 PHRASE10
1059                     <ADD BYTEOFF5 3 = BYTEOFF5 (TYPE FIX)>
1060                     <RETURN BYTEOFF5>
1061                     <DEAD BYTEOFF5>
1062                     <END \1aSCAN-CALL>
1063
1064 #WORD *4571101510*
1065                     <GFCN \1aOUTPUT-CALL ("VALUE" FIX FIX FIX) BYTEOFF4 OFF5>
1066                     <TEMP TEMP10 REF6 CBOFF7>
1067                     <INTGO>
1068                     <GVAL 'CALL-TABLE = TEMP10>
1069                     <NTHUV TEMP10 OFF5 = REF6>
1070                     <DEAD TEMP10 OFF5>
1071                     <FRAME '\1aFIND-CALL-POINT>
1072                     <NTHUV REF6 1 = STACK (TYPE ATOM)>
1073                     <NTHUV REF6 2 = STACK (TYPE FIX)>
1074                     <CALL '\1aFIND-CALL-POINT 2 = CBOFF7>
1075                     <TYPE? CBOFF7 <TYPE-CODE FALSE> + PHRASE12>
1076                     <PUTUV REF6 3 -1 (TYPE FIX)>
1077                     <DEAD REF6>
1078                     <ADD BYTEOFF4 3 = TEMP10 (TYPE FIX)>
1079                     <SUB TEMP10 CBOFF7 = OFF5 (TYPE FIX)>
1080                     <DEAD TEMP10 CBOFF7>
1081                     <SET TEMP10 OFF5>
1082                     <LESS? TEMP10 0 - TAG16 (TYPE FIX)>
1083                     <SUB 0 TEMP10 = TEMP10 (TYPE FIX)>
1084 TAG16
1085                     <GRTR? TEMP10 32767 - PHRASE15 (TYPE FIX)>
1086                     <DEAD TEMP10>
1087                     <ADD OFF5 3 = OFF5 (TYPE FIX)>
1088                     <FRAME '\1aADD-BYTE-TO-FCODE>
1089                     <PUSH 23>
1090                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1091                     <FRAME '\1aADD-BYTE-TO-FCODE>
1092                     <GVAL 'AC-PC = TEMP10>
1093                     <NTHUV TEMP10 2 = TEMP10 (TYPE FIX)>
1094                     <OR TEMP10 #WORD *340* = STACK>
1095                     <DEAD TEMP10>
1096                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1097                     <FRAME '\1aADD-BYTE-TO-FCODE>
1098                     <SUB 0 OFF5 = OFF5 (TYPE FIX)>
1099                     <AND OFF5 #WORD *377* = STACK>
1100                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1101                     <FRAME '\1aADD-BYTE-TO-FCODE>
1102                     <LSH OFF5 -8 = TEMP10 (TYPE FIX)>
1103                     <AND TEMP10 #WORD *377* = STACK>
1104                     <DEAD TEMP10>
1105                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1106                     <FRAME '\1aADD-BYTE-TO-FCODE>
1107                     <LSH OFF5 -16 = TEMP10 (TYPE FIX)>
1108                     <AND TEMP10 #WORD *377* = STACK>
1109                     <DEAD TEMP10>
1110                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1111                     <FRAME '\1aADD-BYTE-TO-FCODE>
1112                     <LSH OFF5 -24 = TEMP10 (TYPE FIX)>
1113                     <DEAD OFF5>
1114                     <AND TEMP10 #WORD *377* = STACK>
1115                     <DEAD TEMP10>
1116                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1117                     <ADD BYTEOFF4 6 = BYTEOFF4 (TYPE FIX)>
1118                     <RETURN BYTEOFF4>
1119                     <DEAD BYTEOFF4>
1120 PHRASE15
1121                     <FRAME '\1aADD-BYTE-TO-FCODE>
1122                     <PUSH 49>
1123                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1124                     <FRAME '\1aADD-BYTE-TO-FCODE>
1125                     <SUB 0 OFF5 = OFF5 (TYPE FIX)>
1126                     <AND OFF5 #WORD *377* = STACK>
1127                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1128                     <FRAME '\1aADD-BYTE-TO-FCODE>
1129                     <LSH OFF5 -8 = TEMP10 (TYPE FIX)>
1130                     <DEAD OFF5>
1131                     <AND TEMP10 #WORD *377* = STACK>
1132                     <DEAD TEMP10>
1133                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1134                     <ADD BYTEOFF4 3 = BYTEOFF4 (TYPE FIX)>
1135                     <RETURN BYTEOFF4>
1136                     <DEAD BYTEOFF4>
1137 PHRASE12
1138                     <FRAME '\1aADD-BYTE-TO-FCODE>
1139                     <PUSH 49>
1140                     <CALL '\1aADD-BYTE-TO-FCODE 1 = CBOFF7>
1141                     <ADD BYTEOFF4 3 = TEMP10 (TYPE FIX)>
1142                     <PUTUV REF6 4 TEMP10 (TYPE FIX)>
1143                     <DEAD TEMP10>
1144                     <FRAME '\1a+>
1145                     <PUSH CBOFF7>
1146                     <DEAD CBOFF7>
1147                     <PUSH 1>
1148                     <CALL '\1a+ 2 = TEMP10>
1149                     <PUTUV REF6 3 TEMP10>
1150                     <DEAD REF6 TEMP10>
1151                     <FRAME '\1aADD-BYTE-TO-FCODE>
1152                     <PUSH 0>
1153                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1154                     <FRAME '\1aADD-BYTE-TO-FCODE>
1155                     <PUSH 0>
1156                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1157                     <ADD BYTEOFF4 3 = BYTEOFF4 (TYPE FIX)>
1158                     <RETURN BYTEOFF4>
1159                     <DEAD BYTEOFF4>
1160                     <END \1aOUTPUT-CALL>
1161
1162 #WORD *31660351162*
1163                     <GFCN \1aGEN-SPECIAL-CODE ("VALUE" FIX FIX FIX) INST4 BYTEOFF5>
1164                     <TEMP OFFS6 CODE7>
1165                     <INTGO>
1166                     <AND INST4 #WORD *177777* = OFFS6>
1167                     <LSH INST4 -24 = CODE7 (TYPE FIX)>
1168                     <VEQUAL? CODE7 87 - PHRASE11 (TYPE FIX)>
1169                     <VEQUAL? OFFS6 0 + PHRASE30 (TYPE FIX)>
1170                     <FRAME '\1aGET-PATCH>
1171                     <PUSH OFFS6>
1172                     <DEAD OFFS6>
1173                     <CALL '\1aGET-PATCH 1 = CODE7>
1174                     <NTHUV CODE7 1 = OFFS6 (TYPE UVECTOR)>
1175                     <DEAD CODE7>
1176                     <EMPUU? OFFS6 + PHRASE30 (TYPE UVECTOR)>
1177                     <FRAME '\1aOUTPUT-PASS>
1178                     <PUSH BYTEOFF5>
1179                     <DEAD BYTEOFF5>
1180                     <PUSH ()>
1181                     <PUSH OFFS6>
1182                     <LENUU OFFS6 = CODE7 (TYPE FIX)>
1183                     <DEAD OFFS6>
1184                     <ADD CODE7 1 = STACK (TYPE FIX)>
1185                     <DEAD CODE7>
1186                     <PUSH %<>>
1187                     <CALL '\1aOUTPUT-PASS 5 = BYTEOFF5>
1188                     <RETURN BYTEOFF5>
1189                     <DEAD BYTEOFF5>
1190 PHRASE11
1191                     <VEQUAL? CODE7 90 - PHRASE20 (TYPE FIX)>
1192                     <FRAME '\1aGET-PTNS>
1193                     <PUSH OFFS6>
1194                     <DEAD OFFS6>
1195                     <CALL '\1aGET-PTNS 1 = OFFS6>
1196                     <NTHUV OFFS6 4 = CODE7>
1197                     <TYPE? CODE7 <TYPE-CODE FALSE> + PHRASE30>
1198                     <DEAD CODE7>
1199                     <NTHUV OFFS6 1 = OFFS6 (TYPE UVECTOR)>
1200                     <EMPUU? OFFS6 + PHRASE30 (TYPE UVECTOR)>
1201                     <FRAME '\1aOUTPUT-PASS>
1202                     <PUSH BYTEOFF5>
1203                     <DEAD BYTEOFF5>
1204                     <PUSH ()>
1205                     <PUSH OFFS6>
1206                     <LENUU OFFS6 = CODE7 (TYPE FIX)>
1207                     <DEAD OFFS6>
1208                     <ADD CODE7 1 = STACK (TYPE FIX)>
1209                     <DEAD CODE7>
1210                     <PUSH %<>>
1211                     <CALL '\1aOUTPUT-PASS 5 = BYTEOFF5>
1212                     <RETURN BYTEOFF5>
1213                     <DEAD BYTEOFF5>
1214 PHRASE20
1215                     <VEQUAL? CODE7 89 - PHRASE26 (TYPE FIX)>
1216                     <FRAME '\1aOUTPUT-CALL>
1217                     <PUSH BYTEOFF5>
1218                     <DEAD BYTEOFF5>
1219                     <PUSH OFFS6>
1220                     <DEAD OFFS6>
1221                     <CALL '\1aOUTPUT-CALL 2 = BYTEOFF5>
1222                     <RETURN BYTEOFF5>
1223                     <DEAD BYTEOFF5>
1224 PHRASE26
1225                     <VEQUAL? CODE7 91 - PHRASE28 (TYPE FIX)>
1226                     <FRAME '\1aOUTPUT-PUSHLAB>
1227                     <PUSH OFFS6>
1228                     <DEAD OFFS6>
1229                     <PUSH BYTEOFF5>
1230                     <CALL '\1aOUTPUT-PUSHLAB 2>
1231                     <ADD BYTEOFF5 7 = BYTEOFF5 (TYPE FIX)>
1232                     <RETURN BYTEOFF5>
1233                     <DEAD BYTEOFF5>
1234 PHRASE28
1235                     <VEQUAL? CODE7 119 - PHRASE30 (TYPE FIX)>
1236                     <DEAD CODE7>
1237                     <FRAME '\1aOUTPUT-MOVELAB>
1238                     <PUSH INST4>
1239                     <DEAD INST4>
1240                     <PUSH OFFS6>
1241                     <DEAD OFFS6>
1242                     <PUSH BYTEOFF5>
1243                     <CALL '\1aOUTPUT-MOVELAB 3>
1244                     <ADD BYTEOFF5 7 = BYTEOFF5 (TYPE FIX)>
1245 PHRASE30
1246                     <RETURN BYTEOFF5>
1247                     <DEAD BYTEOFF5>
1248                     <END \1aGEN-SPECIAL-CODE>
1249
1250 #WORD *3300364713*
1251                     <GFCN \1aOUTPUT-PUSHLAB ("VALUE" LABEL-REF FIX ANY) OFF4 BYTEOFF5>
1252                     <TEMP TEMP8 LREF7 AINST6>
1253                     <INTGO>
1254                     <GVAL 'PUSH-LABEL-TABLE = TEMP8>
1255                     <NTHUV TEMP8 OFF4 = LREF7>
1256                     <DEAD TEMP8 OFF4>
1257                     <FRAME '\1aADD-BYTE-TO-FCODE>
1258                     <PUSH 208>
1259                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1260                     <FRAME '\1aADD-BYTE-TO-FCODE>
1261                     <GVAL 'AC-PC = TEMP8>
1262                     <NTHUV TEMP8 2 = TEMP8 (TYPE FIX)>
1263                     <OR TEMP8 #WORD *200* = TEMP8>
1264                     <LSH TEMP8 24 = TEMP8 (TYPE FIX)>
1265                     <LSH TEMP8 -24 = STACK (TYPE FIX)>
1266                     <DEAD TEMP8>
1267                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1268                     <FRAME '\1aADD-BYTE-TO-FCODE>
1269                     <PUSH 0>
1270                     <CALL '\1aADD-BYTE-TO-FCODE 1 = AINST6>
1271                     <FRAME '\1aADD-BYTE-TO-FCODE>
1272                     <PUSH 0>
1273                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1274                     <FRAME '\1aADD-BYTE-TO-FCODE>
1275                     <PUSH 0>
1276                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1277                     <FRAME '\1aADD-BYTE-TO-FCODE>
1278                     <PUSH 0>
1279                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1280                     <FRAME '\1aADD-BYTE-TO-FCODE>
1281                     <GVAL 'AC-TP = TEMP8>
1282                     <NTHUV TEMP8 2 = TEMP8 (TYPE FIX)>
1283                     <OR TEMP8 #WORD *200* = TEMP8>
1284                     <LSH TEMP8 24 = TEMP8 (TYPE FIX)>
1285                     <LSH TEMP8 -24 = STACK (TYPE FIX)>
1286                     <DEAD TEMP8>
1287                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1288                     <PUTUV LREF7 6 AINST6>
1289                     <DEAD AINST6>
1290                     <RETURN LREF7>
1291                     <DEAD LREF7>
1292                     <END \1aOUTPUT-PUSHLAB>
1293
1294 #WORD *7421513446*
1295                     <GFCN \1aOUTPUT-MOVELAB ("VALUE" LABEL-REF ANY FIX ANY) INST4 OFF5 BYTEOFF6>
1296                     <TEMP TEMP9 LREF7 AINST8>
1297                     <INTGO>
1298                     <GVAL 'MOVE-LABEL-TABLE = TEMP9>
1299                     <NTHUV TEMP9 OFF5 = LREF7>
1300                     <DEAD TEMP9 OFF5>
1301                     <FRAME '\1aADD-BYTE-TO-FCODE>
1302                     <PUSH 208>
1303                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1304                     <FRAME '\1aADD-BYTE-TO-FCODE>
1305                     <GVAL 'AC-PC = TEMP9>
1306                     <NTHUV TEMP9 2 = TEMP9 (TYPE FIX)>
1307                     <OR TEMP9 #WORD *200* = TEMP9>
1308                     <LSH TEMP9 24 = TEMP9 (TYPE FIX)>
1309                     <LSH TEMP9 -24 = STACK (TYPE FIX)>
1310                     <DEAD TEMP9>
1311                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1312                     <FRAME '\1aADD-BYTE-TO-FCODE>
1313                     <PUSH 0>
1314                     <CALL '\1aADD-BYTE-TO-FCODE 1 = AINST8>
1315                     <FRAME '\1aADD-BYTE-TO-FCODE>
1316                     <PUSH 0>
1317                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1318                     <FRAME '\1aADD-BYTE-TO-FCODE>
1319                     <PUSH 0>
1320                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1321                     <FRAME '\1aADD-BYTE-TO-FCODE>
1322                     <PUSH 0>
1323                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1324                     <FRAME '\1aADD-BYTE-TO-FCODE>
1325                     <LSH INST4 -16 = TEMP9 (TYPE FIX)>
1326                     <DEAD INST4>
1327                     <AND TEMP9 #WORD *377* = STACK>
1328                     <DEAD TEMP9>
1329                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1330                     <PUTUV LREF7 6 AINST8>
1331                     <DEAD AINST8>
1332                     <RETURN LREF7>
1333                     <DEAD LREF7>
1334                     <END \1aOUTPUT-MOVELAB>
1335
1336 #WORD *12107474402*
1337                     <GFCN \1aINIT-LABEL-CHECK ("VALUE" FIX)>
1338                     <TEMP TEMP5 LREF4:LABEL-REF>
1339                     <INTGO>
1340                     <GVAL 'LABEL-TABLE = TEMP5>
1341                     <NTHL TEMP5 1 = LREF4 (TYPE LABEL-REF)>
1342                     <DEAD TEMP5>
1343                     <GVAL 'LABEL-TABLE = TEMP5>
1344                     <SETG 'LABEL-POINTER TEMP5>
1345                     <DEAD TEMP5>
1346                     <NTHUV LREF4 4 = TEMP5 (TYPE FIX)>
1347                     <DEAD LREF4>
1348                     <SETG 'LABEL-OFFSET TEMP5>
1349                     <RETURN TEMP5>
1350                     <DEAD TEMP5>
1351                     <END \1aINIT-LABEL-CHECK>
1352
1353 #WORD *25075100130*
1354                     <GFCN \1aCHECK-LABEL ("VALUE" <OR FALSE FIX> FIX FIX) BYTEOFF4 PTR5>
1355                     <TEMP TEMP14 RPTR7:LIST>
1356                     <INTGO>
1357                     <LOOP>
1358 AGAIN11
1359                     <INTGO>
1360                     <GVAL 'LABEL-OFFSET = TEMP14>
1361                     <VEQUAL? PTR5 TEMP14 + TAG15 (TYPE FIX)>
1362                     <DEAD TEMP14>
1363                     <RETURN %<>>
1364 TAG15
1365                     <GVAL 'LABEL-POINTER = RPTR7>
1366                     <NTHL RPTR7 1 = TEMP14 (TYPE LABEL-REF)>
1367                     <PUTUV TEMP14 3 BYTEOFF4 (TYPE FIX)>
1368                     <DEAD TEMP14>
1369                     <RESTL RPTR7 1 = RPTR7 (TYPE LIST)>
1370                     <EMPL? RPTR7 - PHRASE17 (TYPE LIST)>
1371                     <SETG 'LABEL-POINTER RPTR7>
1372                     <DEAD RPTR7>
1373                     <SETG 'LABEL-OFFSET -1>
1374                     <RETURN -1>
1375 PHRASE17
1376                     <NTHL RPTR7 1 = TEMP14 (TYPE LABEL-REF)>
1377                     <NTHUV TEMP14 4 = TEMP14 (TYPE FIX)>
1378                     <SETG 'LABEL-OFFSET TEMP14>
1379                     <DEAD TEMP14>
1380                     <SETG 'LABEL-POINTER RPTR7>
1381                     <DEAD RPTR7>
1382                     <JUMP + AGAIN11>
1383                     <END \1aCHECK-LABEL>
1384
1385 #WORD *20547720377*
1386                     <GFCN \1aOUTPUT-PASS ("VALUE" FIX FIX "OPTIONAL" LIST CODEVEC FIX ANY) BYTEOFF9 CL10 CV11 MAXPTR12 CLABELS13>
1387                     <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7 OPT8>
1388 OPT4
1389                     <PUSH #T$UNBOUND 0>
1390 OPT5
1391                     <PUSH #T$UNBOUND 0>
1392 OPT6
1393                     <PUSH #T$UNBOUND 0>
1394 OPT7
1395                     <PUSH 'T>
1396 OPT8
1397                     <TEMP PTR23:FIX IN-CASE?34 AFLG27 INS26:FIX INSCODE24:FIX TEMP48 TEMP64:FIX TEMP65:FIX XREF31:XREF-INFO START-CASE35 TEMP58 OP-INF28:UVECTOR NUM-OPS29:FIX SHFT97:FIX FNUM98:FIX R-OR-L100:FIX SIZ102:FIX>
1398                     <INTGO>
1399                     <TYPE? CL10 <TYPE-CODE UNBOUND> - TAG14>
1400                     <GVAL 'CODE-LIST = CL10>
1401 TAG14
1402                     <TYPE? CV11 <TYPE-CODE UNBOUND> - TAG16>
1403                     <NTHL CL10 1 = CV11 (TYPE UVECTOR)>
1404 TAG16
1405                     <TYPE? MAXPTR12 <TYPE-CODE UNBOUND> - TAG18>
1406                     <GVAL 'CODE-COUNT = MAXPTR12>
1407 TAG18
1408                     <EMPL? CL10 + BOOL20 (TYPE LIST)>
1409                     <RESTL CL10 1 = CL10 (TYPE LIST)>
1410 BOOL20
1411                     <SET PTR23 1 (TYPE FIX)>
1412                     <SET IN-CASE?34 %<> (TYPE FALSE)>
1413                     <LOOP>
1414 AGAIN36
1415                     <INTGO>
1416                     <SET AFLG27 'T (TYPE ATOM)>
1417                     <TYPE? CLABELS13 <TYPE-CODE FALSE> + PHRASE38>
1418                     <FRAME '\1aCHECK-LABEL>
1419                     <PUSH BYTEOFF9>
1420                     <PUSH PTR23>
1421                     <CALL '\1aCHECK-LABEL 2>
1422 PHRASE38
1423                     <NTHUU CV11 1 = INS26 (TYPE FIX)>
1424                     <LSH INS26 -24 = INSCODE24 (TYPE FIX)>
1425                     <RESTUU CV11 1 = CV11 (TYPE UVECTOR)>
1426                     <EMPUU? CV11 - PHRASE44 (TYPE UVECTOR)>
1427                     <EMPL? CL10 - PHRASE43 (TYPE LIST)>
1428                     <SET AFLG27 %<> (TYPE FALSE)>
1429                     <JUMP + PHRASE44>
1430 PHRASE43
1431                     <NTHL CL10 1 = CV11 (TYPE UVECTOR)>
1432                     <RESTL CL10 1 = CL10 (TYPE LIST)>
1433 PHRASE44
1434                     <ADD PTR23 1 = PTR23 (TYPE FIX)>
1435                     <TYPE? IN-CASE?34 <TYPE-CODE FALSE> + PHRASE46>
1436                     <ADD BYTEOFF9 2 = BYTEOFF9 (TYPE FIX)>
1437                     <GVAL 'LABEL-TABLE = AFLG27>
1438                     <SET TEMP48 INS26>
1439                     <DEAD INS26>
1440                     <SUB TEMP48 1 = TEMP48 (TYPE FIX)>
1441                     <GRTR? TEMP48 0 - RESTL50 (TYPE FIX)>
1442                     <LOOP (AFLG27 VALUE) (TEMP48 VALUE)>
1443 RESTL49
1444                     <INTGO>
1445                     <RESTL AFLG27 1 = AFLG27 (TYPE LIST)>
1446                     <SUB TEMP48 1 = TEMP48 (TYPE FIX)>
1447                     <GRTR? TEMP48 0 + RESTL49 (TYPE FIX)>
1448 RESTL50
1449                     <NTHL AFLG27 1 = AFLG27 (TYPE LABEL-REF)>
1450                     <NTHUV AFLG27 3 = INSCODE24 (TYPE FIX)>
1451                     <NTHUV AFLG27 2 = TEMP48 (TYPE LIST)>
1452                     <DEAD AFLG27>
1453                     <LOOP>
1454 MAP52
1455                     <INTGO>
1456                     <EMPL? TEMP48 + MAPAP55>
1457                     <NTHL TEMP48 1 = AFLG27>
1458                     <NTHUV AFLG27 2 = TEMP64 (TYPE FIX)>
1459                     <SUB PTR23 1 = TEMP65 (TYPE FIX)>
1460                     <VEQUAL? TEMP64 TEMP65 - PHRASE63 (TYPE FIX)>
1461                     <DEAD TEMP64 TEMP65>
1462                     <SET XREF31 AFLG27>
1463                     <DEAD AFLG27>
1464                     <JUMP + MAPAP55>
1465 PHRASE63
1466                     <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
1467                     <JUMP + MAP52>
1468 MAPAP55
1469                     <PUTUV XREF31 6 START-CASE35 (TYPE FIX)>
1470                     <GVAL 'FBYTE-OFFSET = TEMP48>
1471                     <PUTUV XREF31 2 TEMP48>
1472                     <DEAD TEMP48>
1473                     <SUB INSCODE24 START-CASE35 = INSCODE24 (TYPE FIX)>
1474                     <FRAME '\1aADD-BYTE-TO-FCODE>
1475                     <AND INSCODE24 #WORD *377* = STACK>
1476                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1477                     <FRAME '\1aADD-BYTE-TO-FCODE>
1478                     <LSH INSCODE24 -8 = TEMP58 (TYPE FIX)>
1479                     <DEAD INSCODE24>
1480                     <AND TEMP58 #WORD *377* = STACK>
1481                     <DEAD TEMP58>
1482                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1483                     <SUB IN-CASE?34 1 = IN-CASE?34 (TYPE FIX)>
1484                     <LESS? IN-CASE?34 0 - AGAIN36 (TYPE FIX)>
1485                     <SET IN-CASE?34 %<> (TYPE FALSE)>
1486                     <JUMP + AGAIN36>
1487 PHRASE46
1488                     <FRAME '\1aGET-INST-INFO>
1489                     <PUSH INSCODE24>
1490                     <CALL '\1aGET-INST-INFO 1 = OP-INF28>
1491                     <NTHUU OP-INF28 2 = TEMP58 (TYPE FIX)>
1492                     <LSH TEMP58 -24 = NUM-OPS29 (TYPE FIX)>
1493                     <DEAD TEMP58>
1494                     <GVAL 'SPECIAL-OPS = TEMP58>
1495                     <EMPUU? TEMP58 + PHRASE74>
1496                     <LOOP (INSCODE24 VALUE) (TEMP58 LENGTH VALUE)>
1497 TAG76
1498                     <NTHUU TEMP58 1 = TEMP48>
1499                     <VEQUAL? TEMP48 INSCODE24 + TAG75>
1500                     <DEAD TEMP48>
1501                     <RESTUU TEMP58 1 = TEMP58 (TYPE UVECTOR)>
1502                     <EMPUU? TEMP58 - TAG76>
1503                     <JUMP + PHRASE74>
1504 TAG75
1505                     <FRAME '\1aGEN-SPECIAL-CODE>
1506                     <PUSH INS26>
1507                     <DEAD INS26>
1508                     <PUSH BYTEOFF9>
1509                     <DEAD BYTEOFF9>
1510                     <CALL '\1aGEN-SPECIAL-CODE 2 = BYTEOFF9>
1511                     <JUMP + EXIT96>
1512 PHRASE74
1513                     <GVAL 'CASE-INS = TEMP58>
1514                     <EMPUU? TEMP58 + PHRASE81>
1515                     <LOOP (INSCODE24 VALUE) (TEMP58 LENGTH VALUE)>
1516 TAG83
1517                     <NTHUU TEMP58 1 = TEMP48>
1518                     <VEQUAL? TEMP48 INSCODE24 + TAG82>
1519                     <DEAD TEMP48>
1520                     <RESTUU TEMP58 1 = TEMP58 (TYPE UVECTOR)>
1521                     <EMPUU? TEMP58 - TAG83>
1522                     <JUMP + PHRASE81>
1523 TAG82
1524                     <SET IN-CASE?34 0 (TYPE FIX)>
1525 PHRASE81
1526                     <GVAL 'BRANCH-INS = TEMP58>
1527                     <EMPUU? TEMP58 + PHRASE86>
1528                     <LOOP (INSCODE24 VALUE) (TEMP58 LENGTH VALUE)>
1529 TAG88
1530                     <NTHUU TEMP58 1 = TEMP48>
1531                     <VEQUAL? TEMP48 INSCODE24 + TAG87>
1532                     <DEAD TEMP48>
1533                     <RESTUU TEMP58 1 = TEMP58 (TYPE UVECTOR)>
1534                     <EMPUU? TEMP58 - TAG88>
1535                     <JUMP + PHRASE86>
1536 TAG87
1537                     <FRAME '\1aAGEN-BRANCH-1>
1538                     <PUSH INS26>
1539                     <PUSH BYTEOFF9>
1540                     <DEAD BYTEOFF9>
1541                     <SUB PTR23 1 = STACK (TYPE FIX)>
1542                     <PUSH INSCODE24>
1543                     <CALL '\1aAGEN-BRANCH-1 4 = BYTEOFF9>
1544 PHRASE86
1545                     <FRAME '\1aADD-BYTE-TO-FCODE>
1546                     <PUSH INSCODE24>
1547                     <CALL '\1aADD-BYTE-TO-FCODE 1 = TEMP58>
1548                     <ADD BYTEOFF9 1 = BYTEOFF9 (TYPE FIX)>
1549                     <VEQUAL? NUM-OPS29 0 + EXIT96 (TYPE FIX)>
1550                     <SET SHFT97 -24 (TYPE FIX)>
1551                     <SET FNUM98 1 (TYPE FIX)>
1552                     <LOOP>
1553 AGAIN103
1554                     <INTGO>
1555                     <SUB NUM-OPS29 1 = NUM-OPS29 (TYPE FIX)>
1556                     <LESS? NUM-OPS29 0 + EXIT96 (TYPE FIX)>
1557                     <ADD SHFT97 8 = SHFT97 (TYPE FIX)>
1558                     <GRTR? SHFT97 0 - PHRASE118 (TYPE FIX)>
1559                     <SET SHFT97 -24 (TYPE FIX)>
1560                     <ADD PTR23 1 = PTR23 (TYPE FIX)>
1561                     <VEQUAL? AFLG27 0 - BOOL112>
1562                     <FRAME '\1aERROR>
1563                     <PUSH 'ACCESS-BEYOND-END-OF-CODE!-ERRORS>
1564                     <CALL '\1aERROR 1>
1565 BOOL112
1566                     <NTHUU CV11 1 = INS26 (TYPE FIX)>
1567                     <RESTUU CV11 1 = CV11 (TYPE UVECTOR)>
1568                     <EMPUU? CV11 - PHRASE118 (TYPE UVECTOR)>
1569                     <EMPL? CL10 - PHRASE117 (TYPE LIST)>
1570                     <SET AFLG27 %<> (TYPE FALSE)>
1571                     <JUMP + PHRASE118>
1572 PHRASE117
1573                     <NTHL CL10 1 = CV11 (TYPE UVECTOR)>
1574                     <RESTL CL10 1 = CL10 (TYPE LIST)>
1575 PHRASE118
1576                     <LSH INS26 SHFT97 = TEMP48 (TYPE FIX)>
1577                     <AND TEMP48 #WORD *377* = TEMP65>
1578                     <DEAD TEMP48>
1579                     <AND TEMP65 #WORD *360* = TEMP64>
1580                     <AND TEMP65 #WORD *17* = R-OR-L100>
1581                     <FRAME '\1aGET-OP-INFO>
1582                     <PUSH FNUM98>
1583                     <PUSH OP-INF28>
1584                     <CALL '\1aGET-OP-INFO 2 = TEMP48>
1585                     <AND TEMP48 #WORD *7* = SIZ102>
1586                     <ADD FNUM98 1 = FNUM98 (TYPE FIX)>
1587                     <VEQUAL? TEMP48 32 + BOOL122 (TYPE FIX)>
1588                     <VEQUAL? TEMP48 33 - PHRASE121 (TYPE FIX)>
1589 BOOL122
1590                     <FRAME '\1aAGEN-BRANCH-2>
1591                     <PUSH INS26>
1592                     <PUSH BYTEOFF9>
1593                     <DEAD BYTEOFF9>
1594                     <SUB PTR23 1 = STACK (TYPE FIX)>
1595                     <PUSH INSCODE24>
1596                     <PUSH TEMP58>
1597                     <PUSH TEMP48>
1598                     <DEAD TEMP48>
1599                     <CALL '\1aAGEN-BRANCH-2 6 = BYTEOFF9>
1600                     <JUMP + AGAIN103>
1601 PHRASE121
1602                     <LESS? TEMP64 64 - PHRASE124 (TYPE FIX)>
1603                     <FRAME '\1aADD-BYTE-TO-FCODE>
1604                     <PUSH TEMP65>
1605                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1606                     <ADD BYTEOFF9 1 = BYTEOFF9 (TYPE FIX)>
1607                     <TYPE? IN-CASE?34 <TYPE-CODE FALSE> + AGAIN103>
1608                     <VEQUAL? NUM-OPS29 0 - PHRASE129 (TYPE FIX)>
1609                     <SET IN-CASE?34 TEMP65>
1610                     <DEAD TEMP65>
1611                     <JUMP + AGAIN103>
1612 PHRASE129
1613                     <VEQUAL? NUM-OPS29 1 - AGAIN103 (TYPE FIX)>
1614                     <JUMP + AGAIN103>
1615 PHRASE124
1616                     <VEQUAL? TEMP64 64 - PHRASE135 (TYPE FIX)>
1617                     <SUB FNUM98 1 = FNUM98 (TYPE FIX)>
1618                     <ADD NUM-OPS29 1 = NUM-OPS29 (TYPE FIX)>
1619                     <FRAME '\1aADD-BYTE-TO-FCODE>
1620                     <PUSH TEMP65>
1621                     <DEAD TEMP65>
1622                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1623                     <ADD BYTEOFF9 1 = BYTEOFF9 (TYPE FIX)>
1624                     <JUMP + AGAIN103>
1625 PHRASE135
1626                     <VEQUAL? TEMP64 80 + BOOL138 (TYPE FIX)>
1627                     <VEQUAL? TEMP64 96 + BOOL138 (TYPE FIX)>
1628                     <VEQUAL? TEMP64 112 - PHRASE137 (TYPE FIX)>
1629 BOOL138
1630                     <FRAME '\1aADD-BYTE-TO-FCODE>
1631                     <PUSH TEMP65>
1632                     <DEAD TEMP65>
1633                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1634                     <ADD BYTEOFF9 1 = BYTEOFF9 (TYPE FIX)>
1635                     <JUMP + AGAIN103>
1636 PHRASE137
1637                     <VEQUAL? TEMP64 128 + BOOL141 (TYPE FIX)>
1638                     <VEQUAL? TEMP64 144 - PHRASE140 (TYPE FIX)>
1639 BOOL141
1640                     <GVAL 'NAC-PC = TEMP48>
1641                     <EQUAL? TEMP48 R-OR-L100 - PHRASE143>
1642                     <DEAD TEMP48>
1643                     <FRAME '\1aADD-BYTE-TO-FCODE>
1644                     <PUSH TEMP65>
1645                     <DEAD TEMP65>
1646                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1647                     <ADD BYTEOFF9 1 = BYTEOFF9 (TYPE FIX)>
1648                     <VEQUAL? TEMP64 144 - PHRASE146 (TYPE FIX)>
1649                     <DEAD TEMP64>
1650                     <SET SIZ102 4 (TYPE FIX)>
1651                     <JUMP + PHRASE152>
1652 PHRASE146
1653                     <VEQUAL? SIZ102 2 + BOOL148 (TYPE FIX)>
1654                     <VEQUAL? SIZ102 5 - PHRASE147 (TYPE FIX)>
1655 BOOL148
1656                     <SET SIZ102 4 (TYPE FIX)>
1657                     <JUMP + PHRASE152>
1658 PHRASE147
1659                     <VEQUAL? SIZ102 1 - PHRASE149 (TYPE FIX)>
1660                     <DEAD SIZ102>
1661                     <SET SIZ102 2 (TYPE FIX)>
1662                     <JUMP + PHRASE152>
1663 PHRASE149
1664                     <SET SIZ102 1 (TYPE FIX)>
1665 PHRASE152
1666                     <SET R-OR-L100 -8 (TYPE FIX)>
1667                     <SET TEMP48 0 (TYPE FIX)>
1668                     <LOOP>
1669 AGAIN156
1670                     <INTGO>
1671                     <SUB SIZ102 1 = SIZ102 (TYPE FIX)>
1672                     <LESS? SIZ102 0 - PHRASE158 (TYPE FIX)>
1673                     <TYPE? IN-CASE?34 <TYPE-CODE FALSE> + AGAIN103>
1674                     <GRTR? NUM-OPS29 0 + PHRASE164 (TYPE FIX)>
1675                     <SET IN-CASE?34 TEMP48>
1676                     <DEAD TEMP48>
1677                     <JUMP + AGAIN103>
1678 PHRASE164
1679                     <VEQUAL? NUM-OPS29 1 - AGAIN103 (TYPE FIX)>
1680                     <SET TEMP65 TEMP48>
1681                     <DEAD TEMP48>
1682                     <JUMP + AGAIN103>
1683 PHRASE158
1684                     <ADD SHFT97 8 = SHFT97 (TYPE FIX)>
1685                     <GRTR? SHFT97 0 - PHRASE180 (TYPE FIX)>
1686                     <SET SHFT97 -24 (TYPE FIX)>
1687                     <ADD PTR23 1 = PTR23 (TYPE FIX)>
1688                     <VEQUAL? AFLG27 0 - BOOL174>
1689                     <FRAME '\1aERROR>
1690                     <PUSH 'ACCESS-BEYOND-END-OF-CODE!-ERRORS>
1691                     <CALL '\1aERROR 1>
1692 BOOL174
1693                     <NTHUU CV11 1 = INS26 (TYPE FIX)>
1694                     <RESTUU CV11 1 = CV11 (TYPE UVECTOR)>
1695                     <EMPUU? CV11 - PHRASE180 (TYPE UVECTOR)>
1696                     <EMPL? CL10 - PHRASE179 (TYPE LIST)>
1697                     <SET AFLG27 %<> (TYPE FALSE)>
1698                     <JUMP + PHRASE180>
1699 PHRASE179
1700                     <NTHL CL10 1 = CV11 (TYPE UVECTOR)>
1701                     <RESTL CL10 1 = CL10 (TYPE LIST)>
1702 PHRASE180
1703                     <ADD R-OR-L100 8 = R-OR-L100 (TYPE FIX)>
1704                     <LSH INS26 SHFT97 = TEMP64 (TYPE FIX)>
1705                     <AND TEMP64 #WORD *377* = TEMP65>
1706                     <DEAD TEMP64>
1707                     <LSH TEMP65 R-OR-L100 = TEMP64 (TYPE FIX)>
1708                     <OR TEMP48 TEMP64 = TEMP48>
1709                     <DEAD TEMP64>
1710                     <FRAME '\1aADD-BYTE-TO-FCODE>
1711                     <PUSH TEMP65>
1712                     <DEAD TEMP65>
1713                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1714                     <ADD BYTEOFF9 1 = BYTEOFF9 (TYPE FIX)>
1715                     <JUMP + AGAIN156>
1716 PHRASE143
1717                     <FRAME '\1aADD-BYTE-TO-FCODE>
1718                     <PUSH TEMP65>
1719                     <DEAD TEMP65>
1720                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1721                     <ADD BYTEOFF9 1 = BYTEOFF9 (TYPE FIX)>
1722                     <JUMP + AGAIN103>
1723 PHRASE140
1724                     <FRAME '\1aADD-BYTE-TO-FCODE>
1725                     <PUSH TEMP65>
1726                     <DEAD TEMP65>
1727                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1728                     <ADD BYTEOFF9 1 = BYTEOFF9 (TYPE FIX)>
1729                     <VEQUAL? TEMP64 176 + BOOL188 (TYPE FIX)>
1730                     <VEQUAL? TEMP64 160 - PHRASE187 (TYPE FIX)>
1731 BOOL188
1732                     <SET SIZ102 1 (TYPE FIX)>
1733                     <JUMP + PHRASE191>
1734 PHRASE187
1735                     <VEQUAL? TEMP64 208 + BOOL190 (TYPE FIX)>
1736                     <VEQUAL? TEMP64 192 - PHRASE189 (TYPE FIX)>
1737 BOOL190
1738                     <SET SIZ102 2 (TYPE FIX)>
1739                     <JUMP + PHRASE191>
1740 PHRASE189
1741                     <VEQUAL? TEMP64 240 + BOOL192 (TYPE FIX)>
1742                     <VEQUAL? TEMP64 224 - PHRASE191 (TYPE FIX)>
1743                     <DEAD TEMP64>
1744 BOOL192
1745                     <SET SIZ102 4 (TYPE FIX)>
1746 PHRASE191
1747                     <LOOP>
1748 AGAIN194
1749                     <INTGO>
1750                     <SUB SIZ102 1 = SIZ102 (TYPE FIX)>
1751                     <LESS? SIZ102 0 + AGAIN103 (TYPE FIX)>
1752                     <ADD SHFT97 8 = SHFT97 (TYPE FIX)>
1753                     <GRTR? SHFT97 0 - PHRASE209 (TYPE FIX)>
1754                     <SET SHFT97 -24 (TYPE FIX)>
1755                     <ADD PTR23 1 = PTR23 (TYPE FIX)>
1756                     <VEQUAL? AFLG27 0 - BOOL203>
1757                     <FRAME '\1aERROR>
1758                     <PUSH 'ACCESS-BEYOND-END-OF-CODE!-ERRORS>
1759                     <CALL '\1aERROR 1>
1760 BOOL203
1761                     <NTHUU CV11 1 = INS26 (TYPE FIX)>
1762                     <RESTUU CV11 1 = CV11 (TYPE UVECTOR)>
1763                     <EMPUU? CV11 - PHRASE209 (TYPE UVECTOR)>
1764                     <EMPL? CL10 - PHRASE208 (TYPE LIST)>
1765                     <SET AFLG27 %<> (TYPE FALSE)>
1766                     <JUMP + PHRASE209>
1767 PHRASE208
1768                     <NTHL CL10 1 = CV11 (TYPE UVECTOR)>
1769                     <RESTL CL10 1 = CL10 (TYPE LIST)>
1770 PHRASE209
1771                     <LSH INS26 SHFT97 = TEMP65 (TYPE FIX)>
1772                     <AND TEMP65 #WORD *377* = TEMP65>
1773                     <FRAME '\1aADD-BYTE-TO-FCODE>
1774                     <PUSH TEMP65>
1775                     <DEAD TEMP65>
1776                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1777                     <ADD BYTEOFF9 1 = BYTEOFF9 (TYPE FIX)>
1778                     <JUMP + AGAIN194>
1779 EXIT96
1780                     <TYPE? IN-CASE?34 <TYPE-CODE FALSE> + PHRASE212>
1781                     <SET START-CASE35 BYTEOFF9>
1782 PHRASE212
1783                     <VEQUAL? AFLG27 0 + EXIT21>
1784                     <DEAD AFLG27>
1785                     <EMPUU? CV11 - PHRASE215 (TYPE UVECTOR)>
1786                     <EMPL? CL10 + EXIT21 (TYPE LIST)>
1787                     <NTHL CL10 1 = CV11 (TYPE UVECTOR)>
1788                     <RESTL CL10 1 = CL10 (TYPE LIST)>
1789 PHRASE215
1790                     <LESS? PTR23 MAXPTR12 + AGAIN36 (TYPE FIX)>
1791 EXIT21
1792                     <TYPE? CLABELS13 <TYPE-CODE FALSE> + PHRASE221>
1793                     <DEAD CLABELS13>
1794                     <FRAME '\1aFORCE-OUT-FCODE>
1795                     <CALL '\1aFORCE-OUT-FCODE 0 = TEMP48>
1796                     <ADD BYTEOFF9 TEMP48 = TEMP65 (TYPE FIX)>
1797                     <DEAD BYTEOFF9 TEMP48>
1798                     <RETURN TEMP65>
1799                     <DEAD TEMP65>
1800 PHRASE221
1801                     <RETURN BYTEOFF9>
1802                     <DEAD BYTEOFF9>
1803                     <END \1aOUTPUT-PASS>
1804
1805 #WORD *11424654004*
1806                     <GFCN \1aSWAP-MODE ("VALUE" FIX FIX) MODEA4>
1807                     <TEMP LOW5:FIX HIGH6:FIX>
1808                     <INTGO>
1809                     <AND MODEA4 #WORD *7* = LOW5>
1810                     <GETBITS MODEA4 3 3 = HIGH6>
1811                     <DEAD MODEA4>
1812                     <PUTBITS HIGH6 3 3 LOW5 = LOW5>
1813                     <DEAD HIGH6>
1814                     <RETURN LOW5>
1815                     <DEAD LOW5>
1816                     <END \1aSWAP-MODE>
1817
1818 #WORD *35425536307*
1819                     <GFCN \1aGENEA ("VALUE" FIX FIX FIX FIX FIX) EA4 BYTEOFF5 DISP6 SZ7>
1820                     <TEMP RES10 TEMP15 TAB11:UVECTOR WD8:FIX>
1821                     <INTGO>
1822                     <SET RES10 EA4>
1823                     <GVAL 'ADDRESS-IMM = TEMP15>
1824                     <EQUAL? TEMP15 EA4 - PHRASE13>
1825                     <DEAD TEMP15>
1826                     <GVAL 'LENGTH-LONG = TEMP15>
1827                     <EQUAL? TEMP15 SZ7 - PHRASE13>
1828                     <DEAD TEMP15>
1829                     <GVAL 'CONSTANT-TABLE = TAB11>
1830                     <ADD DISP6 1 = TEMP15 (TYPE FIX)>
1831                     <NTHUU TAB11 TEMP15 = WD8 (TYPE FIX)>
1832                     <DEAD TEMP15>
1833                     <VEQUAL? WD8 0 - PHRASE17 (TYPE FIX)>
1834                     <NTHUU TAB11 DISP6 = WD8 (TYPE FIX)>
1835                     <ADD DISP6 1 = TEMP15 (TYPE FIX)>
1836                     <DEAD DISP6>
1837                     <PUTUU TAB11 TEMP15 BYTEOFF5>
1838                     <DEAD TAB11 TEMP15>
1839                     <FRAME '\1aADD-WORD-TO-FCODE>
1840                     <GETBITS WD8 16 16 = STACK>
1841                     <CALL '\1aADD-WORD-TO-FCODE 1>
1842                     <FRAME '\1aADD-WORD-TO-FCODE>
1843                     <PUSH WD8>
1844                     <DEAD WD8>
1845                     <CALL '\1aADD-WORD-TO-FCODE 1>
1846                     <ADD BYTEOFF5 4 = BYTEOFF5 (TYPE FIX)>
1847                     <JUMP + PHRASE26>
1848 PHRASE17
1849                     <GVAL 'ADDRESS-PCDISP = RES10>
1850                     <FRAME '\1aADD-WORD-TO-FCODE>
1851                     <SUB WD8 BYTEOFF5 = STACK (TYPE FIX)>
1852                     <DEAD WD8>
1853                     <CALL '\1aADD-WORD-TO-FCODE 1>
1854                     <ADD BYTEOFF5 2 = BYTEOFF5 (TYPE FIX)>
1855                     <JUMP + PHRASE26>
1856 PHRASE13
1857                     <GETBITS EA4 3 3 = WD8>
1858                     <DEAD EA4>
1859                     <GRTR? WD8 4 - PHRASE26 (TYPE FIX)>
1860                     <DEAD WD8>
1861                     <ADD BYTEOFF5 2 = BYTEOFF5 (TYPE FIX)>
1862                     <FRAME '\1aADD-WORD-TO-FCODE>
1863                     <PUSH DISP6>
1864                     <DEAD DISP6>
1865                     <CALL '\1aADD-WORD-TO-FCODE 1>
1866 PHRASE26
1867                     <PUTBITS RES10 16 16 BYTEOFF5 = TEMP15>
1868                     <DEAD RES10 BYTEOFF5>
1869                     <RETURN TEMP15>
1870                     <DEAD TEMP15>
1871                     <END \1aGENEA>
1872
1873 #WORD *24010264016*
1874                     <GFCN \1aEXTEND ("VALUE" FIX FIX) X4>
1875                     <TEMP TEMP7>
1876                     <INTGO>
1877                     <GETBITS X4 1 15 = TEMP7>
1878                     <VEQUAL? TEMP7 1 - PHRASE6 (TYPE FIX)>
1879                     <DEAD TEMP7>
1880                     <LSH -1 16 = TEMP7 (TYPE FIX)>
1881                     <OR X4 TEMP7 = TEMP7>
1882                     <DEAD X4>
1883                     <RETURN TEMP7>
1884                     <DEAD TEMP7>
1885 PHRASE6
1886                     <RETURN X4>
1887                     <DEAD X4>
1888                     <END \1aEXTEND>
1889
1890 #WORD *27410264016*
1891                     <GFCN \1aEXTEND-BYTE ("VALUE" FIX FIX) X4>
1892                     <TEMP TEMP7>
1893                     <INTGO>
1894                     <GETBITS X4 1 7 = TEMP7>
1895                     <VEQUAL? TEMP7 1 - PHRASE6 (TYPE FIX)>
1896                     <DEAD TEMP7>
1897                     <LSH -1 8 = TEMP7 (TYPE FIX)>
1898                     <OR X4 TEMP7 = TEMP7>
1899                     <DEAD X4>
1900                     <RETURN TEMP7>
1901                     <DEAD TEMP7>
1902 PHRASE6
1903                     <RETURN X4>
1904                     <DEAD X4>
1905                     <END \1aEXTEND-BYTE>
1906
1907 #WORD *33767525715*
1908                     <GFCN \1aFORCE-OUT-FCODE ("VALUE" FIX)>
1909                     <TEMP SHFT4:FIX I8:FIX>
1910                     <INTGO>
1911                     <GVAL 'FSHIFT = SHFT4>
1912                     <SET I8 0 (TYPE FIX)>
1913                     <LOOP>
1914 AGAIN9
1915                     <INTGO>
1916                     <SUB SHFT4 8 = SHFT4 (TYPE FIX)>
1917                     <GRTR? SHFT4 0 + PHRASE11 (TYPE FIX)>
1918                     <RETURN I8>
1919                     <DEAD I8>
1920 PHRASE11
1921                     <FRAME '\1aADD-BYTE-TO-FCODE>
1922                     <PUSH 0>
1923                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1924                     <ADD I8 1 = I8 (TYPE FIX)>
1925                     <JUMP + AGAIN9>
1926                     <END \1aFORCE-OUT-FCODE>
1927
1928 #WORD *35720630150*
1929                     <GFCN \1aINIT-UNRESOLVED-CALLS ("VALUE" <LIST [REST UNRESOLVED-CALL]>)>
1930                     <TEMP>
1931                     <INTGO>
1932                     <SETG 'UNRESOLVED-CALLS-TABLE ()>
1933                     <RETURN ()>
1934                     <END \1aINIT-UNRESOLVED-CALLS>
1935
1936 #WORD *21276321607*
1937                     <GFCN \1aCHECK-UNRESOLVED-CALLS ("VALUE" FIX FIX FIX) EBYTEOFF4 SBYTEOFF5>
1938                     <TEMP TEMP17:LIST UCALL18:UNRESOLVED-CALL TEMP24 TEM20:FIX>
1939                     <INTGO>
1940                     <GVAL 'UNRESOLVED-CALLS-TABLE = TEMP17>
1941                     <LOOP>
1942 MAP7
1943                     <INTGO>
1944                     <EMPL? TEMP17 + MAPAP10>
1945                     <NTHL TEMP17 1 = UCALL18>
1946                     <NTHUV UCALL18 4 = TEMP24 (TYPE FIX)>
1947                     <SUB EBYTEOFF4 TEMP24 = TEMP24 (TYPE FIX)>
1948                     <GRTR? TEMP24 32767 - PHRASE22 (TYPE FIX)>
1949                     <DEAD TEMP24>
1950                     <NTHUV UCALL18 4 = TEMP24 (TYPE FIX)>
1951                     <SUB SBYTEOFF5 TEMP24 = TEM20 (TYPE FIX)>
1952                     <DEAD TEMP24>
1953                     <GRTR? TEM20 32767 - PHRASE26 (TYPE FIX)>
1954                     <FRAME '\1aERROR>
1955                     <PUSH 'CANT-JUMP-FAR-ENOUGH>
1956                     <PUSH UCALL18>
1957                     <PUSH SBYTEOFF5>
1958                     <PUSH EBYTEOFF4>
1959                     <PUSH 'CHECK-UNRESOLVED-CALLS>
1960                     <CALL '\1aERROR 5>
1961 PHRASE26
1962                     <FRAME '\1aPUT-FCODE>
1963                     <NTHUV UCALL18 3 = STACK (TYPE FIX)>
1964                     <AND TEM20 #WORD *377* = STACK>
1965                     <CALL '\1aPUT-FCODE 2>
1966                     <FRAME '\1aPUT-FCODE>
1967                     <NTHUV UCALL18 3 = TEMP24 (TYPE FIX)>
1968                     <ADD TEMP24 1 = STACK (TYPE FIX)>
1969                     <DEAD TEMP24>
1970                     <LSH TEM20 -8 = TEMP24 (TYPE FIX)>
1971                     <DEAD TEM20>
1972                     <AND TEMP24 #WORD *377* = STACK>
1973                     <DEAD TEMP24>
1974                     <CALL '\1aPUT-FCODE 2>
1975                     <ADD SBYTEOFF5 3 = TEMP24 (TYPE FIX)>
1976                     <PUTUV UCALL18 4 TEMP24 (TYPE FIX)>
1977                     <DEAD TEMP24>
1978                     <FRAME '\1aADD-BYTE-TO-FCODE>
1979                     <PUSH 49>
1980                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1981                     <FRAME '\1aADD-BYTE-TO-FCODE>
1982                     <PUSH 0>
1983                     <CALL '\1aADD-BYTE-TO-FCODE 1 = TEMP24>
1984                     <FRAME '\1aADD-BYTE-TO-FCODE>
1985                     <PUSH 0>
1986                     <CALL '\1aADD-BYTE-TO-FCODE 1>
1987                     <PUTUV UCALL18 3 TEMP24>
1988                     <DEAD UCALL18 TEMP24>
1989                     <ADD SBYTEOFF5 3 = SBYTEOFF5 (TYPE FIX)>
1990 PHRASE22
1991                     <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
1992                     <JUMP + MAP7>
1993 MAPAP10
1994                     <RETURN SBYTEOFF5>
1995                     <DEAD SBYTEOFF5>
1996                     <END \1aCHECK-UNRESOLVED-CALLS>
1997
1998 #WORD *25215510226*
1999                     <GFCN \1aADD-UNRESOLVED-CALLS ("VALUE" <LIST [REST UNRESOLVED-CALL]>)>
2000                     <TEMP TAB4:LIST TEMP16:VECTOR UCALL17 TEMP19 TEMP28>
2001                     <INTGO>
2002                     <GVAL 'UNRESOLVED-CALLS-TABLE = TAB4>
2003                     <GVAL 'CALL-TABLE = TEMP16>
2004                     <LOOP>
2005 MAP6
2006                     <INTGO>
2007                     <EMPUV? TEMP16 + MAPAP9>
2008                     <NTHUV TEMP16 1 = UCALL17>
2009                     <TYPE? UCALL17 <TYPE-CODE FALSE> + MAPAP9>
2010                     <NTHUV UCALL17 3 = TEMP19 (TYPE FIX)>
2011                     <GRTR? TEMP19 0 - PHRASE26 (TYPE FIX)>
2012                     <DEAD TEMP19>
2013                     <EMPL? TAB4 - PHRASE25 (TYPE LIST)>
2014                     <CONS UCALL17 () = TAB4>
2015                     <DEAD UCALL17>
2016                     <JUMP + PHRASE26>
2017 PHRASE25
2018                     <SET TEMP19 TAB4>
2019                     <LOOP (TEMP19 VALUE)>
2020 TAG27
2021                     <RESTL TEMP19 1 = TEMP28 (TYPE LIST)>
2022                     <EMPL? TEMP28 + TAG29>
2023                     <SET TEMP19 TEMP28>
2024                     <DEAD TEMP28>
2025                     <JUMP + TAG27>
2026 TAG29
2027                     <CONS UCALL17 () = TEMP28>
2028                     <DEAD UCALL17>
2029                     <PUTREST TEMP19 TEMP28>
2030                     <DEAD TEMP19 TEMP28>
2031 PHRASE26
2032                     <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
2033                     <JUMP + MAP6>
2034 MAPAP9
2035                     <SETG 'UNRESOLVED-CALLS-TABLE TAB4>
2036                     <RETURN TAB4>
2037                     <DEAD TAB4>
2038                     <END \1aADD-UNRESOLVED-CALLS>
2039
2040 #WORD *21103150104*
2041                     <GFCN \1aFIXUP-UNRESOLVED-CALLS ("VALUE" ATOM CALL-ENTRY) CE4>
2042                     <TEMP NAME5:ATOM PTR9:LIST PPTR10:LIST UCALL11 TEMP19 OFF12>
2043                     <INTGO>
2044                     <NTHUV CE4 1 = NAME5 (TYPE ATOM)>
2045                     <GVAL 'UNRESOLVED-CALLS-TABLE = PTR9>
2046                     <SET PPTR10 PTR9>
2047                     <LOOP>
2048 AGAIN13
2049                     <INTGO>
2050                     <EMPL? PTR9 - PHRASE15 (TYPE LIST)>
2051                     <RETURN 'T>
2052 PHRASE15
2053                     <NTHL PTR9 1 = UCALL11>
2054                     <FRAME '\1aSAME-NAME?>
2055                     <NTHUV UCALL11 1 = STACK (TYPE ATOM)>
2056                     <PUSH NAME5>
2057                     <CALL '\1aSAME-NAME? 2 = TEMP19>
2058                     <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE17>
2059                     <DEAD TEMP19>
2060                     <FRAME '\1aFIND-ENTRY-LOC>
2061                     <PUSH CE4>
2062                     <NTHUV UCALL11 2 = STACK (TYPE FIX)>
2063                     <CALL '\1aFIND-ENTRY-LOC 2 = OFF12>
2064                     <TYPE? OFF12 <TYPE-CODE FALSE> - BOOL20>
2065                     <FRAME '\1aERROR>
2066                     <PUSH "CANT JUMP">
2067                     <PUSH 'FIXUP-UNRESOLVED-CALLS>
2068                     <CALL '\1aERROR 2>
2069 BOOL20
2070                     <NTHUV UCALL11 4 = TEMP19 (TYPE FIX)>
2071                     <SUB OFF12 TEMP19 = OFF12 (TYPE FIX)>
2072                     <DEAD TEMP19>
2073                     <SET TEMP19 OFF12>
2074                     <LESS? TEMP19 0 - TAG24 (TYPE FIX)>
2075                     <SUB 0 TEMP19 = TEMP19 (TYPE FIX)>
2076 TAG24
2077                     <GRTR? TEMP19 32767 - BOOL23 (TYPE FIX)>
2078                     <DEAD TEMP19>
2079                     <FRAME '\1aERROR>
2080                     <PUSH "CANT JUMP">
2081                     <PUSH 'FIXUP-UNRESOLVED-CALLS>
2082                     <CALL '\1aERROR 2>
2083 BOOL23
2084                     <FRAME '\1aPUT-FCODE>
2085                     <NTHUV UCALL11 3 = STACK (TYPE FIX)>
2086                     <AND OFF12 #WORD *377* = STACK>
2087                     <CALL '\1aPUT-FCODE 2>
2088                     <FRAME '\1aPUT-FCODE>
2089                     <NTHUV UCALL11 3 = TEMP19 (TYPE FIX)>
2090                     <DEAD UCALL11>
2091                     <ADD TEMP19 1 = STACK (TYPE FIX)>
2092                     <DEAD TEMP19>
2093                     <LSH OFF12 -8 = TEMP19 (TYPE FIX)>
2094                     <DEAD OFF12>
2095                     <AND TEMP19 #WORD *377* = STACK>
2096                     <DEAD TEMP19>
2097                     <CALL '\1aPUT-FCODE 2>
2098                     <VEQUAL? PTR9 PPTR10 - PHRASE29>
2099                     <RESTL PTR9 1 = TEMP19 (TYPE LIST)>
2100                     <SETG 'UNRESOLVED-CALLS-TABLE TEMP19>
2101                     <DEAD TEMP19>
2102                     <RESTL PTR9 1 = PPTR10 (TYPE LIST)>
2103                     <JUMP + COND16>
2104 PHRASE29
2105                     <RESTL PTR9 1 = TEMP19 (TYPE LIST)>
2106                     <PUTREST PPTR10 TEMP19>
2107                     <DEAD TEMP19>
2108                     <JUMP + COND16>
2109 PHRASE17
2110                     <SET PPTR10 PTR9>
2111 COND16
2112                     <RESTL PTR9 1 = PTR9 (TYPE LIST)>
2113                     <JUMP + AGAIN13>
2114                     <END \1aFIXUP-UNRESOLVED-CALLS>