*DECK PTABLES 
         IDENT   PTABLES
          ENTRY     D$SUBS
          ENTRY     E$SUBS
          ENTRY     R$SUBS
          ENTRY     RRVERBS 
          ENTRY     RRTABLE 
          ENTRY     RR6BITS 
          ENTRY     DDVERBS 
          ENTRY     DDTABLE 
          ENTRY     DD6BITS 
          ENTRY     EEVERBS 
          ENTRY     EETABLE 
          ENTRY     EE6BITS 
D$SUBS    EQU       * 
E$SUBS    EQU       * 
R$SUBS    EQU       * 
RRVERBS   EQU       * 
RRTABLE   EQU       * 
RR6BITS   EQU       * 
DDVERBS   EQU       * 
DDTABLE   EQU       * 
DD6BITS   EQU       * 
EEVERBS   EQU       * 
EETABLE   EQU       * 
EE6BITS   EQU       * 
          TITLE     PTABLES 
*CALL DPPPMACRO 
          ENDX
PSUB1     EQU    10001       LOCAL INITIALIZATION 
PSUB2     EQU    10002       SN TEST
PSUB3     EQU    10003       ACCEPT GTEXT 
PSUB400   EQU    10004       PROCEDURE DIVISION EPILOGUE
PSUB5     EQU    10005       DELETE GTEXT 
PSUB6     EQU    10006       PNDEF ROUTINE
PSUB7     EQU    10007       SNDEF ROUTINE
PSUB8     EQU    10008       SUBSCRIPT CONDITIONAL EPILOGUE 
PSUB9     EQU    10009       UPDATE CCT ROUTINE 
PSUB10    EQU    10010       LINE AND COLUMN
PSUB11    EQU    10011       DATA NAME ROUTINE
PSUB12    EQU    10012       STACK DEBUG ELEMENT
PSUB488   EQU    10013       NO SUBSCRIPTS ROUTINE
PSUB14    EQU    10014       MASTER DELETE GTEXT ROUTINE
PSUB15    EQU    10015       LITERAL ROUTINE
PSUB16    EQU    10016       USE BEFORE REPORTING 
PSUB17    EQU    10017       REAL LIVE LITERAL
PSUB273   EQU    10018       MNEMONIC NAME ROUTINE
PSUB261   EQU    10019       NULL ROUTINE 
PSUB136   EQU    10020       DIVIDE REMAINDER ROUTINE 
PSUB502   EQU    10021       REFERENCE MODIFICATION PROLOGUE
PSUB503   EQU    10022       REFERENCE MODIFICATION START ROUTINE 
PSUB504   EQU    10023       REFERENCE MODIFICATION END ROUTINE 
PSUB505   EQU    10024       REFERENCE MODIFICATION LENGTH ROUTINE
PSUB506   EQU    10025       REFERENCE MODIFICATION EPILOGUE
PSUB518   EQU    10026       MOVE SUBSCRIPTS ROUTINE
PSUB288   EQU    10027       STOP ROUTINE 
PSUB291   EQU    10028       STOP RUN 
PSUB399   EQU    10029       PROCEDURE DIVISION PROLOGUE
PSUB30    EQU    10030       SUBSCRIPT PROLOGUE 
PSUB31    EQU    10031       SUBSCRIPT LIQUIDATE ROUTINE
PSUB32    EQU    10032       SUBSCRIPT EPILOGUE 
PSUB33    EQU    10033       LITERAL SUBSCRIPT ROUTINE
PSUB34    EQU    10034       TEST FOR INDEX NAME
PSUB35    EQU    10035       DATA NAME SUBSCRIPT ROUTINE
PSUB36    EQU    10036       INDEX NAME ROUTINE 
PSUB37    EQU    10037       MINUS RELATIVE INDEX 
PSUB38    EQU    10038       PLUS RELATIVE INDEX
PSUB39    EQU    10039       ON SIZE ERROR PROLOGUE 
PSUB40    EQU    10040       STACK RESET
PSUB41    EQU    10041       IMPERATIVE STATEMENT PROLOGUE
PSUB42    EQU    10042       IMPERATIVE STATEMENT EPILOGUE
PSUB507   EQU    10043       M-NUMBER PROLOGUE
PSUB508   EQU    10044       M-NUMBER EPILOGUE
PSUB45    EQU    10045       ALL LITERAL ROUTINE
PSUB46    EQU    10046       NON ALL LITERAL ROUTINE
PSUB47    EQU    10047       IDENT RECEIVING FIELD
PSUB48    EQU    10048       IDENT POSSIBLE RECEIVING FIELD 
PSUB49    EQU    10049       POSTPONED RECEIVING FIELD
PSUB50    EQU    10050       SUBSCRIPT CONDITIONAL PROLOGUE 
PSUB51    EQU    10051       SUBSCRIPT CONDITIONAL ERROR
PSUB52    EQU    10052       SUBSCRIPT FILE NAME ROUTINE
PSUB53    EQU    10053       REF ROUTINE
PSUB54    EQU    10054       REF RECEIVING FIELD
PSUB55    EQU    10055       REF POSSIBLE RECEIVING FIELD 
PSUB56    EQU    10056       SET TEMP BASE OFFSET 
PSUB57    EQU    10057       SUBSCRIPT OPT PAUSE
PSUB58    EQU    10058       SUBSCRIPT OPT RESUME 
* END OF SUBS FOR SET 1 
PSUB60    EQU    20001       IF ROUTINE 
PSUB61    EQU    20002       CONDITION INITIALIZATION 
PSUB62    EQU    20003       STACK ADJUSTMENT 
PSUB63    EQU    20004       THEN GOTO ROUTINE
PSUB64    EQU    20005       THEN NS ROUTINE
PSUB65    EQU    20006       THEN NS ELSE GOTO ROUTINE
PSUB66    EQU    20007       THEN ROUTINE 
PSUB67    EQU    20008       PERIOD ROUTINE 
PSUB68    EQU    20009       ELSE NS ROUTINE
PSUB69    EQU    20010       ELSE GOTO ROUTINE
PSUB70    EQU    20011       ELSE ROUTINE 
PSUB71    EQU    20012       SAVE PROCNAME
PSUB72    EQU    20013       OPTIMIZED GO LEGALITY ROUTINE
PSUB73    EQU    20014       PS3 ROUTINE
PSUB74    EQU    20015       BEGIN DS STATEMENT 
PSUB75    EQU    20016       OBJECT ROUTINE 
PSUB76    EQU    20017       OUTPUT RELATION ROUTINE
PSUB77    EQU    20018       CONDITION NAME ROUTINE 
PSUB78    EQU    20019       CONDITION NAME LITERAL 
PSUB79    EQU    20020       FORMULA INITIALIZATION 
PSUB80    EQU    20021       SUBTRACT TERM ROUTINE
PSUB81    EQU    20022       ADD TERM ROUTINE 
PSUB82    EQU    20023       DIVIDE GROUP ROUTINE 
PSUB83    EQU    20024       MULTIPLY GROUP ROUTINE 
PSUB84    EQU    20025       EXPONENTIATE PRIMARY ROUTINE 
PSUB85    EQU    20026       UNARY MINUS
PSUB86    EQU    20027       NOT ROUTINE
PSUB87    EQU    20028       LEFT ROUTINE 
PSUB88    EQU    20029       RIGHT ROUTINE
PSUB89    EQU    20030       OR ROUTINE 
PSUB90    EQU    20031       AND ROUTINE
PSUB91    EQU    20032       SET XFLAG X2 
PSUB92    EQU    20033       SET XFLAG X1 
PSUB93    EQU    20034       CN SUBJECT ROUTINE 
PSUB94    EQU    20035       RELATIONAL NOT ABSENT
PSUB95    EQU    20036       EQUAL ROUTINE
PSUB96    EQU    20037       RELATIONAL NOT PRESENT 
PSUB97    EQU    20038       LESS THAN ROUTINE
PSUB98    EQU    20039       GREATER THAN ROUTINE 
PSUB99    EQU    20040       RELEASE SUBJECT ROUTINE
PSUB100   EQU    20041       CLASS IS ILLEGAL 
PSUB101   EQU    20042       CLASS IS LEGAL 
PSUB102   EQU    20043       SUBJECT ROUTINE
PSUB103   EQU    20044       UNEQUAL ROUTINE
PSUB104   EQU    20045       POSITIVE ROUTINE 
PSUB105   EQU    20046       NEGATIVE ROUTINE 
PSUB106   EQU    20047       ZERO ROUTINE 
PSUB107   EQU    20048       NUMERIC ROUTINE
PSUB108   EQU    20049       ALPHABETIC ROUTINE 
PSUB109   EQU    20050       RELATION OPERANDS ROUTINE
PSUB110   EQU    20051       UNSTACK LEFT ROUTINE 
PSUB111   EQU    20052       ON OFF ROUTINE 
PSUB112   EQU    20053       CN OUTPUT RELATION 
PSUB475   EQU    20054       FIGURATIVE CONSTANT ZERO 
PSUB476   EQU    20055       RELATION GTEXT ROUTINE 
PSUB500   EQU    20056       SET CONDITION-NAME PROLOGUE
PSUB501   EQU    20057       SET CONDITION-NAME ROUTINE 
PSUB509   EQU    20058       BOOLEAN EXOR ROUTINE 
PSUB510   EQU    20059       BOOLEAN OR ROUTINE 
PSUB511   EQU    20060       BOOLEAN AND ROUTINE
PSUB512   EQU    20061       BOOLEAN NOT ROUTINE
PSUB513   EQU    20032       BOOLEAN DATA NAME ROUTINE
PSUB514   EQU    20033       BOOLEAN LITERAL ROUTINE
PSUB515   EQU    20062       OUTPUT BOOLEAN RELATION
PSUB516   EQU    20063       OUTPUT BOOLEAN GTEXT 
PSUB520   EQU    20064       DSS EXPLICIT END ROUTINE 
PSUB521   EQU    20065       DSS IMPLICIT END ROUTINE 
PSUB532   EQU    20066       BOOLEAN SUBJECT ROUTINE
PSUB533   EQU    20067       BOOLEAN OBJECT ROUTINE 
PSUB534   EQU    20068       BOOLEAN FORMULA INITIALIZATION 
* END OF SUBS FOR SET 2 
PSUB113   EQU    30001       ADD ROUTINE
PSUB114   EQU    30002       AR 1 
PSUB115   EQU       30003    RESULT TEMP 14 
PSUB116   EQU    30004       AR 11
PSUB117   EQU    30005       AR 2 
PSUB118   EQU    30006       AR 12
PSUB119   EQU    30007       AR 4 
PSUB120   EQU    30008       AR 5 
PSUB121   EQU    30009       AR 6 
PSUB122   EQU    30010       AR 7 
PSUB123   EQU    30011       AR 8 
PSUB124   EQU    30012       AR 9 
PSUB125   EQU    30013       AR 13
PSUB126   EQU    30014       CORR OPERAND1 ROUTINE
PSUB127   EQU    30015       ADD CORR PAIR ROUTINE
PSUB128   EQU    30016       CORR END ROUTINE 
PSUB129   EQU    30017       CORR OPERAND2 ROUTINE
PSUB130   EQU    30018       ADD ROUNDED ROUTINE
PSUB131   EQU    30019       ADD WITHOUT ROUNDING 
PSUB132   EQU    30020       DIVIDE ROUTINE 
PSUB133   EQU    30021       DIVIDE INTO ROUTINE
PSUB134   EQU    30022       DIVIDE BY ROUTINE
PSUB135   EQU    30023       AR 19
PSUB145   EQU    30025       AR 20
PSUB148   EQU    30026       MULTIPLY ROUTINE 
PSUB149   EQU    30027       SUBTRACT ROUTINE 
PSUB150   EQU    30028       AR 16
PSUB151   EQU    30029       AR 17
PSUB152   EQU    30030       AR 18
PSUB153   EQU    30031       NEW TEMP 1 
PSUB154   EQU    30032       NEW TEMP 2 
PSUB155   EQU    30033       NEW TEMP 3 
PSUB473   EQU    30034       RESULT TEMP 16 
PSUB474   EQU    30035       RESULT TEMP 17 
PSUB535   EQU    30036       ADD OR SUBTRACT CORR SEPARATOR ROUTINE 
* END OF SUBS FOR SET 3 
PSUB156   EQU    40001       COMPUTE ROUTINE
PSUB157   EQU    40002       COMPUTE ROUNDED ROUTINE
PSUB158   EQU    40003       COMPUTE WITHOUT ROUNDING 
PSUB159   EQU    40004       COMPUTE EPILOGUE 
PSUB160   EQU    40005       EXIT PROGRAM ROUTINE 
PSUB161   EQU    40006       EXIT ROUTINE 
PSUB162   EQU    40007       PERFORM ROUTINE
PSUB163   EQU    40008       PERFORM PN 
PSUB164   EQU    40009       PERFORM PN1
PSUB165   EQU    40010       PERFORM PN2
PSUB166   EQU    40011       PERFORM TIMES ROUTINE
PSUB167   EQU    40012       END PERFORM COMPLEX ROUTINE
PSUB168   EQU    40013       PERFORM SIMPLE ROUTINE 
PSUB169   EQU    40014       PERFORM UNTIL CONDITION ROUTINE
PSUB170   EQU    40015       PERFORM VARYING PROLOGUE 
PSUB171   EQU    40016       PERFORM VARYING EPILOGUE 
PSUB172   EQU    40017       FBU PROLOGUE 
PSUB173   EQU    40018       FROM ROUTINE 
PSUB174   EQU    40019       BY ROUTINE 
PSUB175   EQU    40020       FBU CONDITION PROLOGUE 
PSUB176   EQU    40021       UNSTACK PERFORM
PSUB177   EQU    40022       PERFORM COMPLEX ROUTINE
PSUB178   EQU    40023       SUPPRESS R 
PSUB179   EQU    40024       GENERATE OPERAND R 
PSUB180   EQU    40025       INITIATE OPERAND R 
PSUB181   EQU    40026       TERMINATE OPERAND R
PSUB182   EQU    40027       RPW VD R 
PSUB183   EQU    40028       UBR OP1 R
PSUB184   EQU    40029       UBR OP2 R
PSUB185   EQU    40030       UBR OP3 R
PSUB525   EQU    40031       IN-LINE PERFORM TIMES R
PSUB526   EQU    40032       IN-LINE PERFORM UNTIL PROLOGUE 
PSUB527   EQU    40033       IN-LINE PERFORM UNITL TEST AFTER 
PSUB528   EQU    40034       IN-LINE PERFORM EPILOGUE 
PSUB529   EQU    40035       IN-LINE PERFORM VARYING ROUTINE
PSUB530   EQU    40036       IN-LINE PERFORM VARYING PROLOGUE 
PSUB531   EQU    40037       OUT-OF-LINE PERFORM WITH TEST AFTER
PSUB536   EQU    40038       OUT-OF-LINE PERFORM WITH TEST BEFORE 
* END OF SUBS FOR SET 4 
PSUB186   EQU    50001       ACCEPT ROUTINE 
PSUB187   EQU    50002       ACCEPT MESSAGE 
PSUB188   EQU    50003       ACCEPT DATE
PSUB189   EQU    50004       ACCEPT DAY 
PSUB190   EQU    50005       ACCEPT TIME
PSUB191   EQU    50006       ACCEPT DAY OF WEEK 
PSUB192   EQU    50007       ALTER ROUTINE
PSUB193   EQU    50008       ALTER PN ROUTINE 
PSUB194   EQU    50009       ALTER PN TO PN ROUTINE 
PSUB195   EQU    50010       DISPLAY ROUTINE
PSUB196   EQU    50011       DISPLAY OPERAND
PSUB197   EQU    50012       DISPLAY EPILOGUE 
PSUB198   EQU    50013       ACCEPT EPILOGUE
PSUB199   EQU    50014       GO TO ROUTINE
PSUB200   EQU    50015       GO TO PERIOD ROUTINE 
PSUB201   EQU    50016       GO TO PN ROUTINE 
PSUB202   EQU    50017       ORDINARY GO ROUTINE
PSUB203   EQU    50018       GO DEPENDING ROUTINE 
PSUB204   EQU    50019       GO DEPENDING PN ROUTINE
PSUB205   EQU    50020       GO DEPENDING EPILOGUE
PSUB208   EQU    50023       MOVE ROUTINE 
PSUB209   EQU    50024       MOVE OPERAND ROUTINE 
PSUB210   EQU    50025       CHECK MOVE 1 
PSUB211   EQU    50026       CHECK MOVE 2 
PSUB212   EQU    50027       MOVE CORR PAIR ROUTINE 
* END OF SUBS FOR SET 5 
PSUB216   EQU    60001       DISABLE ROUTINE
PSUB217   EQU    60002       DISABLE ENABLE OUTPUT
PSUB218   EQU    60003       DISABLE ENABLE INPUT 
PSUB219   EQU    60004       DISABLE ENABLE TERMINAL
PSUB220   EQU    60005       CD NAME ROUTINE
PSUB221   EQU    60006       DISABLE ENABLE OPERAND 
PSUB222   EQU    60007       DISABLE ENABLE IDENTIFIER
PSUB223   EQU    60008       DISABLE ENABLE LITERAL 
PSUB224   EQU    60009       ENABLE ROUTINE 
PSUB225   EQU    60010       INITIALIZE ROUTINE 
PSUB226   EQU    60011       INITIALIZE NO REPLACING
PSUB227   EQU    60012       INITIALIZE REPLACING NUMERIC 
PSUB228   EQU    60013       INITIALIZE REPLACING ALPHANUM
PSUB229   EQU    60014       INITIALIZE REPLACING ALPHABETIC
PSUB230   EQU    60015       INITIALIZE REPLACING ALPHA EDIT
PSUB231   EQU    60016       INITIALIZE REPLACING NUM EDIT
PSUB232   EQU    60017       INITIALIZE REPLACING ROUTINE 
PSUB233   EQU    60018       PURGE ROUTINE
PSUB234   EQU    60019       INSPECT ROUTINE
PSUB235   EQU    60020       INSPECT INSPECTEE
PSUB237   EQU    60022       INSPECT REPLACE PROLOGUE 
PSUB238   EQU    60023       INSPECT EPILOGUE 
PSUB239   EQU    60024       INSPECT TALLYEE
PSUB240   EQU    60025       INSPECT CHARACTERS 
PSUB241   EQU    60026       INSPECT OPERAND
PSUB242   EQU    60027       INSPECT REPLACE EPILOGUE 
PSUB243   EQU    60028       INSPECT ALL
PSUB244   EQU    60029       INSPECT LEADING
PSUB245   EQU    60030       INSPECT FIRST
PSUB246   EQU    60031       INSPECT TALLY EPILOGUE 
PSUB247   EQU    60032       INSPECT BEFORE 
PSUB248   EQU    60033       INSPECT AFTER
PSUB249   EQU    60034       INSPECT NO BEFORE OR AFTER 
PSUB250   EQU    60035       INSPECT CHECK IF TALLYING
PSUB251   EQU    60036       INSPECT SPECIAL BEFORE AFTER 
PSUB252   EQU    60037       RECEIVE ROUTINE
PSUB253   EQU    60038       CD NAME CHECK INPUT
PSUB254   EQU    60039       RECEIVE MESSAGE
PSUB255   EQU    60040       RECEIVE SEGMENT
PSUB256   EQU    60041       NO DATA PROLOGUE1
PSUB259   EQU    60044       SEND ROUTINE 
PSUB260   EQU    60045       CD NAME CHECK OUTPUT 
PSUB262   EQU    60047       SEND WITH
PSUB263   EQU    60048       INTEGER DATA ITEM ROUTINE
PSUB264   EQU    60049       SEND MSG INDICATOR 
PSUB265   EQU    60050       SEND ESI 
PSUB266   EQU    60051       SEND EMI 
PSUB267   EQU    60052       SEND EGI 
PSUB268   EQU    60053       SEND FORMAT1 
PSUB269   EQU    60054       SEND BEFORE
PSUB270   EQU    60055       SEND AFTER 
PSUB271   EQU    60056       SEND PAGE
PSUB272   EQU    60057       INTEGER LITERAL ROUTINE
PSUB274   EQU    60059       SEND EPILOGUE
PSUB275   EQU    60060       STRING ROUTINE 
PSUB276   EQU    60061       STRING IDENTIFIER
PSUB277   EQU    60062       STRING UNSTRING POINTER
PSUB278   EQU    60063       STRING EPILOGUE
PSUB279   EQU    60064       STRING OPERAND 
PSUB280   EQU    60065       STRING SIZE
PSUB281   EQU    60066       UNSTRING ROUTINE 
PSUB282   EQU    60067       UNSTRING OPERAND 
PSUB283   EQU    60068       UNSTRING DELIMITED 
PSUB284   EQU    60069       UNSTRING ALL 
PSUB285   EQU    60070       UNSTRING EPILOGUE
PSUB286   EQU    60071       UNSTRING RECEIVING FIELD 
PSUB287   EQU    60072       UNSTRING CHECK IF DELIMITED
PSUB289   EQU    60074      STOP LITERAL
PSUB292   EQU    60077      NO ON OVERFLOW
PSUB293   EQU    60078      ON OVERFLOW GO TO 
PSUB294   EQU    60079      ON OVERFLOW PROLOGUE
PSUB295   EQU    60080       UNSTRING LITERAL 
PSUB299   EQU    60084       STRING DELIMITED 
PSUB300   EQU    60085       INITIALIZE OPERAND ROUTINE 
PSUB517   EQU    60021       INITIALIZE REPLACING BOOLEAN 
* END OF SUBS FOR SET 6 
PSUB301   EQU    70001       CLOSE ROUTINE
PSUB302   EQU    70002       CLOSE LOCK ROUTINE 
PSUB303   EQU    70003       SIMPLE CLOSE ROUTINE 
PSUB304   EQU    70004       CLOSE REEL ROUTINE 
PSUB305   EQU    70005       CLOSE REEL REMOVE ROUTINE
PSUB306   EQU    70006       CLOSE NO REWIND ROUTINE
PSUB307   EQU    70007       DELETE ROUTINE 
PSUB308   EQU    70008       DELETE RECORD ROUTINE
PSUB309   EQU    70009       DELETE NO IMPERATIVE ROUTINE 
PSUB310   EQU    70010       DELETE INVALID KEY PROLOGUE
PSUB311   EQU    70011       OPEN ROUTINE 
PSUB312   EQU    70012       OPEN INPUT REVERSED ROUTINE
PSUB313   EQU    70013       OPEN INPUT ROUTINE 
PSUB314   EQU    70014       OPEN INPUT NO REWIND ROUTINE 
PSUB315   EQU    70015       OPEN OUTPUT ROUTINE
PSUB316   EQU    70016       OPEN OUTPUT NO REWIND ROUTINE
PSUB317   EQU    70017       OPEN EXTEND ROUTINE
PSUB318   EQU    70018       OPEN I O ROUTINE 
PSUB319   EQU    70019       READ ROUTINE 
PSUB320   EQU    70020       READ INTO ROUTINE
PSUB321   EQU    70021       READ FILE ROUTINE
PSUB322   EQU    70022       READ NO IMPERATIVE ROUTINE 
PSUB323   EQU    70023       READ NEXT ROUTINE
PSUB324   EQU    70024       READ KEYED ROUTINE 
PSUB325   EQU    70025       READ AT END PROLOGUE 
PSUB326   EQU    70026       READ INVALID KEY PROLOGUE
PSUB327   EQU    70027       REWRITE ROUTINE
PSUB328   EQU    70028       I O RECORD ROUTINE 
PSUB329   EQU    70029       WRITE FROM ROUTINE 
PSUB330   EQU    70030       REWRITE RECORD ROUTINE 
PSUB331   EQU    70031       REWRITE NO IMPERATIVE ROUTINE
PSUB332   EQU    70032       REWRITE INVALID KEY PROLOGUE 
PSUB333   EQU    70033       START ROUTINE
PSUB334   EQU    70034       START FILE ROUTINE 
PSUB335   EQU    70035       START EQUALS ROUTINE 
PSUB336   EQU    70036       START GREATER ROUTINE
PSUB337   EQU    70037       START NOT LESS ROUTINE 
PSUB338   EQU    70038       START NOT LESS THAN ROUTINE
PSUB339   EQU    70039       START KEY ROUTINE
PSUB340   EQU    70040       START NO IMPERATIVE ROUTINE
PSUB341   EQU    70041       START INVALID KEY PROLOGUE 
PSUB342   EQU    70042       WRITE ROUTINE
PSUB343   EQU    70043       WRITE BEFORE ROUTINE 
PSUB344   EQU    70044       WRITE AFTER ROUTINE
PSUB345   EQU    70045       WRITE RECORD ROUTINE 
PSUB346   EQU    70046       WRITE ADV PAGE ROUTINE 
PSUB347   EQU    70047       WRITE ADV IDENT ROUTINE
PSUB348   EQU    70048       WRITE ADV LIT ROUTINE
PSUB349   EQU    70049       NO EOP ROUTINE 
PSUB350   EQU    70050       WRITE EOP PROLOGUE 
PSUB351   EQU    70051       WRITE INVALID KEY PROLOGUE 
PSUB352   EQU    70052       FILE NAME ROUTINE
PSUB353   EQU    70053       RETURN ROUTINE 
PSUB354   EQU    70054       RETURN FILE ROUTINE
PSUB355   EQU    70055       RETURN INTO PROLOGUE ROUTINE 
PSUB356   EQU    70056       RETURN INTO ID ROUTINE 
PSUB357   EQU    70057       RETURN NO INTO ROUTINE 
PSUB464   EQU    70058       BUILD READ GTEXT 
PSUB307A  EQU    70059       DELETE FILE ROUTINE
PSUB490   EQU    70060       FIPS OPEN FILE-NAME SERIES ROUTINE 
PSUB491   EQU    70061       FIPS CLOSE FILE-NAME SERIES ROUTINE
* END OF SUBS FOR SET 7 
PSUB358   EQU    80001       CANCEL ROUTINE 
PSUB359   EQU    80002       CANCEL OPERAND 
PSUB360   EQU    80003       CALL ROUTINE 
PSUB361   EQU    80004       CALL USING ID
PSUB362   EQU    80005       CALL OPERAND 
PSUB363   EQU    80006       RELEASE ROUTINE
PSUB364   EQU    80007       RELEASE RECORD SUBR
PSUB365   EQU    80008       RELEASE FROM ROUTINE 
PSUB366   EQU    80009       RELEASE EPILOGUE ROUTINE 
PSUB367   EQU    80010       SORT ROUTINE 
PSUB368   EQU    80011       SORT FILE ROUTINE
PSUB369   EQU    80012       SORT KEY PROLOGUE ROUTINE
PSUB370   EQU    80013       SORT KEY ROUTINE 
PSUB371   EQU    80014       SORT KEY EPILOGUE ROUTINE
PSUB372   EQU    80015       SORT COLLATING SEQUENCE ROUTINE
PSUB373   EQU    80016       SORT INPUT SN1 ROUTINE 
PSUB374   EQU    80017       SORT INPUT SN2 ROUTINE 
PSUB375   EQU    80018       SORT INPUT SN EPILOGUE ROUTINE 
PSUB376   EQU    80019       SORT USING ROUTINE 
PSUB377   EQU    80020       SORT USING FILE ROUTINE
PSUB378   EQU    80021       SORT OUTPUT SN1 ROUTINE
PSUB379   EQU    80022       SORT OUTPUT SN2 ROUTINE
PSUB380   EQU    80023       SORT OUTPUT SN EPILOGUE
PSUB381   EQU    80024       SORT GIVING FILE ROUTINE 
PSUB382   EQU    80025       SORT STMT EPILOGUE 
PSUB383   EQU    80026       MERGE ROUTINE
PSUB384   EQU    80027       PARAMETER EPILOGUE 
PSUB385   EQU    80028       MERGE IO FILE SUBR 
PSUB386   EQU    80029       SM BLD LIST FN SUBR
PSUB387   EQU    80030       TEST SPBT STATUS 
PSUB465   EQU    80031       ENTER ROUTINE
PSUB466   EQU    80032       ENTER LITERAL NAME 
PSUB467   EQU    80033       ENTER SYS NAME 
PSUB468   EQU    80034       ENTER PROLOGUE 
PSUB469   EQU    80035       ENTER LITERAL PARAM
PSUB470   EQU    80036       ENTER REF PARAM
PSUB471   EQU    80037       ENTER ID PARAM 
PSUB472   EQU    80038       ENTER PARAMETER
PSUB478   EQU    80039       CALL NO ON OVERFLOW
 PSUB489  EQU    80040       SORT DUPLICATES IN SEQUENCE ROUTINE
