68     %INTEGERFN CHAR(%INTEGER P)
  76     %END    16
  78     %ROUTINE PUT CHAR(%INTEGER K)
  89     %END    32
  91     %ROUTINE FAULT(%INTEGER K)
  95     %END    10
  97     %ROUTINE PRINT(%INTEGER K)
 100     %END    11
 102     %ROUTINE PRINT WORD(%INTEGER V)
 103            %ROUTINE PRINT HIT(%INTEGER V)
 106            %END    16
 107            %ROUTINE PRINT1(%INTEGER V)
 109            %END    11
 111     %END    38
 113     %ROUTINE PRINT LOC
 117     %END    15
 119     %ROUTINE DO NEWLINE
 122     %END    12
 124     %ROUTINE PRINT LINE
 125            %ROUTINE PRINTIT(%INTEGER SUB)
 143            %END    73
 159     %END   125
 161     %ROUTINE PUT WORD(%INTEGER V)
 170     %END    39
 172     %ROUTINE PLANT VAL
 186     %END    48
 188     %ROUTINE PLANT(%INTEGER V)
 194     %END    18
 196     %ROUTINE NEST(%INTEGER K)
 199     %END    14
 201     %ROUTINE SET LAB(%INTEGER DEST)
 234     %END   124
 236     %ROUTINE ASSEMBLE
 250        %ROUTINE COMBINE
 259        %END    58
 261        %ROUTINE PLANT JUMP
 281        %END    92
 283        %ROUTINE SET JUMP(%INTEGER CASE)
 295        %END    65
 297        %ROUTINE PLANT INST(%INTEGER CODE)
 300        %END    11
 302        %ROUTINE RELEASE
 312        %END    38
 314        %INTEGERFN TREG
 328        %END    43
 330        %ROUTINE LOAD CONST(%INTEGER R)
 349        %END   100
 351        %ROUTINE LOAD REG(%INTEGER R)
 404        %END   256
 406        %ROUTINE LOAD TEMP
 409        %END     5
 411        %ROUTINE SWOP
 415        %END    15
 432        %PREDICATE TEMP
 440        %END    27
 642     %END  1498
 644     %ROUTINE GET SYM
 649     %END    10
 651     %PREDICATE S(%INTEGER K)
 655     %END    10
 657     %PREDICATE SS(%INTEGER K)
 662     %END    18
 664     %PREDICATE TAG
 666            %ROUTINE CODE SYM
 675            %END    32
 676            %ROUTINE PACK TRIPLE
 695            %END    82
 707     %END   159
 709     %PREDICATE TAGIF
 714     %END    23
 716     %ROUTINE LOOKUP(%INTEGER CONTROL)
 765     %END   179
 767     %ROUTINE QUEUE(%INTEGER K)
 770     %END    14
 772     %ROUTINE GET EXP
 882     %END   409
 884     %ROUTINE GET COND
 915     %END    95
 917     %ROUTINE GET INST
 926     %END    18
 928     %ROUTINE READ LINE
 997     %END   204
 999     %ROUTINE SCAN ARG
1018     %END    71
1020     %ROUTINE SET ACC
1030     %END    22
1409     %ROUTINE BNEST
1413     %END    29
1445  %ENDOFPROGRAM  4355