PSUB493   EQU    80041       USING VARIABLE SUB CHK 
PSUB404   EQU    80042       SORT USING FILE NON-STANDARD ROUTINE 
PSUB405   EQU    80043       MERGE USING FILE ILLEGAL ROUTINE 
* END OF SUBS FOR SET 8 
PSUB388   EQU    90001       SEARCH TABLE ROUTINE 
PSUB389   EQU    90002       SEARCH RESTORE ROUTINE 
PSUB390   EQU    90003       SEARCH WITHOUT VARYING ROUTINE 
PSUB391   EQU    90004       SEARCH VARYING ROUTINE 
PSUB392   EQU    90005       SEARCH EPILOGUE
PSUB393   EQU    90006       SEARCH ALL TABLE R 
PSUB394   EQU    90007       SEARCH ALL AT END R
PSUB395   EQU    90008       SEARCH ALL INIT R
PSUB396   EQU    90009       SEARCH ALL WRAP UP R 
PSUB397   EQU    90010       SEARCH ALL SUBJECT R 
PSUB398   EQU    90011       SEARCH ALL CONDITION R 
PSUB401   EQU    90014       DECLARATIVES ROUTINE 
PSUB402   EQU    90015       END DECLARATIVES ROUTINE 
PSUB403   EQU    90016      SEARCH GTEXT ROUTINE
PSUB477   EQU    90017       END DECLARATIVES LABEL 
PSUB492   EQU    90018       FIPS USE AFTER FILE-NAME SERIES ROUTINE
PSUB406   EQU    90019       USING IDENTIFIER ROUTINE 
PSUB407   EQU    90020       USE AFTER INPUT
PSUB408   EQU    90021       USE AFTER OUTPUT 
PSUB409   EQU    90022       USE AFTER EXTEND 
PSUB410   EQU    90023       USE AFTER I O
PSUB411   EQU    90024       USE AFTER FILE NAME
PSUB412   EQU    90025       SET ROUTINE
PSUB413   EQU    90026       SET UP BY ROUTINE
PSUB414   EQU    90027       SET DOWN BY ROUTINE
PSUB415   EQU    90028       SET ON R 
PSUB416   EQU    90029       SET OFF R
PSUB417   EQU    90030       SET EPILOGUE 1 
PSUB418   EQU    90031       SET EPILOGUE 2 
PSUB419   EQU    90032       SET SORT R 
PSUB420   EQU    90033       SET MERGE R
PSUB421   EQU    90034       SET SORT MERGE R 
PSUB422   EQU    90035       SET PROGRAM R
PSUB423   EQU    90036       SET CODE SET R 
PSUB424   EQU    90037       SET ALL FILES R
PSUB425   EQU    90038       SET EPILOGUE 3 
PSUB426   EQU    90039       SET FILE NAME R
PSUB479   EQU    90041       USE ACCESS CONTROL INPUT 
PSUB480   EQU    90042       USE ACCESS CONTROL INPUT I-O 
PSUB481   EQU    90043       USE ACCESS CONTROL REALMS
PSUB482   EQU    90044       USE ACCESS CONTROL REALM-NAME
PSUB483   EQU    90045       USE DEADLOCK REALMS
PSUB484   EQU    90046       USE DEADLOCK REALM-NAME
PSUB485   EQU    90047       USE ACCESS CONTROL EPILOGUE
PSUB486   EQU    90040       USE ACCESS CONTROL I-O 
PSUB487   EQU    90048       USE ACCESS CONTROL KEY 
PSUB522   EQU    90049       SAVE IDENTIF DESCRIP SRCHALL PROLOGUE
PSUB523   EQU    90050       RESTORE IDENTIF DESCRIP
PSUB524   EQU    90051       RESTORE SEARCH ALL ADDRESSES 
* END OF SUBS FOR SET 9 
PSUB427   EQU    100001      USE FOR DEBUG IDENTIFIER 
PSUB428   EQU    100002      USE FOR DEBUG PROCEDURE
PSUB429   EQU    100003      USE FOR DEBUG ALL PROCEDURES 
PSUB430   EQU    100004      USE FOR DEBUG ALL IDENT
PSUB431   EQU    100005      DEBUG ITEM ROUTINE 
PSUB432   EQU    100006      KEEP SUBSCRIPTS
PSUB433   EQU    100007     CHECK FOR PROC OR IDENT 
PSUB434   EQU    100008     USE FOR DEBUG SPECIAL REGISTER
PSUB59    EQU    100010       STATEMENT DEBUG ROUTINE 
PSUB439   EQU    100013     SEGMENTATION DEBUG ROUTINE
PSUB440   EQU    100014      WITH CONVERSION ROUTINE
PSUB441   EQU    100015      DEBUG PROLOGUE 
PSUB442   EQU    100016      PROCEDURE DEBUG ROUTINE
PSUB443   EQU    100017      ALTER DEBUG ROUTINE
PSUB444   EQU    100018      GOTO DEBUG ROUTINE 
PSUB445   EQU    100019      HASHING ROUTINE
PSUB446   EQU    100020      EN DIS DEBUG ROUTINE 
PSUB447   EQU    100021      SEND DEBUG ROUTINE 
PSUB448   EQU    100022      RECEIVE DEBUG ROUTINE
PSUB450   EQU    100024      ACCEPT DEBUG ROUTINE 
PSUB451   EQU    100025      STORE DEBUG NAME 
PSUB452   EQU    100026      DEBUG MOD INITIALIZATION 
PSUB453   EQU    100027      GOTO DEPEN DEBUG ROUTINE 
PSUB454   EQU    100028      PERFORM S DEBUG ROUTINE
PSUB455   EQU    100029      PERFORM T DEBUG ROUTINE
PSUB457   EQU    100031      PERFORM V DEBUG ROUTINE
PSUB458   EQU    100032      SET DEBUG FLAG 
PSUB459   EQU    100033      SORT DEBUG ROUTINE 
PSUB460   EQU    100034      MERGE DEBUG ROUTINE
PSUB479A  EQU    100011      RECEIVE ND DEBUG PROLOGUE
PSUB480A  EQU    100012      RECEIVE ND DEBUG EPILOGUE
PSUB461   EQU    100035      RW DEBUG ROUTINE 
* 
PPTABLE   SETUP     PPVERBS,PP6BITS 
SETNO       EQU   0 
           USE    PPGTEXT 
PPGTEXT    EQU    *L
           ENTRY  PPGTEXT 
           USE    PPTABLE 
* 
          TITLE     MASTER TABLE
M1L0      SUBROUT   PSUB1 LOCAL INITIALIZATION
          CLRFLAG   21
          CLRFLAG   26 UBR SECTION
          CLRFLAG   29 DEBUGGING MODE FLAG
          CLRFLAG   27 LINE COUNTER 
          CLRFLAG   28 LINAGE COUNTER 
          RESWORD   PROCEDUR
          FDIAGNOS  T,593 
          FBRANCH   M1L0A 
          AAREA 
          SUBROUT   PSUB10 LINE AND COLUMN
          RESWORD   DIVISION
          FDIAGNOS  T,594 
M1L0A     SUBROUT   PSUB399 PROC DIV PROLOGUE,9 
          CLRFLAG    5 (AFLAG)
          BRANRET    M2 (USING) 
          SUBROUT   PSUB400 PROC DIV EPILOGUE,9 
          PERIOD
          FDIAGNOS  T,42,LASTATOM 
          RESWORD   DECLARTV
          FBRANCH   M1L1A 
          AAREA 
          SETFLAG   21
          SETFLAG   22 DEBUGFLAG1 
          CLRFLAG   23 ALLPROCS FLAG
          PERIOD
          FDIAGNOS  T,857 
          SUBROUT   PSUB401 DECLARATIVES ROUTINE,9
          SUBROUT   PSUB452 DEBUG MOD INITIALIZATION,10 
          ENDDECL 
          TBRANCH   M1L10 
M1L1A     SNDEF 
          TBRANCH   M1L6
          SUBROUT   PSUB2 SN TEST 
          SETTFFL 
          FDIAGNOS  T,43
          BRANCH    M1L1
M1L3      PERIOD
          TSUBROUT  PSUB67 PERIOD ROUTINE 
          TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB59 STATEMENT DEBUG ROUTINE
M1L1      SUBROUT   PSUB3 ACCEPT GTEXT
M1L2      STAMENT   SEMICOPT
          TBRANCH   M1L3
          ERRBRAN   M1L4
          PNDEF 
          TSUBROUT  PSUB67 PERIOD ROUTINE 
          TBRANCH   M1L5
          SNDEF 
          TSUBROUT  PSUB67 PERIOD ROUTINE 
          TBRANCH   M1L6
          ENDOFFI 
          TSUBROUT  PSUB67 PERIOD ROUTINE 
          TBRANCH   EOF 
          RESWORD   DECLARTV
          TSUBROUT  PSUB67 PERIOD ROUTINE 
          TBRANCH   M1L9
          ENDDECL 
          TSUBROUT  PSUB67 PERIOD ROUTINE 
          TBRANCH   M1L10 
          BRANRET   GARBAGE 
          BRANRET   ADVANCE1
          PERIOD
          TSUBROUT  PSUB67 PERIOD ROUTINE 
          ALWDIAG 
          BRANCH    M1L2
M1L4      ALWDIAG 
          BRANRET   ADVANCE1
          PERIOD
          TSUBROUT  PSUB67 PERIOD ROUTINE 
          SUBROUT   PSUB5 DELETE GTEXT
          BRANCH    M1L2
M1L5      SUBROUT   PSUB6 PNDEF ROUTINE 
          TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB442 PROCEDURE DEBUG ROUTINE,10
          PERIOD
          FDIAGNOS  T,44,LASTATOM 
          BRANCH    M1L1
M1L6      CLRFLAG   26 UBR SECTION
          SUBROUT   PSUB7 SNDEF ROUTINE 
          TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB442 PROCEDURE DEBUG ROUTINE,10
          ALLOW     SECTION 
          LITERAL 
          FBRANCH   M1L6A 
          TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB439 SEGMENTATION DEBUG ROUTINE,10 
M1L6A     PERIOD
          FDIAGNOS  T,45,LASTATOM 
          TSTFLAG   21
          FBRANCH   M1L1
          SUBROUT   PSUB3 ACCEPT GTEXT
          SUBROUT   PSUB56 SET TEMP BASE OFFSET 
          BRANRET   GOODUSE 
          TBRANCH   M1L8
          ERRBRAN   M1L4
          DIAGNOS   S,852 
          BRANCH    M1L4
M1L8      PERIOD
          FDIAGNOS  T,854 
          BRANCH    M1L1
M1L9      AAREA 
          DIAGNOS   S,855 
          TSTFLAG   21
          TDIAGNOS  S,850 
          SETFLAG   21
          PERIOD
          FDIAGNOS  T,857 
          SUBROUT   PSUB401 DECLARATIVES ROUTINE,9
          BRANCH    M1L1
M1L10     AAREA 
          TSTFLAG   21
          FDIAGNOS  S,851 
          CLRFLAG   21
          CLRFLAG   22 DEBUGFLAG1 
          SETFLAG   23 ALLPROCS FLAG
          ALLOW     DECLARTV
          PERIOD
          FDIAGNOS  T,856 
          SUBROUT   PSUB402 END DECLARATIVES ROUTINE,9
          SUBROUT   PSUB56 SET TEMP BASE OFFSET 
          SNDEF 
          SUBROUT   PSUB7 SNDEF ROUTINE 
          ALLOW     SECTION 
          PERIOD
          PNDEF 
          SUBROUT   PSUB6 PNDEF ROUTINE 
          SUBROUT   PSUB477 END DECLARATIVES LABEL
          PERIOD
          BRANCH    M1L1A 
          TITLE     EOF TABLE 
EOF       SUBROUT   PSUB9 UPDATE CCT ROUTINE
          STOP
          TITLE     USING TABLE 
M2        RESWORD     USING 
          FRETURNX
          TSTFLAG   FIPS2 
          FDIAGNOS  T,409,LASTATOM
          BRANRET   IDENTIF2
          FDSR      S,80
M2L1      SUBROUT   PSUB406 USING IDENTIFIER ROUTINE
          BRANRET   COMIDEN2
          FRETURNX
          BRANCH    M2L1
          TITLE     LITERAL TABLE 
LITERAL   LITERAL 
          TSUBROUT  PSUB17 REAL LIVE LITERAL
          TRETURNX
          RESWORD   ALL 
          FRETURNX
          BRANCH    W15L1 
COMLITRL  LITERAL   COMMAOPT
          TSUBROUT  PSUB17 REAL LIVE LITERAL
          TRETURNX
          COMMARW   ALL 
          FRETURNX
W15L1     LITERAL 
          FDSR      S,59
          SUBROUT   PSUB17 REAL LIVE LITERAL
          SUBROUT   PSUB45 ALL LITERAL ROUTINE
          TSTFLAG   FIPS3 
          FDIAGNOS  T,408,LASTATOM
          RETTRUE 
          TITLE     REF TABLE 
REF       DNREF 
          TSUBROUT  PSUB53 REF ROUTINE
          TRETURNX
          TSTFLAG   43 SPECIAL REGISTER 
          FRETURNX
          LINECTR 
          TSETFLAG  27 LINE COUNTER 
          TSUBROUT  PSUB12 STACK DEBUG ELEMENT
          TRETURNX
          PAGECTR 
          TSUBROUT  PSUB12 STACK DEBUG ELEMENT
          TRETURNX
          LNGCTR
          TSETFLAG  28 LINAGE COUNTER 
          TSUBROUT  PSUB12 STACK DEBUG ELEMENT
          TRETURNX
          HASH
          TSUBROUT  PSUB53 REF ROUTINE
          TDIAGRET  J,458,LASTATOM
          DBUGITM 
          TSUBROUT  PSUB431 DEBUG ITEM ROUTINE
          RETURNX 
COMMAREF  DNREF     COMMAOPT
          TSUBROUT  PSUB53 REF ROUTINE
          TRETURNX
          TSTFLAG   43 SPECIAL REGISTER 
          FRETURNX
          LINECTR   COMMAOPT
          TSETFLAG  27 LINE COUNTER 
          TRETURNX
          PAGECTR   COMMAOPT
          TRETURNX
          LNGCTR    COMMAOPT
          TSETFLAG  28 LINAGE COUNTER 
          TRETURNX
          HASH      COMMAOPT
          TSUBROUT  PSUB53 REF ROUTINE
          TRETURNX
          DBUGITM   COMMAOPT
          TSUBROUT  PSUB431 DEBUG ITEM ROUTINE
          RETURNX 
          TITLE     IDENTIF TABLE 
IDENTIF2  DNREF 
          FBRANCH   W20L1 
          SUBROUT   PSUB53 REF ROUTINE
          SUBROUT   PSUB11 DATA NAME ROUTINE
          LFTPARN 
          FSUBROUT  PSUB488 NO SUBSCRIPTS ROUTINE 
          FRETTRUE
          KEEP
          SUBROUT   PSUB507 M-NUMBER PROLOGUE 
          BRANRET   SUBSCRS 
          ERRETRN 
          SETFLAG   44 REFMOD 
          BRANRET   REFMOD
          CLRFLAG   44 REFMOD 
          SUBROUT   PSUB508 M-NUMBER EPILOGUE 
          ERRETRN 
          RETTRUE 
W20L1     TSTFLAG   43 SPECIAL REGISTER 
          FRETURNX
          BRANRET   REF 
          SUBROUT   PSUB11 DATA NAME ROUTINE
          RETTRUE 
COMIDEN2  DNREF     COMMAOPT
          FBRANCH   W20L2 
          SUBROUT   PSUB53 REF ROUTINE
          SUBROUT   PSUB11 DATA NAME ROUTINE
          LFTPARN 
          FSUBROUT  PSUB488 NO SUBSCRIPTS ROUTINE 
          FRETTRUE
          KEEP
          SUBROUT   PSUB507 M-NUMBER PROLOGUE 
          BRANRET   SUBSCRS 
          ERRETRN 
          SETFLAG   44 REFMOD 
          BRANRET   REFMOD
          CLRFLAG   44 REFMOD 
          SUBROUT   PSUB508 M-NUMBER EPILOGUE 
          ERRETRN 
          RETTRUE 
W20L2     TSTFLAG   43 SPECIAL REGISTER 
          FRETURNX
          BRANRET   COMMAREF
          SUBROUT   PSUB11 DATA NAME ROUTINE
          RETTRUE 
LITORID   BRANRET   IDENTIF 
          ERRETRN 
          FBRANRET  LITERAL 
          RETURNX 
COMLITID  BRANRET   COMIDEN 
          TRETURNX
          ERRETRN 
          BRANRET   COMLITRL
          RETURNX 
IDENTIF   CLRFLAG   30 IDENTIFIER2
          BRANRET   IDENTIF2
          SETFLAG   30 IDENTIFIER2
          TSUBROUT  PSUB518 MOVE SUBSCRIPTS ROUTINE 
          RETURNX 
COMIDEN   CLRFLAG   30 IDENTIFIER2
          BRANRET   COMIDEN2
          SETFLAG   30
          TSUBROUT  PSUB518 MOVE SUBSCRIPTS ROUTINE 
          RETURNX 
LITORID2  BRANRET   IDENTIF2
          ERRETRN 
          FBRANRET  LITERAL 
          RETURNX 
COMLTID2  BRANRET   COMIDEN2
          TRETURNX
          ERRETRN 
          BRANRET   COMLITRL
          RETURNX 
SERIESID  BRANRET   COMIDEN 
          FRETURNX
          TSTFLAG   FIPS3 
          FDIAGNOS  T,413,LASTATOM
          RETTRUE 
BOOLID2   DNREF 
          FRETURNX
          SUBROUT   PSUB513 BOOLEAN DATA NAME ROUTINE 
          SETTFFL 
          KEEP
          FRETURNX
          BRANRET   IDENTIF2
          RETURNX 
          TITLE     SUBSCRS TABLE 
SUBSCRS   CLRFLAG   34 SECONDARY STORAGE
          SUBROUT   PSUB30 SUBSCRIPT PROLOGUE 
          SETTFFL 
          FRETTRUE
          LFTPARN 
          FBRANCH   W2L2
          INTEGER 
          TBRANCH   W2L3
          BRANRET   REF 
          TBRANCH   W2L4
          DSR       S,23
W2L1      INTEGER   COMMAOPT
          TBRANCH   W2L3
          BRANRET   COMMAREF
          TBRANCH   W2L4
          RTPARN
          FDSR      S,23
W2L2      SUBROUT   PSUB32 SUBSCRIPT EPILOGUE 
          RETTRUE 
W2L3      SUBROUT   PSUB33 LITERAL SUBSCRIPT ROUTINE
          BRANCH    W2L1
W2L4      SUBROUT   PSUB34 TEST FOR INDEX NAME
          SETTFFL 
          FSUBROUT  PSUB35 DATA NAME SUBSCRIPT ROUTINE
          SETFLAG   47 USEING SUBSCRIPTED VARIABLE PARAM FLAG 
          FBRANCH   W2L1
          BRANRET   RELINDX 
          TBRANCH   W2L1
          RETURNX 
          TITLE     RELINDX TABLE 
RELINDX   SUBROUT   PSUB36 INDEX NAME ROUTINE 
          PLUS
          TBRANCH   W2L5
          MINUS 
          FRETTRUE
          INTEGER 
          FBRANCH   W2L6
          SUBROUT   PSUB37 MINUS RELATIVE INDEX 
          RETURNX 
W2L5      INTEGER 
          TSUBROUT  PSUB38 PLUS RELATIVE INDEX
          TRETURNX
W2L6      RESWORD   ZERO
          TRETURNX
          DSR       S,24
          EJECT 
REFMOD    LFTPARN 
          FRETURNX
          SUBROUT   PSUB502 REFERENCE MODIFICATION PROLOGUE 
          BRANRET   ARITHEXP
          FDSR      S,474 
          COLON 
          FDSR     S,475
          SUBROUT   PSUB503 REFERENCE MODIFICATION START ROUTINE
          RESWORD   END 
          TSUBROUT  PSUB504 REFERENCE MODIFICATION END ROUTINE
          TBRANCH   W2L7
          BRANRET   ARITHEXP
          FDSR      S,476 
          SUBROUT   PSUB505 REFERENCE MODIFICATION LENGTH ROUTINE 
W2L7      RTPARN
          FDSR      S,477 
          SUBROUT   PSUB506 REFERENCE MODIFICATION EPILOGUE 
          RETURNX 
          TITLE     ARITHEXP TABLE
ARITHEXP  SUBROUT   PSUB79 FORMULA INITIALIZATION 
          BRANRET   FORMULA 
          RETURNX 
FORMULA   BRANRET   TERM
          FRETURNX
W3L1      PLUS
          TBRANRET  FIPSXYZ 
          TBRANCH   W3L2
          MINUS 
          TBRANRET  FIPSXYZ 
          FRETTRUE
          BRANRET   TERM
          TSUBROUT  PSUB80 SUBTRACT TERM ROUTINE
          TBRANCH   W3L1
          DSR       S,21
W3L2      BRANRET   TERM
          TSUBROUT  PSUB81 ADD TERM ROUTINE 
          TBRANCH   W3L1
          DSR       S,20
          TITLE     TERM TABLE
TERM      BRANRET   GROUP 
          FRETURNX
W3L3      STAR
          TBRANRET  FIPSXYZ 
          TBRANCH   W3L4
          SLASH 
          TBRANRET  FIPSXYZ 
          FRETTRUE
          BRANRET   GROUP 
          TSUBROUT  PSUB82 DIVIDE GROUP ROUTINE 
          TBRANCH   W3L3
          DSR       S,19
W3L4      BRANRET   GROUP 
          TSUBROUT  PSUB83 MULTIPLY GROUP ROUTINE 
          TBRANCH   W3L3
          DSR       S,18
GROUP     BRANRET   PRIMARY 
          FRETURNX
W3L5      EXPONEN 
          TBRANRET  FIPSXYZ 
          FRETTRUE
          BRANRET   PRIMARY 
          TSUBROUT  PSUB84 EXPONENTIATE PRIMARY ROUTINE 
          TBRANCH   W3L5
          DSR       S,17
          TITLE     PRIMARY TABLE 
PRIMARY   MINUS 
          TBRANRET  FIPSXYZ 
          TBRANCH   W3L6
          PLUS    * THIS ALLOWS FORUNARY PLUS 
          TBRANRET  FIPSXYZ 
          BRANRET   PPRIMARY
          RETURNX 
W3L6      BRANRET   PPRIMARY
          TSUBROUT  PSUB85 UNARY MINUS
          TRETURNX
          DSR       S,22
PPRIMARY  LFTPARN 
          TBRANCH   W3L7
          BRANRET   IDENTIF2
          TRETURNX
          ERRETRN 
          BRANRET   LITERAL 
          RETURNX 
W3L7      BRANRET   FORMULA 
          FDSR      S,25
          RTPARN
          TRETURNX
          DSR       S,16
          TITLE     AUXFORMU TABLE
AUXFORMU  BRANCH    W4L1
W4L1      EXPONEN 
          TBRANRET  FIPSXYZ 
          TBRANCH   W4L4
W4L2      STAR
          TBRANRET  FIPSXYZ 
          TBRANCH   W4L5
          SLASH 
          TBRANRET  FIPSXYZ 
          TBRANCH   W4L6
W4L3      PLUS
          TBRANRET  FIPSXYZ 
          TBRANCH   W4L7
          MINUS 
          TBRANRET  FIPSXYZ 
          TBRANCH   W4L8
          RETTRUE 
W4L4      BRANRET   PRIMARY 
          TSUBROUT  PSUB84 EXPONENTIATE PRIMARY ROUTINE 
          TBRANCH   W4L1
          DSR       S,17
W4L5      BRANRET   GROUP 
          TSUBROUT  PSUB83 MULTIPLY GROUP ROUTINE 
          TBRANCH   W4L2
          DSR       S,18
W4L6      BRANRET   GROUP 
          TSUBROUT  PSUB82 DIVIDE GROUP ROUTINE 
          TBRANCH   W4L2
          DSR       S,19
W4L7      BRANRET   TERM
          TSUBROUT  PSUB81 ADD TERM ROUTINE 
          TBRANCH   W4L3
          DSR       S,20
W4L8      BRANRET   TERM
          TSUBROUT  PSUB80 SUBTRACT TERM ROUTINE
          TBRANCH   W4L3
          DSR       S,21
          TITLE BOOLEXP 
BOOLEXP   SUBROUT   PSUB534 BOOLEAN FORMULA INITIALIZATION
          BRANRET   BFORMULA
          RETURNX 
BFORMULA  BRANRET   BTERM 
          FRETURNX
W21L1     RESWORD   BOOLOR
          TBRANCH   W21L2 
          RESWORD   BOOLEXOR
          FRETTRUE
          BRANRET   BTERM 
          TSUBROUT  PSUB509 BOOLEAN EXOR ROUTINE
          TBRANCH   W21L1 
          DSR       S,482 
W21L2     BRANRET   BTERM 
          TSUBROUT  PSUB510 BOOLEAN OR ROUTINE
          TBRANCH   W21L1 
          DSR       S,483 
BTERM     BRANRET   BPRIMARY
          FRETURNX
W21L3     RESWORD   BOOLAND 
          FRETTRUE
          BRANRET   BPRIMARY
          TSUBROUT  PSUB511 BOOLEAN AND ROUTINE 
          TBRANCH   W21L3 
          DSR       S,484 
BPRIMARY  RESWORD   BOOLNOT 
          TBRANCH   W21L4 
          BRANRET   BPPRIMRY
          RETURNX 
W21L4     BRANRET   BPPRIMRY
          TSUBROUT  PSUB512 BOOLEAN NOT ROUTINE 
          TRETURNX
          DSR       S,485 
BPPRIMRY  LFTPARN 
          TBRANCH   W21L5 
          BRANRET   BOOLID2 
          TRETURNX
          ERRETRN 
          RESWORD   ALL 
          FBRANCH   W21L8 
          LITERAL 
          FKEEP 
          FRETURNX
          SUBROUT   PSUB514 BOOLEAN LITERAL ROUTINE 
          SETTFFL 
          FKEEP 
          FKEEP 
          FRETURNX
          SUBROUT   PSUB17 REAL LIVE LITERAL
          SUBROUT   PSUB45 ALL LITERAL ROUTINE
          RETURNX 
W21L8     LITERAL 
          FRETURNX
          SUBROUT   PSUB514 BOOLEAN LITERAL ROUTINE 
          SETTFFL 
          FKEEP 
          FRETURNX
          SUBROUT   PSUB17 REAL LIVE LITERAL
          RETURNX 
W21L5     BRANRET   BFORMULA
          FDSR      S,486 
          RTPARN
          TRETURNX
          DSR       S,487 
          TITLE     AUXBOOL 
AUXBOOL   RESWORD   BOOLAND 
          FBRANCH   W21L6 
          BRANRET   BPRIMARY
          TSUBROUT  PSUB511 BOOLEAN AND ROUTINE 
          TBRANCH   AUXBOOL 
          DSR       S,484 
W21L6     RESWORD   BOOLOR
          FBRANCH   W21L7 
          BRANRET   BTERM 
          TSUBROUT  PSUB510 BOOLEAN OR ROUTINE
          TBRANCH   W21L6 
          DSR       S,483 
W21L7     RESWORD   BOOLEXOR
          FRETTRUE
          BRANRET   BTERM 
          TSUBROUT  PSUB509 BOOLEAN EXOR ROUTINE
          TBRANCH   W21L6 
          DSR       S,482 
          TITLE     CONDITION TABLE 
CONDTION  BRANRET   LGCLNOT 
          TSUBROUT  PSUB86 NOT ROUTINE
          BRANRET   CONNAME 
          TBRANCH   W5L3
          ERRETRN 
          LFTPARN 
          TSUBROUT  PSUB87 LEFT ROUTINE 
          TBRANCH   W5L1
          BRANRET   RELOPTOR
          TBRANCH   W5L5
          ERRETRN 
          BRANRET   ZSPECIAL
          TBRANCH   W5L3
          ERRETRN 
          BRANRET   BOOLEXP 
          TBRANCH   W5L10 
          ERRETRN 
          BRANRET   IDENTIF2
          TBRANCH   W5L8
          ERRETRN 
          BRANRET   ARITHEXP
          TBRANCH   W5L2
          RETURNX 
W5L1      BRANRET   CONFORMU
          FDSR      S,9 
          TSTFLAG   CFLAG CONDITION 
          TBRANCH   W5L6
          TSTFLAG   BFLAG BOOLEAN EXPRESSION
          TBRANCH   W5L9
          RTPARN
          FDSR      S,16
          SUBROUT   PSUB110 UNSTACK LEFT ROUTINE
          BRANRET   AUXFORMU
          FRETURNX
W5L2      BRANRET   RELSINOP
          TBRANCH   W5L3
          ERRETRN 
          SUBROUT   PSUB75 OBJECT ROUTINE 
          SETTFFL 
          FDSR      S,1 
          SUBROUT   PSUB76 OUTPUT RELATION ROUTINE
          SETTFFL 
          FDSR      S,40
          TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB59 STATEMENT DEBUG ROUTINE,1
          SUBROUT   PSUB476 RELATION GTEXT ROUTINE
W5L3      BRANRET   ANDORCON
          RETURNX 
W5L5      BRANRET   ARITHEXP
          FDSR      S,10
          SUBROUT   PSUB75 OBJECT ROUTINE 
          SETTFFL 
          FDSR      S,1 
          SUBROUT   PSUB76 OUTPUT RELATION ROUTINE
          SETTFFL 
          FDSR      S,40
          TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB59 STATEMENT DEBUG ROUTINE,1
          SUBROUT   PSUB476 RELATION GTEXT ROUTINE
          BRANCH    W5L3
W5L6      BRANRET   ANDORCON
          FRETURNX
          RTPARN
          TSUBROUT  PSUB88 RIGHT ROUTINE
          TBRANCH   W5L3
          DSR       S,11
W5L8      BRANRET   RELCLSIN
          TBRANCH   W5L3
          ERRETRN 
          SUBROUT   PSUB79 FORMULA INITIALIZATION 
          BRANRET   AUXFORMU
          ERRETRN 
          BRANCH    W5L2
W5L9      RTPARN
          FDSR      S,487 
          SUBROUT   PSUB110 UNSTACK LEFT ROUTINE
          BRANRET   AUXBOOL 
          FRETURNX
W5L10     BRANRET   BOOLOP
          FDSR      S,488 
          BRANRET   BOOLOBJ 
          TBRANCH   W5L3
          RETURNX 
          TITLE     CONFORMU TABLE
CONFORMU  BRANRET   LGCLNOT 
          TBRANCH   W6L1
          BRANRET   CONNAME 
          TBRANCH   XA2 
          ERRETRN 
          LFTPARN 
          TBRANCH   W6L2
          BRANRET   RELOPTOR
          TBRANCH   W6L6
          ERRETRN 
          BRANRET   ZSPECIAL
          TBRANCH   XA2 
          ERRETRN 
          BRANRET   BOOLEXP 
          TBRANCH   W6L12 
          ERRETRN 
          BRANRET   IDENTIF2
          TBRANCH   W6L10 
          ERRETRN 
          BRANRET   ARITHEXP
          TBRANCH   W6L3
          RETURNX 
W6L1      SUBROUT   PSUB86 NOT ROUTINE
          BRANRET   RELOPTOR
          TBRANCH   W6L6
          ERRETRN 
          BRANRET   CONDTION
          TBRANCH   XA2 
          DSR       S,15
W6L2      SUBROUT   PSUB87 LEFT ROUTINE 
          BRANRET   CONFORMU
          FDSR      S,9 
          TSTFLAG   CFLAG CONDITION 
          TBRANCH   W6L8
          TSTFLAG   BFLAG BOOLEAN EXPRESSION
          TBRANCH   W6L11 
          RTPARN
          FDSR      S,16
          SUBROUT   PSUB110 UNSTACK LEFT ROUTINE
          BRANRET   AUXFORMU
          FRETURNX
W6L3      BRANRET   RELSINOP
          TBRANCH   XA2 
          ERRETRN 
          RESWORD   AND 
          TBRANCH   W6L4
          RESWORD   OR
          FBRANCH   XA1 
          TSTFLAG   FIPS3 
          FDIAGNOS  T,411,LASTATOM
          SUBROUT   PSUB75 OBJECT ROUTINE 
          SETTFFL 
          FDSR      S,1 
          SUBROUT   PSUB76 OUTPUT RELATION ROUTINE
          SETTFFL 
          FDSR      S,40
          TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB59 STATEMENT DEBUG ROUTINE,1
          SUBROUT   PSUB476 RELATION GTEXT ROUTINE
          SUBROUT   PSUB89 OR ROUTINE 
          BRANCH    W6L5
W6L4      TSTFLAG   FIPS3 
          FDIAGNOS  T,411,LASTATOM
          SUBROUT   PSUB75 OBJECT ROUTINE 
          SETTFFL 
          FDSR      S,1 
          SUBROUT   PSUB76 OUTPUT RELATION ROUTINE
          SETTFFL 
          FDSR      S,40
          TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB59 STATEMENT DEBUG ROUTINE,1
          SUBROUT   PSUB476 RELATION GTEXT ROUTINE
          SUBROUT   PSUB90 AND ROUTINE
W6L5      BRANRET   CONDTION
          TBRANCH   XA2 
          DSR       S,14
W6L6      BRANRET   FORMULA 
          FDSR      S,10
          SUBROUT   PSUB75 OBJECT ROUTINE 
          SETTFFL 
          FDSR      S,1 
          SUBROUT   PSUB76 OUTPUT RELATION ROUTINE
          SETTFFL 
          FDSR      S,40
          TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB59 STATEMENT DEBUG ROUTINE,1
          SUBROUT   PSUB476 RELATION GTEXT ROUTINE
          BRANCH    XA2 
W6L8      BRANRET   ANDORCON
          FRETURNX
          RTPARN
          TSUBROUT  PSUB88 RIGHT ROUTINE
          TBRANCH   XA2 
          DSR       S,11
XA2       SETFLAG   CFLAG CONDITION 
          CLRFLAG   BFLAG BOOLEAN EXPRESSION
          RETTRUE 
XA1       CLRFLAG   CFLAG CONDITION 
          CLRFLAG   BFLAG BOOLEAN EXPRESSION
          RETTRUE 
XA1        SUBROUT   PSUB92 SET XFLAG XA1 
          RETTRUE 
W6L10     BRANRET   RELCLSIN
          TBRANCH   XA2 
          ERRETRN 
          SUBROUT   PSUB79 FORMULA INITIALIZATION 
          BRANRET   AUXFORMU
          ERRETRN 
          BRANCH    W6L3
W6L11     RTPARN
          FDSR      S,487 
          SUBROUT   PSUB110 UNSTACK LEFT ROUTINE
          BRANRET   AUXBOOL 
          BRANRET   BOOLOP
          TBRANCH   W6L13 
          SETFLAG   BFLAG BOOLEAN EXPRESSION
          CLRFLAG   CFLAG CONDITION 
          RETTRUE 
W6L12     BRANRET   BOOLOP
          TBRANCH   W6L13 
          SETFLAG   BFLAG BOOLEAN EXPRESSION
          CLRFLAG   CFLAG CONDITION 
          RETTRUE 
W6L13     BRANRET   BOOLOBJ 
          TBRANCH   XA2 
          RETURNX 
          TITLE     ANDORCON TABLE
ANDORCON  RESWORD   AND 
          TSUBROUT  PSUB90 AND ROUTINE
          TBRANCH   W7L1
          RESWORD   OR
          FRETTRUE
          SUBROUT   PSUB89 OR ROUTINE 
W7L1      TSTFLAG   FIPS3 
          FDIAGNOS  T,411,LASTATOM
          BRANRET   CONDTION
          TRETURNX
          DSR       S,14
          TITLE     LGCLNOT  TABLE
LGCLNOT   RESWORD   NOT 
          FRETURNX
          RESWORD   GREATER 
          FRESWORD  LESS
          FRESWORD  EQUAL 
          FEQUALS 
          FLSTHAN 
          FGRTHAN 
          TKEEP 
          TKEEP 
          TRETFALS
          TSTFLAG   FIPS3 
          FDIAGNOS  T,411,LASTATOM
          RETTRUE 
          TITLE     CONNAME  TABLE
CONNAME   CONNAME 
          FRETURNX
          TSTFLAG   FIPS3 
          FDIAGNOS  T,407,LASTATOM
          SUBROUT   PSUB111 ON OFF ROUTINE
          SETTFFL 
          TRETURNX
          SUBROUT   PSUB77 CONDITION NAME ROUTINE 
          SETTFFL 
          FDSR      P,180,LASTATOM
          SUBROUT   PSUB507 M-NUMBER PROLOGUE 
          BRANRET   SUBSCRS 
          SUBROUT   PSUB508 M-NUMBER EPILOGUE 
          ERRETRN 
          SUBROUT   PSUB93 CN SUBJECT ROUTINE 
          SUBROUT   PSUB87 LEFT ROUTINE 
          CNCTXT
          BRANRET   LITERAL 
          BRANCH    W8L2
W8L1      BRANRET   COMLITRL
          FBRANCH   W8L4
          SUBROUT   PSUB89 OR ROUTINE 
W8L2      SUBROUT   PSUB78 CONDITION NAME LITERAL 
          RESWORD   THRU
          TBRANCH   W8L3
          SUBROUT   PSUB94 RELATIONAL NOT ABSENT
          SUBROUT   PSUB95 EQUAL ROUTINE
          SUBROUT   PSUB112 CN OUTPUT RELATION
          TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB59 STATEMENT DEBUG ROUTINE,1
          SUBROUT   PSUB476 RELATION GTEXT ROUTINE
          BRANCH    W8L1
W8L3      SUBROUT   PSUB87 LEFT ROUTINE 
          SUBROUT   PSUB96 RELATIONAL NOT PRESENT 
          SUBROUT   PSUB97 LESS THAN ROUTINE
          SUBROUT   PSUB112 CN OUTPUT RELATION
          TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB59 STATEMENT DEBUG ROUTINE,1
          SUBROUT   PSUB476 RELATION GTEXT ROUTINE
          SUBROUT   PSUB90 AND ROUTINE
          BRANRET   LITERAL 
          SUBROUT   PSUB78 CONDITION NAME LITERAL 
          SUBROUT   PSUB96 RELATIONAL NOT PRESENT 
          SUBROUT   PSUB98 GREATER THAN ROUTINE 
          SUBROUT   PSUB112 CN OUTPUT RELATION
          TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB59 STATEMENT DEBUG ROUTINE,1
          SUBROUT   PSUB476 RELATION GTEXT ROUTINE
          SUBROUT   PSUB88 RIGHT ROUTINE
          BRANCH    W8L1
W8L4      SUBROUT   PSUB88 RIGHT ROUTINE
          FCTXTRET
          SUBROUT   PSUB99 RELEASE SUBJECT ROUTINE
          RETTRUE 
          TITLE     RELOPTOR TABLE
RELOPTOR  SUBROUT   PSUB94 RELATIONAL NOT ABSENT
          RESWORD   EQUALS
          TDIAGNOS  J,285,LASTATOM
          TSUBROUT  PSUB95 EQUAL ROUTINE
          TRETURNX
          RESWORD   EXCEEDS 
          TDIAGNOS  J,286,LASTATOM
          TSUBROUT  PSUB98 GREATER THAN ROUTINE 
          TRETURNX
          RESWORD   NOT 
          TBRANCH   W9L2
          RESWORD   IS
          TBRANCH   W9L1
          BRANRET   RELOP 
          RETURNX 
W9L1      RESWORD   NOT 
          TBRANCH   W9L2
          BRANRET   RELOP 
          TRETURNX
          BRANRET   INVRELOP
          TRETFALS
          FDSR      S,12
W9L2      BRANRET   NOTRELOP
          TRETURNX
          BRANRET   INVRELOP
          TRETFALS
          FDSR      S,13
          TITLE     RELSINOP TABLE
RELSINOP  SUBROUT   PSUB100 CLASS IS ILLEGAL
          BRANCH    W10L1 
RELCLSIN  SUBROUT   PSUB101 CLASS IS LEGAL
W10L1     SUBROUT   PSUB94 RELATIONAL NOT ABSENT
          RESWORD   EQUALS
          TDIAGNOS  J,285,LASTATOM
          TSUBROUT  PSUB95 EQUAL ROUTINE
          TBRANCH   W10L4 
          RESWORD   EXCEEDS 
          TDIAGNOS  J,286,LASTATOM
          TSUBROUT  PSUB98 GREATER THAN ROUTINE 
          TBRANCH   W10L4 
          RESWORD   NOT 
          TBRANCH   W10L3 
          RESWORD   IS
          TBRANCH   W10L2 
          BRANRET   RELOP 
          TBRANCH   W10L4 
          BRANRET   SINCLASS
          RETURNX 
W10L2     RESWORD   NOT 
          TBRANCH   W10L3 
          BRANRET   RELOP 
          TBRANCH   W10L4 
          BRANRET   SINCLASS
          TRETURNX
          DSR       S,12
W10L3     BRANRET   NOTRELOP
          TBRANCH   W10L4 
          BRANRET   NOTSINCL
          TRETURNX
          DSR       S,13
W10L4     SUBROUT   PSUB102 SUBJECT ROUTINE 
          BRANRET   ARITHEXP
          FDSR      S,10
          SUBROUT   PSUB75 OBJECT ROUTINE 
          SETTFFL 
          FDSR      S,1 
          SUBROUT   PSUB76 OUTPUT RELATION ROUTINE
          SETTFFL 
          FDSR      S,40
          TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB59 STATEMENT DEBUG ROUTINE,1
          SUBROUT   PSUB476 RELATION GTEXT ROUTINE
          RETTRUE 
          TITLE     NOTRELOP TABLE
NOTRELOP  SUBROUT   PSUB96 RELATIONAL NOT PRESENT 
RELOP     EQUALS
          TBRANRET  FIPSABC 
          TBRANCH   W12L2 
          LSTHAN
          TBRANRET  FIPSABC 
          TBRANCH   W12L4 
          GRTHAN
          TBRANRET  FIPSABC 
          TBRANCH   W12L6 
          RESWORD   EQUAL 
          FBRANCH   W12L3 
          ALLOW     TO
W12L2     SUBROUT   PSUB95 EQUAL ROUTINE
          RETTRUE 
W12L3     RESWORD   LESS
          FBRANCH   W12L5 
          ALLOW     THAN
W12L4     SUBROUT   PSUB97 LESS THAN ROUTINE
          RETTRUE 
W12L5     RESWORD   GREATER 
          FBRANCH   W12L7 
          ALLOW     THAN
W12L6     SUBROUT   PSUB98 GREATER THAN ROUTINE 
          RETTRUE 
W12L7     RESWORD   UNEQUAL 
          FRETURNX
          DIAGNOS   J,287,LASTATOM
          ALLOW     TO
          SUBROUT   PSUB103 UNEQUAL ROUTINE 
          RETTRUE 
          TITLE     INVRELOP TABLE
INVRELOP  RESWORD   POSITIVE
          TDSR      S,139,LASTATOM
          RESWORD   NEGATIVE
          TDSR      S,139,LASTATOM
          RESWORD   ZERO
          TDSR      S,139,LASTATOM
          RESWORD   NUMERIC 
          TDSR      S,140,LASTATOM
          RESWORD   ALPHABTC
          TDSR      S,140,LASTATOM
          RETURNX 
          TITLE     NOTSINCL TABLE
NOTSINCL  SUBROUT   PSUB96 RELATIONAL NOT PRESENT 
SINCLASS  RESWORD   POSITIVE
          TBRANCH   W14L1 
          RESWORD   NEGATIVE
          TBRANCH   W14L2 
          BRANRET   FIGZ
          TBRANCH   W14L3 
          RESWORD   NUMERIC 
          TBRANCH   W14L4 
          RESWORD   ALPHABTC
          TBRANCH   W14L5 
          RETURNX 
W14L1     SUBROUT   PSUB102 SUBJECT ROUTINE 
          SUBROUT   PSUB104 POSITIVE ROUTINE
          TSTFLAG   FIPS3 
          FDIAGNOS  T,410,LASTATOM
          TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB59 STATEMENT DEBUG ROUTINE,1
          SUBROUT   PSUB476 RELATION GTEXT ROUTINE
          SUBROUT   PSUB99 RELEASE SUBJECT ROUTINE
          RETTRUE 
W14L2     SUBROUT   PSUB102 SUBJECT ROUTINE 
          SUBROUT   PSUB105 NEGATIVE ROUTINE
          TSTFLAG   FIPS3 
          FDIAGNOS  T,410,LASTATOM
          TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB59 STATEMENT DEBUG ROUTINE,1
          SUBROUT   PSUB476 RELATION GTEXT ROUTINE
          SUBROUT   PSUB99 RELEASE SUBJECT ROUTINE
          RETTRUE 
W14L3     SUBROUT   PSUB102 SUBJECT ROUTINE 
          SUBROUT   PSUB106 ZERO ROUTINE
          TSTFLAG   FIPS3 
          FDIAGNOS  T,410,LASTATOM
          SETFLAG   SIGNFLAG
          SUBROUT   PSUB76 OUTPUT RELATION ROUTINE
          TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB59 STATEMENT DEBUG ROUTINE,1
          SUBROUT   PSUB476 RELATION GTEXT ROUTINE
          CLRFLAG   SIGNFLAG
          SUBROUT   PSUB99 RELEASE SUBJECT ROUTINE
          RETTRUE 
W14L4     SUBROUT   PSUB107 NUMERIC ROUTINE 
          SETTFFL 
          FDSR      S,138,LASTATOM
          TBRANCH   W14L6 
W14L5     SUBROUT   PSUB108 ALPHABETIC ROUTINE
          SETTFFL 
          FDSR      S,138,LASTATOM
W14L6     TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB59 STATEMENT DEBUG ROUTINE,1
          SUBROUT   PSUB476 RELATION GTEXT ROUTINE
          RETTRUE 
FIGZ      LITERAL 
          FRETURNX
          SUBROUT   PSUB475 FIGURATIVE CONSTANT ZERO
          SETTFFL 
          FKEEP 
          RETURNX 
          TITLE BOOLOP TABLE
BOOLOP    SUBROUT   PSUB94 RELATIONAL NOT ABSENT
          RESWORD   EQUALS
          TRETURNX
          ALLOW     IS
          RESWORD   UNEQUAL 
          TSUBROUT  PSUB96 RELATIONAL NOT PRESENT 
          TBRANCH   W22L1 
          RESWORD   NOT 
          TSUBROUT  PSUB96 RELATIONAL NOT PRESENT 
          RESWORD   EQUAL 
          TBRANCH   W22L1 
          EQUALS
          RETURNX 
W22L1     ALLOW     TO
          RETTRUE 
BOOLOBJ   SUBROUT   PSUB95 EQUAL ROUTINE
          SUBROUT   PSUB532 BOOLEAN SUBJECT ROUTINE 
          BRANRET   BOOLEXP 
          FDSR      S,489 
          SUBROUT   PSUB533 BOOLEAN OBJECT ROUTINE
          SUBROUT   PSUB515 OUTPUT BOOLEAN RELATION 
          TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB59 STATEMENT DEBUG ROUTINE
          SUBROUT   PSUB516 OUTPUT BOOLEAN GTEXT
          RETTRUE 
          TITLE ZSPECIAL TABLE
ZSPECIAL  RESWORD   ALL 
          FBRANCH   W23L1 
          LITERAL 
          FKEEP 
          FRETURNX
          SUBROUT   PSUB475 FIGURATIVE CONSTANT ZERO
          SETTFFL 
          FKEEP 
          FKEEP 
          FRETURNX
          SUBROUT   PSUB17 REAL LIVE LITERAL
          SUBROUT   PSUB45 ALL LITERAL ROUTINE
          TSTFLAG   FIPS3 
          FDIAGNOS  T,408,LASTATOM
          BRANCH    W23L2 
W23L1     LITERAL 
          FRETURNX
          SUBROUT   PSUB475 FIGURATIVE CONSTANT ZERO
          SETTFFL 
          FKEEP 
          FRETURNX
          SUBROUT   PSUB17 REAL LIVE LITERAL
          TSTFLAG   FIPS3 
          FDIAGNOS  T,408,LASTATOM
W23L2     BRANRET   RELOPTOR
          FBRANCH   W23L4 
          SUBROUT   PSUB102 SUBJECT ROUTINE 
          BRANRET   BOOLEXP 
          ERRETRN 
          FBRANCH   W23L3 
          SUBROUT   PSUB533 BOOLEAN OBJECT ROUTINE
          SUBROUT   PSUB515 OUTPUT BOOLEAN RELATION 
          TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB59 STATEMENT DEBUG ROUTINE
          SUBROUT   PSUB516 OUTPUT BOOLEAN GTEXT
          RETTRUE 
W23L3     BRANRET   ARITHEXP
          FDSR      S,10
W23L4     SUBROUT   PSUB75 OBJECT ROUTINE 
          SETTFFL 
          FDSR      S,1 
          SUBROUT   PSUB76 OUTPUT RELATION ROUTINE
          SETTFFL 
          FDSR      S,40
          TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB59 STATEMENT DEBUG ROUTINE
          SUBROUT   PSUB476 RELATION GTEXT ROUTINE
          RETTRUE 
          TITLE     SIZERROR TABLE
SIZERROR  SEMIRW    SIZE
          TBRANCH   W17L1 
          SEMIRW    ON
          FRETURNX
          RESWORD   SIZE
          FDSR      S,41
W17L1     RESWORD   ERROR 
          FDSR      S,69
          TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB59 STATEMENT DEBUG ROUTINE
          SUBROUT   PSUB39 ON SIZE ERROR PROLOGUE 
          BRANRET   IMPSTMNT
          FDSR      S,70
          RETURNX 
          TITLE     GARBAGE TABLE 
GARBAGE   LITERAL 
          TDSR      S,125,LASTATOM
          PLUS
          TDSR      S,126,LASTATOM
          MINUS 
          TDSR      S,126,LASTATOM
          STAR
          TDSR      S,126,LASTATOM
          SLASH 
          TDSR      S,126,LASTATOM
          EXPONEN 
          TDSR      S,126,LASTATOM
          EQUALS
          TDSR      S,127,LASTATOM
          LSTHAN
          TDSR      S,127,LASTATOM
          GRTHAN
          TDSR      S,127,LASTATOM
          PERIOD
          TDSR      S,128,LASTATOM
          LFTPARN 
          TDSR      S,129,LASTATOM
          RTPARN
          TDSR      S,130,LASTATOM
          CONNAME 
          TDSR      S,132,LASTATOM
          DSR       S,7 
FIPSXYZ   TSTFLAG   FIPS3 
          FDIAGNOS  T,405,LASTATOM
          RETTRUE 
FIPSABC   TSTFLAG   FIPS3 
          FDIAGNOS  T,406,LASTATOM
          RETTRUE 
          TITLE     IMPGOTO TABLE 
IMPGOTO   BRANRET   GOTOPN
          TSUBROUT  PSUB41 IMPERATIVE ISTATEMENT PROLOGUE 
          TSUBROUT  PSUB42 IMPERATIVE STATEMENT EPILOGUE
          RETURNX 
          TITLE     IMPSTMNT TABLE
IMPSTMNT  TSTFLAG   24 SUBSCRIPT OPTIMIZATION 
          TSUBROUT  PSUB50 SUBSCRIPT CONDITIONAL PROLOGUE 
          SUBROUT   PSUB41 IMPERATIVE ISTATEMENT PROLOGUE 
          SUBROUT   PSUB40 STACK RESET
          STAMENT    SEMICOPT 
          TBRANCH   W16L0 
          ERRBRAN   W16L2 
          SUBROUT   PSUB42 IMPERATIVE STATEMENT EPILOGUE
          TSTFLAG   24 SUBSCRIPT OPTIMIZATION 
          TSUBROUT  PSUB51 SUBSCRIPT CONDITIONAL ERROR
          RETFALS 
W16L0     TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB59 STATEMENT DEBUG ROUTINE
W16L1     SUBROUT   PSUB40 STACK RESET
          STAMENT   SEMICOPT
          TBRANCH   W16L0 
          ERRBRAN   W16L2 
          PERIOD
          TBRANCH   W16L4 
          SEMIRW    ELSE
          FRESWORD  WHEN
          TBRANCH   W16L4 
          PNDEF 
          FSNDEF
         ENDDECL
          TDIAGNOS  T,401,LASTATOM
          TBRANCH   W16L4 
          ENDOFFI 
          TBRANCH   W16L5 
          SEMIRW    ENDIF 
          FSEMIRW   ENDPERF 
          FSEMIRW   ENDSRCH 
          TBRANCH   W16L4 
          BRANRET   GARBAGE 
W16L2     SUBROUT   PSUB14 MASTER DELETE GTEXT ROUTINE
          ALWDIAG 
          BRANRET   ADVANCE4
          BRANCH    W16L1 
W16L4     KEEP
W16L5     SUBROUT   PSUB42 IMPERATIVE STATEMENT EPILOGUE
          TSTFLAG   24 SUBSCRIPT OPTIMIZATION 
          TSUBROUT  PSUB8 SUBSCRIPT CONDITIONAL EPILOGUE
          RETTRUE 
          TITLE     ADVANCE1 TABLE
ADVANCE1  ADVANCE 
          SEMIRW    ELSE
          TBRANCH   ADVANCE1
          RESWORD   NEXT
          TBRANCH   ADVANCE1
          RESWORD   WHEN
          TBRANCH   ADVANCE1
          RETURNX 
ADVANCE2  ADVANCE 
          RESWORD   WHEN
          TBRANCH   ADVANCE2
          RETURNX 
ADVANCE3  ADVANCE 
          RESWORD   WHEN
          TBRANCH   ADVANCE3
          RESWORD   NEXT
          TBRANCH   ADVANCE3
          RETURNX 
ADVANCE4  ADVANCE 
          RESWORD   NEXT
          TBRANCH   ADVANCE4
          RETURNX 
          TITLE     GOTOPN TABLE
GOTOPN    TSTFLAG   29 DEBUGGING FLAG 
          TRETFALS
          SEMIRW    GO
          FRETURNX
          SUBROUT   PSUB10 LINE AND COLUMN,1
          RESWORD   TO
          TBRANCH   T19L16
          PNREF 
          TBRANCH   T19L18
          KEEP
          RETURNX 
T19L18    SUBROUT   PSUB71 SAVE PROCNAME
          PERIOD
          FSEMIRW   ELSE
          TKEEP 
          TSUBROUT  PSUB72 OPTIMIZED GO LEGALITY ROUTINE
          TRETURNX
          KEEP
          KEEP
          RETURNX 
T19L16    PNREF 
          TBRANCH   T19L17
          KEEP
          KEEP
          RETURNX 
T19L17    SUBROUT   PSUB71 SAVE PROCNAME
          PERIOD
          FSEMIRW   ELSE
          TKEEP 
          TSUBROUT  PSUB72 OPTIMIZED GO LEGALITY ROUTINE
          TRETURNX
          KEEP
          KEEP
          KEEP
          RETURNX 
          TITLE     FILENAME TABLE
FILENAME  DNREF 
          FRETURNX
          SUBROUT   PSUB352 FILE NAME ROUTINE 
          RETURNX 
COMFLNM   DNREF     COMMAOPT
          FRETURNX
          SUBROUT   PSUB352 FILE NAME ROUTINE 
          RETURNX 
          TITLE     TRACEON TABLE 
T62       SETFLAG   3 COMMANDTRACE
          RETTRUE 
T63       CLRFLAG   3 COMMANDTRACE
          RETTRUE 
T61       SETFLAG   8 REPORT MODE 
          CLRFLAG   29 DEBUGGING FLAG 
          RETTRUE 
          TITLE     ACCEPT TABLE
T1        SUBROUT   PSUB186 ACCEPT ROUTINE
          DNREF 
          FBRANCH   T1L1
          SUBROUT   PSUB220 CD NAME ROUTINE,6 
          SETTFFL 
          FKEEP 
          FBRANCH   T1L1
          SUBROUT   PSUB11 DATA NAME ROUTINE,1
          SUBROUT   PSUB54 REF RECEIVING FIELD,1
          SUBROUT   PSUB253 CD NAME CHECK INPUT,6 
          ALLOW     MESSAGE 
          RESWORD   COUNT 
          FDSR      S,276 
          TSTFLAG   FIPS3 
          FDIAGNOS  T,700,LASTATOM
          SUBROUT   PSUB187 ACCEPT MESSAGE
          TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB450 ACCEPT DEBUG ROUTINE,10 
          RETTRUE 
T1L1      BRANRET   IDENTIF2
          FDSR      S,275 
          SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          RESWORD   FROM
          FSUBROUT  PSUB261 NULL ROUTINE,6
          FBRANCH   T1L2
          TSTFLAG   FIPS3 
          FDIAGNOS  T,412,LASTATOM
          RESWORD   DATE
          TSUBROUT  PSUB188 ACCEPT DATE 
          TBRANCH   T1L2
          RESWORD   DAY 
          TSUBROUT  PSUB189 ACCEPT DAY
          TBRANCH   T1L2
          RESWORD   TIME
          TSUBROUT  PSUB190 ACCEPT TIME 
          TBRANCH   T1L2
          RESWORD   DAYOFWK 
          TDIAGNOS  J,277,LASTATOM
          TSUBROUT  PSUB191 ACCEPT DAY OF WEEK
          TBRANCH   T1L2
          DNREF 
          FDSR      S,113 
          SUBROUT   PSUB11 DATA NAME ROUTINE,1
          SETFLAG   45 LOGICAL FILE 
          SUBROUT   PSUB273 MNEMONIC NAME ROUTINE,6 
          SETTFFL 
          FDSR      S,111,LASTATOM
T1L2      SUBROUT   PSUB198 ACCEPT EPILOGUE 
          RETTRUE 
          TITLE     ADD TABLE 
T2        SUBROUT   PSUB113 ADD ROUTINE 
          RESWORD   CORR
          TBRANCH   ADDCORR 
          BRANRET   LITORID 
          FDSR      S,79
          RESWORD   TO
          TBRANCH   T2L7
          BRANRET   COMLITID
          FDSR      S,79
          RESWORD   GIVING
          TBRANCH   T2L12 
          SUBROUT   PSUB114 AR 1
          BLDGTXT   5,3,2,4,5,1 
T2L1      RESWORD   TO
          TBRANCH   T2L2
          RESWORD   GIVING
          TSUBROUT  PSUB116 AR 11 
          TBRANCH   T2L4
          BRANRET   COMLITID
          FDSR      S,79
          SUBROUT   PSUB117 AR 2
          SUBROUT   PSUB153 NEW TEMP 1 ROUTINE
          BLDGTXT   5,3,2,5,4,1 
          BRANCH    T2L1
          EJECT 
T2L2      BRANRET   IDENTIF 
          FDSR      S,80
T2L3      SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          BRANRET   ROUND 
          SUBROUT   PSUB117 AR 2
          BLDGTXT   5,3,VRBENTRY,1,4,4
          BRANRET   SERIESID
          TBRANCH   T2L3
          ERRETRN 
          SUBROUT   PSUB118 AR 12 
          BRANRET   SIZERROR
          ERRETRN 
          RETTRUE 
          EJECT 
T2L4      BRANRET   IDENTIF 
          FDSR      S,80
T2L5      SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          BRANRET   ROUND 
          SUBROUT   PSUB119 AR 4
          BLDGTXT   4,3,VRBENTRY,1,4
          SUBROUT   PSUB115 RESULT TEMP 14
T2L6      BRANRET   SERIESID
          TBRANCH   T2L5
          ERRETRN 
          SUBROUT   PSUB118 AR 12 
          BRANRET   SIZERROR
          ERRETRN 
          RETTRUE 
          EJECT 
T2L7      BRANRET   IDENTIF 
          FDSR      S,80
          BRANRET   ROUND 
          SUBROUT   PSUB120 AR 5
          SETTFFL 
          TBRANRET  LKAHEDID
          TBRANCH   T2L10 
          SUBROUT   PSUB121 AR 6
T2L8      SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          BLDGTXT   5,4,VRBENTRY,4,5,5
          BRANRET   SERIESID
          ERRETRN 
          FBRANCH   T2L9
          BRANRET   ROUND 
          SUBROUT   PSUB122 AR 7
          BRANCH    T2L8
T2L9      SUBROUT   PSUB118 AR 12 
          BRANRET   SIZERROR
          ERRETRN 
          RETTRUE 
T2L10     SUBROUT   PSUB123 AR 8
          BLDGTXT   4,5,6,4,1 
T2L11     SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          SUBROUT   PSUB117 AR 2
          BLDGTXT   5,4,VRBENTRY,5,1,5
          BRANRET   SERIESID
          FBRANCH   T2L9
          BRANRET   ROUND 
          BRANCH    T2L11 
T2L12     BRANRET   IDENTIF 
          FDSR      S,80
          SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          BRANRET   ROUND 
          BRANRET   LKAHEDID
          TBRANCH   T2L13 
          SUBROUT   PSUB124 AR 9
          BLDGTXT   5,1,VRBENTRY,4,5,6
          SUBROUT   PSUB118 AR 12 
          BRANRET   SIZERROR
          ERRETRN 
          RETTRUE 
T2L13     SUBROUT   PSUB114 AR 1
          BLDGTXT   5,6,2,4,5,1 
          SUBROUT   PSUB116 AR 11 
          SUBROUT   PSUB119 AR 4
          BLDGTXT   4,3,VRBENTRY,1,6
          SUBROUT   PSUB473 RESULT TEMP 16
          BRANCH    T2L6
          EJECT 
ADDCORR   TSTFLAG   FIPS3 
          FDIAGNOS  T,414,LASTATOM
          BRANRET   IDENTIF 
          FDSR      S,80
          SUBROUT   PSUB126 CORR OPERAND1 ROUTINE 
          RESWORD   TO
          FDSR      S,90
          BRANRET   IDENTIF 
          FDSR      S,80
T2L14     SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          SUBROUT   PSUB129 CORR OPERAND2 ROUTINE 
          BRANRET   ROUND 
          RESWORD   CORRSTRT
          FBRANCH   T2L17 
T2L15     DNREF 
          FBRANCH   T2L16 
          SUBROUT   PSUB11 DATA NAME ROUTINE,1
          DNREF 
          SUBROUT   PSUB11 DATA NAME ROUTINE,1
          SUBROUT   PSUB127 ADD CORR PAIR ROUTINE 
          SETTFFL 
          TBLDGTXT  5,5,VRBENTRY,6,7,7
          TSUBROUT  PSUB535 ADD CORR SEPARATOR ROUTINE
          FBLDGTXT  1,5 
T2L16     RESWORD   CORREND 
          FBRANCH   T2L15 
          SUBROUT   PSUB128 CORR END ROUTINE
          BLDGTXT   1,4 
T2L17     BRANRET   COMIDEN 
          TSUBROUT  PSUB145 AR 20 
          TDIAGNOS  J,459,LASTATOM
          TBRANCH   T2L14 
          ERRETRN 
          BRANRET   SIZERROR
          ERRETRN 
          RETTRUE 
          TITLE     ROUND TABLE 
ROUND     RESWORD   ROUNDED 
          TSUBROUT  PSUB130 ADD ROUNDED ROUTINE 
          FSUBROUT  PSUB131 ADD WITHOUT ROUNDING
          RETURNX 
          TITLE     LKAHEDID TABLE
LKAHEDID  DNREF     COMMAOPT
          TKEEP 
          TRETURNX
          TSTFLAG   43 SPECIAL REGISTER 
          FRETURNX
          LINECTR 
          TKEEP 
          TRETURNX
          PAGECTR 
          TKEEP 
          TRETURNX
          LNGCTR
          TKEEP 
          TRETURNX
          HASH
          TKEEP 
          TRETURNX
          DBUGITM 
          TKEEP 
          RETURNX 
          TITLE     ALTER TABLE 
T3        SUBROUT   PSUB192 ALTER ROUTINE 
          PNREF 
          FDSR      S,30
T3L1      SUBROUT   PSUB193 ALTER PN ROUTINE
          RESWORD   TO
          FDSR      S,90
          RESWORD   PROCEED 
          FBRANCH   T3L2
          RESWORD   TO
          FDSR      S,90
T3L2      PNREF 
          FDSR      S,30
          SUBROUT   PSUB193 ALTER PN ROUTINE
          SUBROUT   PSUB194 ALTER PN TO PN ROUTINE
          BLDGTXT   4,1,1,2,3 
          LITERAL 
          FBRANCH   T3L4
T3L3      TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB443 ALTER DEBUG ROUTINE,10
T3L4      PNREF     COMMAOPT
          FRETTRUE
          TSTFLAG   FIPS3 
          FDIAGNOS  T,415,LASTATOM
          BRANCH    T3L1
          TITLE     CALL TABLE
T4        SUBROUT   PSUB360 CALL ROUTINE
          BRANRET   LITORID 
          FDSR      S,79
T4L1      SUBROUT   PSUB362 CALL OPERAND
          RESWORD   USING 
          FBRANCH   T4L3
          BRANRET   IDENTIF2
          FDSR      S,80
T4L2      SUBROUT   PSUB361 CALL USING ID 
          BRANRET   COMIDEN2
          TBRANCH   T4L2
          ERRETRN 
T4L3      SUBROUT   PSUB384 PARAMETER EPILOGUE
          TSTFLAG   24 SUBSCRIPT OPTIMIZATION 
          TSUBROUT  PSUB31 SUBSCRIPT LIQUIDATE ROUTINE,1
          SEMIRW    OVERFLOW
          TBRANCH   T4L4
          SEMIRW    ON
          FSUBROUT  PSUB478 CALL NO ON OVERFLOW 
          FRETTRUE
          RESWORD   OVERFLOW
          FDSR      S,78
T4L4      TSTFLAG   FIPS3 
          FDIAGNOS  T,417,LASTATOM
          BRANRET   IMPGOTO 
          TSUBROUT  PSUB293 ON OVERFLOW GO TO,6 
          TRETURNX
          SUBROUT   PSUB294 ON OVERFLOW PROLOGUE,6
          BRANRET   IMPSTMNT
          FDSR      S,84
          RETURNX 
          TITLE     CANCEL TABLE
T5        SUBROUT   PSUB358 CANCEL ROUTINE
          TSTFLAG   FIPS3 
          FDIAGNOS  T,418,LASTATOM
          BRANRET   LITORID 
          FDSR      S,79
T5L1      SUBROUT   PSUB359 CANCEL OPERAND
          BRANRET   COMLITID
          TBRANCH   T5L1
          ERRETRN 
          RETTRUE 
          TITLE     CLOSE TABLE 
T6        SUBROUT   PSUB301 CLOSE ROUTINE 
          BRANRET   FILENAME
          FDSR      S,200 
T6L1      RESWORD   REEL
          TBRANCH   T6L3
          RESWORD   UNIT
          TBRANCH   T6L3
          RESWORD   WITH
          TBRANCH   T6L8
          RESWORD   NO
          TBRANCH   T6L9
          RESWORD   LOCK
          TSUBROUT  PSUB302 CLOSE LOCK ROUTINE
          TBRANCH   T6L2
          SUBROUT   PSUB303 SIMPLE CLOSE ROUTINE
T6L2      BRANRET   COMFLNM 
          FRETTRUE
          SUBROUT   PSUB491 FIPS CLOSE FILE-NAME SERIES ROUTINE 
          BRANCH    T6L1
T6L3      RESWORD   WITH
          TBRANCH   T6L4
          RESWORD   NO
          FBRANCH   T6L6
          BRANCH    T6L5
T6L4      RESWORD   NO
          FDSR      S,201 
T6L5      RESWORD   REWIND
          FDSR      S,202 
          DIAGNOS   A,203 
          SUBROUT   PSUB304 CLOSE REEL ROUTINE
          TSTFLAG   FIPS3 
          FDIAGNOS  T,444,LASTATOM
          BRANCH    T6L2
T6L6      RESWORD   FOR 
          TBRANCH   T6L7
          RESWORD   REMOVAL 
          FSUBROUT  PSUB304 CLOSE REEL ROUTINE
          FBRANCH   T6L2
          SUBROUT   PSUB305 CLOSE REEL REMOVE ROUTINE 
          TSTFLAG   FIPS3 
          FDIAGNOS  T,445,LASTATOM
          BRANCH    T6L2
T6L7      RESWORD   REMOVAL 
          FDSR      S,204 
          SUBROUT   PSUB305 CLOSE REEL REMOVE ROUTINE 
          TSTFLAG   FIPS3 
          FDIAGNOS  T,445,LASTATOM
          BRANCH    T6L2
T6L8      RESWORD   NO
          FBRANCH   T6L10 
T6L9      RESWORD   REWIND
          FDSR      S,202 
          TSTFLAG   FIPS3 
          FDIAGNOS  T,444,LASTATOM
          SUBROUT   PSUB306 CLOSE NO REWIND ROUTINE 
          BRANCH    T6L2
T6L10     RESWORD   LOCK
          FDSR      S,205 
          SUBROUT   PSUB302 CLOSE LOCK ROUTINE
          BRANCH    T6L2
          TITLE     COMPUTE TABLE 
T7        SUBROUT   PSUB156 COMPUTE ROUTINE 
          TSTFLAG   FIPS3 
          FDIAGNOS  T,419,LASTATOM
          BRANRET   BOOLID2 
          TBRANCH   T7L4
          BRANRET   IDENTIF2
          FDSR      S,145 
T7L1      SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          RESWORD   ROUNDED 
          TSUBROUT  PSUB157 COMPUTE ROUNDED ROUTINE 
          FSUBROUT  PSUB158 COMPUTE WITHOUT ROUNDING
          BRANRET   COMIDEN2
          TBRANCH   T7L1
          ERRETRN 
          EQUALS
          TBRANCH   T7L3
          RESWORD   FROM
          TBRANCH   T7L2
          RESWORD   EQUALS
          FDSR      S,156 
T7L2      DIAGNOS   J,283,LASTATOM
T7L3      BRANRET   ARITHEXP
          FDSR      S,157 
          CLRFLAG   BFLAG 
          SUBROUT   PSUB159 COMPUTE EPILOGUE
          BRANRET   SIZERROR
          RETTRUE 
T7L4      SUBROUT   PSUB47 IDENT RECEIVING FIELD
          SUBROUT   PSUB158 COMPUTE WITHOUT ROUNDING
          BRANRET   COMIDEN2
          TBRANCH   T7L4
          ERRETRN 
          EQUALS
          TBRANCH   T7L5
          RESWORD   EQUALS
          TBRANCH   T7L5
          RESWORD   FROM
          TBRANCH   T7L5
          DSR       S,156 
T7L5      BRANRET   BOOLEXP 
          FDSR      S,489 
          SETFLAG   BFLAG 
          SUBROUT   PSUB159 COMPUTE EPILOGUE
          RETTRUE 
          TITLE     CONTINUE TABLE
CONT      DIAGNOS   T,750,LASTATOM
          RETTRUE 
          TITLE     DELETE TABLE
T8        SUBROUT   PSUB307 DELETE ROUTINE
          RESWORD   FILE
          TBRANCH   T8L1
          BRANRET   FILENAME
          FDSR      S,206 
          TSTFLAG   24 SUBSCRIPT OPTIMIZATION 
          TSUBROUT  PSUB52 SUBSCRIPT FILE NAME ROUTINE,1
          ALLOW     RECORD
          SUBROUT   PSUB308 DELETE RECORD ROUTINE 
          SEMIRW    INVALID 
          FSUBROUT  PSUB309 DELETE NO IMPERATIVE ROUTINE
          FRETTRUE
          ALLOW     KEY 
          SUBROUT   PSUB310 DELETE INVALID KEY PROLOGUE 
          BRANRET   IMPSTMNT
          FDSR      S,230 
          RETURNX 
 T8L1     BRANRET   FILENAME
          FDSR      S,206 
T8L2      SUBROUT   PSUB307A
          BRANRET   COMFLNM 
          TBRANCH   T8L2
          FRETTRUE
          TITLE     DISABLE TABLE 
T9        SUBROUT   PSUB216 DISABLE ROUTINE 
          TSTFLAG   FIPS3 
          FDIAGNOS  T,422,LASTATOM
DSABENAB  RESWORD   OUTPUT
          TSUBROUT  PSUB217 DISABLE ENABLE OUTPUT 
          TBRANCH   T9L1
          RESWORD   INPUT 
          FDSR      S,250 
          SUBROUT   PSUB218 DISABLE ENABLE INPUT
          RESWORD   TERMINAL
          TSUBROUT  PSUB219 DISABLE ENABLE TERMINAL 
T9L1      DNREF 
          FDSR      S,254 
          SUBROUT   PSUB11 DATA NAME ROUTINE,1
          SUBROUT   PSUB220 CD NAME ROUTINE 
          SETTFFL 
          FDSR      S,254 
          SUBROUT   PSUB54 REF RECEIVING FIELD,1
          SUBROUT   PSUB221 DISABLE ENABLE OPERAND
          ALLOW     WITH
          RESWORD   KEY 
          FDSR      S,251 
          BRANRET   IDENTIF 
          TSUBROUT  PSUB222 DISABLE ENABLE IDENTIFIER 
          TBRANCH   T9L2
          ERRETRN 
          BRANRET   LITERAL 
          FDSR      S,172 
          SUBROUT   PSUB223 DISABLE ENABLE LITERAL
T9L2      BLDGTXT   6,0,1,4,5,2,3 
          TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB446 EN DIS DEBUG ROUTINE,10 
          RETTRUE 
          TITLE     DISPLAY TABLE 
T10       SUBROUT   PSUB195 DISPLAY ROUTINE 
          BRANRET   LITORID2
          FDSR      S,79
T10L1     SUBROUT   PSUB46 NON ALL LITERAL ROUTINE,1
          SUBROUT   PSUB196 DISPLAY OPERAND 
          BRANRET   COMLTID2
          TBRANCH   T10L1 
          ERRETRN 
          RESWORD   UPON
          FSUBROUT  PSUB261 NULL ROUTINE,6
          FBRANCH   T10L2 
          TSTFLAG   FIPS3 
          FDIAGNOS  T,420,LASTATOM
          BRANRET   IDENTIF 
          FDSR      S,111 
          SETFLAG   45 LOGICAL FILE 
          SUBROUT   PSUB273 MNEMONIC NAME ROUTINE,6 
          SETTFFL 
          FDSR      S,111,LASTATOM
T10L2     RESWORD   NO
          TBRANCH   T10L3 
          RESWORD   WITH
          FBRANCH   T10L4 
          RESWORD   NO
          FDSR      D,211 
T10L3     TSETFLAG  42      SET NOAD FLAG 
          ALLOW     ADVANCNG
          DIAGNOS   J,460,LASTATOM
T10L4     SUBROUT   PSUB197 DISPLAY EPILOGUE
          RETTRUE 
          TITLE     DIVIDE TABLE
T11       SUBROUT   PSUB132 DIVIDE ROUTINE
          BRANRET   LITORID 
          FDSR      S,79
          RESWORD   BY
          TBRANCH   T11L11
          RESWORD   INTO
          FDSR      S,87
          SUBROUT   PSUB133 DIVIDE INTO ROUTINE 
          BRANRET   IDENTIF 
          TBRANCH   T11L6 
          ERRETRN 
          BRANRET   LITERAL 
          FDSR      S,79
T11L1     RESWORD   GIVING
          FDSR      S,85
T11L2     BRANRET   IDENTIF 
          FDSR      S,80
          SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          BRANRET   ROUND 
          BRANRET   LKAHEDID
          TBRANCH   T11L3 
          RESWORD   REMAINDR
          TBRANCH   T11L12
          SUBROUT   PSUB124 AR 9
          BLDGTXT   5,0,VRBENTRY,DIVIDEND,DIVISOR,6 
          BRANRET   SIZERROR
          ERRETRN 
          RETTRUE 
          EJECT 
T11L3     SUBROUT   PSUB114 AR 1
          BLDGTXT   5,6,2,DIVIDEND,DIVISOR,1
          SUBROUT   PSUB116 AR 11 
T11L4     SUBROUT   PSUB119 AR 4
          BLDGTXT   4,5,VRBENTRY,1,6
          SUBROUT   PSUB473 RESULT TEMP 16
          BRANRET   SERIESID
          FBRANCH   T11L5 
          SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          BRANRET   ROUND 
          BRANCH    T11L4 
T11L5     SUBROUT   PSUB125 AR 13 
          ERRETRN 
          BLDGTXT   1,0 
          BRANRET   SIZERROR
          ERRETRN 
          RETTRUE 
T11L6     RESWORD   GIVING
          TBRANCH   T11L2 
          BRANRET   ROUND 
          SUBROUT   PSUB120 AR 5
          SETTFFL 
          TBRANRET  LKAHEDID
          TBRANCH   T11L9 
          SUBROUT   PSUB121 AR 6
T11L7     SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          BLDGTXT   5,4,VRBENTRY,5,4,5
          BRANRET   SERIESID
          ERRETRN 
          FBRANCH   T11L8 
          BRANRET   ROUND 
          SUBROUT   PSUB122 AR 7
          BRANCH    T11L7 
T11L8     BRANRET   SIZERROR
          ERRETRN 
          RETTRUE 
          EJECT 
T11L9     SUBROUT   PSUB123 AR 8
          BLDGTXT   4,5,6,4,1 
T11L10    SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          SUBROUT   PSUB117 AR 2
          BLDGTXT   5,4,VRBENTRY,5,1,5
          BRANRET   SERIESID
          TBRANCH   T11L10A 
          ERRETRN 
          BRANRET   SIZERROR
          ERRETRN 
          RETTRUE 
T11L10A   BRANRET   ROUND 
          BRANCH    T11L10
T11L11    SUBROUT   PSUB134 DIVIDE BY ROUTINE 
          BRANRET   LITORID 
          FDSR      S,80
          BRANCH    T11L1 
T11L12    SUBROUT   PSUB135 AR 19 
          TSTFLAG   FIPS3 
          FDIAGNOS  T,421,LASTATOM
          BRANRET   IDENTIF 
          FDSR      S,80
          SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          SUBROUT   PSUB136 DIVIDE REMAINDER ROUTINE
          BLDGTXT   6,0,VRBENTRY,DIVIDEND,DIVISOR,6,7 
          BRANRET   SIZERROR
          ERRETRN 
          RETTRUE 
          TITLE     ENABLE TABLE
T12       SUBROUT   PSUB224 ENABLE ROUTINE
          TSTFLAG   FIPS3 
          FDIAGNOS  T,423,LASTATOM
          BRANCH    DSABENAB
          TITLE     ENTER TABLE 
T13       SUBROUT   PSUB465 ENTER ROUTINE 
          BRANRET   LITERAL 
          TSUBROUT  PSUB466 ENTER LITERAL NAME
          TBRANCH   T13L1 
          IMPNAME 
          FDSR      S,391 
          SUBROUT   PSUB467 ENTER SYS NAME
T13L1     BRANRET   LITERAL 
          TSUBROUT  PSUB466 ENTER LITERAL NAME
          TBRANCH   T13L2 
          IMPNAME 
          TSUBROUT  PSUB467 ENTER SYS NAME
          TBRANCH   T13L2 
          TSTFLAG   35 IMPLFLAG 
          FDSR      S,391 
T13L2     SUBROUT   PSUB468 ENTER PROLOGUE
          RESWORD   USING 
          FBRANCH   T13L6 
          TSTFLAG   8 REPORTMODE
          FDIAGNOS  J,390,LASTATOM
          BRANRET   LITERAL 
          TSUBROUT  PSUB469 ENTER LITERAL PARAM 
          CLRFLAG   47 USING SUBSCRIPTED VARIABLE PARAM FLAG
          TBRANCH   T13L4 
          DNREF 
          FBRANCH   T13L3 
          SUBROUT   PSUB470 ENTER REF PARAM 
          SETTFFL 
          TBRANCH   T13L4 
          KEEP
T13L3     BRANRET   IDENTIF 
          FDSR      S,392 
 T13L3A   SUBROUT   PSUB493 USING VARIABLE SUB CHK
          ERRETRN 
          SUBROUT   PSUB471 ENTER ID PARAM
T13L4     SUBROUT   PSUB472 ENTER PARAMETER 
          BRANRET   COMLITRL
          TSUBROUT  PSUB469 ENTER LITERAL PARAM 
          TBRANCH   T13L4 
          DNREF     COMMAOPT
          FBRANCH   T13L5 
          SUBROUT   PSUB470 ENTER REF PARAM 
          SETTFFL 
          TBRANCH   T13L4 
          KEEP
T13L5     BRANRET   COMIDEN 
          TBRANCH   T13L3A
          ERRETRN 
T13L6     SUBROUT   PSUB384 PARAMETER EPILOGUE
          TSTFLAG   24 SUBSCRIPT OPTIMIZATION 
          TSUBROUT  PSUB31 SUBSCRIPT LIQUIDATE ROUTINE,1
          RETTRUE 
          TITLE     EXIT TABLE
T15       RESWORD   PROGRAM 
          FSUBROUT  PSUB161 EXIT ROUTINE
          FRETTRUE
          TSTFLAG   FIPS2 
          FDIAGNOS  T,424,LASTATOM
          KEEP      TO MAKE VD COME OUT OK
          SUBROUT   PSUB160 EXIT PROGRAM ROUTINE
          ALLOW     PROGRAM 
          RETTRUE   REMAINING LEFT FOR FUTURE JOD SPEC
          PERIOD
          FRESWORD  ELSE
          FRESWORD  WHEN
          TSUBROUT  PSUB73 PS3 ROUTINE
          TKEEP 
          RETTRUE 
          TITLE     GENERATE TABLE
T16       SUBROUT   PSUB182 RPW VD R
          TSTFLAG   FIPS5 
          FDIAGNOS  T,425,LASTATOM
          TSTFLAG   24 SUBSCRIPT OPTIMIZATION 
          TSUBROUT  PSUB31 SUBSCRIPT LIQUIDATE ROUTINE,1
          TSTFLAG   26 UBR SECTION
          TDIAGNOS  S,598,LASTATOM
          TSUBROUT  PSUB14 MASTER DELETE GTEXT ROUTINE,1
          SETFLAG   57  RITEMLEGAL
          BRANRET   IDENTIF 
          CLRFLAG   57  RITEMLEGAL
          FDSR      S,596 
          SUBROUT   PSUB179 GENERATE OPERAND R
          RETTRUE 
          TITLE     GOTO TABLE
T17       SUBROUT   PSUB199 GO TO ROUTINE 
          ALLOW     TO
          PNREF 
          TBRANCH   T17L3 
          TSTFLAG   FIPS3 
          FDIAGNOS  T,426,LASTATOM
          SUBROUT   PSUB200 GO TO PERIOD ROUTINE
          BRANCH    T17L0 
T17L3     SUBROUT   PSUB201 GO TO PN ROUTINE
          PNREF     COMMAOPT
          TBRANCH   T17L1 
          SUBROUT   PSUB202 ORDINARY GO ROUTINE 
T17L0     TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB444 GOTO DEBUG ROUTINE,10 
          BLDGTXT   3,0,2,1 
          RETTRUE 
T17L1     SUBROUT   PSUB203 GO DEPENDING ROUTINE
T17L2     SUBROUT   PSUB204 GO DEPENDING PN ROUTINE 
          PNREF     COMMAOPT
          TBRANCH   T17L2 
          RESWORD   DEPENDNG
          FDSR      S,121 
          ALLOW     ON
          BRANRET   IDENTIF 
          FDSR      S,80
          TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB59 STATEMENT DEBUG ROUTINE,1
          TSUBROUT  PSUB453 GOTO DEPEN DEBUG ROUTINE,10 
          SUBROUT   PSUB205 GO DEPENDING EPILOGUE 
          RETTRUE 
          TITLE     IF TABLE
T19       SUBROUT   PSUB74 BEGIN DS STATEMENT 
          SUBROUT   PSUB60 IF ROUTINE 
          SUBROUT   PSUB61 CONDITION INITIALIZATION 
          SETFLAG   32 CONDITIONAL SUBS FLAG
          BRANRET   CONDTION
          CLRFLAG   32 CONDITIONAL SUBS FLAG
          TBRANCH   T19L1 
          ERRBRAN   T19L0 
          DIAGNOS   S,1 
T19L0     BRANRET   ADVANCE2
          ALWDIAG 
          SUBROUT   PSUB62 STACK ADJUSTMENT 
          SUBROUT   PSUB14 MASTER DELETE GTEXT ROUTINE,1
T19L1     ALLOW     THEN
          TSTFLAG   24 SUBSCRIPT OPTIMIZATION 
          TSUBROUT  PSUB50 SUBSCRIPT CONDITIONAL PROLOGUE,1 
          BRANRET   GOTOPN
          TSUBROUT  PSUB63 THEN GOTO ROUTINE
          TBRANCH   T19L6 
T19L2     SEMIRW    NEXT
          FBRANCH   T19L3 
          RESWORD   SENTENCE
          FDIAGNOS  S,4 
          FBRANRET  ADVANCE3
          SEMIRW    ELSE
          FSUBROUT  PSUB64 THEN NS ROUTINE
          FBRANCH   T19L12
          BRANRET   GOTOPN
          FSUBROUT  PSUB64 THEN NS ROUTINE
          FBRANCH   T19L7 
          SUBROUT   PSUB65 THEN NS ELSE GOTO ROUTINE
          BRANCH    T19L11
T19L3     SUBROUT   PSUB66 THEN ROUTINE 
          SUBROUT   PSUB40 STACK RESET,1
          STAMENT   SEMICOPT
          TBRANCH   T19L6 
          SUBROUT   PSUB14 MASTER DELETE GTEXT ROUTINE,1
          ERRBRAN   T19L4 
          DIAGNOS   S,6 
T19L4     ALWDIAG 
T19L5     BRANRET   ADVANCE3
T19L6     BRANRET   VERBSQNC
          SEMIRW    ELSE
          TBRANCH   T19L7 
          SEMIRW    ENDIF 
          TDIAGNOS  T,751,LASTATOM
          TSETFLAG  16
          TBRANRET  EXEND 
          TCLRFLAG  16
          TBRANCH   T19L14
          PERIOD
          TBRANCH   T19L13
          ENDDECL 
          FPNDEF
          FSNDEF
          TDIAGNOS  T,133,LASTATOM
          TBRANCH   T19L13
          ENDOFFI 
          TDIAGNOS  T,133,LASTATOM
          TBRANCH   T19L14
          SEMIRW    WHEN
          FSEMIRW   ENDPERF 
          FSEMIRW   ENDSRCH 
          TBRANCH   T19L13A 
          BRANRET   GARBAGE 
          BRANCH    T19L4 
T19L7     TSTFLAG   24 SUBSCRIPT OPTIMIZATION 
          TSUBROUT  PSUB8 SUBSCRIPT CONDITIONAL EPILOGUE,1
          TSUBROUT  PSUB50 SUBSCRIPT CONDITIONAL PROLOGUE,1 
          SEMIRW    NEXT
          FBRANCH   T19L8 
          RESWORD   SENTENCE
          FDIAGNOS  S,4 
          FBRANRET  ADVANCE3
          SUBROUT   PSUB68 ELSE NS ROUTINE
          BRANCH    T19L12
T19L8     BRANRET   GOTOPN
          FBRANCH   T19L9 
          SUBROUT   PSUB69 ELSE GOTO ROUTINE
          BRANCH    T19L11
T19L9     SUBROUT   PSUB70 ELSE ROUTINE 
          SUBROUT   PSUB40 STACK RESET,1
          STAMENT 
          TBRANCH   T19L11
          ERRBRAN   T19L10
          DIAGNOS   S,8 
          BRANCH    T19L12
T19L10    BRANRET   ADVANCE3
          ALWDIAG 
          SUBROUT   PSUB14 MASTER DELETE GTEXT ROUTINE,1
T19L11    BRANRET   VERBSQNC
T19L12    SEMIRW    ELSE
          TBRANCH   T19L13A 
          SEMIRW    ENDIF 
          TDIAGNOS  T,751,LASTATOM
          TBRANRET  EXEND 
          TBRANCH   T19L14
          PERIOD
          TBRANCH   T19L13
          ENDDECL 
          FPNDEF
          FSNDEF
          TDIAGNOS  T,133,LASTATOM
          TBRANCH   T19L13
          ENDOFFI 
          TDIAGNOS  T,133,LASTATOM
          TBRANCH   T19L14
          SEMIRW    WHEN
          FSEMIRW   ENDPERF 
          FSEMIRW   ENDSRCH 
          TBRANCH   T19L13A 
          BRANRET   GARBAGE 
          BRANRET   ADVANCE3
          ALWDIAG 
          BRANCH    T19L11
T19L13A   SUBROUT   PSUB521 IMPLICIT END ROUTINE
T19L13    KEEP
T19L14    TSTFLAG   24 SUBSCRIPT OPTIMIZATION 
          TSUBROUT  PSUB8 SUBSCRIPT CONDITIONAL EPILOGUE,1
          RETTRUE 
          TITLE     VERBSQNC TABLE
VERBSQNC  TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB59 STATEMENT DEBUG ROUTINE,1
          SUBROUT   PSUB40 STACK RESET,1
          STAMENT   SEMICOPT
          TBRANCH   VERBSQNC
          ERRBRAN   T19L15
          SUBROUT   PSUB73 PS3 ROUTINE
          RETURNX 
T19L15    SUBROUT   PSUB14 MASTER DELETE GTEXT ROUTINE,1
          ALWDIAG 
          BRANRET   ADVANCE3
          BRANCH    VERBSQNC
*         CAUTION - T19 LABELS ARE USED IN GOTOPN 
          TITLE     EXPLICIT END TABLE
EXEND     TSTFLAG   17
          TBRANCH   T19L21
          SEMIRW    ELSE
          FSEMIRW   WHEN
          FSEMIRW   ENDIF 
          FSEMIRW   ENDSRCH 
          TKEEP 
          TSETFLAG  17
          PERIOD
          FPNDEF
          FSNDEF
          TKEEP 
          FENDOFFI
          TSETFLAG  17
T19L20    SUBROUT   PSUB520 EXPLICIT END ROUTINE
          CLRFLAG   17
          RETTRUE 
T19L21    CLRFLAG   17
          BRANRET   EXEND 
          SETFLAG   17
          RETTRUE 
          TITLE     INITLIZE TABLE
T20       DIAGNOS   J,284,LASTATOM
          TSTFLAG   24 SUBSCRIPT OPTIMIZATION 
          TSUBROUT  PSUB57 SUBSCRIPT OPT PAUSE,1
          SUBROUT   PSUB225 INITIALIZE ROUTINE
          BRANRET   IDENTIF2
          FDSR      S,80
T20L1     SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          SUBROUT   PSUB300 INITIALIZE OPERAND ROUTINE
          BRANRET   COMIDEN2
          ERRETRN 
          TBRANCH   T20L1 
          RESWORD   REPLACNG
          FSUBROUT  PSUB226 INITIALIZE NO REPLACING 
          FBRANCH   T20L3 
          RESWORD   NUMERIC 
          TSUBROUT  PSUB227 INITIALIZE REPLACING NUMERIC
          TBRANCH   T20L2 
          RESWORD   ALPHNUM 
          TSUBROUT  PSUB228 INITIALIZE REPLACING ALPHANUM 
          TBRANCH   T20L2 
          RESWORD   ALPHABTC
          TSUBROUT  PSUB229 INITIALIZE REPLACING ALPHABETIC 
          TBRANCH   T20L2 
          RESWORD   ALPHNUMD
          TSUBROUT  PSUB230 INITIALIZE REPLACING ALPHA EDIT 
          TBRANCH   T20L2 
          RESWORD   NUMERCED
          TSUBROUT  PSUB231 INITIALIZE REPLACING NUM EDIT 
          TBRANCH   T20L2 
          RESWORD   BOOLEAN 
          TSUBROUT  PSUB517 INITIALIZE REPLACING BOOLEAN
          TBRANCH   T20L2 
          FDSR      S,108 
T20L2     ALLOW     DATA
          RESWORD   BY
          FDSR      S,109 
          BRANRET   LITORID 
          FDSR      S,110 
          SUBROUT   PSUB232 INITIALIZE REPLACING ROUTINE
T20L3     SUBROUT   PSUB58 SUBSCRIPT OPT RESUME,1 
          RETTRUE 
          TITLE     INITIATE TABLE
T21       SUBROUT   PSUB182 RPW VD R
          TSTFLAG   FIPS5 
          FDIAGNOS  T,427,LASTATOM
          TSTFLAG   24 SUBSCRIPT OPTIMIZATION 
          TSUBROUT  PSUB31 SUBSCRIPT LIQUIDATE ROUTINE,1
          TSTFLAG   26
          TDIAGNOS  S,598,LASTATOM
          TSUBROUT  PSUB14 MASTER DELETE GTEXT ROUTINE,1
          BRANRET   IDENTIF 
          FDSR      S,595 
T21L1     SUBROUT   PSUB180 INITIATE OPERAND R
          BRANRET   COMIDEN 
          TBRANCH   T21L1 
          ERRETRN 
          RETTRUE 
          TITLE     INSPECT TABLE 
T22       SUBROUT   PSUB234 INSPECT ROUTINE 
          CLRFLAG   20 INSPECTFLAG
          BRANRET   IDENTIF 
          FDSR      S,80
          SUBROUT   PSUB48 IDENT POSSIBLE RECEIVING FIELD,1 
          SUBROUT   PSUB235 INSPECT INSPECTEE 
          RESWORD   REPLACNG
          TBRANCH   T22L3 
          RESWORD   TALLYING
          FDSR      S,159 
          BRANRET   INSTALLY
          FDSR      S,80
T22L1     BRANRET   INSTALLY
          TBRANCH   T22L1 
          ERRETRN 
          RESWORD   REPLACNG
          TBRANCH   T22L3 
          RESWORD   BEFORE
          TBRANCH   T22L2 
          RESWORD   AFTER 
          FBRANCH   T22L6 
          SETFLAG   20 INSPECTFLAG
T22L2     DIAGNOS   J,281,LASTATOM
          RESWORD   REPLACNG
          FDSR      S,177 
T22L3     SUBROUT   PSUB49 POSTPONED RECEIVING FIELD,1
          SUBROUT   PSUB237 INSPECT REPLACE PROLOGUE
          BRANRET   INSPREPL
          FDSR      S,169 
T22L5     BRANRET   INSPREPL
          TBRANCH   T22L5 
          ERRETRN 
T22L6     SUBROUT   PSUB238 INSPECT EPILOGUE
          RETTRUE 
          EJECT 
INSTALLY  BRANRET   COMIDEN 
          FRETURNX
          SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          SUBROUT   PSUB239 INSPECT TALLYEE 
          RESWORD   FOR 
          FDSR      S,170 
          BRANRET   INTALFOR
          FDSR      S,171 
T22L7     BRANRET   INTALFOR
          TBRANCH   T22L7 
          ERRETRN 
          RETTRUE 
          EJECT 
INSPREPL  COMMARW   CHARACTS
          FBRANCH   T22L9 
          SUBROUT   PSUB240 INSPECT CHARACTERS
          RESWORD   BY
          FDSR      S,34
          BRANRET   LITORID 
          FDSR      S,172 
          SUBROUT   PSUB241 INSPECT OPERAND 
          BRANRET   INBFORAF
          ERRETRN 
          SUBROUT   PSUB242 INSPECT REPLACE EPILOGUE
          BLDGTXT   7,3,0,3,4,5,6,7 
          RETTRUE 
T22L9     COMMARW   ALL 
          TSUBROUT  PSUB243 INSPECT ALL 
          TBRANCH   T22L11
          COMMARW   LEADING 
          TSUBROUT  PSUB244 INSPECT LEADING 
          TBRANCH   T22L11
          COMMARW   FIRST 
          FRETURNX
          SUBROUT   PSUB245 INSPECT FIRST 
T22L11    BRANRET   INSREPBY
          FDSR      S,172 
T22L13    BRANRET   INSREPBY
          TBRANCH   T22L13
          ERRETRN 
          RETTRUE 
          EJECT 
INTALFOR  COMMARW   CHARACTS
          TSUBROUT  PSUB240 INSPECT CHARACTERS
          TBRANCH   T22L17
          COMMARW   ALL 
          TSUBROUT  PSUB243 INSPECT ALL 
          TBRANCH   T22L15
          COMMARW   LEADING 
          FRETURNX
          SUBROUT   PSUB244 INSPECT LEADING 
T22L15    BRANRET   LITORID 
          FDSR      S,172 
          SUBROUT   PSUB241 INSPECT OPERAND 
T22L17    BRANRET   INBFORAF
          ERRETRN 
          SUBROUT   PSUB246 INSPECT TALLY EPILOGUE
          BLDGTXT   7,1,0,2,3,4,5,6 
          RETTRUE 
          EJECT 
INSREPBY  COMMARW   ALL 
          TKEEP 
          TRETFALS
          BRANRET   COMLITID
          FRETURNX
          SUBROUT   PSUB241 INSPECT OPERAND 
          RESWORD   BY
          FDSR      S,34
          BRANRET   LITORID 
          FDSR      S,172 
          SUBROUT   PSUB241 INSPECT OPERAND 
          BRANRET   INBFORAF
          ERRETRN 
          SUBROUT   PSUB242 INSPECT REPLACE EPILOGUE
          BLDGTXT   7,3,0,3,4,5,6,7 
          RETTRUE 
          EJECT 
INBFORAF  RESWORD   BEFORE
          TSUBROUT  PSUB247 INSPECT BEFORE
          TBRANCH   T22L19
          RESWORD   AFTER 
          TSUBROUT  PSUB248 INSPECT AFTER 
          TBRANCH   T22L19
          SUBROUT   PSUB249 INSPECT NO BEFORE OR AFTER
          RETURNX 
T22L19    SUBROUT   PSUB250 INSPECT CHECK IF TALLYING 
          SETTFFL 
          FBRANCH   T22L21
          RESWORD   REPLACNG
          FBRANCH   T22L21
          SUBROUT   PSUB251 INSPECT SPECIAL BEFORE AFTER
          KEEP
          KEEP
          RETURNX 
T22L21    ALLOW     INITIAL 
          BRANRET   LITORID 
          FDSR      S,172 
          SUBROUT   PSUB241 INSPECT OPERAND 
          RETURNX 
          TITLE     MERGE TABLE 
T24       SUBROUT   PSUB383 MERGE ROUTINE 
          TSTFLAG   FIPS4 
          FDIAGNOS  T,428,LASTATOM
          CLRFLAG   25 KILLSUBSCRIPTS 
          FILEREF 
          FDSR      S,300 
          SUBROUT   PSUB54 REF RECEIVING FIELD,1
          SUBROUT   PSUB368 SORT FILE ROUTINE 
          SUBROUT   PSUB369 SORT KEY PROLOGUE ROUTINE 
          BRANRET   SORTKEY 
          FDSR      S,301 
T24L1     BRANRET   SORTKEY 
          TBRANCH   T24L1 
          ERRETRN 
          SUBROUT   PSUB371 SORT KEY EPILOGUE ROUTINE 
          RESWORD   COLLATNG
          FBRANCH   T24L1A
          RESWORD   SEQUENCE
          FDSR      S,304 
          BRANCH    T24L1B
T24L1A    RESWORD   SEQUENCE
          FBRANCH   T24L1C
T24L1B    ALLOW     IS
          DNREF 
          FDSR      S,305 
          SUBROUT   PSUB372 SORT COLLATING SEQUENCE ROUTINE 
T24L1C    RESWORD   USING 
          FDSR      S,326 
          SUBROUT   PSUB376 SORT USING ROUTINE
          FILEREF 
          FDSR      S,316 
          SUBROUT   PSUB377 SORT USING FILE ROUTINE 
          SUBROUT   PSUB405 MERGE USING FILE ILLEGAL ROUTINE
          SUBROUT   PSUB385 MERGE IO FILE SUBR
          SUBROUT   PSUB386 SM BLD LIST FN SUBR 
          FILEREF   COMMAOPT
          FDSR      S,328 
          SUBROUT   PSUB377 SORT USING FILE ROUTINE 
          SUBROUT   PSUB405 MERGE USING FILE ILLEGAL ROUTINE
          SUBROUT   PSUB385 MERGE IO FILE SUBR
          SUBROUT   PSUB386 SM BLD LIST FN SUBR 
T24L2     FILEREF   COMMAOPT
          TSUBROUT  PSUB377 SORT USING FILE ROUTINE 
          TSUBROUT  PSUB405 MERGE USING FILE ILLEGAL ROUTINE
          TSUBROUT  PSUB385 MERGE IO FILE SUBR
          TSUBROUT  PSUB386 SM BLD LIST FN SUBR 
          TBRANCH   T24L2 
          RESWORD   OUTPUT
          FBRANCH   T24L4 
          SUBROUT   PSUB387 TEST SPBT STATUS
          RESWORD   PROCEDUR
          FDSR      S,307 
          ALLOW     IS
          PNREF 
          FDSR      S,308 
          SETFLAG   25 KILLSUBSCRIPTS 
          SUBROUT   PSUB378 SORT OUTPUT SN1 ROUTINE 
          RESWORD   THRU
          FBRANCH   T24L3 
          PNREF 
          FDSR      S,308 
          SUBROUT   PSUB379 SORT OUTPUT SN2 ROUTINE 
T24L3     SUBROUT   PSUB380 SORT OUTPUT SN EPILOGUE 
          BRANCH    T24L5 
T24L4     RESWORD   GIVING
          FDSR      S,317 
          FILEREF 
          FDSR      S,316 
          SUBROUT   PSUB381 SORT GIVING FILE ROUTINE
          SUBROUT   PSUB385 MERGE IO FILE SUBR
T24L5     SUBROUT   PSUB382 SORT STMT EPILOGUE
          TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB460 MERGE DEBUG ROUTINE,10
          TSTFLAG   24 SUBSCRIPT OPTIMIZATION 
          FRETTRUE
          TSTFLAG   25 KILLSUBSCRIPTS 
          TSUBROUT  PSUB31 SUBSCRIPT LIQUIDATE ROUTINE,1
          RETTRUE 
          TITLE     MOVE TABLE
T25       SUBROUT   PSUB208 MOVE ROUTINE
          RESWORD   CORR
          TBRANCH   MOVECORR
          SETFLAG   34 SECONDARY STORAGE
          BRANRET   LITORID 
          CLRFLAG   34 SECONDARY STORAGE
          FDSR      S,58
          SUBROUT   PSUB209 MOVE OPERAND ROUTINE
          RESWORD   TO
          FDSR      S,90
          SETFLAG   34 SECONDARY STORAGE
          BRANRET   IDENTIF 
          CLRFLAG   34 SECONDARY STORAGE
          FDSR      S,80
          SUBROUT   PSUB210 CHECK MOVE 1
T25L1     SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          BLDGTXT   4,2,1,2,3 
          SETFLAG   34 SECONDARY STORAGE
          BRANRET   COMIDEN 
          CLRFLAG   34 SECONDARY STORAGE
          TSUBROUT  PSUB211 CHECK MOVE 2
          TBRANCH   T25L1 
          ERRETRN 
          RETTRUE 
          EJECT 
MOVECORR  TSTFLAG   FIPS3 
          FDIAGNOS  T,429,LASTATOM
          BRANRET   IDENTIF 
          FDSR      S,80
          SUBROUT   PSUB126 CORR OPERAND1 ROUTINE,3 
          RESWORD   TO
          FDSR      S,90
          BRANRET   IDENTIF 
          FDSR      S,80
T25L4     SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          SUBROUT   PSUB129 CORR OPERAND2 ROUTINE,3 
          RESWORD   CORRSTRT
          FBRANCH   T25L7 
T25L5     DNREF 
          FBRANCH   T25L6 
          SUBROUT   PSUB11 DATA NAME ROUTINE,1
          DNREF 
          SUBROUT   PSUB11 DATA NAME ROUTINE,1
          SUBROUT   PSUB212 MOVE CORR PAIR ROUTINE
          SETTFFL 
          TBLDGTXT  5,3,1,4,5,6 
          FBLDGTXT  1,3 
T25L6     RESWORD   CORREND 
          FBRANCH   T25L5 
          SUBROUT   PSUB128 CORR END ROUTINE,3
          BLDGTXT   1,2 
T25L7     BRANRET   COMIDEN 
          TDIAGNOS  J,461,LASTATOM
          TBRANCH   T25L4 
          ERRETRN 
          RETTRUE 
          TITLE     MULTIPLY TABLE
T26       SUBROUT   PSUB148 MULTIPLY ROUTINE
          BRANRET   LITORID 
          FDSR      S,79
          RESWORD   BY
          FDSR      S,86
          BRANRET   IDENTIF 
          TBRANCH   T26L5 
          ERRETRN 
          BRANRET   LITERAL 
          FDSR      S,79
          RESWORD   GIVING
          FDSR      S,85
T26L1     BRANRET   IDENTIF 
          FDSR      S,80
          SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          BRANRET   ROUND 
          BRANRET   LKAHEDID
          TBRANCH   T26L2 
          SUBROUT   PSUB124 AR 9
          BLDGTXT   5,0,VRBENTRY,4,5,6
          BRANRET   SIZERROR
          ERRETRN 
          RETTRUE 
          EJECT 
T26L2     SUBROUT   PSUB114 AR 1
          BLDGTXT   5,6,2,4,5,1 
          SUBROUT   PSUB116 AR 11 
T26L3     SUBROUT   PSUB119 AR 4
          BLDGTXT   4,5,VRBENTRY,1,6
          SUBROUT   PSUB473 RESULT TEMP 16
          BRANRET   SERIESID
          FBRANCH   T26L4 
          SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          BRANRET   ROUND 
          BRANCH    T26L3 
T26L4     SUBROUT   PSUB125 AR 13 
          ERRETRN 
          BLDGTXT   1,0 
          BRANRET   SIZERROR
          ERRETRN 
          RETTRUE 
T26L5     RESWORD   GIVING
          TBRANCH   T26L1 
          BRANRET   ROUND 
          SUBROUT   PSUB120 AR 5
          SETTFFL 
          TBRANRET  LKAHEDID
          TBRANCH   T26L8 
          SUBROUT   PSUB121 AR 6
T26L6     SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          BLDGTXT   5,4,VRBENTRY,4,5,5
          BRANRET   SERIESID
          ERRETRN 
          FBRANCH   T26L7 
          SUBROUT   PSUB122 AR 7
          BRANRET   ROUND 
          BRANCH    T26L6 
T26L7     BRANRET   SIZERROR
          BRANRET   SIZERROR
          ERRETRN 
          RETTRUE 
T26L8     SUBROUT   PSUB123 AR 8
          BLDGTXT   4,5,6,4,1 
T26L9     SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          SUBROUT   PSUB117 AR 2
          BLDGTXT   5,4,VRBENTRY,5,1,5
          BRANRET   SERIESID
          TBRANCH   T26L9A
          ERRETRN 
          BLDGTXT   1,0 
          BRANRET   SIZERROR
          ERRETRN 
          RETTRUE 
T26L9A    BRANRET   ROUND 
          BRANCH    T26L9 
          TITLE     OPEN TABLE
T27       SUBROUT   PSUB311 OPEN ROUTINE
          RESWORD   INPUT 
          TBRANCH   T27L1 
          RESWORD   OUTPUT
          TBRANCH   T27L6 
          RESWORD   EXTEND
          TBRANCH   T27L11
          RESWORD   IO
          TBRANCH   T27L13
          DSR       S,207 
T27L1     BRANRET   FILENAME
          FDSR      S,208 
T27L2     RESWORD   REVERSED
          FBRANCH   T27L2A
          SUBROUT   PSUB312 OPEN INPUT REVERSED ROUTINE 
          TSTFLAG   FIPS3 
          FDIAGNOS  T,447,LASTATOM
          BRANCH    T27L5 
T27L2A    RESWORD   WITH
          TBRANCH   T27L3 
          RESWORD   NO
          TBRANCH   T27L4 
          SUBROUT   PSUB313 OPEN INPUT ROUTINE
          BRANCH    T27L5 
T27L3     RESWORD   NO
          FDSR      S,209 
T27L4     RESWORD   REWIND
          FDSR      S,210 
          SUBROUT   PSUB314 OPEN INPUT NO REWIND ROUTINE
          TSTFLAG   FIPS3 
          FDIAGNOS  T,448,LASTATOM
T27L5     BRANRET   COMFLNM 
          FBRANCH   T27L15
          SUBROUT   PSUB490 FIPS OPEN FILE-NAME SERIES ROUTINE
          FDIAGNOS  T,819,LASTATOM
          BRANCH    T27L2 
T27L6     BRANRET   FILENAME
          FDSR      S,208 
T27L7     RESWORD   WITH
          TBRANCH   T27L8 
          RESWORD   NO
          TBRANCH   T27L9 
          SUBROUT   PSUB315 OPEN OUTPUT ROUTINE 
          BRANCH    T27L10
T27L8     RESWORD   NO
          FDSR      S,209 
T27L9     RESWORD   REWIND
          FDSR      S,210 
          SUBROUT   PSUB316 OPEN OUTPUT NO REWIND ROUTINE 
          TSTFLAG   FIPS3 
          FDIAGNOS  T,448,LASTATOM
T27L10    BRANRET   COMFLNM 
          FBRANCH   T27L15
          SUBROUT   PSUB490 FIPS OPEN FILE-NAME SERIES ROUTINE
          BRANCH    T27L7 
T27L11    TSTFLAG   FIPS3 
          FDIAGNOS  T,449,LASTATOM
          BRANRET   FILENAME
          FDSR      S,208 
T27L12    SUBROUT   PSUB317 OPEN EXTEND ROUTINE 
          BRANRET   COMFLNM 
          FBRANCH   T27L15
          SUBROUT   PSUB490 FIPS OPEN FILE-NAME SERIES ROUTINE
          BRANCH    T27L12
T27L13    BRANRET   FILENAME
          FDSR      S,208 
T27L14    SUBROUT   PSUB318 OPEN I O ROUTINE
          BRANRET   COMFLNM 
          FBRANCH   T27L15
          SUBROUT   PSUB490 FIPS OPEN FILE-NAME SERIES ROUTINE
          BRANCH    T27L14
T27L15    RESWORD   INPUT 
          FBRANCH   T27L16
          BRANRET   FILENAME
          FDSR      S,208 
          SUBROUT   PSUB490 FIPS OPEN FILE-NAME SERIES ROUTINE
          BRANCH    T27L2 
T27L16    RESWORD   OUTPUT
          FBRANCH   T27L17
          BRANRET   FILENAME
          FDSR      S,208 
          SUBROUT   PSUB490 FIPS OPEN FILE-NAME SERIES ROUTINE
          BRANCH    T27L7 
T27L17    RESWORD   EXTEND
          FBRANCH   T27L18
          TSTFLAG   FIPS3 
          FDIAGNOS  T,449,LASTATOM
          BRANRET   FILENAME
          FDSR      S,208 
          SUBROUT   PSUB490 FIPS OPEN FILE-NAME SERIES ROUTINE
          BRANCH    T27L12
T27L18    RESWORD   IO
          FRETTRUE
          BRANRET   FILENAME
          FDSR      S,208 
          SUBROUT   PSUB490 FIPS OPEN FILE-NAME SERIES ROUTINE
          BRANCH    T27L14
          TITLE     PERFORM TABLE 
T28       SUBROUT   PSUB162 PERFORM ROUTINE 
          TSTFLAG   24 SUBSCRIPT OPTIMIZATION 
          TSUBROUT  PSUB31 SUBSCRIPT LIQUIDATE ROUTINE,1
          PNREF 
          FBRANCH   INLINE
          SUBROUT   PSUB163 PERFORM PN
          SUBROUT   PSUB164 PERFORM PN1 
          RESWORD   THRU
          FBRANCH   T28L1 
          PNREF 
          FDSR      S,404 
          SUBROUT   PSUB163 PERFORM PN
T28L1     SUBROUT   PSUB165 PERFORM PN2 
          ALLOW     WITH
          RESWORD   TEST
          FSUBROUT   PSUB536 OUT-OF-LINE PERFORM WITH TEST BEFORE 
          FBRANCH   T28L1B
          DIAGNOS   N,755 
          RESWORD   BEFORE
          TSUBROUT   PSUB536 OUT-OF-LINE PERFORM WITH TEST BEFORE 
          TBRANCH   T28L1A
          RESWORD   AFTER 
          TSUBROUT   PSUB531 OUT-OF-LINE PERFORM WITH TEST AFTER
          FDIAGNOS  W,758 
T28L1A    RESWORD   UNTIL 
          TBRANCH   T28L4 
          RESWORD   VARYING 
          TBRANCH   T28L5 
          DIAGNOS   W,759 
          CLRFLAG   18
          BRANCH    T28L1C
T28L1B    RESWORD   UNTIL 
          TBRANCH   T28L4 
          RESWORD   VARYING 
          TBRANCH   T28L5 
T28L1C    BRANRET   LITORID 
          TBRANCH   T28L2 
          TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB454 PERFORM S DEBUG ROUTINE,10
          SUBROUT   PSUB168 PERFORM SIMPLE ROUTINE
          RETTRUE 
T28L2     SUBROUT   PSUB166 PERFORM TIMES ROUTINE 
          SETTFFL 
          TSUBROUT  PSUB455 PERFORM T DEBUG ROUTINE, 10 
T28L3     RESWORD   TIMES 
          FDSR      S,37
         SUBROUT   PSUB31    SUBSCRIPT LIQUIDATE
          RETTRUE 
          EJECT 
T28L4     SUBROUT   PSUB177 PERFORM COMPLEX ROUTINE 
          TSTFLAG   FIPS3 
          FDIAGNOS  T,430,LASTATOM
          TSTFLAG   29 DEBUGGING FLAG 
          FBRANCH   T28L4A
          TSTFLAG   18
          TSUBROUT  PSUB457 PERFORM V DEBUG ROUTINE 
          CLRFLAG   18
          SUBROUT   PSUB454 PERFORM S DEBUG ROUTINE 
T28L4A    SUBROUT   PSUB61 CONDITION INITIALIZATION 
          SETFLAG   32 CONDITIONAL SUBS FLAG
          BRANRET   CONDTION
          CLRFLAG   32 CONDITIONAL SUBS FLAG
          TSUBROUT  PSUB169 PERFORM UNTIL CONDITION ROUTINE 
          TSUBROUT  PSUB167 END PERFORM COMPLEX ROUTINE 
          CLRFLAG   18
          TRETURNX
          BRANRET   ABRTSEQN
          RETTRUE 
          EJECT 
T28L5     SUBROUT   PSUB177 PERFORM COMPLEX ROUTINE 
          TSTFLAG   18
          FBRANCH   T28L5A
          TSTFLAG   29
          TSUBROUT  PSUB457 PERFORM V DEBUG ROUTINE 
T28L5A    SUBROUT   PSUB170 PERFORM VARYING PROLOGUE
          TSTFLAG   FIPS3 
          FDIAGNOS  T,431,LASTATOM
          BRANRET   FRBYUNTL
          FRETURNX
          TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB457 PERFORM V DEBUG ROUTINE,10
          RESWORD   AFTER 
          FBRANCH   T28L6 
          BRANRET   FRBYUNTL
          FRETURNX
          RESWORD   AFTER 
          FBRANCH   T28L6 
          BRANRET   FRBYUNTL
          FRETURNX
T28L6     SUBROUT   PSUB171 PERFORM VARYING EPILOGUE
          SUBROUT   PSUB167 END PERFORM COMPLEX ROUTINE 
          RETTRUE 
          EJECT 
FRBYUNTL  SUBROUT   PSUB172 FBU PROLOGUE
          BRANRET   IDENTIF2
          FDSR      S,31
          SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          RESWORD   FROM
          FDSR      S,32
          BRANRET   LITORID2
          ERRETRN 
          FDSR      S,33
T28L7     SUBROUT   PSUB173 FROM ROUTINE
          TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB59 STATEMENT DEBUG ROUTINE,1
          RESWORD   BY
          FDSR      S,34
          BRANRET   LITORID2
          ERRETRN 
          FDSR      S,35
T28L8     SUBROUT   PSUB174 BY ROUTINE
          TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB59 STATEMENT DEBUG ROUTINE,1
          RESWORD   UNTIL 
          FDSR      S,36
          SUBROUT   PSUB175 FBU CONDITION PROLOGUE
          SUBROUT   PSUB61 CONDITION INITIALIZATION,2 
          SETFLAG   32 CONDITIONAL SUBS FLAG
          BRANRET   CONDTION
          CLRFLAG   32 CONDITIONAL SUBS FLAG
          SUBROUT   PSUB66 THEN ROUTINE,2 
          TRETURNX
          BRANRET   ABRTSEQN
          RETURNX 
          EJECT 
ABRTSEQN  DIAGNOS   S,1 
          ALWDIAG 
          SUBROUT   PSUB62 STACK ADJUSTMENT,2 
          SUBROUT    PSUB5 DELETE GTEXT ROUTINE 
          SUBROUT   PSUB176 UNSTACK PERFORM 
          RETURNX 
          TITLE     IN-LINE PERFORM TABLE 
INLINE    DIAGNOS   N,030,LASTATOM
          SUBROUT   PSUB74 BEGIN DS STATEMENT 
          TSTFLAG   18
          FBRANCH   T28L9 
          CLRFLAG   18
          BRANRET   T28L9 
          SETFLAG   18
          RETTRUE 
T28L9     ALLOW     WITH
          RESWORD   TEST
          FBRANCH   T28L11
          DIAGNOS   N,755,LASTATOM
          RESWORD   BEFORE
          TBRANCH   T28L10
          RESWORD   AFTER 
          TSETFLAG  18
          FDIAGNOS  W,758,LASTATOM
T28L10    RESWORD   UNTIL 
          TBRANCH   T28L20
          RESWORD   VARYING 
          TBRANCH   T28L25
          DIAGNOS   W,759,LASTATOM
          CLRFLAG   18
          BRANCH    T28L12
T28L11    RESWORD   UNTIL 
          TBRANCH   T28L20
          RESWORD   VARYING 
          TBRANCH   T28L25
T28L12    BRANRET   LITORID 
          TBRANCH   T28L14
          BRANRET   IMPSTMNT
          FDSR      S,760 
          SEMIRW    ENDPERF 
          TDIAGNOS  N,757,LASTATOM
          TBRANRET  EXEND 
          TRETURNX
T28L13    DIAGNOS   S,756 
          PERIOD
          TKEEP 
          FSUBROUT  PSUB521 DSS IMPLICIT END ROUTINE
          RETTRUE 
T28L14    SUBROUT   PSUB525 IN-LINE PERFORM TIMES R 
          RESWORD   TIMES 
          FDIAGNOS  S,37
         SUBROUT   PSUB31    SUBSCRIPT LIQUIDATE
          BRANCH    T28L23
          EJECT 
T28L20    SUBROUT   PSUB526 IN-LINE PERFORM UNTIL PROLOGUE
          SUBROUT   PSUB60 IF ROUTINE 
          SUBROUT   PSUB61 CONDITION INITIALIZATION 
          SETFLAG   32 CONDITIONAL SUBS FLAG
          BRANRET   CONDTION
          CLRFLAG   32
          TBRANCH   T28L22
          ERRBRAN   T28L21
          DIAGNOS   S,1 
T28L21    ALWDIAG 
          SUBROUT   PSUB62
          SUBROUT   PSUB62 STACK ADJUSTMENT 
          SUBROUT   PSUB14 MASTER DELETE GTEXT ROUTINE
          CLRFLAG   18
          RETTRUE 
T28L22    SUBROUT   PSUB66 THEN ROUTINE 
          TSTFLAG   18
          TSUBROUT  PSUB527 IN-LINE PERFORM UNTIL TEST AFTER
          SUBROUT   PSUB70 ELSE ROUTINE 
T28L23    BRANRET   IMPSTMNT
          FDIAGNOS  S,760 
          SEMIRW    ENDPERF 
          TDIAGNOS  N,757,LASTATOM
          FBRANCH   T28L13
          SUBROUT   PSUB528 IN-LINE PERFORM EPILOGUE
          BRANRET   EXEND 
          CLRFLAG   18
          RETTRUE 
T28L25    SUBROUT   PSUB530 IN-LINE PERFORM VARYING PROLOGUE
          BRANRET   FRBYUNTL
          FRETURNX
          RESWORD  AFTER
          FBRANCH  T28L26 
          BRANRET  FRBYUNTL 
          FRETURNX
          RESWORD  AFTER
          FBRANCH  T28L26 
          BRANRET  FRBYUNTL 
          FRETURNX
 T28L26   SUBROUT  PSUB529   INLINE PERFORM VARYING 
          BRANCH    T28L23
          TITLE     READ TABLE
T30       SUBROUT   PSUB319 READ ROUTINE
          BRANRET   FILENAME
          FDSR      S,214 
          SUBROUT   PSUB321  READ FILE
          SUBROUT   PSUB54 REF RECEIVING FIELD,1
          TSTFLAG   24 SUBSCRIPT OPTIMIZATION 
          TSUBROUT  PSUB52 SUBSCRIPT FILE NAME ROUTINE,1
          RESWORD   NEXT
          FBRANCH   T30L7 
          TSUBROUT  PSUB323  READ NEXT
T30L7     ALLOW     RECORD
          RESWORD   INTO
          FBRANCH   T30L1 
          SETFLAG   34       SECONDARY STORAGE
          BRANRET   IDENTIF2
          CLRFLAG   34       SECONDARY STORAGE
          FDSR      S,215 
          SUBROUT   PSUB47   IDENT RECEIVING FIELD,1
          SUBROUT   PSUB320  READ INTO
T30L1     SEMIRW    KEY 
          FBRANCH   T30L2 
          ALLOW     IS
          BRANRET   REF      NO SUBSCRIPTS ALLOWED
          FDSR      S,216 
          SUBROUT   PSUB324  READ KEYED 
T30L2     SEMIRW    INVALID 
          FBRANCH   T30L3 
          SUBROUT   PSUB326  READ INVALID KEY 
          ALLOW     KEY 
          BRANCH    T30L4 
T30L3     SEMIRW    END 
          TBRANCH   T30L5 
          SEMIRW    AT
          TBRANCH   T30L6 
          SUBROUT   PSUB322  READ NO IMPERATIVE 
          TSTFLAG   29       DEBUGGING FLAG 
          TSUBROUT  PSUB59   STATEMENT DEBUG,1
          SUBROUT   PSUB464  READ GTEXT 
          RETTRUE 
T30L6     RESWORD   END 
          FDSR      S,226 
T30L5     SUBROUT   PSUB325  READ AT END
T30L4     TSTFLAG   29       DEBUGGING FLAG 
          TSUBROUT  PSUB59   STATEMENT DEBUG,1
          SUBROUT   PSUB464  BUILD READ GTEXT 
          BRANRET   IMPSTMNT
          FDSR      S,230 
          RETURNX 
          TITLE     RECEIVE TABLE 
T31       SUBROUT   PSUB252 RECEIVE ROUTINE 
          TSTFLAG   FIPS3 
          FDIAGNOS  T,432,LASTATOM
          DNREF 
          FDSR      S,254 
          SUBROUT   PSUB11 DATA NAME ROUTINE,1
          SUBROUT   PSUB220 CD NAME ROUTINE 
          SETTFFL 
          FDSR      S,254 
          SUBROUT   PSUB54 REF RECEIVING FIELD,1
          SUBROUT   PSUB253 CD NAME CHECK INPUT 
          RESWORD   MESSAGE 
          TSUBROUT  PSUB254 RECEIVE MESSAGE 
          TBRANCH   T31L1 
          RESWORD   SEGMENT 
          FDSR      S,265 
          SUBROUT   PSUB255 RECEIVE SEGMENT 
T31L1     RESWORD   INTO
          FDSR      S,257 
          BRANRET   IDENTIF 
          FDSR      S,80
          SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          BLDGTXT   7,0,1,3,4,5,2,2 
          SEMIRW    NO
          FBRANCH   T31L3 
          RESWORD   DATA
          FDSR      S,266 
          SUBROUT   PSUB256 NO DATA PROLOGUE
          TSTFLAG   29 DEBUGGING FLAG 
          FBRANCH   T31L2 
          SUBROUT   PSUB479A RECEIVE ND DEBUG PROLOGUE
          SUBROUT   PSUB448  RECEIVE DEBUG ROUTINE
          SUBROUT   PSUB59   STATEMENT DEBUG ROUTINE
          SUBROUT   PSUB480A RECEIVE ND DEBUG EPILOGUE
T31L2     BRANRET   IMPSTMNT
          FDSR      S,270 
          RETTRUE 
T31L3     SUBROUT   PSUB448 RECEIVE DEBUG ROUTINE 
          SUBROUT   PSUB59 STATEMENT DEBUG ROUTINE
          RETTRUE 
          TITLE     RELEASE TABLE 
T32       SUBROUT   PSUB387 TEST SPBT STATUS
          SUBROUT   PSUB363 RELEASE ROUTINE 
          TSTFLAG   FIPS3 
          FDIAGNOS  T,433,LASTATOM
          DNREF 
          FDSR      S,330 
          SUBROUT   PSUB11  DATA-NAME ROUTINE 
          SUBROUT   PSUB55 REF POSSIBLE RECEIVING FIELD,1 
          SUBROUT   PSUB364 RELEASE RECORD SUBR 
          RESWORD   FROM
          FBRANCH   T32L1 
          SUBROUT   PSUB49 POSTPONED RECEIVING FIELD,1
          SETFLAG   34 SECONDARY STORAGE
          BRANRET   IDENTIF 
          CLRFLAG   34 SECONDARY STORAGE
          FDSR      S,332 
          SUBROUT   PSUB365 RELEASE FROM ROUTINE
T32L1     TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB59 STATEMENT DEBUG ROUTINE,1
          SUBROUT   PSUB366 RELEASE EPILOGUE ROUTINE
          RETTRUE 
          TITLE     RETURN TABLE
T33       SUBROUT   PSUB387 TEST SPBT STATUS
          SUBROUT   PSUB353 RETURN ROUTINE
          TSTFLAG   FIPS3 
          FDIAGNOS  T,434,LASTATOM
          DNREF 
          FDSR      S,300 
          SUBROUT   PSUB54 REF RECEIVING FIELD,1
          SUBROUT   PSUB354 RETURN FILE ROUTINE 
          ALLOW     RECORD
          RESWORD   INTO
          FBRANCH   T33L1 
          SUBROUT   PSUB355 RETURN INTO PROLOGUE ROUTINE
          SETFLAG   34 SECONDARY STORAGE
          BRANRET   IDENTIF 
          CLRFLAG   34 SECONDARY STORAGE
          FDSR      S,335 
          SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          SUBROUT   PSUB356 RETURN INTO ID ROUTINE
          TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB59 STATEMENT DEBUG ROUTINE,1
          BLDGTXT   4,0,1,2,3 
          BRANCH    T33L2 
T33L1     SUBROUT   PSUB357 RETURN NO INTO ROUTINE
T33L2     SEMIRW    END 
          TBRANCH   T33L3 
          SEMIRW    AT
          FDSR      S,341 
          RESWORD   END 
          FDSR      S,336 
T33L3     BRANRET   IMPSTMNT
          FDSR      S,231 
          RETTRUE 
          TITLE     REWRITE TABLE 
T34       SUBROUT   PSUB327 REWRITE ROUTINE 
          BRANRET   IDENTIF 
          FDSR      S,217 
          SUBROUT   PSUB47   IDENT RECEIVING FIELD
          SUBROUT   PSUB328 I O RECORD ROUTINE
          SUBROUT   PSUB330  REWRITE RECORD 
          TSTFLAG   24 SUBSCRIPT OPTIMIZATION 
          TSUBROUT  PSUB52 SUBSCRIPT FILE NAME ROUTINE,1
          RESWORD   FROM
          FBRANCH   T34L1 
          BRANRET   IDENTIF 
          FDSR      S,218 
          SUBROUT   PSUB329 WRITE FROM ROUTINE
T34L1     TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB59 STATEMENT DEBUG ROUTINE,1
          SEMIRW    INVALID 
          FSUBROUT  PSUB331 REWRITE NO IMPERATIVE ROUTINE 
          FRETTRUE
          ALLOW     KEY 
          SUBROUT   PSUB332 REWRITE INVALID KEY PROLOGUE
          BRANRET   IMPSTMNT
          FDSR      S,230 
          RETURNX 
          TITLE     SEARCH TABLE
T35       SUBROUT   PSUB74 BEGIN DS STATEMENT 
          TSTFLAG   FIPS3 
          FDIAGNOS  T,435,LASTATOM
          TSTFLAG   24 SUBSCRIPT OPTIMIZATION 
          TSUBROUT  PSUB31 SUBSCRIPT LIQUIDATE ROUTINE
          TSTFLAG   17
          TDIAGNOS  N,091 
          TBRANCH   T35A
          SETFLAG   17
          BRANRET   SRCHTHE 
          CLRFLAG   17
          RETURNX 
T35A      BRANRET   SRCHTHE 
          RETURNX 
SRCHTHE   SUBROUT   PSUB60 IF ROUTINE 
          RESWORD   ALL 
          TBRANCH   SRCHALL 
          SUBROUT   PSUB61 CONDITION INITIALIZATION,2 
          DNREF 
          FDSR      S,501 
          SUBROUT   PSUB388 SEARCH TABLE ROUTINE
          LFTPARN 
          TDSR      S,501 
          KEEP
          BRANRET   IDENTIF2
          SUBROUT   PSUB389 SEARCH RESTORE ROUTINE
          ERRETRN 
          RESWORD   VARYING 
          FSUBROUT  PSUB390 SEARCH WITHOUT VARYING ROUTINE
          FSUBROUT  PSUB403 SEARCH GTEXT ROUTINE
          FBRANCH   T35L1 
          BRANRET   IDENTIF2
          FDSR      S,502 
          SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          SUBROUT   PSUB391 SEARCH VARYING ROUTINE
          TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB59 STATEMENT DEBUG ROUTINE
          SUBROUT   PSUB403 SEARCH GTEXT ROUTINE
T35L1     SEMIRW    AT
          TBRANCH   T35L2 
          SEMIRW    END 
          TBRANCH   T35L3 
          SUBROUT   PSUB66 THEN ROUTINE,2 
          BRANCH    T35L4 
T35L2     RESWORD   END 
          FDSR      S,503 
T35L3     SUBROUT   PSUB66 THEN ROUTINE,2 
          BRANRET   IMPSTMNT
          FDSR      S,504 
T35L4     BRANRET   SRCHWHEN
          FDSR      S,505 
T35L5     BRANRET   SRCHWHEN
          TBRANCH   T35L5 
          SUBROUT   PSUB392 SEARCH EPILOGUE 
T35L6     SEMIRW    ENDSRCH 
          TDIAGNOS  T,752,LASTATOM
          TBRANRET  EXEND 
          TRETURNX
          SEMIRW    ELSE
          FSEMIRW   ENDIF 
          FSEMIRW   ENDPERF 
          TSUBROUT  PSUB521 IMPLICIT END ROUTINE
          TKEEP 
          RETTRUE 
          EJECT 
SRCHWHEN  SUBROUT   PSUB70 ELSE ROUTINE,2 
          SEMIRW    WHEN
          FRETURNX
          SUBROUT   PSUB61 CONDITION INITIALIZATION,2 
          SETFLAG   32 CONDITIONAL SUBS FLAG
          BRANRET   CONDTION
          CLRFLAG   32 CONDITIONAL SUBS FLAG
          TBRANCH   T35L7 
          DIAGNOS   S,1 
          ALWDIAG 
          SUBROUT   PSUB62 STACK ADJUSTMENT,2 
          SUBROUT   PSUB14 MASTER DELETE GTEXT ROUTINE,1
          ADVANCE 
T35L7     RESWORD   NEXT
          FBRANCH   T35L10
          RESWORD   SENTENCE
          TBRANCH   T35L9 
          DIAGNOS   S,4 
T35L8     ALWDIAG 
          SUBROUT   PSUB62 STACK ADJUSTMENT,2 
          SUBROUT   PSUB14 MASTER DELETE GTEXT ROUTINE,1
          BRANRET   ADVANCE4
          RETTRUE 
T35L9     SUBROUT   PSUB66 THEN ROUTINE,2 
          RETTRUE 
T35L10    SUBROUT   PSUB66 THEN ROUTINE,2 
          BRANRET   IMPSTMNT
          TRETURNX
          DIAGNOS   S,506 
          BRANCH    T35L8 
          EJECT 
SRCHALL   DNREF 
          FDSR      S,501 
          SUBROUT   PSUB522 SAVE IDENTIF DESCRIP SRCHALL PROLOGUE 
          LFTPARN 
          TDSR      S,501 
          SEMIRW    END 
          TBRANCH   T35L11
          SEMIRW    AT
          FBRANCH   T35L12
          RESWORD   END 
          FDSR      S,503 
T35L11    SUBROUT   PSUB394 SEARCH ALL AT END R 
          BRANRET   IMPSTMNT
          SUBROUT   PSUB524 RESTORE SEARCH ALL ADDRESSES
          FDSR      S,504 
T35L12    SUBROUT   PSUB523 RESTORE IDENTIF DESCRIP 
          SUBROUT   PSUB393 SEARCH ALL TABLE R
          CLRFLAG   30
          SUBROUT   PSUB53 REF ROUTINE
          SUBROUT   PSUB11 DATA NAME ROUTINE
          SUBROUT   PSUB488 NO SUBSCRIPTS ROUTINE 
          SETFLAG   30
          SUBROUT   PSUB389 SEARCH RESTORE ROUTINE
          ERRETRN 
          SUBROUT   PSUB395 SEARCH ALL INIT R 
          SEMIRW    WHEN
          FDSR      S,508 
T35L13    BRANRET   SRCHALCN
          ERRETRN 
          RESWORD   AND 
          TBRANCH   T35L13
          SUBROUT   PSUB396 SEARCH ALL WRAP UP R
          RESWORD   NEXT
          FBRANCH   T35L14
          RESWORD   SENTENCE
          FDIAGNOS  S,4 
          FBRANRET  ADVANCE4
          BRANCH    T35L6 
T35L14    BRANRET   IMPSTMNT
          FDIAGNOS  S,506 
          BRANCH    T35L6 
SRCHALCN  CONNAME 
          TBRANCH   T35L17
          BRANRET   IDENTIF2
          FDSR      S,509 
          SUBROUT   PSUB397 SEARCH ALL SUBJECT R
          RESWORD   EQUALS
          TBRANCH   T35L18
          ALLOW     IS
          EQUALS
          TBRANCH   T35L18
          RESWORD   EQUAL 
          FDSR      S,511 
          ALLOW     TO
T35L18    SUBROUT   PSUB95 EQUAL ROUTINE,2
          SETFLAG   16
          BRANRET   ARITHEXP
          CLRFLAG   16
          FDSR      S,510 
          SUBROUT   PSUB398 SEARCH ALL CONDITION R
          SUBROUT   PSUB109 RELATION OPERANDS ROUTINE,2 
T35L19    RETTRUE 
T35L17    SUBROUT   PSUB79 FORMULA INITIALIZATION,2 
          SUBROUT   PSUB111 ON OFF ROUTINE,2
          SETTFFL 
          TDSR      S,344 
          SUBROUT   PSUB77 CONDITION NAME ROUTINE,2 
          SETTFFL 
          FDSR      S,180 
          CLRFLAG   30 MOVESUBSCRIPTS 
          SUBROUT   PSUB507 M-NUMBER PROLOGUE 
          BRANRET   SUBSCRS 
          SUBROUT   PSUB508 M-NUMBER EPILOGUE 
          SETFLAG   30 MOVESUBSCRIPTS 
          SUBROUT   PSUB397 SEARCH ALL SUBJECT R
          CNCTXT
          BRANRET   LITERAL 
          SUBROUT   PSUB398 SEARCH ALL CONDITION R
          SUBROUT   PSUB109 RELATION OPERANDS ROUTINE 
          LITERAL 
          TBRANCH   T35L20
          RESWORD   THRU
          FBRANCH   T35L21
T35L20    DIAGNOS   S,512 
T35L21    CTXTRET 
          RETTRUE 
          TITLE     SEND TABLE
T36       SUBROUT   PSUB259 SEND ROUTINE
          TSTFLAG   FIPS3 
          FDIAGNOS  T,436,LASTATOM
          DNREF 
          FDSR      S,254 
          SUBROUT   PSUB11 DATA NAME ROUTINE,1
          SUBROUT   PSUB220 CD NAME ROUTINE 
          SETTFFL 
          FDSR      S,254 
          SUBROUT   PSUB54 REF RECEIVING FIELD,1
          SUBROUT   PSUB260 CD NAME CHECK OUTPUT
          RESWORD   FROM
          FSUBROUT  PSUB261 NULL ROUTINE
          FBRANCH   T36L1 
          BRANRET   IDENTIF 
          FDSR      S,80
T36L1     RESWORD   WITH
          TSUBROUT  PSUB262 SEND WITH 
          BRANRET   IDENTIF 
          FBRANCH   T36L2 
          SUBROUT   PSUB263 INTEGER DATA ITEM ROUTINE 
          SETTFFL 
          TSUBROUT  PSUB264 SEND MSG INDICATOR
          BRANCH    T36L3 
T36L2     RESWORD   ESI 
          TSUBROUT  PSUB265 SEND ESI
          TBRANCH   T36L3 
          RESWORD   EMI 
          TSUBROUT  PSUB266 SEND EMI
          TBRANCH   T36L3 
          RESWORD   EGI 
          TSUBROUT  PSUB267 SEND EGI
          TBRANCH   T36L3 
          SUBROUT   PSUB268 SEND FORMAT1
          SETTFFL 
          FDSR      S,271 
          BRANCH    T36L7 
T36L3     RESWORD   BEFORE
          TSUBROUT  PSUB269 SEND BEFORE 
          TBRANCH   T36L5 
          RESWORD   AFTER 
          FBRANCH   T36L7 
          SUBROUT   PSUB270 SEND AFTER
T36L5     ALLOW     ADVANCNG
          RESWORD   PAGE
          TSUBROUT  PSUB271 SEND PAGE 
          TBRANCH   T36L7 
          BRANRET   LITERAL 
          TSUBROUT  PSUB272 INTEGER LITERAL ROUTINE 
          TBRANCH   T36L6 
          BRANRET   IDENTIF 
          FDSR      S,172 
          CLRFLAG   45 LOGICAL FILE 
          SUBROUT   PSUB273 MNEMONIC NAME ROUTINE 
          SETTFFL 
          TBRANCH   T36L7 
          SUBROUT   PSUB263 INTEGER DATA ITEM ROUTINE 
T36L6     RESWORD   LINES 
          TBRANCH   T36L7 
          RESWORD   LINE
T36L7     SUBROUT   PSUB274 SEND EPILOGUE 
          TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB447 SEND DEBUG ROUTINE,10 
          RETTRUE 
          TITLE     SET TABLE 
T37       SUBROUT   PSUB412 SET ROUTINE 
          CONNAME   COMMAOPT
          TBRANCH   T37L15
          BRANRET   IDENTIF2
          FBRANCH   T37L1 
T37L2     SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          BRANRET   COMIDEN2
          TBRANCH   T37L2 
          ERRETRN 
          RESWORD   TO
          FBRANCH   T37L3 
          RESWORD   ON
          TDIAGNOS  J,463,LASTATOM
          TBRANCH   T37L4 
          RESWORD   OFF 
          TDIAGNOS  J,463,LASTATOM
          TBRANCH   T37L5 
          BRANCH    T37L6 
T37L3     RESWORD   UP
          TSUBROUT  PSUB413 SET UP BY ROUTINE 
          TBRANCH   T37L7 
          RESWORD   DOWN
          TSUBROUT  PSUB414 SET DOWN BY ROUTINE 
          TBRANCH   T37L7 
          RESWORD   ON
T37L4     TSUBROUT  PSUB415 SET ON R
          TBRANCH   T37L13
          RESWORD   OFF 
T37L5     TSUBROUT  PSUB416 SET OFF R 
          TBRANCH   T37L13
          DSR       S,149 
T37L7     RESWORD   BY
          FDSR      S,34
T37L6     BRANRET   IDENTIF2
          ERRETRN 
          FBRANCH   T37L8 
          SUBROUT   PSUB417 SET EPILOGUE 1
          RETURNX 
T37L8     BRANRET   LITERAL 
          FDSR      S,151 
          SUBROUT   PSUB418 SET EPILOGUE 2
          RETURNX 
T37L1     ERRETRN 
          RESWORD   SORT
          TSUBROUT  PSUB419 SET SORT R
          TDIAGNOS  J,462,LASTATOM
          TBRANCH   T37L9 
          RESWORD   MERGE 
          TSUBROUT  PSUB420 SET MERGE R 
          TDIAGNOS  J,462,LASTATOM
          TBRANCH   T37L9 
          RESWORD   SORTMERG
          TSUBROUT  PSUB421 SET SORT MERGE R
          TDIAGNOS  J,462,LASTATOM
          TBRANCH   T37L9 
          RESWORD   PROGRAM 
          TSUBROUT  PSUB422 SET PROGRAM R 
          TDIAGNOS  J,462,LASTATOM
          TBRANCH   T37L9 
          RESWORD   CODESET 
          FDSR      S,148 
          SUBROUT   PSUB423 SET CODE SET R
          DIAGNOS   J,462,LASTATOM
          ALLOW     FOR 
          RESWORD   ALL 
          FBRANCH   T37L10
          ALLOW     FILES 
          SUBROUT   PSUB424 SET ALL FILES R 
          BRANCH    T37L11
T37L10    DNREF 
          FDSR      S,142 
T37L12    SUBROUT   PSUB426 SET FILE NAME R 
          DNREF     COMMAOPT
          TBRANCH   T37L12
          ERRETRN 
          BRANCH    T37L11
T37L9     ALLOW     COLLATNG
          ALLOW     SEQUENCE
T37L11    RESWORD   TO
          FDSR      S,155 
          BRANRET   IDENTIF2
          FDSR      S,150 
          SUBROUT   PSUB425 SET EPILOGUE 3
          RETURNX 
T37L13    BRANRET   IDENTIF2
          FRETTRUE
T37L14    BRANRET   COMIDEN2
          TBRANCH   T37L14
          ERRETRN 
          ALLOW     TO
          RESWORD   ON
          TBRANCH   T37L4 
          RESWORD   OFF 
          TBRANCH   T37L5 
          DSR       S,298 
T37L15    TSTFLAG   FIPS3 
          FDIAGNOS  T,407,LASTATOM
          DIAGNOS   N,468,LASTATOM
          SUBROUT   PSUB500 SET CONDITION-NAME PROLOGUE 
          SETTFFL 
          FDSR      F,469 
          SUBROUT   PSUB77 CONDITION NAME ROUTINE 
          SETTFFL 
          FDSR      P,180,LASTATOM
          SUBROUT   PSUB507 M-NUMBER PROLOGUE 
          BRANRET   SUBSCRS 
          SUBROUT   PSUB508 M-NUMBER EPILOGUE 
          ERRETRN 
          CNCTXT
          BRANRET   LITERAL 
          SUBROUT   PSUB501 SET CONDITION-NAME ROUTINE
          CTXTRET 
          CONNAME   COMMAOPT
          TBRANCH   T37L15
          RESWORD   TO
          FDSR      F,90
          RESWORD   TRUE
          FDSR      F,471 
          RETTRUE 
          TITLE     SORT TABLE
T38       SUBROUT   PSUB367 SORT ROUTINE
          TSTFLAG   FIPS3 
          FDIAGNOS  T,451,LASTATOM
          TSTFLAG   FIPS4 
          TBRANCH   T38L0 
          TSTFLAG   SORTFLG 
          SETFLAG   SORTFLG 
          TDIAGNOS  T,452,LASTATOM
T38L0     CLRFLAG   25  KILLSUBSCRIPTS
          FILEREF 
          FDSR      S,300 
          SUBROUT   PSUB54 REF RECEIVING FIELD,1
          SUBROUT   PSUB368 SORT FILE ROUTINE 
          SUBROUT   PSUB369 SORT KEY PROLOGUE ROUTINE 
          BRANRET   SORTKEY 
          FDSR      S,301 
T38L1     BRANRET   SORTKEY 
          TBRANCH   T38L1 
          ERRETRN 
          SUBROUT   PSUB371 SORT KEY EPILOGUE ROUTINE 
          RESWORD   DUPLCATS
          TBRANCH   T38L1A
          RESWORD   WITH
          FBRANCH   T38L1B
          RESWORD   DUPLCATS
          FDSR      S,347 
T38L1A    ALLOW     IN
          ALLOW     ORDER 
          DIAGNOS   J,342,LASTATOM
          SUBROUT   PSUB489  SORT DUPLICATES IN SEQUENCE ROUTINE
T38L1B    RESWORD   SEQUENCE
          TBRANCH   T38L1C
          RESWORD   COLLATNG
          FBRANCH   T38L1D
          RESWORD   SEQUENCE
          FDSR      S,304 
T38L1C    ALLOW     IS
          DNREF 
          FDSR      S,305 
          TSTFLAG   FIPS4 
          FDIAGNOS  T,437,LASTATOM
          SUBROUT   PSUB372 SORT COLLATING SEQUENCE ROUTINE 
 T38L1D   RESWORD   USING 
          TBRANCH   T38L3 
          RESWORD   INPUT 
          FDSR      S,306 
          SUBROUT   PSUB387 TEST SPBT STATUS
          RESWORD   PROCEDUR
          FDSR      S,307 
          ALLOW     IS
          PNREF 
          FDSR      S,308 
          SETFLAG   25 KILLSUBSCRIPTS 
          SUBROUT   PSUB373 SORT INPUT SN1 ROUTINE
          RESWORD   THRU
          FBRANCH   T38L2 
          PNREF 
          FDSR      S,308 
          SUBROUT   PSUB374 SORT INPUT SN2 ROUTINE
T38L2     SUBROUT   PSUB375 SORT INPUT SN EPILOGUE ROUTINE
          BRANCH    T38L5 
T38L3     SUBROUT   PSUB376 SORT USING ROUTINE
          FILEREF 
          FDSR      S,316 
T38L4     SUBROUT   PSUB377 SORT USING FILE ROUTINE 
          SUBROUT   PSUB404 SORT USING FILE NON-STANDARD ROUTINE
          SUBROUT   PSUB386 SM BLD LIST FN SUBR 
          FILEREF   COMMAOPT
          TBRANCH   T38L4 
T38L5     RESWORD   OUTPUT
          FBRANCH   T38L7 
          SUBROUT   PSUB387 TEST SPBT STATUS
          RESWORD   PROCEDUR
          FDSR      S,307 
          ALLOW     IS
          PNREF 
          FDSR      S,308 
          SETFLAG   25 KILLSUBSCRIPTS 
          SUBROUT   PSUB378 SORT OUTPUT SN1 ROUTINE 
          RESWORD   THRU
          FBRANCH   T38L6 
          PNREF 
          FDSR      S,308 
          SUBROUT   PSUB379 SORT OUTPUT SN2 ROUTINE 
T38L6     SUBROUT   PSUB380 SORT OUTPUT SN EPILOGUE 
          BRANCH    T38L8 
T38L7     RESWORD   GIVING
          FDSR      S,317 
          FILEREF 
          FDSR      S,316 
          SUBROUT   PSUB381 SORT GIVING FILE ROUTINE
T38L8     SUBROUT   PSUB382 SORT STMT EPILOGUE
          TSTFLAG   29 DEBUGGING FLAG 
          TSUBROUT  PSUB459 SORT DEBUG ROUTINE,10 
          TSTFLAG   24 SUBSCRIPT OPTIMIZATION 
          FRETTRUE
          TSTFLAG   25 KILLSUBSCRIPTS 
          TSUBROUT  PSUB31 SUBSCRIPT LIQUIDATE ROUTINE,1
          RETTRUE 
          EJECT 
SORTKEY   SETFLAG   KEYFLAG 
          RESWORD   DESCNDNG
          TCLRFLAG  KEYFLAG 
          TBRANCH   T38L9 
          RESWORD   ASCENDNG
          TBRANCH   T38L9 
          RESWORD   ON
          FRETURNX
          RESWORD   DESCNDNG
          TCLRFLAG  KEYFLAG 
          FRESWORD  ASCENDNG
          FDSR      S,302 
T38L9     ALLOW     KEY 
          DNREF 
          FDSR      S,303 
T38L10    SUBROUT   PSUB370 SORT KEY ROUTINE
          DNREF     COMMAOPT
          TBRANCH   T38L10
          LFTPARN 
          TDSR      S,185 
          RETTRUE 
          TITLE     START TABLE 
T39       SUBROUT   PSUB333 START ROUTINE 
          TSTFLAG   FIPS3 
          FDIAGNOS  T,453,LASTATOM
          BRANRET   FILENAME
          FDSR      S,219 
          TSTFLAG   24 SUBSCRIPT OPTIMIZATION 
          TSUBROUT  PSUB52 SUBSCRIPT FILE NAME ROUTINE,1
          RESWORD   KEY 
          TBRANCH   T39L1 
          SUBROUT   PSUB334 START FILE ROUTINE
          BRANCH    T39L5 
T39L1     RESWORD   EQUALS
          TSUBROUT  PSUB335 START EQUALS ROUTINE
          TBRANCH   T39L4 
          RESWORD   EXCEEDS 
          TSUBROUT  PSUB336 START GREATER ROUTINE 
          TBRANCH   T39L4 
          ALLOW     IS
          EQUALS
          TSUBROUT  PSUB335 START EQUALS ROUTINE
          TBRANCH   T39L4 
          GRTHAN
          TSUBROUT  PSUB336 START GREATER ROUTINE 
          TBRANCH   T39L4 
          RESWORD   EQUAL 
          FBRANCH   T39L2 
          ALLOW     TO
          SUBROUT   PSUB335 START EQUALS ROUTINE
          BRANCH    T39L4 
T39L2     RESWORD   GREATER 
          FBRANCH   T39L3 
          ALLOW     THAN
          SUBROUT   PSUB336 START GREATER ROUTINE 
          BRANCH    T39L4 
T39L3     RESWORD   NOT 
          FDSR      S,220 
          LSTHAN
          TSUBROUT  PSUB337 START NOT LESS ROUTINE
          TBRANCH   T39L4 
          RESWORD   LESS
          FDSR      S,221 
          ALLOW     THAN
          SUBROUT   PSUB337  START NOT LESS 
T39L4     DNREF 
          FDSR      S,222 
          SUBROUT   PSUB339 START KEY ROUTINE 
T39L5     SEMIRW    INVALID 
          FSUBROUT  PSUB340 START NO IMPERATIVE ROUTINE 
          FRETTRUE
          ALLOW     KEY 
          SUBROUT   PSUB341  START GTEXT
          TSTFLAG   29       DEBUGGING FLAG 
          TSUBROUT  PSUB59   STATEMENT DEBUG,1
          SUBROUT   PSUB338  START INVALID KEY
          BRANRET   IMPSTMNT
          FDSR      S,230 
          RETURNX 
          TITLE     STOP TABLE
T40       SUBROUT   PSUB288 STOP ROUTINE
          BRANRET   LITERAL 
          TSUBROUT  PSUB46 NON ALL LITERAL ROUTINE,1
          TSUBROUT  PSUB289 STOP LITERAL
          TBRANCH   T40L1 
          RESWORD   RUN 
          FDSR      S,272 
          SUBROUT   PSUB291 STOP RUN
T40L1     BLDGTXT   3,0,1,2 
          RETTRUE 
          TITLE     STRING TABLE
T41       SUBROUT   PSUB275 STRING ROUTINE
          TSTFLAG   FIPS3 
          FDIAGNOS  T,438,LASTATOM
          BRANRET   LITORID2
          FDSR      S,172 
          BRANRET   STRDELIM
          FRETURNX
T41L1     BRANRET   COMLTID2
          ERRETRN 
          FBRANCH   T41L3 
          BRANRET   STRDELIM
          FRETURNX
          BRANCH    T41L1 
T41L3     RESWORD   INTO
          FDSR      S,257 
          BRANRET   IDENTIF 
          FDSR      S,80
          SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          SUBROUT   PSUB276 STRING IDENTIFIER 
          RESWORD   WITH
          FBRANCH   T41L5 
          RESWORD   POINTER 
          FDSR      S,258 
          BRANCH    T41L7 
T41L5     RESWORD   POINTER 
          FSUBROUT  PSUB261 NULL ROUTINE
          FBRANCH   T41L9 
T41L7     BRANRET   IDENTIF 
          FDSR      S,80
          SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          SUBROUT   PSUB263 INTEGER DATA ITEM ROUTINE 
          SETTFFL 
          TSUBROUT  PSUB277 STRING UNSTRING POINTER 
T41L9     SUBROUT   PSUB278 STRING EPILOGUE 
          SEMIRW    OVERFLOW
          TBRANCH   T41L11
          SEMIRW    ON
          FSUBROUT  PSUB292 NO ON OVERFLOW
          FRETTRUE
          RESWORD   OVERFLOW
          FDSR      S,78
T41L11    BRANRET   IMPGOTO 
          TSUBROUT  PSUB293 ON OVERFLOW GO TO 
          TRETURNX
          SUBROUT   PSUB294 ON OVERFLOW PROLOGUE
          BRANRET   IMPSTMNT
          FDSR      S,84
          RETURNX 
STRDELIM  BRANCH    T41L13
T41L13    SUBROUT   PSUB279 STRING OPERAND
          BRANRET   COMLTID2
          TBRANCH   T41L13
          ERRETRN 
          RESWORD   DELIMITD
          FDSR      S,259 
          ALLOW     BY
          RESWORD   SIZE
          TSUBROUT  PSUB280 STRING SIZE 
          TRETURNX
          BRANRET   LITORID2
          FDSR      S,260 
          SUBROUT   PSUB279 STRING OPERAND
          SUBROUT   PSUB299 STRDELIM
          RETURNX 
          TITLE     SUPPRESS TABLE
T42       SUBROUT   PSUB182 RPW VD R
          TSTFLAG   FIPS5 
          FDIAGNOS  T,440,LASTATOM
          TSTFLAG   26
          FDIAGNOS  S,599,LASTATOM
          FSUBROUT  PSUB14 MASTER DELETE GTEXT ROUTINE,1
          TSUBROUT  PSUB178 SUPPRESS R
          ALLOW     PRINTING
          RETTRUE 
          TITLE     SUBTRACT TABLE
T43       SUBROUT   PSUB149 SUBTRACT ROUTINE
          RESWORD   CORR
          TBRANCH   SUBTCORR
          BRANRET   LITORID 
          FDSR      S,79
          RESWORD   FROM
          TBRANCH   T43L10
          BRANRET   COMLITID
          FDSR      S,79
          SUBROUT   PSUB150 AR 16 
          BLDGTXT   5,4,4,5,6,1 
T43L1     RESWORD   FROM
          TBRANCH   T43L2 
          BRANRET   COMLITID
          FDSR      S,79
          SUBROUT   PSUB117 AR 2
          SUBROUT   PSUB154 NEW TEMP 2 ROUTINE
          BLDGTXT   5,4,4,6,5,1 
          BRANCH    T43L1 
T43L2     BRANRET   IDENTIF 
          TBRANCH   T43L8 
          ERRETRN 
          BRANRET   LITERAL 
          FDSR      S,79
          RESWORD   GIVING
          FDSR      S,85
T43L3     BRANRET   IDENTIF 
          FDSR      S,80
          SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          BRANRET   ROUND 
          BRANRET   LKAHEDID
          TBRANCH   T43L4 
          SUBROUT   PSUB151 AR 17 
          BLDGTXT   5,1,VRBENTRY,5,1,6
          SUBROUT   PSUB118 AR 12 
          BRANCH    T43L7 
T43L4     SUBROUT   PSUB152 AR 18 
          SUBROUT   PSUB155 NEW TEMP 3 ROUTINE
          BLDGTXT   5,6,2,5,7,1 
          TSUBROUT  PSUB116 AR 11 
T43L5     TSUBROUT  PSUB119 AR 4
          BLDGTXT   4,5,VRBENTRY,1,6
          SUBROUT   PSUB473 RESULT TEMP 16
          BRANRET   SERIESID
          ERRETRN 
          FBRANCH   T43L6 
          SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          BRANRET   ROUND 
          BRANCH    T43L5 
T43L6     SUBROUT   PSUB118 AR 12 
          BLDGTXT   1,0 
T43L7     BRANRET   SIZERROR
          ERRETRN 
          RETTRUE 
T43L8     RESWORD   GIVING
          TBRANCH   T43L3 
          BRANRET   ROUND 
          SUBROUT   PSUB118 AR 12 
T43L9     SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          SUBROUT   PSUB117 AR 2
          BLDGTXT   5,4,VRBENTRY,5,1,5
          BRANRET   SERIESID
          ERRETRN 
          FBRANCH   T43L6 
          BRANRET   ROUND 
          BRANCH    T43L9 
          EJECT 
T43L10    BRANRET   IDENTIF 
          TBRANCH   T43L15
          ERRETRN 
          BRANRET   LITERAL 
          FDSR      S,79
          RESWORD   GIVING
          FDSR      S,85
T43L11    BRANRET   IDENTIF 
          FDSR      S,80
          SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          BRANRET   ROUND 
          BRANRET   LKAHEDID
          TBRANCH   T43L12
          SUBROUT   PSUB124 AR 9
          BLDGTXT   5,0,VRBENTRY,6,5,7
          SUBROUT   PSUB118 AR 12 
          BRANRET   SIZERROR
          ERRETRN 
          RETTRUE 
          EJECT 
T43L12    SUBROUT   PSUB150 AR 16 
          BLDGTXT   5,7,2,6,5,1 
          SUBROUT   PSUB116 AR 11 
T43L13    SUBROUT   PSUB119 AR 4
          BLDGTXT   4,6,VRBENTRY,1,7
          SUBROUT   PSUB474 RESULT TEMP 17
          BRANRET   SERIESID
          FBRANCH   T43L14
          SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          BRANRET   ROUND 
          BRANCH    T43L13
T43L14    SUBROUT   PSUB118 AR 12 
          ERRETRN 
          BLDGTXT   1,0 
          BRANRET   SIZERROR
          ERRETRN 
          RETTRUE 
T43L15    RESWORD   GIVING
          TBRANCH   T43L11
          BRANRET   ROUND 
          SUBROUT   PSUB120 AR 5
          SETTFFL 
          TBRANRET  LKAHEDID
          TBRANCH   T43L18
          SUBROUT   PSUB121 AR 6
T43L16    SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          BLDGTXT   5,5,VRBENTRY,6,5,6
          BRANRET   SERIESID
          ERRETRN 
          FBRANCH   T43L17
          SUBROUT   PSUB122 AR 7
          BRANCH    T43L16
T43L17    SUBROUT   PSUB118 AR 12 
          BRANRET   SIZERROR
          ERRETRN 
          RETTRUE 
T43L18    SUBROUT   PSUB123 AR 8
          BLDGTXT   4,6,7,5,1 
T43L19    SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          SUBROUT   PSUB117 AR 2
          BLDGTXT   5,5,VRBENTRY,6,1,6
          BRANRET   SERIESID
          TBRANCH   T43L19A 
          ERRETRN 
          SUBROUT   PSUB118 AR 12 
          BLDGTXT   1,0 
          BRANRET   SIZERROR
          ERRETRN 
          RETTRUE 
T43L19A   BRANRET   ROUND 
          BRANCH    T43L19
          EJECT 
SUBTCORR  BRANRET   IDENTIF 
          FDSR      S,80
          TSTFLAG   FIPS3 
          FDIAGNOS  T,439,LASTATOM
          SUBROUT   PSUB126 CORR OPERAND1 ROUTINE 
          RESWORD   FROM
          FDSR      S,120 
          BRANRET   IDENTIF 
          FDSR      S,80
T43L20    SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          SUBROUT   PSUB129 CORR OPERAND2 ROUTINE 
          BRANRET   ROUND 
          RESWORD   CORRSTRT
          FBRANCH   T43L23
T43L21    DNREF 
          FBRANCH   T43L22
          SUBROUT   PSUB11 DATA NAME ROUTINE,1
          DNREF 
          SUBROUT   PSUB11 DATA NAME ROUTINE,1
          SUBROUT   PSUB127 ADD CORR PAIR ROUTINE 
          SETTFFL 
          TBLDGTXT  5,6,VRBENTRY,8,7,8
          TSUBROUT  PSUB535 ADD OR SUBTRACT CORR SEPARATOR ROUTINE
          FBLDGTXT  1,6 
T43L22    RESWORD   CORREND 
          FBRANCH   T43L21
          SUBROUT   PSUB128 CORR END ROUTINE
          BLDGTXT   1,5 
T43L23    BRANRET   COMIDEN 
          TSUBROUT  PSUB145 AR 20 
          TDIAGNOS  J,464,LASTATOM
          TBRANCH   T43L20
          ERRETRN 
          BRANRET   SIZERROR
          ERRETRN 
          RETTRUE 
          TITLE     SUSPEND TABLE 
T44       RETTRUE 
          TITLE     TERMINAT TABLE
T45       SUBROUT   PSUB182 RPW VD R
          TSTFLAG   FIPS5 
          FDIAGNOS  T,441,LASTATOM
          TSTFLAG   24 SUBSCRIPT OPTIMIZATION 
          TSUBROUT  PSUB31 SUBSCRIPT LIQUIDATE ROUTINE,1
          TSTFLAG   26 UBR SECTION
          TDIAGNOS  S,598,LASTATOM
          TSUBROUT  PSUB14 MASTER DELETE GTEXT ROUTINE,1
          BRANRET   IDENTIF 
          FDSR      S,595 
T45L1     SUBROUT   PSUB181 TERMINATE OPERAND R 
          BRANRET   COMIDEN 
          TBRANCH   T45L1 
          RETTRUE 
          TITLE     UNSTRING TABLE
T46       SUBROUT   PSUB281 UNSTRING ROUTINE
          TSTFLAG   FIPS3 
          FDIAGNOS  T,442,LASTATOM
          BRANRET   IDENTIF 
          FDSR      S,80
          SUBROUT   PSUB282 UNSTRING OPERAND
          RESWORD   DELIMITD
          FBRANCH   T46L5 
          ALLOW     BY
T46L1     SUBROUT   PSUB283 UNSTRING DELIMITED
          RESWORD   ALL 
          TSUBROUT  PSUB284 UNSTRING ALL
          BRANRET   IDENTIF2
          TSUBROUT  PSUB282 UNSTRING OPERAND
          TBRANCH   T46L3 
          ERRETRN 
          BRANRET   LITERAL 
          FDSR      S,79
          SUBROUT   PSUB295 UNSTRING LITERAL
T46L3     COMMARW   OR
          TBRANCH   T46L1 
T46L5     RESWORD   INTO
          FDSR      S,257 
          BRANRET   IDENTIF2
          FDSR      S,80
          BRANRET   UNSTINTO
          ERRETRN 
T46L7     BRANRET   COMIDEN2
          TBRANRET  UNSTINTO
          TBRANCH   T46L7 
          ERRETRN 
          RESWORD   POINTER 
          TBRANCH   T46L9 
          RESWORD   WITH
          FSUBROUT  PSUB261 NULL ROUTINE
          FBRANCH   T46L11
          RESWORD   POINTER 
          FDSR      S,258 
T46L9     BRANRET   IDENTIF 
          FDSR      S,80
          SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          SUBROUT   PSUB263 INTEGER DATA ITEM ROUTINE 
          SETTFFL 
          TSUBROUT  PSUB277 STRING UNSTRING POINTER 
T46L11    RESWORD   TALLYING
          FSUBROUT  PSUB261 NULL ROUTINE
          FBRANCH   T46L13
          ALLOW     IN
          BRANRET   IDENTIF 
          FDSR      S,80
          SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          SUBROUT   PSUB263 INTEGER DATA ITEM ROUTINE 
T46L13    SUBROUT   PSUB285 UNSTRING EPILOGUE 
          SEMIRW    OVERFLOW
          TBRANCH   T46L15
          SEMIRW    ON
          FSUBROUT  PSUB292 NO ON OVERFLOW
          FRETTRUE
          RESWORD   OVERFLOW
          FDSR      S,78
T46L15    BRANRET   IMPGOTO 
          TSUBROUT  PSUB293 ON OVERFLOW GO TO 
          TRETURNX
          SUBROUT   PSUB294 ON OVERFLOW PROLOGUE
          BRANRET   IMPSTMNT
          FDSR      S,84
          RETURNX 
UNSTINTO  SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          SUBROUT   PSUB286 UNSTRING RECEIVING FIELD
          COMMARW   DELIMITR
          FSUBROUT  PSUB261 NULL ROUTINE
          FBRANCH   T46L17
          SUBROUT   PSUB287 UNSTRING CHECK IF DELIMITED 
          SETTFFL 
          FDSR      S,267 
          ALLOW     IN
          BRANRET   IDENTIF2
          FDSR      S,80
          SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          SUBROUT   PSUB282 UNSTRING OPERAND
T46L17    COMMARW   COUNT 
          FSUBROUT  PSUB261 NULL ROUTINE
          FRETTRUE
          SUBROUT   PSUB287 UNSTRING CHECK IF DELIMITED 
          SETTFFL 
          FDSR      S,267 
          ALLOW     IN
          BRANRET   IDENTIF2
          FDSR      S,80
          SUBROUT   PSUB47 IDENT RECEIVING FIELD,1
          SUBROUT   PSUB263 INTEGER DATA ITEM ROUTINE 
          RETURNX 
          TITLE     USE TABLE 
T47       DIAGNOS   S,853,LASTATOM
          BRANCH    T47L0 
GOODUSE   RESWORD   USE 
          FRETURNX
T47L0     SUBROUT   PSUB10 LINE AND COLUMN
          RESWORD   AFTER 
          TBRANCH   T47L3 
          RESWORD   BEFORE
          TBRANCH   T47L2 
          ALLOW     FOR 
          RESWORD   DEBUGGNG
          TBRANCH   DEBUGTBL
          RESWORD   HASHING 
          TBRANCH   HASHTBL 
          RESWORD   ACCESS
          TBRANCH   USEAC 
          RESWORD   DEADLOCK
          TBRANCH   USEDL 
          FDSR      S,801 
DEBUGTBL  TSTFLAG   22 DEBUGFLAG1 
          FDSR      S,894 
          TSTFLAG   FIPS2 
          FDIAGNOS  T,456,LASTATOM
          ALLOW     ON
          SUBROUT   PSUB441 DEBUG PROLOGUE,10 
          SUBROUT   PSUB3 ACCEPT GTEXT
          BRANRET   USEDEBUG
          FDSR      S,802 
T47L1     BRANRET   USEDEBUG
          FRETTRUE
          BRANCH    T47L1 
T47L2     CLRFLAG   22 DEBUGFLAG1 
          SUBROUT   PSUB458 SET DEBUG FLAG,10 
          RESWORD   REPORTNG
          FDSR      S,805 
          SETFLAG   57  RITEMLEGAL
          BRANRET   IDENTIF2
          CLRFLAG   57  RITEMLEGAL
          FDSR      S,806 
          SETFLAG   26 UBR SECTION
          SUBROUT   PSUB16 USE BEFORE REPORTING 
          RETTRUE 
T47L3     CLRFLAG   22 DEBUGFLAG1 
          SUBROUT   PSUB458 SET DEBUG FLAG,10 
          ALLOW     STANDARD
          RESWORD   ERROR 
          FRESWORD  EXCEPTN 
          FDSR      S,807 
          RESWORD   PROCEDUR
          FDSR      S,808 
          ALLOW     ON
          BRANRET   FILENAME
          TBRANCH   T47L4 
          RESWORD   INPUT 
          TSUBROUT  PSUB407 USE AFTER INPUT,9 
          TRETURNX
          RESWORD   OUTPUT
          TSUBROUT  PSUB408 USE AFTER OUTPUT,9
          TRETURNX
          RESWORD   EXTEND
          FBRANCH   T47L3A
          SUBROUT   PSUB409 USE AFTER EXTEND, 9 
          TSTFLAG   FIPS3 
          FDIAGNOS  T,455,LASTATOM
          RETTRUE 
T47L3A    RESWORD   IO
          FDSR      S,809 
          SUBROUT   PSUB410 USE AFTER I O,9 
          RETTRUE 
T47L4     SUBROUT   PSUB411 USE AFTER FILE NAME,9 
          BRANRET   COMFLNM 
          FRETTRUE
          SUBROUT   PSUB492 FIPS USE AFTER FILE-NAME SERIES ROUTINE 
          BRANCH    T47L4 
          EJECT 
USEDEBUG  PNREF     COMMAOPT
          TBRANCH   PROCNAME
          DNREF     COMMAOPT
          FBRANCH   T47L05
          SUBROUT   PSUB433 CHECK FOR PROC OR IDENT 
          SETTFFL 
          TBRANCH   IDNAME
PROCNAME  TSTFLAG   23 ALL PROCS FLAG 
          TLITERAL
          TDIAGRET  S,899,LASTATOM
          SUBROUT   PSUB428 USE FOR DEBUG PROCEDURE 
          LITERAL 
          SUBROUT   PSUB451 STORE DEBUG NAME
          RETTRUE 
IDNAME    SUBROUT   PSUB432 KEEP SUBSCRIPTS 
          KEEP
          TSTFLAG   FIPS3 
          FDIAGNOS  T,457,LASTATOM
          BRANRET   COMIDEN2
          SUBROUT   PSUB427 USE FOR DEBUG IDENTIFIER
          BRANCH    T47L8 
T47L05    LINECTR   COMMAOPT
          TBRANCH   T47L5 
          PAGECTR   COMMAOPT
          TBRANCH   T47L5 
          LNGCTR    COMMAOPT
          TBRANCH   T47L5 
          HASH      COMMAOPT
          TBRANCH   T47L5 
          DBUGITM   COMMAOPT
          FBRANCH   T47L6 
T47L5     SUBROUT   PSUB434 USE FOR DEBUG SPECIAL REGISTER
          BRANCH    T47L8 
T47L6     COMMARW   ALL 
          FRETURNX
          RESWORD   PRCEDURS
          FBRANCH   T47L7 
          TSTFLAG   23 ALLPROCS FLAG
          TDIAGRET  S,900,LASTATOM
          SETFLAG   23 ALLPROCS FLAG
          SUBROUT   PSUB429 USE FOR DEBUG ALL PROCEDURES
          RETTRUE 
T47L7     ALLOW     REFERNCS
          ALLOW     OF
          BRANRET   REF 
          FDSR      S,80
          TSTFLAG   FIPS3 
          FDIAGNOS  T,457,LASTATOM
          SUBROUT   PSUB432 KEEP SUBSCRIPTS 
          KEEP
          BRANRET   IDENTIF2
          SUBROUT   PSUB430 USE FOR DEBUG ALL IDENT 
T47L8     LITERAL 
          SUBROUT   PSUB451 STORE DEBUG NAME
          RESWORD   CONVERSN
          TBRANCH   T47L9 
          RESWORD   WITH
          FRETTRUE
          RESWORD   CONVERSN
          FDSR      S,345 
T47L9     SUBROUT   PSUB440 WITH CONVERSION ROUTINE 
          RETTRUE 
          EJECT 
HASHTBL   CLRFLAG   22 DEBUGFLAG1 
          DIAGNOS   J,465,LASTATOM
          SUBROUT   PSUB458 SET DEBUG FLAG,10 
          ALLOW     ON
          BRANRET   FILENAME
          FDSR      S,811 
T47L10    SUBROUT   PSUB445 HASHING ROUTINE 
          BRANRET   COMFLNM 
          FRETTRUE
          BRANCH    T47L10
          EJECT 
USEAC     RESWORD   CONTROL 
          FDSR      S,550 
          RESWORD   ON
          FBRANCH   T47L12
          RESWORD   IO
          FBRANCH   T47L11
          SUBROUT   PSUB486 USE ACCESS CONTROL I-O
          RESWORD   INPUT 
          TBRANCH   T47L12
          BRANCH    T47L13
T47L11    RESWORD   INPUT 
          FDSR      S,551 
          SUBROUT   PSUB479 USE ACCESS CONTROL INPUT
          RESWORD   IO
          FBRANCH   T47L13
T47L12    SUBROUT   PSUB480 USE ACCESS CONTROL INPUT I-O
T47L13    COMMARW   KEY 
          FDSR      S,558 
          ALLOW     IS
          DNREF 
          FDSR      S,559 
          SUBROUT   PSUB487 USE ACCESS CONTROL KEY
          RESWORD   FOR 
          FBRANCH   T47L15
          RESWORD   REALMS
          TBRANCH   T47L15
          DNREF 
          FDSR      S,552 
T47L14    SUBROUT   PSUB482 USE ACCESS CONTROL REALM-NAME 
          DNREF     COMMAOPT
          TBRANCH   T47L14
          SUBROUT   PSUB485 USE ACCESS CONTROL EPILOGUE 
          RETTRUE 
T47L15    SUBROUT   PSUB481 USE ACCESS CONTROL REALMS 
          SUBROUT   PSUB485 USE ACCESS CONTROL EPILOGUE 
          RETTRUE 
          EJECT 
USEDL     ALLOW     ON
          RESWORD   REALMS
          TSUBROUT  PSUB483 USE DEADLOCK REALMS 
          TRETURNX
          DNREF 
          FDSR      S,553 
T47L16    SUBROUT   PSUB484 USE DEADLOCK REALM-NAME 
          DNREF     COMMAOPT
          TBRANCH   T47L16
          RETTRUE 
          TITLE     WRITE TABLE 
T48       SUBROUT   PSUB342  WRITE ROUTINE
          BRANRET   IDENTIF 
          FDSR      S,223 
          SUBROUT   PSUB47   IDENT RECEIVING FIELD
          TSTFLAG   24       SUBSCRIPT OPTIMIAZTION 
          TSUBROUT  PSUB52   SUBSCRIPT FILE NAME ,1 
          SUBROUT   PSUB328  I O RECORD 
          SUBROUT   PSUB345  WRITE RECORD ROUTINE 
          RESWORD   FROM
          FBRANCH   T48L1 
          SETFLAG   34       SECONDARY STORAGE
          BRANRET   IDENTIF 
          CLRFLAG   34       SECONDARY STORAGE
          FDSR      S,224 
          SUBROUT   PSUB329  WRITE FROM 
T48L1     RESWORD   BEFORE
          TSUBROUT  PSUB343  WRITE BEFORE 
          TBRANCH   T48L2 
          RESWORD   AFTER 
          FBRANCH   T48L3 
          SUBROUT   PSUB344  WRITE AFTER
T48L2     ALLOW     ADVANCNG
          RESWORD   PAGE
          TSUBROUT  PSUB346  WRITE ADV PAGE 
          TBRANCH   T48L3 
          BRANRET   LITERAL 
          TSUBROUT  PSUB348  WRITE ADV LIT
          TBRANCH   T48L4 
          BRANRET   IDENTIF 
          FDSR      S,225 
          CLRFLAG   45 LOGICAL FILE 
          SUBROUT   PSUB273  MNEMONIC NAME ROUTINE,6
          SUBROUT   PSUB347  WRITE ADV IDENT
T48L4     ALLOW     LINES 
          FALLOW    LINE
T48L3     TSTFLAG   29       DEBUGGING FLAG 
          TSUBROUT  PSUB59   STATEMENT DEBUG ROUTINE,1
          SEMIRW    INVALID 
          FBRANCH   T48L5 
          SUBROUT   PSUB351  WRITE INVALID KEY
          ALLOW     KEY 
          BRANRET   IMPSTMNT
          FDSR      S,230 
          RETURNX 
T48L5     SEMIRW    EOP 
          TBRANCH   T48L6 
          SEMIRW    AT
          FSUBROUT  PSUB349  WRITE NO EOP 
          FRETTRUE
          RESWORD   EOP 
          FDSR      S,227 
T48L6     SUBROUT   PSUB350  WRITE EOP
          TSTFLAG   FIPS3 
          FDIAGNOS  T,826,LASTATOM
T48L7     BRANRET   IMPSTMNT
          FDSR      S,232 
          RETURNX 
*         NOTE - THE ENTRY TABLE HAS BEEN REMOVED 
          TITLE     UBRVERB TABLE 
T60       SUBROUT   PSUB182 RPW VD R
          DNREF 
          SUBROUT   PSUB183 UBR OP1 R 
          SUBROUT   PSUB461 RW DEBUG ROUTINE,10 
          PNREF 
          SUBROUT   PSUB184 UBR OP2 R 
          RETTRUE 
          TITLE     PURGE TABLE 
T29       SUBROUT   PSUB233 PURGE ROUTINE 
          DIAGNOS   J,293,LASTATOM
          DNREF 
          FDSR      S,254 
          SUBROUT   PSUB11 DATA NAME ROUTINE,1
          SUBROUT   PSUB220 CD NAME ROUTINE 
          SETTFFL 
          FDSR      S,254 
          SUBROUT   PSUB54 REF RECEIVING FIELD,1
          SUBROUT   PSUB260 CD NAME CHECK OUTPUT
          BLDGTXT   3,0,1,2 
          RETURNX 
          TITLE     MAIN BRANCH TABLE 
          USE PP6BITS 
          VFD       6/0 
          VERB   IF          8
          VERB   GO          20 
          VERB   ADD         27 
          VERB   SET         43 
          VERB   USE         45 
          VERB   CALL        47 
          VERB   EXIT        56 
          VERB   MOVE        69 
          VERB   OPEN        71 
          VERB   READ        74 
          VERB   SEND        78 
          VERB   SORT        81 
          VERB   STOP        82 
          VERB   ALTER       96 
          VERB   CLOSE       102
          VERB   ENTER       107
          VERB   MERGE       119
          VERB   WRITE       134
          VERB   ACCEPT      135
          VERB   CANCEL      141
          VERB   DIVIDE      146
          VERB   ENABLE      147
          VERB   RETURN      162
          VERB   SEARCH      164
          VERB   STRING      168
          VERB   COMPUTE     171
          VERB   DISABLE     173
          VERB   DISPLAY     174
          VERB   INSPECT     181
          VERB   PERFORM     190
          VERB   PURGE       193
          VERB   RECEIVE     195
          VERB   RELEASE     197
          VERB   SUSPEND     204
          VERB   GENERATE    213
          VERB   INITIATE    215
          VERB   MULTIPLY    217
          VERB   SUBTRACT    231
          VERB   SUPPRESS    232
          VERB   UNSTRING    237
          VERB   TERMINAT    254
*         VERB   DECLARTV    287
*         VERB   ENDECLAR    311
          VERB   START       316
          VERB   DELETE      318
          VERB   REWRITE     322
          VERB   INITLIZE    329
          VERB   UBRVERB     334
          VERB   TRACEON     342
          VERB   TRACEOFF    345
          VERB   RPTCTEXT    358
          VERB   CONTINUE    364
          USE       PPVERBS 
          VFD       15/0
          VFD    15/T19    IF 
          VFD    15/T17    GO 
          VFD    15/T2     ADD
          VFD    15/T37    SET
          VFD    15/T47    USE
          VFD    15/T4     CALL 
          VFD    15/T15    EXIT 
          VFD    15/T25    MOVE 
          VFD    15/T27    OPEN 
          VFD    15/T30    READ 
          VFD    15/T36    SEND 
          VFD    15/T38    SORT 
          VFD    15/T40    STOP 
          VFD    15/T3     ALTER
          VFD    15/T6     CLOSE
          VFD    15/T13    ENTER
          VFD    15/T24    MERGE
          VFD    15/T48    WRITE
          VFD    15/T1     ACCEPT 
          VFD    15/T5     CANCEL 
          VFD    15/T11    DIVIDE 
          VFD    15/T12    ENABLE 
          VFD    15/T33    RETURN 
          VFD    15/T35    SEARCH 
          VFD    15/T41    STRING 
          VFD    15/T7     COMPUTE
          VFD    15/T9     DISABLE
          VFD    15/T10    DISPLAY
          VFD    15/T22    INSPECT
          VFD    15/T28    PERFORM
          VFD    15/T29      PURGE
          VFD    15/T31    RECEIVE
          VFD    15/T32    RELEASE
          VFD    15/T44    SUSPEND
          VFD    15/T16    GENERATE 
          VFD    15/T21    INITIATE 
          VFD    15/T26    MULTIPLY 
          VFD    15/T43    SUBTRACT 
          VFD    15/T42    SUPPRESS 
          VFD    15/T46    UNSTRING 
          VFD    15/T45    TERMINAT 
*         VFD    15/DECLARTV
*         VFD    15/ENDECLAR
          VFD    15/T39    START
          VFD    15/T8     DELETE 
          VFD    15/T34    REWRITE
          VFD    15/T20    INITLIZE 
          VFD    15/T60    UBRVERB
          VFD    15/T62    TRACEON
          VFD    15/T63    TRACEOFF 
          VFD    15/T61    RPTCTEXT 
          VFD    15/CONT   CONTINUE 
          END 
